Browse Source

* Delphi ifdef for ptrint changed to an includefile since the old hack
won't work on XE2 64-bit. Related to mantis #20575

git-svn-id: trunk@20050 -

marco 13 years ago
parent
commit
cc31243a2b
1 changed files with 2 additions and 1 deletions
  1. 2 1
      packages/fcl-db/src/memds/memds.pp

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

@@ -40,7 +40,8 @@ const
 
 
 type
 type
   {$IFNDEF FPC}
   {$IFNDEF FPC}
-  ptrint = Integer;
+  {$i memdsdelphi.inc} // should set ptrint is longint|intptr
+		       // & trecordbuffer ( if <2009)
   {$ENDIF}
   {$ENDIF}
 
 
   MDSError=class(Exception);
   MDSError=class(Exception);