diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-06-01 00:33:04 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-06-01 00:33:04 (GMT) |
| commit | 1c1a6d7dbef7006050c0ff8351a29d7daf390efc (patch) | |
| tree | 27f9cf935eca44a7395fab059a6c5cd848df37d4 /generic/tclOOStubLib.c | |
| parent | a568d47b81aa993e06a0ec33188cee794192056c (diff) | |
| download | tcl-1c1a6d7dbef7006050c0ff8351a29d7daf390efc.zip tcl-1c1a6d7dbef7006050c0ff8351a29d7daf390efc.tar.gz tcl-1c1a6d7dbef7006050c0ff8351a29d7daf390efc.tar.bz2 | |
More patches to make stub generation work.
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; |