lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Replace fl_readstate_t with struct

This commit is contained in:
Lassi Kortela 2019-08-09 19:26:42 +03:00
parent b561f9d4b0
commit 262ace1efd
3 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
c/flisp.c
View File

@ -127,9 +127,9 @@ static value_t apply_cl(uint32_t nargs);
static value_t *alloc_words(int n);
static value_t relocate(value_t v);
static fl_readstate_t *readstate = NULL;
static struct fl_readstate *readstate = NULL;
static void free_readstate(fl_readstate_t *rs)
static void free_readstate(struct fl_readstate *rs)
{
htable_free(&rs->backrefs);
htable_free(&rs->gensyms);
@ -557,7 +557,7 @@ void gc(int mustgrow)
static int grew = 0;
void *temp;
uint32_t i, f, top;
fl_readstate_t *rs;
struct fl_readstate *rs;
curheap = tospace;
if (grew)

8
c/flisp.h
View File

@ -162,19 +162,19 @@ fixnum_t tofixnum(value_t v, char *fname);
char *tostring(value_t v, char *fname);
/* error handling */
typedef struct _fl_readstate_t {
struct fl_readstate {
struct htable backrefs;
struct htable gensyms;
value_t source;
struct _fl_readstate_t *prev;
} fl_readstate_t;
struct fl_readstate *prev;
};
typedef struct _ectx_t {
jmp_buf buf;
uint32_t sp;
uint32_t frame;
uint32_t ngchnd;
fl_readstate_t *rdst;
struct fl_readstate *rdst;
struct _ectx_t *prev;
} fl_exception_context_t;

2
c/read.h
View File

@ -678,7 +678,7 @@ static value_t do_read_sexpr(value_t label)
value_t fl_read_sexpr(value_t f)
{
value_t v;
fl_readstate_t state;
struct fl_readstate state;
state.prev = readstate;
htable_new(&state.backrefs, 8);
htable_new(&state.gensyms, 8);