diff options
Diffstat (limited to 'gdb/f-exp.y')
| -rw-r--r-- | gdb/f-exp.y | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gdb/f-exp.y b/gdb/f-exp.y index ce11b09..6608831 100644 --- a/gdb/f-exp.y +++ b/gdb/f-exp.y @@ -492,7 +492,7 @@ exp : '(' type ')' exp %prec UNARY exp : exp '%' name { - pstate->push_new<structop_operation> + pstate->push_new<fortran_structop_operation> (pstate->pop (), copy_name ($3)); } ; @@ -500,8 +500,8 @@ exp : exp '%' name exp : exp '%' name COMPLETE { structop_base_operation *op - = new structop_operation (pstate->pop (), - copy_name ($3)); + = new fortran_structop_operation (pstate->pop (), + copy_name ($3)); pstate->mark_struct_expression (op); pstate->push (operation_up (op)); } @@ -510,7 +510,8 @@ exp : exp '%' name COMPLETE exp : exp '%' COMPLETE { structop_base_operation *op - = new structop_operation (pstate->pop (), ""); + = new fortran_structop_operation (pstate->pop (), + ""); pstate->mark_struct_expression (op); pstate->push (operation_up (op)); } |