paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 08:30:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pas2jni: Fixed error handling of ppudump.

Browse Source 
git-svn-id: trunk@36296 -
This commit is contained in:
yury 2017-05-22 15:35:17 +00:00
parent 884cb758e7
commit 376174d7ac
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
utils/pas2jni/ppuparser.pas
View File

@ -169,7 +169,8 @@ begin
end;
end;
ec:=ReadProcessOutput(ppudumpprog, '-Fj' + LineEnding + un, s, err);
if Copy(s, 1, 1) <> '[' then begin
err:=Trim(err);
if (Copy(s, 1, 1) <> '[') and ((ec = 0) or (err = '')) then begin
ec:=-1;
err:='Output of ppudump is not in JSON format.' + LineEnding + 'Probably old version of ppudump has been used.';
end;