PLT scheme 'mred' crashes with OpenGL examples

Fri Oct 2 07:02:43 UTC 2009

Hello.

I seem to be having some problem getting any of the OpenGL examples
to run for the PLT scheme port:

$ uname -smir
FreeBSD 7.2-RELEASE-p2 amd64 GENERIC

viper$ pwd
/usr/local/lib/plt/collects/sgl/examples

viper$ mred gears.ss
Seg fault (internal error) at 0x10
Abort trap
viper$ gdb --args mred gears.ss
GNU gdb 6.1.1 [FreeBSD]
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "amd64-marcel-freebsd"...
(gdb) r
Starting program: /usr/local/bin/mred gears.ss
[New LWP 101026]
[New Thread 0x803c020b0 (LWP 101026)]

Program received signal SIGSEGV, Segmentation fault.
[Switching to Thread 0x803c020b0 (LWP 101026)]
0x0000000800b1daba in update_want_level () from /usr/local/lib/libmzscheme3m-4.1.4.so
(gdb) bt
#0  0x0000000800b1daba in update_want_level () from /usr/local/lib/libmzscheme3m-4.1.4.so
#1  0x0000000800b1dc7d in scheme_log_message () from /usr/local/lib/libmzscheme3m-4.1.4.so
#2  0x0000000800b169dc in scheme_log () from /usr/local/lib/libmzscheme3m-4.1.4.so
#3  0x0000000800d29c0f in inform_GC () from /usr/local/lib/libmzscheme3m-4.1.4.so
#4  0x0000000800d5772f in garbage_collect () from /usr/local/lib/libmzscheme3m-4.1.4.so
#5  0x0000000800d50ca7 in allocate () from /usr/local/lib/libmzscheme3m-4.1.4.so
#6  0x0000000800d50e2a in GC_malloc_one_tagged () from /usr/local/lib/libmzscheme3m-4.1.4.so
#7  0x0000000800d50f73 in fast_malloc_one_small_tagged () from /usr/local/lib/libmzscheme3m-4.1.4.so
#8  0x0000000800d5100a in GC_malloc_one_small_tagged () from /usr/local/lib/libmzscheme3m-4.1.4.so
#9  0x0000000800cd3daa in scheme_make_stx () from /usr/local/lib/libmzscheme3m-4.1.4.so
#10 0x0000000800cd9b6b in propagate_wraps () from /usr/local/lib/libmzscheme3m-4.1.4.so
#11 0x0000000800cdbc48 in scheme_stx_content () from /usr/local/lib/libmzscheme3m-4.1.4.so
#12 0x0000000800b350b5 in scheme_compile_expand_expr () from /usr/local/lib/libmzscheme3m-4.1.4.so
#13 0x0000000800b3a491 in scheme_expand_expr () from /usr/local/lib/libmzscheme3m-4.1.4.so
#14 0x0000000800c06093 in do_module_begin () from /usr/local/lib/libmzscheme3m-4.1.4.so
#15 0x0000000800c0a58b in module_begin_syntax () from /usr/local/lib/libmzscheme3m-4.1.4.so
#16 0x0000000800b356bd in scheme_compile_expand_expr () from /usr/local/lib/libmzscheme3m-4.1.4.so
#17 0x0000000800b3a451 in scheme_compile_expr () from /usr/local/lib/libmzscheme3m-4.1.4.so
#18 0x0000000800c03225 in do_module () from /usr/local/lib/libmzscheme3m-4.1.4.so
#19 0x0000000800c0392b in module_syntax () from /usr/local/lib/libmzscheme3m-4.1.4.so
#20 0x0000000800b356bd in scheme_compile_expand_expr () from /usr/local/lib/libmzscheme3m-4.1.4.so
#21 0x0000000800b3a451 in scheme_compile_expr () from /usr/local/lib/libmzscheme3m-4.1.4.so
#22 0x0000000800b32c69 in compile_k () from /usr/local/lib/libmzscheme3m-4.1.4.so
#23 0x0000000800b67df8 in scheme_top_level_do_worker () from /usr/local/lib/libmzscheme3m-4.1.4.so
#24 0x0000000800b67965 in scheme_top_level_do () from /usr/local/lib/libmzscheme3m-4.1.4.so
#25 0x0000000800b33171 in _compile () from /usr/local/lib/libmzscheme3m-4.1.4.so
#26 0x0000000800b46d26 in scheme_default_compile_handler () from /usr/local/lib/libmzscheme3m-4.1.4.so
#27 0x0000000800b41b30 in scheme_do_eval () from /usr/local/lib/libmzscheme3m-4.1.4.so
#28 0x0000000800b6851e in apply_k () from /usr/local/lib/libmzscheme3m-4.1.4.so
#29 0x0000000800b67df8 in scheme_top_level_do_worker () from /usr/local/lib/libmzscheme3m-4.1.4.so
#30 0x0000000800b67965 in scheme_top_level_do () from /usr/local/lib/libmzscheme3m-4.1.4.so
#31 0x0000000800b685c7 in _apply () from /usr/local/lib/libmzscheme3m-4.1.4.so
#32 0x0000000800b685fe in scheme_apply () from /usr/local/lib/libmzscheme3m-4.1.4.so
#33 0x0000000800b31c0a in call_compile_handler () from /usr/local/lib/libmzscheme3m-4.1.4.so
#34 0x0000000800b32b8c in compile_k () from /usr/local/lib/libmzscheme3m-4.1.4.so
#35 0x0000000800b67df8 in scheme_top_level_do_worker () from /usr/local/lib/libmzscheme3m-4.1.4.so
#36 0x0000000800b67965 in scheme_top_level_do () from /usr/local/lib/libmzscheme3m-4.1.4.so
#37 0x0000000800b33171 in _compile () from /usr/local/lib/libmzscheme3m-4.1.4.so
#38 0x0000000800b331f3 in scheme_compile_for_eval () from /usr/local/lib/libmzscheme3m-4.1.4.so
#39 0x0000000800b44f81 in scheme_eval () from /usr/local/lib/libmzscheme3m-4.1.4.so
#40 0x0000000800b48eb0 in do_eval_string_all () from /usr/local/lib/libmzscheme3m-4.1.4.so
#41 0x0000000800b49157 in scheme_eval_module_string () from /usr/local/lib/libmzscheme3m-4.1.4.so
#42 0x0000000800afad08 in scheme_add_embedded_builtins () from /usr/local/lib/libmzscheme3m-4.1.4.so
#43 0x0000000800b024e6 in place_instance_init_post_kernel () from /usr/local/lib/libmzscheme3m-4.1.4.so
#44 0x0000000800b0232f in scheme_engine_instance_init () from /usr/local/lib/libmzscheme3m-4.1.4.so
#45 0x0000000800b02146 in scheme_basic_env () from /usr/local/lib/libmzscheme3m-4.1.4.so
#46 0x00000008008656be in setup_basic_env () at mred.cxx:3232
#47 0x0000000000403b0d in run_from_cmd_line (argc=Variable "argc" is not available.) at cmdline.inc:1018
#48 0x000000080086516c in MrEdApp::OnInit (this=Variable "this" is not available.) at mred.cxx:3433
#49 0x0000000800732a39 in wxEntry (argc=2, argv=0x7fffffffe8f8) at AppMain.cc:288
#50 0x0000000000401f28 in call_main_after_stack (data=Variable "data" is not available.) at mrmain.cxx:266
#51 0x0000000800af06c5 in scheme_main_stack_setup () from /usr/local/lib/libmzscheme3m-4.1.4.so
#52 0x0000000000401ea7 in main (argc=Variable "argc" is not available.) at mrmain.cxx:299

They all apparently crash in the same place.

I'm not familiar with the PLT scheme codebase at all but can assist in testing
any patches.