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

* Avoid redundant casting of argument numbers to char* and vice versa.

Browse source
This commit is contained in:
Dirk Herrmann 2001-04-10 07:57:05 +00:00
parent 40f83c3e1b
commit e4b265d817
15 changed files with 87 additions and 61 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/numbers.c
View file

@ -4358,7 +4358,7 @@ scm_ulong2num (unsigned long sl)
long
scm_num2long (SCM num, char *pos, const char *s_caller)
scm_num2long (SCM num, unsigned long int pos, const char *s_caller)
{
if (SCM_INUMP (num)) {
return SCM_INUM (num);
@ -4402,7 +4402,7 @@ scm_num2long (SCM num, char *pos, const char *s_caller)
scm_out_of_range (s_caller, num);
}
} else {
scm_wrong_type_arg (s_caller, (int) pos, num);
scm_wrong_type_arg (s_caller, pos, num);
}
}
@ -4414,7 +4414,7 @@ scm_num2long (SCM num, char *pos, const char *s_caller)
#endif
long_long
scm_num2long_long (SCM num, char *pos, const char *s_caller)
scm_num2long_long (SCM num, unsigned long int pos, const char *s_caller)
{
if (SCM_INUMP (num)) {
return SCM_INUM (num);
@ -4453,12 +4453,12 @@ scm_num2long_long (SCM num, char *pos, const char *s_caller)
scm_out_of_range (s_caller, num);
}
} else {
scm_wrong_type_arg (s_caller, (int) pos, num);
scm_wrong_type_arg (s_caller, pos, num);
}
}
ulong_long
scm_num2ulong_long (SCM num, char *pos, const char *s_caller)
scm_num2ulong_long (SCM num, unsigned long int pos, const char *s_caller)
{
if (SCM_INUMP (num))
{
@ -4493,14 +4493,14 @@ scm_num2ulong_long (SCM num, char *pos, const char *s_caller)
scm_out_of_range (s_caller, num);
}
else
scm_wrong_type_arg (s_caller, (int) pos, num);
scm_wrong_type_arg (s_caller, pos, num);
}
#endif /* HAVE_LONG_LONGS */
unsigned long
scm_num2ulong (SCM num, char *pos, const char *s_caller)
scm_num2ulong (SCM num, unsigned long int pos, const char *s_caller)
{
if (SCM_INUMP (num)) {
long nnum = SCM_INUM (num);
@ -4531,7 +4531,7 @@ scm_num2ulong (SCM num, char *pos, const char *s_caller)
scm_out_of_range (s_caller, num);
}
} else {
scm_wrong_type_arg (s_caller, (int) pos, num);
scm_wrong_type_arg (s_caller, pos, num);
}
}