Posted to tcl by GPS at Tue Oct 02 21:33:44 GMT 2007view raw

  1. #include <tcl.h>
  2. #include <stdlib.h>
  3.  
  4. #ifdef FIX
  5. #undef Tcl_DecrRefCount
  6. #define Tcl_DecrRefCount(objPtr) \
  7. do { if (--(objPtr)->refCount <= 0) TclFreeObj(objPtr); } while(0)
  8. #endif
  9.  
  10. int main () {
  11. Tcl_Obj *o;
  12.  
  13. o = Tcl_NewObj ();
  14. if (o)
  15. Tcl_DecrRefCount (o);
  16.  
  17. return EXIT_SUCCESS;
  18. }
  19.