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 <[EMAIL PROTECTED]> (http://pupeno.com)
pgpLvdDHQuang.pgp
Description: PGP signature
_______________________________________________ Chicken-users mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/chicken-users
