diff options
Diffstat (limited to 'generic/tclOOStubLib.c')
| -rw-r--r-- | generic/tclOOStubLib.c | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/generic/tclOOStubLib.c b/generic/tclOOStubLib.c index fe3b6be..280854b 100644 --- a/generic/tclOOStubLib.c +++ b/generic/tclOOStubLib.c @@ -1,5 +1,5 @@ /* - * $Id: tclOOStubLib.c,v 1.2 2008/05/31 23:35:28 das Exp $ + * $Id: tclOOStubLib.c,v 1.3 2008/06/01 00:33:05 dkf Exp $ * ORIGINAL SOURCE: tk/generic/tkStubLib.c, version 1.9 2004/03/17 */ @@ -45,7 +45,7 @@ const TclOOIntStubs *tclOOIntStubsPtr = NULL; MODULE_SCOPE const char * TclOOInitializeStubs( - Tcl_Interp *interp, const char *version, int epoch, int revision) + Tcl_Interp *interp, const char *version) { int exact = 0; const char *packageName = "TclOO"; @@ -72,14 +72,6 @@ TclOOInitializeStubs( errMsg = "missing stub table pointer"; goto error; } - if (stubsPtr->epoch != epoch || intStubsPtr->epoch != epoch) { - errMsg = "epoch number mismatch"; - goto error; - } - if (stubsPtr->revision<revision || intStubsPtr->revision<revision) { - errMsg = "require later revision"; - goto error; - } tclOOStubsPtr = stubsPtr; tclOOIntStubsPtr = intStubsPtr; |