mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
9f5d1d7847
It was certainly wrong since the linkage-space change, but possibly much earlier- I'm unsure exactly when I made coreparse read separate directory entries for FIXEDOBJ and TEXT. (In the initial immobile-space, two subspaces were always made in a single contiguous allocation.)
33 lines
1.5 KiB
Common Lisp
33 lines
1.5 KiB
Common Lisp
(defun readprocmaps ()
|
|
#+(and linux immobile-space) ; sb-vm: symbols may not exist?
|
|
(let* ((space-start sb-vm:fixedobj-space-start)
|
|
(space-end (+ sb-vm:fixedobj-space-size space-start))
|
|
(state nil))
|
|
(with-open-file (f "/proc/self/maps")
|
|
(loop
|
|
(let ((line (read-line f nil)))
|
|
(assert line) ; better not run out of lines before passing the test
|
|
(sb-int:binding*
|
|
(((range-start dashpos) (parse-integer line :radix 16 :junk-allowed t))
|
|
((range-end spacepos)
|
|
(progn (assert (char= (char line dashpos) #\-))
|
|
(parse-integer line :radix 16 :start (1+ dashpos) :junk-allowed t)))
|
|
(perms
|
|
(progn (assert (char= (char line spacepos) #\space))
|
|
(subseq line (incf spacepos) (+ spacepos 4)))))
|
|
(case state
|
|
((nil)
|
|
;; look for a range that starts exactly at space-start
|
|
(if (= range-start space-start)
|
|
(setq state :in-fixedobj-space)
|
|
;; larger address means somehow we missed seeeing fixedobj space
|
|
(assert (< range-end space-start))))
|
|
(:in-fixedobj-space
|
|
(cond ((= range-end space-end)
|
|
(assert (string= perms "rwxp")) ; untouched pages must exist
|
|
(return))
|
|
(t
|
|
(assert (< range-end space-end))))))))))))
|
|
|
|
(with-test (:name :fixedobj-sized-correctly) (readprocmaps))
|