/[gcl]/gcl/h/object.h
ViewVC logotype

Diff of /gcl/h/object.h

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

revision 1.18 by camm, Sat Mar 1 22:37:37 2003 UTC revision 1.19 by mjthomas, Wed Jul 2 23:54:45 2003 UTC
# Line 360  struct ustring { Line 360  struct ustring {
360    
361  };  };
362    
363  #define USHORT(x,i) (((unsigned short *)(x)->ust.ust_self)[i])  #define USHORT_GCL(x,i) (((unsigned short *)(x)->ust.ust_self)[i])
364  #define SHORT(x,i) ((( short *)(x)->ust.ust_self)[i])  #define SHORT_GCL(x,i) ((( short *)(x)->ust.ust_self)[i])
365    
366  #define BV_OFFSET(x) ((type_of(x)==t_bitvector ? x->bv.bv_offset : \  #define BV_OFFSET(x) ((type_of(x)==t_bitvector ? x->bv.bv_offset : \
367                         type_of(x)== t_array ? x->a.a_offset : (abort(),0)))                         type_of(x)== t_array ? x->a.a_offset : (abort(),0)))
# Line 455  struct s_data {object name; Line 455  struct s_data {object name;
455    
456  #define S_DATA(x) ((struct s_data *)((x)->str.str_self))  #define S_DATA(x) ((struct s_data *)((x)->str.str_self))
457  #define SLOT_TYPE(def,i) (((S_DATA(def))->raw->ust.ust_self[i]))  #define SLOT_TYPE(def,i) (((S_DATA(def))->raw->ust.ust_self[i]))
458  #define SLOT_POS(def,i) USHORT(S_DATA(def)->slot_position,i)  #define SLOT_POS(def,i) USHORT_GCL(S_DATA(def)->slot_position,i)
459  #define STREF(type,x,i) (*((type *)(((char *)((x)->str.str_self))+(i))))  #define STREF(type,x,i) (*((type *)(((char *)((x)->str.str_self))+(i))))
460    
461    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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