fix slow send speed, new fifo allows get of entire buffer

[lcore.git] / pgtypes.pas

diff --git a/pgtypes.pas b/pgtypes.pas
old mode 100755 (executable)
new mode 100644 (file)
index 3c13976..9d42a06
--- a/pgtypes.pas
+++ b/pgtypes.pas
@@ -9,12 +9,17 @@ unit pgtypes;
 interface\r
 \r
 {$include pgtypes.inc}\r
+{$include uint32.inc}\r
 \r
   type\r
     {$ifdef i386}\r
-      taddrint=longint;\r
+      taddrint=uint32;\r
     {$else}\r
+      {$ifdef cpux64}\r
+      taddrint=int64;\r
+      {$else}\r
       taddrint=sizeint;\r
+      {$endif}\r
     {$endif}\r
     paddrint=^taddrint;\r
 \r