Re: [Chicken-users] tagging pointers.

[Pupeno]

On Wednesday 16 November 2005 16:08, Zbigniew wrote:
> Pupeno, although I didn't try your code, the tagged pointer
> functionality seems to work for me (for artificially-generated
> pointers).  E.g.
>
> Version 2, Build 207 - macosx-unix-gnu-ppc - [ dload ptables ]
> ...
> #;9> (address->pointer #x80bf740)
> #<pointer 80bf740>
> #;10> (tag-pointer # 'x-display)
> #<tagged pointer x-display 80bf740>
>
> Could you try this sequence?
Yes:

Version 2, Build 212 - linux-unix-gnu-x86 - [ libffi dload ptables ]
(c)2000-2005 Felix L. Winkelmann
#;1> (use lolevel)
; loading library lolevel ...
#;2> (address->pointer #x80bf740)
#<pointer 80bf740>
#;3> (tag-pointer # 'x-display)
Error: unprintable non-immediate object encountered

        Call history:

        <eval>          (tag-pointer (quote #<pointer 80bf740>) (quote 
x-display))      <--
#;4>

it doesn't work on 212, let's try on 207:
Version 2, Build 207 - linux-unix-gnu-x86 - [ dload ptables ]
(c)2000-2005 Felix L. Winkelmann
#;1> (use lolevel)
; loading library lolevel ...
#;2> (tag-pointer (address->pointer #x80bf740) 'x-display)
Error: unprintable non-immediate object encountered

        Call history:

        <eval>          (tag-pointer (address->pointer 135001920) (quote 
x-display))
        <eval>          (address->pointer 135001920)    <--
#;3> (address->pointer #x80bf740)
#<pointer 80bf740>
#;4> (tag-pointer # 'x-display)
Error: unprintable non-immediate object encountered

        Call history:

        <eval>          (tag-pointer (quote #<pointer 80bf740>) (quote 
x-display))      <--
#;5>

nope.

> Even though dpy prints as a pointer, did you try checking that
> (pointer? dpy) returns #t?
For what it may matter now, it returns #t.
-- 
Pupeno <address@hidden> (http://pupeno.com)

pgp7kBWyewkcu.pgp
Description: PGP signature