summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tcl.h14
-rw-r--r--generic/tclTest.c8
2 files changed, 17 insertions, 5 deletions
diff --git a/generic/tcl.h b/generic/tcl.h
index 404c89e..77b25e5 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tcl.h,v 1.32 1999/01/06 21:08:50 stanton Exp $
+ * RCS: @(#) $Id: tcl.h,v 1.33 1999/02/03 02:58:25 stanton Exp $
*/
#ifndef _TCL
@@ -1072,7 +1072,6 @@ EXTERN void Tcl_AppendToObj _ANSI_ARGS_((Tcl_Obj *objPtr,
char *bytes, int length));
EXTERN void Tcl_AppendStringsToObj _ANSI_ARGS_(
TCL_VARARGS(Tcl_Obj *,interp));
-EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp));
EXTERN Tcl_AsyncHandler Tcl_AsyncCreate _ANSI_ARGS_((Tcl_AsyncProc *proc,
ClientData clientData));
EXTERN void Tcl_AsyncDelete _ANSI_ARGS_((Tcl_AsyncHandler async));
@@ -1562,6 +1561,17 @@ EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan,
EXTERN void Tcl_WrongNumArgs _ANSI_ARGS_((Tcl_Interp *interp,
int objc, Tcl_Obj *CONST objv[], char *message));
+#undef TCL_STORAGE_CLASS
+#define TCL_STORAGE_CLASS
+
+/*
+ * Convenience declaration of Tcl_AppInit for backwards compatibility.
+ * This function is not *implemented* by the tcl library, so the storage
+ * class is neither DLLEXPORT nor DLLIMPORT
+ */
+
+EXTERN int Tcl_AppInit _ANSI_ARGS_((Tcl_Interp *interp));
+
#endif /* RESOURCE_INCLUDED */
#undef TCL_STORAGE_CLASS
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 32b326c..23dc31f 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTest.c,v 1.7 1999/02/03 00:55:06 stanton Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.8 1999/02/03 02:58:25 stanton Exp $
*/
#define TCL_TEST
@@ -217,10 +217,12 @@ static int TestwordendObjCmd _ANSI_ARGS_((ClientData dummy,
Tcl_Obj *CONST objv[]));
/*
- * External (platform specific) initialization routine:
+ * External (platform specific) initialization routine, this declaration
+ * explicitly does not use EXTERN since this code does not get compiled
+ * into the library:
*/
-EXTERN int TclplatformtestInit _ANSI_ARGS_((
+extern int TclplatformtestInit _ANSI_ARGS_((
Tcl_Interp *interp));
/*