34 lines
910 B
Diff
34 lines
910 B
Diff
From 87dac59f8407ba5d74e52bf223c1b9509aa679ab Mon Sep 17 00:00:00 2001
|
|
From: dgp <dgp@users.sourceforge.net>
|
|
Date: Fri, 16 Nov 2018 17:44:47 +0000
|
|
Subject: [PATCH 480/693] Crash prevention. Still buggy, now test text-11a.22
|
|
fails instead of crashing.
|
|
|
|
---
|
|
generic/tkText.c | 9 +++++++++
|
|
1 file changed, 9 insertions(+)
|
|
|
|
diff --git a/generic/tkText.c b/generic/tkText.c
|
|
index 4c536a22d..a0de1d5d2 100644
|
|
--- a/generic/tkText.c
|
|
+++ b/generic/tkText.c
|
|
@@ -5538,6 +5538,15 @@ RunAfterSyncCmd(
|
|
return;
|
|
}
|
|
|
|
+ if (textPtr->afterSyncCmd == NULL) {
|
|
+ /*
|
|
+ * [Bug 0a9c9151b5] Probably should have idle handlers coded so that
|
|
+ * this cannot happen, but a safety check here at least prevents a
|
|
+ * crash.
|
|
+ */
|
|
+ return;
|
|
+ }
|
|
+
|
|
Tcl_Preserve((ClientData) textPtr->interp);
|
|
code = Tcl_EvalObjEx(textPtr->interp, textPtr->afterSyncCmd, TCL_EVAL_GLOBAL);
|
|
if (code == TCL_ERROR) {
|
|
--
|
|
2.19.1
|
|
|