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

* support subsystem

Browse Source 
* fixed stab
  * always keep .rsrc section

git-svn-id: trunk@3089 -
This commit is contained in:
peter 2006-03-30 11:24:17 +00:00
parent 5376d2d570
commit 7f4b051f99
3 changed files with 324 additions and 285 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/link.pas
View File

@ -814,9 +814,7 @@ end;
else if keyword='ZEROS' then
ExeOutput.Order_Zeros(para)
else if keyword='SYMBOL' then
ExeOutput.Order_Symbol(para)
else if keyword='STABS' then
ExeOutput.Order_Stabs;
ExeOutput.Order_Symbol(para);
hp:=tstringlistitem(hp.next);
end;
exeoutput.Order_End;
@ -909,6 +907,7 @@ end;
{ Create .exe sections and add .o sections }
ParseScript_Order;
exeoutput.RemoveUnreferencedSections;
exeoutput.MergeStabs;
exeoutput.RemoveEmptySections;
if ErrorCount>0 then
goto myexit;

580
compiler/ogbase.pas
View File

File diff suppressed because it is too large Load Diff

24
compiler/ogcoff.pas
View File

@ -664,7 +664,8 @@ const win32stub : array[0..131] of byte=(
include(aoptions,oso_debug);
if flags and PE_SCN_CNT_UNINITIALIZED_DATA=0 then
include(aoptions,oso_data);
if flags and PE_SCN_LNK_REMOVE<>0 then
if (flags and PE_SCN_LNK_REMOVE<>0) or
(flags and PE_SCN_MEM_DISCARDABLE<>0) then
include(aoptions,oso_noload)
else
include(aoptions,oso_load);
@ -1658,6 +1659,10 @@ const win32stub : array[0..131] of byte=(
djdecodesechdrflags(secname,sechdr.flags);
secalign:=sizeof(aint);
end;
{$warning TODO idata keep can maybe replaced with grouping of text and idata}
if (Copy(secname,1,6)='.idata') or
(Copy(secname,1,6)='.rsrc') then
include(secoptions,oso_keep);
objsec:=TCoffObjSection(createsection(secname,secalign,secoptions));
FSecTbl^[i]:=objsec;
if not win32 then
@ -1667,9 +1672,6 @@ const win32stub : array[0..131] of byte=(
objsec.coffrelocpos:=sechdr.relocpos;
objsec.datapos:=sechdr.datapos;
objsec.Size:=sechdr.dataSize;
{$warning TODO idata keep can maybe replaced with grouping of text and idata}
if Copy(objsec.name,1,6)='.idata' then
include(objsec.secoptions,oso_keep);
end;
{ ObjSymbols }
Reader.Seek(header.sympos);
@ -1975,8 +1977,13 @@ const win32stub : array[0..131] of byte=(
peoptheader.SizeOfImage:=Align(CurrMemPos,SectionMemAlign);
peoptheader.SizeOfHeaders:=textExeSec.DataPos;
peoptheader.CheckSum:=0;
{$warning TODO GUI/CUI Subsystem}
peoptheader.Subsystem:=3;
if target_info.system in [system_arm_wince,system_i386_wince] then
peoptheader.Subsystem:=PE_SUBSYSTEM_WINDOWS_CE_GUI
else
if apptype=app_gui then
peoptheader.Subsystem:=PE_SUBSYSTEM_WINDOWS_GUI
else
peoptheader.Subsystem:=PE_SUBSYSTEM_WINDOWS_CUI;
peoptheader.DllCharacteristics:=0;
peoptheader.SizeOfStackReserve:=stacksize;
peoptheader.SizeOfStackCommit:=$1000;
@ -2332,7 +2339,10 @@ const win32stub : array[0..131] of byte=(
with LinkScript do
begin
Concat('READUNITOBJECTS');
Concat('ENTRYNAME _mainCRTStartup');
if apptype=app_gui then
Concat('ENTRYNAME _WinMainCRTStartup')
else
Concat('ENTRYNAME _mainCRTStartup');
Concat('HEADER');
Concat('EXESECTION .text');
Concat(' OBJSECTION .text*');