Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 08:47:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added new members for in-memory I/O

Browse source
This commit is contained in:
Justin Ethier 2017-08-19 18:04:39 -04:00
parent a02a1206be
commit 8b3bf050e8
3 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gc.c
View file

@ -495,6 +495,8 @@ char *gc_copy_obj(object dest, char *obj, gc_thread_data * thd)
hp->tok_buf_len = ((port_type *) obj)->tok_buf_len; hp->tok_buf_len = ((port_type *) obj)->tok_buf_len;
hp->mem_buf = ((port_type *)obj)->mem_buf; hp->mem_buf = ((port_type *)obj)->mem_buf;
hp->mem_buf_len = ((port_type *)obj)->mem_buf_len; hp->mem_buf_len = ((port_type *)obj)->mem_buf_len;
hp->str_bv_in_mem_buf = ((port_type *)obj)->str_bv_in_mem_buf;
hp->str_bv_in_mem_buf_len = ((port_type *)obj)->str_bv_in_mem_buf_len;
hp->read_len = ((port_type *)obj)->read_len; hp->read_len = ((port_type *)obj)->read_len;
return (char *)hp; return (char *)hp;
} }

2
include/cyclone/types.h
View file

@ -789,6 +789,8 @@ typedef struct {
char *mem_buf; char *mem_buf;
size_t mem_buf_len; size_t mem_buf_len;
unsigned short read_len; unsigned short read_len;
char *str_bv_in_mem_buf;
char *str_bv_in_mem_buf_len;
} port_type; } port_type;
#define CYC_IO_BUF_LEN 1024 #define CYC_IO_BUF_LEN 1024

5
runtime.c
View file

@ -3444,6 +3444,11 @@ object Cyc_io_close_port(void *data, object port)
((port_type *)port)->mem_buf = NULL; ((port_type *)port)->mem_buf = NULL;
((port_type *)port)->mem_buf_len = 0; ((port_type *)port)->mem_buf_len = 0;
} }
if (((port_type *)port)->str_bv_in_mem_buf != NULL){
free( ((port_type *)port)->str_bv_in_mem_buf );
((port_type *)port)->str_bv_in_mem_buf = NULL;
((port_type *)port)->str_bv_in_mem_buf_len = 0;
}
if (((port_type *)port)->tok_buf != NULL){ if (((port_type *)port)->tok_buf != NULL){
free( ((port_type *)port)->tok_buf ); free( ((port_type *)port)->tok_buf );
((port_type *)port)->tok_buf = NULL; ((port_type *)port)->tok_buf = NULL;