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

+ added an ImportLibraryList property to TOmfObjData

Browse Source 
git-svn-id: trunk@42541 -
This commit is contained in:
nickysn 2019-07-31 01:05:53 +00:00
parent 99f92ce5dd
commit d2371f4176
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ogomf.pas
View File

@ -101,9 +101,11 @@ interface
TOmfObjData = class(TObjData)
private
FMainSource: TPathStr;
FImportLibraryList:TFPHashObjectList;
class function CodeSectionName(const aname:string): string;
public
constructor create(const n:string);override;
destructor destroy;override;
function sectiontype2options(atype:TAsmSectiontype):TObjSectionOptions;override;
function sectiontype2align(atype:TAsmSectiontype):longint;override;
function sectiontype2class(atype:TAsmSectiontype):string;
@ -112,6 +114,7 @@ interface
function reffardatasection:TObjSection;
procedure writeReloc(Data:TRelocDataInt;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);override;
property MainSource: TPathStr read FMainSource;
property ImportLibraryList:TFPHashObjectList read FImportLibraryList;
end;
{ TOmfObjOutput }
@ -733,6 +736,13 @@ implementation
CObjSection:=TOmfObjSection;
createsectiongroup('DGROUP');
FMainSource:=current_module.mainsource;
FImportLibraryList:=TFPHashObjectList.Create(true);
end;
destructor TOmfObjData.destroy;
begin
FImportLibraryList.Free;
inherited destroy;
end;
function TOmfObjData.sectiontype2options(atype: TAsmSectiontype): TObjSectionOptions;