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

Modify storage of chars

Browse source
This commit is contained in:
Justin Ethier 2016-03-14 23:33:41 -04:00
parent 24c081b9d4
commit a37b640737
1 changed files with 20 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
include/cyclone/types.h
View file

@ -196,18 +196,27 @@ typedef long tag_type;
#define type_of(x) (((list) x)->tag) #define type_of(x) (((list) x)->tag)
#define forward(x) (((list) x)->cons_car) #define forward(x) (((list) x)->cons_car)
/* Define value types. /** Define value types.
Depending on the underlying architecture, compiler, etc these types * Depending on the underlying architecture, compiler, etc these types
have extra least significant bits that can be used to mark them as * have extra least significant bits that can be used to mark them as
values instead of objects (IE, pointer to a tagged object). * values instead of objects (IE, pointer to a tagged object).
On many machines, addresses are multiples of four, leaving the two * On many machines, addresses are multiples of four, leaving the two
least significant bits free - from lisp in small pieces. * least significant bits free - from lisp in small pieces.
*/ *
#define obj_is_char(x) ((unsigned long)(x) & (unsigned long)1) * Types:
#define obj_obj2char(x) (char)((long)(x)>>1) * 0x00 - pointer (an object type)
#define obj_char2obj(c) ((void *)((((unsigned long)c)<<1) | 1)) * 0x01 - integer (in progress)
* 0x10 - char
*/
#define obj_is_int(x) ((unsigned long)(x) & (unsigned long)1)
#define obj_obj2int(x) ((int)(x)>>1)
#define obj_int2obj(c) ((void *)((((int)c)<<1) | 1))
#define is_value_type(x) obj_is_char(x) #define obj_is_char(x) ((unsigned long)(x) & (unsigned long)2)
#define obj_obj2char(x) (char)((long)(x)>>2)
#define obj_char2obj(c) ((void *)((((unsigned long)c)<<2) | 2))
#define is_value_type(x) ((unsigned long)(x) | (unsigned long)3)
#define is_object_type(x) (x && !is_value_type(x)) #define is_object_type(x) (x && !is_value_type(x))
/* Define function type. */ /* Define function type. */