diff options
author | Sudha Parimala <sudharg247@gmail.com> | 2021-01-18 16:45:32 +0530 |
---|---|---|
committer | Sudha Parimala <sudharg247@gmail.com> | 2021-01-18 16:45:32 +0530 |
commit | 6bfe45e8de959ce88882c7cbb68bfe83d9962988 (patch) | |
tree | 083c2bc3abcaa86b4b8a052e34654a44886b45be /runtime/fail_byt.c | |
parent | 9ac584f00cd50fb0a7ccfecfff35d67b98ca3552 (diff) | |
download | ocaml-6bfe45e8de959ce88882c7cbb68bfe83d9962988.tar.gz |
replace Field_imm with Field
Diffstat (limited to 'runtime/fail_byt.c')
-rw-r--r-- | runtime/fail_byt.c | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/runtime/fail_byt.c b/runtime/fail_byt.c index ccf504d397..28d41ab699 100644 --- a/runtime/fail_byt.c +++ b/runtime/fail_byt.c @@ -118,7 +118,7 @@ static void check_global_data_param(char const *exception_name, char const *msg) static inline value caml_get_failwith_tag (char const *msg) { check_global_data_param("Failure", msg); - return Field_imm(caml_read_root(caml_global_data), FAILURE_EXN); + return Field(caml_read_root(caml_global_data), FAILURE_EXN); } CAMLexport void caml_failwith (char const *msg) @@ -137,7 +137,7 @@ CAMLexport void caml_failwith_value (value msg) static inline value caml_get_invalid_argument_tag (char const *msg) { check_global_data_param("Invalid_argument", msg); - return Field_imm(caml_read_root(caml_global_data), INVALID_EXN); + return Field(caml_read_root(caml_global_data), INVALID_EXN); } CAMLexport void caml_invalid_argument (char const *msg) @@ -161,56 +161,56 @@ CAMLexport void caml_array_bound_error(void) CAMLexport void caml_raise_out_of_memory(void) { check_global_data("Out_of_memory"); - caml_raise_constant(Field_imm(caml_read_root(caml_global_data), + caml_raise_constant(Field(caml_read_root(caml_global_data), OUT_OF_MEMORY_EXN)); } CAMLexport void caml_raise_stack_overflow(void) { check_global_data("Stack_overflow"); - caml_raise_constant(Field_imm(caml_read_root(caml_global_data), + caml_raise_constant(Field(caml_read_root(caml_global_data), STACK_OVERFLOW_EXN)); } CAMLexport void caml_raise_sys_error(value msg) { check_global_data_param("Sys_error", String_val(msg)); - caml_raise_with_arg(Field_imm(caml_read_root(caml_global_data), + caml_raise_with_arg(Field(caml_read_root(caml_global_data), SYS_ERROR_EXN), msg); } CAMLexport void caml_raise_end_of_file(void) { check_global_data("End_of_file"); - caml_raise_constant(Field_imm(caml_read_root(caml_global_data), + caml_raise_constant(Field(caml_read_root(caml_global_data), END_OF_FILE_EXN)); } CAMLexport void caml_raise_zero_divide(void) { check_global_data("Division_by_zero"); - caml_raise_constant(Field_imm(caml_read_root(caml_global_data), + caml_raise_constant(Field(caml_read_root(caml_global_data), ZERO_DIVIDE_EXN)); } CAMLexport void caml_raise_not_found(void) { check_global_data("Not_found"); - caml_raise_constant(Field_imm(caml_read_root(caml_global_data), + caml_raise_constant(Field(caml_read_root(caml_global_data), NOT_FOUND_EXN)); } CAMLexport void caml_raise_sys_blocked_io(void) { check_global_data("Sys_blocked_io"); - caml_raise_constant(Field_imm(caml_read_root(caml_global_data), + caml_raise_constant(Field(caml_read_root(caml_global_data), SYS_BLOCKED_IO)); } CAMLexport void caml_raise_continuation_already_taken(void) { check_global_data("Continuation_already_taken"); - caml_raise_constant(Field_imm(caml_read_root(caml_global_data), + caml_raise_constant(Field(caml_read_root(caml_global_data), CONTINUATION_ALREADY_TAKEN_EXN)); } @@ -233,7 +233,7 @@ int caml_is_special_exception(value exn) { } f = caml_read_root(caml_global_data); - return exn == Field_imm(f, MATCH_FAILURE_EXN) - || exn == Field_imm(f, ASSERT_FAILURE_EXN) - || exn == Field_imm(f, UNDEFINED_RECURSIVE_MODULE_EXN); + return exn == Field(f, MATCH_FAILURE_EXN) + || exn == Field(f, ASSERT_FAILURE_EXN) + || exn == Field(f, UNDEFINED_RECURSIVE_MODULE_EXN); } |