Добавлены строки в отладочную информацию класса (быстрохак)

[dsw-obn.git] / src / oberon-type-compat.h

diff --git a/src/oberon-type-compat.h b/src/oberon-type-compat.h
index b09dccc7c2155e5827c7bec573548568efbb10bf..ccb1e2444d8915134c8dc408745ffb0c2cc9b10f 100644 (file)
--- a/src/oberon-type-compat.h
+++ b/src/oberon-type-compat.h
@@ -10,6 +10,9 @@ oberon_is_real_type(oberon_type_t * t);
 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);
 
@@ -40,6 +43,12 @@ oberon_is_boolean_type(oberon_type_t * t);
 bool
 oberon_is_array_of_char_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
@@ -66,6 +75,9 @@ oberon_is_assignment_compatible_expressions(oberon_expr_t * e, oberon_type_t * T
 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);
 
@@ -75,7 +87,7 @@ void
 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);