[racket] MrEd-Designer crash with null ptr-ref

Hi Kieron,

As is, I can't do much on the MrEd Designer side, but maybe Matthew will
have a much better understanding of what the problem is on the Racket side
with the below information (there's nothing here that says where the bug
might appear in MED, as you noticed).
If possible, try to reduce your project to a minimalist one where the bug
still appears, then send it to me.
Does the bug appear when you do nothing? If not, what actions do you do
before it appears? Does simply loading the project make the bug appear?

Cheers,
Laurent

On Mon, Jun 18, 2012 at 8:24 AM, Kieron Hardy <kieron.hardy at gmail.com>wrote:

> Hi all,
>
> On Windows Vista (64-bit on quad-core CPU), MrEd-Designer randomly crashes
> when working on a large and somewhat complex UI. At the command prompt I
> get a trace, and the last one included:
>
> ptr-ref: contract violation
>   expected: (and/c cpointer? (not/c (lambda (p) (pointer-equal? p #f))))
>   given: #f
>   argument position: 1st
>   other arguments:
>    #<ctype:scheme>
>   context:
>    ...\collects\mred\private\wx\win32\wndclass.rkt:43:0: set-hwnd-wx!
>    ...\collects\racket\private\class-internal.rkt:3960:0:
> continue-make-object
>    ...\collects\mred\private\wx\win32\panel.rkt:16:2
>    ...\collects\racket\private\class-internal.rkt:3960:0:
> continue-make-object
>    ...\collects\mred\private\wx\win32\panel.rkt:98:2
>    ...\collects\racket\private\class-internal.rkt:3960:0:
> continue-make-object
>    ...\collects\mred\private\wxwindow.rkt:14:6
>    ...\collects\racket\private\class-internal.rkt:3960:0:
> continue-make-object
>    ...\collects\mred\private\wxitem.rkt:34:6
>    ...\collects\racket\private\class-internal.rkt:3960:0:
> continue-make-object
>    ...\collects\mred\private\wxpanel.rkt:69:4
>    ...\collects\racket\private\class-internal.rkt:3960:0:
> continue-make-object
>    ...\collects\racket\private\class-internal.rkt:3960:0:
> continue-make-object
>    ...\collects\racket\private\class-internal.rkt:3960:0:
> continue-make-object
>    ...\collects\racket\private\class-internal.rkt:3960:0:
> continue-make-object
>    ...\collects\racket\private\class-internal.rkt:3960:0:
> continue-make-object...
>
> Where wndclass.rkt contains:
>
> (define (set-hwnd-wx! hwnd wx)
>   (let* ([c (GetWindowLongPtrW hwnd GWLP_USERDATA)]
>          [v (ptr-ref c _racket)])
>     (vector-set! v 0 (make-weak-box wx))))
>
> and two functions that invoke SetWindowLongPtrW GWLP_USERDATA:
>
> ;; call in atomic mode:
> (define (register-hwnd! hwnd)
>   (hash-set! all-hwnds (cast hwnd _pointer _intptr) #t)
>   (let ([c (malloc-immobile-cell (vector #f #f #f))])
>     (void (SetWindowLongPtrW hwnd GWLP_USERDATA c))))
>
> and:
>
> ;; call in atomic mode:
> (define (unregister-hwnd! hwnd)
>   (let ([c (GetWindowLongPtrW hwnd GWLP_USERDATA)])
>     (when c
>       (free-immobile-cell c)
>       (SetWindowLongPtrW hwnd GWLP_USERDATA #f))
>     (hash-remove! all-hwnds (cast hwnd _pointer _intptr))))
>
> Since the crashes occur at random it seems likely that there is some sort
> of race condition (perhaps caused by the register and/or unregister
> functions not being called in 'atomic' mode), but my unfamiliarity with the
> internals of both MrEd-Designer and the GUI components of Racket leave me
> at a bit of a loss at how to proceed debugging this problem. Any hints or
> tips would be very welcome.
>
> Cheers,
>
> Kieron.
>
>
> ____________________
>  Racket Users list:
>  http://lists.racket-lang.org/users
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20120618/d8450933/attachment.html>