/[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.44 by camm, Thu Sep 22 21:07:42 2005 UTC revision 1.45 by camm, Thu Sep 22 21:32:14 2005 UTC
# Line 193  struct fixnum_struct { Line 193  struct fixnum_struct {
193  #define make_free(a_)            {*(fixnum *)(a_)&=TYPE_BITS;(a_)->d.f=1;}  #define make_free(a_)            {*(fixnum *)(a_)&=TYPE_BITS;(a_)->d.f=1;}
194  #define make_unfree(a_)          {(a_)->d.f=0;}  #define make_unfree(a_)          {(a_)->d.f=0;}
195    
196  #define is_cons(a_)              (is_imm_fixnum(Zcdr(a_)) || !(a_)->d.e)  #define is_cons(a_)              (!(a_)->d.e || is_imm_fixnum(Zcdr(a_)))
197    
198  struct shortfloat_struct {  struct shortfloat_struct {
199    

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

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