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

+ added method TOmfSubRecord_THREAD.ApplyTo, which applies the data in the

Browse Source 
current thread subrecord to a TOmfThreads object

git-svn-id: trunk@39148 -
This commit is contained in:
nickysn 2018-05-30 13:52:34 +00:00
parent 26e808e155
commit 189cba817e
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/omfbase.pas
View File

@ -616,6 +616,8 @@ interface
function ReadAt(RawRecord: TOmfRawRecord; Offset: Integer): Integer; function ReadAt(RawRecord: TOmfRawRecord; Offset: Integer): Integer;
function WriteAt(RawRecord: TOmfRawRecord; Offset: Integer): Integer; function WriteAt(RawRecord: TOmfRawRecord; Offset: Integer): Integer;
procedure ApplyTo(AThreads: TOmfThreads);
property ThreadNumber: TOmfFixupThread read FThreadNumber write FThreadNumber; property ThreadNumber: TOmfFixupThread read FThreadNumber write FThreadNumber;
property ThreadType: TOmfThreadType read FThreadType write FThreadType; property ThreadType: TOmfThreadType read FThreadType write FThreadType;
property TargetMethod: TOmfFixupTargetMethod read FTargetMethod write FTargetMethod; property TargetMethod: TOmfFixupTargetMethod read FTargetMethod write FTargetMethod;
@ -2376,6 +2378,26 @@ implementation
Result:=Offset; Result:=Offset;
end; end;
procedure TOmfSubRecord_THREAD.ApplyTo(AThreads: TOmfThreads);
begin
case ThreadType of
ttFrame:
begin
AThreads.FrameThread[ThreadNumber].Datum:=Datum;
AThreads.FrameThread[ThreadNumber].FrameMethod:=FrameMethod;
AThreads.FrameThread[ThreadNumber].Initialized:=True;
end;
ttTarget:
begin
AThreads.TargetThread[ThreadNumber].Datum:=Datum;
AThreads.TargetThread[ThreadNumber].TargetMethod:=TargetMethod;
AThreads.TargetThread[ThreadNumber].Initialized:=True;
end;
else
internalerror(2018053001);
end;
end;
{ TOmfSubRecord_FIXUP } { TOmfSubRecord_FIXUP }
function TOmfSubRecord_FIXUP.GetDataRecordOffset: Integer; function TOmfSubRecord_FIXUP.GetDataRecordOffset: Integer;