>From cfcf6e41004855b580718f60b23a801cd9db113e Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Wed, 18 Dec 2013 21:58:39 +0100 Subject: [PATCH] Mark ##sys#zap-symbols obsolete This procedure would replace every single symbol's string value in the symbol table by the same string. This could even cause segfaults. Since it's not used, not documented and can cause trouble, let's get rid of it! --- NEWS | 1 + chicken.h | 2 +- library.scm | 1 + runtime.c | 2 +- 4 files changed, 4 insertions(+), 2 deletions(-) diff --git a/NEWS b/NEWS index 36b53ae..8f1f6fb 100644 --- a/NEWS +++ b/NEWS @@ -6,6 +6,7 @@ - Runtime system - The procedure trace buffer has been made resizable. + - C_zap_strings and ##sys#zap-strings (undocumented) have been deprecated. - Core libraries - Unit extras now implicitly depends on ports. ports no longer diff --git a/chicken.h b/chicken.h index c25f6b8..f61708d 100644 --- a/chicken.h +++ b/chicken.h @@ -1708,7 +1708,7 @@ C_fctexport void C_fcall C_toplevel_entry(C_char *name) C_regparm; C_fctexport C_word C_fcall C_enable_interrupts(void) C_regparm; C_fctexport C_word C_fcall C_disable_interrupts(void) C_regparm; C_fctexport void C_fcall C_paranoid_check_for_interrupt(void) C_regparm; -C_fctexport void C_zap_strings(C_word str); +C_fctexport void C_zap_strings(C_word str); /* OBSOLETE */ C_fctexport void C_set_or_change_heap_size(C_word heap, int reintern); C_fctexport void C_do_resize_stack(C_word stack); C_fctexport C_word C_resize_pending_finalizers(C_word size); diff --git a/library.scm b/library.scm index 2a926b6..c14d069 100644 --- a/library.scm +++ b/library.scm @@ -4432,6 +4432,7 @@ EOF from to offset1 offset2 bytes) ) +;; OBSOLETE (define ##sys#zap-strings (foreign-lambda void "C_zap_strings" scheme-object)) (define (##sys#block-pointer x) diff --git a/runtime.c b/runtime.c index 93463c2..ed2a95e 100644 --- a/runtime.c +++ b/runtime.c @@ -1995,7 +1995,7 @@ void C_ccall callback_return_continuation(C_word c, C_word self, C_word r) } -/* Zap symbol names: */ +/* Zap symbol names: (OBSOLETE) */ void C_zap_strings(C_word str) { -- 1.7.10.4