ソースを参照

* don't pass property as var-parameter to val()

git-svn-id: trunk@20137 -
Jonas Maebe 14 年 前
コミット
6432c82c01
1 ファイル変更1 行追加1 行削除
  1. 1 1
      compiler/ogbase.pas

+ 1 - 1
compiler/ogbase.pas

@@ -1618,7 +1618,7 @@ implementation
         objsym : TObjSymbol;
         exesym : TExeSymbol;
       begin
-        val(avalue,ImageBase,code);
+        val(avalue,FImageBase,code);
         if code<>0 then
           Comment(V_Error,'Invalid number '+avalue);
         { Create __image_base__ symbol, create the symbol