[system] / trunk / pg / lib / Parser / BOP / equality.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Parser/BOP/equality.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 5510 Revision 5511
… …
38 my $reduce = $equation->{context}{reduction}; 38 my $reduce = $equation->{context}{reduction};
39 if ($self->{lop}->isNeg && $self->{rop}->isNeg && $reduce->{'-x=-y'}) { 39 if ($self->{lop}->isNeg && $self->{rop}->isNeg && $reduce->{'-x=-y'}) {
40 $self = $self->Item("BOP")->new($equation,'=',$self->{lop}{op},$self->{rop}{op}); 40 $self = $self->Item("BOP")->new($equation,'=',$self->{lop}{op},$self->{rop}{op});
41 $self = $self->reduce; 41 $self = $self->reduce;
42 } 42 }
43 if ($self->{lop}->isNeg && $self->{rop}{isConstant} && 43 if ($self->{lop}->isNeg && $self->{rop}{isConstant} &&
44 $self->{rop}->isNumber && $reduce->{'-x=n'}) { 44 $self->{rop}->isNumber && $reduce->{'-x=n'}) {
45 $self = $self->Item("BOP")->new($equation,"=",$self->{lop}{op},Parser::UOP::Neg($self->{rop})); 45 $self = $self->Item("BOP")->new($equation,"=",$self->{lop}{op},Parser::UOP::Neg($self->{rop}));
46 $self = $self->reduce; 46 $self = $self->reduce;
47 } 47 }
48 return $self; 48 return $self;
Legend:
Removed from v.5510  
changed lines
  Added in v.5511
aubreyja at gmail dot com
 ViewVC Help
Powered by ViewVC 1.0.9