Mercurial > emacs
comparison src/unexaix.c @ 8956:390019f3ab08
(report_error): Include reason in error message.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 21 Sep 1994 00:59:22 +0000 |
| parents | 087c9b909feb |
| children | bd477b542ca4 |
comparison
equal
deleted
inserted
replaced
| 8955:14951db9444a | 8956:390019f3ab08 |
|---|---|
| 235 #ifndef ADDR_CORRECT /* Let m-*.h files override this definition */ | 235 #ifndef ADDR_CORRECT /* Let m-*.h files override this definition */ |
| 236 #define ADDR_CORRECT(x) ((char *)(x) - (char*)0) | 236 #define ADDR_CORRECT(x) ((char *)(x) - (char*)0) |
| 237 #endif | 237 #endif |
| 238 | 238 |
| 239 #ifdef emacs | 239 #ifdef emacs |
| 240 #include "lisp.h" | |
| 240 | 241 |
| 241 static | 242 static |
| 242 report_error (file, fd) | 243 report_error (file, fd) |
| 243 char *file; | 244 char *file; |
| 244 int fd; | 245 int fd; |
| 245 { | 246 { |
| 246 if (fd) | 247 if (fd) |
| 247 close (fd); | 248 close (fd); |
| 248 error ("Failure operating on %s", file); | 249 report_file_error ("Cannot unexec", Fcons (build_string (file), Qnil)); |
| 249 } | 250 } |
| 250 #endif /* emacs */ | 251 #endif /* emacs */ |
| 251 | 252 |
| 252 #define ERROR0(msg) report_error_1 (new, msg, 0, 0); return -1 | 253 #define ERROR0(msg) report_error_1 (new, msg, 0, 0); return -1 |
| 253 #define ERROR1(msg,x) report_error_1 (new, msg, x, 0); return -1 | 254 #define ERROR1(msg,x) report_error_1 (new, msg, x, 0); return -1 |