\r
unit pgtypes;\r
interface\r
+\r
+{$include pgtypes.inc}\r
+{$include uint32.inc}\r
+\r
type\r
- {$ifdef cpu386}{$define i386}{$endif}\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
thostname = ansistring;\r
{ string type for storing data (bytes) }\r
tbufferstring = ansistring;\r
+ \r
+ {another name for a string with bytes, not implying it's to be used for a buffer}\r
+ bytestring = tbufferstring;\r
+\r
+ {a char that is always one byte}\r
+ bytechar = ansichar;\r
\r
implementation\r
end.\r