[Bug-apl] ⎕fio[26] bug when called with a directory name.

[Christian Robert]

      )save
2016-06-23  00:09:01 (GMT-4) fio
      df
  fio  ╔══════════╗
       ║fio       ║
       ║'' ⎕fio ''║
       ╚══════════╝
  errno  ╔════════════╗
         ║z←errno     ║
         ║z←⎕fio[1] ''║
         ╚════════════╝
  getcwd  ╔═════════╗
          ║z←getcwd ║
          ║z←⎕fio 30║
          ╚═════════╝
 ls←{⎕fio[29] ⍵}
 feof←{⎕fio[10] ⍵}
 fgetc←{⎕fio[9] ⍵}
 fclose←{⎕fio[4] ⍵}
 fstat←{⎕fio[18] ⍵}
 fsync←{⎕fio[17] ⍵}
 ftell←{⎕fio[12] ⍵}
 rmdir←{⎕fio[21] ⍵}
 accept←{⎕fio[35] ⍵}
 bind←{⍺ ⎕fio[33] ⍵}
 ferror←{⎕fio[11] ⍵}
 fflush←{⎕fio[16] ⍵}
 fgets←{⍺ ⎕fio[8] ⍵}
 fopen←{⍺ ⎕fio[3] ⍵}
 fread←{⍺ ⎕fio[6] ⍵}
 pclose←{⎕fio[25] ⍵}
 read←{⍺ ⎕fio[41] ⍵}
 recv←{⍺ ⎕fio[37] ⍵}
 select←{⎕fio[40] ⍵}
 send←{⍺ ⎕fio[38] ⍵}
 socket←{⎕fio[32] ⍵}
 unlink←{⎕fio[19] ⍵}
 fwrite←{⍺ ⎕fio[7] ⍵}
 ls_full←{⎕fio[28] ⍵}
 mkdir←{⍺ ⎕fio[20] ⍵}
 popen←{⍺ ⎕fio[24] ⍵}
 usend←{⍺ ⎕fio[39] ⍵}
 write←{⍺ ⎕fio[42] ⍵}
 access←{⍺ ⎕fio[31] ⍵}
 listen←{⍺ ⎕fio[34] ⍵}
 readfile←{⎕fio[26] ⍵}
 rename←{⍺ ⎕fio[27] ⍵}
 strerror←{⎕fio[2] |⍵}
 uwrite←{⍺ ⎕fio[43] ⍵}
 connect←{⍺ ⎕fio[36] ⍵}
 fseek_cur←{⍺ ⎕fio[14] ⍵}
 fseek_end←{⍺ ⎕fio[15] ⍵}
 fseek_set←{⍺ ⎕fio[13] ⍵}
 getpeername←{⎕fio[45] ⍵}
 getsockname←{⎕fio[44] ⍵}
 getsockopt←{⍺ ⎕fio[46] ⍵}
 setsockopt←{⍺ ⎕fio[47] ⍵}


      readfile "."


====================================================
SEGMENTATION FAULT

----------------------------------------
-- Stack trace at main.cc:64
----------------------------------------
0x7fccaa10c580 __libc_start_main
0x444715  main
0x57df5d   Workspace::immediate_execution(bool)
0x48a3c2    Command::process_line()
0x48a48a     Command::do_APL_expression(UCS_string&)
0x4950b5      Executable::execute_body() const
0x5275e0       StateIndicator::run()
0x4cbc28        Prefix::reduce_statements()
0x4caba1         Prefix::reduce_MISC_F_C_B()
0x50710b          Quad_FIO::eval_XB(Value_P, Value_P)
0x7fccaaf71a00
0x449967
========================================
====================================================

Goodbye.
address@hidden:/home/xtian] $