Re: [Sbcl-devel] 1.0.25.9 changes slightly break sparc and ppc

[Gábor M. <me...@re...>]

On Martes 10 Febrero 2009, Bruce O'Neel wrote:
> Hi,
>
> In terms of the Sparc64, we have a whole stack of spare V100s at work
> and for assorted other tasks I was planning on setting one up running
> lenny.  I'm happy to give you an acccount.
>
>
> The diff I used was:
>
> --- debug-int.lisp      2009-02-05 10:56:46.000000000 +0100
> +++ /home/edoneel/tmp/debug-int.lisp    2009-02-09 12:22:25.628363824
> +0100 @@ -662,9 +662,12 @@
>  ;;; this function.
>  (defun top-frame ()
>    (/noshow0 "entering TOP-FRAME")
> -  (compute-calling-frame (descriptor-sap (%caller-frame))
> -                         (descriptor-sap (%caller-pc))
> -                         nil))
> +; BEO
> +  (multiple-value-bind (fp pc) (%caller-frame-and-pc)
> +    (compute-calling-frame (descriptor-sap fp) pc nil)))
> +;;  (compute-calling-frame (descriptor-sap (%caller-frame))
> +;;                         (descriptor-sap (%caller-pc))
> +;;                         nil))
>

That's the thing: %caller-frame-and-pc does not exist anymore, TOP-FRAME 
should look exactly like this:

(defun top-frame ()
  (/noshow0 "entering TOP-FRAME")
  (compute-calling-frame (descriptor-sap (%caller-frame))
                         (%caller-pc)
                         nil))