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

remove pic_ prefix from pic_*_ptr family

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2017-04-06 22:29:02 +09:00
parent 7f430e000b
commit 16dafdd032
16 changed files with 86 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files
lib/ext/load.c
+1 -1
View File
@@ -535,7 +535,7 @@ index_global(pic_state *pic, codegen_context *cxt, pic_value name)
check_pool_size(pic, cxt);
pidx = (int)cxt->plen++;
cxt->pool[pidx] = (struct object *)pic_sym_ptr(pic, name);
cxt->pool[pidx] = (struct object *)sym_ptr(pic, name);
return pidx;
}
lib/ext/read.c
+4 -4
View File
@@ -531,8 +531,8 @@ read_label_set(pic_state *pic, pic_value port, int i, struct reader_control *p)
kh_val(h, it) = val = pic_cons(pic, pic_undef_value(pic), pic_undef_value(pic));
tmp = read_value(pic, port, c, p);
pic_pair_ptr(pic, val)->car = pic_car(pic, tmp);
pic_pair_ptr(pic, val)->cdr = pic_cdr(pic, tmp);
pair_ptr(pic, val)->car = pic_car(pic, tmp);
pair_ptr(pic, val)->cdr = pic_cdr(pic, tmp);
return val;
}
@@ -552,8 +552,8 @@ read_label_set(pic_state *pic, pic_value port, int i, struct reader_control *p)
kh_val(h, it) = val = pic_make_vec(pic, 0, NULL);
tmp = read_value(pic, port, c, p);
PIC_SWAP(pic_value *, pic_vec_ptr(pic, tmp)->data, pic_vec_ptr(pic, val)->data);
PIC_SWAP(int, pic_vec_ptr(pic, tmp)->len, pic_vec_ptr(pic, val)->len);
PIC_SWAP(pic_value *, vec_ptr(pic, tmp)->data, vec_ptr(pic, val)->data);
PIC_SWAP(int, vec_ptr(pic, tmp)->len, vec_ptr(pic, val)->len);
return val;
}