[Sbcl-commits] CVS: sbcl/tests debug.impure.lisp, 1.34, 1.35 foreign-stack-alignment.impure.lisp, 1.6, 1.7

[Cyrus H. <sl...@us...>]

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

Modified Files:
	debug.impure.lisp foreign-stack-alignment.impure.lisp 
Log Message:
1.0.4.27: more darwin/x86-64 fixes
 * use sb!vm:fixnum-tag-mask instead of #b11 to mask off high bits in
   debug-int/control-stack-pointer-valid-p
 * add special variable sb-kernel::*internal-error-context* to
   squirrel away (let) the context so that we can use it in the
   debugger to get the frame and pc pointers. rebind this
 * top-frame gets frame and pc pointer from squirreled-away context
   and set to nil in case we trigger another error in the debugger
 * mark (trace :encapsulate nil) and (trace-recursive :encapsulate
   nil) tests as failing on x86-64 darwin (FIXME: we should
   reinvestigate why these are failing)
 * in foreign-stack-alignment.impure.lisp, use -arch x86_64 when
   #+(and x86-64 darwin).


Index: debug.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/debug.impure.lisp,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- debug.impure.lisp	18 Jan 2007 00:32:05 -0000	1.34
+++ debug.impure.lisp	5 Apr 2007 00:42:28 -0000	1.35
@@ -371,7 +371,7 @@
 ;;; This is not a WITH-TEST :FAILS-ON PPC DARWIN since there are
 ;;; suspicions that the breakpoint trace might corrupt the whole image
 ;;; on that platform.
-#-(and (or ppc x86) darwin)
+#-(and (or ppc x86 x86-64) darwin)
 (with-test (:name (trace :encapsulate nil)
             :fails-on '(or :ppc :sparc :mips))
   (let ((out (with-output-to-string (*trace-output*)
@@ -381,7 +381,7 @@
     (assert (search "TRACE-THIS" out))
     (assert (search "returned OK" out))))
 
-#-(and (or ppc x86) darwin)
+#-(and (or ppc x86 x86-64) darwin)
 (with-test (:name (trace-recursive :encapsulate nil)
             :fails-on '(or :ppc :sparc :mips))
   (let ((out (with-output-to-string (*trace-output*)

Index: foreign-stack-alignment.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/foreign-stack-alignment.impure.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- foreign-stack-alignment.impure.lisp	15 Dec 2006 02:57:53 -0000	1.6
+++ foreign-stack-alignment.impure.lisp	5 Apr 2007 00:42:28 -0000	1.7
@@ -44,6 +44,7 @@
 
 (run "cc"
      #+(and (or linux freebsd) (or x86-64 ppc)) "-fPIC"
+     #+(and x86-64 darwin) "-arch" #+(and x86-64 darwin) "x86_64"
      "stack-alignment-offset.c" "-o" "stack-alignment-offset")
 
 (defparameter *good-offset*
@@ -54,6 +55,7 @@
 
 (run "cc" "stack-alignment-offset.c"
      #+(and (or linux freebsd) (or x86-64 ppc)) "-fPIC"
+     #+(and x86-64 darwin) "-arch" #+(and x86-64 darwin) "x86_64"
      #+darwin "-bundle" #-darwin "-shared"
      "-o" "stack-alignment-offset.so")