summaryrefslogtreecommitdiffstats
path: root/generic/tclProc.c
diff options
context:
space:
mode:
authorescoffon <escoffon>1998-07-28 13:55:21 (GMT)
committerescoffon <escoffon>1998-07-28 13:55:21 (GMT)
commit5a99404be05749140c2a73937720327b3b704ca1 (patch)
treefdaa1e830439cbd33907eb3aea2a3ae659553b57 /generic/tclProc.c
parent69cb9eb344daefa11d87e1ac5c5121eceaf46425 (diff)
downloadtcl-5a99404be05749140c2a73937720327b3b704ca1.zip
tcl-5a99404be05749140c2a73937720327b3b704ca1.tar.gz
tcl-5a99404be05749140c2a73937720327b3b704ca1.tar.bz2
Created a couple of procedures to export internal procs out of a DLL;
this is needed to support precompiled procedure bodies and the info body command (without them one gets "not a procedure: xxxx" for all precompiled procedure bodies if Tcl is in a DLL)
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r--generic/tclProc.c52
1 files changed, 51 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c
index 10f2855..ea36243 100644
--- a/generic/tclProc.c
+++ b/generic/tclProc.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * SCCS: %Z% $Id: tclProc.c,v 1.11 1998/07/24 18:47:37 escoffon Exp $
+ * SCCS: %Z% $Id: tclProc.c,v 1.12 1998/07/28 13:55:21 escoffon Exp $
*/
#include "tclInt.h"
@@ -1223,3 +1223,53 @@ TclUpdateReturnInfo(iPtr)
}
return code;
}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclGetInterpProc --
+ *
+ * Returns a pointer to the TclProcInterpProc procedure; this is different
+ * from the value obtained from the TclProcInterpProc reference on systems
+ * like Windows where import and export versions of a procedure exported
+ * by a DLL exist.
+ *
+ * Results:
+ * Returns the internal address of the TclProcInterpProc procedure.
+ *
+ * Side effects:
+ * None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TclCmdProcType
+TclGetInterpProc()
+{
+ return TclProcInterpProc;
+}
+
+/*
+ *----------------------------------------------------------------------
+ *
+ * TclGetObjInterpProc --
+ *
+ * Returns a pointer to the TclObjInterpProc procedure; this is different
+ * from the value obtained from the TclObjInterpProc reference on systems
+ * like Windows where import and export versions of a procedure exported
+ * by a DLL exist.
+ *
+ * Results:
+ * Returns the internal address of the TclProcInterpProc procedure.
+ *
+ * Side effects:
+ * None.
+ *
+ *----------------------------------------------------------------------
+ */
+
+TclObjCmdProcType
+TclGetObjInterpProc()
+{
+ return TclObjInterpProc;
+}