index 8ef405c66919ebcd191f49c50cb4da9ffb76f511..512702ee110c51a211fd0fc5476e113c96e3f661 100644 (file)
* License along with the libjit library. If not, see
* <http://www.gnu.org/licenses/>.
*)
-unit libjit;
-
-{$IFDEF WIN32}
- {$DEFINE MSWINDOWS}
-{$ENDIF}
-
{$MODE DELPHI}
-{$PACKRECORDS C}
-{$MACRO ON}
-
-{$Z4} // Force four-byte enums
+{$INCLUDE libjit_opts.inc}
+unit libjit;
interface
-const
- {$IFDEF MSWINDOWS}
- LIBJIT_LIBNAME = 'libjit.dll';
- {$DEFINE libraryLibJITDecl := cdecl}
- {$DEFINE libraryLibJITImp := cdecl; external LIBJIT_LIBNAME}
- {$ELSE}
- LIBJIT_LIBNAME = 'jit';
- {$DEFINE libraryLibJITDecl := cdecl}
- {$DEFINE libraryLibJITImp := cdecl; external LIBJIT_LIBNAME}
- {$ENDIF}
-
-
type
jit_sbyte = ShortInt; pjit_sbyte = ^jit_sbyte;
jit_ubyte = Byte; pjit_ubyte = ^jit_ubyte;
@@ -155,7 +135,7 @@ type jit_on_demand_driver_func = function (func: jit_function_t): Pointer; libra
function jit_context_create (): jit_context_t; libraryLibJITDecl;
procedure jit_context_destroy (context: jit_context_t); libraryLibJITDecl;
-procedure jit_context_build_start (context: jit_context_t);
+procedure jit_context_build_start (context: jit_context_t); libraryLibJITDecl;
procedure jit_context_build_end (context: jit_context_t); libraryLibJITDecl;
procedure jit_context_set_on_demand_driver (context: jit_context_t; driver: jit_on_demand_driver_func); libraryLibJITDecl;
@@ -2174,6 +2154,7 @@ Pointer _jit_get_return_address(Pointer frame; Pointer frame0; Pointer return0);
implementation
+
function jit_context_create; libraryLibJITImp;
procedure jit_context_destroy; libraryLibJITImp;
procedure jit_context_build_start; libraryLibJITImp;