Hi Hans-Peter,
thanks, fixed in SVN1237.
The interpreter should have rejected editing of the function since
it was
located on the SI stack. It now complains with )MORE telling
what to do.
Best Regards,
Jürgen
On 3/1/20 2:45 PM, Hans-Peter Sorge
wrote:
Hi,
it rarely happens - here is one.....
[joy@joyw520 ~]$ apl
______ _ __ __ __ ___ ____ __
/ ____// | / // / / / / | / __ \ / /
/ / __ / |/ // / / / / /| | / /_/ // /
/ /_/ // /| // /_/ / / ___ | / ____// /___
\____//_/ |_/ \____/ /_/ |_|/_/ /_____/
Welcome to GNU APL version 1.8 / 1236M
Copyright (C) 2008-2019 Dr. Jürgen Sauermann
Banner by FIGlet: www.figlet.org
This program comes with ABSOLUTELY NO WARRANTY;
for details run: apl --gpl.
This program is free software, and you are welcome to
redistribute it
according to the GNU Public License (GPL) version 3 or
later.
)WSID CORRUPTED_WS
WAS CLEAR WS
∇r←x p;s
[1] [1] s←⍳p
[2] [2] s,s+1
[3] ∇
⍝ A RATHER SIMPLE BUG the funktion does not return a
value.......:
⊃x¨⍳2
1 2
VALUE ERROR
μ-Z__LO_EACH_B[2] μ-Z[μ-N]←⊂μ-LO⊃μ-B[μ-N]
^
∇x[⎕]
∇
[0] r←x p;s
[1] s←⍳p
[2] s,s+1
∇
[3] [2] r←s,s+1
[3] ∇
⍝ FUNCTION x FIXED ...........................................:
)save
===================================================
SEGMENTATION FAULT
----------------------------------------
-- Stack trace at main.cc:88
----------------------------------------
0x7FC8D41811A3 __libc_start_main
0x4731B5 main
0x5CEF05 Workspace::immediate_execution(bool)
0x4BFE29 Command::process_line()
0x4BF9F4 Command::process_line(UCS_string&)
0x4BEFFE Command::do_APL_command(std::ostream&,
UCS_string&)
0x4B4DA4 Command::cmd_SAVE(std::ostream&,
UCS_string_vector const&)
0x5D4060 Workspace::save_WS(std::ostream&, LibRef,
UCS_string const&, bool)
0x47ECDA XML_Saving_Archive::save()
0x5CEF4B Workspace::unmark_all_values()
0x58BA28 SymbolTable::unmark_all_values() const
0x587B07 Symbol::unmark_all_values() const
0x7FC8D46F0B20
0x4798E7
========================================
====================================================
Goodbye.
Session duration: 145.381 seconds
[joy@joyw520 ~]$ apl
______ _ __ __ __ ___ ____ __
/ ____// | / // / / / / | / __ \ / /
/ / __ / |/ // / / / / /| | / /_/ // /
/ /_/ // /| // /_/ / / ___ | / ____// /___
\____//_/ |_/ \____/ /_/ |_|/_/ /_____/
Welcome to GNU APL version 1.8 / 1236M
Copyright (C) 2008-2019 Dr. Jürgen Sauermann
Banner by FIGlet: www.figlet.org
This program comes with ABSOLUTELY NO WARRANTY;
for details run: apl --gpl.
This program is free software, and you are welcome to
redistribute it
according to the GNU Public License (GPL) version 3 or
later.
⍝
OOPS..........................................................................:
)load CORRUPTED_WS
*** workspace file /home/joy/workspaces/CORRUPTED_WS.xml
seems to be incomplete (possibly caused by a crash on )SAVE?)
You may still be able to )COPY from it.
NOT COPIED
|