Skip to content
Browse files

Changed the initialization of ctx->caml_signal_handlers from 0 to Val…

…_int(0), to make the value serializable
  • Loading branch information...
1 parent 9a0a17c commit 11e85e7765ba04012ec1e1177c85b7f225378101 @lucasaiu committed Jun 5, 2013
Showing with 2 additions and 2 deletions.
  1. +1 −1 byterun/context.c
  2. +1 −1 byterun/signals.c
View
2 byterun/context.c
@@ -290,7 +290,7 @@ section. */
/* ctx->caml_try_leave_blocking_section_hook = &caml_try_leave_blocking_section_default; */
ctx->caml_force_major_slice = 0;
- ctx->caml_signal_handlers = 0;
+ ctx->caml_signal_handlers = Val_int(0);
caml_register_global_root_r(ctx, &ctx->caml_signal_handlers);
/* from backtrace.c */
View
2 byterun/signals.c
@@ -310,7 +310,7 @@ CAMLprim value caml_install_signal_handler_r(CAML_R, value signal_number, value
caml_sys_error_r(ctx, NO_ARG);
}
if (Is_block(action)) {
- if (caml_signal_handlers == 0) {
+ if (caml_signal_handlers == Val_int(0)) {
caml_signal_handlers = caml_alloc_r(ctx, NSIG, 0);
//// !!!!!!!!!!!!!!!!!!!!!!!!!!! This is probably ok. Just remove my comment markers. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
int i;

0 comments on commit 11e85e7

Please sign in to comment.
Something went wrong with that request. Please try again.