fix for delphi

git-svn-id: file:///svnroot/lcore/trunk@133 b1de8a11-f9be-4011-bde0-cc7ace90066a

diff --git a/pgtypes.inc b/pgtypes.inc
index 4f8d2a8e57fdd6efff54e556aa35198477527cd4..6676698192b44febdf8c976a8fa8c1602f2e86ee 100644 (file)
--- a/pgtypes.inc
+++ b/pgtypes.inc
@@ -8,6 +8,13 @@
 {$endif}
  
 
 {$endif}
  
 

-{$ifdef i386}{$define ENDIAN_LITTLE}{$asmmode intel}{$endif}
-{$ifdef cpux64}{$define ENDIAN_LITTLE}{$asmmode intel}{$endif}
+{$ifdef i386}
+{$define ENDIAN_LITTLE}
+{$ifdef fpc}{$asmmode intel}{$endif}
+{$endif}
+
+{$ifdef cpux64}
+{$define ENDIAN_LITTLE}
+{$ifdef fpc}{$asmmode intel}{$endif}
+{$endif}