espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-10-16 20:32:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

* eval.c (evaluate_subexp, case UNOP_LOGNOT): If following opcode

Browse Source 
is OP_SCOPE, give an error.
	* eval.c (evaluate_subexp): Pass third arg to lookup_struct_elt_type.
	* eval.c (evaluate_subexp), values.c (value_virtual_fn_field):
	Don't bother to do anything with
	return value from fill_in_vptr_fieldno.
	* eval.c (evaluate_subexp): If value_static_field returns NULL,
	give an error.
This commit is contained in:
Jim Kingdon
1991-04-26 22:59:54 +00:00
parent 62c4f98b2b
commit 5f00ca54af
1 changed files with 20 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
gdb/eval.c
View File

@ -17,6 +17,7 @@ You should have received a copy of the GNU General Public License
along with GDB; see the file COPYING. If not, write to along with GDB; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#include <stdio.h>
#include "defs.h" #include "defs.h"
#include "param.h" #include "param.h"
#include "symtab.h" #include "symtab.h"
@ -160,8 +161,11 @@ evaluate_subexp (expect_type, exp, pos, noside)
tem = strlen (&exp->elts[pc + 2].string); tem = strlen (&exp->elts[pc + 2].string);
(*pos) += 3 + ((tem + sizeof (union exp_element)) (*pos) += 3 + ((tem + sizeof (union exp_element))
/ sizeof (union exp_element)); / sizeof (union exp_element));
return value_static_field (exp->elts[pc + 1].type, arg1 = value_static_field (exp->elts[pc + 1].type,
&exp->elts[pc + 2].string, -1); &exp->elts[pc + 2].string, -1);
if (arg1 == NULL)
error ("There is no field named %s", &exp->elts[pc + 2].string);
return arg1;
case OP_LONG: case OP_LONG:
(*pos) += 3; (*pos) += 3;
@ -272,6 +276,7 @@ evaluate_subexp (expect_type, exp, pos, noside)
arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
fnptr = (int) value_as_long (arg1); fnptr = (int) value_as_long (arg1);
/* FIXME-tiemann: this is way obsolete. */
if (fnptr < 128) if (fnptr < 128)
{ {
struct type *basetype; struct type *basetype;
@ -291,8 +296,7 @@ evaluate_subexp (expect_type, exp, pos, noside)
struct type *fntype = lookup_pointer_type (TYPE_FN_FIELD_TYPE (f, j)); struct type *fntype = lookup_pointer_type (TYPE_FN_FIELD_TYPE (f, j));
if (TYPE_VPTR_FIELDNO (basetype) < 0) if (TYPE_VPTR_FIELDNO (basetype) < 0)
TYPE_VPTR_FIELDNO (basetype) fill_in_vptr_fieldno (basetype);
= fill_in_vptr_fieldno (basetype);
VALUE_TYPE (base) = basetype; VALUE_TYPE (base) = basetype;
vtbl = value_field (base, TYPE_VPTR_FIELDNO (basetype)); vtbl = value_field (base, TYPE_VPTR_FIELDNO (basetype));
@ -413,7 +417,8 @@ evaluate_subexp (expect_type, exp, pos, noside)
goto nosideret; goto nosideret;
if (noside == EVAL_AVOID_SIDE_EFFECTS) if (noside == EVAL_AVOID_SIDE_EFFECTS)
return value_zero (lookup_struct_elt_type (VALUE_TYPE (arg1), return value_zero (lookup_struct_elt_type (VALUE_TYPE (arg1),
&exp->elts[pc + 1].string), &exp->elts[pc + 1].string,
1),
lval_memory); lval_memory);
else else
{ {
@ -431,7 +436,8 @@ evaluate_subexp (expect_type, exp, pos, noside)
if (noside == EVAL_AVOID_SIDE_EFFECTS) if (noside == EVAL_AVOID_SIDE_EFFECTS)
return value_zero (lookup_struct_elt_type (TYPE_TARGET_TYPE return value_zero (lookup_struct_elt_type (TYPE_TARGET_TYPE
(VALUE_TYPE (arg1)), (VALUE_TYPE (arg1)),
&exp->elts[pc + 1].string), &exp->elts[pc + 1].string,
1),
lval_memory); lval_memory);
else else
{ {
@ -725,11 +731,18 @@ evaluate_subexp (expect_type, exp, pos, noside)
return value_neg (arg1); return value_neg (arg1);
case UNOP_LOGNOT: case UNOP_LOGNOT:
/* C++: check for and handle destructor names. */
op = exp->elts[*pos].opcode;
/* FIXME-tiemann: this is a cop-out. */
if (op == OP_SCOPE)
error ("destructor in eval");
arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside); arg1 = evaluate_subexp (NULL_TYPE, exp, pos, noside);
if (noside == EVAL_SKIP) if (noside == EVAL_SKIP)
goto nosideret; goto nosideret;
if (unop_user_defined_p (op, arg1)) if (unop_user_defined_p (UNOP_LOGNOT, arg1))
return value_x_unop (arg1, op); return value_x_unop (arg1, UNOP_LOGNOT);
else else
return value_lognot (arg1); return value_lognot (arg1);