Revert "JIT: fix inline allocation for large vectors"
This reverts commit ce9894c8bf
.
I don't immediately see what has gone wrong, so reverting for now.
This commit is contained in:
parent
ce9894c8bf
commit
f7b3d3f4b4
|
@ -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
|
;; Check JIT handling of structure-reference sequences
|
||||||
|
|
|
@ -5250,10 +5250,7 @@ static int generate_vector_alloc(mz_jit_state *jitter, Scheme_Object *rator,
|
||||||
c = 2;
|
c = 2;
|
||||||
} else {
|
} else {
|
||||||
c = app->num_args;
|
c = app->num_args;
|
||||||
if (c > 256) {
|
if (c)
|
||||||
/* Too big for inline alloc */
|
|
||||||
return scheme_generate_app(app, NULL, c, c, jitter, 0, 0, 0, 0);
|
|
||||||
} else if (c)
|
|
||||||
scheme_generate_app(app, NULL, c, c, jitter, 0, 0, 0, 2); /* sync'd below */
|
scheme_generate_app(app, NULL, c, c, jitter, 0, 0, 0, 2); /* sync'd below */
|
||||||
}
|
}
|
||||||
CHECK_LIMIT();
|
CHECK_LIMIT();
|
||||||
|
|
Loading…
Reference in New Issue
Block a user