equal
deleted
inserted
replaced
189 if (is_real_type(first_type) && is_literal_real_type(second_type)) {return first_type;} |
189 if (is_real_type(first_type) && is_literal_real_type(second_type)) {return first_type;} |
190 if (is_literal_real_type(first_type) && is_real_type(second_type)) {return second_type;} |
190 if (is_literal_real_type(first_type) && is_real_type(second_type)) {return second_type;} |
191 return NULL; |
191 return NULL; |
192 } |
192 } |
193 |
193 |
|
194 symbol_c *search_expression_type_c::default_literal_type(symbol_c* symbol) { |
|
195 if (is_literal_integer_type(symbol)) { |
|
196 return (symbol_c *)&search_constant_type_c::lint_type_name; |
|
197 } |
|
198 else if (is_literal_real_type(symbol)) { |
|
199 return (symbol_c *)&search_constant_type_c::lreal_type_name; |
|
200 } |
|
201 return symbol; |
|
202 } |
|
203 |
194 |
204 |
195 integer_c search_expression_type_c::integer("1"); // what default value should we use here ??? |
205 integer_c search_expression_type_c::integer("1"); // what default value should we use here ??? |
196 #include "search_type_code.c" |
206 #include "search_type_code.c" |
197 |
207 |
198 /*static bool_type_name_c bool_type_name;*/ |
208 /*static bool_type_name_c bool_type_name;*/ |