some consolidation

[lcore.git] / pgtypes.pas

diff --git a/pgtypes.pas b/pgtypes.pas
index d42a6b2482e5d4482e5aed7a0a7d61450aa27e9d..3c139763452c701f20b1dca4ba4e7b73d323f45e 100755 (executable)
--- a/pgtypes.pas
+++ b/pgtypes.pas
@@ -7,8 +7,10 @@
 \r
 unit pgtypes;\r
 interface\r
+\r
+{$include pgtypes.inc}\r
+\r
   type\r
-    {$ifdef cpu386}{$define i386}{$endif}\r
     {$ifdef i386}\r
       taddrint=longint;\r
     {$else}\r
@@ -20,6 +22,12 @@ interface
     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