diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-08-12 01:04:59 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-08-12 01:04:59 +0000 |
| commit | 7952c6294c573fcd9328399b08d6d79dd28e605d (patch) | |
| tree | b192da8368104829f027d7bdf77c1d080dd59878 /perl_checker.src/parser.mly | |
| parent | ab10315e01cd4962d35c9fce53a667df409372f7 (diff) | |
| download | perl_checker-7952c6294c573fcd9328399b08d6d79dd28e605d.tar perl_checker-7952c6294c573fcd9328399b08d6d79dd28e605d.tar.gz perl_checker-7952c6294c573fcd9328399b08d6d79dd28e605d.tar.bz2 perl_checker-7952c6294c573fcd9328399b08d6d79dd28e605d.tar.xz perl_checker-7952c6294c573fcd9328399b08d6d79dd28e605d.zip | |
check lvalue validity
Diffstat (limited to 'perl_checker.src/parser.mly')
| -rw-r--r-- | perl_checker.src/parser.mly | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl_checker.src/parser.mly b/perl_checker.src/parser.mly index 10ad566..6a091ac 100644 --- a/perl_checker.src/parser.mly +++ b/perl_checker.src/parser.mly @@ -230,9 +230,9 @@ term: | term MULT_L_STR term {sp_same $2 $3; mcontext_check M_int $3; let pri = P_mul in to_Call_op_ (if mcontext_lower $1.mcontext M_string then M_string else M_list) pri "x" [prio_lo_concat $1; prio_lo_after pri $3] $1 $3} -| term ASSIGN term {sp_same $2 $3; let pri = P_assign in to_Call_op_ (mcontext_op_assign $1 $3) pri $2.any [$1.any.expr ; prio_lo_after pri $3] $1 $3} +| term ASSIGN term {sp_same $2 $3; let pri = P_assign in to_Call_assign_op_ (mcontext_op_assign $1 $3) pri $2.any ($1.any.expr) (prio_lo_after pri $3) $1 $3} -| term ASSIGN BRACKET expr_bracket_end {sp_p($2); sp_p($3); sp_p($4); to_Call_op_ (M_mixed [M_ref M_hash; M_none]) P_assign $2.any [prio_lo P_assign $1; $4.any] $1 $4} +| term ASSIGN BRACKET expr_bracket_end {sp_p($2); sp_p($3); sp_p($4); to_Call_assign_op_ (M_mixed [M_ref M_hash; M_none]) P_assign $2.any (prio_lo P_assign $1) $4.any $1 $4} | term AND_TIGHT BRACKET expr_bracket_end {sp_p($2); sp_p($3); sp_p($4); to_Call_op_ M_bool P_tight_and "&&" [prio_lo P_assign $1; $4.any] $1 $4} | term OR_TIGHT BRACKET expr_bracket_end {sp_p($2); sp_p($3); sp_p($4); to_Call_op_ M_bool P_tight_or "||" [prio_lo P_assign $1; $4.any] $1 $4} |