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

Contents of /trunk/pgtypes.pas

Parent Directory Parent Directory | Revision Log Revision Log


Revision 162 - (show annotations)
Mon Sep 27 11:13:24 2021 UTC (2 months ago) by beware
File size: 976 byte(s)
make taddrint on i386 unsigned if possible
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
11 {$include pgtypes.inc}
12 {$include uint32.inc}
13
14 type
15 {$ifdef i386}
16 taddrint=uint32;
17 {$else}
18 {$ifdef cpux64}
19 taddrint=int64;
20 {$else}
21 taddrint=sizeint;
22 {$endif}
23 {$endif}
24 paddrint=^taddrint;
25
26 { string type for storing hostnames or IP addresses as strings }
27 thostname = ansistring;
28 { string type for storing data (bytes) }
29 tbufferstring = ansistring;
30
31 {another name for a string with bytes, not implying it's to be used for a buffer}
32 bytestring = tbufferstring;
33
34 {a char that is always one byte}
35 bytechar = ansichar;
36
37 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