debuggers: import openocd-0.7.0
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
This commit is contained in:
19
debuggers/openocd/jimtcl/examples/timedread.tcl
Normal file
19
debuggers/openocd/jimtcl/examples/timedread.tcl
Normal file
@ -0,0 +1,19 @@
|
||||
# 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
|
||||
Reference in New Issue
Block a user