diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2012-07-01 18:47:45 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2012-07-01 18:47:45 +0000 |
| commit | f86de200f3bb2926b22cd4a35919fbc3d6918fb5 (patch) | |
| tree | 81aa91ba9d0e6078c51e740cb6d2c09294bb96fa /compiler/verbose.pas | |
| parent | 639127fd8b1488bf38c54f6cc52dab7a845c3e3e (diff) | |
| download | fpc-f86de200f3bb2926b22cd4a35919fbc3d6918fb5.tar.gz | |
+ be able to turn off warning -> error conversion on the command line (with -)
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@21754 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/verbose.pas')
| -rw-r--r-- | compiler/verbose.pas | 30 |
1 files changed, 27 insertions, 3 deletions
diff --git a/compiler/verbose.pas b/compiler/verbose.pas index 12f013ef60..a3ebef5e91 100644 --- a/compiler/verbose.pas +++ b/compiler/verbose.pas @@ -512,11 +512,35 @@ implementation i:=j-1; end; 'w','W' : - status.errorwarning:=true; + begin + if (i<length(s)) and (s[i+1]='-') then + begin + inc(i); + status.errorwarning:=false; + end + else + status.errorwarning:=true; + end; 'n','N' : - status.errornote:=true; + begin + if (i<length(s)) and (s[i+1]='-') then + begin + inc(i); + status.errornote:=false; + end + else + status.errornote:=true; + end; 'h','H' : - status.errorhint:=true; + begin + if (i<length(s)) and (s[i+1]='-') then + begin + inc(i); + status.errorhint:=false; + end + else + status.errorhint:=true; + end; end; end; end; |