|
172 | 172 | ;;; value-cells |
173 | 173 |
|
174 | 174 | (defun-with-dx dx-value-cell (x) |
175 | | - ;; Not implemented everywhere, yet. |
176 | | - #+(or arm64 x86 x86-64 mips) |
177 | 175 | (let ((cell x)) |
178 | | - (declare (sb-int:truly-dynamic-extent cell)) |
179 | 176 | (flet ((f () |
180 | 177 | (incf cell))) |
181 | 178 | (declare (dynamic-extent #'f)) |
|
330 | 327 | (sb-int:dx-let ((s (make-list-container :listy-slot (make-list n)))) |
331 | 328 | (values (funcall (the function thunk) s)))) |
332 | 329 | ;; stack-allocatable lists are necessary but not sufficient |
333 | | -(with-test (:name (:dx-list :make-list) :skipped-on (not :x86-64)) |
| 330 | +(with-test (:name (:dx-list :make-list) :fails-on (not :x86-64)) |
334 | 331 | (let ((calls (ctu:asm-search "CALL" #'make-var-length-dx-list))) |
335 | 332 | ;; Call nothing but the funarg |
336 | 333 | (assert (eql (length calls) 1))) |
|
340 | 337 | ;;; MAKE-STRUCTURE |
341 | 338 |
|
342 | 339 | ;; stack-allocatable fixed-size objects are necessary but not sufficient |
343 | | -(with-test (:name :copy-structure-dx :skipped-on (not (or :x86 :x86-64))) |
| 340 | +(with-test (:name :copy-structure-dx :fails-on (not (or :x86 :x86-64))) |
344 | 341 | (let ((thing sb-c::*backend-parsed-vops*)) |
345 | 342 | ;; check some preconditions |
346 | 343 | (assert (typep thing 'hash-table)) |
|
874 | 871 | (assert (every (lambda (x) (eql x 0)) a)))) |
875 | 872 |
|
876 | 873 | (with-test (:name (:dx-bug-misc :bdowning-2005-iv-16)) |
877 | | - #+(or arm64 mips x86 x86-64) |
878 | 874 | (assert-no-consing (bdowning-2005-iv-16)) |
879 | 875 | (bdowning-2005-iv-16)) |
880 | 876 |
|
|
929 | 925 | (multiple-value-bind (y pos2) (read-from-string res nil nil :start pos) |
930 | 926 | (assert (equalp f2 y)) |
931 | 927 | (assert (equalp f3 (read-from-string res nil nil :start pos2)))))) |
932 | | - #+(or arm64 mips x86 x86-64) |
933 | 928 | (assert-no-consing (assert (eql n (funcall fun nil)))) |
934 | 929 | (assert (eql n (funcall fun nil)))) |
935 | 930 |
|
|
0 commit comments