X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fruntime.h;h=9525a17a3c173029cd12b197f0d148e81434798d;hb=a9224208e18c514a9f4cd79d65eed851d7072fe6;hp=5768f8a49f6556666faf29da2aac5ab891e2c727;hpb=baa0eaf21221dc564088c37b228c620c298aeaa1;p=sbcl.git diff --git a/src/runtime/runtime.h b/src/runtime/runtime.h index 5768f8a..9525a17 100644 --- a/src/runtime/runtime.h +++ b/src/runtime/runtime.h @@ -37,7 +37,7 @@ * problem.. */ #define QSHOW_SIGNALS 0 -#ifdef QSHOW_SIGNALS +#if QSHOW_SIGNALS #define FSHOW_SIGNAL FSHOW #else #define FSHOW_SIGNAL(args) @@ -80,12 +80,14 @@ typedef unsigned int lispobj; #endif static inline int -lowtag_of(lispobj obj) { +lowtag_of(lispobj obj) +{ return obj & LOWTAG_MASK; } static inline int -widetag_of(lispobj obj) { +widetag_of(lispobj obj) +{ return obj & WIDETAG_MASK; } @@ -128,6 +130,7 @@ native_pointer(lispobj obj) { return (lispobj *) ((pointer_sized_uint_t) (obj & ~LOWTAG_MASK)); } + /* inverse operation: create a suitably tagged lispobj from a native * pointer or integer. Needs to be a macro due to the tedious C type * system */