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

the contents of blob object must be a chunk of unsigned char

This commit is contained in:
Yuichi Nishiwaki 2014-09-26 14:04:52 +09:00
parent 1949ebddf9
commit 46f79c0894
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
blob.c
View File

@ -35,7 +35,7 @@ pic_blob_bytevector(pic_state *pic)
pic_value *argv; pic_value *argv;
size_t argc, i; size_t argc, i;
pic_blob *blob; pic_blob *blob;
char *data; unsigned char *data;
pic_get_args(pic, "*", &argc, &argv); pic_get_args(pic, "*", &argc, &argv);
@ -50,7 +50,7 @@ pic_blob_bytevector(pic_state *pic)
pic_errorf(pic, "byte out of range"); pic_errorf(pic, "byte out of range");
} }
*data++ = pic_int(argv[i]); *data++ = (unsigned char)pic_int(argv[i]);
} }
return pic_obj_value(blob); return pic_obj_value(blob);
@ -69,7 +69,7 @@ pic_blob_make_bytevector(pic_state *pic)
blob = pic_make_blob(pic, k); blob = pic_make_blob(pic, k);
for (i = 0; i < k; ++i) { for (i = 0; i < k; ++i) {
blob->data[i] = b; blob->data[i] = (unsigned char)b;
} }
return pic_obj_value(blob); return pic_obj_value(blob);
@ -107,7 +107,7 @@ pic_blob_bytevector_u8_set(pic_state *pic)
if (v < 0 || v > 255) if (v < 0 || v > 255)
pic_errorf(pic, "byte out of range"); pic_errorf(pic, "byte out of range");
bv->data[k] = v; bv->data[k] = (unsigned char)v;
return pic_none_value(); return pic_none_value();
} }
@ -197,7 +197,7 @@ static pic_value
pic_blob_list_to_bytevector(pic_state *pic) pic_blob_list_to_bytevector(pic_state *pic)
{ {
pic_blob *blob; pic_blob *blob;
char *data; unsigned char *data;
pic_value list, e; pic_value list, e;
pic_get_args(pic, "o", &list); pic_get_args(pic, "o", &list);
@ -212,7 +212,7 @@ pic_blob_list_to_bytevector(pic_state *pic)
if (pic_int(e) < 0 || pic_int(e) > 255) if (pic_int(e) < 0 || pic_int(e) > 255)
pic_errorf(pic, "byte out of range"); pic_errorf(pic, "byte out of range");
*data++ = pic_int(e); *data++ = (unsigned char)pic_int(e);
} }
return pic_obj_value(blob); return pic_obj_value(blob);
} }

2
include/picrin/blob.h
View File

@ -11,7 +11,7 @@ extern "C" {
struct pic_blob { struct pic_blob {
PIC_OBJECT_HEADER PIC_OBJECT_HEADER
char *data; unsigned char *data;
size_t len; size_t len;
}; };