Bug#405000: liblablgl-ocaml: Segfault when using Glut.createMenu.

[Erik de Castro Lopo <mle+reportbug@mega-nerd.com>]

Package: liblablgl-ocaml
Version: 1.02-2
Severity: normal


Simple lablgl program:

    let init () =
        GlClear.color (0.0, 0.0, 0.0)
    
    let display () =
        GlClear.clear [ `color ; `depth ] ;
        Glut.swapBuffers ()
    
    let right_menu ~value =
        Printf.printf "right_menu %d\n" value ;
        flush stdout
    
    let _ =
        ignore (Glut.init Sys.argv) ;
        Glut.initDisplayMode ~depth:true ~double_buffer:true () ;
        Glut.initWindowSize ~w:500 ~h:500 ;
        ignore (Glut.createWindow ~title:"OpenGL : Cone Culling Example") ;
    
        ignore (Glut.createMenu right_menu) ;
        Glut.addMenuEntry "One" 1 ;
        Glut.addMenuEntry "Two" 2 ;
        Glut.addMenuEntry "Three" 3 ;
        Glut.attachMenu Glut.RIGHT_BUTTON ;
    
        Glut.displayFunc display ;
    
        init () ;
        Glut.mainLoop ()

Compile with:

    ocamlopt -I +lablGL lablgl.cmxa lablglut.cmxa right_menu.ml -o test

and run program. Now right click and select one of the three options and
the program segfaults. Gdb backtrace below:


    [Thread debugging using libthread_db enabled]
    [New Thread -1214338848 (LWP 9095)]
    
    Program received signal SIGSEGV, Segmentation fault.
    [Switching to Thread -1214338848 (LWP 9095)]
    0x08079910 in caml_callback_exn ()
    (gdb) bt
    #0  0x08079910 in caml_callback_exn ()
    #1  0x08077ccb in caml_callback ()
    #2  0x08068c15 in glutCreateMenu_cb ()
    #3  0xb7edd495 in glutLeaveMainLoop () from /usr/lib/libglut.so.3
    #4  0xb7eddc14 in fgCheckActiveMenu () from /usr/lib/libglut.so.3
    #5  0xb7edc41c in glutMainLoopEvent () from /usr/lib/libglut.so.3
    #6  0xb7edccbe in glutMainLoop () from /usr/lib/libglut.so.3
    #7  0x08067b88 in ml_glutMainLoop ()
    #8  0x0804ff95 in camlRight_menu__entry ()
    #9  0x00000001 in ?? ()
    #10 0x00000001 in ?? ()
    #11 0x00000001 in ?? ()
    #12 0x00000001 in ?? ()
    #13 0x0804ef9d in caml_startup__code_begin ()
    #14 0x080798ca in caml_start_program ()
    #15 0x00000000 in ?? ()


-- System Information:
Debian Release: 4.0
  APT prefers testing
  APT policy: (500, 'testing'), (500, 'stable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.18-3-686
Locale: LANG=en_AU.UTF-8, LC_CTYPE=en_AU.UTF-8 (charmap=ANSI_X3.4-1968) (ignored: LC_ALL set to POSIX)

Versions of packages liblablgl-ocaml depends on:
ii  freeglut3                    2.4.0-5     OpenGL Utility Toolkit
ii  libc6                        2.3.6.ds1-8 GNU C Library: Shared libraries
ii  libgl1-mesa-glx [libgl1]     6.5.1-0.4   A free implementation of the OpenG
ii  libglu1-mesa [libglu1]       6.5.1-0.4   The OpenGL utility library (GLU)
ii  libx11-6                     2:1.0.3-4   X11 client-side library
ii  libxext6                     1:1.0.1-2   X11 miscellaneous extension librar
ii  libxmu6                      1:1.0.2-2   X11 miscellaneous utility library
ii  ocaml-base [ocaml-base-3.09. 3.09.2-7    Runtime system for ocaml bytecode 
ii  tcl8.4                       8.4.12-1.1  Tcl (the Tool Command Language) v8
ii  tk8.4                        8.4.12-1    Tk toolkit for Tcl and X11, v8.4 -

liblablgl-ocaml recommends no packages.

-- no debconf information