Browse Source

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

git-svn-id: trunk@20137 -
Jonas Maebe 13 years ago
parent
commit
6432c82c01
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ogbase.pas

+ 1 - 1
compiler/ogbase.pas

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