X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Flib%2Flibjit%2Flibjit.pas;h=512702ee110c51a211fd0fc5476e113c96e3f661;hb=d4c1e78fe6bfb7cbbff5ced6b94d6e630e06d6f2;hp=8ef405c66919ebcd191f49c50cb4da9ffb76f511;hpb=c29d18b638c504c494605b65d9cae1c4a7697410;p=d2df-sdl.git diff --git a/src/lib/libjit/libjit.pas b/src/lib/libjit/libjit.pas index 8ef405c..512702e 100644 --- a/src/lib/libjit/libjit.pas +++ b/src/lib/libjit/libjit.pas @@ -18,32 +18,12 @@ * License along with the libjit library. If not, see * . *) -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;