Put_character @ -17633,8 17024,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do if a_target_type / a_real_type then - Internal error: this built-in feature is only @ -17643,19 17032,11 @ error_port_giaaa_error else l_target : call_rst - l_target_type_set : dynamic_type_set (l_target).
Put_new_line elseif a_target_expanded then print_indentation - l_target_static_type : l_target_type_atic_type - if l_target_static_expanded then - - Current value.
Wipe_out else - Internal error: unknown built-in feature.Put_character @ -16455,8 16098,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do if a_target_type / an_integer_type then - Internal error: this built-in feature is only @ -16465,17 16106,9 @ error_port_giaaa_error else l_target : call_rst - l_target_type_set : dynamic_type_set (l_target).Log Message:, refactoring, modified Paths: modified: - 14:10:41 UTC (rev 6147) 09:35:19 UTC (rev 6148) @ -2522,14 2522,11 @ a_feature_is_builtin: a_builtin valid_feature: current_atic_feature a_feature a_character_type_not_void: a_character_type / Void - local - l_builtin_class: integer do inspect a_iltin_code builtin_capacity when builtin_character_set_item then fill_call_formal_arguments (a_feature) - l_builtin_class.Put_character @ -14995,14 14885,7 @ current_file.Put_character end @ -17710,8 17091,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type l_argument: ET_expression l_argument_type_set: ET_dynamic_type_SET do @ -17727,19 17106,11 @ else l_target : call_rst l_argument : call_em (2) - l_target_type_set : dynamic_type_set (l_target) l_argument_type_set : dynamic_type_set (l_argument) print_type_cast.Put_character @ -16830,14 16393,12 @ end end - (a_feature: ET_dynamic_feature; a_target_type: ET_dynamic_type; a_check_void_target: boolean; an_integer_type: ET_dynamic_type; a_builtin_class_code: il bonus dei 500 euro vale anche per i 99 integer) is (a_feature: ET_dynamic_feature; a_target_type: ET_dynamic_type; a_check_void_target: boolean; an_integer_type: ET_dynamic_type) is - Print to current_file' a call (static file) to a_feature' - corresponding to built-in feature 'integer_t_item'.There is no assumption about static type (i.e.Put_character end @ -17263,8 16734,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do if a_target_type / a_real_type then - Internal error: this built-in feature is only @ -17273,7 16742,6 @ error_port_giaaa_error else l_target : call_rst - l_target_type_set : dynamic_type_set.Put_character end end @ -15839,8 15612,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do if a_target_type / an_integer_type then - Internal error: this built-in feature is only @ -15849,17 15620,9 @ error_port_giaaa_error else l_target : call_rst - l_target_type_set.Put_character end end @ -17022,8 16553,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do if a_target_type / an_integer_type then - Internal error: this built-in feature is only @ -17032,17 16561,9 @ error_port_giaaa_error else l_target : call_rst - l_target_type_set.Print_attribute_access (a_feature, l_target, a_target_type, a_check_void_target) @ -15519,8 15362,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do if a_target_type / a_character_type then - Internal error: this built-in feature is only @ -15529,29 15370,19 @ error_port_giaaa_error else l_target : call_rst.a_builtin_class_code' is the built-in code of the - - base class of a_character_type'.Put_character end end @ -15485,20 15338,10 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do l_target : call_rst if a_target_type a_character_type then - l_target_type_set : dynamic_type_set (l_target) - l_target_static_type : l_target_type_atic_type - if l_target_static_expanded then - - Current value.a_builtin_class_code' is the built-in code of the - - base class of an_integer_type'.
Put_character @ -17865,7 17214,7 @ current_file.
Put_character @ -17811,14 17172,12 @ end end - (a_feature: ET_dynamic_feature; a_target_type: ET_dynamic_type; a_check_void_target: boolean; a_real_type: ET_dynamic_type; a_builtin_class_code: integer) is (a_feature: ET_dynamic_feature; a_target_type: ET_dynamic_type; a_check_void_target: boolean; a_real_type: ET_dynamic_type) is - Print to current_file' a call (static binding) to a_feature' - corresponding to built-in feature 'real_xx_t_item'.
Put_new_line else - l_builtin_item_code : builtin_feature (a_builtin_class_code, builtin_real_item) l_builtin_item_code : builtin_feature (a_iltin_code / builtin_capacity, builtin_real_item) l_queries : a_target_type.
Put_character end end @ -15800,8 15583,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do if a_target_type / an_integer_type then - Internal error: this built-in feature is only @ -15810,17 15591,9 @ error_port_giaaa_error else l_target : call_rst - l_target_type_set.
Put_character @ -16087,8 15800,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do if a_target_type / an_integer_type then - Internal error: this built-in feature is only @ -16097,19 15808,11 @ error_port_giaaa_error else l_target : call_rst - l_target_type_set : dynamic_type_set (l_target).a_target_type' is the dynamic type of the target.Put_character @ -16343,8 16006,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type l_argument: ET_expression l_argument_type_set: ET_dynamic_type_SET do @ -16360,19 16021,11 @ else l_target : call_rst l_argument : call_em (2) - l_target_type_set : dynamic_type_set (l_target) l_argument_type_set : dynamic_type_set (l_argument) print_type_cast (an_integer_type.Queries nb : a_target_tribute_count from i : 1 until i nb loop @ -16930,8 16481,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type l_argument: ET_expression l_argument_type_set: ET_dynamic_type_SET do @ -16947,19 16496,11 @ else l_target : call_rst l_argument : call_em (2).Put_character print_type_cast (current_teger_type, current_file) @ -14902,20 14805,10 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do l_target : call_rst if a_target_type current_system.Pointer_type then - todo: it should be able to compute the 'hash_code' in descendants of pointer.Put_character end @ -16129,8 15832,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type l_argument: ET_expression l_argument_type_set: ET_dynamic_type_SET do @ -16146,19 15847,11 @ else l_target : call_rst l_argument : call_em (2) - l_target_type_set : dynamic_type_set (l_target) l_argument_type_set : dynamic_type_set (l_argument) print_type_cast.Put_character end end @ -17100,8 16611,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do if a_target_type / an_integer_type then - Internal error: this built-in feature is only @ -17110,17 16619,9 @ error_port_giaaa_error else l_target : call_rst - l_target_type_set.Put_character @ -16581,8 16194,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type l_argument: ET_expression l_argument_type_set: ET_dynamic_type_SET do @ -16598,19 16209,11 @ else l_target : call_rst l_argument : call_em (2) - l_target_type_set : dynamic_type_set (l_target) l_argument_type_set : dynamic_type_set (l_argument) print_type_cast (an_integer_type.Put_character end end @ -15761,8 15554,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do if a_target_type / an_integer_type then - Internal error: this built-in feature is only @ -15771,17 15562,9 @ error_port_giaaa_error else l_target : call_rst - l_target_type_set.Put_new_line else - l_builtin_item_code : builtin_feature (a_builtin_class_code, builtin_integer_item) l_builtin_item_code : builtin_feature (a_iltin_code / builtin_capacity, builtin_integer_item) l_queries : a_target_type.Put_character @ -14183,8 14166,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type l_argument: ET_expression l_argument_type_set: ET_dynamic_type_SET do @ -14203,21 14184,13 @ else l_target : call_rst l_argument : call_em (2) - l_target_type_set : dynamic_type_set (l_target) l_argument_type_set : dynamic_type_set (l_argument) print_type_cast (current_olean_type.Put_character @ -16396,8 16049,6 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type l_argument: ET_expression l_argument_type_set: ET_dynamic_type_SET do @ -16413,7 16064,6 @ else l_target : call_rst l_argument : call_em (2) - l_target_type_set : dynamic_type_set (l_target) l_argument_type_set : dynamic_type_set (l_argument) print_type_cast (current_uble_type.Require @ -13455,14 13473,7 @ print_type_cast (current_olean_type, current_file) current_file.

Put_character end end @ -16494,20 16127,10 @ call_operands_not_empty: not call_empty local l_target: ET_expression - l_target_type_set: ET_dynamic_type_SET - l_target_static_type: ET_dynamic_type do l_target : call_rst if a_target_type an_integer_type then - l_target_type_set : dynamic_type_set (l_target) - l_target_static_type : l_target_type_atic_type - if l_target_static_expanded then - - Current value.