Changeset 12486 in project for chicken


Ignore:
Timestamp:
11/13/08 07:46:33 (12 years ago)
Author:
Ivan Raikov
Message:

Backporting fixes from trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/chicken-3/runtime.c

    r11874 r12486  
    366366C_TLS void (*C_gc_trace_hook)(C_word *var, int mode);
    367367C_TLS C_word(*C_get_unbound_variable_value_hook)(C_word sym);
    368 C_TLS void (*C_panic_hook)(C_char *msg);
    369 C_TLS void (*C_pre_gc_hook)(int mode);
    370 C_TLS void (*C_post_gc_hook)(int mode, long ms);
     368C_TLS void (*C_panic_hook)(C_char *msg) = NULL;
     369C_TLS void (*C_pre_gc_hook)(int mode) = NULL;
     370C_TLS void (*C_post_gc_hook)(int mode, long ms) = NULL;
    371371C_TLS void (C_fcall *C_restart_trampoline)(void *proc) C_regparm C_noret;
    372372
     
    14081408void panic(C_char *msg)
    14091409{
    1410   C_panic_hook(msg);
    1411   usual_panic(msg);
     1410     if (C_panic_hook != NULL) C_panic_hook(msg);
     1411     usual_panic(msg);
    14121412}
    14131413
Note: See TracChangeset for help on using the changeset viewer.