فهرست منبع

* fixed crash with ifs with an empty then clause

git-svn-id: branches/wasm@48055 -
nickysn 4 سال پیش
والد
کامیت
5677e7ed81
1فایلهای تغییر یافته به همراه2 افزوده شده و 1 حذف شده
  1. 2 1
      compiler/wasm32/nwasmflw.pas

+ 2 - 1
compiler/wasm32/nwasmflw.pas

@@ -165,7 +165,8 @@ begin
   thlcgwasm(hlcg).incblock;
   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
     begin