diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-25 10:57:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-05-25 10:57:21 (GMT) |
| commit | 614d534834b68a5de44f51c8c37023f815243f55 (patch) | |
| tree | 4dfbe9371d0061587d4560b24a3f1f807ee197b8 /generic | |
| parent | 073fb53334ed464e6a989bbfaf2c7bf69e38fdb3 (diff) | |
| download | tcl-614d534834b68a5de44f51c8c37023f815243f55.zip tcl-614d534834b68a5de44f51c8c37023f815243f55.tar.gz tcl-614d534834b68a5de44f51c8c37023f815243f55.tar.bz2 | |
Renumber two testcases (align with Tcl 8.7), and align Cywin-specific error-message)
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclStubInit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 23aba3e..82d758c 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -394,7 +394,7 @@ static int exprInt(Tcl_Interp *interp, const char *expr, int *ptr){ *ptr = (int)longValue; } else { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "integer value too large to represent as non-long integer", -1)); + "integer value too large to represent", -1)); result = TCL_ERROR; } } @@ -410,7 +410,7 @@ static int exprIntObj(Tcl_Interp *interp, Tcl_Obj*expr, int *ptr){ *ptr = (int)longValue; } else { Tcl_SetObjResult(interp, Tcl_NewStringObj( - "integer value too large to represent as non-long integer", -1)); + "integer value too large to represent", -1)); result = TCL_ERROR; } } |