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

* made dir_warn code more clear, no implementation yet

Browse Source 
git-svn-id: trunk@4200 -
This commit is contained in:
florian 2006-07-14 21:45:21 +00:00
parent 9e801eb048
commit 57f097a710
4 changed files with 322 additions and 310 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/msg/errore.msg
View File

@ -341,6 +341,8 @@ scan_w_minstacksize_not_support=02077_W_MINSTACKSIZE is not supported by the tar
% The \var{\{\$MINSTACKSIZE\}} directive is not supported by the target OS
scan_w_maxstacksize_not_support=02078_W_MAXSTACKSIZE is not supported by the target OS
% The \var{\{\$MAXSTACKSIZE\}} directive is not supported by the target OS
scanner_e_illegal_warn_state=02079_E_Illegal state for $WARN directive
% Only ON and OFF can be used as state with a $warn compiler directive
% \end{description}
#
# Parser

5
compiler/msgidx.inc
View File

@ -99,6 +99,7 @@ const
scan_w_imagebase_not_support=02076;
scan_w_minstacksize_not_support=02077;
scan_w_maxstacksize_not_support=02078;
scanner_e_illegal_warn_state=02079;
parser_e_syntax_error=03000;
parser_e_dont_nest_interrupt=03004;
parser_w_proc_directive_ignored=03005;
@ -684,9 +685,9 @@ const
option_info=11024;
option_help_pages=11025;
MsgTxtSize = 40246;
MsgTxtSize = 40288;
MsgIdxMax : array[1..20] of longint=(
24,79,220,61,62,47,100,22,135,60,
24,80,220,61,62,47,100,22,135,60,
41,1,1,1,1,1,1,1,1,1
);

605
compiler/msgtxt.inc
View File

File diff suppressed because it is too large Load Diff

20
compiler/scandir.pas
View File

@ -1094,21 +1094,27 @@ implementation
status.verbosity:=status.verbosity and (not V_Info);
end;
{ delphi compatible warn directive:
$warn <identifier> on
$warn <identifier> off
not implemented yet
}
procedure dir_warn;
var
warning_string,state : string;
begin
current_scanner.skipspace;
warning_string:=current_scanner.readid;
if (upper(warning_string)='ON') then
current_scanner.skipspace;
state:=current_scanner.readid;
if (upper(state)='ON') then
begin
end
else if (upper(warning_string)='ON') then
else
begin
current_scanner.skipspace;
state:=current_scanner.readid;
end;
else if (upper(state)='OFF') then
begin
end
else
Message1(scanner_e_illegal_warn_state,state);
end;
procedure dir_warning;