diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-21 08:07:40 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-21 08:07:40 (GMT) |
commit | 07bdaceb97e059a802ca158f1661c23e651ec949 (patch) | |
tree | 1ed1f0a3e8be5199be20e9651bf3251f474087b3 /tools/genStubs.tcl | |
parent | 040753e40a5a86ac36162436f039def7a7238dc9 (diff) | |
parent | dbf049c0fba4506927b17c7ff9f7d66aa61cde18 (diff) | |
download | tcl-jn_no_struct_names.zip tcl-jn_no_struct_names.tar.gz tcl-jn_no_struct_names.tar.bz2 |
unnecessary hook struct definitionsjn_no_struct_names
Diffstat (limited to 'tools/genStubs.tcl')
-rw-r--r-- | tools/genStubs.tcl | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index dea63e6..bbeb4bf 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -986,7 +986,7 @@ proc genStubs::emitHeader {name} { emitDeclarations $name text if {[info exists hooks($name)]} { - append text "\ntypedef struct ${capName}StubHooks {\n" + append text "\ntypedef struct {\n" foreach hook $hooks($name) { set capHook [string toupper [string index $hook 0]] append capHook [string range $hook 1 end] @@ -1000,7 +1000,11 @@ proc genStubs::emitHeader {name} { append text " int epoch;\n" append text " int revision;\n" } - append text " const struct ${capName}StubHooks *hooks;\n\n" + if {[info exists hooks($name)]} { + append text " const ${capName}StubHooks *hooks;\n\n" + } else { + append text " void *hooks;\n\n" + } emitSlots $name text |