public static void Tcl_SetLongObj(TclObject to, long result) { while (to.Shared) { to.release(); } TclLong.set(to, result); to.preserve(); }