From: beware <beware@bircd.org>
Date: Fri, 25 Nov 2011 04:36:29 +0000 (+0000)
Subject: some consolidation
X-Git-Url: http://www.lcore.org/git/lcore.git/commitdiff_plain/693e2ce95d2225be709499570ea94c324d663562

some consolidation

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

diff --git a/binipstuff.pas b/binipstuff.pas
index 1cfa34d..0b9fcb8 100644
--- a/binipstuff.pas
+++ b/binipstuff.pas
@@ -18,8 +18,8 @@ uses
 {$endif}
   pgtypes;
 
-{$ifdef cpu386}{$define i386}{$endif}
-{$ifdef i386}{$define ENDIAN_LITTLE}{$endif}
+
+{$include pgtypes.inc}
 
 {$include uint32.inc}
 
diff --git a/pgtypes.inc b/pgtypes.inc
new file mode 100644
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 d42a6b2..3c13976 100755
--- a/pgtypes.pas
+++ b/pgtypes.pas
@@ -7,8 +7,10 @@
 
 unit pgtypes;
 interface
+
+{$include pgtypes.inc}
+
   type
-    {$ifdef cpu386}{$define i386}{$endif}
     {$ifdef i386}
       taddrint=longint;
     {$else}
@@ -20,6 +22,12 @@ interface
     thostname = ansistring;
     { string type for storing data (bytes) }
     tbufferstring = ansistring;
+    
+    {another name for a string with bytes, not implying it's to be used for a buffer}
+    bytestring = tbufferstring;
+
+    {a char that is always one byte}
+    bytechar = ansichar;
 
 implementation
 end.