paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 04:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* PChar -> PAnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-01-13 18:54:42 +01:00
parent 5e1dc65865
commit 0ec4203e2c
6 changed files with 37 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/wasmtime/examples/gcd.pp
View File

@ -2,7 +2,7 @@ program gcd;
uses sysutils, classes,ctypes, wasmtime;
procedure exit_with_error(message : Pchar; error : Pwasmtime_error_t; trap: Pwasm_trap_t); cdecl;
procedure exit_with_error(message : PAnsiChar; error : Pwasmtime_error_t; trap: Pwasm_trap_t); cdecl;
var
error_message : Twasm_byte_vec_t ;
@ -63,7 +63,7 @@ begin
finally
F.Free;
end;
error:=wasmtime_wat2wasm(pchar(wat.data), wat.size, @wasm);
error:=wasmtime_wat2wasm(PAnsiChar(wat.data), wat.size, @wasm);
if (error<>Nil) then
exit_with_error('failed to parse wat', error, Nil);
wasm_byte_vec_delete(@wat);
@ -81,7 +81,7 @@ begin
exit_with_error('failed to instantiate', error, trap);
Writeln('Extracting export...');
ok:=wasmtime_instance_export_get(context, @instance, PChar('gcd'), 3, @gcd_func) ;
ok:=wasmtime_instance_export_get(context, @instance, PAnsiChar('gcd'), 3, @gcd_func) ;
if OK=0 then
exit_with_error('failed to get gcd export', nil, nil);
if gcd_func.kind<>WASMTIME_EXTERN_FUNC then

6
packages/wasmtime/examples/helloworld.pp
View File

@ -2,7 +2,7 @@ program helloworld;
uses classes,ctypes, wasmtime;
procedure exit_with_error(message : Pchar; error : Pwasmtime_error_t; trap: Pwasm_trap_t); cdecl;
procedure exit_with_error(message : PAnsiChar; error : Pwasmtime_error_t; trap: Pwasm_trap_t); cdecl;
var
error_message : Twasm_byte_vec_t ;
@ -68,7 +68,7 @@ begin
F.Free;
end;
error:=wasmtime_wat2wasm(pchar(wat.data), wat.size, @wasm);
error:=wasmtime_wat2wasm(PAnsiChar(wat.data), wat.size, @wasm);
if (error<>Nil) then
exit_with_error('failed to parse wat', error, Nil);
wasm_byte_vec_delete(@wat);
@ -92,7 +92,7 @@ begin
exit_with_error('failed to instantiate', error, trap);
Writeln('Extracting export...\n');
ok:=wasmtime_instance_export_get(context, @instance, PChar('run'), 3, @run) ;
ok:=wasmtime_instance_export_get(context, @instance, PAnsiChar('run'), 3, @run) ;
if OK=0 then
exit_with_error('failed to get run export', nil, nil);
if run.kind<>WASMTIME_EXTERN_FUNC then

8
packages/wasmtime/examples/linking.pp
View File

