mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-29 08:20:20 +02:00
add lookup-block-scope
* module/language/cps/dfg.scm (lookup-block-scope): New interface. (visit-fun): Give a bit more info if link-blocks! fails.
This commit is contained in:
parent
bc01d8f7e0
commit
c8ad7426e2
1 changed files with 5 additions and 1 deletions
|
@ -50,6 +50,7 @@
|
|||
lookup-uses
|
||||
lookup-predecessors
|
||||
lookup-successors
|
||||
lookup-block-scope
|
||||
find-call
|
||||
call-expression
|
||||
find-expression
|
||||
|
@ -599,7 +600,7 @@
|
|||
(let ((pred-block (hashq-ref blocks pred))
|
||||
(succ-block (hashq-ref blocks succ)))
|
||||
(unless (and pred-block succ-block)
|
||||
(error "internal error"))
|
||||
(error "internal error" pred-block succ-block))
|
||||
(set-block-succs! pred-block (cons succ (block-succs pred-block)))
|
||||
(set-block-preds! succ-block (cons pred (block-preds succ-block)))))
|
||||
|
||||
|
@ -727,6 +728,9 @@
|
|||
(($ $use-map name sym def uses)
|
||||
uses)))))
|
||||
|
||||
(define (lookup-block-scope k dfg)
|
||||
(block-scope (lookup-block k (dfg-blocks dfg))))
|
||||
|
||||
(define (lookup-predecessors k dfg)
|
||||
(match (lookup-block k (dfg-blocks dfg))
|
||||
(($ $block _ _ preds succs) preds)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue