[Bug-apl] 1 2 3 + 3 ⍬ 5

[Hudson Flavio Meneses Lacerda]

Hi.


This is not the newest CVS version, but, if the bug still exists, the
test is simple enough:

      29⎕cr 1 2 3 +¨ 3 '' 5
┏→━━━━━━┓
┃4 ┏⊖┓ 8┃
┃  ┃0┃  ┃
┃  ┗━┛  ┃
┗∊━━━━━━┛


    1 2 3 + 3 ⍬ 5   

==============================================================================
Assertion failed: !sub_val->is_simple_scalar()
in Function:      PointerCell
in file:          PointerCell.cc:30

Call stack:

----------------------------------------
-- Stack trace at PointerCell.cc:30
----------------------------------------
0xB7081A63 __libc_start_main
0x808FA86  main
0x8294C35   Workspace::immediate_execution(bool)
0x80FAC94    Command::process_line()
0x80FB5EA     Command::do_APL_expression(UCS_string&)
0x80FADB3      Command::finish_context()
0x8109E48       Executable::execute_body() const
0x82140CC        StateIndicator::run()
0x81675F5         Prefix::reduce_statements()
0x81605A0          Prefix::reduce_A_F_B_()
0x820EB89           Bif_F12_PLUS::eval_AB(Value_P, Value_P)
0x8208161            ScalarFunction::eval_scalar_AB(Value_P, Value_P,
ErrorCode (Cell::*)(Cell*, Cell const*) const) 0x82078EF
ScalarFunction::do_scalar_AB(ErrorCode&, Value_P, Value_P, ErrorCode
(Cell::*)(Cell*, Cell const*) const) 0x8169254
PointerCell::PointerCell(Value*, Value&) 0x80A6791
do_Assert(char const*, char const*, char const*, int)
========================================

SI stack:

Depth:      2
Exec:       0x9b13208
Safe exec:  0
Pmode:      ◊  1 2 3 + 3 '' 5
PC:         3 (5) ENDL
Stat:       1 2 3 + 3 '' 5
err_code:   0x0

Depth:      1
Exec:       0x9afe9e8
Safe exec:  0
Pmode:      ◊  1 2 3 + 3 ⍬ 5
PC:         5 (7) ENDL
Stat:       1 2 3 + 3 ⍬ 5
err_code:   0xA01
thrown at:  PointerCell.cc:30
e_msg_1:    'Assertion failed'
e_msg_2:    ''
e_msg_3:    ''

Depth:      0
Exec:       0x9b0fb78
Safe exec:  0
Pmode:      ◊  1 2 3 + 3 ⍬ 5
PC:         5 (7) ENDL
Stat:       1 2 3 + 3 ⍬ 5
err_code:   0xA01
thrown at:  PointerCell.cc:30
e_msg_1:    'Assertion failed'
e_msg_2:    ''
e_msg_3:    ''


==============================================================================