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

fix `unsafe-set-box*!'

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-03 15:44:14 -06:00
parent 82f102bfd8
commit 26e0ad955a
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/racket/unsafe.rktl
View File

@ -221,7 +221,7 @@
#:post (lambda (x) (mcdr v))
#:literal-ok? #f))
(for ([star (list values (add-star "vector"))])
(for ([star (list values (add-star "box"))])
(test-un 3 (star 'unsafe-unbox) #&3)
(let ([b (box 12)])
(test-tri (list (void) 8)

3
src/racket/src/jit.c
View File

@ -8070,7 +8070,8 @@ static int generate_inlined_binary(mz_jit_state *jitter, Scheme_App3_Rec *app, i
ref3 = NULL;
jit_ldxi_s(JIT_R2, JIT_R0, &((Scheme_Object *)0x0)->type);
ref = jit_beqi_i(jit_forward(), JIT_R2, scheme_box_type);
mz_patch_branch(ref3);
if (ref3)
mz_patch_branch(ref3);
(void)jit_calli(set_box_code);
ref2 = jit_jmpi(jit_forward());
mz_patch_branch(ref);