Hi,

$ apl -q
/⍝ create, rather simple, content/
*     BUG←⊂⊂¨(1 2 0)⍴¨'X'

*/⍝ dump content/***
     )dump buggy
*2025-02-16  12:13:47 (GMT+1)

/⍝ and copy dumped content/**
*)copy buggy*
DUMPED 2025-02-16  12:13:47 (GMT+1)
/⍝ /() /related to ⊂ (enclose)?/
DOMAIN ERROR
     ((⎕IO+() 0 ())⊃BUG)←'X'
      ^                 ^
DOMAIN ERROR
     ((⎕IO+() 1 ())⊃BUG)←'XX'
      ^                 ^
DOMAIN ERROR
     ((⎕IO+() 2 ())⊃BUG)←' '
      ^                 ^
RANK ERROR
     ((⎕IO+() 2 ())⊃BUG)←0⍴((⎕IO+() 2 ())⊃BUG)
                            ^                ^
/     ⍝ created but empty
/*BUG*
0 0 0


/⍝ /() /related to ⊂ (enclose)?/
*BUG_TOO←2 2⍴⊂⊂¨(1 2 0)⍴¨'X'**
     BUG_TOO
***  X   XX         X   XX
  X   XX         X   XX

*)dump buggy*
2025-02-16  12:21:47 (GMT+1)

*     )copy buggy BUG_TOO*
DUMPED 2025-02-16  12:21:47 (GMT+1)
DOMAIN ERROR
     ((⎕IO+(0 0) 0 ())⊃BUG_TOO)←'X'
      ^                        ^
DOMAIN ERROR
     ((⎕IO+(0 0) 1 ())⊃BUG_TOO)←'XX'
      ^                        ^
DOMAIN ERROR
     ((⎕IO+(0 0) 2 ())⊃BUG_TOO)←' '
      ^                        ^
RANK ERROR
     ((⎕IO+(0 0) 2 ())⊃BUG_TOO)←0⍴((⎕IO+(0 0) 2 ())⊃BUG_TOO)
                                   ^                       ^
DOMAIN ERROR
     ((⎕IO+(0 1) 0 ())⊃BUG_TOO)←'X'
      ^                        ^
DOMAIN ERROR
     ((⎕IO+(0 1) 1 ())⊃BUG_TOO)←'XX'
      ^                        ^
DOMAIN ERROR
     ((⎕IO+(0 1) 2 ())⊃BUG_TOO)←' '
      ^                        ^
RANK ERROR
     ((⎕IO+(0 1) 2 ())⊃BUG_TOO)←0⍴((⎕IO+(0 1) 2 ())⊃BUG_TOO)
                                   ^                       ^
DOMAIN ERROR
     ((⎕IO+(1 0) 0 ())⊃BUG_TOO)←'X'
      ^                        ^
DOMAIN ERROR
     ((⎕IO+(1 0) 1 ())⊃BUG_TOO)←'XX'
      ^                        ^
DOMAIN ERROR
     ((⎕IO+(1 0) 2 ())⊃BUG_TOO)←' '
      ^                        ^
RANK ERROR
     ((⎕IO+(1 0) 2 ())⊃BUG_TOO)←0⍴((⎕IO+(1 0) 2 ())⊃BUG_TOO)
                                   ^                       ^
DOMAIN ERROR
     ((⎕IO+(1 1) 0 ())⊃BUG_TOO)←'X'
      ^                        ^
DOMAIN ERROR
     ((⎕IO+(1 1) 1 ())⊃BUG_TOO)←'XX'
      ^                        ^
DOMAIN ERROR
     ((⎕IO+(1 1) 2 ())⊃BUG_TOO)←' '
      ^                        ^
RANK ERROR
     ((⎕IO+(1 1) 2 ())⊃BUG_TOO)←0⍴((⎕IO+(1 1) 2 ())⊃BUG_TOO)
                                   ^                       ^


*)SAVE buggy*
NOT SAVED: THIS WS IS CLEAR WS

*)WSID buggy2*
WAS CLEAR WS

*)save *
2025-02-16  12:31:44 (GMT+1)  buggy2

/⍝ May be //because of previous bug?/
*)load buggy2*

==============================================================================
Assertion failed: vid < int(values.size())
in Function:      read_Cells
in file:          Archive.cc:1893

C/C++ call stack:
*** useless apl.lines (no CXXFLAGS=-rdynamic -gdwarf-2)

----------------------------------------
-- Stack trace at Assert.cc:75
----------------------------------------
0x7fbca8f2a30b __libc_start_main
0x7fbca8f2a248
0x403e60   main
0x5d892d    Workspace::immediate_execution(bool)
0x45fef9     Command::process_line()
0x4600d5      Command::process_line(UCS_string&, std::ostream*)
0x460ab3       Command::do_APL_command(std::ostream&, UCS_string&)
0x46db33        Command::cmd_LOAD(std::ostream&, UCS_string_vector&, UCS_string&, bool) 0x5dc428         Workspace::load_WS(std::ostream&, LibRef, UCS_string const&, UCS_string&, bool)
0x4151fd          XML_Loading_Archive::read_Workspace(bool)
0x416cbb           XML_Loading_Archive::read_Ravel()
0x4163c1            XML_Loading_Archive::read_Cells(Value&, unsigned char const*)
0x423575             do_Assert(char const*, char const*, char const*, int)
========================================
========================================

SI stack:


==============================================================================
*** immediate_execution() caught other exception ***



Best Regards
Hans-Peter

Reply via email to