paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 10:49:31 +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

19
compiler/scandir.pas
View File

@ -1020,6 +1020,23 @@ implementation
status.verbosity:=status.verbosity and (not V_Info);
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;
begin
do_message(scan_w_user_defined);
@ -1194,7 +1211,7 @@ implementation
AddDirective('VARSTRINGCHECKS',directive_all, @dir_varstringchecks);
AddDirective('VERSION',directive_all, @dir_version);
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('WARNINGS',directive_all, @dir_warnings);
AddDirective('WEAKPACKAGEUNIT',directive_all, @dir_weakpackageunit);