paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 20:49:49 +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.MajorImageVersion:=dllmajor;
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
else
peoptheader.MajorSubsystemVersion:=4;
@ -2222,7 +2222,7 @@ const pemagic : array[0..3] of byte = (
peoptheader.SizeOfImage:=Align(CurrMemPos,SectionMemAlign);
peoptheader.SizeOfHeaders:=textExeSec.DataPos;
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
else
if apptype=app_gui then

4
compiler/systems/t_win.pas
View File

@ -1338,7 +1338,7 @@ implementation
RelocStr:='--base-file base.$$$';
if create_smartlink_sections then
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'
else
begin
@ -1607,7 +1607,7 @@ implementation
{ gui=2 }
{ cui=3 }
{ 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
else
case apptype of