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

* fixed generating wrappers for suspending functions that return something, other than double

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-11 16:50:49 +03:00
parent 15c95e0ac7
commit c22b6c10b7
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/symcreat.pas
View File

@ -932,7 +932,10 @@ implementation
addvisibleparameterdeclarations(str,pd);
if str[Length(str)]=';' then
delete(str,Length(str),1);
str:=str+'): double; external '''+pd.import_dll^+ ''' name '''+pd.import_name^+''';';
str:=str+')';
if not is_void(pd.returndef) then
str:=str+': '+pd.returndef.fulltypename;
str:=str+'; external '''+pd.import_dll^+ ''' name '''+pd.import_name^+''';';
str_parse_method_impl(str,nil,false);
str:='var __fpc_wasm_suspender_copy:WasmExternRef; begin __fpc_wasm_suspender_copy:=__fpc_wasm_suspender; ';