Skip to content
Snippets Groups Projects
Commit 003e4572 authored by wlott's avatar wlott
Browse files

Added a ``features'' slot to the backend structure.

parent 4b6fd812
No related branches found
No related tags found
No related merge requests found
...@@ -20,7 +20,7 @@ ...@@ -20,7 +20,7 @@
backend-register-save-penalty backend-byte-order backend-register-save-penalty backend-byte-order
backend-any-primitive-type backend-info-environment backend-any-primitive-type backend-info-environment
backend-instruction-formats backend-instruction-flavors backend-instruction-formats backend-instruction-flavors
backend-special-arg-types backend-special-arg-types backend-features
;; The various backends need to call these support routines ;; The various backends need to call these support routines
make-stack-pointer-tn primitive-type primitive-type-of)) make-stack-pointer-tn primitive-type primitive-type-of))
...@@ -168,6 +168,9 @@ ...@@ -168,6 +168,9 @@
(instruction-flavors (make-hash-table :test #'equal) :type hash-table) (instruction-flavors (make-hash-table :test #'equal) :type hash-table)
(special-arg-types (make-hash-table :test #'eq) :type hash-table) (special-arg-types (make-hash-table :test #'eq) :type hash-table)
;; The backend specific features list, if any.
(features nil :type list)
. #.(mapcar #'(lambda (slot) . #.(mapcar #'(lambda (slot)
`(,slot nil :type (or null function))) `(,slot nil :type (or null function)))
(sort (copy-list vm-support-routines) (sort (copy-list vm-support-routines)
......
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