Move ObjRef macros to tclInt.h; better location for them.

This should have been part of [2d7ae66265] in retrospect.

Author: dkfellows

generic/tclInt.h

@@ -4295,6 +4295,36 @@ TclScaleTime(
 	}								\
     }
 
+/*
+ * Primitives to safe set, reset and free references.
+ */
+
+#define TclUnsetObjRef(obj) \
+    do {								\
+	if (obj != NULL) {						\
+	    Tcl_DecrRefCount(obj);					\
+	    obj = NULL;							\
+	}								\
+    } while (0)
+#define TclInitObjRef(obj, val) \
+    do {								\
+	obj = (val);							\
+	if (obj) {							\
+	    Tcl_IncrRefCount(obj);					\
+	}								\
+    } while (0)
+#define TclSetObjRef(obj, val) \
+    do {								\
+	Tcl_Obj *nval = (val);						\
+	if (obj != nval) {						\
+	    Tcl_Obj *prev = obj;					\
+	    TclInitObjRef(obj, nval);					\
+	    if (prev != NULL) {						\
+		Tcl_DecrRefCount(prev);					\
+	    }								\
+	}								\
+    } while (0)
+
 #if TCL_THREADS && !defined(USE_THREAD_ALLOC)
 #   define USE_THREAD_ALLOC 1
 #endif

generic/tclResult.c

@@ -11,7 +11,6 @@
 
 #include "tclInt.h"
 #include <assert.h>
-#include "tclStrIdxTree.h"
 
 /*
  * Indices of the standard return options dictionary keys.

generic/tclStrIdxTree.h

@@ -138,36 +138,6 @@ TclUtfFindEqualNCInLwr(
     } while ((ret = cs) < cse && cin < cine);
     return ret;
 }
-
-/*
- * Primitives to safe set, reset and free references.
- */
-
-#define TclUnsetObjRef(obj) \
-    do {								\
-	if (obj != NULL) {						\
-	    Tcl_DecrRefCount(obj);					\
-	    obj = NULL;							\
-	}								\
-    } while (0)
-#define TclInitObjRef(obj, val) \
-    do {								\
-	obj = (val);							\
-	if (obj) {							\
-	    Tcl_IncrRefCount(obj);					\
-	}								\
-    } while (0)
-#define TclSetObjRef(obj, val) \
-    do {								\
-	Tcl_Obj *nval = (val);						\
-	if (obj != nval) {						\
-	    Tcl_Obj *prev = obj;					\
-	    TclInitObjRef(obj, nval);					\
-	    if (prev != NULL) {						\
-		Tcl_DecrRefCount(prev);					\
-	    }								\
-	}								\
-    } while (0)
 
 /*
  * Prototypes of module functions.