@@ -315,6 +315,7 @@ Const
DLLExt = '.dll';
AIXSharedLibExt = '.a';
ExeExt = '.exe';
+ WasiExeExt = '.wasm';
DbgExt = '.dbg';
ZipExt = '.zip';
FpmkExt = '.fpm';
@@ -2958,6 +2959,8 @@ function AddProgramExtension(const ExecutableName: string; AOS : TOS): string;
begin
if AOS in [Go32v2,Win32,Win64,Wince,OS2,EMX,Watcom] then
Result:=ExecutableName+ExeExt
+ else if AOS in [wasip1,wasip1threads,wasip2] then
+ Result:=ExecutableName+WasiExeExt
else
Result:=ExecutableName;
end;