/[guile]/guile/guile-core/libguile/unif.h
ViewVC logotype

Diff of /guile/guile-core/libguile/unif.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.47 by ossau, Fri Feb 22 23:14:38 2002 UTC revision 1.48 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC
# Line 96  SCM_API scm_t_bits scm_tc16_array; Line 96  SCM_API scm_t_bits scm_tc16_array;
96  #define SCM_SET_UVECTOR_BASE(v, b) (SCM_SET_CELL_WORD_1 ((v), (b)))  #define SCM_SET_UVECTOR_BASE(v, b) (SCM_SET_CELL_WORD_1 ((v), (b)))
97  #define SCM_UVECTOR_MAX_LENGTH SCM_I_MAX_LENGTH  #define SCM_UVECTOR_MAX_LENGTH SCM_I_MAX_LENGTH
98  #define SCM_UVECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)  #define SCM_UVECTOR_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)
99  #define SCM_MAKE_UVECTOR_TAG(l,t)  (((l) << 8) + (t))  #define SCM_MAKE_UVECTOR_TAG(l, t)  (((l) << 8) + (t))
100  #define SCM_SET_UVECTOR_LENGTH(v, l, t) (SCM_SET_CELL_WORD_0 ((v), SCM_MAKE_UVECTOR_TAG(l,t)))  #define SCM_SET_UVECTOR_LENGTH(v, l, t) (SCM_SET_CELL_WORD_0 ((v), SCM_MAKE_UVECTOR_TAG(l, t)))
101    
102  #define SCM_BITVECTOR_P(x) (!SCM_IMP (x) && (SCM_TYP7 (x) == scm_tc7_bvect))  #define SCM_BITVECTOR_P(x) (!SCM_IMP (x) && (SCM_TYP7 (x) == scm_tc7_bvect))
103  #define SCM_BITVECTOR_BASE(x) ((unsigned long *) (SCM_CELL_WORD_1 (x)))  #define SCM_BITVECTOR_BASE(x) ((unsigned long *) (SCM_CELL_WORD_1 (x)))

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26