mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 07:09:23 +02:00
+ emit an error message if the ihxutil is not found when compiling an ZX Spectrum executable with the internal linker
+ emit a 'tried' message (fpc -vt) when using ihxutil for ZX Spectrum
This commit is contained in:
parent
9f22623459
commit
3c91a7c01e
@ -441,8 +441,13 @@ function TInternalLinkerZXSpectrum.postprocessexecutable(const fn: string): bool
|
|||||||
|
|
||||||
if Found then
|
if Found then
|
||||||
begin
|
begin
|
||||||
|
Message1(exec_t_using_util,FoundBin);
|
||||||
exitcode:=RequotedExecuteProcess(foundbin,' '+fn);
|
exitcode:=RequotedExecuteProcess(foundbin,' '+fn);
|
||||||
result:=exitcode<>0;
|
result:=exitcode<>0;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Message1(exec_e_util_not_found,utilexe);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user