* ch-exp.y: Implement SIZE(mode_name) and SIZE(expression).
This commit is contained in:
parent
73cd3b4911
commit
58cda66eeb
@ -1,5 +1,7 @@
|
||||
Tue Mar 29 21:14:04 1994 Per Bothner (bothner@kalessin.cygnus.com)
|
||||
|
||||
* ch-exp.y: Implement SIZE(mode_name) and SIZE(expression).
|
||||
|
||||
* ch-lang.c (chill_is_varying_struct): Magic string is
|
||||
was "<var_length>" is now "__var_length" (more portable).
|
||||
|
||||
|
17
gdb/ch-exp.y
17
gdb/ch-exp.y
@ -295,7 +295,7 @@ yyerror PARAMS ((char *));
|
||||
%type <voidval> lower_element
|
||||
%type <voidval> upper_element
|
||||
%type <voidval> first_element
|
||||
%type <voidval> mode_argument
|
||||
%type <tval> mode_argument
|
||||
%type <voidval> upper_lower_argument
|
||||
%type <voidval> length_argument
|
||||
%type <voidval> array_mode_name
|
||||
@ -903,14 +903,13 @@ chill_value_built_in_routine_call :
|
||||
{
|
||||
$$ = 0; /* FIXME */
|
||||
}
|
||||
| SIZE '(' location ')'
|
||||
{
|
||||
$$ = 0; /* FIXME */
|
||||
}
|
||||
| SIZE '(' expression ')'
|
||||
{ write_exp_elt_opcode (UNOP_SIZEOF); }
|
||||
| SIZE '(' mode_argument ')'
|
||||
{
|
||||
$$ = 0; /* FIXME */
|
||||
}
|
||||
{ write_exp_elt_opcode (OP_LONG);
|
||||
write_exp_elt_type (builtin_type_int);
|
||||
write_exp_elt_longcst ((LONGEST) TYPE_LENGTH ($3));
|
||||
write_exp_elt_opcode (OP_LONG); }
|
||||
| UPPER '(' upper_lower_argument ')'
|
||||
{
|
||||
$$ = 0; /* FIXME */
|
||||
@ -927,7 +926,7 @@ chill_value_built_in_routine_call :
|
||||
|
||||
mode_argument : mode_name
|
||||
{
|
||||
$$ = 0; /* FIXME */
|
||||
$$ = $1.type;
|
||||
}
|
||||
| array_mode_name '(' expression ')'
|
||||
{
|
||||
|
Loading…
Reference in New Issue
Block a user