1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
From: Sergei Golovan
Subject: Patch adapts tcLex to the changes in the Tcl internal
Command structure.
Date: Thu, 27 Mar 2025 13:43:32 +0300
--- a/src/tcLex.c
+++ b/src/tcLex.c
@@ -1145,7 +1145,13 @@
currentLexer = LexerGetCurrent(interp);
if (currentLexer) {
+#if defined(CMD_IS_DELETED)
+ if (((Command*)currentLexer->command)->flags & CMD_IS_DELETED)
+#elif defined(CMD_DYING)
+ if (((Command*)currentLexer->command)->flags & CMD_DYING)
+#else
if (((Command*)currentLexer->command)->deleted)
+#endif
/* If command has been deleted, the token is meaningless. Return no result */
Tcl_ResetResult(interp);
else
|
