* generic/tclAlloc.c: Changed TCL_NATIVE_MALLOC to USE_TCLALLOC so

it matches 8.1.

* generic/tclBasic.c:
* generic/tcl.h:
* generic/tcl.decls: Changed Tcl_ReleaseType from an enum to
macros so it can be used in .rc files.
Added Tcl_GetString.

* unix/Makefile.in: Added compat binaries to the stub library.
Changed compat binaries to always compile with shared flags since
they need to be shared for the stub library.

6 files changed, 22 insertions, 26 deletions

diff --git a/generic/tcl.decls b/generic/tcl.decls
index d8e6941..11058d2 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -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.
 # 
-# RCS: @(#) $Id: tcl.decls,v 1.6 1999/03/11 00:19:23 stanton Exp $
+# RCS: @(#) $Id: tcl.decls,v 1.7 1999/03/11 02:49:33 stanton Exp $
 
 library tcl
 
@@ -958,8 +958,7 @@ declare 278 generic {
     void panicVA(char *format, va_list argList)
 }
 declare 279 generic {
-    void Tcl_GetVersion(int *major, int *minor, int *patchLevel, \
-	    Tcl_ReleaseType *type)
+    void Tcl_GetVersion(int *major, int *minor, int *patchLevel, int *type)
 }
 # Reserved for future use (8.0.x vs. 8.1)
 #  declare 280 generic {
diff --git a/generic/tcl.h b/generic/tcl.h
index 48869d1..d98a955 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -12,13 +12,21 @@
  * 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.36 1999/03/10 22:55:51 redman Exp $
+ * RCS: @(#) $Id: tcl.h,v 1.37 1999/03/11 02:49:33 stanton Exp $
  */
 
 #ifndef _TCL
 #define _TCL
 
 /*
+ * The following defines are used to indicate the various release levels.
+ */
+
+#define TCL_ALPHA_RELEASE	0
+#define TCL_BETA_RELEASE	1
+#define TCL_FINAL_RELEASE	2
+
+/*
  * When version numbers change here, must also go into the following files
  * and update the version numbers:
  *
@@ -33,13 +41,6 @@
  *
  */
 
-
-typedef enum {
-    TCL_ALPHA_RELEASE = 0,
-    TCL_BETA_RELEASE = 1,
-    TCL_FINAL_RELEASE = 2
-} Tcl_ReleaseType;
-
 #define TCL_MAJOR_VERSION   8
 #define TCL_MINOR_VERSION   0
 #define TCL_RELEASE_LEVEL   TCL_FINAL_RELEASE
@@ -1101,10 +1102,6 @@ EXTERN char *		Tcl_InitStubs _ANSI_ARGS_((Tcl_Interp *interp,
 EXTERN void Tcl_InitMemory _ANSI_ARGS_((Tcl_Interp *interp));
 EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv,
 	Tcl_AppInitProc *appInitProc));
-EXTERN void Tcl_GetVersion _ANSI_ARGS_((int *major, 
-        int *minor, int *patchLevel, Tcl_ReleaseType *type));
-
-
 
 /*
  * Convenience declaration of Tcl_AppInit for backwards compatibility.
diff --git a/generic/tclAlloc.c b/generic/tclAlloc.c
index f22efff..9314c2a 100644
--- a/generic/tclAlloc.c
+++ b/generic/tclAlloc.c
@@ -14,13 +14,13 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclAlloc.c,v 1.4 1999/03/10 05:52:46 stanton Exp $
+ * RCS: @(#) $Id: tclAlloc.c,v 1.5 1999/03/11 02:49:34 stanton Exp $
  */
 
 #include "tclInt.h"
 #include "tclPort.h"
 
-#ifndef USE_NATIVE_MALLOC
+#if USE_TCLALLOC
 
 #ifdef TCL_DEBUG
 #   define DEBUG
@@ -457,7 +457,7 @@ mstats(
 }
 #endif
 
-#else /* USE_NATIVE_MALLOC */
+#else /* !USE_TCLALLOC */
 
 
 /*
@@ -531,4 +531,4 @@ TclpRealloc(
     return (char*) realloc(cp, nbytes);
 }
 
-#endif /* USE_NATIVE_MALLOC */
+#endif /* !USE_TCLALLOC */
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 7a41b21..24c7189 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.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: tclBasic.c,v 1.17 1999/03/10 22:55:51 redman Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.18 1999/03/11 02:49:34 stanton Exp $
  */
 
 #include "tclInt.h"
@@ -4176,7 +4176,7 @@ void Tcl_GetVersion(major, minor, patchLevel, type)
     int *major;
     int *minor;
     int *patchLevel;
-    Tcl_ReleaseType *type;
+    int *type;
 {
     if (major != NULL) {
         *major = TCL_MAJOR_VERSION;
diff --git a/generic/tclDecls.h b/generic/tclDecls.h
index 645ceea..70bdf2a 100644
--- a/generic/tclDecls.h
+++ b/generic/tclDecls.h
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclDecls.h,v 1.5 1999/03/10 23:45:51 redman Exp $
+ * RCS: @(#) $Id: tclDecls.h,v 1.6 1999/03/11 02:49:34 stanton Exp $
  */
 
 #ifndef _TCLDECLS
@@ -871,7 +871,7 @@ EXTERN Tcl_Pid		Tcl_WaitPid _ANSI_ARGS_((Tcl_Pid pid, int * statPtr,
 EXTERN void		panicVA _ANSI_ARGS_((char * format, va_list argList));
 /* 279 */
 EXTERN void		Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor, 
-				int * patchLevel, Tcl_ReleaseType * type));
+				int * patchLevel, int * type));
 
 typedef struct TclStubHooks {
     struct TclPlatStubs *tclPlatStubs;
@@ -1186,7 +1186,7 @@ typedef struct TclStubs {
     int (*tcl_VarEvalVA) _ANSI_ARGS_((Tcl_Interp * interp, va_list argList)); /* 276 */
     Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int options)); /* 277 */
     void (*panicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 278 */
-    void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * patchLevel, Tcl_ReleaseType * type)); /* 279 */
+    void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * patchLevel, int * type)); /* 279 */
 } TclStubs;
 
 extern TclStubs *tclStubsPtr;
diff --git a/generic/tclStubs.c b/generic/tclStubs.c
index 6bfd755..a1f11fc 100644
--- a/generic/tclStubs.c
+++ b/generic/tclStubs.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclStubs.c,v 1.5 1999/03/10 23:45:51 redman Exp $
+ * RCS: @(#) $Id: tclStubs.c,v 1.6 1999/03/11 02:49:34 stanton Exp $
  */
 
 #include "tcl.h"
@@ -2701,7 +2701,7 @@ Tcl_GetVersion(major, minor, patchLevel, type)
     int * major;
     int * minor;
     int * patchLevel;
-    Tcl_ReleaseType * type;
+    int * type;
 {
     (tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type);
 }