From: Christophe R. <cr...@us...> - 2004-06-28 16:27:39
|
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) |