From 4ad24edba4b5a62eca5f3a07c13e01c8e69d4f5c Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Tue, 22 Sep 2009 19:19:47 +0000 Subject: [PATCH] Removed unused code svn: r16112 --- src/mzscheme/src/bignum.c | 2 -- src/mzscheme/src/stxobj.c | 11 ----------- 2 files changed, 13 deletions(-) diff --git a/src/mzscheme/src/bignum.c b/src/mzscheme/src/bignum.c index 1125081816..8e418954cf 100644 --- a/src/mzscheme/src/bignum.c +++ b/src/mzscheme/src/bignum.c @@ -1657,8 +1657,6 @@ Scheme_Object *scheme_integer_sqrt_rem(const Scheme_Object *n, Scheme_Object **r } } -int gcd_calls = 0; - Scheme_Object *scheme_bignum_gcd(const Scheme_Object *n, const Scheme_Object *d) { bigdig *r_digs, *n_digs, *d_digs; diff --git a/src/mzscheme/src/stxobj.c b/src/mzscheme/src/stxobj.c index e78ea16ba4..45c321e3e7 100644 --- a/src/mzscheme/src/stxobj.c +++ b/src/mzscheme/src/stxobj.c @@ -91,7 +91,6 @@ static Scheme_Stx_Srcloc *empty_srcloc; static Scheme_Object *empty_simplified; -static Scheme_Hash_Table *empty_hash_table; static THREAD_LOCAL Scheme_Hash_Table *quick_hash_table; static THREAD_LOCAL Scheme_Object *last_phase_shift; @@ -217,8 +216,6 @@ typedef struct Scheme_Lexical_Rib { struct Scheme_Lexical_Rib *next; } Scheme_Lexical_Rib; -static Module_Renames *krn; - #define SCHEME_RENAMESP(obj) (SAME_TYPE(SCHEME_TYPE(obj), scheme_rename_table_type)) #define SCHEME_RENAMES_SETP(obj) (SAME_TYPE(SCHEME_TYPE(obj), scheme_rename_table_set_type)) @@ -620,9 +617,6 @@ void scheme_init_stx(Scheme_Env *env) REGISTER_SO(last_phase_shift); - REGISTER_SO(empty_hash_table); - empty_hash_table = scheme_make_hash_table(SCHEME_hash_ptr); - REGISTER_SO(no_nested_inactive_certs); no_nested_inactive_certs = scheme_make_raw_pair(NULL, NULL); SCHEME_SET_IMMUTABLE(no_nested_inactive_certs); @@ -1380,11 +1374,6 @@ Scheme_Object *scheme_make_module_rename(Scheme_Object *phase, int kind, Scheme_ mr->shared_pes = scheme_null; mr->unmarshal_info = scheme_null; - if (!krn) { - REGISTER_SO(krn); - krn = mr; - } - return (Scheme_Object *)mr; }