some consolidation

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

diff --git a/binipstuff.pas b/binipstuff.pas
index 1cfa34deb4f3bd92429af58aa43f6ebe119feab2..0b9fcb84a9e8a081833cf0b77aaecaf970398f59 100644 (file)
--- a/binipstuff.pas
+++ b/binipstuff.pas
@@ -18,8 +18,8 @@ uses
 {$endif}\r
   pgtypes;\r
 \r
 {$endif}\r
   pgtypes;\r
 \r

-{$ifdef cpu386}{$define i386}{$endif}\r
-{$ifdef i386}{$define ENDIAN_LITTLE}{$endif}\r
+\r
+{$include pgtypes.inc}\r

 \r
 {$include uint32.inc}\r
 \r
 \r
 {$include uint32.inc}\r
 \r

diff --git a/pgtypes.inc b/pgtypes.inc
new file mode 100644 (file)
index 0000000..af3381e
--- /dev/null
+++ b/pgtypes.inc
@@ -0,0 +1,3 @@
+{$ifdef cpu386}{$define i386}{$endif}
+{$ifdef i386}{$define ENDIAN_LITTLE}{$endif}
+

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
 unit pgtypes;\r
 interface\r

+\r
+{$include pgtypes.inc}\r
+\r

   type\r
   type\r

-    {$ifdef cpu386}{$define i386}{$endif}\r

     {$ifdef i386}\r
       taddrint=longint;\r
     {$else}\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
     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
 \r
 implementation\r
 end.\r