add linux syscall sys_getrandom to lcorernd
[lcore.git] / pgtypes.pas
1 {io core originally for linux bworld}\r
2 \r
3 { Copyright (C) 2005 Bas Steendijk and Peter Green\r
4   For conditions of distribution and use, see copyright notice in zlib_license.txt\r
5   which is included in the package\r
6   ----------------------------------------------------------------------------- }\r
7 \r
8 unit pgtypes;\r
9 interface\r
10 \r
11 {$include pgtypes.inc}\r
12 {$include uint32.inc}\r
13 \r
14   type\r
15     {$ifdef i386}\r
16       taddrint=uint32;\r
17     {$else}\r
18       {$ifdef cpux64}\r
19       taddrint=int64;\r
20       {$else}\r
21       taddrint=sizeint;\r
22       {$endif}\r
23     {$endif}\r
24     paddrint=^taddrint;\r
25 \r
26     { string type for storing hostnames or IP addresses as strings }\r
27     thostname = ansistring;\r
28     { string type for storing data (bytes) }\r
29     tbufferstring = ansistring;\r
30     \r
31     {another name for a string with bytes, not implying it's to be used for a buffer}\r
32     bytestring = tbufferstring;\r
33 \r
34     {a char that is always one byte}\r
35     bytechar = ansichar;\r
36 \r
37 implementation\r
38 end.\r