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

bytevector=?: #vu8(1 2 3) is equal to #u8(1 2 3).

Browse source 
* libguile/bytevectors.c (scm_bytevector_eq_p): Treat VU8 and U8 element
  types as equivalent.
This commit is contained in:
Mark H Weaver 2014-01-12 04:44:39 -05:00
parent 2d76447bda
commit 84aebcaecb
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
libguile/bytevectors.c
View file

@ -518,8 +518,19 @@ SCM_DEFINE (scm_bytevector_eq_p, "bytevector=?", 2, 0, 0,
c_len1 = SCM_BYTEVECTOR_LENGTH (bv1);
c_len2 = SCM_BYTEVECTOR_LENGTH (bv2);
if (c_len1 == c_len2 && (SCM_BYTEVECTOR_ELEMENT_TYPE (bv1)
== SCM_BYTEVECTOR_ELEMENT_TYPE (bv2)))
if (c_len1 == c_len2
&& ((SCM_BYTEVECTOR_ELEMENT_TYPE (bv1)
== SCM_BYTEVECTOR_ELEMENT_TYPE (bv2))
/* XXX FIXME Here we treat #u8(...) as the same type as
#vu8(...). Why do they have different element types? */
|| ((SCM_BYTEVECTOR_ELEMENT_TYPE (bv1)
== SCM_ARRAY_ELEMENT_TYPE_VU8)
&& (SCM_BYTEVECTOR_ELEMENT_TYPE (bv2)
== SCM_ARRAY_ELEMENT_TYPE_U8))
|| ((SCM_BYTEVECTOR_ELEMENT_TYPE (bv1)
== SCM_ARRAY_ELEMENT_TYPE_U8)
&& (SCM_BYTEVECTOR_ELEMENT_TYPE (bv2)
== SCM_ARRAY_ELEMENT_TYPE_VU8))))
{
signed char *c_bv1, *c_bv2;