Lines Matching defs:type
45 static void f77_print_array (struct type *, char *, CORE_ADDR,
48 static void f77_print_array_1 (int, int, struct type *, char *,
52 static void f77_create_arrayprint_offset_tbl (struct type *,
54 static void f77_get_dynamic_length_of_aggregate (struct type *);
71 f77_get_dynamic_lowerbound (struct type *type, int *lower_bound)
76 switch (TYPE_ARRAY_LOWER_BOUND_TYPE (type))
84 TYPE_ARRAY_LOWER_BOUND_VALUE (type),
95 *lower_bound = TYPE_ARRAY_LOWER_BOUND_VALUE (type);
108 TYPE_ARRAY_LOWER_BOUND_VALUE (type),
122 error ("??? unhandled dynamic array bound type ???");
129 f77_get_dynamic_upperbound (struct type *type, int *upper_bound)
134 switch (TYPE_ARRAY_UPPER_BOUND_TYPE (type))
142 TYPE_ARRAY_UPPER_BOUND_VALUE (type),
153 *upper_bound = TYPE_ARRAY_UPPER_BOUND_VALUE (type);
162 f77_get_dynamic_lowerbound (type, upper_bound);
171 TYPE_ARRAY_UPPER_BOUND_VALUE (type),
185 error ("??? unhandled dynamic array bound type ???");
194 f77_get_dynamic_length_of_aggregate (struct type *type)
209 if (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_ARRAY
210 || TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_STRING)
211 f77_get_dynamic_length_of_aggregate (TYPE_TARGET_TYPE (type));
214 retcode = f77_get_dynamic_lowerbound (type, &lower_bound);
218 retcode = f77_get_dynamic_upperbound (type, &upper_bound);
224 TYPE_LENGTH (type) =
225 (upper_bound - lower_bound + 1) * TYPE_LENGTH (check_typedef (TYPE_TARGET_TYPE (type)));
229 type "type". */
232 f77_create_arrayprint_offset_tbl (struct type *type, struct ui_file *stream)
234 struct type *tmp_type;
239 tmp_type = type;
281 f77_print_array_1 (int nss, int ndimensions, struct type *type, char *valaddr,
293 f77_print_array_1 (nss + 1, ndimensions, TYPE_TARGET_TYPE (type),
307 val_print (TYPE_TARGET_TYPE (type),
326 f77_print_array (struct type *type, char *valaddr, CORE_ADDR address,
333 ndimensions = calc_f77_array_dims (type);
343 f77_create_arrayprint_offset_tbl (type, stream);
345 f77_print_array_1 (1, ndimensions, type, valaddr, address, stream, format,
351 /* Print data of type TYPE located at VALADDR (within GDB), which came from
365 f_val_print (struct type *type, char *valaddr, int embedded_offset,
370 struct type *elttype;
374 CHECK_TYPEDEF (type);
375 switch (TYPE_CODE (type))
378 f77_get_dynamic_length_of_aggregate (type);
379 LA_PRINT_STRING (stream, valaddr, TYPE_LENGTH (type), 1, 0);
384 f77_print_array (type, valaddr, address, stream, format,
392 print_scalar_formatted (valaddr, type, format, 0, stream);
397 addr = unpack_pointer (type, valaddr);
398 elttype = check_typedef (TYPE_TARGET_TYPE (type));
427 elttype = check_typedef (TYPE_TARGET_TYPE (type));
431 = extract_typed_address (valaddr + embedded_offset, type);
444 (TYPE_TARGET_TYPE (type),
459 print_scalar_formatted (valaddr, type, format, 0, stream);
465 type_print (type, "", stream, -1);
474 print_scalar_formatted (valaddr, type, format, 0, stream);
477 val_print_type_code_int (type, valaddr, stream);
478 /* C and C++ has no single byte int type, char is used instead.
482 if (TYPE_LENGTH (type) == 1)
485 LA_PRINT_CHAR ((unsigned char) unpack_long (type, valaddr),
493 print_scalar_formatted (valaddr, type, format, 0, stream);
495 print_floating (valaddr, type, stream);
503 fprintf_filtered (stream, "<error type>");
508 fprintf_filtered (stream, "<range type>");
514 print_scalar_formatted (valaddr, type, format, 0, stream);
518 switch (TYPE_LENGTH (type))
534 TYPE_LENGTH (type));
543 /* Not a legitimate logical type, print as an integer. */
545 /* Bash the type code temporarily. */
546 TYPE_CODE (type) = TYPE_CODE_INT;
547 f_val_print (type, valaddr, 0, address, stream, format,
549 /* Restore the type code so later uses work as intended. */
550 TYPE_CODE (type) = TYPE_CODE_BOOL;
556 switch (TYPE_LENGTH (type))
559 type = builtin_type_f_real;
562 type = builtin_type_f_real_s8;
565 type = builtin_type_f_real_s16;
568 error ("Cannot print out complex*%d variables", TYPE_LENGTH (type));
571 print_floating (valaddr, type, stream);
573 print_floating (valaddr + TYPE_LENGTH (type), type, stream);
580 and no complete type for struct foo in that file. */
581 fprintf_filtered (stream, "<incomplete type>");
585 error ("Invalid F77 type code %d in symbol table.", TYPE_CODE (type));