Explorar el Código

* fixed warning

Nikolay Nikolov hace 4 años
padre
commit
ef738f01cf
Se han modificado 1 ficheros con 1 adiciones y 0 borrados
  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);