paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 06:31:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* patch from yury to warn about wrong warning of unsupported apptype

Browse Source 
git-svn-id: trunk@1321 -
This commit is contained in:
florian 2005-10-08 08:17:35 +00:00
parent ab3bc45fa4
commit f916ea20b3
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/scandir.pas
View File

@ -223,7 +223,7 @@ implementation
var var
hs : string; hs : string;
begin begin
if not (target_info.system in [system_i386_win32,system_i386_os2, if not (target_info.system in system_all_windows + [system_i386_os2,
system_i386_emx, system_powerpc_macos]) then system_i386_emx, system_powerpc_macos]) then
Message(scan_w_app_type_not_support); Message(scan_w_app_type_not_support);
if not current_module.in_global then if not current_module.in_global then

3
compiler/systems.pas
View File

@ -325,6 +325,9 @@ interface
system_x86_6432_linux]; system_x86_6432_linux];
{ all real windows systems, no cripple ones like wince, wdosx et. al. } { all real windows systems, no cripple ones like wince, wdosx et. al. }
system_windows : set of tsystem = [system_i386_win32,system_x86_64_win64,system_ia64_win64]; system_windows : set of tsystem = [system_i386_win32,system_x86_64_win64,system_ia64_win64];
{ all windows systems }
system_all_windows : set of tsystem = [system_i386_win32,system_x86_64_win64,system_ia64_win64,
system_arm_wince,system_i386_wince];
cpu2str : array[TSystemCpu] of string = cpu2str : array[TSystemCpu] of string =
('','i386','m68k','alpha','powerpc','sparc','vm','ia64','x86_64', ('','i386','m68k','alpha','powerpc','sparc','vm','ia64','x86_64',