mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 23:02:31 -08:00
Code Issues Projects Releases Packages Wiki Activity

In ecl_make_file_stream_from_fd(), when the argument was not a smm_..._file type, it was not corrected.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-06-19 17:07:12 +02:00
parent 012c701a29
commit 3fe33a08bf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/file.d
View file

@ -3178,8 +3178,6 @@ ecl_make_file_stream_from_fd(cl_object fname, int fd, enum ecl_smmode smm,
cl_fixnum byte_size, int flags, cl_object external_format)
{
cl_object stream = alloc_stream();
stream->stream.mode = (short)smm;
stream->stream.closed = 0;
switch(smm) {
case smm_input:
smm = smm_input_file;
@ -3200,6 +3198,8 @@ ecl_make_file_stream_from_fd(cl_object fname, int fd, enum ecl_smmode smm,
default:
FEerror("make_stream: wrong mode", 0);
}
stream->stream.mode = (short)smm;
stream->stream.closed = 0;
set_stream_elt_type(stream, byte_size, flags, external_format);
IO_FILE_FILENAME(stream) = fname; /* not really used */
IO_FILE_COLUMN(stream) = 0;