Tcl Source Code

Check-in [2c8c39bdf1]
Login

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

Overview
Comment:fix coroutine-4.6 so that it runs in isolation, [Bug 3606395]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2c8c39bdf17170dace70b2a5057e74392f81936a
User & Date: mig 2013-02-28 14:19:04
Context
2013-02-28
17:08
Revise TclReleaseLiteral() to tolerate a NULL interp argument. Update callers and revise mistaken co... check-in: c192ffaad6 user: dgp tags: trunk
15:05
merge trunk check-in: 0c45bc8da1 user: dgp tags: dgp-refactor
14:19
fix coroutine-4.6 so that it runs in isolation, [Bug 3606395] check-in: 2c8c39bdf1 user: mig tags: trunk
08:29
Allow Tcl to be compiled even if Tcl_Eval, Tcl_GetVar, ... are macros. check-in: 03b46ac836 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/coroutine.test.

435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
    set leakedBytes [expr {$end - $start}]
} -cleanup {
    rename getbytes {}
    unset i ns start end
} -result 0

test coroutine-4.6 {compile context, bug #3282869} -setup {
    unset ::x
    proc f x {
	coroutine D eval {yield X$x;yield Y}
    }
} -body {
    f 12
} -cleanup {
    rename f {}







|







435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
    set leakedBytes [expr {$end - $start}]
} -cleanup {
    rename getbytes {}
    unset i ns start end
} -result 0

test coroutine-4.6 {compile context, bug #3282869} -setup {
    unset -nocomplain ::x
    proc f x {
	coroutine D eval {yield X$x;yield Y}
    }
} -body {
    f 12
} -cleanup {
    rename f {}