|
@@ -61,6 +61,7 @@ uses
|
|
// if the condition at the end, the jump should done to the end of block (0)
|
|
// if the condition at the end, the jump should done to the end of block (0)
|
|
loopBreakBr: integer;
|
|
loopBreakBr: integer;
|
|
exitBr: integer;
|
|
exitBr: integer;
|
|
|
|
+ raiseBr: integer;
|
|
fntypelookup : TWasmProcTypeLookup;
|
|
fntypelookup : TWasmProcTypeLookup;
|
|
|
|
|
|
constructor create;
|
|
constructor create;
|
|
@@ -2184,6 +2185,7 @@ implementation
|
|
list.concat(taicpu.op_none(a_block));
|
|
list.concat(taicpu.op_none(a_block));
|
|
incblock;
|
|
incblock;
|
|
exitBr:=br_blocks;
|
|
exitBr:=br_blocks;
|
|
|
|
+ raiseBr:=br_blocks;
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure thlcgwasm.gen_exit_code(list: TAsmList);
|
|
procedure thlcgwasm.gen_exit_code(list: TAsmList);
|