Skip to content
Snippets Groups Projects
Commit 0ca90c5c authored by wlott's avatar wlott
Browse files

Fixed two uses of BACKEND-VM-SUPPORT-ROUTINES to be BACKEND-SUPPORT-ROUTINES

and added a stub for BACKEND-VM-SUPPORT-ROUTINES so that we don't have to
recompile everything.
parent a0d45583
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.16 1992/03/21 19:39:02 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.17 1992/03/22 17:29:20 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -170,7 +170,7 @@ ...@@ -170,7 +170,7 @@
#'(lambda (name) #'(lambda (name)
`(defun ,name (&rest args) `(defun ,name (&rest args)
(apply (or (,(symbolicate "VM-SUPPORT-ROUTINES-" name) (apply (or (,(symbolicate "VM-SUPPORT-ROUTINES-" name)
(backend-vm-support-routines *backend*)) (backend-support-routines *backend*))
(error "Machine specific support routine ~S ~ (error "Machine specific support routine ~S ~
undefined for ~S" undefined for ~S"
',name *backend*)) ',name *backend*))
...@@ -225,7 +225,7 @@ ...@@ -225,7 +225,7 @@
"VM-SUPPORT-ROUTINES-" "VM-SUPPORT-ROUTINES-"
(string name)) (string name))
(find-package "C")) (find-package "C"))
(backend-vm-support-routines *target-backend*)) (backend-support-routines *target-backend*))
#',local-name)))) #',local-name))))
...@@ -306,3 +306,10 @@ ...@@ -306,3 +306,10 @@
:%features features :%features features
:misfeatures misfeatures))) :misfeatures misfeatures)))
(setf *target-backend* backend))) (setf *target-backend* backend)))
;;;; temporary hack.
(defun backend-vm-support-routines (backend)
(backend-support-routines backend))
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