Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-13 07:47:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed dead code

Browse source
This commit is contained in:
Justin Ethier 2016-01-11 22:39:37 -05:00
parent 37672f0b7a
commit 2019b84149
3 changed files with 0 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
include/cyclone/runtime.h
View file

@ -358,15 +358,6 @@ extern object Cyc_glo_call_cc;
#define __glo_eval Cyc_glo_eval #define __glo_eval Cyc_glo_eval
#define __glo_call_95cc Cyc_glo_call_cc #define __glo_call_95cc Cyc_glo_call_cc
/* Exception handler */
extern object Cyc_exception_handler_stack;
// Special case, use this one instead since we need it in the runtime
// This also seems to "shadow" the corresponding C var definition, as
// subsequent instances of it are replaced during preprocessing. Is that
// behavior portable? If not, will have to modify cgen to not emit the var.
#define __glo__85exception_91handler_91stack_85 Cyc_exception_handler_stack
object Cyc_default_exception_handler(void *data, int argc, closure _, object err); object Cyc_default_exception_handler(void *data, int argc, closure _, object err);
object Cyc_current_exception_handler(void *data); object Cyc_current_exception_handler(void *data);
void Cyc_rt_raise(void *data, object err); void Cyc_rt_raise(void *data, object err);

2
runtime.c
View file

@ -347,8 +347,6 @@ object Cyc_glo_call_cc = nil;
object Cyc_glo_eval = nil; object Cyc_glo_eval = nil;
/* Exception handler */ /* Exception handler */
object Cyc_exception_handler_stack = nil;
object Cyc_default_exception_handler(void *data, int argc, closure _, object err) { object Cyc_default_exception_handler(void *data, int argc, closure _, object err) {
fprintf(stderr, "Error: "); fprintf(stderr, "Error: ");

7
scheme/base.sld
View file

@ -72,7 +72,6 @@
raise raise
raise-continuable raise-continuable
with-exception-handler with-exception-handler
*exception-handler-stack*
Cyc-add-exception-handler Cyc-add-exception-handler
Cyc-remove-exception-handler Cyc-remove-exception-handler
newline newline
@ -618,12 +617,6 @@
(set! result (thunk)) (set! result (thunk))
(Cyc-remove-exception-handler) ; Only reached if no ex raised (Cyc-remove-exception-handler) ; Only reached if no ex raised
result)) result))
(define *exception-handler-stack* '())
; (define (Cyc-add-exception-handler h)
; (set! *exception-handler-stack* (cons h *exception-handler-stack*)))
; (define (Cyc-remove-exception-handler)
; (if (not (null? *exception-handler-stack*))
; (set! *exception-handler-stack* (cdr *exception-handler-stack*))))
(define-c Cyc-add-exception-handler (define-c Cyc-add-exception-handler
"(void *data, int argc, closure _, object k, object h)" "(void *data, int argc, closure _, object k, object h)"
" gc_thread_data *thd = (gc_thread_data *)data; " gc_thread_data *thd = (gc_thread_data *)data;