From 4feb282a09768af26b52f81ce88e0016f33fe88c Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Wed, 5 Mar 2003 22:02:47 +0000
Subject: [PATCH] Add Tcl_InitStubs

---
 ir-tcl.c |   10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/ir-tcl.c b/ir-tcl.c
index 8fc6185..881f428 100644
--- a/ir-tcl.c
+++ b/ir-tcl.c
@@ -4,7 +4,10 @@
  * See the file LICENSE for details.
  *
  * $Log: ir-tcl.c,v $
- * Revision 1.123  2003-03-05 21:21:41  adam
+ * Revision 1.124  2003-03-05 22:02:47  adam
+ * Add Tcl_InitStubs
+ *
+ * Revision 1.123  2003/03/05 21:21:41  adam
  * APDU log. default largeSetLowerBound changed from 2 to 1
  *
  * Revision 1.122  2003/03/05 18:02:08  adam
@@ -4716,6 +4719,11 @@ DllEntryPoint(hInst, reason, reserved)
  */
 EXPORT (int,Irtcl_Init) (Tcl_Interp *interp)
 {
+#if USE_TCL_STUBS
+    if (Tcl_InitStubs(interp, "8.1", 0) == NULL) {
+        return TCL_ERROR;
+    }
+#endif
     Tcl_CreateCommand (interp, "ir", ir_obj_mk, (ClientData) NULL,
                        (Tcl_CmdDeleteProc *) NULL);
     Tcl_CreateCommand (interp, "ir-set", ir_set_obj_mk,
-- 
1.7.10.4