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

* improved error message

Browse Source
This commit is contained in:
florian 2004-01-26 20:34:24 +00:00
parent 8bea12a84d
commit 01adf563a9
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/utils/fpc.pp
View File

@ -167,7 +167,8 @@ program fpc;
try try
errorvalue:=ExecuteProcess(ppcbin,ppccommandline); errorvalue:=ExecuteProcess(ppcbin,ppccommandline);
except except
error(ppcbin+' can''t be executed'); on e : exception do
error(ppcbin+' can''t be executed, error message: '+e.message);
end; end;
if errorvalue<>0 then if errorvalue<>0 then
error(ppcbin+' can''t be executed'); error(ppcbin+' can''t be executed');
@ -175,7 +176,10 @@ program fpc;
end. end.
{ {
$Log$ $Log$
Revision 1.11 2004-01-05 22:41:20 florian Revision 1.12 2004-01-26 20:34:24 florian
* improved error message
Revision 1.11 2004/01/05 22:41:20 florian
* changed sysutils.exec to ExecuteProcess * changed sysutils.exec to ExecuteProcess
Revision 1.10 2004/01/03 09:20:45 marco Revision 1.10 2004/01/03 09:20:45 marco
@ -199,4 +203,4 @@ program fpc;
Revision 1.4 2002/05/18 13:34:27 peter Revision 1.4 2002/05/18 13:34:27 peter
* readded missing revisions * readded missing revisions
} }