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

+ pass the ParmCount parameter from the ExpDef OMF record to the NewExe entry

Browse Source 
point

git-svn-id: trunk@42641 -
This commit is contained in:
nickysn 2019-08-10 12:42:28 +00:00
parent d772890e1f
commit d69cf3a440
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogomf.pas
View File

@ -584,11 +584,13 @@ interface
FFlags: TNewExeEntryPointFlags;
FSegment: Byte;
FOffset: Word;
FParmCount: Integer;
function GetFlagsByte: Byte;
public
property Flags: TNewExeEntryPointFlags read FFlags write FFlags;
property Segment: Byte read FSegment write FSegment;
property Offset: Word read FOffset write FOffset;
property ParmCount: Integer read FParmCount write FParmCount;
property FlagsByte: Byte read GetFlagsByte;
end;
@ -3996,7 +3998,7 @@ cleanup:
function TNewExeEntryPoint.GetFlagsByte: Byte;
begin
Result:=0;
Result:=Byte(ParmCount shl 3);
if neepfExported in Flags then
Result:=Result or 1;
if neepfSingleData in Flags then
@ -4469,6 +4471,7 @@ cleanup:
ent.Segment:=sec.MemBasePos;
if nesfMovable in sec.NewExeSegmentFlags then
ent.Flags:=ent.Flags+[neepfMovableSegment];
ent.ParmCount:=sym.ParmCount;
end;
end;
end;