Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Free memory buffer after closing port

Browse source
This commit is contained in:
Justin Ethier 2016-08-25 23:58:40 -04:00
parent 4a2ef06b17
commit 1e2dac3026
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
runtime.c
View file

@ -2442,6 +2442,12 @@ object Cyc_io_close_port(void *data, object port)
if (stream) if (stream)
fclose(stream); fclose(stream);
((port_type *) port)->fp = NULL; ((port_type *) port)->fp = NULL;
if (((port_type *)port)->mem_buf != NULL){
free( ((port_type *)port)->mem_buf );
((port_type *)port)->mem_buf = NULL;
((port_type *)port)->mem_buf_len = 0;
}
} }
return port; return port;
} }