paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 17:10:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed the type of the 'size' parameter of TOmfObjOutput.AddSegment to

Browse Source 
TObjSectionOfs instead of aword

git-svn-id: trunk@39093 -
This commit is contained in:
nickysn 2018-05-22 13:48:55 +00:00
parent f5862efcd4
commit 8c842c1337
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/ogomf.pas
View File

@ -122,7 +122,7 @@ interface
FGroups: TFPHashObjectList;
procedure AddSegment(const name,segclass,ovlname: string;
Alignment: TOmfSegmentAlignment; Combination: TOmfSegmentCombination;
Use: TOmfSegmentUse; Size: aword);
Use: TOmfSegmentUse; Size: TObjSectionOfs);
procedure AddGroup(const groupname: string; seglist: array of const);
procedure AddGroup(const groupname: string; seglist: TSegmentList);
procedure WriteSections(Data:TObjData);
@ -687,7 +687,7 @@ implementation
procedure TOmfObjOutput.AddSegment(const name, segclass, ovlname: string;
Alignment: TOmfSegmentAlignment; Combination: TOmfSegmentCombination;
Use: TOmfSegmentUse; Size: aword);
Use: TOmfSegmentUse; Size: TObjSectionOfs);
var
s: TOmfRecord_SEGDEF;
begin