浏览代码

Avoid warning about unintialized 'ba' variable

Pierre Muller 1 年之前
父节点
当前提交
79ed0db624
共有 1 个文件被更改,包括 4 次插入1 次删除
  1. 4 1
      compiler/ogelf.pas

+ 4 - 1
compiler/ogelf.pas

@@ -713,7 +713,10 @@ implementation
                       ba.q:=swapendian(ba.q);
                       ba.q:=swapendian(ba.q);
                     end;
                     end;
               else
               else
-                internalerror(2024012501);
+                begin
+                  internalerror(2024012501);
+		  ba.q:=0;
+		end;
               end;
               end;
             CurrObjSec.write(ba,len);
             CurrObjSec.write(ba,len);
           end
           end