Re: Quad FX library_function causes stack trace

[Dr . Jürgen Sauermann]

    Hi Hans-Peter,
      
      thanks, see below.
    
    Best Regards,
    Jürgen

On 12/4/20 10:54 AM, Hans-Peter Sorge wrote:

> Hi,
>       
>       
>       
>       ⎕FX  'library_function'     should probably return 'Domain Error'
>       
>       
>     
    No. It defines a niladic function named library_function with an
    empty function body.
>       
>             'libedif2.so' ⎕fx 'edif2'
>       
>       edif2
>       
>       
>       
>       ⍝ just happened to be an accident ...
>       
>       
>             ⎕fx 'edif2'
>       
>       
> ==============================================================================
>       
>       Assertion failed: old_ufun
>       
>       in Function:      fix
>       
>       in file:          UserFunction.cc:1107
>       
>       
>       Call stack:
>       
>       
>       ----------------------------------------
>       
>       -- Stack trace at UserFunction.cc:1107
>       
>       ----------------------------------------
>       
>       0x7FE67C931042 __libc_start_main
>       
>       0x4EC976  main
>       
>       0x68686B   Workspace::immediate_execution(bool)
>       
>       0x548F48    Command::process_line()
>       
>       0x5490F4     Command::process_line(UCS_string&)
>       
>       0x54B47D      Command::do_APL_expression(UCS_string&)
>       
>       0x54B7FC       Command::finish_context()
>       
>       0x5697CF        Executable::execute_body() const
>       
>       0x62D3F6         StateIndicator::run()
>       
>       0x59E814          Prefix::reduce_statements()
>       
>       0x59F3C0           Prefix::reduce_MISC_F_B_()
>       
>       0x5F48AA            Quad_FX::eval_B(Value_P) const
>       
>       0x5F55EB             Quad_FX::do_quad_FX(int const*, Value_P,
>       UTF8_string const&, bool)
>       
>       0x5F5725              Quad_FX::do_quad_FX(int const*, UCS_string
>       const&, UTF8_string const&, bool)
>       
>       0x66C016               UserFunction::fix(UCS_string const&,
>       int&, bool, char const*, UTF8_string const&, bool)
>       
>       0x509DE9                do_Assert(char const*, char const*, char
>       const*, int)
>       
>       ========================================
>       
>       
>       SI stack:
>       
>       
>       Depth:      0
>       
>       Exec:       0x1b6ace0
>       
>       Safe exec:  0
>       
>       Pmode:      ◊  ⎕fx 'edif2'
>       
>       PC:         3 (4) RETURN_STATS
>       
>       Stat:       ⎕fx 'edif2'
>       
>       err_code:   0x0
>       
>       
>       
> ==============================================================================
>       
>       
>     
    fixed in SVN 1369.
    
> Best
>       Regards
>       
>       Hans-Peter
>       
>