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 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(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 @@
#'(lambda (name)
`(defun ,name (&rest args)
(apply (or (,(symbolicate "VM-SUPPORT-ROUTINES-" name)
(backend-vm-support-routines *backend*))
(backend-support-routines *backend*))
(error "Machine specific support routine ~S ~
undefined for ~S"
',name *backend*))
......@@ -225,7 +225,7 @@
"VM-SUPPORT-ROUTINES-"
(string name))
(find-package "C"))
(backend-vm-support-routines *target-backend*))
(backend-support-routines *target-backend*))
#',local-name))))
......@@ -306,3 +306,10 @@
:%features features
:misfeatures misfeatures)))
(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