diff options
Diffstat (limited to 'libguile/numbers.c')
-rw-r--r-- | libguile/numbers.c | 88 |
1 files changed, 0 insertions, 88 deletions
diff --git a/libguile/numbers.c b/libguile/numbers.c index 1a6ff53c1..3bead8ce6 100644 --- a/libguile/numbers.c +++ b/libguile/numbers.c @@ -4454,94 +4454,6 @@ scm_init_numbers () #endif } -#if (SCM_DEBUG_DEPRECATED == 0) - -SCM -scm_mkbig (size_t len, int sign) -{ - scm_c_issue_deprecation_warning ("`scm_mkbig' is deprecated. " - "Use `scm_i_mkbig' instead."); - return scm_i_mkbig (len, sign); -} - -SCM -scm_big2inum (SCM b, size_t l) -{ - scm_c_issue_deprecation_warning ("`scm_big2inum' is deprecated. " - "Use `scm_i_big2num' instead."); - return scm_i_big2inum (b, l); -} - -SCM -scm_adjbig (SCM b, size_t nlen) -{ - scm_c_issue_deprecation_warning ("`scm_adjbig' is deprecated. " - "Use `scm_i_adjbig' instead."); - return scm_i_adjbig (b, nlen); -} - -SCM -scm_normbig (SCM b) -{ - scm_c_issue_deprecation_warning ("`scm_normbig' is deprecated. " - "Use `scm_i_normbig' instead."); - return scm_i_normbig (b); -} - -SCM -scm_copybig (SCM b, int sign) -{ - scm_c_issue_deprecation_warning ("`scm_copybig' is deprecated. " - "Use `scm_i_copybig' instead."); - return scm_i_copybig (b, sign); -} - -SCM -scm_2ulong2big (unsigned long *np) -{ - unsigned long n; - size_t i; - SCM_BIGDIG *digits; - SCM ans; - - ans = scm_i_mkbig (2 * SCM_DIGSPERLONG, 0); - digits = SCM_BDIGITS (ans); - - n = np[0]; - for (i = 0; i < SCM_DIGSPERLONG; ++i) - { - digits[i] = SCM_BIGLO (n); - n = SCM_BIGDN ((unsigned long) n); - } - n = np[1]; - for (i = 0; i < SCM_DIGSPERLONG; ++i) - { - digits[i + SCM_DIGSPERLONG] = SCM_BIGLO (n); - n = SCM_BIGDN ((unsigned long) n); - } - return ans; -} - -SCM -scm_dbl2big (double d) -{ - scm_c_issue_deprecation_warning ("`scm_dbl2big' is deprecated. " - "Use `scm_dbl2num' instead," - "or `scm_i_dbl2big'."); - return scm_i_dbl2big (d); -} - -double -scm_big2dbl (SCM b) -{ - scm_c_issue_deprecation_warning ("`scm_big2dbl' is deprecated. " - "Use `scm_num2dbl' instead," - "or `scm_i_big2dbl'."); - return scm_i_big2dbl (b); -} - -#endif - /* Local Variables: c-file-style: "gnu" |