~ chicken-core (chicken-5) 955e40ab2a56330b8faa5adebad702ed3d3d5796
commit 955e40ab2a56330b8faa5adebad702ed3d3d5796
Author: Peter Bex <peter@more-magic.net>
AuthorDate: Tue Oct 11 22:40:49 2016 +0200
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Fri Oct 28 12:29:46 2016 +1300
Remove a few more semi-unused fudge factors.
Fudges 8 (words per double), 9 (latency), 10 (clocks per sec),
23 (startup time), 29 (trace buffer size) were used nowhere.
Remove ##sys#apply-limit, as it is used nowhere and doesn't make much
sense (its value is just a crude guess anyway). This was the only use
of fudge 34.
Fudge 36 (toggle debug mode) doesn't make much sense either. If we want
to set it it is more logical to just set it to the desired value. The
one test that used it seemed to use it for no apparent reason (??)
Signed-off-by: Evan Hanson <evhan@foldling.org>
diff --git a/library.scm b/library.scm
index decde2ae..7c6f8289 100644
--- a/library.scm
+++ b/library.scm
@@ -287,7 +287,6 @@ EOF
(define (##sys#block-ref x i) (##core#inline "C_i_block_ref" x i))
(define ##sys#apply-values (##core#primitive "C_apply_values"))
(define ##sys#copy-closure (##core#primitive "C_copy_closure"))
-(define ##sys#apply-argument-limit (##sys#fudge 34))
(define (##sys#block-set! x i y)
(when (or (not (##core#inline "C_blockp" x))
diff --git a/runtime.c b/runtime.c
index 36f3819d..99be6877 100644
--- a/runtime.c
+++ b/runtime.c
@@ -4854,13 +4854,13 @@ C_regparm C_word C_fcall C_fudge(C_word fudge_factor)
panic(C_text("(##sys#fudge 7) [wordsize] is obsolete"));
case C_fix(8): /* words needed for double */
- return C_fix(C_wordsperdouble(1));
+ panic(C_text("(##sys#fudge 8) [wordsperdouble] is obsolete"));
case C_fix(9): /* latency */
- return C_fix(last_interrupt_latency);
+ panic(C_text("(##sys#fudge 9) [latency] is obsolete"));
case C_fix(10): /* clocks per sec */
- return C_fix(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"));
@@ -4901,7 +4901,7 @@ C_regparm C_word C_fcall C_fudge(C_word fudge_factor)
return C_mk_bool(private_repository != NULL);
case C_fix(23): /* seconds since process startup */
- return C_fix(C_startup_time_seconds);
+ panic(C_text("(##sys#fudge 23) [startuptime] is obsolete"));
case C_fix(24): /* dynamic loading available? */
#ifdef NO_DLOAD2
@@ -4927,7 +4927,7 @@ C_regparm C_word C_fcall C_fudge(C_word fudge_factor)
#endif
case C_fix(29): /* size of ring-buffer used to hold trace entries */
- return C_fix(C_trace_buffer_size);
+ panic(C_text("(##sys#fudge 29) [trace buffer size] is obsolete"));
case C_fix(30): /* unused */
panic(C_text("(##sys#fudge 30) [?] is obsolete"));
@@ -4948,14 +4948,13 @@ C_regparm C_word C_fcall C_fudge(C_word fudge_factor)
return C_fix(C_getpid());
case C_fix(34): /* effective maximum for procedure arguments */
- return C_fix(stack_size / 2); /* An educated guess :) */
+ 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 */
- debug_mode = !debug_mode;
- return C_mk_bool(debug_mode);
+ panic(C_text("(##sys#fudge 36) [toggle debug-mode] is obsolete"));
case C_fix(37): /* heap-dump enabled? */
return C_mk_bool(dump_heap_on_exit);
diff --git a/tests/embedded2.scm b/tests/embedded2.scm
index 3e44cdcf..d2d8eece 100644
--- a/tests/embedded2.scm
+++ b/tests/embedded2.scm
@@ -17,8 +17,6 @@ int main()
}
<#
-
-(##sys#fudge 36)
(gc)
(print "starting...")
Trap