Changeset 12476 in project for chicken/trunk


Ignore:
Timestamp:
11/11/08 15:39:03 (12 years ago)
Author:
felix winkelmann
Message:

handling uninitialized panic_hook while parsing command line

Location:
chicken/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r12436 r12476  
    124124   but low-level hashtables should get the most of this (and thus speed up
    125125   the compiler)
     126
     127** Lisp2-hack by Dybvig
     128*** add function-cell to symbol, call on direct call without checks
     129*** initialized to trap function on set!/define, which does fixup
     130*** would also allow inline-caching hacks
  • chicken/trunk/runtime.c

    r12301 r12476  
    362362C_TLS void (*C_gc_trace_hook)(C_word *var, int mode);
    363363C_TLS C_word(*C_get_unbound_variable_value_hook)(C_word sym);
    364 C_TLS void (*C_panic_hook)(C_char *msg);
    365 C_TLS void (*C_pre_gc_hook)(int mode);
    366 C_TLS void (*C_post_gc_hook)(int mode, long ms);
     364C_TLS void (*C_panic_hook)(C_char *msg) = NULL;
     365C_TLS void (*C_pre_gc_hook)(int mode) = NULL;
     366C_TLS void (*C_post_gc_hook)(int mode, long ms) = NULL;
    367367C_TLS void (C_fcall *C_restart_trampoline)(void *proc) C_regparm C_noret;
    368368
     
    13771377void panic(C_char *msg)
    13781378{
    1379   C_panic_hook(msg);
     1379  if(C_panic_hook != NULL) C_panic_hook(msg);
     1380
    13801381  usual_panic(msg);
    13811382}
Note: See TracChangeset for help on using the changeset viewer.