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

* tsk_wasm_suspending renamed tsk_wasm_suspending_first

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-06-17 12:28:12 +03:00
parent f800e40595
commit 553cee72eb
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecsub.pas
View File

@ -2405,7 +2405,7 @@ begin
begin
consume(_SUSPENDING);
include(procoptions,po_wasm_suspending);
synthetickind:=tsk_wasm_suspending;
synthetickind:=tsk_wasm_suspending_first;
if idtoken=_FIRST then
consume(_FIRST)
else if idtoken=_LAST then

2
compiler/symconst.pas
View File

@ -506,7 +506,7 @@ type
tsk_block_invoke_procvar, // Call a procvar to invoke inside a block
tsk_interface_wrapper, // Call through to a method from an interface wrapper
tsk_call_no_parameters, // Call skpara procedure without passing any parameters nor returning a result
tsk_wasm_suspending, // WebAssembly suspending external wrapper, suspender object is first argument
tsk_wasm_suspending_first, // WebAssembly suspending external wrapper, suspender object is first argument
tsk_wasm_suspending_last, // WebAssembly suspending external wrapper, suspender object is last argument
tsk_wasm_promising // WebAssembly promising export wrapper
);

4
compiler/symcreat.pas
View File

@ -1264,14 +1264,14 @@ implementation
internalerror(2011032801);
{$endif jvm}
{$ifdef wasm}
tsk_wasm_suspending:
tsk_wasm_suspending_first:
implement_wasm_suspending(tcpuprocdef(pd),false);
tsk_wasm_suspending_last:
implement_wasm_suspending(tcpuprocdef(pd),true);
tsk_wasm_promising:
implement_wasm_promising(tcpuprocdef(pd));
{$else wasm}
tsk_wasm_suspending,
tsk_wasm_suspending_first,
tsk_wasm_suspending_last,
tsk_wasm_promising:
internalerror(2023061107);