better comments

2 files changed, 8 insertions, 5 deletions

diff --git a/generic/tcl.h b/generic/tcl.h
index 051e2a1..543b2a6 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -2413,7 +2413,8 @@ const char *		TclTomMathInitializeStubs(Tcl_Interp *interp,
 
 #ifdef USE_TCL_STUBS
 EXTERN Tcl_Interp *Tcl_InitSubsystems(Tcl_PanicProc *panicProc);
-#define Tcl_InitSubsystems(panicProc) Tcl_InitStubs((Tcl_InitSubsystems)(panicProc), NULL, 0)
+#define Tcl_InitSubsystems(panicProc) \
+    Tcl_InitStubs((Tcl_InitSubsystems)(panicProc), NULL, 0)
 #else
 EXTERN const char *Tcl_InitSubsystems(Tcl_PanicProc *panicProc);
 #endif
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index e57272f..a83a6b0 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -1428,10 +1428,12 @@ Tcl_UtfToExternal(
  */
 MODULE_SCOPE const TclStubs tclStubs;
 
-/* Dummy const structure returned by Tcl_InitSubsystems,
- * which looks like an Tcl_Interp, but in reality is not.
- * It contains just enough for Tcl_InitStubs to be able
- * to initialize the stub table. */
+/* Dummy const structure returned by Tcl_InitSubsystems when
+ * using stubs, which looks like an Tcl_Interp, but in reality
+ * is not. It contains just enough for Tcl_InitStubs to be able
+ * to initialize the stub table. The first bytes of this structure
+ * are filled with the Tcl version string, so it can be cast to a
+ * "const char *" holding the Tcl version as well. */
 static const struct {
     /* A real interpreter has interp->result/freeProc here: */
     const char version[sizeof(struct {char *r; void (*f)(void);})];