diff options
| author | das <das> | 2008-04-08 14:52:43 (GMT) |
|---|---|---|
| committer | das <das> | 2008-04-08 14:52:43 (GMT) |
| commit | 6c606823f1b0924392dfd55c455beb08be96094a (patch) | |
| tree | c810c75229f8ddd355f70ba8f0925a9a61d08aff /tools/genStubs.tcl | |
| parent | 2c13070f5fd97ee4c28c1843f2a551538185b453 (diff) | |
| download | tcl-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.tcl | 4 |
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 |