Browse Source

* tsk_wasm_suspending renamed tsk_wasm_suspending_first

Nikolay Nikolov 2 years ago
parent
commit
553cee72eb
3 changed files with 4 additions and 4 deletions
  1. 1 1
      compiler/pdecsub.pas
  2. 1 1
      compiler/symconst.pas
  3. 2 2
      compiler/symcreat.pas

+ 1 - 1
compiler/pdecsub.pas

@@ -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

+ 1 - 1
compiler/symconst.pas

@@ -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
   );

+ 2 - 2
compiler/symcreat.pas

@@ -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);