瀏覽代碼

* 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 14 年之前
父節點
當前提交
cc31243a2b
共有 1 個文件被更改,包括 2 次插入1 次删除
  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
   {$IFNDEF FPC}
-  ptrint = Integer;
+  {$i memdsdelphi.inc} // should set ptrint is longint|intptr
+		       // & trecordbuffer ( if <2009)
   {$ENDIF}
 
   MDSError=class(Exception);