|
|
1 # define ec_push(cleanup) setjmp(*_ec_push_(cleanup)) 2 3 typedef void (*ec_ftn) P((frame*, Int)); 4 5 extern void ec_clear P((void)); 6 extern jmp_buf *_ec_push_ P((ec_ftn)); 7 extern void ec_pop P((void)); 8 9 extern void serror P((string*)); 10 extern string *errorstr P((void)); 11 12 extern void message (); 13 extern void error (); 14 extern void fatal (); 15