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

[INTERPRETER]

Browse source 
* BUG: INPUT does not leak memory anymore.


git-svn-id: svn://localhost/gambas/trunk@4545 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2012-03-13 02:39:10 +00:00
parent f2c7ad7008
commit fc62ec2a34
1 changed files with 21 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

35
main/gbx/gbx_subr_file.c
View file

@ -275,23 +275,30 @@ void SUBR_input(ushort code)
stream = get_stream(PARAM, TRUE);
if (stream)
{
addr = STREAM_input(stream);
VALUE_from_string(RETURN, addr, STRING_length(addr));
if (RETURN->type == T_NULL)
{
RETURN->type = T_STRING;
RETURN->_string.addr = addr;
RETURN->_string.start = 0;
RETURN->_string.len = STRING_length(addr);
}
else
addr = NULL;
if (NPARAM == 1)
{
SP--;
if (!TYPE_is_integer(SP->type))
RELEASE_OBJECT(SP);
}
if (addr)
{
SP->type = T_STRING;
SP->_string.addr = addr;
SP->_string.start = 0;
SP->_string.len = STRING_length(addr);
}
else
RETURN->type = T_NULL;
SUBR_LEAVE();
{
SP->type = T_NULL;
}
SP++;
}