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

+ warn directive is different fom warnings and warning

Browse Source 
git-svn-id: trunk@1682 -
This commit is contained in:
florian 2005-11-06 20:09:28 +00:00
parent e90a6deebb
commit a6b00feb1e
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/scandir.pas
View File

@ -1020,6 +1020,23 @@ implementation
status.verbosity:=status.verbosity and (not V_Info); status.verbosity:=status.verbosity and (not V_Info);
end; end;
procedure dir_warn;
var
warning_string,state : string;
begin
current_scanner.skipspace;
warning_string:=current_scanner.readid;
if (upper(warning_string)='ON') then
begin
end
else if (upper(warning_string)='ON') then
else
begin
current_scanner.skipspace;
state:=current_scanner.readid;
end;
end;
procedure dir_warning; procedure dir_warning;
begin begin
do_message(scan_w_user_defined); do_message(scan_w_user_defined);
@ -1194,7 +1211,7 @@ implementation
AddDirective('VARSTRINGCHECKS',directive_all, @dir_varstringchecks); AddDirective('VARSTRINGCHECKS',directive_all, @dir_varstringchecks);
AddDirective('VERSION',directive_all, @dir_version); AddDirective('VERSION',directive_all, @dir_version);
AddDirective('WAIT',directive_all, @dir_wait); AddDirective('WAIT',directive_all, @dir_wait);
AddDirective('WARN',directive_all, @dir_warnings); AddDirective('WARN',directive_all, @dir_warn);
AddDirective('WARNING',directive_all, @dir_warning); AddDirective('WARNING',directive_all, @dir_warning);
AddDirective('WARNINGS',directive_all, @dir_warnings); AddDirective('WARNINGS',directive_all, @dir_warnings);
AddDirective('WEAKPACKAGEUNIT',directive_all, @dir_weakpackageunit); AddDirective('WEAKPACKAGEUNIT',directive_all, @dir_weakpackageunit);