Skip to content
Snippets Groups Projects
Commit ba08acb6 authored by ram's avatar ram
Browse files

Allow :COMPUTE-ONLY value for SAVE-P.

parent e1b338e9
No related branches found
No related tags found
No related merge requests found
...@@ -496,7 +496,7 @@ ...@@ -496,7 +496,7 @@
(policy :fast :type policies) (policy :fast :type policies)
;; ;;
;; Stuff used by life analysis. ;; Stuff used by life analysis.
(save-p nil :type (member t nil :force-to-stack))) (save-p nil :type (member t nil :compute-only :force-to-stack)))
(defprinter vop-parse (defprinter vop-parse
name name
...@@ -1176,7 +1176,8 @@ ...@@ -1176,7 +1176,8 @@
(setf (vop-parse-policy parse) (vop-spec-arg spec 'policies))) (setf (vop-parse-policy parse) (vop-spec-arg spec 'policies)))
(:save-p (:save-p
(setf (vop-parse-save-p parse) (setf (vop-parse-save-p parse)
(vop-spec-arg spec '(member t nil :force-to-stack)))) (vop-spec-arg spec
'(member t nil :compute-only :force-to-stack))))
(t (t
(error "Unknown option specifier: ~S." (first spec))))) (error "Unknown option specifier: ~S." (first spec)))))
(undefined-value)) (undefined-value))
...@@ -1632,7 +1633,7 @@ ...@@ -1632,7 +1633,7 @@
form returns NIL, then emission of this VOP is prohibited even when form returns NIL, then emission of this VOP is prohibited even when
all other restrictions are met. all other restrictions are met.
:Save-P {T | NIL | :Force-To-Stack} :Save-P {NIL | T | :Compute-Only | :Force-To-Stack}
Indicates how a VOP wants live registers saved." Indicates how a VOP wants live registers saved."
(check-type name symbol) (check-type name symbol)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment