From fc9719f5f989b7785e7d8ea06f82042e49f6229a Mon Sep 17 00:00:00 2001 From: Nikolay Nikolov Date: Wed, 18 Oct 2023 03:54:37 +0300 Subject: [PATCH] + add the extra allocated locals before inserting the locals list in wasm32 tcpuprocinfo.postprocess_code --- compiler/wasm32/cpupi.pas | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/compiler/wasm32/cpupi.pas b/compiler/wasm32/cpupi.pas index ff68634301..bd18d6ada1 100644 --- a/compiler/wasm32/cpupi.pas +++ b/compiler/wasm32/cpupi.pas @@ -713,6 +713,14 @@ implementation end; end; + procedure add_extra_allocated_locals(localslist: TAsmList); + var + t: TWasmBasicType; + begin + for t in FAllocatedLocals do + localslist.Concat(tai_local.create(t)); + end; + procedure insert_localslist(destlist,localslist: TAsmList); begin if assigned(localslist) then @@ -736,6 +744,7 @@ implementation {$endif DEBUG_WASM_GOTO} resolve_labels_complex(aktproccode); + add_extra_allocated_locals(localslist); insert_localslist(aktproccode,localslist); localslist.Free;