Posted to tcl by miguel at Tue Mar 18 16:56:04 GMT 2008view raw
- #define WALLOCALIGN \
- (TCL_ALLOCALIGN/sizeof(Tcl_Obj *))
- static inline int
- OFFSET(
- Tcl_Obj **ptr)
- {
- int mask = TCL_ALLOCALIGN-1;
- Tcl_Obj **new;
- new = (Tcl_Obj **) (((intptr_t)(ptr + WALLOCALIGN)) & ~mask);
- return (new - ptr);
- }