mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

* Removed deprecated stuff.

Browse source 
* Some more renamings to SCM_<filename>_H.
This commit is contained in:
Dirk Herrmann 2001-08-31 12:13:50 +00:00
parent b29058ffee
commit dee01b012c
27 changed files with 132 additions and 728 deletions
Download patch file Download diff file Expand all files Collapse all files

88
libguile/numbers.c
View file

@ -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"