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

* Use system_wince in all places.

Browse Source 
git-svn-id: trunk@11429 -
This commit is contained in:
yury 2008-07-20 22:39:19 +00:00
parent 0e17d9e4d9
commit efb280e0e9
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ogcoff.pas
View File

@ -2213,7 +2213,7 @@ const pemagic : array[0..3] of byte = (
peoptheader.MinorOperatingSystemVersion:=0; peoptheader.MinorOperatingSystemVersion:=0;
peoptheader.MajorImageVersion:=dllmajor; peoptheader.MajorImageVersion:=dllmajor;
peoptheader.MinorImageVersion:=dllminor; peoptheader.MinorImageVersion:=dllminor;
if target_info.system in [system_arm_wince,system_i386_wince] then if target_info.system in system_wince then
peoptheader.MajorSubsystemVersion:=3 peoptheader.MajorSubsystemVersion:=3
else else
peoptheader.MajorSubsystemVersion:=4; peoptheader.MajorSubsystemVersion:=4;
@ -2222,7 +2222,7 @@ const pemagic : array[0..3] of byte = (
peoptheader.SizeOfImage:=Align(CurrMemPos,SectionMemAlign); peoptheader.SizeOfImage:=Align(CurrMemPos,SectionMemAlign);
peoptheader.SizeOfHeaders:=textExeSec.DataPos; peoptheader.SizeOfHeaders:=textExeSec.DataPos;
peoptheader.CheckSum:=0; peoptheader.CheckSum:=0;
if target_info.system in [system_arm_wince,system_i386_wince] then if target_info.system in system_wince then
peoptheader.Subsystem:=PE_SUBSYSTEM_WINDOWS_CE_GUI peoptheader.Subsystem:=PE_SUBSYSTEM_WINDOWS_CE_GUI
else else
if apptype=app_gui then if apptype=app_gui then

4
compiler/systems/t_win.pas
View File

@ -1338,7 +1338,7 @@ implementation
RelocStr:='--base-file base.$$$'; RelocStr:='--base-file base.$$$';
if create_smartlink_sections then if create_smartlink_sections then
GCSectionsStr:='--gc-sections'; GCSectionsStr:='--gc-sections';
if target_info.system in [system_arm_wince,system_i386_wince] then if target_info.system in system_wince then
AppTypeStr:='--subsystem wince' AppTypeStr:='--subsystem wince'
else else
begin begin
@ -1607,7 +1607,7 @@ implementation
{ gui=2 } { gui=2 }
{ cui=3 } { cui=3 }
{ wincegui=9 } { wincegui=9 }
if target_info.system in [system_arm_wince,system_i386_wince] then if target_info.system in system_wince then
peoptheader.Subsystem:=9 peoptheader.Subsystem:=9
else else
case apptype of case apptype of