CMUCL commit: intl-branch src (4 files)

[Raymond Toy]

    Date: Wednesday, February 24, 2010 @ 19:33:12
  Author: rtoy
    Path: /project/cmucl/cvsroot/src
     Tag: intl-branch

Modified: code/debug.lisp compiler/dump.lisp compiler/main.lisp
          compiler/x86/float-sse2.lisp

Merge changes from HEAD branch, 2010-02-24.


------------------------------+
 code/debug.lisp              |    8 +++++---
 compiler/dump.lisp           |    9 ++++++++-
 compiler/main.lisp           |    2 +-
 compiler/x86/float-sse2.lisp |    4 ++--
 4 files changed, 16 insertions(+), 7 deletions(-)


Index: src/code/debug.lisp
diff -u src/code/debug.lisp:1.68.2.2 src/code/debug.lisp:1.68.2.3
--- src/code/debug.lisp:1.68.2.2	Thu Feb 11 23:07:25 2010
+++ src/code/debug.lisp	Wed Feb 24 19:33:11 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/debug.lisp,v 1.68.2.2 2010-02-12 04:07:25 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/debug.lisp,v 1.68.2.3 2010-02-25 00:33:11 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -109,10 +109,12 @@
 
 Inspecting frames:
   BACKTRACE [n]  shows n frames going down the stack.
-  L              lists locals in current function.
-  P, PP          displays current function call.
+  L [prefix]     lists locals starting with the given prefix in current function.
+  P              displays current function call.
+  PP             verbose display of current function, with source.
   SOURCE [n]     displays frame's source form with n levels of enclosing forms.
   VSOURCE [n]    displays frame's source form without any ellipsis.
+  DESCRIBE       describe the current function.
 
 Breakpoints and steps:
   LIST-LOCATIONS [{function | :c}]  list the locations for breakpoints.
Index: src/compiler/dump.lisp
diff -u src/compiler/dump.lisp:1.83.12.2 src/compiler/dump.lisp:1.83.12.3
--- src/compiler/dump.lisp:1.83.12.2	Wed Feb 10 17:47:03 2010
+++ src/compiler/dump.lisp	Wed Feb 24 19:33:12 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.83.12.2 2010-02-10 22:47:03 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/dump.lisp,v 1.83.12.3 2010-02-25 00:33:12 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -398,11 +398,18 @@
 	      "FASL FILE output from ~A.~@
 	       Compiled ~A on ~A~@
 	       Compiler ~A, Lisp ~A~@
+               CMUCL dumped on: ~A on ~A~@
 	       Targeted for ~A, FASL version ~X~%"
 	      where
 	      (ext:format-universal-time nil (get-universal-time))
 	      (machine-instance) compiler-version
 	      (lisp-implementation-version)
+	      (let ((dump-time (if (boundp 'lisp::*cmucl-core-dump-time*)
+				   lisp::*cmucl-core-dump-time*
+				   nil)))
+		(when dump-time
+		  (ext:format-universal-time nil dump-time :style :iso8601)))
+	      lisp::*cmucl-core-dump-host*
 	      version f-vers)
       ;;
       ;; Terminate header.
Index: src/compiler/main.lisp
diff -u src/compiler/main.lisp:1.148.2.4 src/compiler/main.lisp:1.148.2.5
--- src/compiler/main.lisp:1.148.2.4	Mon Feb 15 10:14:00 2010
+++ src/compiler/main.lisp	Wed Feb 24 19:33:12 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.148.2.4 2010-02-15 15:14:00 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.148.2.5 2010-02-25 00:33:12 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
Index: src/compiler/x86/float-sse2.lisp
diff -u src/compiler/x86/float-sse2.lisp:1.10.4.1 src/compiler/x86/float-sse2.lisp:1.10.4.2
--- src/compiler/x86/float-sse2.lisp:1.10.4.1	Mon Feb  8 12:15:51 2010
+++ src/compiler/x86/float-sse2.lisp	Wed Feb 24 19:33:12 2010
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group at cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/x86/float-sse2.lisp,v 1.10.4.1 2010-02-08 17:15:51 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/x86/float-sse2.lisp,v 1.10.4.2 2010-02-25 00:33:12 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2034,7 +2034,7 @@
 	       (unless (location= y r)
 		 (inst movaps r y))	; r = yi|yr or 0|0|yi|yr
 	       (inst ,fmul r t0)))))))
-  (complex-*-float single mulps movlhps 4)
+  (complex-*-float single mulps unpcklps 4)
   (complex-*-float double mulpd unpcklpd 4))
 
 ;; Divide a complex by a real