diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-08-04 07:47:22 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-08-04 07:47:22 (GMT) |
commit | a8d394eeafa043ca1cfc2daa1ba0d5f15a59b802 (patch) | |
tree | fd7b6368f954a4c1a95289f5dc388a409605c11c /generic/tclOOMethod.c | |
parent | 2fffc3d3e95c03bbba314e2edb43007273079c16 (diff) | |
parent | 1121067971e449803e3964d69958d35e2187af2a (diff) | |
download | tcl-a8d394eeafa043ca1cfc2daa1ba0d5f15a59b802.zip tcl-a8d394eeafa043ca1cfc2daa1ba0d5f15a59b802.tar.gz tcl-a8d394eeafa043ca1cfc2daa1ba0d5f15a59b802.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclOOMethod.c')
-rw-r--r-- | generic/tclOOMethod.c | 17 |
1 files changed, 4 insertions, 13 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 4e7edb8..60eaa6e 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1204,15 +1204,6 @@ ConstructorErrorHandler( const char *objectName, *kindName; int objectNameLen; - if (Tcl_GetErrorLine(interp) == (int) 0xDEADBEEF) { - /* - * Horrible hack to deal with certain constructors that must not add - * information to the error trace. - */ - - return; - } - if (mPtr->declaringObjectPtr != NULL) { declarerPtr = mPtr->declaringObjectPtr; kindName = "object"; @@ -1338,8 +1329,8 @@ TclOONewForwardInstanceMethod( return NULL; } if (prefixLen < 1) { - Tcl_AppendResult(interp, "method forward prefix must be non-empty", - NULL); + Tcl_SetObjResult(interp, Tcl_NewStringObj( + "method forward prefix must be non-empty", -1)); Tcl_SetErrorCode(interp, "TCL", "OO", "BAD_FORWARD", NULL); return NULL; } @@ -1380,8 +1371,8 @@ TclOONewForwardMethod( return NULL; } if (prefixLen < 1) { - Tcl_AppendResult(interp, "method forward prefix must be non-empty", - NULL); + Tcl_SetObjResult(interp, Tcl_NewStringObj( + "method forward prefix must be non-empty", -1)); Tcl_SetErrorCode(interp, "TCL", "OO", "BAD_FORWARD", NULL); return NULL; } |