Skip to content
Snippets Groups Projects
Commit 96b98875 authored by wlott's avatar wlott
Browse files

Fixed function-subtype to put a nop in the load delay slot.

parent 08be523a
No related branches found
No related tags found
No related merge requests found
......@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.44 1992/04/14 02:59:51 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.45 1992/04/21 04:22:20 wlott Exp $")
;;;
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.44 1992/04/14 02:59:51 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.45 1992/04/21 04:22:20 wlott Exp $
;;;
;;; MIPS VM definitions of various system hacking operations.
;;;
......@@ -113,7 +113,8 @@
(:results (result :scs (unsigned-reg)))
(:result-types positive-fixnum)
(:generator 6
(load-type result function (- vm:function-pointer-type))))
(load-type result function (- vm:function-pointer-type))
(inst nop)))
(define-vop (set-function-subtype)
(:translate (setf function-subtype))
......
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