/[lcore]/trunk/pgtypes.pas
ViewVC logotype

Annotation of /trunk/pgtypes.pas

Parent Directory Parent Directory | Revision Log Revision Log


Revision 162 - (hide annotations)
Mon Sep 27 11:13:24 2021 UTC (2 weeks, 4 days ago) by beware
File size: 976 byte(s)
make taddrint on i386 unsigned if possible
1 plugwash 1 {io core originally for linux bworld}
2    
3     { Copyright (C) 2005 Bas Steendijk and Peter Green
4     For conditions of distribution and use, see copyright notice in zlib_license.txt
5     which is included in the package
6     ----------------------------------------------------------------------------- }
7    
8     unit pgtypes;
9     interface
10 beware 107
11     {$include pgtypes.inc}
12 beware 162 {$include uint32.inc}
13 beware 107
14 plugwash 1 type
15     {$ifdef i386}
16 beware 162 taddrint=uint32;
17 plugwash 1 {$else}
18 beware 153 {$ifdef cpux64}
19     taddrint=int64;
20     {$else}
21 plugwash 1 taddrint=sizeint;
22 beware 153 {$endif}
23 plugwash 1 {$endif}
24     paddrint=^taddrint;
25    
26 zipplet 79 { string type for storing hostnames or IP addresses as strings }
27     thostname = ansistring;
28     { string type for storing data (bytes) }
29     tbufferstring = ansistring;
30 beware 107
31     {another name for a string with bytes, not implying it's to be used for a buffer}
32     bytestring = tbufferstring;
33 zipplet 79
34 beware 107 {a char that is always one byte}
35     bytechar = ansichar;
36    
37 plugwash 1 implementation
38     end.

Properties

Name Value
svn:eol-style CRLF

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.26