Tcl Source Code

Check-in [08f40b8f8e]
Login

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

Overview
Comment:Mention compatibility matters in Changelog. Make test insensitive to ambient compat flag.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 08f40b8f8e23fa31decc2f62b051f11041eb5958
User & Date: ferrieux 2012-04-30 09:15:34
Context
2012-04-30
12:55
Revert introduction of non-portable asm snippet in function TclWinCPUID, to restore compilability on... check-in: 2e93a2feb3 user: ferrieux tags: trunk
09:15
Mention compatibility matters in Changelog. Make test insensitive to ambient compat flag. check-in: 08f40b8f8e user: ferrieux tags: trunk
2012-04-28
17:09
IMPLEMENTATION OF TIP#398 : Quickly Exit with Non-Blocking Blocked Channels check-in: efc6bbd2cb user: ferrieux tags: trunk, potential incompatibility
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
2012-14-28  Alexandre Ferrieux  <[email protected]>

	IMPLEMENTATION OF TIP#398

	* generic/tclIO.c: Quickly Exit with Non-Blocking Blocked Channels
	* tests/io.test
	* doc/close.n

2012-04-27  Jan Nijtmans  <[email protected]>

	* generic/tclPort.h:    Move CYGWIN-specific stuff from tclPort.h to
	* generic/tclEnv.c:     tclUnixPort.h, where it belongs.
	* unix/tclUnixPort.h:
	* unix/tclUnixFile.c:





|
|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
2012-14-28  Alexandre Ferrieux  <[email protected]>

	IMPLEMENTATION OF TIP#398

	* generic/tclIO.c: Quickly Exit with Non-Blocking Blocked Channels
	* tests/io.test  : *** POTENTIAL INCOMPATIBILITY ***
	* doc/close.n    : (compat flag available)

2012-04-27  Jan Nijtmans  <[email protected]>

	* generic/tclPort.h:    Move CYGWIN-specific stuff from tclPort.h to
	* generic/tclEnv.c:     tclUnixPort.h, where it belongs.
	* unix/tclUnixPort.h:
	* unix/tclUnixFile.c:

Changes to tests/io.test.

2746
2747
2748
2749
2750
2751
2752

2753
2754
2755
2756
2757
2758
2759
	}
    close $f
    set f [open $path(script2) w]
    puts $f {after 2000}
    close $f
	set t1 [clock seconds]
	set ff [open "|[list [interpreter] $path(script2)]" w]

	exec [interpreter] $path(script) >@ $ff
	set t2 [clock seconds]
	close $ff
	expr {($t2-$t1)/2}
} 0
test io-29.34 {Tcl_Close, async flush on close, using sockets} {socket tempNotMac fileevent} {
    variable c 0







>







2746
2747
2748
2749
2750
2751
2752
2753
2754
2755
2756
2757
2758
2759
2760
	}
    close $f
    set f [open $path(script2) w]
    puts $f {after 2000}
    close $f
	set t1 [clock seconds]
	set ff [open "|[list [interpreter] $path(script2)]" w]
	catch {unset ::env(TCL_FLUSH_NONBLOCKING_ON_EXIT)}
	exec [interpreter] $path(script) >@ $ff
	set t2 [clock seconds]
	close $ff
	expr {($t2-$t1)/2}
} 0
test io-29.34 {Tcl_Close, async flush on close, using sockets} {socket tempNotMac fileevent} {
    variable c 0