diff options
author | Zheng Li <dev@zheng.li> | 2011-10-06 17:47:05 +0100 |
---|---|---|
committer | Zheng Li <dev@zheng.li> | 2011-10-06 17:47:05 +0100 |
commit | ef392f109260edf2a55575bdd50c6f706314727c (patch) | |
tree | 65d43b7c880caee8f543d6c009ef6161187bb6cf /tools/ocaml | |
parent | c9e3fb65ae60f2719acdb11ce648620b1d6c6ce4 (diff) | |
download | xen-ef392f109260edf2a55575bdd50c6f706314727c.tar.gz xen-ef392f109260edf2a55575bdd50c6f706314727c.tar.bz2 xen-ef392f109260edf2a55575bdd50c6f706314727c.zip |
tools: ocaml: Change GET_C_STRUCT to Intf_val to follow common naming scheme
Change GET_C_STRUCT to Intf_val to follow the common naming scheme of
OCaml macros, and for better readability.
Signed-off-by: Zheng Li <dev@zheng.li>
Committed-by: Ian Jackson <ian.jackson@eu.citrix.com>
Diffstat (limited to 'tools/ocaml')
-rw-r--r-- | tools/ocaml/libs/mmap/mmap_stubs.c | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/tools/ocaml/libs/mmap/mmap_stubs.c b/tools/ocaml/libs/mmap/mmap_stubs.c index 322700f96e..e2ce088e25 100644 --- a/tools/ocaml/libs/mmap/mmap_stubs.c +++ b/tools/ocaml/libs/mmap/mmap_stubs.c @@ -28,7 +28,7 @@ #include <caml/fail.h> #include <caml/callback.h> -#define GET_C_STRUCT(a) ((struct mmap_interface *) a) +#define Intf_val(a) ((struct mmap_interface *) a) static int mmap_interface_init(struct mmap_interface *intf, int fd, int pflag, int mflag, @@ -61,27 +61,27 @@ CAMLprim value stub_mmap_init(value fd, value pflag, value mflag, result = caml_alloc(sizeof(struct mmap_interface), Abstract_tag); - if (mmap_interface_init(GET_C_STRUCT(result), Int_val(fd), + if (mmap_interface_init(Intf_val(result), Int_val(fd), c_pflag, c_mflag, Int_val(len), Int_val(offset))) caml_failwith("mmap"); CAMLreturn(result); } -CAMLprim value stub_mmap_final(value interface) +CAMLprim value stub_mmap_final(value intf) { - CAMLparam1(interface); + CAMLparam1(intf); - if (GET_C_STRUCT(interface)->addr != MAP_FAILED) - munmap(GET_C_STRUCT(interface)->addr, GET_C_STRUCT(interface)->len); - GET_C_STRUCT(interface)->addr = MAP_FAILED; + if (Intf_val(intf)->addr != MAP_FAILED) + munmap(Intf_val(intf)->addr, Intf_val(intf)->len); + Intf_val(intf)->addr = MAP_FAILED; CAMLreturn(Val_unit); } -CAMLprim value stub_mmap_read(value interface, value start, value len) +CAMLprim value stub_mmap_read(value intf, value start, value len) { - CAMLparam3(interface, start, len); + CAMLparam3(intf, start, len); CAMLlocal1(data); int c_start; int c_len; @@ -89,33 +89,33 @@ CAMLprim value stub_mmap_read(value interface, value start, value len) c_start = Int_val(start); c_len = Int_val(len); - if (c_start > GET_C_STRUCT(interface)->len) + if (c_start > Intf_val(intf)->len) caml_invalid_argument("start invalid"); - if (c_start + c_len > GET_C_STRUCT(interface)->len) + if (c_start + c_len > Intf_val(intf)->len) caml_invalid_argument("len invalid"); data = caml_alloc_string(c_len); - memcpy((char *) data, GET_C_STRUCT(interface)->addr + c_start, c_len); + memcpy((char *) data, Intf_val(intf)->addr + c_start, c_len); CAMLreturn(data); } -CAMLprim value stub_mmap_write(value interface, value data, +CAMLprim value stub_mmap_write(value intf, value data, value start, value len) { - CAMLparam4(interface, data, start, len); + CAMLparam4(intf, data, start, len); int c_start; int c_len; c_start = Int_val(start); c_len = Int_val(len); - if (c_start > GET_C_STRUCT(interface)->len) + if (c_start > Intf_val(intf)->len) caml_invalid_argument("start invalid"); - if (c_start + c_len > GET_C_STRUCT(interface)->len) + if (c_start + c_len > Intf_val(intf)->len) caml_invalid_argument("len invalid"); - memcpy(GET_C_STRUCT(interface)->addr + c_start, (char *) data, c_len); + memcpy(Intf_val(intf)->addr + c_start, (char *) data, c_len); CAMLreturn(Val_unit); } |