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

Accept inliner log messages from unsaved editors.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-06-29 16:50:48 -04:00
parent 8eee1265b5
commit 895e3a94fa
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -58,7 +58,9 @@
;; _What_ gets inlined (or not).
(string-append ; either a vector with name and source info, or just name
"("
"#\\(([^ ]+) #<path:(.+)> ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) [^ ]+\\)"
"#\\(([^ ]+) "
"(" "#<path:(.+)>" "|" "([^ ]+)" ")"
" ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) [^ ]+\\)"
"|"
"([^ ]+)" ; just name, we won't be able to do much with it
")")
@ -83,7 +85,7 @@
(define (parse-inlining-event l)
(match (regexp-match inlining-event-regexp l)
[`(,all ,kind
,what ,name ,path ,line ,col ,pos ,span
,what ,name ,path ,file-path ,unsaved-path ,line ,col ,pos ,span
,only-name
,where ,where-loc ,where-path ,where-line ,where-col ,where-name
,maybe-module-info
@ -92,7 +94,7 @@
(string->symbol (or name only-name))
(if only-name
#f ; no source location
(list path
(list (or file-path unsaved-path)
(string->number line)
(string->number col)
(string->number pos)