freepascal.compiler/packages/libogcfpc/src/gctypes.pp

unit gctypes;

interface

uses
  ctypes;
  
const
  LITTLE_ENDIAN = 3412;
  BIG_ENDIAN    = 1234;
  BYTE_ORDER    = BIG_ENDIAN;


type
  f32 = cfloat;
  f64 = cdouble;
   ppcchar = ^pcchar;
   __argv = record
     argvMagic: cint;      // argv magic number, set to 0x5f617267 ('_arg') if valid
     commandLine: pcchar;  // base address of command line, set of null terminated strings
     length: cint;         // total length of command line
     argc: integer;
     argv: ppcchar;
     endARGV: ppcchar;        // internal use, host ip for dslink
   end;
   Targv = __argv;
   Pargv = ^Targv;

  timespec = record
    tv_sec: Longint;
    tv_nsec: Longint;
  end;
  ptimespec = ^timespec;
  
var
  __system_argv: pargv; cvar; external;

const
  ARGV_MAGIC = $5f617267;


implementation

end.