Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added hooks to runtime for call history.

Browse source 
Still need to log the actual calls at runtime.
This commit is contained in:
Justin Ethier 2015-07-10 21:41:49 -04:00
parent af1cf74b3b
commit 384a5ce0fe
3 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
runtime-main.h
View file

@ -45,8 +45,9 @@ static void main_main (stack_size,heap_size,stack_base)
stack_size,(void *)stack_base,(void *)stack_limit1); stack_size,(void *)stack_base,(void *)stack_limit1);
printf("main: Try different stack sizes from 4 K to 1 Meg.\n"); printf("main: Try different stack sizes from 4 K to 1 Meg.\n");
#endif #endif
/* Do initializations of Lisp objects and rewrite rules.
quote_list_f = mlist1(boolean_f); quote_list_t = mlist1(boolean_t); */ /* Initialize stack trace table */
Cyc_st_init();
{ {

2
runtime.c
View file

@ -212,6 +212,8 @@ object Cyc_default_exception_handler(int argc, closure _, object err) {
} }
} }
fprintf(stderr, "\nCall history:\n");
Cyc_st_print(stderr);
fprintf(stderr, "\n"); fprintf(stderr, "\n");
exit(1); exit(1);
return nil; return nil;

1
test2.scm
View file

@ -5,6 +5,7 @@
(set! x 1) (set! x 1)
(write x) (write x)
(write 'Cyc_procedure) (write 'Cyc_procedure)
(open-input-file "1.scm")
;;; TODO: C macros for funcall1, etc are not being generated even though entries are set ;;; TODO: C macros for funcall1, etc are not being generated even though entries are set
;;; in the vector. must be another problem inspecting the vector ??? ;;; in the vector. must be another problem inspecting the vector ???
;(write 'hello) ;(write 'hello)