mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 08:40:19 +02:00
Code Activity

Support closure annotations to scm-ref et al

Browse source 
* module/language/cps/effects-analysis.scm (annotation->memory-kind):
* module/language/cps/types.scm (annotation->type): Add pairs and
  closures.
This commit is contained in:
Andy Wingo 2017-12-06 13:45:24 +01:00
parent 52e28fd19e
commit 4dca2c5cfb
2 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/cps/effects-analysis.scm
View file

@ -342,7 +342,8 @@ the LABELS that are clobbered by the effects of LABEL."
(match annotation (match annotation
('pair &pair) ('pair &pair)
('vector &vector) ('vector &vector)
('box &box))) ('box &box)
('closure &closure)))
(define-primitive-effects* param (define-primitive-effects* param
((allocate-words size) (&allocate (annotation->memory-kind param))) ((allocate-words size) (&allocate (annotation->memory-kind param)))

4
module/language/cps/types.scm
View file

@ -712,8 +712,10 @@ minimum, and maximum."
(define (annotation->type ann) (define (annotation->type ann)
;; Expand me! ;; Expand me!
(match ann (match ann
('pair &pair)
('vector &vector) ('vector &vector)
('box &box))) ('box &box)
('closure &procedure)))
(define-type-inferrer/param (allocate-words param size result) (define-type-inferrer/param (allocate-words param size result)
(define! result (annotation->type param) (&min/0 size) (&max/scm-size size))) (define! result (annotation->type param) (&min/0 size) (&max/scm-size size)))