Hi Everyone,
I'm moving cpointers between places and discovered that when these have
multiple tags attached, they appear untagged at the receiving end.
Here's a quick test file to show the problem:
; Worker file:
#lang racket
(require racket/place
ffi/unsafe
ffi/unsafe/define)
(provide place-main)
(define p1 (malloc 'atomic 1))
(define p2 (malloc 'atomic 1))
(cpointer-push-tag! p1 'tag-1)
(cpointer-push-tag! p1 'tag-2)
(cpointer-push-tag! p2 'tag-1)
(cpointer-has-tag? p1 'tag-1)
(cpointer-has-tag? p1 'tag-2)
(cpointer-has-tag? p2 'tag-1)
(define (place-main pch)
(place-channel-put pch p1)
(place-channel-put pch p2))
; main file:
(require racket/place
ffi/unsafe
ffi/unsafe/define)
(define pl (dynamic-place "tag-pointer-place.rkt" 'place-main))
(define p1 (place-channel-get pl))
(define p2 (place-channel-get pl))
p1
p2
;-----------------------------------
a workaround is to make a list with the tags and the cpointer and re-assemble
that on the receiving side.
best,
carlos.
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
