From cdb8c059fb04e193b1978610b3ed6750792efbff Mon Sep 17 00:00:00 2001
From: gahr <gahr@gahr.ch>
Date: Fri, 28 Apr 2017 08:37:33 +0000
Subject: Restore a few unsafe GetNumberFromObj calls

---
 generic/tclExecute.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index e8dab7a..04f0232 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -8184,8 +8184,8 @@ ExecuteExtendedBinaryMathOp(
     int invalid, numPos, zero;
     long shift;
 
-    GetNumberFromObjUnsafe(valuePtr, &ptr1, &type1);
-    GetNumberFromObjUnsafe(value2Ptr, &ptr2, &type2);
+    (void) GetNumberFromObj(NULL, valuePtr, &ptr1, &type1);
+    (void) GetNumberFromObj(NULL, value2Ptr, &ptr2, &type2);
 
     switch (opcode) {
     case INST_MOD:
@@ -9179,7 +9179,7 @@ ExecuteExtendedUnaryMathOp(
     mp_int big;
     Tcl_Obj *objResultPtr;
 
-    GetNumberFromObjUnsafe(valuePtr, &ptr, &type);
+    (void) GetNumberFromObj(NULL, valuePtr, &ptr, &type);
 
     switch (opcode) {
     case INST_BITNOT:
-- 
cgit v0.12