Tcl Source Code

Check-in [534312e090]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix bug in genStubs.tcl: If the macosx section doesn't contain any macosx-specific entries, no section at all is created
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 534312e09095760be8b36029dce3518da509d173
User & Date: jan.nijtmans 2012-11-15 15:04:08
Context
2012-11-16
08:35
Don't use deprecated function check-in: c063c9d28f user: jan.nijtmans tags: trunk
2012-11-15
20:25
Contributed patch from Andy Goth. check-in: 9fb81c1f45 user: dgp tags: bug-3033307
15:04
Fix bug in genStubs.tcl: If the macosx section doesn't contain any macosx-specific entries, no secti... check-in: 534312e090 user: jan.nijtmans tags: trunk
15:02
Fix bug in genStubs.tcl: If the macosx section doesn't contain any macosx-specific entries, no secti... check-in: 468cd154a3 user: jan.nijtmans tags: core-8-5-branch
11:48
Simplification: don't declare struct types that are never used. check-in: 1e2c21fd06 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tools/genStubs.tcl.

824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
		} else {
		    eval {append temp} $skipString
		}
	    }
	    append text [addPlatformGuard $plat $temp {} true]
	}
	## macosx ##
	if {$block(macosx) && !$block(aqua) && !$block(x11)} {
	    set temp {}
	    set lastNum -1
	    foreach plat {unix macosx} {
		if {$block($plat)} {
		    set lastNum [expr {$lastNum > $stubs($name,$plat,lastNum)
			    ? $lastNum : $stubs($name,$plat,lastNum)}]
		}







|







824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
		} else {
		    eval {append temp} $skipString
		}
	    }
	    append text [addPlatformGuard $plat $temp {} true]
	}
	## macosx ##
	if {($block(unix) || $block(macosx)) && !$block(aqua) && !$block(x11)} {
	    set temp {}
	    set lastNum -1
	    foreach plat {unix macosx} {
		if {$block($plat)} {
		    set lastNum [expr {$lastNum > $stubs($name,$plat,lastNum)
			    ? $lastNum : $stubs($name,$plat,lastNum)}]
		}