paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 19:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also changed the type of the 'DataPos' parameter of TObjData.layoutsections to TObjSectionOfs

Browse Source 
git-svn-id: trunk@39085 -
This commit is contained in:
nickysn 2018-05-21 16:48:56 +00:00
parent 04129b8c6e
commit f9748e928b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogbase.pas
View File

@ -395,7 +395,7 @@ interface
procedure afteralloc;virtual; procedure afteralloc;virtual;
procedure afterwrite;virtual; procedure afterwrite;virtual;
procedure resetsections; procedure resetsections;
procedure layoutsections(var datapos:PUInt); procedure layoutsections(var datapos:TObjSectionOfs);
property Name:TString80 read FName; property Name:TString80 read FName;
property CurrObjSec:TObjSection read FCurrObjSec; property CurrObjSec:TObjSection read FCurrObjSec;
property ObjSymbolList:TObjSymbolList read FObjSymbolList; property ObjSymbolList:TObjSymbolList read FObjSymbolList;
@ -1520,7 +1520,7 @@ implementation
end; end;
procedure TObjData.layoutsections(var DataPos:PUInt); procedure TObjData.layoutsections(var DataPos:TObjSectionOfs);
var var
i: longint; i: longint;
begin begin