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 | 9d060d918bdabd30c51e0c2efa85ef78b5e8be8a (patch) | |
| tree | bb39f884b96efbad22ef0ca1957e900114e9e6c0 /perl_checker.src/parser.mly | |
| parent | 924739ea37144308b968db13b6302ed4e629a803 (diff) | |
| download | perl-MDK-Common-9d060d918bdabd30c51e0c2efa85ef78b5e8be8a.tar perl-MDK-Common-9d060d918bdabd30c51e0c2efa85ef78b5e8be8a.tar.gz perl-MDK-Common-9d060d918bdabd30c51e0c2efa85ef78b5e8be8a.tar.bz2 perl-MDK-Common-9d060d918bdabd30c51e0c2efa85ef78b5e8be8a.tar.xz perl-MDK-Common-9d060d918bdabd30c51e0c2efa85ef78b5e8be8a.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} |