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

+ added method TOmfObjData.AddImportSymbol, which adds symbols, imported from an

Browse Source 
external dll to TOmfObjData.ImportLibraryList (similar to
  TInternalLinker.AddImportSymbol)

git-svn-id: trunk@42542 -
This commit is contained in:
nickysn 2019-07-31 01:12:00 +00:00
parent d2371f4176
commit fcb6072fae
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ogomf.pas
View File

@ -113,6 +113,7 @@ interface
function createsection(atype:TAsmSectionType;const aname:string='';aorder:TAsmSectionOrder=secorder_default):TObjSection;override; function createsection(atype:TAsmSectionType;const aname:string='';aorder:TAsmSectionOrder=secorder_default):TObjSection;override;
function reffardatasection:TObjSection; function reffardatasection:TObjSection;
procedure writeReloc(Data:TRelocDataInt;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);override; procedure writeReloc(Data:TRelocDataInt;len:aword;p:TObjSymbol;Reloctype:TObjRelocationType);override;
procedure AddImportSymbol(const libname,symname,symmangledname:TCmdStr;OrdNr: longint;isvar:boolean);
property MainSource: TPathStr read FMainSource; property MainSource: TPathStr read FMainSource;
property ImportLibraryList:TFPHashObjectList read FImportLibraryList; property ImportLibraryList:TFPHashObjectList read FImportLibraryList;
end; end;
@ -918,6 +919,20 @@ implementation
CurrObjSec.write(data,len); CurrObjSec.write(data,len);
end; end;
procedure TOmfObjData.AddImportSymbol(const libname, symname,
symmangledname: TCmdStr; OrdNr: longint; isvar: boolean);
var
ImportLibrary : TImportLibrary;
ImportSymbol : TFPHashObject;
begin
ImportLibrary:=TImportLibrary(ImportLibraryList.Find(libname));
if not assigned(ImportLibrary) then
ImportLibrary:=TImportLibrary.Create(ImportLibraryList,libname);
ImportSymbol:=TFPHashObject(ImportLibrary.ImportSymbolList.Find(symname));
if not assigned(ImportSymbol) then
ImportSymbol:=TImportSymbol.Create(ImportLibrary.ImportSymbolList,symname,symmangledname,OrdNr,isvar);
end;
{**************************************************************************** {****************************************************************************
TOmfObjOutput TOmfObjOutput
****************************************************************************} ****************************************************************************}