summaryrefslogtreecommitdiff
path: root/runtime/fail_byt.c
diff options
context:
space:
mode:
authorSudha Parimala <sudharg247@gmail.com>2021-01-18 16:45:32 +0530
committerSudha Parimala <sudharg247@gmail.com>2021-01-18 16:45:32 +0530
commit6bfe45e8de959ce88882c7cbb68bfe83d9962988 (patch)
tree083c2bc3abcaa86b4b8a052e34654a44886b45be /runtime/fail_byt.c
parent9ac584f00cd50fb0a7ccfecfff35d67b98ca3552 (diff)
downloadocaml-6bfe45e8de959ce88882c7cbb68bfe83d9962988.tar.gz
replace Field_imm with Field
Diffstat (limited to 'runtime/fail_byt.c')
-rw-r--r--runtime/fail_byt.c26
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);
}