gdb/gdb/expprint.c

40 print_expression (struct expression *exp, struct ui_file *stream)
43   print_subexp (exp, &pc, stream, PREC_NULL);
52 print_subexp (struct expression *exp, int *pos,
55   exp->language_defn->la_exp_desc->print_subexp (exp, pos, stream, prec);
61 print_subexp_standard (struct expression *exp, int *pos,
77   op_print_tab = exp->language_defn->la_op_print_tab;
79   opcode = exp->elts[pc].opcode;
87       fputs_filtered (type_name_no_tag (exp->elts[pc + 1].type), stream);
89       nargs = longest_to_int (exp->elts[pc + 2].longconst);
91       fputs_filtered (&exp->elts[pc + 3].string, stream);
96       value_print (value_from_longest (exp->elts[pc + 1].type,
97 				       exp->elts[pc + 2].longconst),
103       value_print (value_from_double (exp->elts[pc + 1].type,
104 				      exp->elts[pc + 2].doubleconst),
112 	b = exp->elts[pc + 1].block;
120 	fputs_filtered (SYMBOL_PRINT_NAME (exp->elts[pc + 2].symbol), stream);
127 			longest_to_int (exp->elts[pc + 1].longconst));
132 	int regnum = longest_to_int (exp->elts[pc + 1].longconst);
143 			longest_to_int (exp->elts[pc + 1].longconst)
150 			internalvar_name (exp->elts[pc + 1].internalvar));
155       nargs = longest_to_int (exp->elts[pc + 1].longconst);
156       print_subexp (exp, pos, stream, PREC_SUFFIX);
162 	  print_subexp (exp, pos, stream, PREC_ABOVE_COMMA);
169       nargs = longest_to_int (exp->elts[pc + 1].longconst);
171       fputs_filtered (&exp->elts[pc + 2].string, stream);
175       nargs = longest_to_int (exp->elts[pc + 1].longconst);
180       LA_PRINT_STRING (stream, &exp->elts[pc + 2].string, nargs, 1, 0);
184       nargs = longest_to_int (exp->elts[pc + 1].longconst);
191       nargs = longest_to_int (exp->elts[pc + 1].longconst);
194       LA_PRINT_STRING (stream, &exp->elts[pc + 2].string, nargs, 1, 0);
202 	nargs = longest_to_int (exp->elts[pc + 2].longconst);
204 	print_subexp (exp, pos, stream, PREC_SUFFIX);
205 	if (0 == target_read_string (exp->elts[pc + 1].longconst,
222 		print_subexp (exp, pos, stream, PREC_ABOVE_COMMA);
237       nargs = longest_to_int (exp->elts[pc + 2].longconst);
238       nargs -= longest_to_int (exp->elts[pc + 1].longconst);
241       if (exp->elts[pc + 4].opcode == OP_LONG
242 	  && exp->elts[pc + 5].type == builtin_type_char
243 	  && exp->language_defn->la_language == language_c)
256 	      if (exp->elts[pc].opcode != OP_LONG
257 		  || exp->elts[pc + 1].type != builtin_type_char)
266 		    longest_to_int (exp->elts[pc + 2].longconst);
285 	      print_subexp (exp, pos, stream, PREC_ABOVE_COMMA);
292       tem = longest_to_int (exp->elts[pc + 1].longconst);
296       fputs_filtered (&exp->elts[pc + 2].string, stream);
300       fputs_filtered (&exp->elts[pc + 2].string, stream);
303       print_subexp (exp, pos, stream, PREC_SUFFIX);
313       print_subexp (exp, pos, stream, PREC_HYPER);
315       print_subexp (exp, pos, stream, PREC_HYPER);
317       print_subexp (exp, pos, stream, PREC_HYPER);
324       print_subexp (exp, pos, stream, PREC_SUFFIX);
326       print_subexp (exp, pos, stream, PREC_ABOVE_COMMA);
328       print_subexp (exp, pos, stream, PREC_ABOVE_COMMA);
333       tem = longest_to_int (exp->elts[pc + 1].longconst);
335       print_subexp (exp, pos, stream, PREC_SUFFIX);
337       fputs_filtered (&exp->elts[pc + 2].string, stream);
342       tem = longest_to_int (exp->elts[pc + 1].longconst);
344       print_subexp (exp, pos, stream, PREC_SUFFIX);
346       fputs_filtered (&exp->elts[pc + 2].string, stream);
350       print_subexp (exp, pos, stream, PREC_SUFFIX);
352       print_subexp (exp, pos, stream, PREC_ABOVE_COMMA);
357       print_subexp (exp, pos, stream, PREC_SUFFIX);
362       print_subexp (exp, pos, stream, PREC_SUFFIX);
371       type_print (exp->elts[pc + 1].type, "", stream, 0);
373       print_subexp (exp, pos, stream, PREC_PREFIX);
382       if (TYPE_CODE (exp->elts[pc + 1].type) == TYPE_CODE_FUNC &&
383 	  exp->elts[pc + 3].opcode == OP_LONG)
390 	  val = value_at_lazy (exp->elts[pc + 1].type,
391 			       (CORE_ADDR) exp->elts[pc + 5].longconst,
398 	  type_print (exp->elts[pc + 1].type, "", stream, 0);
400 	  print_subexp (exp, pos, stream, PREC_PREFIX);
407       opcode = exp->elts[pc + 1].opcode;
443       nargs = longest_to_int (exp->elts[pc + 1].longconst);
444       print_subexp (exp, pos, stream, PREC_SUFFIX);
450 	  print_subexp (exp, pos, stream, PREC_ABOVE_COMMA);
458       type_print (exp->elts[pc + 1].type, "", stream, 0);
460       print_subexp (exp, pos, stream, PREC_PREFIX);
495 	  print_subexp (exp, pos, stream, PREC_SUFFIX);
504 	  print_subexp (exp, pos, stream, PREC_PREFIX);
515       print_subexp (exp, pos, stream,
527       print_subexp (exp, pos, stream,
555 static int dump_subexp_body (struct expression *exp, struct ui_file *, int);
560 op_name (struct expression *exp, enum exp_opcode opcode)
562   return exp->language_defn->la_exp_desc->op_name (opcode);
756 dump_raw_expression (struct expression *exp, struct ui_file *stream,
765   gdb_print_host_address (exp, stream);
767 		    exp->language_defn->la_name, exp->nelts,
771   for (elt = 0; elt < exp->nelts; elt++)
774       opcode_name = op_name (exp, exp->elts[elt].opcode);
777       print_longest (stream, 'd', 0, exp->elts[elt].longconst);
780       for (eltscan = (char *) &exp->elts[elt],
797 dump_subexp (struct expression *exp, struct ui_file *stream, int elt)
809   fprintf_filtered (stream, "%-20s  ", op_name (exp, exp->elts[elt].opcode));
811   elt = dump_subexp_body (exp, stream, elt);
823 dump_subexp_body (struct expression *exp, struct ui_file *stream, int elt)
825   return exp->language_defn->la_exp_desc->dump_subexp_body (exp, stream, elt);
831 dump_subexp_body_standard (struct expression *exp,
834   int opcode = exp->elts[elt++].opcode;
841       elt = dump_subexp (exp, stream, elt);
877       elt = dump_subexp (exp, stream, elt);
905       elt = dump_subexp (exp, stream, elt);
909       gdb_print_host_address (exp->elts[elt].type, stream);
911       type_print (exp->elts[elt].type, NULL, stream, 0);
913 			(long) exp->elts[elt + 1].longconst,
914 			(long) exp->elts[elt + 1].longconst);
919       gdb_print_host_address (exp->elts[elt].type, stream);
921       type_print (exp->elts[elt].type, NULL, stream, 0);
923 			(double) exp->elts[elt + 1].doubleconst);
928       gdb_print_host_address (exp->elts[elt].block, stream);
930       gdb_print_host_address (exp->elts[elt + 1].symbol, stream);
932 			DEPRECATED_SYMBOL_NAME (exp->elts[elt + 1].symbol));
937 			(long) exp->elts[elt].longconst);
942 			(long) exp->elts[elt].longconst);
947       gdb_print_host_address (exp->elts[elt].internalvar, stream);
949 			exp->elts[elt].internalvar->name);
956 	nargs = longest_to_int (exp->elts[elt].longconst);
962 	  elt = dump_subexp (exp, stream, elt);
970 	lower = longest_to_int (exp->elts[elt].longconst);
971 	upper = longest_to_int (exp->elts[elt + 1].longconst);
977 	  elt = dump_subexp (exp, stream, elt);
983       gdb_print_host_address (exp->elts[elt].type, stream);
985       type_print (exp->elts[elt].type, NULL, stream, 0);
987       elt = dump_subexp (exp, stream, elt + 2);
991       gdb_print_host_address (exp->elts[elt].type, stream);
993       type_print (exp->elts[elt].type, NULL, stream, 0);
1003 	len = longest_to_int (exp->elts[elt].longconst);
1004 	elem_name = &exp->elts[elt + 1].string;
1007 	elt = dump_subexp (exp, stream, elt + 3 + BYTES_TO_EXP_ELEM (len + 1));
1016 	gdb_print_host_address (exp->elts[elt].type, stream);
1018 	type_print (exp->elts[elt].type, NULL, stream, 0);
1021 	len = longest_to_int (exp->elts[elt + 1].longconst);
1022 	elem_name = &exp->elts[elt + 2].string;
1050 dump_prefix_expression (struct expression *exp, struct ui_file *stream)
1055   gdb_print_host_address (exp, stream);
1057   if (exp->elts[0].opcode != OP_TYPE)
1058     print_expression (exp, stream);
1062 		    exp->language_defn->la_name, exp->nelts,
1066   for (elt = 0; elt < exp->nelts;)
1067     elt = dump_subexp (exp, stream, elt);