PageRenderTime 34ms CodeModel.GetById 16ms app.highlight 11ms RepoModel.GetById 0ms app.codeStats 0ms

/packages/libogcfpc/src/gctypes.pp

https://github.com/slibre/freepascal
Puppet | 44 lines | 33 code | 11 blank | 0 comment | 2 complexity | eb7814958783d59677afbab36fa20f01 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
 1unit gctypes;
 2
 3interface
 4
 5uses
 6  ctypes;
 7  
 8const
 9  LITTLE_ENDIAN = 3412;
10  BIG_ENDIAN    = 1234;
11  BYTE_ORDER    = BIG_ENDIAN;
12
13
14type
15  f32 = cfloat;
16  f64 = cdouble;
17   ppcchar = ^pcchar;
18   __argv = record
19     argvMagic: cint;      // argv magic number, set to 0x5f617267 ('_arg') if valid
20     commandLine: pcchar;  // base address of command line, set of null terminated strings
21     length: cint;         // total length of command line
22     argc: integer;
23     argv: ppcchar;
24     endARGV: ppcchar;        // internal use, host ip for dslink
25   end;
26   Targv = __argv;
27   Pargv = ^Targv;
28
29  timespec = record
30    tv_sec: Longint;
31    tv_nsec: Longint;
32  end;
33  ptimespec = ^timespec;
34  
35var
36  __system_argv: pargv; cvar; external;
37
38const
39  ARGV_MAGIC = $5f617267;
40
41
42implementation
43
44end.