浏览代码

* improved error message

florian 21 年之前
父节点
当前提交
01adf563a9
共有 1 个文件被更改,包括 7 次插入3 次删除
  1. 7 3
      compiler/utils/fpc.pp

+ 7 - 3
compiler/utils/fpc.pp

@@ -167,7 +167,8 @@ program fpc;
      try
        errorvalue:=ExecuteProcess(ppcbin,ppccommandline);
      except
-       error(ppcbin+' can''t be executed');
+       on e : exception do
+         error(ppcbin+' can''t be executed, error message: '+e.message);
      end;
      if errorvalue<>0 then
        error(ppcbin+' can''t be executed');
@@ -175,7 +176,10 @@ program fpc;
   end.
 {
   $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
 
   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
     * readded missing revisions
 
-}
+}