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

+ dispatch the IMPDEF and EXPDEF records to the newly introduced ReadImpDef and

Browse Source 
ReadExpDef methods (not implemented yet)

git-svn-id: trunk@42232 -
This commit is contained in:
nickysn 2019-06-14 23:06:58 +00:00
parent cdd2ba1a4d
commit 0db19546ef
1 changed files with 25 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/ogomf.pas
View File

@ -167,6 +167,8 @@ interface
function ReadPubDef(RawRec: TOmfRawRecord; objdata:TObjData): Boolean;
function ReadModEnd(RawRec: TOmfRawRecord; objdata:TObjData): Boolean;
function ReadLeOrLiDataAndFixups(RawRec: TOmfRawRecord; objdata:TObjData): Boolean;
function ReadImpDef(Rec: TOmfRecord_COMENT): Boolean;
function ReadExpDef(Rec: TOmfRecord_COMENT): Boolean;
function ImportOmfFixup(objdata: TObjData; objsec: TOmfObjSection; Fixup: TOmfSubRecord_FIXUP): Boolean;
property LNames: TOmfOrderedNameCollection read FLNames;
@ -1841,6 +1843,18 @@ implementation
Result:=True;
end;
function TOmfObjInput.ReadImpDef(Rec: TOmfRecord_COMENT): Boolean;
begin
{todo: implement}
Result:=True;
end;
function TOmfObjInput.ReadExpDef(Rec: TOmfRecord_COMENT): Boolean;
begin
{todo: implement}
Result:=True;
end;
function TOmfObjInput.ImportOmfFixup(objdata: TObjData; objsec: TOmfObjSection; Fixup: TOmfSubRecord_FIXUP): Boolean;
var
reloc: TOmfRelocation;
@ -2222,7 +2236,17 @@ implementation
case FCOMENTRecord.CommentClass of
CC_OmfExtension:
begin
{todo: handle these as well...}
if Length(FCOMENTRecord.CommentString)>=1 then
begin
case Ord(FCOMENTRecord.CommentString[1]) of
CC_OmfExtension_IMPDEF:
if not ReadImpDef(FCOMENTRecord) then
exit;
CC_OmfExtension_EXPDEF:
if not ReadExpDef(FCOMENTRecord) then
exit;
end;
end;
end;
CC_LIBMOD:
begin