浏览代码

* fixed warning

Nikolay Nikolov 4 年之前
父节点
当前提交
ef738f01cf
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/wasm32/nwasmflw.pas

+ 1 - 0
compiler/wasm32/nwasmflw.pas

@@ -374,6 +374,7 @@ implementation
         errorexit;
       begin
         location_reset(location,LOC_VOID,OS_NO);
+        doobjectdestroyandreraisestate:=Default(tcgexceptionstatehandler.texceptionstate);
 
         { Exception temps? We don't need no stinking exception temps! :) }
         fillchar(excepttemps,sizeof(excepttemps),0);