diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-07-08 17:52:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-07-08 17:52:14 (GMT) |
| commit | 202c0ad200e4c9baabff9d3861777c1a47606158 (patch) | |
| tree | 8b4a2e63bbb5d3e65f86afd3d02085a333a3ac07 /generic/tclIntDecls.h | |
| parent | fb746d8a585695e0450cea45765c7d1626d0ae79 (diff) | |
| download | tcl-202c0ad200e4c9baabff9d3861777c1a47606158.zip tcl-202c0ad200e4c9baabff9d3861777c1a47606158.tar.gz tcl-202c0ad200e4c9baabff9d3861777c1a47606158.tar.bz2 | |
* generic/tclGet.c: Corrected out of date comments and removed
* generic/tclInt.decls: internal routine TclGetLong() that's no longer
used. If an extension is using this from the internal stubs table,
it can shift to the public routine Tcl_GetLongFromObj() or can
request addition of a public Tcl_GetLong().
***POTENTIAL INCOMPATIBILITY***
* generic/tclIntDecls.h: make genstubs
* generic/tclStubInit.c:
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index c8f788c..d21bd4d 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.116 2008/06/13 05:45:13 mistachkin Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.117 2008/07/08 17:52:17 dgp Exp $ */ #ifndef _TCLINTDECLS @@ -209,12 +209,7 @@ EXTERN int TclGetIntForIndex (Tcl_Interp * interp, int * indexPtr); #endif /* Slot 35 is reserved */ -#ifndef TclGetLong_TCL_DECLARED -#define TclGetLong_TCL_DECLARED -/* 36 */ -EXTERN int TclGetLong (Tcl_Interp * interp, CONST char * str, - long * longPtr); -#endif +/* Slot 36 is reserved */ #ifndef TclGetLoadedPackages_TCL_DECLARED #define TclGetLoadedPackages_TCL_DECLARED /* 37 */ @@ -1138,7 +1133,7 @@ typedef struct TclIntStubs { void *reserved33; int (*tclGetIntForIndex) (Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr); /* 34 */ void *reserved35; - int (*tclGetLong) (Tcl_Interp * interp, CONST char * str, long * longPtr); /* 36 */ + void *reserved36; int (*tclGetLoadedPackages) (Tcl_Interp * interp, char * targetName); /* 37 */ int (*tclGetNamespaceForQualName) (Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr); /* 38 */ TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */ @@ -1478,10 +1473,7 @@ extern CONST TclIntStubs *tclIntStubsPtr; (tclIntStubsPtr->tclGetIntForIndex) /* 34 */ #endif /* Slot 35 is reserved */ -#ifndef TclGetLong -#define TclGetLong \ - (tclIntStubsPtr->tclGetLong) /* 36 */ -#endif +/* Slot 36 is reserved */ #ifndef TclGetLoadedPackages #define TclGetLoadedPackages \ (tclIntStubsPtr->tclGetLoadedPackages) /* 37 */ |