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

* properly read +/- for the warn directive, resolves #41105

Browse Source
This commit is contained in:
florian 2025-02-01 21:39:00 +01:00
parent 6ccad3dc4e
commit 56fa196b03
2 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scandir.pas
View File

@ -1801,6 +1801,12 @@ unit scandir;
current_scanner.skipspace; current_scanner.skipspace;
ident:=current_scanner.readid; ident:=current_scanner.readid;
current_scanner.skipspace; current_scanner.skipspace;
if c in ['+','-'] then
begin
state:=c;
current_scanner.readchar;
end
else
state:=current_scanner.readid; state:=current_scanner.readid;
{ support both delphi and fpc switches } { support both delphi and fpc switches }

22
tests/webtbs/tw41105.pp Normal file
View File

@ -0,0 +1,22 @@
program Project1;
// id
// {$WARN 5023 ON} // compiles
// {$WARN 5023 OFF} // compiles
{$WARN 5023 +} // ERROR
{$WARN 5023 -} // ERROR
{$WARN 5023+} // ERROR
{$WARN 5023-} // ERROR
{$WARN 5023 ERROR} // compiles
// name
{$WARN NO_RETVAL ON} // compiles
{$WARN NO_RETVAL OFF} // compiles
{$WARN NO_RETVAL +} // ERROR
{$WARN NO_RETVAL -} // ERROR
{$WARN NO_RETVAL+} // ERROR
{$WARN NO_RETVAL-} // ERROR
{$WARN NO_RETVAL ERROR} // compiles
begin
end.