Tcl Source Code

Artifact c9ec19e29698083b4d5c45848753a8dbeffeb14d:

Attachment "2959713.patch" to ticket [2959713fff] added by kennykb 2010-02-27 00:17:32.

---

Index: generic/tclOOStubInit.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclOOStubInit.c,v
retrieving revision 1.10
diff -u -r1.10 tclOOStubInit.c
--- generic/tclOOStubInit.c	15 Feb 2010 22:56:20 -0000	1.10
+++ generic/tclOOStubInit.c	26 Feb 2010 17:16:10 -0000
@@ -39,6 +39,7 @@
     &tclOOIntStubs
 };
 
+MODULE_SCOPE const TclOOStubs tclOOStubs;
 const TclOOStubs tclOOStubs = {
     TCL_STUB_MAGIC,
     &tclOOStubHooks,
Index: generic/tclStubInit.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclStubInit.c,v
retrieving revision 1.187
diff -u -r1.187 tclStubInit.c
--- generic/tclStubInit.c	15 Feb 2010 22:56:20 -0000	1.187
+++ generic/tclStubInit.c	26 Feb 2010 17:16:11 -0000
@@ -387,6 +387,7 @@
 #endif /* MACOSX */
 };
 
+MODULE_SCOPE const TclTomMathStubs tclTomMathStubs;
 const TclTomMathStubs tclTomMathStubs = {
     TCL_STUB_MAGIC,
     NULL,
@@ -459,6 +460,7 @@
     &tclIntPlatStubs
 };
 
+MODULE_SCOPE const TclStubs tclStubs;
 const TclStubs tclStubs = {
     TCL_STUB_MAGIC,
     &tclStubHooks,
Index: tools/genStubs.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/tools/genStubs.tcl,v
retrieving revision 1.39
diff -u -r1.39 genStubs.tcl
--- tools/genStubs.tcl	15 Feb 2010 22:56:20 -0000	1.39
+++ tools/genStubs.tcl	26 Feb 2010 17:16:12 -0000
@@ -998,6 +998,7 @@
     }
 
     if {$root} {
+	append text "\nMODULE_SCOPE const ${capName}Stubs ${name}Stubs;"
 	append text "\nconst ${capName}Stubs ${name}Stubs = \{\n"
     } else {
 	append text "\nstatic const ${capName}Stubs ${name}Stubs = \{\n"