paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 21:11:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ppudump: Write errors to StdErr and write warnings to StdErr when output to JSON.

Browse Source 
git-svn-id: trunk@24406 -
This commit is contained in:
yury 2013-05-03 11:12:15 +00:00
parent 3a8ed11e23
commit 44a0b61224
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/utils/ppuutils/ppudump.pp
View File

@ -341,8 +341,19 @@ end;
Procedure WriteError(const S : string);
Begin
system.Writeln(S);
SetHasErrors;
system.Writeln(StdErr, S);
SetHasErrors;
End;
Procedure WriteWarning(const S : string);
var
ss: string;
Begin
ss:='!! Warning: ' + S;
if nostdout then
system.Writeln(StdErr, ss)
else
system.Writeln(ss);
End;
function Unknown(const st : string; val :longint) : string;
@ -2659,7 +2670,7 @@ begin
orddef.OrdType:=otCurrency;
orddef.Size:=8;
end;
else writeln(['!! Warning: Invalid base type ',b]);
else WriteWarning('Invalid base type: ' + IntToStr(b));
end;
iexpr:=getexprint;
orddef.RangeLow:=iexpr.svalue;
@ -2868,7 +2879,7 @@ begin
odt_objccategory : writeln('objccategory');
odt_javaclass : writeln('Java class');
odt_interfacejava : writeln('Java interface');
else writeln(['!! Warning: Invalid object type ',b]);
else WriteWarning('Invalid object type: ' + IntToStr(b));
end;
case tobjecttyp(b) of
odt_class, odt_cppclass, odt_objcclass, odt_javaclass:
@ -3034,7 +3045,7 @@ begin
vt_olevariant :
writeln('OLE');
else
writeln(['!! Warning: Invalid varianttype ',b]);
WriteWarning('Invalid varianttype: ' + IntToStr(b));
end;
end;