diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-05-03 20:55:29 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-05-03 20:55:29 -0700 |
| commit | 26dd7d045823e42fdcadd6c81e1f82f2ba48323d (patch) | |
| tree | 5a791c060b6b04e85afc7464d2413c0c2a774eb1 | |
| parent | 5e2ca779638b8aaaab80d3a23be93df3f0555ba2 (diff) | |
| download | txr-26dd7d045823e42fdcadd6c81e1f82f2ba48323d.tar.gz txr-26dd7d045823e42fdcadd6c81e1f82f2ba48323d.tar.bz2 txr-26dd7d045823e42fdcadd6c81e1f82f2ba48323d.zip | |
ffi: rename low-level ptr function.
* ffi.c (ffi_ptr_put): Rnamed to ffi_ptr_in_put.
(ffi_type_compile): All uses of ffi_ptr_put replaced with
ffi_ptr_in_put.
| -rw-r--r-- | ffi.c | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -766,7 +766,8 @@ static val ffi_ptr_d_get(struct txr_ffi_type *tft, mem_t *src, val self) return ret; } -static void ffi_ptr_put(struct txr_ffi_type *tft, val s, mem_t *dst, val self) +static void ffi_ptr_in_put(struct txr_ffi_type *tft, val s, mem_t *dst, + val self) { val tgttype = tft->mtypes; struct txr_ffi_type *tgtft = ffi_type_struct(tgttype); @@ -1260,14 +1261,14 @@ val ffi_type_compile(val syntax) val target_type = ffi_type_compile(cadr(syntax)); return make_ffi_type_pointer(syntax, cptr_s, sizeof (mem_t *), &ffi_type_pointer, - ffi_ptr_put, ffi_ptr_get, + ffi_ptr_in_put, ffi_ptr_get, ffi_ptr_in_in, ffi_ptr_in_out, target_type); } else if (sym == ptr_in_d_s) { val target_type = ffi_type_compile(cadr(syntax)); return make_ffi_type_pointer(syntax, cptr_s, sizeof (mem_t *), &ffi_type_pointer, - ffi_ptr_put, ffi_ptr_d_get, + ffi_ptr_in_put, ffi_ptr_d_get, 0, ffi_ptr_in_out, target_type); } else if (sym == ptr_out_s) { @@ -1288,7 +1289,7 @@ val ffi_type_compile(val syntax) val target_type = ffi_type_compile(cadr(syntax)); return make_ffi_type_pointer(syntax, cptr_s, sizeof (mem_t *), &ffi_type_pointer, - ffi_ptr_put, ffi_ptr_get, + ffi_ptr_in_put, ffi_ptr_get, ffi_ptr_out_in, ffi_ptr_out_out, target_type); } else if (sym == buf_s || sym == buf_d_s) { |