diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-10-24 02:00:15 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-10-24 02:00:15 (GMT) |
| commit | f338047c195aac7e3ac7bb3485da02b33fd868a2 (patch) | |
| tree | 159ec7baa48a4fae2ac0fceb40eb4306dea28539 /tools/genStubs.tcl | |
| parent | 90221ac971708ce2bd09ffff98b55b8198513808 (diff) | |
| parent | 335774aef1d1e39ff22a1024aaa062106f99390b (diff) | |
| download | tcl-f338047c195aac7e3ac7bb3485da02b33fd868a2.zip tcl-f338047c195aac7e3ac7bb3485da02b33fd868a2.tar.gz tcl-f338047c195aac7e3ac7bb3485da02b33fd868a2.tar.bz2 | |
merge 8.7
Diffstat (limited to 'tools/genStubs.tcl')
| -rw-r--r-- | tools/genStubs.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tools/genStubs.tcl b/tools/genStubs.tcl index 830ba2b..f2f410f 100644 --- a/tools/genStubs.tcl +++ b/tools/genStubs.tcl @@ -198,6 +198,13 @@ proc genStubs::declare {args} { || ($index > $stubs($curName,generic,lastNum))} { set stubs($curName,generic,lastNum) $index } + } elseif {([lindex $platformList 0] eq "nostub")} { + set stubs($curName,nostub,$index) [lindex $platformList 1] + set stubs($curName,generic,$index) $decl + if {![info exists stubs($curName,generic,lastNum)] \ + || ($index > $stubs($curName,generic,lastNum))} { + set stubs($curName,generic,lastNum) $index + } } else { foreach platform $platformList { if {$decl ne ""} { @@ -593,6 +600,8 @@ proc genStubs::makeSlot {name decl index} { set text " " if {[info exists stubs($name,deprecated,$index)]} { append text "TCL_DEPRECATED_API(\"$stubs($name,deprecated,$index)\") " + } elseif {[info exists stubs($name,nostub,$index)]} { + append text "TCL_DEPRECATED_API(\"$stubs($name,nostub,$index)\") " } if {$args eq ""} { append text $rtype " *" $lfname "; /* $index */\n" @@ -705,6 +714,9 @@ proc genStubs::forAllStubs {name slotProc onAll textVar if {[info exists stubs($name,deprecated,$i)]} { append text [$slotProc $name $stubs($name,generic,$i) $i] set emit 1 + } elseif {[info exists stubs($name,nostub,$i)]} { + append text [$slotProc $name $stubs($name,generic,$i) $i] + set emit 1 } elseif {[info exists stubs($name,generic,$i)]} { if {[llength $slots] > 1} { puts stderr "conflicting generic and platform entries:\ |