mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
117122e16d
Some checks are pending
CL-host / ecl (push) Waiting to run
CL-host / clisp (push) Waiting to run
CL-host / ccl (push) Waiting to run
CL-host / cmucl (push) Waiting to run
CL-host / sbcl (push) Waiting to run
CL-host / compare-xc-host-fasls (ccl, false) (push) Blocked by required conditions
CL-host / compare-xc-host-fasls (clisp, false) (push) Blocked by required conditions
CL-host / compare-xc-host-fasls (cmucl, false) (push) Blocked by required conditions
CL-host / compare-xc-host-fasls (self, false) (push) Blocked by required conditions
Linux arm / build (push) Waiting to run
Linux arm64 / build () (push) Waiting to run
Linux qemu / build (ppc64le) (push) Waiting to run
Linux qemu / build (riscv64) (push) Waiting to run
Linux / build (x86, --with-sb-thread, ) (push) Waiting to run
Linux / build (x86, --without-sb-thread, ) (push) Waiting to run
Linux / build (x86, --without-sb-unicode, ) (push) Waiting to run
Linux / build (x86-64, --with-mark-region-gc --with-nonstop-foreign-call) (push) Waiting to run
Linux / build (x86-64, --with-sb-fasteval --without-sb-eval --with-nonstop-foreign-call, fasteval) (push) Waiting to run
Linux / build (x86-64, --with-sb-thread --with-nonstop-foreign-call, sse4) (push) Waiting to run
Linux / build (x86-64, --with-sb-thread, ) (push) Waiting to run
Linux / build (x86-64, --without-sb-thread, ) (push) Waiting to run
Linux / build (x86-64, --without-sb-unicode, ) (push) Waiting to run
Mac / build (arm64, --with-sb-thread --with-nonstop-foreign-call) (push) Waiting to run
Mac / build (x86-64, --with-mark-region-gc --with-nonstop-foreign-call) (push) Waiting to run
Mac / build (x86-64, --with-sb-thread --with-nonstop-foreign-call) (push) Waiting to run
Mac / build (arm64, --with-mark-region-gc --with-nonstop-foreign-call) (push) Waiting to run
Windows arm64 / build (arm64, clang-aarch64, clangarm64) (push) Waiting to run
Windows / build (x86-64, ucrt-x86_64, ucrt64) (push) Waiting to run
27 lines
1.2 KiB
Common Lisp
27 lines
1.2 KiB
Common Lisp
(defun stress-gc ()
|
|
;; Kludge or not? I don't know whether the smaller allocation size
|
|
;; for sb-safepoint is a legitimate correction to the test case, or
|
|
;; rather hides the actual bug this test is checking for... It's also
|
|
;; not clear to me whether the issue is actually safepoint-specific.
|
|
;; But the main problem safepoint-related bugs tend to introduce is a
|
|
;; delay in the GC triggering -- and if bug-936304 fails, it also
|
|
;; causes bug-981106 to fail, even though there is a full GC in
|
|
;; between, which makes it seem unlikely to me that the problem is
|
|
;; delay- (and hence safepoint-) related. --DFL
|
|
(let* ((x (make-array (truncate #-sb-safepoint (* 0.2 (dynamic-space-size))
|
|
#+sb-safepoint (* 0.1 (dynamic-space-size))
|
|
sb-vm:n-word-bytes))))
|
|
(setf (elt x 0) t)
|
|
(elt x 0)))
|
|
|
|
(with-test (:name :bug-936304
|
|
:skipped-on :gc-stress
|
|
:broken-on :sbcl)
|
|
(gc :full t)
|
|
(assert (eq :ok (handler-case
|
|
(progn
|
|
(loop repeat 50 do (stress-gc))
|
|
:ok)
|
|
(storage-condition ()
|
|
:oom)))))
|