Thiemo Seufer | 1 Sep 20:06 2007
Picon
Picon

CVS: sbcl/src/compiler/mips c-call.lisp, 1.10, 1.11 macros.lisp, 1.18, 1.19

Update of /cvsroot/sbcl/sbcl/src/compiler/mips
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv12272/src/compiler/mips

Modified Files:
	c-call.lisp macros.lisp 
Log Message:
1.0.9.20: Add #+sb-doc conditionals.

Index: c-call.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/c-call.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- c-call.lisp	13 May 2006 20:02:55 -0000	1.10
+++ c-call.lisp	1 Sep 2007 18:06:17 -0000	1.11
 <at>  <at>  -315,6 +315,7  <at>  <at> 
 ;;; callback wrapper
 #-sb-xc-host
 (defun alien-callback-assembler-wrapper (index result-type argument-types)
+  #!+sb-doc
   "Cons up a piece of code which calls enter-alien-callback with INDEX
 and a pointer to the arguments."
   (flet ((make-gpr (n)

Index: macros.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/macros.lisp,v
retrieving revision 1.18
retrieving revision 1.19
(Continue reading)

Thiemo Seufer | 1 Sep 20:09 2007
Picon
Picon

CVS: sbcl/src/compiler/mips macros.lisp, 1.19, 1.20 static-fn.lisp, 1.5, 1.6

Update of /cvsroot/sbcl/sbcl/src/compiler/mips
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv13443/src/compiler/mips

Modified Files:
	macros.lisp static-fn.lisp 
Log Message:
1.0.9.21: Make less eager use of eval-when unless cross-compiling.

Index: macros.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/macros.lisp,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- macros.lisp	1 Sep 2007 18:06:17 -0000	1.19
+++ macros.lisp	1 Sep 2007 18:09:20 -0000	1.20
 <at>  <at>  -200,7 +200,7  <at>  <at> 

 
 ;;;; Error Code
-(eval-when (:compile-toplevel :load-toplevel :execute)
+(eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
   (defun emit-error-break (vop kind code values)
     (let ((vector (gensym)))
       `((let ((vop ,vop))

Index: static-fn.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/static-fn.lisp,v
retrieving revision 1.5
(Continue reading)

Thiemo Seufer | 1 Sep 20:09 2007
Picon
Picon

CVS: sbcl version.lisp-expr,1.3594,1.3595

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv13443

Modified Files:
	version.lisp-expr 
Log Message:
1.0.9.21: Make less eager use of eval-when unless cross-compiling.

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.3594
retrieving revision 1.3595
diff -u -d -r1.3594 -r1.3595
--- version.lisp-expr	1 Sep 2007 18:06:17 -0000	1.3594
+++ version.lisp-expr	1 Sep 2007 18:09:20 -0000	1.3595
 <at>  <at>  -17,4 +17,4  <at>  <at> 
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.9.20"
+"1.0.9.21"

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >>  http://get.splunk.com/
Thiemo Seufer | 1 Sep 16:24 2007
Picon
Picon

CVS: sbcl/src/compiler/mips type-vops.lisp,1.5,1.6

Update of /cvsroot/sbcl/sbcl/src/compiler/mips
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv23561/src/compiler/mips

Modified Files:
	type-vops.lisp 
Log Message:
1.0.9.19: Less magic constants in the mips backend.

Index: type-vops.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/mips/type-vops.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- type-vops.lisp	14 Jul 2005 18:48:32 -0000	1.5
+++ type-vops.lisp	1 Sep 2007 14:24:14 -0000	1.6
 <at>  <at>  -14,7 +14,7  <at>  <at> 
 ;;; Test generation utilities.
 (defun %test-fixnum (value target not-p &key temp)
   (assemble ()
-    (inst and temp value 3)
+    (inst and temp value fixnum-tag-mask)
     (if not-p
         (inst bne temp zero-tn target)
         (inst beq temp zero-tn target))
 <at>  <at>  -23,14 +23,14  <at>  <at> 
 (defun %test-fixnum-and-headers (value target not-p headers &key temp)
   (let ((drop-through (gen-label)))
     (assemble ()
-      (inst and temp value 3)
(Continue reading)

Thiemo Seufer | 1 Sep 16:22 2007
Picon
Picon

CVS: sbcl/src/code debug-int.lisp,1.114,1.115

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv22728/src/code

Modified Files:
	debug-int.lisp 
Log Message:
1.0.9.18: Instrument COMPUTE-CALLING-FRAME for non-x86 with /noshow0.

Index: debug-int.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/debug-int.lisp,v
retrieving revision 1.114
retrieving revision 1.115
diff -u -d -r1.114 -r1.115
--- debug-int.lisp	28 Jun 2007 14:24:49 -0000	1.114
+++ debug-int.lisp	1 Sep 2007 14:22:40 -0000	1.115
 <at>  <at>  -780,7 +780,9  <at>  <at> 
 #!-(or x86 x86-64)
 (defun compute-calling-frame (caller lra up-frame)
   (declare (type system-area-pointer caller))
+  (/noshow0 "entering COMPUTE-CALLING-FRAME")
   (when (control-stack-pointer-valid-p caller)
+    (/noshow0 "in WHEN")
     (multiple-value-bind (code pc-offset escaped)
         (if lra
             (multiple-value-bind (word-offset code)
 <at>  <at>  -816,6 +818,7  <at>  <at> 
                            "bogus stack frame"))
                          (t
                           (debug-fun-from-pc code pc-offset)))))
(Continue reading)

Thiemo Seufer | 1 Sep 16:02 2007
Picon
Picon

CVS: sbcl/src/code host-alieneval.lisp, 1.42, 1.43 target-alieneval.lisp, 1.51, 1.52

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv14687/src/code

Modified Files:
	host-alieneval.lisp target-alieneval.lisp 
Log Message:
1.0.9.17: Delete deprecated DEF-ALIENs.

Index: host-alieneval.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/host-alieneval.lisp,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- host-alieneval.lisp	3 Mar 2007 18:28:43 -0000	1.42
+++ host-alieneval.lisp	1 Sep 2007 14:02:27 -0000	1.43
 <at>  <at>  -285,9 +285,6  <at>  <at> 
              `((%def-auxiliary-alien-types ',*new-auxiliary-types*)))
          , <at> (when name
              `((%define-alien-type ',name ',alien-type)))))))
-(def!macro def-alien-type (&rest rest)
-  (deprecation-warning 'def-alien-type 'define-alien-type)
-  `(define-alien-type , <at> rest))

 (eval-when (#-sb-xc :compile-toplevel :load-toplevel :execute)
   (defun %def-auxiliary-alien-types (types)

Index: target-alieneval.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-alieneval.lisp,v
(Continue reading)

Thiemo Seufer | 1 Sep 13:28 2007
Picon
Picon

CVS: sbcl/tests float.pure.lisp,1.36,1.37

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv18720/tests

Modified Files:
	float.pure.lisp 
Log Message:
1.0.9.16: Remove :mips from Bug #372.
	This was a Linux/MIPS kernel bug, fixed in the latest version.

Index: float.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.pure.lisp,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- float.pure.lisp	19 Aug 2007 23:59:46 -0000	1.36
+++ float.pure.lisp	1 Sep 2007 11:28:18 -0000	1.37
 <at>  <at>  -125,7 +125,7  <at>  <at> 
 (funcall (compile nil '(lambda () (tan (tan (round 0))))))

 (with-test (:name (:addition-overflow :bug-372)
-            :fails-on '(or :ppc :darwin :mips (and :x86 :netbsd)))
+            :fails-on '(or :ppc :darwin (and :x86 :netbsd)))
   (assert (typep (nth-value
                   1
                   (ignore-errors

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
(Continue reading)

Thiemo Seufer | 1 Sep 13:21 2007
Picon
Picon

CVS: sbcl/src/compiler/generic genesis.lisp, 1.134, 1.135

Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv16466/src/compiler/generic

Modified Files:
	genesis.lisp 
Log Message:
1.0.9.15: Fix typo.

Index: genesis.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/genesis.lisp,v
retrieving revision 1.134
retrieving revision 1.135
diff -u -d -r1.134 -r1.135
--- genesis.lisp	29 Aug 2007 17:14:45 -0000	1.134
+++ genesis.lisp	1 Sep 2007 11:21:13 -0000	1.135
 <at>  <at>  -1609,7 +1609,7  <at>  <at> 
 (defvar *cold-assembler-fixups*)

 (defun record-cold-assembler-routine (name address)
-  (/xhow "in RECORD-COLD-ASSEMBLER-ROUTINE" name address)
+  (/show "in RECORD-COLD-ASSEMBLER-ROUTINE" name address)
   (push (cons name address)
         *cold-assembler-routines*))

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >>  http://get.splunk.com/
(Continue reading)

Thiemo Seufer | 1 Sep 16:24 2007
Picon
Picon

CVS: sbcl version.lisp-expr,1.3592,1.3593

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv23561

Modified Files:
	version.lisp-expr 
Log Message:
1.0.9.19: Less magic constants in the mips backend.

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.3592
retrieving revision 1.3593
diff -u -d -r1.3592 -r1.3593
--- version.lisp-expr	1 Sep 2007 14:22:40 -0000	1.3592
+++ version.lisp-expr	1 Sep 2007 14:24:14 -0000	1.3593
 <at>  <at>  -17,4 +17,4  <at>  <at> 
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.9.18"
+"1.0.9.19"

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >>  http://get.splunk.com/
Thiemo Seufer | 1 Sep 13:21 2007
Picon
Picon

CVS: sbcl version.lisp-expr,1.3588,1.3589

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv16466

Modified Files:
	version.lisp-expr 
Log Message:
1.0.9.15: Fix typo.

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.3588
retrieving revision 1.3589
diff -u -d -r1.3588 -r1.3589
--- version.lisp-expr	1 Sep 2007 11:19:55 -0000	1.3588
+++ version.lisp-expr	1 Sep 2007 11:21:12 -0000	1.3589
 <at>  <at>  -17,4 +17,4  <at>  <at> 
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.9.14"
+"1.0.9.15"

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >>  http://get.splunk.com/

Gmane