Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove some useless code from mcset and mcmset: [dict set] builds dictionary levels for us. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
076d311d4face72de065fb184a0cf427 |
| User & Date: | dkf 2011-05-24 12:23:52 |
Context
|
2011-05-24
| ||
| 12:36 | Undo mistaken commit check-in: c1347e51a9 user: dkf tags: trunk | |
| 12:23 | Remove some useless code from mcset and mcmset: [dict set] builds dictionary levels for us. check-in: 076d311d4f user: dkf tags: trunk | |
|
2011-05-17
| ||
| 21:38 | Merged core-8-5-branch, fixup of TIP 280 location mapping. check-in: 168a79562b user: andreask tags: trunk | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2011-05-17 Andreas Kupries <[email protected]> * generic/tclCompile.c (TclFixupForwardJump): Tracked down and fixed * generic/tclBasic.c (TclArgumentBCEnter): the cause of a violation of my assertion that 'ePtr->nline == objc' in TclArgumentBCEnter. When a bytecode was grown during jump fixup the pc -> command line mapping was not updated. When things aligned just wrong the mapping | > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 | 2011-05-24 Donal K. Fellows <[email protected]> * library/msgcat/msgcat.tcl (msgcat::mcset, msgcat::mcmset): Remove some useless code; [dict set] builds dictionary levels for us. 2011-05-17 Andreas Kupries <[email protected]> * generic/tclCompile.c (TclFixupForwardJump): Tracked down and fixed * generic/tclBasic.c (TclArgumentBCEnter): the cause of a violation of my assertion that 'ePtr->nline == objc' in TclArgumentBCEnter. When a bytecode was grown during jump fixup the pc -> command line mapping was not updated. When things aligned just wrong the mapping |
| ︙ | ︙ |
Changes to generic/tclInt.h.
| ︙ | ︙ | |||
4223 4224 4225 4226 4227 4228 4229 | * counter. The ANSI C "prototype" for this macro is: * * MODULE_SCOPE void TclInvalidateNsCmdLookup(Namespace *nsPtr); *---------------------------------------------------------------- */ #define TclInvalidateNsCmdLookup(nsPtr) \ | | | > > > | 4223 4224 4225 4226 4227 4228 4229 4230 4231 4232 4233 4234 4235 4236 4237 4238 4239 4240 4241 |
* counter. The ANSI C "prototype" for this macro is:
*
* MODULE_SCOPE void TclInvalidateNsCmdLookup(Namespace *nsPtr);
*----------------------------------------------------------------
*/
#define TclInvalidateNsCmdLookup(nsPtr) \
if ((nsPtr)->numExportPatterns) { \
(nsPtr)->exportLookupEpoch++; \
} \
if ((nsPtr)->commandPathLength) { \
(nsPtr)->cmdRefEpoch++; \
}
/*
*----------------------------------------------------------------------
*
* Core procedures added to libtommath for bignum manipulation.
*
|
| ︙ | ︙ |
Changes to library/msgcat/msgcat.tcl.
| ︙ | ︙ | |||
309 310 311 312 313 314 315 |
set dest $src
}
set ns [uplevel 1 [list ::namespace current]]
set locale [string tolower $locale]
| < < < < < < < | 309 310 311 312 313 314 315 316 317 318 319 320 321 322 |
set dest $src
}
set ns [uplevel 1 [list ::namespace current]]
set locale [string tolower $locale]
dict set Msgs $locale $ns $src $dest
return $dest
}
# msgcat::mcmset --
#
# Set the translation for multiple strings in a specified locale.
|
| ︙ | ︙ | |||
343 344 345 346 347 348 349 |
return -code error "bad translation list:\
should be \"[lindex [info level 0] 0] locale {src dest ...}\""
}
set locale [string tolower $locale]
set ns [uplevel 1 [list ::namespace current]]
| < < < < < < < | 336 337 338 339 340 341 342 343 344 345 346 347 348 349 |
return -code error "bad translation list:\
should be \"[lindex [info level 0] 0] locale {src dest ...}\""
}
set locale [string tolower $locale]
set ns [uplevel 1 [list ::namespace current]]
foreach {src dest} $pairs {
dict set Msgs $locale $ns $src $dest
}
return $length
}
|
| ︙ | ︙ |