Skip to content
Snippets Groups Projects
Commit 09cede35 authored by Raymond Toy's avatar Raymond Toy
Browse files

Update according to review.

parent 2e6113bb
Branches
Tags
No related merge requests found
......@@ -93,7 +93,7 @@
(dolist (arg-type (alien-function-type-arg-types type))
(arg-tns (invoke-alien-type-method :arg-tn arg-type arg-state)))
;; FIXME: What register to use for here?
(values (my-make-wired-tn 'positive-fixnum 'any-reg csp-offset)
(values (my-make-wired-tn 'positive-fixnum 'any-reg a2-offset)
(* (arg-state-stack-frame-size arg-state) word-bytes)
(arg-tns)
(invoke-alien-type-method
......@@ -242,9 +242,6 @@
(:results (results :more t))
(:ignore args results)
(:save-p t)
#+nil
(:temporary (:sc any-reg :offset cfunc-offset
:from (:argument 0) :to (:result 0)) cfunc)
(:temporary (:sc interior-reg :offset lip-offset) lip)
(:temporary (:scs (any-reg) :to (:result 0)) temp)
(:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)
......
......@@ -308,7 +308,7 @@
*binding-stack-pointer*
;; The real C stack pointer
*c-stack-pointer*
*number-stack-pointer*
;; Gc
#-gencgc
......
......@@ -22,8 +22,7 @@
(:results (result :scs (descriptor-reg)))
(:save-p t)
(:temporary (:sc any-reg :offset nl0-offset :from (:argument 0)) nl0)
#+nil
(:temporary (:sc any-reg :offset cfunc-offset) cfunc)
(:temporary (:scs (non-descriptor-reg)) cfunc)
(:temporary (:sc interior-reg :offset lip-offset) lip)
(:temporary (:scs (non-descriptor-reg)) temp)
(:temporary (:sc control-stack :offset nfp-save-offset) nfp-save)
......
......@@ -54,10 +54,11 @@
(defreg lexenv 10) ; lexenv and fdefn
(defreg ocfp 11) ; ARM interprocedure temp
(defreg cfp 12) ; ARM fp
;; This is the ARM SP. We are going to use this as a2 because all
;; signals will be delivered to the sigaltstack. call_into_lisp needs
;; to save the real C SP and call_into_c must restore the C SP (saved
;; by call_into_lisp) before calling the C function.
;; This is the ARM SP. We are going to use this as the Lisp stack
;; pointer (csp) because all signals will be delivered to the
;; sigaltstack. call_into_lisp needs to save the real C SP and
;; call_into_c must restore the C SP (saved by call_into_lisp) before
;; calling the C function.
(defreg csp 13) ; ARM SP register
(defreg lip 14) ; ARM LR register
(defreg pc 15) ; ARM PC register.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment