diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-01-23 17:31:41 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-01-23 17:31:41 (GMT) |
| commit | d3dba3f8855bf00200865c0c8b783e4bd57d1b32 (patch) | |
| tree | ba68c1588101bc6f220f26cf814d2bcd415d139f /generic/tclIntDecls.h | |
| parent | fcd8250c0cb0e5d3302d0e60110c7f18c070bcb2 (diff) | |
| download | tcl-d3dba3f8855bf00200865c0c8b783e4bd57d1b32.zip tcl-d3dba3f8855bf00200865c0c8b783e4bd57d1b32.tar.gz tcl-d3dba3f8855bf00200865c0c8b783e4bd57d1b32.tar.bz2 | |
* generic/tclCompile.h: Demote TclCompEvalObj() from internal stubs to
* generic/tclInt.decls: a MODULE_SCOPE routine declared in tclCompile.h.
* generic/tclIntDecls.h: make genstubs
* generic/tclStubInit.c:
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index ac53ff5..0ff03f9 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.111 2007/12/13 15:23:18 dgp Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.112 2008/01/23 17:31:42 dgp Exp $ */ #ifndef _TCLINTDECLS @@ -889,13 +889,7 @@ EXTERN struct tm * TclpGmtime (CONST time_t * clock); /* Slot 194 is reserved */ /* Slot 195 is reserved */ /* Slot 196 is reserved */ -#ifndef TclCompEvalObj_TCL_DECLARED -#define TclCompEvalObj_TCL_DECLARED -/* 197 */ -EXTERN int TclCompEvalObj (Tcl_Interp * interp, - Tcl_Obj * objPtr, CONST CmdFrame* invoker, - int word); -#endif +/* Slot 197 is reserved */ #ifndef TclObjGetFrame_TCL_DECLARED #define TclObjGetFrame_TCL_DECLARED /* 198 */ @@ -1308,7 +1302,7 @@ typedef struct TclIntStubs { void *reserved194; void *reserved195; void *reserved196; - int (*tclCompEvalObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST CmdFrame* invoker, int word); /* 197 */ + void *reserved197; int (*tclObjGetFrame) (Tcl_Interp * interp, Tcl_Obj * objPtr, CallFrame ** framePtrPtr); /* 198 */ void *reserved199; int (*tclpObjRemoveDirectory) (Tcl_Obj * pathPtr, int recursive, Tcl_Obj ** errorPtr); /* 200 */ @@ -1966,10 +1960,7 @@ extern TclIntStubs *tclIntStubsPtr; /* Slot 194 is reserved */ /* Slot 195 is reserved */ /* Slot 196 is reserved */ -#ifndef TclCompEvalObj -#define TclCompEvalObj \ - (tclIntStubsPtr->tclCompEvalObj) /* 197 */ -#endif +/* Slot 197 is reserved */ #ifndef TclObjGetFrame #define TclObjGetFrame \ (tclIntStubsPtr->tclObjGetFrame) /* 198 */ |