mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Merge from upstream lightening

Browse source
This commit is contained in:
Andy Wingo 2019-04-03 19:24:47 +02:00
commit 1308404b5b
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/lightening/lightening.h
View file

@ -110,6 +110,18 @@ typedef struct jit_reloc
#define jit_class(bits) ((bits) & 0xffff0000) #define jit_class(bits) ((bits) & 0xffff0000)
#define jit_regno(bits) ((bits) & 0x00007fff) #define jit_regno(bits) ((bits) & 0x00007fff)
static inline jit_bool_t
jit_same_gprs (jit_gpr_t a, jit_gpr_t b)
{
return a.bits == b.bits;
}
static inline jit_bool_t
jit_same_fprs (jit_fpr_t a, jit_fpr_t b)
{
return a.bits == b.bits;
}
static inline jit_bool_t static inline jit_bool_t
jit_gpr_is_callee_save (jit_gpr_t reg) jit_gpr_is_callee_save (jit_gpr_t reg)
{ {