X-Git-Url: http://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=src%2Foberon-type-compat.h;h=ccb1e2444d8915134c8dc408745ffb0c2cc9b10f;hp=92b67503c78ffe37cfffa3b85c0adf543b648b18;hb=0c29ba1953327a9b476a825d8b9b9d185d544972;hpb=1233fb1d5d8f67a8f5e970386c1c4cbb6691ec04

diff --git a/src/oberon-type-compat.h b/src/oberon-type-compat.h
index 92b6750..ccb1e24 100644
--- a/src/oberon-type-compat.h
+++ b/src/oberon-type-compat.h
@@ -46,6 +46,9 @@ 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
@@ -72,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);
 
@@ -81,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);