conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

check length before compare contents

This commit is contained in:
Sunrim KIM (keen) 2014-05-28 02:55:19 +09:00
parent a9ef840df9
commit dcef9579f5
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/bool.c
View File

@ -28,6 +28,9 @@ pic_equal_p(pic_state *pic, pic_value x, pic_value y)
case PIC_TT_BLOB: {
int i;
struct pic_blob *v1 = pic_blob_ptr(x), *v2 = pic_blob_ptr(y);
if(v1->len != v2->len){
return false;
}
for(i = 0; i < v1->len; ++i){
if(v1->data[i] != v2->data[i])
return false;
@ -38,6 +41,9 @@ pic_equal_p(pic_state *pic, pic_value x, pic_value y)
size_t i;
struct pic_vector *v1 = pic_vec_ptr(x), *v2 = pic_vec_ptr(y);
if(v1->len != v2->len){
return false;
}
for(i = 0; i < v1->len; ++i){
if(! pic_equal_p(pic, v1->data[i], v2->data[i]))
return false;