2011-02-28 Michael Snyder <msnyder@vmware.com>
* m2-lang.c (evaluate_subexp_modula2): Discard unused variable.
This commit is contained in:
parent
5b92b49f16
commit
976aa66e89
@ -1,5 +1,7 @@
|
|||||||
2011-02-28 Michael Snyder <msnyder@vmware.com>
|
2011-02-28 Michael Snyder <msnyder@vmware.com>
|
||||||
|
|
||||||
|
* m2-lang.c (evaluate_subexp_modula2): Discard unused variable.
|
||||||
|
|
||||||
* opencl-lang.c (evaluate_subexp_opencl): Discard unused value.
|
* opencl-lang.c (evaluate_subexp_opencl): Discard unused value.
|
||||||
|
|
||||||
* p-valprint.c (pascal_val_print): Discard unused value.
|
* p-valprint.c (pascal_val_print): Discard unused value.
|
||||||
|
@ -255,7 +255,7 @@ evaluate_subexp_modula2 (struct type *expect_type, struct expression *exp,
|
|||||||
if (value_type (arg1) != type)
|
if (value_type (arg1) != type)
|
||||||
arg1 = value_cast (type, arg1);
|
arg1 = value_cast (type, arg1);
|
||||||
|
|
||||||
type = check_typedef (value_type (arg1));
|
check_typedef (value_type (arg1));
|
||||||
return value_ind (value_ptradd (arg1, value_as_long (arg2)));
|
return value_ind (value_ptradd (arg1, value_as_long (arg2)));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
Loading…
Reference in New Issue
Block a user