From 70850835597032f7fb37777bf6fe44eea3b0d16a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= Date: Tue, 11 Jul 2023 11:07:25 +0200 Subject: [PATCH] * Additional fields/enums for invoke helper --- compiler/symconst.pas | 3 ++- compiler/symdef.pas | 2 ++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/symconst.pas b/compiler/symconst.pas index 8acbdb415a..37287499ae 100644 --- a/compiler/symconst.pas +++ b/compiler/symconst.pas @@ -508,7 +508,8 @@ type tsk_call_no_parameters, // Call skpara procedure without passing any parameters nor returning a result 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 + tsk_wasm_promising, // WebAssembly promising export wrapper + tsk_invoke_helper // Method invoke helper, primarily used in WebAssembly. ); { synthetic procdef supplementary information (tprocdef.skpara) } diff --git a/compiler/symdef.pas b/compiler/symdef.pas index d1486a8b65..260e6dfdfb 100644 --- a/compiler/symdef.pas +++ b/compiler/symdef.pas @@ -904,6 +904,8 @@ interface {$else symansistr} section: pshortstring; {$endif} + { only needed when actually compiling a unit, no need to save/load from ppu } + invoke_helper : tprocdef; constructor create(level:byte;doregister:boolean);virtual; constructor ppuload(ppufile:tcompilerppufile); destructor destroy;override;