Lines Matching refs:xtl
92 struct caml_xtl *xtl = (struct caml_xtl*)logger; in stub_xtl_ocaml_vmessage() local
93 value *func = caml_named_value(xtl->vmessage_cb) ; in stub_xtl_ocaml_vmessage()
122 struct caml_xtl *xtl = (struct caml_xtl*)logger; in stub_xtl_ocaml_progress() local
123 value *func = caml_named_value(xtl->progress_cb) ; in stub_xtl_ocaml_progress()
142 struct caml_xtl *xtl = (struct caml_xtl*)logger; in xtl_destroy() local
143 free(xtl->vmessage_cb); in xtl_destroy()
144 free(xtl->progress_cb); in xtl_destroy()
145 free(xtl); in xtl_destroy()
167 struct caml_xtl *xtl = malloc(sizeof(*xtl)); in stub_xtl_create_logger() local
168 if (xtl == NULL) in stub_xtl_create_logger()
171 memset(xtl, 0, sizeof(*xtl)); in stub_xtl_create_logger()
173 xtl->vtable.vmessage = &stub_xtl_ocaml_vmessage; in stub_xtl_create_logger()
174 xtl->vtable.progress = &stub_xtl_ocaml_progress; in stub_xtl_create_logger()
175 xtl->vtable.destroy = &xtl_destroy; in stub_xtl_create_logger()
177 xtl->vmessage_cb = dup_String_val(Field(cbs, 0)); in stub_xtl_create_logger()
178 xtl->progress_cb = dup_String_val(Field(cbs, 1)); in stub_xtl_create_logger()
180 handle = caml_alloc_custom(&xentoollogger_custom_operations, sizeof(xtl), 0, 1); in stub_xtl_create_logger()
181 Xtl_val(handle) = xtl; in stub_xtl_create_logger()