diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCompile.h | 4 | ||||
| -rw-r--r-- | generic/tclInt.decls | 4 | ||||
| -rw-r--r-- | generic/tclIntDecls.h | 16 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 10 |
4 files changed, 7 insertions, 27 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 0d2d781..de6bf24 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.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: tclCompile.h,v 1.32 2002/09/24 12:53:33 dkf Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.33 2002/10/09 11:54:05 das Exp $ */ #ifndef _TCLCOMPILATION @@ -819,6 +819,8 @@ EXTERN void TclVerifyGlobalLiteralTable _ANSI_ARGS_(( EXTERN void TclVerifyLocalLiteralTable _ANSI_ARGS_(( CompileEnv *envPtr)); #endif +EXTERN int TclCompileVariableCmd _ANSI_ARGS_(( + Tcl_Interp *interp, Tcl_Parse *parsePtr, CompileEnv *envPtr)); /* *---------------------------------------------------------------- diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 8c1e733..b63ee4b 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -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: tclInt.decls,v 1.55 2002/08/06 01:49:27 das Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.56 2002/10/09 11:54:09 das Exp $ library tcl @@ -399,7 +399,7 @@ declare 98 generic { # Tcl_Obj * TclSetIndexedScalar(Tcl_Interp *interp, int localIndex, # Tcl_Obj *objPtr, int flags) #} -declare 101 {unix win} { +declare 101 generic { char * TclSetPreInitScript(char *string) } declare 102 generic { diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 4309c93..8a277ba 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIntDecls.h,v 1.45 2002/08/05 03:24:41 dgp Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.46 2002/10/09 11:54:13 das Exp $ */ #ifndef _TCLINTDECLS @@ -285,14 +285,8 @@ EXTERN void TclResetShadowedCmdRefs _ANSI_ARGS_(( EXTERN int TclServiceIdle _ANSI_ARGS_((void)); /* Slot 99 is reserved */ /* Slot 100 is reserved */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ /* 101 */ EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string)); -#endif /* UNIX */ -#ifdef __WIN32__ -/* 101 */ -EXTERN char * TclSetPreInitScript _ANSI_ARGS_((char * string)); -#endif /* __WIN32__ */ /* 102 */ EXTERN void TclSetupEnv _ANSI_ARGS_((Tcl_Interp * interp)); /* 103 */ @@ -1045,18 +1039,10 @@ extern TclIntStubs *tclIntStubsPtr; #endif /* Slot 99 is reserved */ /* Slot 100 is reserved */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ #ifndef TclSetPreInitScript #define TclSetPreInitScript \ (tclIntStubsPtr->tclSetPreInitScript) /* 101 */ #endif -#endif /* UNIX */ -#ifdef __WIN32__ -#ifndef TclSetPreInitScript -#define TclSetPreInitScript \ - (tclIntStubsPtr->tclSetPreInitScript) /* 101 */ -#endif -#endif /* __WIN32__ */ #ifndef TclSetupEnv #define TclSetupEnv \ (tclIntStubsPtr->tclSetupEnv) /* 102 */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 49f581c..e39a6d4 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -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: tclStubInit.c,v 1.75 2002/08/31 06:09:45 das Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.76 2002/10/09 11:54:48 das Exp $ */ #include "tclInt.h" @@ -164,15 +164,7 @@ TclIntStubs tclIntStubs = { TclServiceIdle, /* 98 */ NULL, /* 99 */ NULL, /* 100 */ -#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - TclSetPreInitScript, /* 101 */ -#endif /* UNIX */ -#ifdef __WIN32__ TclSetPreInitScript, /* 101 */ -#endif /* __WIN32__ */ -#ifdef MAC_TCL - NULL, /* 101 */ -#endif /* MAC_TCL */ TclSetupEnv, /* 102 */ TclSockGetPort, /* 103 */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ |