suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

still don't know why it tries to read past the end of the id vector (perhaps states of different tabs are getting confused)

Browse Source 
now it will just ignore those invalid reads

svn: r4804
This commit is contained in:
Greg Cooper 2006-11-07 22:27:13 +00:00
parent f89d241e6b
commit 9b02aa9cf7
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mztake/debug-tool.ss
View File

@ -45,6 +45,11 @@
(string-constant intermediate-student/lambda)
(string-constant advanced-student))))
(define (robust-vector-ref vec idx)
(if (< idx (vector-length vec))
(vector-ref vec idx)
#f))
(define (break-at bp p)
(hash-table-get bp p))
@ -230,7 +235,7 @@
(invalidate-bitmap-cache)])
(let* ([frames (send (get-tab) get-stack-frames)]
[pos-vec (send (get-tab) get-pos-vec)]
[id (vector-ref pos-vec pos)]
[id (robust-vector-ref pos-vec pos)]
#;
[_ (printf "frames = ~a~npos-vec = ~a~nid = ~a~n"
frames pos-vec id)])
@ -326,7 +331,7 @@
[(invalid)
(let* ([frames (send (get-tab) get-stack-frames)]
[pos-vec (send (get-tab) get-pos-vec)]
[id (vector-ref pos-vec pos)]
[id (robust-vector-ref pos-vec pos)]
#;
[_ (printf "frames = ~a~npos-vec = ~a~nid = ~a~n"
frames pos-vec id)])