Bläddra i källkod

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

git-svn-id: trunk@20137 -
Jonas Maebe 13 år sedan
förälder
incheckning
6432c82c01
1 ändrade filer med 1 tillägg och 1 borttagningar
  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