#ifdef FILE_CODING
#include "mule/file-coding.h"
#endif
+#include "ent/ent.h"
#ifdef HAVE_LIBGEN_H /* Must come before sysfile.h */
#include <libgen.h>
file_name_as_directory((char *)target, (char *)newdir, tlen);
}
- xstrncat((char *)target, (char *)nm, tlen);
+ xstrncat((char *)target, (char *)nm, tlen-1);
/* ASSERT (IS_DIRECTORY_SEP (target[0])) if not VMS */
O_RDONLY | OPEN_BINARY, 0);
if (ifd < 0) {
report_file_error("Opening input file", list1(filename));
- return;
+ goto end;
}
record_unwind_protect(close_file_unwind, make_int(ifd));
unbind_to(speccount, Qnil);
}
+end:
UNGCPRO;
return Qnil;
}