1 /* Evaluate expressions for GDB.
3 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995,
4 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2005, 2006, 2007, 2008
5 Free Software Foundation, Inc.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 #include "gdb_string.h"
27 #include "expression.h"
30 #include "language.h" /* For CAST_IS_CONVERSION */
31 #include "f-lang.h" /* for array bound stuff */
34 #include "objc-lang.h"
36 #include "parser-defs.h"
37 #include "cp-support.h"
39 #include "exceptions.h"
41 #include "user-regs.h"
43 #include "gdb_assert.h"
45 /* This is defined in valops.c */
46 extern int overload_resolution
;
48 /* JYG: lookup rtti type of STRUCTOP_PTR when this is set to continue
49 on with successful lookup for member/method of the rtti type. */
50 extern int objectprint
;
52 /* Prototypes for local functions. */
54 static struct value
*evaluate_subexp_for_sizeof (struct expression
*, int *);
56 static struct value
*evaluate_subexp_for_address (struct expression
*,
59 static struct value
*evaluate_subexp (struct type
*, struct expression
*,
62 static char *get_label (struct expression
*, int *);
64 static struct value
*evaluate_struct_tuple (struct value
*,
65 struct expression
*, int *,
68 static LONGEST
init_array_element (struct value
*, struct value
*,
69 struct expression
*, int *, enum noside
,
73 evaluate_subexp (struct type
*expect_type
, struct expression
*exp
,
74 int *pos
, enum noside noside
)
76 return (*exp
->language_defn
->la_exp_desc
->evaluate_exp
)
77 (expect_type
, exp
, pos
, noside
);
80 /* Parse the string EXP as a C expression, evaluate it,
81 and return the result as a number. */
84 parse_and_eval_address (char *exp
)
86 struct expression
*expr
= parse_expression (exp
);
88 struct cleanup
*old_chain
=
89 make_cleanup (free_current_contents
, &expr
);
91 addr
= value_as_address (evaluate_expression (expr
));
92 do_cleanups (old_chain
);
96 /* Like parse_and_eval_address but takes a pointer to a char * variable
97 and advanced that variable across the characters parsed. */
100 parse_and_eval_address_1 (char **expptr
)
102 struct expression
*expr
= parse_exp_1 (expptr
, (struct block
*) 0, 0);
104 struct cleanup
*old_chain
=
105 make_cleanup (free_current_contents
, &expr
);
107 addr
= value_as_address (evaluate_expression (expr
));
108 do_cleanups (old_chain
);
112 /* Like parse_and_eval_address, but treats the value of the expression
113 as an integer, not an address, returns a LONGEST, not a CORE_ADDR */
115 parse_and_eval_long (char *exp
)
117 struct expression
*expr
= parse_expression (exp
);
119 struct cleanup
*old_chain
=
120 make_cleanup (free_current_contents
, &expr
);
122 retval
= value_as_long (evaluate_expression (expr
));
123 do_cleanups (old_chain
);
128 parse_and_eval (char *exp
)
130 struct expression
*expr
= parse_expression (exp
);
132 struct cleanup
*old_chain
=
133 make_cleanup (free_current_contents
, &expr
);
135 val
= evaluate_expression (expr
);
136 do_cleanups (old_chain
);
140 /* Parse up to a comma (or to a closeparen)
141 in the string EXPP as an expression, evaluate it, and return the value.
142 EXPP is advanced to point to the comma. */
145 parse_to_comma_and_eval (char **expp
)
147 struct expression
*expr
= parse_exp_1 (expp
, (struct block
*) 0, 1);
149 struct cleanup
*old_chain
=
150 make_cleanup (free_current_contents
, &expr
);
152 val
= evaluate_expression (expr
);
153 do_cleanups (old_chain
);
157 /* Evaluate an expression in internal prefix form
158 such as is constructed by parse.y.
160 See expression.h for info on the format of an expression. */
163 evaluate_expression (struct expression
*exp
)
166 return evaluate_subexp (NULL_TYPE
, exp
, &pc
, EVAL_NORMAL
);
169 /* Evaluate an expression, avoiding all memory references
170 and getting a value whose type alone is correct. */
173 evaluate_type (struct expression
*exp
)
176 return evaluate_subexp (NULL_TYPE
, exp
, &pc
, EVAL_AVOID_SIDE_EFFECTS
);
179 /* Evaluate a subexpression, avoiding all memory references and
180 getting a value whose type alone is correct. */
183 evaluate_subexpression_type (struct expression
*exp
, int subexp
)
185 return evaluate_subexp (NULL_TYPE
, exp
, &subexp
, EVAL_AVOID_SIDE_EFFECTS
);
188 /* Extract a field operation from an expression. If the subexpression
189 of EXP starting at *SUBEXP is not a structure dereference
190 operation, return NULL. Otherwise, return the name of the
191 dereferenced field, and advance *SUBEXP to point to the
192 subexpression of the left-hand-side of the dereference. This is
193 used when completing field names. */
196 extract_field_op (struct expression
*exp
, int *subexp
)
200 if (exp
->elts
[*subexp
].opcode
!= STRUCTOP_STRUCT
201 && exp
->elts
[*subexp
].opcode
!= STRUCTOP_PTR
)
203 tem
= longest_to_int (exp
->elts
[*subexp
+ 1].longconst
);
204 result
= &exp
->elts
[*subexp
+ 2].string
;
205 (*subexp
) += 1 + 3 + BYTES_TO_EXP_ELEM (tem
+ 1);
209 /* If the next expression is an OP_LABELED, skips past it,
210 returning the label. Otherwise, does nothing and returns NULL. */
213 get_label (struct expression
*exp
, int *pos
)
215 if (exp
->elts
[*pos
].opcode
== OP_LABELED
)
218 char *name
= &exp
->elts
[pc
+ 2].string
;
219 int tem
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
220 (*pos
) += 3 + BYTES_TO_EXP_ELEM (tem
+ 1);
227 /* This function evaluates tuples (in (the deleted) Chill) or
228 brace-initializers (in C/C++) for structure types. */
230 static struct value
*
231 evaluate_struct_tuple (struct value
*struct_val
,
232 struct expression
*exp
,
233 int *pos
, enum noside noside
, int nargs
)
235 struct type
*struct_type
= check_typedef (value_type (struct_val
));
236 struct type
*substruct_type
= struct_type
;
237 struct type
*field_type
;
244 struct value
*val
= NULL
;
249 /* Skip past the labels, and count them. */
250 while (get_label (exp
, pos
) != NULL
)
255 char *label
= get_label (exp
, &pc
);
258 for (fieldno
= 0; fieldno
< TYPE_NFIELDS (struct_type
);
261 char *field_name
= TYPE_FIELD_NAME (struct_type
, fieldno
);
262 if (field_name
!= NULL
&& strcmp (field_name
, label
) == 0)
265 subfieldno
= fieldno
;
266 substruct_type
= struct_type
;
270 for (fieldno
= 0; fieldno
< TYPE_NFIELDS (struct_type
);
273 char *field_name
= TYPE_FIELD_NAME (struct_type
, fieldno
);
274 field_type
= TYPE_FIELD_TYPE (struct_type
, fieldno
);
275 if ((field_name
== 0 || *field_name
== '\0')
276 && TYPE_CODE (field_type
) == TYPE_CODE_UNION
)
279 for (; variantno
< TYPE_NFIELDS (field_type
);
283 = TYPE_FIELD_TYPE (field_type
, variantno
);
284 if (TYPE_CODE (substruct_type
) == TYPE_CODE_STRUCT
)
287 subfieldno
< TYPE_NFIELDS (substruct_type
);
290 if (strcmp(TYPE_FIELD_NAME (substruct_type
,
301 error (_("there is no field named %s"), label
);
307 /* Unlabelled tuple element - go to next field. */
311 if (subfieldno
>= TYPE_NFIELDS (substruct_type
))
314 substruct_type
= struct_type
;
320 /* Skip static fields. */
321 while (fieldno
< TYPE_NFIELDS (struct_type
)
322 && TYPE_FIELD_STATIC_KIND (struct_type
, fieldno
))
324 subfieldno
= fieldno
;
325 if (fieldno
>= TYPE_NFIELDS (struct_type
))
326 error (_("too many initializers"));
327 field_type
= TYPE_FIELD_TYPE (struct_type
, fieldno
);
328 if (TYPE_CODE (field_type
) == TYPE_CODE_UNION
329 && TYPE_FIELD_NAME (struct_type
, fieldno
)[0] == '0')
330 error (_("don't know which variant you want to set"));
334 /* Here, struct_type is the type of the inner struct,
335 while substruct_type is the type of the inner struct.
336 These are the same for normal structures, but a variant struct
337 contains anonymous union fields that contain substruct fields.
338 The value fieldno is the index of the top-level (normal or
339 anonymous union) field in struct_field, while the value
340 subfieldno is the index of the actual real (named inner) field
341 in substruct_type. */
343 field_type
= TYPE_FIELD_TYPE (substruct_type
, subfieldno
);
345 val
= evaluate_subexp (field_type
, exp
, pos
, noside
);
347 /* Now actually set the field in struct_val. */
349 /* Assign val to field fieldno. */
350 if (value_type (val
) != field_type
)
351 val
= value_cast (field_type
, val
);
353 bitsize
= TYPE_FIELD_BITSIZE (substruct_type
, subfieldno
);
354 bitpos
= TYPE_FIELD_BITPOS (struct_type
, fieldno
);
356 bitpos
+= TYPE_FIELD_BITPOS (substruct_type
, subfieldno
);
357 addr
= value_contents_writeable (struct_val
) + bitpos
/ 8;
359 modify_field (addr
, value_as_long (val
),
360 bitpos
% 8, bitsize
);
362 memcpy (addr
, value_contents (val
),
363 TYPE_LENGTH (value_type (val
)));
365 while (--nlabels
> 0);
370 /* Recursive helper function for setting elements of array tuples for
371 (the deleted) Chill. The target is ARRAY (which has bounds
372 LOW_BOUND to HIGH_BOUND); the element value is ELEMENT; EXP, POS
373 and NOSIDE are as usual. Evaluates index expresions and sets the
374 specified element(s) of ARRAY to ELEMENT. Returns last index
378 init_array_element (struct value
*array
, struct value
*element
,
379 struct expression
*exp
, int *pos
,
380 enum noside noside
, LONGEST low_bound
, LONGEST high_bound
)
383 int element_size
= TYPE_LENGTH (value_type (element
));
384 if (exp
->elts
[*pos
].opcode
== BINOP_COMMA
)
387 init_array_element (array
, element
, exp
, pos
, noside
,
388 low_bound
, high_bound
);
389 return init_array_element (array
, element
,
390 exp
, pos
, noside
, low_bound
, high_bound
);
392 else if (exp
->elts
[*pos
].opcode
== BINOP_RANGE
)
396 low
= value_as_long (evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
));
397 high
= value_as_long (evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
));
398 if (low
< low_bound
|| high
> high_bound
)
399 error (_("tuple range index out of range"));
400 for (index
= low
; index
<= high
; index
++)
402 memcpy (value_contents_raw (array
)
403 + (index
- low_bound
) * element_size
,
404 value_contents (element
), element_size
);
409 index
= value_as_long (evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
));
410 if (index
< low_bound
|| index
> high_bound
)
411 error (_("tuple index out of range"));
412 memcpy (value_contents_raw (array
) + (index
- low_bound
) * element_size
,
413 value_contents (element
), element_size
);
419 value_f90_subarray (struct value
*array
,
420 struct expression
*exp
, int *pos
, enum noside noside
)
423 LONGEST low_bound
, high_bound
;
424 struct type
*range
= check_typedef (TYPE_INDEX_TYPE (value_type (array
)));
425 enum f90_range_type range_type
= longest_to_int (exp
->elts
[pc
].longconst
);
429 if (range_type
== LOW_BOUND_DEFAULT
|| range_type
== BOTH_BOUND_DEFAULT
)
430 low_bound
= TYPE_LOW_BOUND (range
);
432 low_bound
= value_as_long (evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
));
434 if (range_type
== HIGH_BOUND_DEFAULT
|| range_type
== BOTH_BOUND_DEFAULT
)
435 high_bound
= TYPE_HIGH_BOUND (range
);
437 high_bound
= value_as_long (evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
));
439 return value_slice (array
, low_bound
, high_bound
- low_bound
+ 1);
443 ptrmath_type_p (struct type
*type
)
445 type
= check_typedef (type
);
446 if (TYPE_CODE (type
) == TYPE_CODE_REF
)
447 type
= TYPE_TARGET_TYPE (type
);
449 switch (TYPE_CODE (type
))
455 case TYPE_CODE_ARRAY
:
456 return current_language
->c_style_arrays
;
464 evaluate_subexp_standard (struct type
*expect_type
,
465 struct expression
*exp
, int *pos
,
470 int pc
, pc2
= 0, oldpos
;
471 struct value
*arg1
= NULL
;
472 struct value
*arg2
= NULL
;
476 struct value
**argvec
;
477 int upper
, lower
, retcode
;
481 struct type
**arg_types
;
485 op
= exp
->elts
[pc
].opcode
;
490 tem
= longest_to_int (exp
->elts
[pc
+ 2].longconst
);
491 (*pos
) += 4 + BYTES_TO_EXP_ELEM (tem
+ 1);
492 if (noside
== EVAL_SKIP
)
494 arg1
= value_aggregate_elt (exp
->elts
[pc
+ 1].type
,
495 &exp
->elts
[pc
+ 3].string
,
498 error (_("There is no field named %s"), &exp
->elts
[pc
+ 3].string
);
503 return value_from_longest (exp
->elts
[pc
+ 1].type
,
504 exp
->elts
[pc
+ 2].longconst
);
508 return value_from_double (exp
->elts
[pc
+ 1].type
,
509 exp
->elts
[pc
+ 2].doubleconst
);
513 return value_from_decfloat (exp
->elts
[pc
+ 1].type
,
514 exp
->elts
[pc
+ 2].decfloatconst
);
518 if (noside
== EVAL_SKIP
)
521 /* JYG: We used to just return value_zero of the symbol type
522 if we're asked to avoid side effects. Otherwise we return
523 value_of_variable (...). However I'm not sure if
524 value_of_variable () has any side effect.
525 We need a full value object returned here for whatis_exp ()
526 to call evaluate_type () and then pass the full value to
527 value_rtti_target_type () if we are dealing with a pointer
528 or reference to a base class and print object is on. */
531 volatile struct gdb_exception except
;
532 struct value
*ret
= NULL
;
534 TRY_CATCH (except
, RETURN_MASK_ERROR
)
536 ret
= value_of_variable (exp
->elts
[pc
+ 2].symbol
,
537 exp
->elts
[pc
+ 1].block
);
540 if (except
.reason
< 0)
542 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
543 ret
= value_zero (SYMBOL_TYPE (exp
->elts
[pc
+ 2].symbol
), not_lval
);
545 throw_exception (except
);
554 access_value_history (longest_to_int (exp
->elts
[pc
+ 1].longconst
));
558 const char *name
= &exp
->elts
[pc
+ 2].string
;
562 (*pos
) += 3 + BYTES_TO_EXP_ELEM (exp
->elts
[pc
+ 1].longconst
+ 1);
563 regno
= user_reg_map_name_to_regnum (current_gdbarch
,
564 name
, strlen (name
));
566 error (_("Register $%s not available."), name
);
568 /* In EVAL_AVOID_SIDE_EFFECTS mode, we only need to return
569 a value with the appropriate register type. Unfortunately,
570 we don't have easy access to the type of user registers.
571 So for these registers, we fetch the register value regardless
572 of the evaluation mode. */
573 if (noside
== EVAL_AVOID_SIDE_EFFECTS
574 && regno
< gdbarch_num_regs (current_gdbarch
)
575 + gdbarch_num_pseudo_regs (current_gdbarch
))
576 val
= value_zero (register_type (current_gdbarch
, regno
), not_lval
);
578 val
= value_of_register (regno
, get_selected_frame (NULL
));
580 error (_("Value of register %s not available."), name
);
586 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
587 return value_from_longest (type
, exp
->elts
[pc
+ 1].longconst
);
591 return value_of_internalvar (exp
->elts
[pc
+ 1].internalvar
);
594 tem
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
595 (*pos
) += 3 + BYTES_TO_EXP_ELEM (tem
+ 1);
596 if (noside
== EVAL_SKIP
)
598 return value_string (&exp
->elts
[pc
+ 2].string
, tem
);
600 case OP_OBJC_NSSTRING
: /* Objective C Foundation Class NSString constant. */
601 tem
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
602 (*pos
) += 3 + BYTES_TO_EXP_ELEM (tem
+ 1);
603 if (noside
== EVAL_SKIP
)
607 return (struct value
*) value_nsstring (&exp
->elts
[pc
+ 2].string
, tem
+ 1);
610 tem
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
612 += 3 + BYTES_TO_EXP_ELEM ((tem
+ HOST_CHAR_BIT
- 1) / HOST_CHAR_BIT
);
613 if (noside
== EVAL_SKIP
)
615 return value_bitstring (&exp
->elts
[pc
+ 2].string
, tem
);
620 tem2
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
621 tem3
= longest_to_int (exp
->elts
[pc
+ 2].longconst
);
622 nargs
= tem3
- tem2
+ 1;
623 type
= expect_type
? check_typedef (expect_type
) : NULL_TYPE
;
625 if (expect_type
!= NULL_TYPE
&& noside
!= EVAL_SKIP
626 && TYPE_CODE (type
) == TYPE_CODE_STRUCT
)
628 struct value
*rec
= allocate_value (expect_type
);
629 memset (value_contents_raw (rec
), '\0', TYPE_LENGTH (type
));
630 return evaluate_struct_tuple (rec
, exp
, pos
, noside
, nargs
);
633 if (expect_type
!= NULL_TYPE
&& noside
!= EVAL_SKIP
634 && TYPE_CODE (type
) == TYPE_CODE_ARRAY
)
636 struct type
*range_type
= TYPE_FIELD_TYPE (type
, 0);
637 struct type
*element_type
= TYPE_TARGET_TYPE (type
);
638 struct value
*array
= allocate_value (expect_type
);
639 int element_size
= TYPE_LENGTH (check_typedef (element_type
));
640 LONGEST low_bound
, high_bound
, index
;
641 if (get_discrete_bounds (range_type
, &low_bound
, &high_bound
) < 0)
644 high_bound
= (TYPE_LENGTH (type
) / element_size
) - 1;
647 memset (value_contents_raw (array
), 0, TYPE_LENGTH (expect_type
));
648 for (tem
= nargs
; --nargs
>= 0;)
650 struct value
*element
;
652 if (exp
->elts
[*pos
].opcode
== BINOP_RANGE
)
655 evaluate_subexp (NULL_TYPE
, exp
, pos
, EVAL_SKIP
);
657 element
= evaluate_subexp (element_type
, exp
, pos
, noside
);
658 if (value_type (element
) != element_type
)
659 element
= value_cast (element_type
, element
);
662 int continue_pc
= *pos
;
664 index
= init_array_element (array
, element
, exp
, pos
, noside
,
665 low_bound
, high_bound
);
670 if (index
> high_bound
)
671 /* to avoid memory corruption */
672 error (_("Too many array elements"));
673 memcpy (value_contents_raw (array
)
674 + (index
- low_bound
) * element_size
,
675 value_contents (element
),
683 if (expect_type
!= NULL_TYPE
&& noside
!= EVAL_SKIP
684 && TYPE_CODE (type
) == TYPE_CODE_SET
)
686 struct value
*set
= allocate_value (expect_type
);
687 gdb_byte
*valaddr
= value_contents_raw (set
);
688 struct type
*element_type
= TYPE_INDEX_TYPE (type
);
689 struct type
*check_type
= element_type
;
690 LONGEST low_bound
, high_bound
;
692 /* get targettype of elementtype */
693 while (TYPE_CODE (check_type
) == TYPE_CODE_RANGE
||
694 TYPE_CODE (check_type
) == TYPE_CODE_TYPEDEF
)
695 check_type
= TYPE_TARGET_TYPE (check_type
);
697 if (get_discrete_bounds (element_type
, &low_bound
, &high_bound
) < 0)
698 error (_("(power)set type with unknown size"));
699 memset (valaddr
, '\0', TYPE_LENGTH (type
));
700 for (tem
= 0; tem
< nargs
; tem
++)
702 LONGEST range_low
, range_high
;
703 struct type
*range_low_type
, *range_high_type
;
704 struct value
*elem_val
;
705 if (exp
->elts
[*pos
].opcode
== BINOP_RANGE
)
708 elem_val
= evaluate_subexp (element_type
, exp
, pos
, noside
);
709 range_low_type
= value_type (elem_val
);
710 range_low
= value_as_long (elem_val
);
711 elem_val
= evaluate_subexp (element_type
, exp
, pos
, noside
);
712 range_high_type
= value_type (elem_val
);
713 range_high
= value_as_long (elem_val
);
717 elem_val
= evaluate_subexp (element_type
, exp
, pos
, noside
);
718 range_low_type
= range_high_type
= value_type (elem_val
);
719 range_low
= range_high
= value_as_long (elem_val
);
721 /* check types of elements to avoid mixture of elements from
722 different types. Also check if type of element is "compatible"
723 with element type of powerset */
724 if (TYPE_CODE (range_low_type
) == TYPE_CODE_RANGE
)
725 range_low_type
= TYPE_TARGET_TYPE (range_low_type
);
726 if (TYPE_CODE (range_high_type
) == TYPE_CODE_RANGE
)
727 range_high_type
= TYPE_TARGET_TYPE (range_high_type
);
728 if ((TYPE_CODE (range_low_type
) != TYPE_CODE (range_high_type
)) ||
729 (TYPE_CODE (range_low_type
) == TYPE_CODE_ENUM
&&
730 (range_low_type
!= range_high_type
)))
731 /* different element modes */
732 error (_("POWERSET tuple elements of different mode"));
733 if ((TYPE_CODE (check_type
) != TYPE_CODE (range_low_type
)) ||
734 (TYPE_CODE (check_type
) == TYPE_CODE_ENUM
&&
735 range_low_type
!= check_type
))
736 error (_("incompatible POWERSET tuple elements"));
737 if (range_low
> range_high
)
739 warning (_("empty POWERSET tuple range"));
742 if (range_low
< low_bound
|| range_high
> high_bound
)
743 error (_("POWERSET tuple element out of range"));
744 range_low
-= low_bound
;
745 range_high
-= low_bound
;
746 for (; range_low
<= range_high
; range_low
++)
748 int bit_index
= (unsigned) range_low
% TARGET_CHAR_BIT
;
749 if (gdbarch_bits_big_endian (current_gdbarch
))
750 bit_index
= TARGET_CHAR_BIT
- 1 - bit_index
;
751 valaddr
[(unsigned) range_low
/ TARGET_CHAR_BIT
]
758 argvec
= (struct value
**) alloca (sizeof (struct value
*) * nargs
);
759 for (tem
= 0; tem
< nargs
; tem
++)
761 /* Ensure that array expressions are coerced into pointer objects. */
762 argvec
[tem
] = evaluate_subexp_with_coercion (exp
, pos
, noside
);
764 if (noside
== EVAL_SKIP
)
766 return value_array (tem2
, tem3
, argvec
);
770 struct value
*array
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
772 = value_as_long (evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
));
774 = value_as_long (evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
));
775 if (noside
== EVAL_SKIP
)
777 return value_slice (array
, lowbound
, upper
- lowbound
+ 1);
780 case TERNOP_SLICE_COUNT
:
782 struct value
*array
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
784 = value_as_long (evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
));
786 = value_as_long (evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
));
787 return value_slice (array
, lowbound
, length
);
791 /* Skip third and second args to evaluate the first one. */
792 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
793 if (value_logical_not (arg1
))
795 evaluate_subexp (NULL_TYPE
, exp
, pos
, EVAL_SKIP
);
796 return evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
800 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
801 evaluate_subexp (NULL_TYPE
, exp
, pos
, EVAL_SKIP
);
805 case OP_OBJC_SELECTOR
:
806 { /* Objective C @selector operator. */
807 char *sel
= &exp
->elts
[pc
+ 2].string
;
808 int len
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
810 (*pos
) += 3 + BYTES_TO_EXP_ELEM (len
+ 1);
811 if (noside
== EVAL_SKIP
)
815 sel
[len
] = 0; /* Make sure it's terminated. */
816 return value_from_longest (lookup_pointer_type (builtin_type_void
),
817 lookup_child_selector (sel
));
820 case OP_OBJC_MSGCALL
:
821 { /* Objective C message (method) call. */
823 static CORE_ADDR responds_selector
= 0;
824 static CORE_ADDR method_selector
= 0;
826 CORE_ADDR selector
= 0;
828 int struct_return
= 0;
831 static struct value
*msg_send
= NULL
;
832 static struct value
*msg_send_stret
= NULL
;
833 static int gnu_runtime
= 0;
835 struct value
*target
= NULL
;
836 struct value
*method
= NULL
;
837 struct value
*called_method
= NULL
;
839 struct type
*selector_type
= NULL
;
841 struct value
*ret
= NULL
;
844 selector
= exp
->elts
[pc
+ 1].longconst
;
845 nargs
= exp
->elts
[pc
+ 2].longconst
;
846 argvec
= (struct value
**) alloca (sizeof (struct value
*)
851 selector_type
= lookup_pointer_type (builtin_type_void
);
852 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
853 sub_no_side
= EVAL_NORMAL
;
855 sub_no_side
= noside
;
857 target
= evaluate_subexp (selector_type
, exp
, pos
, sub_no_side
);
859 if (value_as_long (target
) == 0)
860 return value_from_longest (builtin_type_long
, 0);
862 if (lookup_minimal_symbol ("objc_msg_lookup", 0, 0))
865 /* Find the method dispatch (Apple runtime) or method lookup
866 (GNU runtime) function for Objective-C. These will be used
867 to lookup the symbol information for the method. If we
868 can't find any symbol information, then we'll use these to
869 call the method, otherwise we can call the method
870 directly. The msg_send_stret function is used in the special
871 case of a method that returns a structure (Apple runtime
876 type
= lookup_pointer_type (builtin_type_void
);
877 type
= lookup_function_type (type
);
878 type
= lookup_pointer_type (type
);
879 type
= lookup_function_type (type
);
880 type
= lookup_pointer_type (type
);
882 msg_send
= find_function_in_inferior ("objc_msg_lookup");
883 msg_send_stret
= find_function_in_inferior ("objc_msg_lookup");
885 msg_send
= value_from_pointer (type
, value_as_address (msg_send
));
886 msg_send_stret
= value_from_pointer (type
,
887 value_as_address (msg_send_stret
));
891 msg_send
= find_function_in_inferior ("objc_msgSend");
892 /* Special dispatcher for methods returning structs */
893 msg_send_stret
= find_function_in_inferior ("objc_msgSend_stret");
896 /* Verify the target object responds to this method. The
897 standard top-level 'Object' class uses a different name for
898 the verification method than the non-standard, but more
899 often used, 'NSObject' class. Make sure we check for both. */
901 responds_selector
= lookup_child_selector ("respondsToSelector:");
902 if (responds_selector
== 0)
903 responds_selector
= lookup_child_selector ("respondsTo:");
905 if (responds_selector
== 0)
906 error (_("no 'respondsTo:' or 'respondsToSelector:' method"));
908 method_selector
= lookup_child_selector ("methodForSelector:");
909 if (method_selector
== 0)
910 method_selector
= lookup_child_selector ("methodFor:");
912 if (method_selector
== 0)
913 error (_("no 'methodFor:' or 'methodForSelector:' method"));
915 /* Call the verification method, to make sure that the target
916 class implements the desired method. */
918 argvec
[0] = msg_send
;
920 argvec
[2] = value_from_longest (builtin_type_long
, responds_selector
);
921 argvec
[3] = value_from_longest (builtin_type_long
, selector
);
924 ret
= call_function_by_hand (argvec
[0], 3, argvec
+ 1);
927 /* Function objc_msg_lookup returns a pointer. */
929 ret
= call_function_by_hand (argvec
[0], 3, argvec
+ 1);
931 if (value_as_long (ret
) == 0)
932 error (_("Target does not respond to this message selector."));
934 /* Call "methodForSelector:" method, to get the address of a
935 function method that implements this selector for this
936 class. If we can find a symbol at that address, then we
937 know the return type, parameter types etc. (that's a good
940 argvec
[0] = msg_send
;
942 argvec
[2] = value_from_longest (builtin_type_long
, method_selector
);
943 argvec
[3] = value_from_longest (builtin_type_long
, selector
);
946 ret
= call_function_by_hand (argvec
[0], 3, argvec
+ 1);
950 ret
= call_function_by_hand (argvec
[0], 3, argvec
+ 1);
953 /* ret should now be the selector. */
955 addr
= value_as_long (ret
);
958 struct symbol
*sym
= NULL
;
959 /* Is it a high_level symbol? */
961 sym
= find_pc_function (addr
);
963 method
= value_of_variable (sym
, 0);
966 /* If we found a method with symbol information, check to see
967 if it returns a struct. Otherwise assume it doesn't. */
973 struct type
*val_type
;
975 funaddr
= find_function_addr (method
, &val_type
);
977 b
= block_for_pc (funaddr
);
979 CHECK_TYPEDEF (val_type
);
981 if ((val_type
== NULL
)
982 || (TYPE_CODE(val_type
) == TYPE_CODE_ERROR
))
984 if (expect_type
!= NULL
)
985 val_type
= expect_type
;
988 struct_return
= using_struct_return (value_type (method
), val_type
);
990 else if (expect_type
!= NULL
)
992 struct_return
= using_struct_return (NULL
,
993 check_typedef (expect_type
));
996 /* Found a function symbol. Now we will substitute its
997 value in place of the message dispatcher (obj_msgSend),
998 so that we call the method directly instead of thru
999 the dispatcher. The main reason for doing this is that
1000 we can now evaluate the return value and parameter values
1001 according to their known data types, in case we need to
1002 do things like promotion, dereferencing, special handling
1003 of structs and doubles, etc.
1005 We want to use the type signature of 'method', but still
1006 jump to objc_msgSend() or objc_msgSend_stret() to better
1007 mimic the behavior of the runtime. */
1011 if (TYPE_CODE (value_type (method
)) != TYPE_CODE_FUNC
)
1012 error (_("method address has symbol information with non-function type; skipping"));
1014 VALUE_ADDRESS (method
) = value_as_address (msg_send_stret
);
1016 VALUE_ADDRESS (method
) = value_as_address (msg_send
);
1017 called_method
= method
;
1022 called_method
= msg_send_stret
;
1024 called_method
= msg_send
;
1027 if (noside
== EVAL_SKIP
)
1030 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
1032 /* If the return type doesn't look like a function type,
1033 call an error. This can happen if somebody tries to
1034 turn a variable into a function call. This is here
1035 because people often want to call, eg, strcmp, which
1036 gdb doesn't know is a function. If gdb isn't asked for
1037 it's opinion (ie. through "whatis"), it won't offer
1040 struct type
*type
= value_type (called_method
);
1041 if (type
&& TYPE_CODE (type
) == TYPE_CODE_PTR
)
1042 type
= TYPE_TARGET_TYPE (type
);
1043 type
= TYPE_TARGET_TYPE (type
);
1047 if ((TYPE_CODE (type
) == TYPE_CODE_ERROR
) && expect_type
)
1048 return allocate_value (expect_type
);
1050 return allocate_value (type
);
1053 error (_("Expression of type other than \"method returning ...\" used as a method"));
1056 /* Now depending on whether we found a symbol for the method,
1057 we will either call the runtime dispatcher or the method
1060 argvec
[0] = called_method
;
1062 argvec
[2] = value_from_longest (builtin_type_long
, selector
);
1063 /* User-supplied arguments. */
1064 for (tem
= 0; tem
< nargs
; tem
++)
1065 argvec
[tem
+ 3] = evaluate_subexp_with_coercion (exp
, pos
, noside
);
1066 argvec
[tem
+ 3] = 0;
1068 if (gnu_runtime
&& (method
!= NULL
))
1070 /* Function objc_msg_lookup returns a pointer. */
1071 deprecated_set_value_type (argvec
[0],
1072 lookup_function_type (lookup_pointer_type (value_type (argvec
[0]))));
1073 argvec
[0] = call_function_by_hand (argvec
[0], nargs
+ 2, argvec
+ 1);
1076 ret
= call_function_by_hand (argvec
[0], nargs
+ 2, argvec
+ 1);
1083 op
= exp
->elts
[*pos
].opcode
;
1084 nargs
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
1085 /* Allocate arg vector, including space for the function to be
1086 called in argvec[0] and a terminating NULL */
1087 argvec
= (struct value
**) alloca (sizeof (struct value
*) * (nargs
+ 3));
1088 if (op
== STRUCTOP_MEMBER
|| op
== STRUCTOP_MPTR
)
1091 /* First, evaluate the structure into arg2 */
1094 if (noside
== EVAL_SKIP
)
1097 if (op
== STRUCTOP_MEMBER
)
1099 arg2
= evaluate_subexp_for_address (exp
, pos
, noside
);
1103 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1106 /* If the function is a virtual function, then the
1107 aggregate value (providing the structure) plays
1108 its part by providing the vtable. Otherwise,
1109 it is just along for the ride: call the function
1112 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1114 if (TYPE_CODE (check_typedef (value_type (arg1
)))
1115 != TYPE_CODE_METHODPTR
)
1116 error (_("Non-pointer-to-member value used in pointer-to-member "
1119 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
1121 struct type
*method_type
= check_typedef (value_type (arg1
));
1122 arg1
= value_zero (method_type
, not_lval
);
1125 arg1
= cplus_method_ptr_to_value (&arg2
, arg1
);
1127 /* Now, say which argument to start evaluating from */
1130 else if (op
== STRUCTOP_STRUCT
|| op
== STRUCTOP_PTR
)
1132 /* Hair for method invocations */
1136 /* First, evaluate the structure into arg2 */
1138 tem2
= longest_to_int (exp
->elts
[pc2
+ 1].longconst
);
1139 *pos
+= 3 + BYTES_TO_EXP_ELEM (tem2
+ 1);
1140 if (noside
== EVAL_SKIP
)
1143 if (op
== STRUCTOP_STRUCT
)
1145 /* If v is a variable in a register, and the user types
1146 v.method (), this will produce an error, because v has
1149 A possible way around this would be to allocate a
1150 copy of the variable on the stack, copy in the
1151 contents, call the function, and copy out the
1152 contents. I.e. convert this from call by reference
1153 to call by copy-return (or whatever it's called).
1154 However, this does not work because it is not the
1155 same: the method being called could stash a copy of
1156 the address, and then future uses through that address
1157 (after the method returns) would be expected to
1158 use the variable itself, not some copy of it. */
1159 arg2
= evaluate_subexp_for_address (exp
, pos
, noside
);
1163 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1165 /* Now, say which argument to start evaluating from */
1170 /* Non-method function call */
1172 argvec
[0] = evaluate_subexp_with_coercion (exp
, pos
, noside
);
1174 type
= value_type (argvec
[0]);
1175 if (type
&& TYPE_CODE (type
) == TYPE_CODE_PTR
)
1176 type
= TYPE_TARGET_TYPE (type
);
1177 if (type
&& TYPE_CODE (type
) == TYPE_CODE_FUNC
)
1179 for (; tem
<= nargs
&& tem
<= TYPE_NFIELDS (type
); tem
++)
1181 /* pai: FIXME This seems to be coercing arguments before
1182 * overload resolution has been done! */
1183 argvec
[tem
] = evaluate_subexp (TYPE_FIELD_TYPE (type
, tem
- 1),
1189 /* Evaluate arguments */
1190 for (; tem
<= nargs
; tem
++)
1192 /* Ensure that array expressions are coerced into pointer objects. */
1193 argvec
[tem
] = evaluate_subexp_with_coercion (exp
, pos
, noside
);
1196 /* signal end of arglist */
1199 if (op
== STRUCTOP_STRUCT
|| op
== STRUCTOP_PTR
)
1201 int static_memfuncp
;
1204 /* Method invocation : stuff "this" as first parameter */
1206 /* Name of method from expression */
1207 strcpy (tstr
, &exp
->elts
[pc2
+ 2].string
);
1209 if (overload_resolution
&& (exp
->language_defn
->la_language
== language_cplus
))
1211 /* Language is C++, do some overload resolution before evaluation */
1212 struct value
*valp
= NULL
;
1214 /* Prepare list of argument types for overload resolution */
1215 arg_types
= (struct type
**) alloca (nargs
* (sizeof (struct type
*)));
1216 for (ix
= 1; ix
<= nargs
; ix
++)
1217 arg_types
[ix
- 1] = value_type (argvec
[ix
]);
1219 (void) find_overload_match (arg_types
, nargs
, tstr
,
1220 1 /* method */ , 0 /* strict match */ ,
1221 &arg2
/* the object */ , NULL
,
1222 &valp
, NULL
, &static_memfuncp
);
1225 argvec
[1] = arg2
; /* the ``this'' pointer */
1226 argvec
[0] = valp
; /* use the method found after overload resolution */
1229 /* Non-C++ case -- or no overload resolution */
1231 struct value
*temp
= arg2
;
1232 argvec
[0] = value_struct_elt (&temp
, argvec
+ 1, tstr
,
1234 op
== STRUCTOP_STRUCT
1235 ? "structure" : "structure pointer");
1236 /* value_struct_elt updates temp with the correct value
1237 of the ``this'' pointer if necessary, so modify argvec[1] to
1238 reflect any ``this'' changes. */
1239 arg2
= value_from_longest (lookup_pointer_type(value_type (temp
)),
1240 VALUE_ADDRESS (temp
) + value_offset (temp
)
1241 + value_embedded_offset (temp
));
1242 argvec
[1] = arg2
; /* the ``this'' pointer */
1245 if (static_memfuncp
)
1247 argvec
[1] = argvec
[0];
1252 else if (op
== STRUCTOP_MEMBER
|| op
== STRUCTOP_MPTR
)
1257 else if (op
== OP_VAR_VALUE
)
1259 /* Non-member function being called */
1260 /* fn: This can only be done for C++ functions. A C-style function
1261 in a C++ program, for instance, does not have the fields that
1262 are expected here */
1264 if (overload_resolution
&& (exp
->language_defn
->la_language
== language_cplus
))
1266 /* Language is C++, do some overload resolution before evaluation */
1267 struct symbol
*symp
;
1269 /* Prepare list of argument types for overload resolution */
1270 arg_types
= (struct type
**) alloca (nargs
* (sizeof (struct type
*)));
1271 for (ix
= 1; ix
<= nargs
; ix
++)
1272 arg_types
[ix
- 1] = value_type (argvec
[ix
]);
1274 (void) find_overload_match (arg_types
, nargs
, NULL
/* no need for name */ ,
1275 0 /* not method */ , 0 /* strict match */ ,
1276 NULL
, exp
->elts
[save_pos1
+2].symbol
/* the function */ ,
1279 /* Now fix the expression being evaluated */
1280 exp
->elts
[save_pos1
+2].symbol
= symp
;
1281 argvec
[0] = evaluate_subexp_with_coercion (exp
, &save_pos1
, noside
);
1285 /* Not C++, or no overload resolution allowed */
1286 /* nothing to be done; argvec already correctly set up */
1291 /* It is probably a C-style function */
1292 /* nothing to be done; argvec already correctly set up */
1297 if (noside
== EVAL_SKIP
)
1299 if (argvec
[0] == NULL
)
1300 error (_("Cannot evaluate function -- may be inlined"));
1301 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
1303 /* If the return type doesn't look like a function type, call an
1304 error. This can happen if somebody tries to turn a variable into
1305 a function call. This is here because people often want to
1306 call, eg, strcmp, which gdb doesn't know is a function. If
1307 gdb isn't asked for it's opinion (ie. through "whatis"),
1308 it won't offer it. */
1310 struct type
*ftype
=
1311 TYPE_TARGET_TYPE (value_type (argvec
[0]));
1314 return allocate_value (TYPE_TARGET_TYPE (value_type (argvec
[0])));
1316 error (_("Expression of type other than \"Function returning ...\" used as function"));
1318 return call_function_by_hand (argvec
[0], nargs
, argvec
+ 1);
1319 /* pai: FIXME save value from call_function_by_hand, then adjust pc by adjust_fn_pc if +ve */
1321 case OP_F77_UNDETERMINED_ARGLIST
:
1323 /* Remember that in F77, functions, substring ops and
1324 array subscript operations cannot be disambiguated
1325 at parse time. We have made all array subscript operations,
1326 substring operations as well as function calls come here
1327 and we now have to discover what the heck this thing actually was.
1328 If it is a function, we process just as if we got an OP_FUNCALL. */
1330 nargs
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
1333 /* First determine the type code we are dealing with. */
1334 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1335 type
= check_typedef (value_type (arg1
));
1336 code
= TYPE_CODE (type
);
1338 if (code
== TYPE_CODE_PTR
)
1340 /* Fortran always passes variable to subroutines as pointer.
1341 So we need to look into its target type to see if it is
1342 array, string or function. If it is, we need to switch
1343 to the target value the original one points to. */
1344 struct type
*target_type
= check_typedef (TYPE_TARGET_TYPE (type
));
1346 if (TYPE_CODE (target_type
) == TYPE_CODE_ARRAY
1347 || TYPE_CODE (target_type
) == TYPE_CODE_STRING
1348 || TYPE_CODE (target_type
) == TYPE_CODE_FUNC
)
1350 arg1
= value_ind (arg1
);
1351 type
= check_typedef (value_type (arg1
));
1352 code
= TYPE_CODE (type
);
1358 case TYPE_CODE_ARRAY
:
1359 if (exp
->elts
[*pos
].opcode
== OP_F90_RANGE
)
1360 return value_f90_subarray (arg1
, exp
, pos
, noside
);
1362 goto multi_f77_subscript
;
1364 case TYPE_CODE_STRING
:
1365 if (exp
->elts
[*pos
].opcode
== OP_F90_RANGE
)
1366 return value_f90_subarray (arg1
, exp
, pos
, noside
);
1369 arg2
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1370 return value_subscript (arg1
, arg2
);
1374 case TYPE_CODE_FUNC
:
1375 /* It's a function call. */
1376 /* Allocate arg vector, including space for the function to be
1377 called in argvec[0] and a terminating NULL */
1378 argvec
= (struct value
**) alloca (sizeof (struct value
*) * (nargs
+ 2));
1381 for (; tem
<= nargs
; tem
++)
1382 argvec
[tem
] = evaluate_subexp_with_coercion (exp
, pos
, noside
);
1383 argvec
[tem
] = 0; /* signal end of arglist */
1387 error (_("Cannot perform substring on this type"));
1391 /* We have a complex number, There should be 2 floating
1392 point numbers that compose it */
1394 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1395 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1397 return value_literal_complex (arg1
, arg2
, exp
->elts
[pc
+ 1].type
);
1399 case STRUCTOP_STRUCT
:
1400 tem
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
1401 (*pos
) += 3 + BYTES_TO_EXP_ELEM (tem
+ 1);
1402 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1403 if (noside
== EVAL_SKIP
)
1405 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
1406 return value_zero (lookup_struct_elt_type (value_type (arg1
),
1407 &exp
->elts
[pc
+ 2].string
,
1412 struct value
*temp
= arg1
;
1413 return value_struct_elt (&temp
, NULL
, &exp
->elts
[pc
+ 2].string
,
1418 tem
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
1419 (*pos
) += 3 + BYTES_TO_EXP_ELEM (tem
+ 1);
1420 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1421 if (noside
== EVAL_SKIP
)
1424 /* JYG: if print object is on we need to replace the base type
1425 with rtti type in order to continue on with successful
1426 lookup of member / method only available in the rtti type. */
1428 struct type
*type
= value_type (arg1
);
1429 struct type
*real_type
;
1430 int full
, top
, using_enc
;
1432 if (objectprint
&& TYPE_TARGET_TYPE(type
) &&
1433 (TYPE_CODE (TYPE_TARGET_TYPE (type
)) == TYPE_CODE_CLASS
))
1435 real_type
= value_rtti_target_type (arg1
, &full
, &top
, &using_enc
);
1438 if (TYPE_CODE (type
) == TYPE_CODE_PTR
)
1439 real_type
= lookup_pointer_type (real_type
);
1441 real_type
= lookup_reference_type (real_type
);
1443 arg1
= value_cast (real_type
, arg1
);
1448 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
1449 return value_zero (lookup_struct_elt_type (value_type (arg1
),
1450 &exp
->elts
[pc
+ 2].string
,
1455 struct value
*temp
= arg1
;
1456 return value_struct_elt (&temp
, NULL
, &exp
->elts
[pc
+ 2].string
,
1457 NULL
, "structure pointer");
1460 case STRUCTOP_MEMBER
:
1462 if (op
== STRUCTOP_MEMBER
)
1463 arg1
= evaluate_subexp_for_address (exp
, pos
, noside
);
1465 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1467 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1469 if (noside
== EVAL_SKIP
)
1472 type
= check_typedef (value_type (arg2
));
1473 switch (TYPE_CODE (type
))
1475 case TYPE_CODE_METHODPTR
:
1476 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
1477 return value_zero (TYPE_TARGET_TYPE (type
), not_lval
);
1480 arg2
= cplus_method_ptr_to_value (&arg1
, arg2
);
1481 gdb_assert (TYPE_CODE (value_type (arg2
)) == TYPE_CODE_PTR
);
1482 return value_ind (arg2
);
1485 case TYPE_CODE_MEMBERPTR
:
1486 /* Now, convert these values to an address. */
1487 arg1
= value_cast (lookup_pointer_type (TYPE_DOMAIN_TYPE (type
)),
1490 mem_offset
= value_as_long (arg2
);
1492 arg3
= value_from_pointer (lookup_pointer_type (TYPE_TARGET_TYPE (type
)),
1493 value_as_long (arg1
) + mem_offset
);
1494 return value_ind (arg3
);
1497 error (_("non-pointer-to-member value used in pointer-to-member construct"));
1501 arg1
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1502 arg2
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1503 if (noside
== EVAL_SKIP
)
1505 if (binop_user_defined_p (op
, arg1
, arg2
))
1506 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1508 return value_concat (arg1
, arg2
);
1511 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1512 arg2
= evaluate_subexp (value_type (arg1
), exp
, pos
, noside
);
1514 if (noside
== EVAL_SKIP
|| noside
== EVAL_AVOID_SIDE_EFFECTS
)
1516 if (binop_user_defined_p (op
, arg1
, arg2
))
1517 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1519 return value_assign (arg1
, arg2
);
1521 case BINOP_ASSIGN_MODIFY
:
1523 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1524 arg2
= evaluate_subexp (value_type (arg1
), exp
, pos
, noside
);
1525 if (noside
== EVAL_SKIP
|| noside
== EVAL_AVOID_SIDE_EFFECTS
)
1527 op
= exp
->elts
[pc
+ 1].opcode
;
1528 if (binop_user_defined_p (op
, arg1
, arg2
))
1529 return value_x_binop (arg1
, arg2
, BINOP_ASSIGN_MODIFY
, op
, noside
);
1530 else if (op
== BINOP_ADD
&& ptrmath_type_p (value_type (arg1
)))
1531 arg2
= value_ptradd (arg1
, arg2
);
1532 else if (op
== BINOP_SUB
&& ptrmath_type_p (value_type (arg1
)))
1533 arg2
= value_ptrsub (arg1
, arg2
);
1535 arg2
= value_binop (arg1
, arg2
, op
);
1536 return value_assign (arg1
, arg2
);
1539 arg1
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1540 arg2
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1541 if (noside
== EVAL_SKIP
)
1543 if (binop_user_defined_p (op
, arg1
, arg2
))
1544 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1545 else if (ptrmath_type_p (value_type (arg1
)))
1546 return value_ptradd (arg1
, arg2
);
1547 else if (ptrmath_type_p (value_type (arg2
)))
1548 return value_ptradd (arg2
, arg1
);
1550 return value_binop (arg1
, arg2
, BINOP_ADD
);
1553 arg1
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1554 arg2
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1555 if (noside
== EVAL_SKIP
)
1557 if (binop_user_defined_p (op
, arg1
, arg2
))
1558 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1559 else if (ptrmath_type_p (value_type (arg1
)))
1561 if (ptrmath_type_p (value_type (arg2
)))
1563 /* FIXME -- should be ptrdiff_t */
1564 type
= builtin_type (exp
->gdbarch
)->builtin_long
;
1565 return value_from_longest (type
, value_ptrdiff (arg1
, arg2
));
1568 return value_ptrsub (arg1
, arg2
);
1571 return value_binop (arg1
, arg2
, BINOP_SUB
);
1581 case BINOP_BITWISE_AND
:
1582 case BINOP_BITWISE_IOR
:
1583 case BINOP_BITWISE_XOR
:
1584 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1585 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1586 if (noside
== EVAL_SKIP
)
1588 if (binop_user_defined_p (op
, arg1
, arg2
))
1589 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1592 /* If EVAL_AVOID_SIDE_EFFECTS and we're dividing by zero,
1593 fudge arg2 to avoid division-by-zero, the caller is
1594 (theoretically) only looking for the type of the result. */
1595 if (noside
== EVAL_AVOID_SIDE_EFFECTS
1596 /* ??? Do we really want to test for BINOP_MOD here?
1597 The implementation of value_binop gives it a well-defined
1600 || op
== BINOP_INTDIV
1603 && value_logical_not (arg2
))
1605 struct value
*v_one
, *retval
;
1607 v_one
= value_one (value_type (arg2
), not_lval
);
1608 retval
= value_binop (arg1
, v_one
, op
);
1612 return value_binop (arg1
, arg2
, op
);
1616 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1617 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1618 if (noside
== EVAL_SKIP
)
1620 error (_("':' operator used in invalid context"));
1622 case BINOP_SUBSCRIPT
:
1623 arg1
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1624 arg2
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1625 if (noside
== EVAL_SKIP
)
1627 if (binop_user_defined_p (op
, arg1
, arg2
))
1628 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1631 /* If the user attempts to subscript something that is not an
1632 array or pointer type (like a plain int variable for example),
1633 then report this as an error. */
1635 arg1
= coerce_ref (arg1
);
1636 type
= check_typedef (value_type (arg1
));
1637 if (TYPE_CODE (type
) != TYPE_CODE_ARRAY
1638 && TYPE_CODE (type
) != TYPE_CODE_PTR
)
1640 if (TYPE_NAME (type
))
1641 error (_("cannot subscript something of type `%s'"),
1644 error (_("cannot subscript requested type"));
1647 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
1648 return value_zero (TYPE_TARGET_TYPE (type
), VALUE_LVAL (arg1
));
1650 return value_subscript (arg1
, arg2
);
1654 arg1
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1655 arg2
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1656 if (noside
== EVAL_SKIP
)
1658 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
1659 return value_from_longest (type
, (LONGEST
) value_in (arg1
, arg2
));
1661 case MULTI_SUBSCRIPT
:
1663 nargs
= longest_to_int (exp
->elts
[pc
+ 1].longconst
);
1664 arg1
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1667 arg2
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1668 /* FIXME: EVAL_SKIP handling may not be correct. */
1669 if (noside
== EVAL_SKIP
)
1680 /* FIXME: EVAL_AVOID_SIDE_EFFECTS handling may not be correct. */
1681 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
1683 /* If the user attempts to subscript something that has no target
1684 type (like a plain int variable for example), then report this
1687 type
= TYPE_TARGET_TYPE (check_typedef (value_type (arg1
)));
1690 arg1
= value_zero (type
, VALUE_LVAL (arg1
));
1696 error (_("cannot subscript something of type `%s'"),
1697 TYPE_NAME (value_type (arg1
)));
1701 if (binop_user_defined_p (op
, arg1
, arg2
))
1703 arg1
= value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1707 arg1
= coerce_ref (arg1
);
1708 type
= check_typedef (value_type (arg1
));
1710 switch (TYPE_CODE (type
))
1713 case TYPE_CODE_ARRAY
:
1714 case TYPE_CODE_STRING
:
1715 arg1
= value_subscript (arg1
, arg2
);
1718 case TYPE_CODE_BITSTRING
:
1719 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
1720 arg1
= value_bitstring_subscript (type
, arg1
, arg2
);
1724 if (TYPE_NAME (type
))
1725 error (_("cannot subscript something of type `%s'"),
1728 error (_("cannot subscript requested type"));
1734 multi_f77_subscript
:
1736 int subscript_array
[MAX_FORTRAN_DIMS
];
1737 int array_size_array
[MAX_FORTRAN_DIMS
];
1738 int ndimensions
= 1, i
;
1739 struct type
*tmp_type
;
1740 int offset_item
; /* The array offset where the item lives */
1742 if (nargs
> MAX_FORTRAN_DIMS
)
1743 error (_("Too many subscripts for F77 (%d Max)"), MAX_FORTRAN_DIMS
);
1745 tmp_type
= check_typedef (value_type (arg1
));
1746 ndimensions
= calc_f77_array_dims (type
);
1748 if (nargs
!= ndimensions
)
1749 error (_("Wrong number of subscripts"));
1751 /* Now that we know we have a legal array subscript expression
1752 let us actually find out where this element exists in the array. */
1755 /* Take array indices left to right */
1756 for (i
= 0; i
< nargs
; i
++)
1758 /* Evaluate each subscript, It must be a legal integer in F77 */
1759 arg2
= evaluate_subexp_with_coercion (exp
, pos
, noside
);
1761 /* Fill in the subscript and array size arrays */
1763 subscript_array
[i
] = value_as_long (arg2
);
1766 /* Internal type of array is arranged right to left */
1767 for (i
= 0; i
< nargs
; i
++)
1769 retcode
= f77_get_dynamic_upperbound (tmp_type
, &upper
);
1770 if (retcode
== BOUND_FETCH_ERROR
)
1771 error (_("Cannot obtain dynamic upper bound"));
1773 retcode
= f77_get_dynamic_lowerbound (tmp_type
, &lower
);
1774 if (retcode
== BOUND_FETCH_ERROR
)
1775 error (_("Cannot obtain dynamic lower bound"));
1777 array_size_array
[nargs
- i
- 1] = upper
- lower
+ 1;
1779 /* Zero-normalize subscripts so that offsetting will work. */
1781 subscript_array
[nargs
- i
- 1] -= lower
;
1783 /* If we are at the bottom of a multidimensional
1784 array type then keep a ptr to the last ARRAY
1785 type around for use when calling value_subscript()
1786 below. This is done because we pretend to value_subscript
1787 that we actually have a one-dimensional array
1788 of base element type that we apply a simple
1792 tmp_type
= check_typedef (TYPE_TARGET_TYPE (tmp_type
));
1795 /* Now let us calculate the offset for this item */
1797 offset_item
= subscript_array
[ndimensions
- 1];
1799 for (i
= ndimensions
- 1; i
> 0; --i
)
1801 array_size_array
[i
- 1] * offset_item
+ subscript_array
[i
- 1];
1803 /* Construct a value node with the value of the offset */
1805 arg2
= value_from_longest (builtin_type_f_integer
, offset_item
);
1807 /* Let us now play a dirty trick: we will take arg1
1808 which is a value node pointing to the topmost level
1809 of the multidimensional array-set and pretend
1810 that it is actually a array of the final element
1811 type, this will ensure that value_subscript()
1812 returns the correct type value */
1814 deprecated_set_value_type (arg1
, tmp_type
);
1815 return value_subscripted_rvalue (arg1
, arg2
, 0);
1818 case BINOP_LOGICAL_AND
:
1819 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1820 if (noside
== EVAL_SKIP
)
1822 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1827 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, EVAL_AVOID_SIDE_EFFECTS
);
1830 if (binop_user_defined_p (op
, arg1
, arg2
))
1832 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1833 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1837 tem
= value_logical_not (arg1
);
1838 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
,
1839 (tem
? EVAL_SKIP
: noside
));
1840 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
1841 return value_from_longest (type
,
1842 (LONGEST
) (!tem
&& !value_logical_not (arg2
)));
1845 case BINOP_LOGICAL_OR
:
1846 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1847 if (noside
== EVAL_SKIP
)
1849 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1854 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, EVAL_AVOID_SIDE_EFFECTS
);
1857 if (binop_user_defined_p (op
, arg1
, arg2
))
1859 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1860 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1864 tem
= value_logical_not (arg1
);
1865 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
,
1866 (!tem
? EVAL_SKIP
: noside
));
1867 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
1868 return value_from_longest (type
,
1869 (LONGEST
) (!tem
|| !value_logical_not (arg2
)));
1873 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1874 arg2
= evaluate_subexp (value_type (arg1
), exp
, pos
, noside
);
1875 if (noside
== EVAL_SKIP
)
1877 if (binop_user_defined_p (op
, arg1
, arg2
))
1879 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1883 tem
= value_equal (arg1
, arg2
);
1884 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
1885 return value_from_longest (type
, (LONGEST
) tem
);
1888 case BINOP_NOTEQUAL
:
1889 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1890 arg2
= evaluate_subexp (value_type (arg1
), exp
, pos
, noside
);
1891 if (noside
== EVAL_SKIP
)
1893 if (binop_user_defined_p (op
, arg1
, arg2
))
1895 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1899 tem
= value_equal (arg1
, arg2
);
1900 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
1901 return value_from_longest (type
, (LONGEST
) ! tem
);
1905 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1906 arg2
= evaluate_subexp (value_type (arg1
), exp
, pos
, noside
);
1907 if (noside
== EVAL_SKIP
)
1909 if (binop_user_defined_p (op
, arg1
, arg2
))
1911 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1915 tem
= value_less (arg1
, arg2
);
1916 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
1917 return value_from_longest (type
, (LONGEST
) tem
);
1921 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1922 arg2
= evaluate_subexp (value_type (arg1
), exp
, pos
, noside
);
1923 if (noside
== EVAL_SKIP
)
1925 if (binop_user_defined_p (op
, arg1
, arg2
))
1927 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1931 tem
= value_less (arg2
, arg1
);
1932 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
1933 return value_from_longest (type
, (LONGEST
) tem
);
1937 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1938 arg2
= evaluate_subexp (value_type (arg1
), exp
, pos
, noside
);
1939 if (noside
== EVAL_SKIP
)
1941 if (binop_user_defined_p (op
, arg1
, arg2
))
1943 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1947 tem
= value_less (arg2
, arg1
) || value_equal (arg1
, arg2
);
1948 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
1949 return value_from_longest (type
, (LONGEST
) tem
);
1953 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1954 arg2
= evaluate_subexp (value_type (arg1
), exp
, pos
, noside
);
1955 if (noside
== EVAL_SKIP
)
1957 if (binop_user_defined_p (op
, arg1
, arg2
))
1959 return value_x_binop (arg1
, arg2
, op
, OP_NULL
, noside
);
1963 tem
= value_less (arg1
, arg2
) || value_equal (arg1
, arg2
);
1964 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
1965 return value_from_longest (type
, (LONGEST
) tem
);
1969 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1970 arg2
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1971 if (noside
== EVAL_SKIP
)
1973 type
= check_typedef (value_type (arg2
));
1974 if (TYPE_CODE (type
) != TYPE_CODE_INT
)
1975 error (_("Non-integral right operand for \"@\" operator."));
1976 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
1978 return allocate_repeat_value (value_type (arg1
),
1979 longest_to_int (value_as_long (arg2
)));
1982 return value_repeat (arg1
, longest_to_int (value_as_long (arg2
)));
1985 evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1986 return evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1989 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1990 if (noside
== EVAL_SKIP
)
1992 if (unop_user_defined_p (op
, arg1
))
1993 return value_x_unop (arg1
, op
, noside
);
1995 return value_pos (arg1
);
1998 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
1999 if (noside
== EVAL_SKIP
)
2001 if (unop_user_defined_p (op
, arg1
))
2002 return value_x_unop (arg1
, op
, noside
);
2004 return value_neg (arg1
);
2006 case UNOP_COMPLEMENT
:
2007 /* C++: check for and handle destructor names. */
2008 op
= exp
->elts
[*pos
].opcode
;
2010 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
2011 if (noside
== EVAL_SKIP
)
2013 if (unop_user_defined_p (UNOP_COMPLEMENT
, arg1
))
2014 return value_x_unop (arg1
, UNOP_COMPLEMENT
, noside
);
2016 return value_complement (arg1
);
2018 case UNOP_LOGICAL_NOT
:
2019 arg1
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
2020 if (noside
== EVAL_SKIP
)
2022 if (unop_user_defined_p (op
, arg1
))
2023 return value_x_unop (arg1
, op
, noside
);
2026 type
= language_bool_type (exp
->language_defn
, exp
->gdbarch
);
2027 return value_from_longest (type
, (LONGEST
) value_logical_not (arg1
));
2031 if (expect_type
&& TYPE_CODE (expect_type
) == TYPE_CODE_PTR
)
2032 expect_type
= TYPE_TARGET_TYPE (check_typedef (expect_type
));
2033 arg1
= evaluate_subexp (expect_type
, exp
, pos
, noside
);
2034 type
= check_typedef (value_type (arg1
));
2035 if (TYPE_CODE (type
) == TYPE_CODE_METHODPTR
2036 || TYPE_CODE (type
) == TYPE_CODE_MEMBERPTR
)
2037 error (_("Attempt to dereference pointer to member without an object"));
2038 if (noside
== EVAL_SKIP
)
2040 if (unop_user_defined_p (op
, arg1
))
2041 return value_x_unop (arg1
, op
, noside
);
2042 else if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
2044 type
= check_typedef (value_type (arg1
));
2045 if (TYPE_CODE (type
) == TYPE_CODE_PTR
2046 || TYPE_CODE (type
) == TYPE_CODE_REF
2047 /* In C you can dereference an array to get the 1st elt. */
2048 || TYPE_CODE (type
) == TYPE_CODE_ARRAY
2050 return value_zero (TYPE_TARGET_TYPE (type
),
2052 else if (TYPE_CODE (type
) == TYPE_CODE_INT
)
2053 /* GDB allows dereferencing an int. */
2054 return value_zero (builtin_type_int
, lval_memory
);
2056 error (_("Attempt to take contents of a non-pointer value."));
2058 return value_ind (arg1
);
2061 /* C++: check for and handle pointer to members. */
2063 op
= exp
->elts
[*pos
].opcode
;
2065 if (noside
== EVAL_SKIP
)
2067 evaluate_subexp (NULL_TYPE
, exp
, pos
, EVAL_SKIP
);
2072 struct value
*retvalp
= evaluate_subexp_for_address (exp
, pos
, noside
);
2077 if (noside
== EVAL_SKIP
)
2079 evaluate_subexp (NULL_TYPE
, exp
, pos
, EVAL_SKIP
);
2082 return evaluate_subexp_for_sizeof (exp
, pos
);
2086 type
= exp
->elts
[pc
+ 1].type
;
2087 arg1
= evaluate_subexp (type
, exp
, pos
, noside
);
2088 if (noside
== EVAL_SKIP
)
2090 if (type
!= value_type (arg1
))
2091 arg1
= value_cast (type
, arg1
);
2096 arg1
= evaluate_subexp (expect_type
, exp
, pos
, noside
);
2097 if (noside
== EVAL_SKIP
)
2099 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
2100 return value_zero (exp
->elts
[pc
+ 1].type
, lval_memory
);
2102 return value_at_lazy (exp
->elts
[pc
+ 1].type
,
2103 value_as_address (arg1
));
2105 case UNOP_MEMVAL_TLS
:
2107 arg1
= evaluate_subexp (expect_type
, exp
, pos
, noside
);
2108 if (noside
== EVAL_SKIP
)
2110 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
2111 return value_zero (exp
->elts
[pc
+ 2].type
, lval_memory
);
2115 tls_addr
= target_translate_tls_address (exp
->elts
[pc
+ 1].objfile
,
2116 value_as_address (arg1
));
2117 return value_at_lazy (exp
->elts
[pc
+ 2].type
, tls_addr
);
2120 case UNOP_PREINCREMENT
:
2121 arg1
= evaluate_subexp (expect_type
, exp
, pos
, noside
);
2122 if (noside
== EVAL_SKIP
|| noside
== EVAL_AVOID_SIDE_EFFECTS
)
2124 else if (unop_user_defined_p (op
, arg1
))
2126 return value_x_unop (arg1
, op
, noside
);
2130 arg2
= value_from_longest (builtin_type_uint8
, (LONGEST
) 1);
2131 if (ptrmath_type_p (value_type (arg1
)))
2132 arg2
= value_ptradd (arg1
, arg2
);
2134 arg2
= value_binop (arg1
, arg2
, BINOP_ADD
);
2136 return value_assign (arg1
, arg2
);
2139 case UNOP_PREDECREMENT
:
2140 arg1
= evaluate_subexp (expect_type
, exp
, pos
, noside
);
2141 if (noside
== EVAL_SKIP
|| noside
== EVAL_AVOID_SIDE_EFFECTS
)
2143 else if (unop_user_defined_p (op
, arg1
))
2145 return value_x_unop (arg1
, op
, noside
);
2149 arg2
= value_from_longest (builtin_type_uint8
, (LONGEST
) 1);
2150 if (ptrmath_type_p (value_type (arg1
)))
2151 arg2
= value_ptrsub (arg1
, arg2
);
2153 arg2
= value_binop (arg1
, arg2
, BINOP_SUB
);
2155 return value_assign (arg1
, arg2
);
2158 case UNOP_POSTINCREMENT
:
2159 arg1
= evaluate_subexp (expect_type
, exp
, pos
, noside
);
2160 if (noside
== EVAL_SKIP
|| noside
== EVAL_AVOID_SIDE_EFFECTS
)
2162 else if (unop_user_defined_p (op
, arg1
))
2164 return value_x_unop (arg1
, op
, noside
);
2168 arg2
= value_from_longest (builtin_type_uint8
, (LONGEST
) 1);
2169 if (ptrmath_type_p (value_type (arg1
)))
2170 arg2
= value_ptradd (arg1
, arg2
);
2172 arg2
= value_binop (arg1
, arg2
, BINOP_ADD
);
2174 value_assign (arg1
, arg2
);
2178 case UNOP_POSTDECREMENT
:
2179 arg1
= evaluate_subexp (expect_type
, exp
, pos
, noside
);
2180 if (noside
== EVAL_SKIP
|| noside
== EVAL_AVOID_SIDE_EFFECTS
)
2182 else if (unop_user_defined_p (op
, arg1
))
2184 return value_x_unop (arg1
, op
, noside
);
2188 arg2
= value_from_longest (builtin_type_uint8
, (LONGEST
) 1);
2189 if (ptrmath_type_p (value_type (arg1
)))
2190 arg2
= value_ptrsub (arg1
, arg2
);
2192 arg2
= value_binop (arg1
, arg2
, BINOP_SUB
);
2194 value_assign (arg1
, arg2
);
2200 return value_of_this (1);
2204 return value_of_local ("self", 1);
2207 /* The value is not supposed to be used. This is here to make it
2208 easier to accommodate expressions that contain types. */
2210 if (noside
== EVAL_SKIP
)
2212 else if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
2213 return allocate_value (exp
->elts
[pc
+ 1].type
);
2215 error (_("Attempt to use a type name as an expression"));
2218 /* Removing this case and compiling with gcc -Wall reveals that
2219 a lot of cases are hitting this case. Some of these should
2220 probably be removed from expression.h; others are legitimate
2221 expressions which are (apparently) not fully implemented.
2223 If there are any cases landing here which mean a user error,
2224 then they should be separate cases, with more descriptive
2228 GDB does not (yet) know how to evaluate that kind of expression"));
2232 return value_from_longest (builtin_type_long
, (LONGEST
) 1);
2235 /* Evaluate a subexpression of EXP, at index *POS,
2236 and return the address of that subexpression.
2237 Advance *POS over the subexpression.
2238 If the subexpression isn't an lvalue, get an error.
2239 NOSIDE may be EVAL_AVOID_SIDE_EFFECTS;
2240 then only the type of the result need be correct. */
2242 static struct value
*
2243 evaluate_subexp_for_address (struct expression
*exp
, int *pos
,
2253 op
= exp
->elts
[pc
].opcode
;
2259 x
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
2261 /* We can't optimize out "&*" if there's a user-defined operator*. */
2262 if (unop_user_defined_p (op
, x
))
2264 x
= value_x_unop (x
, op
, noside
);
2265 goto default_case_after_eval
;
2272 return value_cast (lookup_pointer_type (exp
->elts
[pc
+ 1].type
),
2273 evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
));
2276 var
= exp
->elts
[pc
+ 2].symbol
;
2278 /* C++: The "address" of a reference should yield the address
2279 * of the object pointed to. Let value_addr() deal with it. */
2280 if (TYPE_CODE (SYMBOL_TYPE (var
)) == TYPE_CODE_REF
)
2284 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
2287 lookup_pointer_type (SYMBOL_TYPE (var
));
2288 enum address_class sym_class
= SYMBOL_CLASS (var
);
2290 if (sym_class
== LOC_CONST
2291 || sym_class
== LOC_CONST_BYTES
2292 || sym_class
== LOC_REGISTER
)
2293 error (_("Attempt to take address of register or constant."));
2296 value_zero (type
, not_lval
);
2298 else if (symbol_read_needs_frame (var
))
2302 block_innermost_frame (exp
->elts
[pc
+ 1].block
));
2304 return locate_var_value (var
, NULL
);
2307 tem
= longest_to_int (exp
->elts
[pc
+ 2].longconst
);
2308 (*pos
) += 5 + BYTES_TO_EXP_ELEM (tem
+ 1);
2309 x
= value_aggregate_elt (exp
->elts
[pc
+ 1].type
,
2310 &exp
->elts
[pc
+ 3].string
,
2313 error (_("There is no field named %s"), &exp
->elts
[pc
+ 3].string
);
2318 x
= evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
2319 default_case_after_eval
:
2320 if (noside
== EVAL_AVOID_SIDE_EFFECTS
)
2322 struct type
*type
= check_typedef (value_type (x
));
2324 if (VALUE_LVAL (x
) == lval_memory
|| value_must_coerce_to_target (x
))
2325 return value_zero (lookup_pointer_type (value_type (x
)),
2327 else if (TYPE_CODE (type
) == TYPE_CODE_REF
)
2328 return value_zero (lookup_pointer_type (TYPE_TARGET_TYPE (type
)),
2331 error (_("Attempt to take address of value not located in memory."));
2333 return value_addr (x
);
2337 /* Evaluate like `evaluate_subexp' except coercing arrays to pointers.
2338 When used in contexts where arrays will be coerced anyway, this is
2339 equivalent to `evaluate_subexp' but much faster because it avoids
2340 actually fetching array contents (perhaps obsolete now that we have
2343 Note that we currently only do the coercion for C expressions, where
2344 arrays are zero based and the coercion is correct. For other languages,
2345 with nonzero based arrays, coercion loses. Use CAST_IS_CONVERSION
2346 to decide if coercion is appropriate.
2351 evaluate_subexp_with_coercion (struct expression
*exp
,
2352 int *pos
, enum noside noside
)
2360 op
= exp
->elts
[pc
].opcode
;
2365 var
= exp
->elts
[pc
+ 2].symbol
;
2366 if (TYPE_CODE (check_typedef (SYMBOL_TYPE (var
))) == TYPE_CODE_ARRAY
2367 && CAST_IS_CONVERSION
)
2372 (var
, block_innermost_frame (exp
->elts
[pc
+ 1].block
));
2373 return value_cast (lookup_pointer_type (TYPE_TARGET_TYPE (check_typedef (SYMBOL_TYPE (var
)))),
2379 return evaluate_subexp (NULL_TYPE
, exp
, pos
, noside
);
2383 /* Evaluate a subexpression of EXP, at index *POS,
2384 and return a value for the size of that subexpression.
2385 Advance *POS over the subexpression. */
2387 static struct value
*
2388 evaluate_subexp_for_sizeof (struct expression
*exp
, int *pos
)
2390 /* FIXME: This should be size_t. */
2391 struct type
*size_type
= builtin_type (exp
->gdbarch
)->builtin_int
;
2398 op
= exp
->elts
[pc
].opcode
;
2402 /* This case is handled specially
2403 so that we avoid creating a value for the result type.
2404 If the result type is very big, it's desirable not to
2405 create a value unnecessarily. */
2408 val
= evaluate_subexp (NULL_TYPE
, exp
, pos
, EVAL_AVOID_SIDE_EFFECTS
);
2409 type
= check_typedef (value_type (val
));
2410 if (TYPE_CODE (type
) != TYPE_CODE_PTR
2411 && TYPE_CODE (type
) != TYPE_CODE_REF
2412 && TYPE_CODE (type
) != TYPE_CODE_ARRAY
)
2413 error (_("Attempt to take contents of a non-pointer value."));
2414 type
= check_typedef (TYPE_TARGET_TYPE (type
));
2415 return value_from_longest (size_type
, (LONGEST
) TYPE_LENGTH (type
));
2419 type
= check_typedef (exp
->elts
[pc
+ 1].type
);
2420 return value_from_longest (size_type
, (LONGEST
) TYPE_LENGTH (type
));
2424 type
= check_typedef (SYMBOL_TYPE (exp
->elts
[pc
+ 2].symbol
));
2426 value_from_longest (size_type
, (LONGEST
) TYPE_LENGTH (type
));
2429 val
= evaluate_subexp (NULL_TYPE
, exp
, pos
, EVAL_AVOID_SIDE_EFFECTS
);
2430 return value_from_longest (size_type
,
2431 (LONGEST
) TYPE_LENGTH (value_type (val
)));
2435 /* Parse a type expression in the string [P..P+LENGTH). */
2438 parse_and_eval_type (char *p
, int length
)
2440 char *tmp
= (char *) alloca (length
+ 4);
2441 struct expression
*expr
;
2443 memcpy (tmp
+ 1, p
, length
);
2444 tmp
[length
+ 1] = ')';
2445 tmp
[length
+ 2] = '0';
2446 tmp
[length
+ 3] = '\0';
2447 expr
= parse_expression (tmp
);
2448 if (expr
->elts
[0].opcode
!= UNOP_CAST
)
2449 error (_("Internal error in eval_type."));
2450 return expr
->elts
[1].type
;
2454 calc_f77_array_dims (struct type
*array_type
)
2457 struct type
*tmp_type
;
2459 if ((TYPE_CODE (array_type
) != TYPE_CODE_ARRAY
))
2460 error (_("Can't get dimensions for a non-array type"));
2462 tmp_type
= array_type
;
2464 while ((tmp_type
= TYPE_TARGET_TYPE (tmp_type
)))
2466 if (TYPE_CODE (tmp_type
) == TYPE_CODE_ARRAY
)