83d72a091e
Initial check-in of openocd-0.7.0 as it can be downloaded from http://sourceforge.net/projects/openocd/files/openocd/0.7.0/ Any modifications will follow. Change-Id: I6949beaefd589e046395ea0cb80f4e1ab1654d55
20 lines
315 B
Tcl
20 lines
315 B
Tcl
# Tests that SIGALRM can interrupt read
|
|
set f [open "/dev/urandom" r]
|
|
|
|
set count 0
|
|
set error NONE
|
|
|
|
signal handle SIGALRM
|
|
catch -signal {
|
|
alarm 0.5
|
|
while {1} {
|
|
incr count [string bytelength [read $f 100]]
|
|
}
|
|
alarm 0
|
|
signal default SIGALRM
|
|
} error
|
|
|
|
puts "Read $count bytes in 0.5 seconds: Got $error"
|
|
|
|
$f close
|