Procházet zdrojové kódy

+ introduced raiseBr, similar to exitBr, but will point to the current
innermost exception handler, if there is such a handler in the current
procedure, otherwise it will be the same as exitBr.

Nikolay Nikolov před 3 roky
rodič
revize
d02921d66b
1 změnil soubory, kde provedl 2 přidání a 0 odebrání
  1. 2 0
      compiler/wasm32/hlcgcpu.pas

+ 2 - 0
compiler/wasm32/hlcgcpu.pas

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