paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 11:38:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix dotest.pp after the wasi->wasip1 rename and the addition of wasip1threads

Browse Source
This commit is contained in:
Nikolay Nikolov 2025-02-28 12:51:55 +02:00
parent 4ac20ba523
commit ac669830a2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/utils/dotest.pp
View File

@ -125,7 +125,7 @@ const
NoWorkingUnicodeSupport='$nounicode';
TargetHasNoWorkingUnicodeSupport = 'msdos';
NoWorkingThread='$nothread';
TargetHasNoWorkingThreadSupport = 'go32v2,msdos,wasi';
TargetHasNoWorkingThreadSupport = 'go32v2,msdos,wasip1';
procedure TranslateConfig(var AConfig: TConfig);
begin
@ -639,7 +639,7 @@ begin
end
else if LTarget='wii' then
ExeExt:='.dol'
else if LTarget='wasi' then
else if (LTarget='wasip1') or (LTarget='wasip1threads') then
ExeExt:='.wasm';
end;
@ -1132,7 +1132,7 @@ begin
if ioresult<>0 then
exit;
GetCompilerTarget;
is_wasi:=(CompilerTarget='wasi');
is_wasi:=(CompilerTarget='wasip1') or (CompilerTarget='wasip1threads');
while not eof(t) do
begin
readln(t,s);
@ -1443,7 +1443,7 @@ begin
ChDir(OldDir);
{$I+}
GetCompilerTarget;
if (CompilerTarget='wasi') then
if (CompilerTarget='wasip1') or (CompilerTarget='wasip1threads') then
begin
CheckTestExitCode(FullEXELogFile);
end;