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

Revert "JIT: fix inline allocation for large vectors"

Browse Source 
This reverts commit ce9894c8bf.

I don't immediately see what has gone wrong, so reverting for now.
This commit is contained in:
Matthew Flatt 2017-10-25 17:18:32 -06:00
parent ce9894c8bf
commit f7b3d3f4b4
2 changed files with 1 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/racket-test-core/tests/racket/jitinline.rktl
View File

@ -914,18 +914,6 @@
))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Make sure that the JIT doesn't try to inline
;; a vector allocation that is too large
(parameterize ([current-namespace (make-base-namespace)])
(let loop ([i 10])
((eval `(lambda (x) (vector x ,@(for/list ([j (in-range i)])
j))))
i)
(when (i . < . 100000)
(loop (floor (* i #e1.25))))))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Check JIT handling of structure-reference sequences

5
racket/src/racket/src/jitinline.c
View File

@ -5250,10 +5250,7 @@ static int generate_vector_alloc(mz_jit_state *jitter, Scheme_Object *rator,
c = 2;
} else {
c = app->num_args;
if (c > 256) {
/* Too big for inline alloc */
return scheme_generate_app(app, NULL, c, c, jitter, 0, 0, 0, 0);
} else if (c)
if (c)
scheme_generate_app(app, NULL, c, c, jitter, 0, 0, 0, 2); /* sync'd below */
}
CHECK_LIMIT();