src/lib/libjit/libjit_types.pas

   1 (*
   2  * jit.h - General definitions for JIT back-ends.
   3  *
   4  * Copyright (C) 2004  Southern Storm Software, Pty Ltd.
   5  * Copyright (C) 2016  Ketmar Dark
   6  *
   7  * The libjit library is free software: you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public License
   9  * as published by the Free Software Foundation, either version 2.1 of
  10  * the License, or (at your option) any later version.
  11  *
  12  * The libjit library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with the libjit library.  If not, see
  19  * <http://www.gnu.org/licenses/>.
  20  *)
  21 unit libjit_types;
  22
  23 {$IFDEF WIN32}
  24   {$DEFINE MSWINDOWS}
  25 {$ENDIF}
  26
  27 {$MODE OBJFPC}
  28 {$PACKRECORDS C}
  29 {$MACRO ON}
  30
  31 {$Z4} // Force four-byte enums
  32
  33 interface
  34
  35 uses
  36   libjit;
  37
  38 (*const*) var jit_opcodes: packed array [0..JIT_OP_NUM_OPCODES-1] of jit_opcode_info_t; cvar; external LIBJIT_LIBNAME;
  39
  40 (*
  41  * Pre-defined type descriptors.
  42  *)
  43 (*const*) var jit_type_void: jit_type_t; cvar; external LIBJIT_LIBNAME;
  44 (*const*) var jit_type_sbyte: jit_type_t; cvar; external LIBJIT_LIBNAME;
  45 (*const*) var jit_type_ubyte: jit_type_t; cvar; external LIBJIT_LIBNAME;
  46 (*const*) var jit_type_short: jit_type_t; cvar; external LIBJIT_LIBNAME;
  47 (*const*) var jit_type_ushort: jit_type_t; cvar; external LIBJIT_LIBNAME;
  48 (*const*) var jit_type_int: jit_type_t; cvar; external LIBJIT_LIBNAME;
  49 (*const*) var jit_type_uint: jit_type_t; cvar; external LIBJIT_LIBNAME;
  50 (*const*) var jit_type_nint: jit_type_t; cvar; external LIBJIT_LIBNAME;
  51 (*const*) var jit_type_nuint: jit_type_t; cvar; external LIBJIT_LIBNAME;
  52 (*const*) var jit_type_long: jit_type_t; cvar; external LIBJIT_LIBNAME;
  53 (*const*) var jit_type_ulong: jit_type_t; cvar; external LIBJIT_LIBNAME;
  54 (*const*) var jit_type_float32: jit_type_t; cvar; external LIBJIT_LIBNAME;
  55 (*const*) var jit_type_float64: jit_type_t; cvar; external LIBJIT_LIBNAME;
  56 (*const*) var jit_type_nfloat: jit_type_t; cvar; external LIBJIT_LIBNAME;
  57 (*const*) var jit_type_void_ptr: jit_type_t; cvar; external LIBJIT_LIBNAME;
  58
  59 (*
  60  * Type descriptors for the system "char", "int", "long", etc types.
  61  * These are defined to one of the above values.
  62  *)
  63 (*const*) var jit_type_sys_bool: jit_type_t; cvar; external LIBJIT_LIBNAME;
  64 (*const*) var jit_type_sys_char: jit_type_t; cvar; external LIBJIT_LIBNAME;
  65 (*const*) var jit_type_sys_schar: jit_type_t; cvar; external LIBJIT_LIBNAME;
  66 (*const*) var jit_type_sys_uchar: jit_type_t; cvar; external LIBJIT_LIBNAME;
  67 (*const*) var jit_type_sys_short: jit_type_t; cvar; external LIBJIT_LIBNAME;
  68 (*const*) var jit_type_sys_ushort: jit_type_t; cvar; external LIBJIT_LIBNAME;
  69 (*const*) var jit_type_sys_int: jit_type_t; cvar; external LIBJIT_LIBNAME;
  70 (*const*) var jit_type_sys_uint: jit_type_t; cvar; external LIBJIT_LIBNAME;
  71 (*const*) var jit_type_sys_long: jit_type_t; cvar; external LIBJIT_LIBNAME;
  72 (*const*) var jit_type_sys_ulong: jit_type_t; cvar; external LIBJIT_LIBNAME;
  73 (*const*) var jit_type_sys_longlong: jit_type_t; cvar; external LIBJIT_LIBNAME;
  74 (*const*) var jit_type_sys_ulonglong: jit_type_t; cvar; external LIBJIT_LIBNAME;
  75 (*const*) var jit_type_sys_float: jit_type_t; cvar; external LIBJIT_LIBNAME;
  76 (*const*) var jit_type_sys_double: jit_type_t; cvar; external LIBJIT_LIBNAME;
  77 (*const*) var jit_type_sys_long_double: jit_type_t; cvar; external LIBJIT_LIBNAME;
  78
  79
  80 implementation
  81
  82
  83 end.