libapl with fpc (free pascal)

[enztec]

Hi,

thank you for this information about how )copy works.

since it was such a simple idea to get )copy working with libapl i went back to 
my libapl with fpc (free pascal) coding to get it working there.

i was able to write a sinple file reading procedure in fpc to have a copy 
procedure for my libapl with fpc
i'll leave writing the file reading code for libapl with c and libapl with 
python to others

i wrote a freepascal library unit that allows everything i want to run with 
libapl with fpc (especiall your apl_exec('rs←(a,¨b)⌷¨⊂ar'); code with no 
problems so i was very surprised when demoing my code that the folloing simple 
code runtime exceptions resulted

there are only 2 problem apl code locations for these errors

just to clarify these errors only occur (along with the ⎕pw divide by zero 
error which i resolved in src/UCS_string.cc a few years ago with your help) 
with libapl with fpc - the only problems with libapl c and python were the 
)copy problem

-

libapl.pas  +1 and 1+1 and (1 2 3)=1 2 3

An unhandled exception occurred at $B7639BE7:
EAccessViolation: Access violation
  $B7639BE7
  $B763A33A
  $B76415DB
  $B75A1C76
  $B76448B4
  $B7551D0C
  $B75527E2
  $B7551698
  $080489EB  main,  line 86 of libapl.pas

gdb libapl

(gdb) run
Program received signal SIGSEGV, Segmentation fault.
Parallel_job_list<PJob_scalar_B, false>::start (loc=0xb7ef29a3 
"ScalarFunction.cc:157", first_job=..., this=0x2c) at PJob.hh:261
261        /// set current job. CAUTION: jobs may be modified by the

(gdb) where
#0  0xb7e38be7 in Parallel_job_list<PJob_scalar_B, false>::start(PJob_scalar_B 
const&, char const*)
    (loc=0xb7ef29a3 "ScalarFunction.cc:157", first_job=..., this=0x2c) at 
PJob.hh:261
#1  0xb7e38be7 in ScalarFunction::do_scalar_B(ErrorCode&, Value const&, 
ErrorCode (Cell::*)(Cell*) const) const
    (this=0xb7f81420 <Bif_F12_PLUS::_fun>, ec=@0xbfffefa8: E_NO_ERROR, B=..., 
fun=<optimized out>) at ScalarFunction.cc:157
#2  0xb7e3933a in ScalarFunction::eval_scalar_B(Value const&, ErrorCode 
(Cell::*)(Cell*) const) const
    (this=0xb7f81420 <Bif_F12_PLUS::_fun>, B=..., fun=&virtual table offset 
156) at ScalarFunction.cc:130
#3  0xb7e405db in Bif_F12_PLUS::eval_B(Value_P) const (this=0xb7f81420 
<Bif_F12_PLUS::_fun>, B=...) at ScalarFunction.hh:800
#4  0xb7d9f364 in Prefix::reduce_MISC_F_B_() (this=0x80f3a68) at Prefix.cc:975
#5  0xb7da0c76 in Prefix::reduce_statements() (this=<optimized out>) at 
Prefix.cc:706
#6  0xb7e438b4 in StateIndicator::run() (this=0x80f3448) at 
StateIndicator.cc:357
#7  0xb7d5dcdb in Executable::execute_body() const (this=0x80ee5e0) at 
Executable.cc:261
#8  0xb7d50d0c in Command::finish_context() () at Command.cc:343
#9  0xb7d517e2 in Command::do_APL_expression(UCS_string&) (line=...) at 
Command.cc:331
#10 0xb7d50698 in Command::process_line(UCS_string&) (line=...) at 
Command.cc:141
#11 0xb7ec298b in apl_exec(char const*) (line=0x809edca <_$LIBAPL$_Ld33+2> "") 
at libapl.cc:363
#12 0x080489eb in main () at libapl.pas:86

-

libapl.pas  a[⍳4]+.=b[⍳4] and a+.=b

An unhandled exception occurred at $B7512726:
EAccessViolation: Access violation
  $B7512726

(gdb) run
Program received signal SIGSEGV, Segmentation fault.
0xb7d1a726 in Bif_OPER2_INNER::PF_scalar_inner_product (tctx=...) at 
Bif_OPER2_INNER.cc:250
250     ShapeItem z = tctx.get_N() * slice_len;

(gdb) where
#0  0xb7d1a726 in Bif_OPER2_INNER::PF_scalar_inner_product(Thread_context&) 
(tctx=...) at Bif_OPER2_INNER.cc:250
#1  0xb7d1c22d in Bif_OPER2_INNER::scalar_inner_product() const 
(this=0xbffff058) at Bif_OPER2_INNER.cc:235
#2  0xb7d1c22d in Bif_OPER2_INNER::eval_ALRB(Value_P, Token&, Token&, Value_P) 
const
    (this=0xb7f74200 <Bif_OPER2_INNER::_fun>, A=..., _LO=..., _RO=..., B=...) 
at Bif_OPER2_INNER.cc:141
#3  0xb7d5a939 in DerivedFunction::eval_AB(Value_P, Value_P) const 
(this=0x80f3448, A=..., B=...) at DerivedFunction.cc:216
#4  0xb7d9e163 in Prefix::reduce_A_F_B_() (this=0x80f3a68) at Prefix.cc:1177
#5  0xb7da0c76 in Prefix::reduce_statements() (this=<optimized out>) at 
Prefix.cc:706
#6  0xb7e438b4 in StateIndicator::run() (this=0x80f3448) at 
StateIndicator.cc:357
#7  0xb7d5dcdb in Executable::execute_body() const (this=0x80ee510) at 
Executable.cc:261
#8  0xb7d50d0c in Command::finish_context() () at Command.cc:343
#9  0xb7d517e2 in Command::do_APL_expression(UCS_string&) (line=...) at 
Command.cc:331
#10 0xb7d50698 in Command::process_line(UCS_string&) (line=...) at 
Command.cc:141
#11 0xb7ec298b in apl_exec(char const*) (line=0x809ede1 <_$LIBAPL$_Ld36+17> "") 
at libapl.cc:363
#12 0x08048a60 in main () at libapl.pas:104

---