mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Do no longer handle scm_tc7_bvect bitvectors.

Browse source
This commit is contained in:
Marius Vollmer 2004-11-09 16:14:22 +00:00
parent 6cf0f51de8
commit 241b64d63f
6 changed files with 0 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/eq.c
View file

@ -204,11 +204,6 @@ SCM_PRIMITIVE_GENERIC_1 (scm_equal_p, "equal?", scm_tc7_rpsubr,
case scm_tc7_vector:
case scm_tc7_wvect:
return scm_vector_equal_p (x, y);
#if SCM_HAVE_ARRAYS
case scm_tc7_bvect:
if (scm_tc16_array && scm_smobs[SCM_TC2SMOBNUM (scm_tc16_array)].equalp)
return scm_array_equal_p (x, y);
#endif
}
generic_equal:
if (SCM_UNPACK (g_scm_equal_p))

3
libguile/evalext.c
View file

@ -100,9 +100,6 @@ SCM_DEFINE (scm_self_evaluating_p, "self-evaluating?", 1, 0, 0,
case scm_tcs_closures:
case scm_tc7_vector:
case scm_tc7_wvect:
#if SCM_HAVE_ARRAYS
case scm_tc7_bvect:
#endif
case scm_tc7_number:
case scm_tc7_string:
case scm_tc7_smob:

13
libguile/gc-card.c
View file

@ -145,19 +145,6 @@ scm_i_sweep_card (scm_t_cell * p, SCM *free_list, scm_t_heap_segment*seg)
break;
#endif
case scm_tc7_bvect:
{
unsigned long int length = SCM_BITVECTOR_LENGTH (scmptr);
if (length > 0)
{
scm_gc_free (SCM_BITVECTOR_BASE (scmptr),
(sizeof (long)
* ((length+SCM_LONG_BIT-1) / SCM_LONG_BIT)),
"vector");
}
}
break;
case scm_tc7_number:
switch SCM_TYP16 (scmptr)
{

4
libguile/gc-mark.c
View file

@ -248,10 +248,6 @@ scm_gc_mark_dependencies (SCM p)
goto gc_mark_loop;
}
#endif
#if SCM_HAVE_ARRAYS
case scm_tc7_bvect:
break;
#endif
case scm_tc7_string:
ptr = scm_i_string_mark (ptr);

3
libguile/objects.c
View file

@ -89,9 +89,6 @@ SCM_DEFINE (scm_class_of, "class-of", 1, 0, 0,
return scm_class_symbol;
case scm_tc7_vector:
case scm_tc7_wvect:
#if SCM_HAVE_ARRAYS
case scm_tc7_bvect:
#endif
return scm_class_vector;
case scm_tc7_string:
return scm_class_string;

5
libguile/print.c
View file

@ -598,11 +598,6 @@ iprin1 (SCM exp, SCM port, scm_print_state *pstate)
}
EXIT_NESTED_DATA (pstate);
break;
#if SCM_HAVE_ARRAYS
case scm_tc7_bvect:
scm_raprin1 (exp, port, pstate);
break;
#endif
case scm_tcs_subrs:
scm_puts (SCM_SUBR_GENERIC (exp)
? "#<primitive-generic "