Procházet zdrojové kódy

+ Fixed 64-bit compilation

git-svn-id: trunk@4840 -
michael před 19 roky
rodič
revize
2346cbeeaa
1 změnil soubory, kde provedl 2 přidání a 1 odebrání
  1. 2 1
      fcl/db/memds/memds.pp

+ 2 - 1
fcl/db/memds/memds.pp

@@ -813,7 +813,8 @@ end;
 
 procedure TMemDataset.CreateTable;
 var
-  i, iSize : Longint;
+  i : Longint;
+  iSize : ptrint;
 begin
   FStream.Clear;
   FRecCount:=0;