2
0
Эх сурвалжийг харах

* the len parameter of TObjData.alloc changed to TObjSectionOfs

git-svn-id: trunk@45491 -
nickysn 5 жил өмнө
parent
commit
e8af7427bb

+ 2 - 2
compiler/ogbase.pas

@@ -428,7 +428,7 @@ interface
        function  symbolref(const aname:string):TObjSymbol;
        function  symbolref(const aname:string):TObjSymbol;
        procedure ResetCachedAsmSymbols;
        procedure ResetCachedAsmSymbols;
        { Allocation }
        { Allocation }
-       procedure alloc(len:aword);
+       procedure alloc(len:TObjSectionOfs);
        procedure allocalign(len:longint);
        procedure allocalign(len:longint);
        procedure writebytes(const Data;len:aword);
        procedure writebytes(const Data;len:aword);
        procedure writeReloc(Data:TRelocDataInt;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);virtual;abstract;
        procedure writeReloc(Data:TRelocDataInt;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);virtual;abstract;
@@ -1539,7 +1539,7 @@ implementation
       end;
       end;
 
 
 
 
-    procedure TObjData.alloc(len:aword);
+    procedure TObjData.alloc(len:TObjSectionOfs);
       begin
       begin
         if not assigned(CurrObjSec) then
         if not assigned(CurrObjSec) then
           internalerror(200402252);
           internalerror(200402252);