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

* fix regressions after previous patch by correctly parsing output, which does not contain '##WASI-EXITCODE:'

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-05-24 10:30:20 +03:00
parent a8b789d183
commit 0f4340e659
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tests/utils/dotest.pp
View File

@ -1042,13 +1042,16 @@ begin
if is_wasi then if is_wasi then
begin begin
i:=pos('##WASI-EXITCODE: ',s); i:=pos('##WASI-EXITCODE: ',s);
delete(s,1,i+17-1); if i>0 then
val(s,ExecuteResult,code); begin
if code>1 then delete(s,1,i+17-1);
val(copy(s,1,code-1),ExecuteResult,code); val(s,ExecuteResult,code);
if code=0 then if code>1 then
CheckTestExitCode:=true; val(copy(s,1,code-1),ExecuteResult,code);
break; if code=0 then
CheckTestExitCode:=true;
break;
end;
end end
else else
begin begin