diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-10-14 20:29:16 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-10-14 20:29:16 +0000 |
commit | 2dfc85c018817322c19faa36457ad23fa98fcc89 (patch) | |
tree | 6423aba5d7f19462ad5491495dd65799ddb0be68 | |
parent | 4cdee789b7bd4777243d7e7fb1a32c5e00e1e377 (diff) | |
download | guile-2dfc85c018817322c19faa36457ad23fa98fcc89.tar.gz |
*** empty log message ***
-rw-r--r-- | ice-9/ChangeLog | 7 | ||||
-rw-r--r-- | libguile/ChangeLog | 29 | ||||
-rw-r--r-- | libguile/eval.h | 1 | ||||
-rw-r--r-- | libguile/print.c | 2 | ||||
-rw-r--r-- | libguile/print.h | 2 |
5 files changed, 38 insertions, 3 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 4b7e0b91f..c6057934d 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,10 @@ +Mon Oct 14 22:20:30 1996 Mikael Djurfeldt <mdj@woody.nada.kth.se> + + * boot-9.scm (error-catching-loop, signal-handler, + handle-system-error): Backtracing now works for signals aswell; + Backtracing mechanism can now identify the stack root created by + start-stack so that the user isn't exposed to system stack frames. + Mon Oct 14 06:05:42 1996 Mikael Djurfeldt <mdj@woody.nada.kth.se> * Makefile.in: Added threads.scm. diff --git a/libguile/ChangeLog b/libguile/ChangeLog index f0a19462e..032aaee17 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,32 @@ +Mon Oct 14 17:07:55 1996 Mikael Djurfeldt <mdj@woody.nada.kth.se> + + * init.c (scm_boot_guile_1): Moved scm_init_struct in front of + scm_init_stacks. + + * debug.h (SCM_VOIDFRAME, SCM_VOIDFRAMEP): New macros. + (scm_debug_info): New member: id. + + * stacks.c: Stacks are now represented as structs; Stacks have an + id given to them by `start-stack'. + (scm_last_stack_frame): Added predicates `stack?' and `frame?'. + + * stacks.h: Added declarations of scm_stack_p and scm_frame_p; + Changed stack representation. + + * debug.c (scm_procedure_name): Try procedure property `name' for + compiled closures aswell. + + * gc.c (scm_init_storage): Initialize scm_stand_in_procs to SCM_EOL. + + * eval.c: scm_i_name moved to gsubr.c + (scm_m_define): Record names of all kinds of procedure + objects. (Earlier, only closures were recorded.) + + * procprop.h: Added declaration of scm_i_name. + + * gsubr.c: Added global scm_i_name. Added #include "procprop.h". + (scm_make_gsubr): Record names of compiled closures. + Mon Oct 14 04:21:51 1996 Mikael Djurfeldt <mdj@woody.nada.kth.se> * debug.c, debug.h: Removed obsolete code. diff --git a/libguile/eval.h b/libguile/eval.h index 8ea32b430..1a4864191 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -96,7 +96,6 @@ extern SCM scm_i_else; extern SCM scm_i_unquote; extern SCM scm_i_uq_splicing; extern SCM scm_i_apply; -extern SCM scm_i_name; /* A resolved global variable reference in the CAR position diff --git a/libguile/print.c b/libguile/print.c index 73b2b9ee2..fc7e6aa14 100644 --- a/libguile/print.c +++ b/libguile/print.c @@ -860,7 +860,7 @@ scm_init_print () { SCM vtable, type; scm_init_opts (scm_print_options, scm_print_opts, SCM_N_PRINT_OPTIONS); - vtable = scm_make_vtable_vtable (scm_make_struct_layout (scm_makfrom0str ("")), SCM_INUM0, SCM_EOL); + vtable = scm_make_vtable_vtable (scm_make_struct_layout (scm_nullstr), SCM_INUM0, SCM_EOL); type = scm_make_struct (vtable, SCM_INUM0, scm_cons (scm_make_struct_layout (scm_makfrom0str (SCM_PRINT_STATE_LAYOUT)), diff --git a/libguile/print.h b/libguile/print.h index 495e37d50..483d31386 100644 --- a/libguile/print.h +++ b/libguile/print.h @@ -67,7 +67,7 @@ extern scm_option scm_print_opts[]; #define SCM_WRITINGP(pstate) ((pstate)->writingp) #define SCM_SET_WRITINGP(pstate, x) { (pstate)->writingp = (x); } -#define SCM_PRINT_STATE_LAYOUT "sruwuwuwuwpwuwuwuwpW" +#define SCM_PRINT_STATE_LAYOUT "sruwuwuwuwpwuwuwurpW" typedef struct scm_print_state { SCM handle; /* Struct handle */ unsigned long writingp; /* Writing? */ |