Ignore:
Timestamp:
Apr 19, 2006, 6:33:49 AM (15 years ago)
Author:
gb
Message:

Add node_aligned and indirect_node macros.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lisp-kernel/macros.h

    r3730 r4348  
    2929#define tag_of(o) ((o) & tagmask)
    3030#define untag(o) ((o) & ~fulltagmask)
     31#define node_aligned(o) ((o) & ~tagmask)
     32#define indirect_node(o) (*(LispObj *)(node_aligned(o)))
    3133
    3234#define deref(o,n) (*((LispObj*) (ptr_from_lispobj(untag((LispObj)o)))+(n)))
Note: See TracChangeset for help on using the changeset viewer.