@ -59,7 +59,7 @@ begin
finally
F.Free;
end;
CheckError(wasmtime_wat2wasm(pchar(wat.data), wat.size, @bytes),
CheckError(wasmtime_wat2wasm(PAnsiChar(wat.data), wat.size, @bytes),
'failed to parse wat file '+aFile);
wasm_byte_vec_delete(@wat);
end;
@ -116,7 +116,7 @@ begin
wasi_config_inherit_stdin(wasi_config);
wasi_config_inherit_stdout(wasi_config);
wasi_config_inherit_stderr(wasi_config);
wasi_config_preopen_dir(wasi_config,pchar('.'),pchar('.'));
wasi_config_preopen_dir(wasi_config,PAnsiChar('.'),PAnsiChar('.'));
CheckError(wasmtime_context_set_wasi(context, wasi_config),
'failed to instantiate WASI');
@ -129,7 +129,7 @@ begin
CheckError(wasmtime_linker_instantiate(linker, context, linking2_module, @linking2, @trap),Trap,
'failed to instantiate linking2');
// Register our new `linking2` instance with the linker
CheckError(wasmtime_linker_define_instance(linker, context, PChar('linking2'), Length('linking2'), @linking2),
CheckError(wasmtime_linker_define_instance(linker, context, PAnsiChar('linking2'), Length('linking2'), @linking2),
'failed to link linking2');
// Instantiate `linking1` with the linker now that `linking2` is defined
@ -137,7 +137,7 @@ begin
'failed to instantiate linking1');
Writeln('Extracting export...');
ok:=wasmtime_instance_export_get(context, @linking1, PChar('run'), 3, @run) ;
ok:=wasmtime_instance_export_get(context, @linking1, PAnsiChar('run'), 3, @run) ;
if OK=0 then
exit_with_error('failed to get run export', nil, nil);
if run.kind<>WASMTIME_EXTERN_FUNC then

6
packages/wasmtime/examples/memory.pp
View File

@ -153,7 +153,7 @@ var
item : twasmtime_extern_t;
Ok : Byte;
begin
ok:=wasmtime_instance_export_get(context, instance, PChar(aName), Length(aName), @item) ;
ok:=wasmtime_instance_export_get(context, instance, PAnsiChar(aName), Length(aName), @item) ;
if OK=0 then
exit_with_error('failed to get '+aName+'export', nil, nil);
if item.kind<>WASMTIME_EXTERN_FUNC then
@ -196,7 +196,7 @@ begin
F.Free;
end;
error:=wasmtime_wat2wasm(pchar(wat.data), wat.size, @wasm);
error:=wasmtime_wat2wasm(PAnsiChar(wat.data), wat.size, @wasm);
if (error<>Nil) then
exit_with_error('failed to parse wat', error, Nil);
wasm_byte_vec_delete(@wat);
@ -214,7 +214,7 @@ begin
Writeln('Extracting exports...');
ok:=wasmtime_instance_export_get(context, @instance, PChar('memory'), 6, @item) ;
ok:=wasmtime_instance_export_get(context, @instance, PAnsiChar('memory'), 6, @item) ;
if OK=0 then
exit_with_error('failed to get run export', nil, nil);
if item.kind<>WASMTIME_EXTERN_MEMORY then

4
packages/wasmtime/examples/wasi.pp
View File

@ -2,7 +2,7 @@ program wasi;
uses classes,ctypes, wasmtime;
procedure exit_with_error(message : Pchar; error : Pwasmtime_error_t; trap: Pwasm_trap_t); cdecl;
procedure exit_with_error(message : PAnsiChar; error : Pwasmtime_error_t; trap: Pwasm_trap_t); cdecl;
var
error_message : Twasm_byte_vec_t ;
@ -82,7 +82,7 @@ begin
wasi_config_inherit_stdin(wasi_config);
wasi_config_inherit_stdout(wasi_config);
wasi_config_inherit_stderr(wasi_config);
wasi_config_preopen_dir(wasi_config,pchar('.'),pchar('.'));
wasi_config_preopen_dir(wasi_config,PAnsiChar('.'),PAnsiChar('.'));
error:=wasmtime_context_set_wasi(context, wasi_config);
if (error<>Nil) then
exit_with_error('failed to instantiate WASI', error, nil);

44
packages/wasmtime/src/wasmtime.pp
View File

@ -202,13 +202,13 @@ Type
Twasm_name_t = Twasm_byte_vec_t;
{
static inline void wasm_name_new_from_string(
wasm_name_t* out, const char* s
wasm_name_t* out, const AnsiChar* s
)
wasm_byte_vec_new(out, strlen(s), s);
static inline void wasm_name_new_from_string_nt(
wasm_name_t* out, const char* s
wasm_name_t* out, const AnsiChar* s
)
wasm_byte_vec_new(out, strlen(s) + 1, s);
@ -789,17 +789,17 @@ var
wasm_instance_new : function(_para1:Pwasm_store_t; _para2:Pwasm_module_t; imports:Pwasm_extern_vec_t; _para4:PPwasm_trap_t):Pwasm_instance_t; cdecl;
wasm_instance_exports : procedure(_para1:Pwasm_instance_t; out_:Pwasm_extern_vec_t); cdecl;
wasi_config_new : function:Pwasi_config_t; cdecl;
wasi_config_set_argv : procedure(config:Pwasi_config_t; argc:Tcint; argv:Ppchar); cdecl;
wasi_config_set_argv : procedure(config:Pwasi_config_t; argc:Tcint; argv:PPAnsiChar); cdecl;
wasi_config_inherit_argv : procedure(config:Pwasi_config_t); cdecl;
wasi_config_set_env : procedure(config:Pwasi_config_t; envc:Tcint; names:Ppchar; values:Ppchar); cdecl;
wasi_config_set_env : procedure(config:Pwasi_config_t; envc:Tcint; names:PPAnsiChar; values:PPAnsiChar); cdecl;
wasi_config_inherit_env : procedure(config:Pwasi_config_t); cdecl;
wasi_config_set_stdin_file : function(config:Pwasi_config_t; path:pchar):T_Bool;
wasi_config_set_stdin_file : function(config:Pwasi_config_t; path:PAnsiChar):T_Bool;
wasi_config_inherit_stdin : procedure(config:Pwasi_config_t); cdecl;
wasi_config_set_stdout_file : function(config:Pwasi_config_t; path:pchar):T_Bool;
wasi_config_set_stdout_file : function(config:Pwasi_config_t; path:PAnsiChar):T_Bool;
wasi_config_inherit_stdout : procedure(config:Pwasi_config_t); cdecl;
wasi_config_set_stderr_file : function(config:Pwasi_config_t; path:pchar):T_Bool;
wasi_config_set_stderr_file : function(config:Pwasi_config_t; path:PAnsiChar):T_Bool;
wasi_config_inherit_stderr : procedure(config:Pwasi_config_t); cdecl;
wasi_config_preopen_dir : function(config:Pwasi_config_t; path:pchar; guest_path:pchar):T_Bool;
wasi_config_preopen_dir : function(config:Pwasi_config_t; path:PAnsiChar; guest_path:PAnsiChar):T_Bool;
wasmtime_error_delete : procedure(error:Pwasmtime_error_t); cdecl;
wasmtime_error_message : procedure(error:Pwasmtime_error_t; message:Pwasm_name_t); cdecl;
wasmtime_config_debug_info_set : procedure(_para1:Pwasm_config_t; _para2:T_Bool); cdecl;
@ -821,7 +821,7 @@ var
wasmtime_config_static_memory_maximum_size_set : procedure(_para1:Pwasm_config_t; _para2:Tuint64_t); cdecl;
wasmtime_config_static_memory_guard_size_set : procedure(_para1:Pwasm_config_t; _para2:Tuint64_t); cdecl;
wasmtime_config_dynamic_memory_guard_size_set : procedure(_para1:Pwasm_config_t; _para2:Tuint64_t); cdecl;
wasmtime_config_cache_config_load : function(_para1:Pwasm_config_t; _para2:pchar):Pwasmtime_error_t; cdecl;
wasmtime_config_cache_config_load : function(_para1:Pwasm_config_t; _para2:PAnsiChar):Pwasmtime_error_t; cdecl;
wasmtime_moduletype_delete : procedure(ty:Pwasmtime_moduletype_t); cdecl;
wasmtime_moduletype_imports : procedure(_para1:Pwasmtime_moduletype_t; out_:Pwasm_importtype_vec_t); cdecl;
wasmtime_moduletype_exports : procedure(_para1:Pwasmtime_moduletype_t; out_:Pwasm_exporttype_vec_t); cdecl;
@ -834,7 +834,7 @@ var
wasmtime_module_type : function(_para1:Pwasmtime_module_t):Pwasmtime_moduletype_t; cdecl;
wasmtime_module_serialize : function(module:Pwasmtime_module_t; ret:Pwasm_byte_vec_t):Pwasmtime_error_t; cdecl;
wasmtime_module_deserialize : function(engine:Pwasm_engine_t; bytes:Puint8_t; bytes_len:Tsize_t; ret:PPwasmtime_module_t):Pwasmtime_error_t; cdecl;
wasmtime_module_deserialize_file : function(engine:Pwasm_engine_t; path:pchar; ret:PPwasmtime_module_t):Pwasmtime_error_t; cdecl;
wasmtime_module_deserialize_file : function(engine:Pwasm_engine_t; path:PAnsiChar; ret:PPwasmtime_module_t):Pwasmtime_error_t; cdecl;
wasmtime_store_new : function(engine:Pwasm_engine_t; data:pointer; finalizer: TFinalizer):Pwasmtime_store_t; cdecl;
wasmtime_store_context : function(store:Pwasmtime_store_t):Pwasmtime_context_t; cdecl;
wasmtime_store_delete : procedure(store:Pwasmtime_store_t); cdecl;
@ -866,7 +866,7 @@ var
wasmtime_func_call : function(store:Pwasmtime_context_t; func:Pwasmtime_func_t; args:Pwasmtime_val_t; nargs:Tsize_t; results:Pwasmtime_val_t;
nresults:Tsize_t; trap:PPwasm_trap_t):Pwasmtime_error_t; cdecl;
wasmtime_func_call_unchecked : function(store:Pwasmtime_context_t; func:Pwasmtime_func_t; args_and_results:Pwasmtime_val_raw_t):Pwasm_trap_t; cdecl;
wasmtime_caller_export_get : function(caller:Pwasmtime_caller_t; name:pchar; name_len:Tsize_t; item:Pwasmtime_extern_t):T_Bool;
wasmtime_caller_export_get : function(caller:Pwasmtime_caller_t; name:PAnsiChar; name_len:Tsize_t; item:Pwasmtime_extern_t):T_Bool;
wasmtime_caller_context : function(caller:Pwasmtime_caller_t):Pwasmtime_context_t; cdecl;
wasmtime_func_from_raw : procedure(context:Pwasmtime_context_t; raw:Tsize_t; ret:Pwasmtime_func_t); cdecl;
wasmtime_func_to_raw : function(context:Pwasmtime_context_t; func:Pwasmtime_func_t):Tsize_t; cdecl;
@ -881,24 +881,24 @@ var
wasmtime_instance_new : function(store:Pwasmtime_context_t; module:Pwasmtime_module_t; imports:Pwasmtime_extern_t; nimports:Tsize_t; instance:Pwasmtime_instance_t;
trap:PPwasm_trap_t):Pwasmtime_error_t; cdecl;
wasmtime_instance_type : function(store:Pwasmtime_context_t; instance:Pwasmtime_instance_t):Pwasmtime_instancetype_t; cdecl;
wasmtime_instance_export_get : function(store:Pwasmtime_context_t; instance:Pwasmtime_instance_t; name:pchar; name_len:Tsize_t; item:Pwasmtime_extern_t):T_Bool;
wasmtime_instance_export_nth : function(store:Pwasmtime_context_t; instance:Pwasmtime_instance_t; index:Tsize_t; name:Ppchar; name_len:Psize_t;
wasmtime_instance_export_get : function(store:Pwasmtime_context_t; instance:Pwasmtime_instance_t; name:PAnsiChar; name_len:Tsize_t; item:Pwasmtime_extern_t):T_Bool;
wasmtime_instance_export_nth : function(store:Pwasmtime_context_t; instance:Pwasmtime_instance_t; index:Tsize_t; name:PPAnsiChar; name_len:Psize_t;
item:Pwasmtime_extern_t):T_Bool;
wasmtime_linker_new : function(engine:Pwasm_engine_t):Pwasmtime_linker_t; cdecl;
wasmtime_linker_delete : procedure(linker:Pwasmtime_linker_t); cdecl;
wasmtime_linker_allow_shadowing : procedure(linker:Pwasmtime_linker_t; allow_shadowing:T_Bool); cdecl;
wasmtime_linker_define : function(linker:Pwasmtime_linker_t; module:pchar; module_len:Tsize_t; name:pchar; name_len:Tsize_t;
wasmtime_linker_define : function(linker:Pwasmtime_linker_t; module:PAnsiChar; module_len:Tsize_t; name:PAnsiChar; name_len:Tsize_t;
item:Pwasmtime_extern_t):Pwasmtime_error_t; cdecl;
wasmtime_linker_define_func : function(linker:Pwasmtime_linker_t; module:pchar; module_len:Tsize_t; name:pchar; name_len:Tsize_t;
wasmtime_linker_define_func : function(linker:Pwasmtime_linker_t; module:PAnsiChar; module_len:Tsize_t; name:PAnsiChar; name_len:Tsize_t;
ty:Pwasm_functype_t; cb:Twasmtime_func_callback_t; data:pointer; finalizer: TFInalizer):Pwasmtime_error_t; cdecl;
wasmtime_linker_define_func_unchecked : function(linker:Pwasmtime_linker_t; module:pchar; module_len:Tsize_t; name:pchar; name_len:Tsize_t;
wasmtime_linker_define_func_unchecked : function(linker:Pwasmtime_linker_t; module:PAnsiChar; module_len:Tsize_t; name:PAnsiChar; name_len:Tsize_t;
ty:Pwasm_functype_t; cb:Twasmtime_func_unchecked_callback_t; data:pointer; finalizer: TFInalizer):Pwasmtime_error_t; cdecl;
wasmtime_linker_define_wasi : function(linker:Pwasmtime_linker_t):Pwasmtime_error_t; cdecl;
wasmtime_linker_define_instance : function(linker:Pwasmtime_linker_t; store:Pwasmtime_context_t; name:pchar; name_len:Tsize_t; instance:Pwasmtime_instance_t):Pwasmtime_error_t; cdecl;
wasmtime_linker_define_instance : function(linker:Pwasmtime_linker_t; store:Pwasmtime_context_t; name:PAnsiChar; name_len:Tsize_t; instance:Pwasmtime_instance_t):Pwasmtime_error_t; cdecl;
wasmtime_linker_instantiate : function(linker:Pwasmtime_linker_t; store:Pwasmtime_context_t; module:Pwasmtime_module_t; instance:Pwasmtime_instance_t; trap:PPwasm_trap_t):Pwasmtime_error_t; cdecl;
wasmtime_linker_module : function(linker:Pwasmtime_linker_t; store:Pwasmtime_context_t; name:pchar; name_len:Tsize_t; module:Pwasmtime_module_t):Pwasmtime_error_t; cdecl;
wasmtime_linker_get_default : function(linker:Pwasmtime_linker_t; store:Pwasmtime_context_t; name:pchar; name_len:Tsize_t; func:Pwasmtime_func_t):Pwasmtime_error_t; cdecl;
wasmtime_linker_get : function(linker:Pwasmtime_linker_t; store:Pwasmtime_context_t; module:pchar; module_len:Tsize_t; name:pchar;
wasmtime_linker_module : function(linker:Pwasmtime_linker_t; store:Pwasmtime_context_t; name:PAnsiChar; name_len:Tsize_t; module:Pwasmtime_module_t):Pwasmtime_error_t; cdecl;
wasmtime_linker_get_default : function(linker:Pwasmtime_linker_t; store:Pwasmtime_context_t; name:PAnsiChar; name_len:Tsize_t; func:Pwasmtime_func_t):Pwasmtime_error_t; cdecl;
wasmtime_linker_get : function(linker:Pwasmtime_linker_t; store:Pwasmtime_context_t; module:PAnsiChar; module_len:Tsize_t; name:PAnsiChar;
name_len:Tsize_t; item:Pwasmtime_extern_t):T_Bool;
wasmtime_memorytype_new : function(min:Tuint64_t; max_present:T_Bool; max:Tuint64_t; is_64:T_Bool):Pwasm_memorytype_t; cdecl;
wasmtime_memorytype_minimum : function(ty:Pwasm_memorytype_t):Tuint64_t; cdecl;
@ -916,12 +916,12 @@ var
wasmtime_table_set : function(store:Pwasmtime_context_t; table:Pwasmtime_table_t; index:Tuint32_t; value:Pwasmtime_val_t):Pwasmtime_error_t; cdecl;
wasmtime_table_size : function(store:Pwasmtime_context_t; table:Pwasmtime_table_t):Tuint32_t; cdecl;
wasmtime_table_grow : function(store:Pwasmtime_context_t; table:Pwasmtime_table_t; delta:Tuint32_t; init:Pwasmtime_val_t; prev_size:Puint32_t):Pwasmtime_error_t; cdecl;
wasmtime_trap_new : function(msg:pchar; msg_len:Tsize_t):Pwasm_trap_t; cdecl;
wasmtime_trap_new : function(msg:PAnsiChar; msg_len:Tsize_t):Pwasm_trap_t; cdecl;
wasmtime_trap_code : function(_para1:Pwasm_trap_t; code:Pwasmtime_trap_code_t):T_Bool;
wasmtime_trap_exit_status : function(_para1:Pwasm_trap_t; status:pcint):T_Bool;
wasmtime_frame_func_name : function(_para1:Pwasm_frame_t):Pwasm_name_t; cdecl;
wasmtime_frame_module_name : function(_para1:Pwasm_frame_t):Pwasm_name_t; cdecl;
wasmtime_wat2wasm : function(wat:pchar; wat_len:Tsize_t; ret:Pwasm_byte_vec_t):Pwasmtime_error_t; cdecl;
wasmtime_wat2wasm : function(wat:PAnsiChar; wat_len:Tsize_t; ret:Pwasm_byte_vec_t):Pwasmtime_error_t; cdecl;
wasi_config_delete : procedure(_para1:Pwasi_config_t); cdecl;
// Converted Inline functions