common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Fix SB-POSIX:STRTOD on -c-stack-is-control-stack

Browse source 
Have to pin a vector.
This commit is contained in:
Stas Boukarev 2025-10-10 00:47:50 +03:00
parent 153608717c
commit aff8f3a02b
4 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
contrib/sb-posix/posix-tests.lisp
View file

@ -498,7 +498,8 @@
(unwind-protect
(let ((buf (make-array 10 :element-type '(unsigned-byte 8))))
(values
(sb-posix:read fd (sb-sys:vector-sap buf) 10)
(sb-sys:with-pinned-objects (buf)
(sb-posix:read fd (sb-sys:vector-sap buf) 10))
(code-char (aref buf 0))
(code-char (aref buf 1))
(code-char (aref buf 2))))
@ -555,7 +556,9 @@
(retval nil))
(unwind-protect
(let ((buf (coerce "foo" 'simple-base-string)))
(setf retval (sb-posix:write fd (sb-sys:vector-sap buf) 3)))
(setf retval
(sb-sys:with-pinned-objects (buf)
(sb-posix:write fd (sb-sys:vector-sap buf) 3))))
(sb-posix:close fd))
(with-open-file (inf tmpname) (values retval (read-line inf)))))

2
contrib/sb-posix/strtod.lisp
View file

@ -7,7 +7,7 @@ and a secondary value, the number of characters consumed."
(declare (simple-base-string chars))
;; On x86, dx arrays are quicker to make than aliens.
(sb-int:dx-let ((end (make-array 1 :element-type 'sb-ext:word)))
(sb-sys:with-pinned-objects (chars)
(sb-sys:with-pinned-objects (chars #-c-stack-is-control-stack end)
(let* ((base (sb-sys:sap+ (sb-sys:vector-sap chars) offset))
(answer
(handler-case

2
tests/interface.impure.lisp
View file

@ -524,6 +524,8 @@
(with-test (:name :undefined-fun-macro-error)
(assert (search "is a macro" (princ-to-string (make-condition 'undefined-function :name 'cond)))))
#+gc-stress (invoke-restart 'run-tests::skip-file)
(defun testme (a b) (values "nice" (+ a b)))
(compile 'testme)
(defparameter trace-this-f1 #'testme)

5
tests/solist.pure.lisp
View file

@ -483,8 +483,9 @@
(sb-vm:list-allocated-objects :read-only :type sb-vm:simple-base-string-widetag))
0 1000))
(test-util:with-test (:name :c-find-in-solist)
(let ((set (sb-lockless:make-so-set/addr)) )
(test-util:with-test (:name :c-find-in-solist
:skipped-on (and :gc-stress :arm64))
(let ((set (sb-lockless:make-so-set/addr)))
(dolist (x *example-objects*)
(sb-lockless:so-insert set x))
(assert (not (sb-lockless:c-so-find/addr set 'random)))