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

+ implemented reading of omf extdef (external symbols) records

Browse Source 
git-svn-id: trunk@30973 -
This commit is contained in:
nickysn 2015-06-03 13:07:48 +00:00
parent db6093023b
commit d0d3cef868
1 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/ogomf.pas
View File

@ -122,13 +122,16 @@ interface
TOmfObjInput = class(TObjInput)
private
FLNames: TOmfOrderedNameCollection;
FExtDefs: TFPHashObjectList;
FRawRecord: TOmfRawRecord;
function ReadLNames(RawRec: TOmfRawRecord): Boolean;
function ReadSegDef(RawRec: TOmfRawRecord; objdata:TObjData): Boolean;
function ReadGrpDef(RawRec: TOmfRawRecord; objdata:TObjData): Boolean;
function ReadExtDef(RawRec: TOmfRawRecord; objdata:TObjData): Boolean;
property LNames: TOmfOrderedNameCollection read FLNames;
property ExtDefs: TFPHashObjectList read FExtDefs;
public
constructor create;override;
destructor destroy;override;
@ -1021,17 +1024,45 @@ implementation
Result:=True;
end;
function TOmfObjInput.ReadExtDef(RawRec: TOmfRawRecord; objdata: TObjData): Boolean;
var
ExtDefRec: TOmfRecord_EXTDEF;
ExtDefElem: TOmfExternalNameElement;
OldCount,NewCount,i: Integer;
objsym: TObjSymbol;
begin
Result:=False;
ExtDefRec:=TOmfRecord_EXTDEF.Create;
ExtDefRec.ExternalNames:=ExtDefs;
OldCount:=ExtDefs.Count;
ExtDefRec.DecodeFrom(RawRec);
NewCount:=ExtDefs.Count;
for i:=OldCount to NewCount-1 do
begin
ExtDefElem:=TOmfExternalNameElement(ExtDefs[i]);
objsym:=objdata.CreateSymbol(ExtDefElem.Name);
objsym.bind:=AB_EXTERNAL;
objsym.typ:=AT_FUNCTION;
objsym.objsection:=nil;
objsym.offset:=0;
objsym.size:=0;
end;
Result:=True;
end;
constructor TOmfObjInput.create;
begin
inherited create;
cobjdata:=TOmfObjData;
FLNames:=TOmfOrderedNameCollection.Create;
FExtDefs:=TFPHashObjectList.Create;
FRawRecord:=TOmfRawRecord.Create;
end;
destructor TOmfObjInput.destroy;
begin
FRawRecord.Free;
FExtDefs.Free;
FLNames.Free;
inherited destroy;
end;
@ -1057,6 +1088,7 @@ implementation
objdata:=CObjData.Create(InputFileName);
result:=false;
LNames.Clear;
ExtDefs.Clear;
FRawRecord.ReadFrom(FReader);
if not FRawRecord.VerifyChecksumByte then
begin
@ -1090,9 +1122,8 @@ implementation
{todo}
end;
RT_EXTDEF:
begin
{todo}
end;
if not ReadExtDef(FRawRecord,objdata) then
exit;
RT_PUBDEF,RT_PUBDEF32:
begin
{todo}