I'm trying to embed Racket into a test C program (minimal.c). I can successfully compile it with clang on Mac OS X, but the program segfaults when I try to run it. Any idea on what I'm doing wrong?
#include <stdio.h> #include <scheme.h> #include "base.c" static int our_scheme_main(Scheme_Env *env, int argc, char *argv[]) { puts("our_scheme_main:"); declare_modules(env); scheme_namespace_require(scheme_intern_symbol("racket/base")); scheme_eval_string("(+ 2 1)", env); return 0; } int main(int argc, char *argv[]) { int status = scheme_main_setup(1, our_scheme_main, argc, argv); return status; } felipe@Felipes-MacBook-Pro:~/code/embed_racket (master #%)$ make clang -I "/Users/felipe/Applications/Racket v6.4"/include/ --std=gnu99 -g -F "/Users/felipe/Applications/Racket v6.4"/lib/ -framework Racket minimal.c felipe@Felipes-MacBook-Pro:~/code/embed_racket (master #%)$ ./a.out our_scheme_main: Segmentation fault: 11 felipe@Felipes-MacBook-Pro:~/code/embed_racket (master #%)$ lldb ./a.out (lldb) target create "./a.out" Current executable set to './a.out' (x86_64). (lldb) r Process 8849 launched: './a.out' (x86_64) our_scheme_main: Process 8849 stopped * thread #1: tid = 0x3eb99, 0x0000000100400b99 Racket`do_scope_at_phase + 249, queue = 'com.apple.main-thread', stop reason = EXC_BAD_ACCESS (code=1, address=0x0) frame #0: 0x0000000100400b99 Racket`do_scope_at_phase + 249 Racket`do_scope_at_phase: -> 0x100400b99 <+249>: movzwl (%rsi), %eax 0x100400b9c <+252>: cmpl $0x4f, %eax 0x100400b9f <+255>: jne 0x100400cac ; <+524> 0x100400ba5 <+261>: testb $0x1, 0x2(%rsi) (lldb) thread backtrace * thread #1: tid = 0x3eb99, 0x0000000100400b99 Racket`do_scope_at_phase + 249, queue = 'com.apple.main-thread', stop reason = EXC_BAD_ACCESS (code=1, address=0x0) * frame #0: 0x0000000100400b99 Racket`do_scope_at_phase + 249 frame #1: 0x00000001003e6d39 Racket`stx_adjust_scope + 345 frame #2: 0x00000001003efbc1 Racket`scheme_stx_push_module_context + 161 frame #3: 0x000000010013cc9c Racket`scheme_top_introduce + 348 frame #4: 0x0000000100143b8e Racket`compile_k + 670 frame #5: 0x0000000100166f66 Racket`scheme_top_level_do_worker + 2102 frame #6: 0x000000010013cfbc Racket`scheme_eval + 220 frame #7: 0x000000010013ed53 Racket`do_eval_string_all + 627 frame #8: 0x0000000100000e96 a.out`our_scheme_main(env=0x00000001026897e8, argc=1, argv=0x00007fff5fbff8e8) + 86 at minimal.c:12 frame #9: 0x00000001000d8323 Racket`call_with_basic + 147 frame #10: 0x00000001000d824a Racket`scheme_main_stack_setup + 330 frame #11: 0x00000001000d80f3 Racket`scheme_main_setup + 35 frame #12: 0x0000000100000e2b a.out`main(argc=1, argv=0x00007fff5fbff8e8) + 59 at minimal.c:18 frame #13: 0x00007fff96bbd5ad libdyld.dylib`start + 1 frame #14: 0x00007fff96bbd5ad libdyld.dylib`start + 1 (lldb) -- 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.
#include <stdio.h> #include <scheme.h> #include "base.c" static int our_scheme_main(Scheme_Env *env, int argc, char *argv[]) { puts("our_scheme_main:"); declare_modules(env); scheme_namespace_require(scheme_intern_symbol("racket/base")); scheme_eval_string("(+ 2 1)", env); return 0; } int main(int argc, char *argv[]) { int status = scheme_main_setup(1, our_scheme_main, argc, argv); return status; }