Posted to tcl by miguel at Tue Mar 18 15:54:31 GMT 2008view raw

  1. static inline int
  2. OFFSET(
  3. Tcl_Obj **markerPtr)
  4. {
  5. int mask, i;
  6.  
  7. mask = TCL_ALLOCALIGN-1;
  8. markerPtr++;
  9. for (i=1; (markerPtr & mask); i++, markerPtr++) {}
  10. return i;
  11. }