luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

When using an intermediate temporary stream, copy the behaviour flags from the original stream.

Browse source 
[INTERPRETER]
* BUG: When using an intermediate temporary stream, copy the behaviour flags from the original stream.
This commit is contained in:
Benoît Minisini 2023-03-24 21:26:45 +01:00
parent 7cd804982b
commit 2f81de1876
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
main/gbx/gbx_stream.c
View file

@ -1050,6 +1050,8 @@ static int read_length(STREAM *stream)
static STREAM *enter_temp_stream(STREAM *stream) static STREAM *enter_temp_stream(STREAM *stream)
{ {
STREAM *temp;
if (!_temp_stream || stream != CSTREAM_TO_STREAM(_temp_stream)) if (!_temp_stream || stream != CSTREAM_TO_STREAM(_temp_stream))
{ {
_temp_save = stream; _temp_save = stream;
@ -1057,7 +1059,14 @@ static STREAM *enter_temp_stream(STREAM *stream)
OBJECT_UNREF(_temp_stream); OBJECT_UNREF(_temp_stream);
_temp_stream = OBJECT_new(CLASS_File, NULL, NULL); _temp_stream = OBJECT_new(CLASS_File, NULL, NULL);
STREAM_open(CSTREAM_TO_STREAM(_temp_stream), NULL, GB_ST_STRING | GB_ST_WRITE);
temp = CSTREAM_TO_STREAM(_temp_stream);
STREAM_open(temp, NULL, GB_ST_STRING | GB_ST_WRITE);
temp->common.swap = stream->common.swap;
temp->common.eol = stream->common.eol;
temp->common.null_terminated = stream->common.null_terminated;
} }
_temp_level++; _temp_level++;