gdb/gdb/f-valprint.c

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));