Mercurial > octave
comparison src/octave-value/ov.cc @ 15140:6ea86e1d0f5f
Support +=, -=, *=, ect. in JIT
* pt-jit.cc (jit-convert::visit_simple_assignment): Support more assignment
operators.
* ov.cc (octave_value::assign_op_to_binary_op): New function.
* ov.h (octave_value::assign_op_to_binary_op): New declaration.
| author | Max Brister <max@2bass.com> |
|---|---|
| date | Fri, 10 Aug 2012 12:23:32 -0500 |
| parents | 46b19589b593 |
| children |
comparison
equal
deleted
inserted
replaced
| 15136:eeaaac7c86b6 | 15140:6ea86e1d0f5f |
|---|---|
| 479 default: | 479 default: |
| 480 retval = "<unknown>"; | 480 retval = "<unknown>"; |
| 481 } | 481 } |
| 482 | 482 |
| 483 return retval; | 483 return retval; |
| 484 } | |
| 485 | |
| 486 octave_value::binary_op | |
| 487 octave_value::assign_op_to_binary_op (assign_op op) | |
| 488 { | |
| 489 switch (op) | |
| 490 { | |
| 491 case op_add_eq: | |
| 492 return op_add; | |
| 493 case op_sub_eq: | |
| 494 return op_sub; | |
| 495 case op_mul_eq: | |
| 496 return op_mul; | |
| 497 case op_div_eq: | |
| 498 return op_div; | |
| 499 case op_ldiv_eq: | |
| 500 return op_ldiv; | |
| 501 case op_pow_eq: | |
| 502 return op_pow; | |
| 503 case op_lshift_eq: | |
| 504 return op_lshift; | |
| 505 case op_rshift_eq: | |
| 506 return op_rshift; | |
| 507 case op_el_mul_eq: | |
| 508 return op_el_mul; | |
| 509 case op_el_div_eq: | |
| 510 return op_el_div; | |
| 511 case op_el_ldiv_eq: | |
| 512 return op_el_ldiv; | |
| 513 case op_el_pow_eq: | |
| 514 return op_el_pow; | |
| 515 case op_el_and_eq: | |
| 516 return op_el_and; | |
| 517 case op_el_or_eq: | |
| 518 return op_el_or; | |
| 519 default: | |
| 520 return unknown_binary_op; | |
| 521 } | |
| 522 | |
| 484 } | 523 } |
| 485 | 524 |
| 486 octave_value::assign_op | 525 octave_value::assign_op |
| 487 octave_value::binary_op_to_assign_op (binary_op op) | 526 octave_value::binary_op_to_assign_op (binary_op op) |
| 488 { | 527 { |