From f1697bec1072b46875019441e44ac305288cd658 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Mon, 12 Nov 2007 22:05:58 +0000
Subject: 	* generic/tclGet.c (Tcl_Get, Tcl_GetInt): revert use of
 TclGet* 	macros due to compiler warning.  These cases won't save time
 either.

---
 ChangeLog        | 3 +++
 generic/tclGet.c | 6 +++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index badcd4f..674669c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2007-11-12  Jeff Hobbs  <jeffh@ActiveState.com>
 
+	* generic/tclGet.c (Tcl_Get, Tcl_GetInt): revert use of TclGet*
+	macros due to compiler warning.  These cases won't save time either.
+
 	* generic/tclUtil.c (TclReToGlob): add more comments, set interp
 	result if specified on error.
 
diff --git a/generic/tclGet.c b/generic/tclGet.c
index 57530bc..1b08b84 100644
--- a/generic/tclGet.c
+++ b/generic/tclGet.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclGet.c,v 1.18 2007/11/11 19:32:15 msofer Exp $
+ * RCS: @(#) $Id: tclGet.c,v 1.19 2007/11/12 22:05:59 hobbs Exp $
  */
 
 #include "tclInt.h"
@@ -50,7 +50,7 @@ Tcl_GetInt(
     obj.length = strlen(src);
     obj.typePtr = NULL;
 
-    code = TclGetIntFromObj(interp, &obj, intPtr);
+    code = Tcl_GetIntFromObj(interp, &obj, intPtr);
     if (obj.refCount > 1) {
 	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
     }
@@ -94,7 +94,7 @@ TclGetLong(
     obj.length = strlen(src);
     obj.typePtr = NULL;
 
-    code = TclGetLongFromObj(interp, &obj, longPtr);
+    code = Tcl_GetLongFromObj(interp, &obj, longPtr);
     if (obj.refCount > 1) {
 	Tcl_Panic("invalid sharing of Tcl_Obj on C stack");
     }
-- 
cgit v0.12