Pārlūkot izejas kodu

* improved error message

florian 21 gadi atpakaļ
vecāks
revīzija
01adf563a9
1 mainītis faili ar 7 papildinājumiem un 3 dzēšanām
  1. 7 3
      compiler/utils/fpc.pp

+ 7 - 3
compiler/utils/fpc.pp

@@ -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
 
 
-}
+}