diff options
| -rw-r--r-- | generic/tclTest.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 2ea3016..63a6740 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -6862,13 +6862,13 @@ NREUnwind_callback( int none; if (data[0] == INT2PTR(-1)) { - TclNRAddCallback(interp, NREUnwind_callback, &none, INT2PTR(-1), + Tcl_NRAddCallback(interp, NREUnwind_callback, &none, INT2PTR(-1), INT2PTR(-1), NULL); } else if (data[1] == INT2PTR(-1)) { - TclNRAddCallback(interp, NREUnwind_callback, data[0], &none, + Tcl_NRAddCallback(interp, NREUnwind_callback, data[0], &none, INT2PTR(-1), NULL); } else if (data[2] == INT2PTR(-1)) { - TclNRAddCallback(interp, NREUnwind_callback, data[0], data[1], + Tcl_NRAddCallback(interp, NREUnwind_callback, data[0], data[1], &none, NULL); } else { Tcl_Obj *idata[3]; @@ -6892,7 +6892,7 @@ TestNREUnwind( * unwinding of the NRE stack. */ - TclNRAddCallback(interp, NREUnwind_callback, INT2PTR(-1), INT2PTR(-1), + Tcl_NRAddCallback(interp, NREUnwind_callback, INT2PTR(-1), INT2PTR(-1), INT2PTR(-1), NULL); return TCL_OK; } |