paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 00:08:12 +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
begin
i:=pos('##WASI-EXITCODE: ',s);
delete(s,1,i+17-1);
val(s,ExecuteResult,code);
if code>1 then
val(copy(s,1,code-1),ExecuteResult,code);
if code=0 then
CheckTestExitCode:=true;
break;
if i>0 then
begin
delete(s,1,i+17-1);
val(s,ExecuteResult,code);
if code>1 then
val(copy(s,1,code-1),ExecuteResult,code);
if code=0 then
CheckTestExitCode:=true;
break;
end;
end
else
begin