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