conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

pic_sym is now just an alias of int

This commit is contained in:
Yuichi Nishiwaki 2014-09-26 14:42:50 +09:00
parent f8e9091774
commit d58e7d470f
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
include/picrin/value.h
View File

@ -10,10 +10,10 @@ extern "C" {
#endif #endif
/** /**
* pic_sym is just an alias of uint32_t. * pic_sym is just an alias of int.
*/ */
typedef uint32_t pic_sym; typedef int pic_sym;
/** /**
* `undef` values never seen from user-end: that is, * `undef` values never seen from user-end: that is,
@ -71,7 +71,14 @@ pic_int(pic_value v)
return u.i; return u.i;
} }
#define pic_sym(v) ((v) & 0xfffffffful) static inline int
pic_sym(pic_value v)
{
union { int i; unsigned u; } u;
u.u = v & 0xfffffffful;
return u.i;
}
#define pic_char(v) ((v) & 0xfffffffful) #define pic_char(v) ((v) & 0xfffffffful)
#else #else
@ -357,10 +364,13 @@ pic_int_value(int i)
static inline pic_value static inline pic_value
pic_symbol_value(pic_sym sym) pic_symbol_value(pic_sym sym)
{ {
union { int i; unsigned u; } u;
pic_value v; pic_value v;
u.i = sym;
pic_init_value(v, PIC_VTYPE_SYMBOL); pic_init_value(v, PIC_VTYPE_SYMBOL);
v |= sym; v |= u.u;
return v; return v;
} }