index 904a89c4577de0ee9b270281103e3391b0530e0d..ccb1e2444d8915134c8dc408745ffb0c2cc9b10f 100644 (file)
--- a/src/oberon-type-compat.h
+++ b/src/oberon-type-compat.h
bool
oberon_is_integer_type(oberon_type_t * t);
+bool
+oberon_is_system_byte_type(oberon_type_t * t);
+
bool
oberon_is_number_type(oberon_type_t * t);
bool
oberon_is_type_expr(oberon_expr_t * e);
+bool
+oberon_is_string_of_one(oberon_expr_t * e);
+
bool
bool
oberon_is_compatible_arrays(oberon_object_t * f, oberon_expr_t * a);
+bool
+oberon_is_comatible_bin_expr(int token, oberon_expr_t * a, oberon_expr_t * b);
+
bool
oberon_is_compatible_bin_expr_types(int token, oberon_type_t * a, oberon_type_t * b);
oberon_check_type_expr(oberon_context_t * ctx, oberon_expr_t * e);
void
-oberon_check_compatible_bin_expr_types(oberon_context_t * ctx, int token, oberon_type_t * a, oberon_type_t * b);
+oberon_check_compatible_bin_expr(oberon_context_t * ctx, int token, oberon_expr_t * a, oberon_expr_t * b);
void
oberon_check_compatible_arrays(oberon_context_t * ctx, oberon_object_t * f, oberon_expr_t * a);