paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-23 22:52:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* update the flowcontrol set in the IF node pass_generate_code

Browse Source 
git-svn-id: branches/wasm@48183 -
This commit is contained in:
nickysn 2021-01-18 23:08:25 +00:00
parent c0e7035e50
commit 7f31c03718
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/wasm32/nwasmflw.pas
View File

@ -160,6 +160,9 @@ begin
location_reset(location,LOC_VOID,OS_NO); location_reset(location,LOC_VOID,OS_NO);
oldflowcontrol := flowcontrol;
include(flowcontrol,fc_inflowcontrol);
//todo: MOVE all current_asm_data actions to Wasm HL CodeGen //todo: MOVE all current_asm_data actions to Wasm HL CodeGen
secondpass(left); // condition exprssions secondpass(left); // condition exprssions
@ -180,6 +183,8 @@ begin
current_asmdata.CurrAsmList.concat(taicpu.op_none(a_end_if)); current_asmdata.CurrAsmList.concat(taicpu.op_none(a_end_if));
thlcgwasm(hlcg).decblock; thlcgwasm(hlcg).decblock;
flowcontrol := oldflowcontrol + (flowcontrol - [fc_inflowcontrol]);
end; end;
initialization initialization