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

Nuked the #+new-compilers 'cause we no longer need to cross compile.

parent 4df954cb
No related branches found
No related tags found
No related merge requests found
...@@ -11,7 +11,7 @@ ...@@ -11,7 +11,7 @@
;;; This file contains stuff that knows how to load compiled code directly ;;; This file contains stuff that knows how to load compiled code directly
;;; into core, e.g. incremental compilation. ;;; into core, e.g. incremental compilation.
;;; ;;;
(in-package 'c) (in-package "C")
;;; The CORE-OBJECT structure holds the state needed to resolve cross-component ;;; The CORE-OBJECT structure holds the state needed to resolve cross-component
...@@ -42,7 +42,6 @@ ...@@ -42,7 +42,6 @@
;;; ;;;
;;; Make a function entry, filling in slots from the ENTRY-INFO. ;;; Make a function entry, filling in slots from the ENTRY-INFO.
;;; ;;;
#+new-compiler
(defun make-function-entry (entry code-obj object) (defun make-function-entry (entry code-obj object)
(declare (type entry-info entry) (type core-object object)) (declare (type entry-info entry) (type core-object object))
(let ((offset (label-position (entry-info-offset entry)))) (let ((offset (label-position (entry-info-offset entry))))
...@@ -73,7 +72,6 @@ ...@@ -73,7 +72,6 @@
;;; ;;;
;;; Do "load-time" fixups on the code vector. ;;; Do "load-time" fixups on the code vector.
;;; ;;;
#+new-compiler
(defun do-core-fixups (code fixups) (defun do-core-fixups (code fixups)
(declare (list fixups)) (declare (list fixups))
(dolist (info fixups) (dolist (info fixups)
...@@ -121,7 +119,6 @@ ...@@ -121,7 +119,6 @@
;;; Dump a component to core. We pass in the assembler fixups, code vector ;;; Dump a component to core. We pass in the assembler fixups, code vector
;;; and node info. ;;; and node info.
;;; ;;;
#+new-compiler
(defun make-core-component (component segment length object) (defun make-core-component (component segment length object)
(declare (type component component) (declare (type component component)
(type index length) (type index length)
...@@ -166,7 +163,6 @@ ...@@ -166,7 +163,6 @@
;;; Call the top-level lambda function dumped for Entry, returning the ;;; Call the top-level lambda function dumped for Entry, returning the
;;; values. Entry may be a :TOP-LEVEL-XEP functional. ;;; values. Entry may be a :TOP-LEVEL-XEP functional.
;;; ;;;
#+new-compiler
(defun core-call-top-level-lambda (entry object) (defun core-call-top-level-lambda (entry object)
(declare (type functional entry) (type core-object object)) (declare (type functional entry) (type core-object object))
(funcall (or (gethash (leaf-info entry) (funcall (or (gethash (leaf-info entry)
...@@ -180,7 +176,6 @@ ...@@ -180,7 +176,6 @@
;;; SOURCE-INFO list. We also check that there are no outstanding forward ;;; SOURCE-INFO list. We also check that there are no outstanding forward
;;; references to functions. ;;; references to functions.
;;; ;;;
#+new-compiler
(defun fix-core-source-info (info object source-info) (defun fix-core-source-info (info object source-info)
(declare (type source-info info) (type core-object object)) (declare (type source-info info) (type core-object object))
(assert (zerop (hash-table-count (core-object-patch-table object)))) (assert (zerop (hash-table-count (core-object-patch-table object))))
...@@ -195,7 +190,6 @@ ...@@ -195,7 +190,6 @@
;;;; Code-instruction-streams ;;;; Code-instruction-streams
#+new-compiler
(defstruct (code-instruction-stream (defstruct (code-instruction-stream
(:print-function %print-code-inst-stream) (:print-function %print-code-inst-stream)
(:include stream (:include stream
...@@ -215,13 +209,11 @@ ...@@ -215,13 +209,11 @@
current current
end) end)
#+new-compiler
(defun %print-code-inst-stream (code-inst-stream stream depth) (defun %print-code-inst-stream (code-inst-stream stream depth)
(declare (ignore depth)) (declare (ignore depth))
(format stream "#<Code Instruction Stream for ~S>" (format stream "#<Code Instruction Stream for ~S>"
(code-instruction-stream-code-object code-inst-stream))) (code-instruction-stream-code-object code-inst-stream)))
#+new-compiler
(defun code-inst-stream-sout (stream string start end) (defun code-inst-stream-sout (stream string start end)
(let* ((start (or start 0)) (let* ((start (or start 0))
(end (or end (length string))) (end (or end (length string)))
...@@ -237,7 +229,6 @@ ...@@ -237,7 +229,6 @@
(* length vm:byte-bits)) (* length vm:byte-bits))
(setf (code-instruction-stream-current stream) new))) (setf (code-instruction-stream-current stream) new)))
#+new-compiler
(defun code-inst-stream-misc (stream method &optional arg1 arg2) (defun code-inst-stream-misc (stream method &optional arg1 arg2)
(declare (ignore arg1 arg2)) (declare (ignore arg1 arg2))
(case method (case method
......
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