From 003e457294aeaba117e745aa1790e5a2c655877d Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 26 Nov 1990 23:07:01 +0000 Subject: [PATCH] Added a ``features'' slot to the backend structure. --- compiler/backend.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/backend.lisp b/compiler/backend.lisp index fef4125c9..6d8c46316 100644 --- a/compiler/backend.lisp +++ b/compiler/backend.lisp @@ -20,7 +20,7 @@ backend-register-save-penalty backend-byte-order backend-any-primitive-type backend-info-environment 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 make-stack-pointer-tn primitive-type primitive-type-of)) @@ -168,6 +168,9 @@ (instruction-flavors (make-hash-table :test #'equal) :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) `(,slot nil :type (or null function))) (sort (copy-list vm-support-routines) -- GitLab