pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
1997-01-31
1997-01-31 23:09:03 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
d72bae839bf4ba527698e0d96c2fab09a524399c (
11
lines) (+
9
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
better error messages added
Rev: src/lex.c:1.15
Rev: src/program.c:1.18
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
17
1997/01/
29
01
:09:
19
hubbe Exp $");
+
RCSID("$Id: program.c,v 1.
18
1997/01/
31
23
:09:
03
hubbe Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
1441:
fd=open(file_name->str,O_RDONLY); if(fd >= 0) break; if(errno != EINTR)
-
error("Couldn't open file '%s'.\n",file_name->str);
+
{
+
#ifdef
HAVE_STRERROR
+
error("Couldn't open file '%s'.
(%s)
\n",file_name->str
,strerror(errno
)
)
;
+
#else
+
error("Couldn't open file '%s'. (ERRNO=%d)\n",file_name->str,errno);
+
#endif
}
-
+
}
#define FILE_STATE #define PUSH