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

expander: preserve inlining annotations in machine-independent bytecode

Browse Source
This commit is contained in:
Matthew Flatt 2019-05-03 10:36:42 -06:00
parent 94a24efd10
commit f52fdfdd6e
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/expander/compile/correlated-linklet.rkt
View File

@ -83,7 +83,8 @@
(correlated-span v) (correlated-span v)
(for/fold ([ht #f]) ([k (in-list '(inferred-name (for/fold ([ht #f]) ([k (in-list '(inferred-name
undefined-error-name undefined-error-name
method-arity-error))]) method-arity-error
compiler-hint:cross-module-inline))])
(define p (correlated-property v k)) (define p (correlated-property v k))
(if p (if p
(hash-set (or ht '#hasheq()) k p) (hash-set (or ht '#hasheq()) k p)

3
racket/src/racket/src/startup.inc
View File

@ -28855,7 +28855,8 @@ static const char *startup_source =
"(correlated-line v_0)" "(correlated-line v_0)"
"(correlated-column v_0)" "(correlated-column v_0)"
"(correlated-span v_0)" "(correlated-span v_0)"
"(let-values(((lst_0) '(inferred-name undefined-error-name method-arity-error)))" "(let-values(((lst_0)"
" '(inferred-name undefined-error-name method-arity-error compiler-hint:cross-module-inline)))"
"(begin" "(begin"
"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_0)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_0)))"
"((letrec-values(((for-loop_0)" "((letrec-values(((for-loop_0)"