X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-load.lisp;h=9254a35e0eefe67ff9ac60cddc220063dd9db132;hb=86210c4e406c1b2ff10cc3bac0e71435867db48b;hp=ba43d466553affca41a9ee84d5b33cd713537bec;hpb=e88f9c7fd830938e1261cc424437905fb50179ae;p=sbcl.git

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index ba43d46..9254a35 100644
--- a/src/code/target-load.lisp
+++ b/src/code/target-load.lisp
@@ -29,7 +29,7 @@
 
 ;;; Load a text file.
 (defun load-as-source (stream verbose print)
-  (do-load-verbose stream verbose)
+  (maybe-announce-load stream verbose)
   (do ((sexpr (read stream nil *eof-object*)
 	      (read stream nil *eof-object*)))
       ((eq sexpr *eof-object*)
@@ -80,7 +80,7 @@
 	   (internal-load pathname truename if-does-not-exist verbose print
 			  :binary))
 	  (t
-	   (when (string= (pathname-type truename) *backend-fasl-file-type*)
+	   (when (string= (pathname-type truename) *fasl-file-type*)
 	     (error "File has a fasl file type, but no fasl file header:~%  ~S"
 		    (namestring truename)))
 	   (internal-load pathname truename if-does-not-exist verbose print
@@ -106,7 +106,7 @@
   (multiple-value-bind (src-pn src-tn)
       (try-default-type pathname *load-source-default-type*)
     (multiple-value-bind (obj-pn obj-tn)
-	(try-default-type pathname *backend-fasl-file-type*)
+	(try-default-type pathname *fasl-file-type*)
       (cond
        ((and obj-tn
 	     src-tn
@@ -225,11 +225,9 @@
   (declare (fixnum box-num code-length))
   (with-fop-stack t
     (let ((code (%primitive sb!c:allocate-code-object box-num code-length))
-	  (index (+ #!-gengc sb!vm:code-trace-table-offset-slot
-		    #!+gengc sb!vm:code-debug-info-slot
-		    box-num)))
+	  (index (+ sb!vm:code-trace-table-offset-slot box-num)))
       (declare (type index index))
-      #!-gengc (setf (%code-debug-info code) (pop-stack))
+      (setf (%code-debug-info code) (pop-stack))
       (dotimes (i box-num)
 	(declare (fixnum i))
 	(setf (code-header-ref code (decf index)) (pop-stack)))
@@ -237,8 +235,7 @@
 	(read-n-bytes *fasl-input-stream*
 		      (code-instructions code)
 		      0
-		      #!-gengc code-length
-		      #!+gengc (* code-length sb!vm:word-bytes)))
+		      code-length))
       code)))
 
 ;;; Moving native code during a GC or purify is not so trivial on the
@@ -249,9 +246,6 @@
 ;;; all these code objects. After a purify these fixups can be
 ;;; dropped. In CMU CL, this policy was enabled with
 ;;; *ENABLE-DYNAMIC-SPACE-CODE*; in SBCL it's always used.
-;;;
-;;; A little analysis of the header information is used to determine
-;;; if a code object is byte compiled, or native code.
 #!+x86
 (defun load-code (box-num code-length)
   (declare (fixnum box-num code-length))
@@ -271,15 +265,6 @@
 
 	(setq stuff (nreverse stuff))
 
-	;; Check that tto is always a list for byte-compiled
-	;; code. Could be used an alternate check.
-	(when (and (typep tto 'list)
-		   (not (and (sb!c::debug-info-p dbi)
-			     (not (sb!c::compiled-debug-info-p dbi)))))
-	  ;; FIXME: What is this for?
-	  (format t "* tto list on non-bc code: ~S~% ~S ~S~%"
-		  stuff dbi tto))
-	
 	;; FIXME: *LOAD-CODE-VERBOSE* should probably be #!+SB-SHOW.
 	(when *load-code-verbose*
 	      (format t "stuff: ~S~%" stuff)
@@ -333,7 +318,7 @@
 		foreign-symbol-address-as-integer))
 
 
-;;; sb!sys:get-dynamic-foreign-symbol-address is in foreign.lisp, on
+;;; SB!SYS:GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS is in foreign.lisp, on
 ;;; platforms that have dynamic loading
 (defun foreign-symbol-address-as-integer (foreign-symbol)
   (or (find-foreign-symbol-in-table  foreign-symbol *static-foreign-symbols*)