Mercurial > hg > xemacs-beta

comparison src/unexec.c @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 84b14dcb0985
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
364 #ifdef emacs 364 #ifdef emacs
365 365
366 #include "lisp.h" 366 #include "lisp.h"
367 367
368 static void 368 static void
369 report_error (file, fd) 369 report_error (const char *file, int fd)
370 CONST char *file;
371 int fd;
372 { 370 {
373 if (fd) 371 if (fd)
374 close (fd); 372 close (fd);
375 report_file_error ("Cannot unexec", 373 report_file_error ("Cannot unexec",
376 Fcons (build_ext_string (file, FORMAT_FILENAME), Qnil)); 374 Fcons (build_ext_string (file, Qfile_name), Qnil));
377 } 375 }
378 #endif /* emacs */ 376 #endif /* emacs */
379 377
380 #define ERROR0(msg) report_error_1 (new, msg, 0, 0); return -1 378 #define ERROR0(msg) report_error_1 (new, msg, 0, 0); return -1
381 #define ERROR1(msg,x) report_error_1 (new, msg, x, 0); return -1 379 #define ERROR1(msg,x) report_error_1 (new, msg, x, 0); return -1