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

Handle cases where the inliner gives us the name, but nothing else.

Browse Source 
There's not much we can do with these, but at least we don't error.
This commit is contained in:
Vincent St-Amour 2011-10-11 15:00:51 -04:00
parent 4538072df6
commit 24cb6fa0cd
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/typed-racket/optimizer/tool/mzc.rkt
View File

@ -37,17 +37,20 @@
(define inlining-event-regexp
;; Last bit is `generated?'. We don't care about that.
;; The middle elements of the vector are numbers of #f.
"involving: #\\(([^ ]+) #<path:(.+)> ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) [^ ]+\\)")
#rx"involving: (#\\(([^ ]+) #<path:(.+)> ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) [^ ]+\\)|([^ ]+))")
(define (inlining-event->forged-stx l)
(match (regexp-match inlining-event-regexp l)
[`(,all ,name ,path ,line ,col ,pos ,span)
[`(,all ,vec ,name ,path ,line ,col ,pos ,span #f)
(datum->syntax #'here (string->symbol name)
(list path
(string->number line)
(string->number col)
(string->number pos)
(string->number span)))]
[`(,all ,name #f #f #f #f #f #f,name)
;; We only know the name. there's not much we can do with that.
(datum->syntax #'here (string->symbol name) #f)]
[_ (error "ill-formed inlining log entry" l)]))
(define success-kind "Inlining")