From 8b385f576d9e88424573a523da358f29719681a8 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Mon, 19 Sep 2022 14:06:22 +0000
Subject: Upgrade Tcl_SaveResult usage to Tcl_SaveInterpState.

---
 generic/tclEvent.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/generic/tclEvent.c b/generic/tclEvent.c
index 35d0e97..7846b71 100644
--- a/generic/tclEvent.c
+++ b/generic/tclEvent.c
@@ -1505,7 +1505,7 @@ Tcl_VwaitObjCmd(
 {
     int i, done = 0, timedOut = 0, foundEvent, any = 1, timeout = 0;
     int numItems = 0, extended = 0, result, mode, mask = TCL_ALL_EVENTS;
-    Tcl_SavedResult savedResult;
+    Tcl_InterpState saved = NULL;
     Tcl_TimerToken timer = NULL;
     Tcl_Time before, after;
     Tcl_Channel chan;
@@ -1802,7 +1802,7 @@ Tcl_VwaitObjCmd(
 	Tcl_DeleteTimerHandler(timer);
     }
     if (result != TCL_OK) {
-	Tcl_SaveResult(interp, &savedResult);
+	saved = Tcl_SaveInterpState(interp, result);
     }
     for (i = 0; i < numItems; i++) {
 	if (vwaitItems[i].mask & TCL_READABLE) {
@@ -1858,7 +1858,7 @@ Tcl_VwaitObjCmd(
 	    Tcl_SetObjResult(interp, Tcl_NewWideIntObj(diff));
 	}
     } else {
-	Tcl_RestoreResult(interp, &savedResult);
+	Tcl_RestoreInterpState(interp, saved);
     }
     if (vwaitItems != localItems) {
 	ckfree(vwaitItems);
-- 
cgit v0.12