diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-11 21:51:31 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-11-11 21:51:31 (GMT) |
| commit | 2a94e801888e3dd1b0514c9c20baca08919f8dca (patch) | |
| tree | 6d5c0ceb2810a9a80f12a702143ffc9f939d40f1 /generic/tclOOBasic.c | |
| parent | 1b232cf14ce2e75971718160c301d39c97ab4341 (diff) | |
| parent | 874327229c5e64a52e1fc3b4da6a31936ec07ed2 (diff) | |
| download | tcl-2a94e801888e3dd1b0514c9c20baca08919f8dca.zip tcl-2a94e801888e3dd1b0514c9c20baca08919f8dca.tar.gz tcl-2a94e801888e3dd1b0514c9c20baca08919f8dca.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index 72dc041..ef554d7 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -15,6 +15,7 @@ #endif #include "tclInt.h" #include "tclOOInt.h" +#include "tclTomMath.h" static inline Tcl_Object *AddConstructionFinalizer(Tcl_Interp *interp); static Tcl_NRPostProc AfterNRDestructor; @@ -1248,7 +1249,7 @@ TclOOSelfObjCmd( } case SELF_CALL: result[0] = TclOORenderCallChain(interp, contextPtr->callPtr); - TclNewIntObj(result[1], contextPtr->index); + TclNewIndexObj(result[1], contextPtr->index); Tcl_SetObjResult(interp, Tcl_NewListObj(2, result)); return TCL_OK; } |