summaryrefslogtreecommitdiff
path: root/mips/compiler/verbose.pas
diff options
context:
space:
mode:
Diffstat (limited to 'mips/compiler/verbose.pas')
-rw-r--r--mips/compiler/verbose.pas30
1 files changed, 27 insertions, 3 deletions
diff --git a/mips/compiler/verbose.pas b/mips/compiler/verbose.pas
index 12f013ef60..a3ebef5e91 100644
--- a/mips/compiler/verbose.pas
+++ b/mips/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;