mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

Fix compute-predecessors bug in frame.scm

Browse source 
* module/system/vm/frame.scm (compute-predecessors): Fix bug in
  resolving targets of backwards branches.
This commit is contained in:
Andy Wingo 2014-05-28 10:46:19 -04:00
parent 146c8e72a9
commit 5062a56df0
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/system/vm/frame.scm
View file

@ -64,7 +64,7 @@
(let lp ((to from) (target target)) (let lp ((to from) (target target))
(cond (cond
((negative? target) ((negative? target)
(lp (1- to) (+ target (vector-ref parsed to)))) (lp (1- to) (+ target (vector-ref parsed (1- to)))))
((positive? target) ((positive? target)
(lp (1+ to) (- target (vector-ref parsed to)))) (lp (1+ to) (- target (vector-ref parsed to))))
((= to (vector-length preds)) ((= to (vector-length preds))