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

* apptype causes only a note on system not supporting apptype

Browse Source 
git-svn-id: trunk@1827 -
This commit is contained in:
florian 2005-11-26 21:54:15 +00:00
parent 9fb44da96b
commit 1e4e857719
4 changed files with 348 additions and 334 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/msg/errore.msg
View File

@ -320,6 +320,8 @@ scan_c_switching_to_utf8=02071_C_UTF-8 signature found, using UTF-8 encoding
% so it interprets it as an UTF-8 file % so it interprets it as an UTF-8 file
scan_e_compile_time_typeerror=02072_E_Compile time expression: Wanted $1 but got $2 at $3 scan_e_compile_time_typeerror=02072_E_Compile time expression: Wanted $1 but got $2 at $3
% Type check of a compile time expression failed. % Type check of a compile time expression failed.
scan_n_app_type_not_support=02073_N_APPTYPE is not supported by the target OS
% The \var{\{\$APPTYPE\}} directive is supported by certain operating systems only.
% \end{description} % \end{description}
# #
# Parser # Parser

5
compiler/msgidx.inc
View File

@ -88,6 +88,7 @@ const
scan_e_utf8_malformed=02070; scan_e_utf8_malformed=02070;
scan_c_switching_to_utf8=02071; scan_c_switching_to_utf8=02071;
scan_e_compile_time_typeerror=02072; scan_e_compile_time_typeerror=02072;
scan_n_app_type_not_support=02073;
parser_e_syntax_error=03000; parser_e_syntax_error=03000;
parser_e_dont_nest_interrupt=03004; parser_e_dont_nest_interrupt=03004;
parser_w_proc_directive_ignored=03005; parser_w_proc_directive_ignored=03005;
@ -663,9 +664,9 @@ const
option_info=11024; option_info=11024;
option_help_pages=11025; option_help_pages=11025;
MsgTxtSize = 39282; MsgTxtSize = 39335;
MsgIdxMax : array[1..20] of longint=( MsgIdxMax : array[1..20] of longint=(
19,73,218,59,59,47,100,20,135,60, 19,74,218,59,59,47,100,20,135,60,
40,1,1,1,1,1,1,1,1,1 40,1,1,1,1,1,1,1,1,1
); );

631
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

44
compiler/scandir.pas
View File

@ -245,26 +245,34 @@ implementation
begin begin
if not (target_info.system in system_all_windows + [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); begin
if not current_module.in_global then if m_delphi in aktmodeswitches then
Message(scan_w_switch_is_global) Message(scan_n_app_type_not_support)
else
Message(scan_w_app_type_not_support);
end
else else
begin begin
current_scanner.skipspace; if not current_module.in_global then
hs:=current_scanner.readid; Message(scan_w_switch_is_global)
if hs='GUI' then else
apptype:=app_gui begin
else if hs='CONSOLE' then current_scanner.skipspace;
apptype:=app_cui hs:=current_scanner.readid;
else if (hs='NATIVE') and (target_info.system in system_windows) then if hs='GUI' then
apptype:=app_native apptype:=app_gui
else if (hs='FS') and (target_info.system in [system_i386_os2, else if hs='CONSOLE' then
system_i386_emx]) then apptype:=app_cui
apptype:=app_fs else if (hs='NATIVE') and (target_info.system in system_windows) then
else if (hs='TOOL') and (target_info.system in [system_powerpc_macos]) then apptype:=app_native
apptype:=app_tool else if (hs='FS') and (target_info.system in [system_i386_os2,
else system_i386_emx]) then
Message1(scan_w_unsupported_app_type,hs); apptype:=app_fs
else if (hs='TOOL') and (target_info.system in [system_powerpc_macos]) then
apptype:=app_tool
else
Message1(scan_w_unsupported_app_type,hs);
end;
end; end;
end; end;