diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-19 18:09:11 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-19 18:09:11 (GMT) |
commit | c90945e7f32fce45c4a00d249c7133156ee8a45b (patch) | |
tree | dbcf2d1dd6e3132462b67b2e72e93e9f5151f6c0 /generic/tclOOMethod.c | |
parent | fdb568c35f1cd6de7f1acd05fdbd4f8b6cf5aee1 (diff) | |
parent | 6def0d48c1fff35f9f5b3bfbe1ddbe6cedd2c247 (diff) | |
download | tcl-c90945e7f32fce45c4a00d249c7133156ee8a45b.zip tcl-c90945e7f32fce45c4a00d249c7133156ee8a45b.tar.gz tcl-c90945e7f32fce45c4a00d249c7133156ee8a45b.tar.bz2 |
Fix [26870862f0]: Wrong sentinel in Tcl_SetErrorCode usage; Handle any C++-compiler as well
Diffstat (limited to 'generic/tclOOMethod.c')
-rw-r--r-- | generic/tclOOMethod.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index feaeb23..893c05e 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1395,7 +1395,7 @@ TclOONewForwardInstanceMethod( if (prefixLen < 1) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "method forward prefix must be non-empty", -1)); - Tcl_SetErrorCode(interp, "TCL", "OO", "BAD_FORWARD", NULL); + Tcl_SetErrorCode(interp, "TCL", "OO", "BAD_FORWARD", (void *)NULL); return NULL; } @@ -1434,7 +1434,7 @@ TclOONewForwardMethod( if (prefixLen < 1) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "method forward prefix must be non-empty", -1)); - Tcl_SetErrorCode(interp, "TCL", "OO", "BAD_FORWARD", NULL); + Tcl_SetErrorCode(interp, "TCL", "OO", "BAD_FORWARD", (void *)NULL); return NULL; } |