paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 22:09:28 +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
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.
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}
#
# Parser

5
compiler/msgidx.inc
View File

@ -88,6 +88,7 @@ const
scan_e_utf8_malformed=02070;
scan_c_switching_to_utf8=02071;
scan_e_compile_time_typeerror=02072;
scan_n_app_type_not_support=02073;
parser_e_syntax_error=03000;
parser_e_dont_nest_interrupt=03004;
parser_w_proc_directive_ignored=03005;
@ -663,9 +664,9 @@ const
option_info=11024;
option_help_pages=11025;
MsgTxtSize = 39282;
MsgTxtSize = 39335;
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
);

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