Changeset View

Standalone View

Show First 20 Lines • Show All 258 Lines • ▼ Show 20 Lines	pascal_type_print_varspec_prefix (struct type type, struct ui_file stream,
}		}

break;		break;

case TYPE_CODE_ARRAY:		case TYPE_CODE_ARRAY:
if (passed_a_ptr)		if (passed_a_ptr)
fprintf_filtered (stream, "(");		fprintf_filtered (stream, "(");
fprintf_filtered (stream, "array ");		fprintf_filtered (stream, "array ");
if (TYPE_LENGTH (type) >= 0 && TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0		if (TYPE_LENGTH (TYPE_TARGET_TYPE (type)) > 0
&& TYPE_ARRAY_UPPER_BOUND_TYPE (type) != BOUND_CANNOT_BE_DETERMINED)		&& TYPE_ARRAY_UPPER_BOUND_TYPE (type) != BOUND_CANNOT_BE_DETERMINED)
fprintf_filtered (stream, "[%d..%d] ",		fprintf_filtered (stream, "[%d..%d] ",
TYPE_ARRAY_LOWER_BOUND_VALUE (type),		TYPE_ARRAY_LOWER_BOUND_VALUE (type),
TYPE_ARRAY_UPPER_BOUND_VALUE (type)		TYPE_ARRAY_UPPER_BOUND_VALUE (type)
);		);
fprintf_filtered (stream, "of ");		fprintf_filtered (stream, "of ");
break;		break;

▲ Show 20 Lines • Show All 542 Lines • Show Last 20 Lines