Well, I'm back to the same failed unit tests as the develop branch
and I *feel* that the intern code is better. But it's not without problems and I don't think I can release at this. But it may be ready to merge back.
This commit is contained in:
parent
bcb227a5f9
commit
3a1f64d7ff
15 changed files with 284 additions and 184 deletions
|
|
@ -308,11 +308,6 @@ extern struct cons_pointer privileged_keyword_payload;
|
|||
*/
|
||||
#define pointer2cell(pointer) ((conspages[pointer.page]->cell[pointer.offset]))
|
||||
|
||||
/**
|
||||
* given a cons_pointer as argument, return the tag.
|
||||
*/
|
||||
#define get_tag_value(conspoint) ((pointer2cell(conspoint)).tag.value)
|
||||
|
||||
/**
|
||||
* true if `conspoint` points to the special cell NIL, else false
|
||||
* (there should only be one of these so it's slightly redundant).
|
||||
|
|
@ -727,6 +722,11 @@ struct cons_pointer inc_ref( struct cons_pointer pointer );
|
|||
|
||||
struct cons_pointer dec_ref( struct cons_pointer pointer );
|
||||
|
||||
/**
|
||||
* given a cons_pointer as argument, return the tag.
|
||||
*/
|
||||
uint32_t get_tag_value( struct cons_pointer pointer );
|
||||
|
||||
struct cons_pointer c_type( struct cons_pointer pointer );
|
||||
|
||||
struct cons_pointer c_car( struct cons_pointer arg );
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue