Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |