~ chicken-core (chicken-5) a08fc90c703e31e1191b7d91804099330249f753
commit a08fc90c703e31e1191b7d91804099330249f753
Author: Peter Bex <peter@more-magic.net>
AuthorDate: Fri Oct 14 21:51:56 2016 +0200
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Fri Oct 28 13:23:22 2016 +1300
Finally, remove all traces of ##sys#fudge/C_fudge
Signed-off-by: Evan Hanson <evhan@foldling.org>
diff --git a/c-platform.scm b/c-platform.scm
index 25098e45..aba4916f 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 0fd37547..0f619aa4 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 dfdfddf8..b1505407 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 e2a744df..146da1b7 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)
Trap