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
revert previous workaround in tclInt.decls |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-4-branch |
| Files: | files | file ages | folders |
| SHA1: |
3c4decb155b1400f6f1e09b375a7d683 |
| User & Date: | jan.nijtmans 2012-11-15 15:00:14 |
Context
|
2012-11-15
| ||
| 17:55 | More complete purge of things only present for supporting long-dead Mac 9 systems. check-in: 7506775d52 user: dgp tags: core-8-4-branch | |
| 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 | |
| 15:00 | Fix bug in genStubs.tcl: If the macosx section doesn't contain any macosx-specific entries, no secti... check-in: 3c4decb155 user: jan.nijtmans tags: core-8-4-branch | |
| 14:33 | add missing macosx sections check-in: 72b6dd4575 user: jan.nijtmans tags: core-8-4-branch | |
Changes
Changes to generic/tclInt.decls.
| ︙ | ︙ | |||
899 900 901 902 903 904 905 |
}
declare 12 unix {
struct tm *TclpGmtime_unix(TclpTime_t_CONST clock)
}
declare 13 unix {
char *TclpInetNtoa(struct in_addr addr)
}
| | | 899 900 901 902 903 904 905 906 907 908 909 910 911 912 |
}
declare 12 unix {
struct tm *TclpGmtime_unix(TclpTime_t_CONST clock)
}
declare 13 unix {
char *TclpInetNtoa(struct in_addr addr)
}
declare 29 unix {
int TclWinCPUID(unsigned int index, unsigned int *regs)
}
# Local Variables:
# mode: tcl
# End:
|
Changes to tools/genStubs.tcl.
| ︙ | ︙ | |||
823 824 825 826 827 828 829 |
} else {
eval {append temp} $skipString
}
}
append text [addPlatformGuard $plat $temp {} true]
}
## macosx ##
| | | 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 |
} 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)}]
}
|
| ︙ | ︙ |