mirror of
https://git.freebsd.org/ports.git
synced 2025-07-03 02:20:33 -04:00
41bded2c05
- Fix build with Tcl 8.6 PR: 178050 [1] Submitted by: Pietro Cerutti <gahr@FreeBSD.org> Approved by: maintainer (> 1 month timeout)
20 lines
713 B
C
20 lines
713 B
C
--- generic/commands.c.orig 2013-06-03 14:05:27.000000000 +0200
|
|
+++ generic/commands.c 2013-06-03 14:06:34.000000000 +0200
|
|
@@ -83,7 +83,7 @@
|
|
return TCL_OK;
|
|
|
|
case TCL_ERROR:
|
|
- sprintf(infomsg, "\n (\"do\" body line %d)", frame->interp->errorLine);
|
|
+ sprintf(infomsg, "\n (\"do\" body line %d)", Tcl_GetErrorLine(frame->interp));
|
|
Tcl_AddErrorInfo(frame->interp, infomsg);
|
|
return TCL_ERROR;
|
|
|
|
@@ -124,7 +124,7 @@
|
|
return TCL_OK;
|
|
|
|
case TCL_ERROR:
|
|
- sprintf(infomsg, "\n (\"loop\" body line %d)", frame->interp->errorLine);
|
|
+ sprintf(infomsg, "\n (\"loop\" body line %d)", Tcl_GetErrorLine(frame->interp));
|
|
Tcl_AddErrorInfo(frame->interp, infomsg);
|
|
return TCL_ERROR;
|
|
|