Sfoglia il codice sorgente

* fixed crash with ifs with an empty then clause

git-svn-id: branches/wasm@48055 -
nickysn 4 anni fa
parent
commit
5677e7ed81
1 ha cambiato i file con 2 aggiunte e 1 eliminazioni
  1. 2 1
      compiler/wasm32/nwasmflw.pas

+ 2 - 1
compiler/wasm32/nwasmflw.pas

@@ -165,7 +165,8 @@ begin
   thlcgwasm(hlcg).incblock;
   thlcgwasm(hlcg).incblock;
   thlcgwasm(hlcg).decstack(current_asmdata.CurrAsmList,1);
   thlcgwasm(hlcg).decstack(current_asmdata.CurrAsmList,1);
 
 
-  secondpass(right); // then branchs
+  if Assigned(right) then
+    secondpass(right); // then branchs
 
 
   if Assigned(t1) then // else branch
   if Assigned(t1) then // else branch
     begin
     begin