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

redex: update virtual machine benchmark diffs

Browse Source
This commit is contained in:
Burke Fetscher 2014-03-18 23:29:33 -05:00
parent 89ad8cd062
commit d8d4d9712a
5 changed files with 10 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/rvm/14.diff
View File

@ -16,12 +16,11 @@
> ;; bug 14 > ;; bug 14
> [(closure-intact? (box-nc ṽ_1 ...) (imm ṽ_2 ...)) > [(closure-intact? (box-nc ṽ_1 ...) (imm ṽ_2 ...))
> (closure-intact? (ṽ_1 ...) (ṽ_2 ...))] > (closure-intact? (ṽ_1 ...) (ṽ_2 ...))]
474a480,486 478a484,490
>
> (test-equal > (test-equal
> (bytecode-ok? > (bytecode-ok?
> '(let-one 'x > '(let-one 'x
> (let-rec ((lam () (0) (application (loc-noclr 0)))) > (let-rec ((lam () (0) (application (loc-noclr 0))))
> 'x))) > 'x)))
> #t) > #t)
\ No newline at end of file >

5
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/rvm/15.diff
View File

@ -13,8 +13,7 @@
< `(case-lam ,@(map (curry recur depth #f) ls))] < `(case-lam ,@(map (curry recur depth #f) ls))]
--- ---
> `(case-lam ,@(map (curry recur depth #t) ls))] > `(case-lam ,@(map (curry recur depth #t) ls))]
474a477,484 478a481,488
>
> (test-equal > (test-equal
> (bytecode-ok? > (bytecode-ok?
> '(let-one 42 > '(let-one 42
@ -22,4 +21,4 @@
> (application (case-lam (lam (ref) () (loc-box 0))) > (application (case-lam (lam (ref) () (loc-box 0)))
> (loc-box 1))))) > (loc-box 1)))))
> #t) > #t)
\ No newline at end of file >

4
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/rvm/3.diff
View File

@ -14,8 +14,7 @@
< (where (s_1 γ_1 η_1) (verify* (e_0 e_1 ...) (abs-push n not s) n_l* #f γ η)) < (where (s_1 γ_1 η_1) (verify* (e_0 e_1 ...) (abs-push n not s) n_l* #f γ η))
--- ---
> (where (s_1 γ_1 η_1) (verify* (e_0 e_1 ...) (abs-push n uninit s) n_l* #f γ η)) > (where (s_1 γ_1 η_1) (verify* (e_0 e_1 ...) (abs-push n uninit s) n_l* #f γ η))
474a475,482 478a479,486
>
> (test-equal > (test-equal
> (bytecode-ok? > (bytecode-ok?
> '(application > '(application
@ -23,3 +22,4 @@
> 'x > 'x
> (install-value 0 'y (boxenv 0 'z)))) > (install-value 0 'y (boxenv 0 'z))))
> #t) > #t)
>

4
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/rvm/4.diff
View File

@ -7,10 +7,10 @@
--- ---
> ;; bug 4 > ;; bug 4
> #;(side-condition (< (term n_p) (term n_l)))] > #;(side-condition (< (term n_p) (term n_l)))]
474a476,481 478a480,485
>
> (test-equal > (test-equal
> (bytecode-ok? > (bytecode-ok?
> '(let-one 'x > '(let-one 'x
> (branch #f (boxenv 0 'y) (loc-box 0)))) > (branch #f (boxenv 0 'y) (loc-box 0))))
> #t) > #t)
>

5
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/rvm/5.diff
View File

@ -7,8 +7,7 @@
--- ---
> ;;bug 5 > ;;bug 5
> ;;(side-condition (<= (term n) (term n_l))) > ;;(side-condition (<= (term n) (term n_l)))
474a476,483 478a480,487
>
> (test-equal > (test-equal
> (bytecode-ok? > (bytecode-ok?
> '(let-void 1 > '(let-void 1
@ -16,4 +15,4 @@
> (let-rec ((lam () (0) 'x)) 'y) > (let-rec ((lam () (0) 'x)) 'y)
> (loc-noclr 0)))) > (loc-noclr 0))))
> #t) > #t)
\ No newline at end of file >