Skip to content
Snippets Groups Projects
Commit 37f06864 authored by dtc's avatar dtc
Browse files

Removed unnecessary bootstrapping code for float-wait.

parent 40e7744c
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/x86/system.lisp,v 1.1 1997/01/18 14:31:19 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/system.lisp,v 1.2 1997/02/11 16:16:08 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -16,6 +16,7 @@ ...@@ -16,6 +16,7 @@
;;; Written by William Lott. ;;; Written by William Lott.
;;; ;;;
;;; Debugged by Paul F. Werkowski Spring/Summer 1995. ;;; Debugged by Paul F. Werkowski Spring/Summer 1995.
;;; Enhancements/debugging by Douglas T. Crosher 1996.
;;; ;;;
(in-package :x86) (in-package :x86)
...@@ -278,11 +279,6 @@ ...@@ -278,11 +279,6 @@
(inst int 3) (inst int 3)
(inst byte halt-trap))) (inst byte halt-trap)))
;;; bootstrapping
(in-package :kernel)
(export 'float-wait)
(in-package :x86)
(defknown float-wait () (values)) (defknown float-wait () (values))
(define-vop (float-wait) (define-vop (float-wait)
(:policy :fast-safe) (:policy :fast-safe)
......
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