paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-29 12:50:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ enable the IsDll flag in the NewExe header when creating dlls with the

Browse Source 
internal linker. Also make a SINGLEDATA (instead of MULTIPLEDATA) executable
  and entry points in this case.

git-svn-id: trunk@42637 -
This commit is contained in:
nickysn 2019-08-10 01:54:59 +00:00
parent 4cd8193c79
commit cc7e623802
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogomf.pas
View File

@ -4298,6 +4298,9 @@ cleanup:
var
i: Integer;
begin
if IsSharedLibrary then
Header.Flags:=Header.Flags+[nehfIsDLL,nehfSingleData]-[nehfMultipleData];
{ all exported symbols must have an ordinal }
AssignOrdinalsToAllExportSymbols;
@ -4458,7 +4461,9 @@ cleanup:
exesym:=TExeSymbol(ExeSymbolList.Find(sym.InternalName));
if not Assigned(exesym) then
internalerror(2019081006);
ent.Flags:=[neepfExported,neepfSingleData];
ent.Flags:=[neepfExported];
if IsSharedLibrary then
ent.Flags:=ent.Flags+[neepfSingleData];
ent.Offset:=exesym.ObjSymbol.address;
sec:=TNewExeSection(exesym.ObjSymbol.objsection.ExeSection);
ent.Segment:=sec.MemBasePos;