Follow up to previous commit: Use int64 compatible string to integer conversion for data_length and index_length.

This commit is contained in:
Ansgar Becker
2015-03-25 20:26:21 +00:00
parent b52965097b
commit 7ebd83259c

View File

@@ -4252,9 +4252,9 @@ begin
obj.Database := db;
obj.Schema := Results.Col('table_schema'); // Remove when using schemata
obj.Comment := Results.Col('comment');
obj.Rows := StrToIntDef(Results.Col('reltuples'), obj.Rows);
obj.DataLen := StrToIntDef(Results.Col('data_length'), obj.DataLen);
obj.IndexLen := StrToIntDef(Results.Col('index_length'), obj.IndexLen);
obj.Rows := StrToInt64Def(Results.Col('reltuples'), obj.Rows);
obj.DataLen := StrToInt64Def(Results.Col('data_length'), obj.DataLen);
obj.IndexLen := StrToInt64Def(Results.Col('index_length'), obj.IndexLen);
obj.Size := obj.DataLen + obj.IndexLen;
Inc(Cache.FDataSize, Obj.Size);
Cache.FLargestObjectSize := Max(Cache.FLargestObjectSize, Obj.Size);