/packages/libogcfpc/src/gctypes.pp
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.