Posted to tcl by miguel at Tue Mar 18 17:42:12 GMT 2008view raw

  1. static inline int
  2. OFFSET(
  3. Tcl_Obj **ptr)
  4. {
  5. int mask = TCL_ALLOCALIGN-1;
  6. int base, new;
  7.  
  8. base = PTR2INT(ptr) & 0xFFFFFF;
  9. new = (base + TCL_ALLOCALIGN) & ~mask;
  10. return (new - base);
  11. }