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

+ $WARN directive implemented fixes bug #3939

Browse Source 
git-svn-id: trunk@65 -
This commit is contained in:
florian 2005-05-22 11:57:24 +00:00
parent 8bb7b7ea08
commit d01bde1a83
3 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6109,6 +6109,7 @@ tests/webtbs/tw3893.pp svneol=native#text/plain
tests/webtbs/tw3898.pp svneol=native#text/plain
tests/webtbs/tw3899.pp svneol=native#text/plain
tests/webtbs/tw3900.pp svneol=native#text/plain
tests/webtbs/tw3939.pp svneol=native#text/plain
tests/webtbs/tw3953a.pp svneol=native#text/plain
tests/webtbs/tw3953b.pp svneol=native#text/plain
tests/webtbs/tw3967.pp svneol=native#text/plain

1
compiler/scandir.pas
View File

@ -1163,6 +1163,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('WARNING',directive_all, @dir_warning);
AddDirective('WARNINGS',directive_all, @dir_warnings);
AddDirective('WEAKPACKAGEUNIT',directive_all, @dir_weakpackageunit);

7
tests/webtbs/tw3939.pp Normal file
View File

@ -0,0 +1,7 @@
{$warn+}
{$warnings-}
{$warn-}
{$warnings+}
begin
end.