[Sbcl-commits] CVS: sbcl/src/code debug-int.lisp,1.77,1.78

[Christophe R. <cr...@us...>]

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

Modified Files:
	debug-int.lisp 
Log Message:
0.8.12.6:
	Give sb-sprof a chance of working on non-x86 non-gencgc.
	... implement search_dynamic_space and friends in cheneygc
	... share component_ptr_from_pc between the GCs, and define
		an alien routine for it unconditionally
	... (provide 'sb-sprof)


Index: debug-int.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/debug-int.lisp,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -d -r1.77 -r1.78
--- debug-int.lisp	9 Apr 2004 12:49:33 -0000	1.77
+++ debug-int.lisp	28 Jun 2004 16:27:30 -0000	1.78
@@ -542,11 +542,9 @@
 	 (sap> control-stack-end x)
 	 (zerop (logand (sap-int x) #b11)))))
 
-#!+x86
 (sb!alien:define-alien-routine component-ptr-from-pc (system-area-pointer)
   (pc system-area-pointer))
 
-#!+x86
 (defun component-from-component-ptr (component-ptr)
   (declare (type system-area-pointer component-ptr))
   (make-lisp-obj (logior (sap-int component-ptr)