X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/bd358779861f265a7acff31ead40172735af693e..8b55eeeb70be4b4ff3dd4694013bdb1a9f668bc6:/src/unexmacosx.c
diff --git a/src/unexmacosx.c b/src/unexmacosx.c
index 8d4e636fa5..87848b012b 100644
--- a/src/unexmacosx.c
+++ b/src/unexmacosx.c
@@ -97,6 +97,7 @@ along with GNU Emacs. If not, see . */
#undef free
#include "unexec.h"
+#include "lisp.h"
#include
#include
@@ -1322,16 +1323,16 @@ unexec (const char *outfile, const char *infile)
unexec_error ("Unexec from a dumped executable is not supported.");
pagesize = getpagesize ();
- infd = open (infile, O_RDONLY, 0);
+ infd = emacs_open (infile, O_RDONLY, 0);
if (infd < 0)
{
unexec_error ("cannot open input file `%s'", infile);
}
- outfd = open (outfile, O_WRONLY | O_TRUNC | O_CREAT, 0755);
+ outfd = emacs_open (outfile, O_WRONLY | O_TRUNC | O_CREAT, 0755);
if (outfd < 0)
{
- close (infd);
+ emacs_close (infd);
unexec_error ("cannot open output file `%s'", outfile);
}
@@ -1345,7 +1346,7 @@ unexec (const char *outfile, const char *infile)
dump_it ();
- close (outfd);
+ emacs_close (outfd);
}