gdb/gdb/p-typeprint.c

51 pascal_print_type (struct type *type, char *varstring, struct ui_file *stream,
65       pascal_type_print_varspec_prefix (type, stream, show, 0);
68   fputs_filtered (varstring, stream);
74       fputs_filtered (" : ", stream);
80       pascal_type_print_varspec_prefix (type, stream, show, 0);
83   pascal_type_print_base (type, stream, show, level);
88   pascal_type_print_varspec_suffix (type, stream, show, 0, demangled_args);
117 pascal_type_print_derivation_info (struct ui_file *stream, struct type *type)
124       fputs_filtered (i == 0 ? ": " : ", ", stream);
125       fprintf_filtered (stream, "%s%s ",
129       fprintf_filtered (stream, "%s", name ? name : "(null)");
133       fputs_filtered (" ", stream);
141 			       struct ui_file *stream)
151   fputs_filtered (methodname, stream);
159       fputs_filtered (" (", stream);
171 	  fputs_filtered (physname, stream);
176 	      fputs_filtered (", ", stream);
179       fputs_filtered (")", stream);
192 pascal_type_print_varspec_prefix (struct type *type, struct ui_file *stream,
207       fprintf_filtered (stream, "^");
208       pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1);
213 	fprintf_filtered (stream, "(");
214       pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);
215       fprintf_filtered (stream, " ");
218 	fputs_filtered (name, stream);
220 	pascal_type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0, passed_a_ptr);
221       fprintf_filtered (stream, "::");
226 	fprintf_filtered (stream, "(");
229 	  fprintf_filtered (stream, "function  ");
233 	  fprintf_filtered (stream, "procedure ");
238 	  fprintf_filtered (stream, " ");
239 	  pascal_type_print_base (TYPE_DOMAIN_TYPE (type), stream, 0, passed_a_ptr);
240 	  fprintf_filtered (stream, "::");
245       pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 1);
246       fprintf_filtered (stream, "&");
251 	fprintf_filtered (stream, "(");
255 	  fprintf_filtered (stream, "function  ");
259 	  fprintf_filtered (stream, "procedure ");
266 	fprintf_filtered (stream, "(");
267       fprintf_filtered (stream, "array ");
270 	fprintf_filtered (stream, "[%d..%d] ",
274       fprintf_filtered (stream, "of ");
304 pascal_print_func_args (struct type *type, struct ui_file *stream)
309       fprintf_filtered (stream, "(");
315 	  fputs_filtered (", ", stream);
321          fprintf_filtered (stream, "var ");
324 			 ,stream, -1, 0);
328       fprintf_filtered (stream, ")");
337 pascal_type_print_varspec_suffix (struct type *type, struct ui_file *stream,
353 	fprintf_filtered (stream, ")");
358 	fprintf_filtered (stream, ")");
359       pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0);
364 	fprintf_filtered (stream, ")");
367 				     stream);
370 	  fprintf_filtered (stream, " : ");
371 	  pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);
372 	  pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, 0);
373 	  pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0,
380       pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 1, 0);
385 	fprintf_filtered (stream, ")");
387 	pascal_print_func_args (type, stream);
390 	  fprintf_filtered (stream, " : ");
391 	  pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);
392 	  pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, 0);
393 	  pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0,
441 pascal_type_print_base (struct type *type, struct ui_file *stream, int show,
457       fputs_filtered ("<type unknown>", stream);
465 		      stream);
474       fputs_filtered (TYPE_NAME (type), stream);
488       pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
492       /* pascal_type_print_varspec_prefix (TYPE_TARGET_TYPE (type), stream, 0, 0);
493          pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
494          pascal_type_print_varspec_suffix (TYPE_TARGET_TYPE (type), stream, 0, 0, 0); */
495       pascal_print_type (TYPE_TARGET_TYPE (type), NULL, stream, 0, 0);
501          pascal_type_print_base (TYPE_TARGET_TYPE (type), stream, show, level);
507 	  fputs_filtered (TYPE_TAG_NAME (type), stream);
508 	  fputs_filtered (" = ", stream);
512 	  fprintf_filtered (stream, "class ");
516 	  fprintf_filtered (stream, "record ");
523 	  fputs_filtered (TYPE_TAG_NAME (type), stream);
524 	  fputs_filtered (" = ", stream);
526       fprintf_filtered (stream, "case <?> of ");
534 	    fprintf_filtered (stream, "{...}");
538 	  pascal_type_print_derivation_info (stream, type);
540 	  fprintf_filtered (stream, "\n");
544 		fprintfi_filtered (level + 4, stream, "<incomplete type>\n");
546 		fprintfi_filtered (level + 4, stream, "<no data fields>\n");
577 			  fprintfi_filtered (level + 2, stream,
586 			  fprintfi_filtered (level + 2, stream, "private\n");
594 			  fprintfi_filtered (level + 2, stream, "public\n");
599 	      print_spaces_filtered (level + 4, stream);
602 		  fprintf_filtered (stream, "static ");
606 				 stream, show - 1, level + 4);
615 		  fprintf_filtered (stream, " : %d",
618 	      fprintf_filtered (stream, ";\n");
624 	    fprintf_filtered (stream, "\n");
650 			  fprintfi_filtered (level + 2, stream,
659 			  fprintfi_filtered (level + 2, stream, "private\n");
667 			  fprintfi_filtered (level + 2, stream, "public\n");
671 		  print_spaces_filtered (level + 4, stream);
673 		    fprintf_filtered (stream, "static ");
677 		      fprintf_filtered (stream, "<undefined type> %s;\n",
684 		      fprintf_filtered (stream, "constructor ");
688 		      fprintf_filtered (stream, "destructor  ");
693 		      fprintf_filtered (stream, "function  ");
697 		      fprintf_filtered (stream, "procedure ");
703 						 stream);
708 		      fputs_filtered (" : ", stream);
710 				  "", stream, -1);
713 		    fprintf_filtered (stream, "; virtual");
715 		  fprintf_filtered (stream, ";\n");
718 	  fprintfi_filtered (level, stream, "end");
725 	  fputs_filtered (TYPE_TAG_NAME (type), stream);
727 	    fputs_filtered (" ", stream);
731       fprintf_filtered (stream, " = ");
737 	    fprintf_filtered (stream, "(...)");
741 	  fprintf_filtered (stream, "(");
748 		fprintf_filtered (stream, ", ");
750 	      fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
753 		  fprintf_filtered (stream, " := %d", TYPE_FIELD_BITPOS (type, i));
758 	  fprintf_filtered (stream, ")");
763       fprintf_filtered (stream, "void");
767       fprintf_filtered (stream, "record <unknown>");
771       fprintf_filtered (stream, "<unknown type>");
780 	print_type_scalar (target, TYPE_LOW_BOUND (type), stream);
781 	fputs_filtered ("..", stream);
782 	print_type_scalar (target, TYPE_HIGH_BOUND (type), stream);
787       fputs_filtered ("set of ", stream);
788       pascal_print_type (TYPE_INDEX_TYPE (type), "", stream,
793       fputs_filtered ("BitString", stream);
797       fputs_filtered ("String", stream);
807 	  fputs_filtered (TYPE_NAME (type), stream);
813 	  fprintf_filtered (stream, "<invalid unnamed pascal type code %d>",