diff -r 43d73e28eca8 -r c8e6cf57324a stage3/datatype_functions.hh
--- a/stage3/datatype_functions.hh	Fri Feb 03 14:43:14 2012 +0000
+++ b/stage3/datatype_functions.hh	Fri Feb 03 18:16:20 2012 +0000
@@ -46,6 +46,11 @@
 extern const struct widen_entry widen_MUL_table[];
 extern const struct widen_entry widen_DIV_table[];
 
+/* Search for a datatype inside a candidate_datatypes list.
+ * Returns: position of datatype in the list, or -1 if not found.
+ */
+int search_in_datatype_list(symbol_c *datatype, std::vector <symbol_c *> candidate_datatypes);
+
 /* A helper function... */
 bool is_ANY_ELEMENTARY_type         (symbol_c *type_symbol);
 bool is_ANY_SAFEELEMENTARY_type     (symbol_c *type_symbol);
@@ -83,6 +88,7 @@
 bool is_SAFEBOOL_type               (symbol_c *type_symbol);
 bool is_ANY_BOOL_compatible         (symbol_c *type_symbol);
 
+#if 0
 bool is_nonneg_literal_integer_type (symbol_c *type_symbol);
 bool is_literal_integer_type        (symbol_c *type_symbol);
 bool is_literal_real_type           (symbol_c *type_symbol);
@@ -102,9 +108,11 @@
 symbol_c *common_type(symbol_c *first_type, symbol_c *second_type);
 bool is_valid_assignment(symbol_c *var_type, symbol_c *value_type);
 bool is_compatible_type(symbol_c *first_type, symbol_c *second_type);
+#endif
+
 bool is_type_equal(symbol_c *first_type, symbol_c *second_type);
 
-typedef bool (*helper_function_t) (symbol_c *type_symbol);  /* a pointer to a function! */
+// typedef bool (*helper_function_t) (symbol_c *type_symbol);  /* a pointer to a function! */