From e67b106863af4ed53efa4ffdc3e9e6d96914463c Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Fri, 14 Oct 2016 21:51:56 +0200 Subject: [PATCH 9/9] Finally, remove all traces of ##sys#fudge/C_fudge --- c-platform.scm | 5 +- chicken.h | 1 - library.scm | 1 - runtime.c | 143 --------------------------------------------------------- 4 files changed, 2 insertions(+), 148 deletions(-) diff --git a/c-platform.scm b/c-platform.scm index 25098e4..aba4916 100644 --- a/c-platform.scm +++ b/c-platform.scm @@ -229,7 +229,7 @@ ##sys#check-open-port ##sys#check-char ##sys#check-vector ##sys#check-byte-vector ##sys#list ##sys#cons ##sys#call-with-values ##sys#flonum-in-fixnum-range? - ##sys#fudge ##sys#immediate? ##sys#context-switch + ##sys#immediate? ##sys#context-switch ##sys#make-structure ##sys#apply ##sys#apply-values chicken.continuation#continuation-graft ##sys#bytevector? ##sys#make-vector ##sys#setter ##sys#car ##sys#cdr ##sys#pair? @@ -245,7 +245,7 @@ (for-each (cut mark-variable <> '##compiler#pure '#t) '(##sys#slot ##sys#block-ref ##sys#size ##sys#byte - ##sys#pointer? ##sys#generic-structure? ##sys#fudge ##sys#immediate? + ##sys#pointer? ##sys#generic-structure? ##sys#immediate? ##sys#bytevector? ##sys#pair? ##sys#eq? ##sys#list? ##sys#vector? ##sys#eqv? ##sys#get-keyword ; ok it isn't, but this is only used for ext. llists ##sys#void ##sys#permanent?)) @@ -842,7 +842,6 @@ (rewrite '##sys#poke-double 17 3 "C_poke_double") (rewrite 'string=? 17 2 "C_i_string_equal_p" "C_u_i_string_equal_p") (rewrite 'string-ci=? 17 2 "C_i_string_ci_equal_p") -(rewrite '##sys#fudge 17 1 "C_fudge") (rewrite '##sys#permanent? 17 1 "C_permanentp") (rewrite '##sys#null-pointer? 17 1 "C_null_pointerp" "C_null_pointerp") (rewrite '##sys#immediate? 17 1 "C_immp") diff --git a/chicken.h b/chicken.h index 0fd3754..0f619aa 100644 --- a/chicken.h +++ b/chicken.h @@ -1902,7 +1902,6 @@ C_fctexport C_word C_fcall C_peek_char(C_word port) C_regparm; C_fctexport C_word C_fcall C_execute_shell_command(C_word string) C_regparm; C_fctexport int C_fcall C_check_fd_ready(int fd) C_regparm; C_fctexport C_word C_fcall C_char_ready_p(C_word port) C_regparm; -C_fctexport C_word C_fcall C_fudge(C_word fudge_factor) C_regparm; C_fctexport void C_fcall C_raise_interrupt(int reason) C_regparm; C_fctexport C_word C_fcall C_establish_signal_handler(C_word signum, C_word reason) C_regparm; C_fctexport C_word C_fcall C_copy_block(C_word from, C_word to) C_regparm; diff --git a/library.scm b/library.scm index 1368032..ff612f1 100644 --- a/library.scm +++ b/library.scm @@ -280,7 +280,6 @@ EOF (define (argc+argv) (##sys#values main_argc main_argv)) (define ##sys#make-structure (##core#primitive "C_make_structure")) (define ##sys#ensure-heap-reserve (##core#primitive "C_ensure_heap_reserve")) -(define (##sys#fudge index) (##core#inline "C_fudge" index)) (define return-to-host (##core#primitive "C_return_to_host")) (define ##sys#symbol-table-info (##core#primitive "C_get_symbol_table_info")) (define ##sys#memory-info (##core#primitive "C_get_memory_info")) diff --git a/runtime.c b/runtime.c index e2a744d..146da1b 100644 --- a/runtime.c +++ b/runtime.c @@ -4864,149 +4864,6 @@ C_regparm C_word C_fcall C_i_allocated_finalizer_count(void) return C_fix(allocated_finalizer_count); } -C_regparm C_word C_fcall C_fudge(C_word fudge_factor) -{ - switch(fudge_factor) { - case C_fix(1): /* eof object */ - panic(C_text("(##sys#fudge 1) [eof object] is obsolete")); - case C_fix(2): /* get time */ - panic(C_text("(##sys#fudge 2) [get time] not implemented")); - - case C_fix(3): /* 64-bit system? */ - panic(C_text("(##sys#fudge 3) [64bit] is obsolete")); - - case C_fix(4): /* is this a console application? */ - panic(C_text("(##sys#fudge 4) [console application] is obsolete")); - - case C_fix(5): /* is this a GUI/console or Windows-GUI application? (silly) */ - panic(C_text("(##sys#fudge 5) [Windows GUI application] is obsolete")); - - case C_fix(6): /* milliseconds CPU */ - panic(C_text("(##sys#fudge 6) [current CPU milliseconds] not implemented")); - - case C_fix(7): /* wordsize */ - panic(C_text("(##sys#fudge 7) [wordsize] is obsolete")); - - case C_fix(8): /* words needed for double */ - panic(C_text("(##sys#fudge 8) [wordsperdouble] is obsolete")); - - case C_fix(9): /* latency */ - panic(C_text("(##sys#fudge 9) [latency] is obsolete")); - - case C_fix(10): /* clocks per sec */ - panic(C_text("(##sys#fudge 10) [clockspersec] is obsolete")); - - case C_fix(11): /* not a unix system? */ - panic(C_text("(##sys#fudge 11) [UNIX system] is obsolete")); - - case C_fix(12): /* tty forced? */ - panic(C_text("(##sys#fudge 12) [tty forced] is obsolete")); - - case C_fix(13): /* debug mode */ - panic(C_text("(##sys#fudge 13) [debug mode] is obsolete")); - - case C_fix(14): /* interrupts enabled? */ - panic(C_text("(##sys#fudge 14) [interrupts enabled] is obsolete")); - - case C_fix(15): /* symbol-gc enabled? */ - panic(C_text("(##sys#fudge 15) [symbolgc] is obsolete")); - - case C_fix(16): /* milliseconds (wall clock) */ - panic(C_text("(##sys#fudge 16) [current wall clock milliseconds] not implemented")); - - case C_fix(17): /* fixed heap? */ - panic(C_text("(##sys#fudge 17) [fixed heap] is obsolete")); - - case C_fix(18): /* stack direction */ - panic(C_text("(##sys#fudge 18) [stack direction] is obsolete")); - - case C_fix(19): /* number of locatives */ - panic(C_text("(##sys#fudge 19) [nr. of locatives] is obsolete")); - - case C_fix(20): /* unused */ - panic(C_text("(##sys#fudge 20) [?] is obsolete")); - - case C_fix(21): /* largest fixnum */ - panic(C_text("(##sys#fudge 21) [largest fixnum] is obsolete")); - - case C_fix(22): /* does this process use a private egg-repository? */ - panic(C_text("(##sys#fudge 22) [private repo?] is obsolete")); - - case C_fix(23): /* seconds since process startup */ - panic(C_text("(##sys#fudge 23) [startuptime] is obsolete")); - - case C_fix(24): /* dynamic loading available? */ - panic(C_text("(##sys#fudge 24) [dload] is obsolete")); - - case C_fix(25): /* REPL on error? XXX Is this used anywhere? */ - panic(C_text("(##sys#fudge 25) [enable repl on error] is obsolete")); - - case C_fix(26): /* number of untriggered finalizers */ - panic(C_text("(##sys#fudge 26) [live finalizers] is obsolete")); - - case C_fix(27): /* total number of finalizers used and unused */ - panic(C_text("(##sys#fudge 27) [total finalizers] is obsolete")); - - case C_fix(28): /* are procedure-tabled enabled? */ - panic(C_text("(##sys#fudge 28) [ptables] is obsolete")); - - case C_fix(29): /* size of ring-buffer used to hold trace entries */ - panic(C_text("(##sys#fudge 29) [trace buffer size] is obsolete")); - - case C_fix(30): /* unused */ - panic(C_text("(##sys#fudge 30) [?] is obsolete")); - - case C_fix(31): /* GC time since last invocation */ - panic(C_text("(##sys#fudge 31) [accumulated gc time] is obsolete")); - - case C_fix(32): /* are GC-hooks enabled? */ - panic(C_text("(##sys#fudge 32) [gchooks] is obsolete")); - - case C_fix(33): /* return process-ID */ - panic(C_text("(##sys#fudge 33) [getpid] is obsolete")); - - case C_fix(34): /* effective maximum for procedure arguments */ - panic(C_text("(##sys#fudge 34) [apply-argument-limit] is obsolete")); - - case C_fix(35): /* unused */ - panic(C_text("(##sys#fudge 35) [old apply-hack] is obsolete")); - - case C_fix(36): /* toggle debug mode */ - panic(C_text("(##sys#fudge 36) [toggle debug-mode] is obsolete")); - - case C_fix(37): /* heap-dump enabled? */ - panic(C_text("(##sys#fudge 37) [dump heap on exit] is obsolete")); - - case C_fix(38): /* unused */ - panic(C_text("(##sys#fudge 38) [old svn rev.] is obsolete")); - - case C_fix(39): /* is this a cross-chicken? */ - panic(C_text("(##sys#fudge 39) [cross-chicken] is obsolete")); - - case C_fix(40): /* many arguments supported? */ - panic(C_text("(##sys#fudge 40) [manyargs] is obsolete")); - - case C_fix(41): /* major CHICKEN version */ - panic(C_text("(##sys#fudge 41) [major version] is obsolete")); - - case C_fix(42): /* binary version number */ - panic(C_text("(##sys#fudge 42) [binary version] is obsolete")); - - case C_fix(43): /* minor CHICKEN version */ - panic(C_text("(##sys#fudge 43) [minor version] is obsolete")); - - case C_fix(44): /* whether debugger is active */ - panic(C_text("(##sys#fudge 44) [debugging] is obsolete")); - - case C_fix(45): /* Whether we're currently profiling */ - panic(C_text("(##sys#fudge 45) [profiling] is obsolete")); - - default: - panic(C_text("Unknown fudge factor")); - } -} - - C_regparm void C_fcall C_paranoid_check_for_interrupt(void) { if(--C_timer_interrupt_counter <= 0) -- 2.1.4