summaryrefslogtreecommitdiffstats
path: root/tools/genStubs.tcl
diff options
context:
space:
mode:
authordas <das>2008-04-08 14:52:43 (GMT)
committerdas <das>2008-04-08 14:52:43 (GMT)
commit6c606823f1b0924392dfd55c455beb08be96094a (patch)
treec810c75229f8ddd355f70ba8f0925a9a61d08aff /tools/genStubs.tcl
parent2c13070f5fd97ee4c28c1843f2a551538185b453 (diff)
downloadtcl-6c606823f1b0924392dfd55c455beb08be96094a.zip
tcl-6c606823f1b0924392dfd55c455beb08be96094a.tar.gz
tcl-6c606823f1b0924392dfd55c455beb08be96094a.tar.bz2
* tools/genStubs.tcl: revert erroneous 2008-04-02 change marking
*StubsPtr as EXTERN instead of extern.
Diffstat (limited to 'tools/genStubs.tcl')
-rw-r--r--tools/genStubs.tcl4
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl
index 0f69997..ab5ebbc 100644
--- a/tools/genStubs.tcl
+++ b/tools/genStubs.tcl
@@ -10,7 +10,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: genStubs.tcl,v 1.24 2008/04/02 21:29:05 das Exp $
+# RCS: @(#) $Id: genStubs.tcl,v 1.25 2008/04/08 14:52:45 das Exp $
package require Tcl 8.4
@@ -998,7 +998,7 @@ proc genStubs::emitHeader {name} {
set upName [string toupper $libraryName]
append text "\n#if defined(USE_${upName}_STUBS) && !defined(USE_${upName}_STUB_PROCS)\n"
- append text "EXTERN CONST ${capName}Stubs *${name}StubsPtr;"
+ append text "extern CONST ${capName}Stubs *${name}StubsPtr;"
append text "\n#endif /* defined(USE_${upName}_STUBS) && !defined(USE_${upName}_STUB_PROCS) */\n"
emitMacros $name text