Browse Source

* fix in exnref exceptions generation code for 'on' nodes

Nikolay Nikolov 2 days ago
parent
commit
3818722b23
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/wasm32/nwasmflw.pas

+ 1 - 1
compiler/wasm32/nwasmflw.pas

@@ -1958,7 +1958,7 @@ implementation
         cexceptionstatehandler.end_try_block(current_asmdata.CurrAsmList,tek_except,excepttemps,doobjectdestroyandreraisestate,nil);
 
         hlcg.g_call_system_proc(current_asmdata.CurrAsmList,'fpc_doneexception',[],nil).resetiftemp;
-        current_asmdata.CurrAsmList.concat(taicpu.op_const(a_br,5));
+        current_asmdata.CurrAsmList.concat(taicpu.op_const(a_br,7));
 
         { exit the 'continue' block }
         current_asmdata.CurrAsmList.concat(taicpu.op_none(a_end_block));