[Maxima-bugs] [ maxima-Bugs-2961822 ] sinh(0.0b0) causes Maxima to abort

[SourceForge.net <no...@so...>]

Bugs item #2961822, was opened at 2010-03-02 04:07
Message generated for change (Comment added) made by willisbl
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=2961822&group_id=4933

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: Lisp Core - Trigonometry
Group: None
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Charles Karney (karney)
Assigned to: Nobody/Anonymous (nobody)
Summary: sinh(0.0b0) causes Maxima to abort

Initial Comment:
Evaluating sinh(0.0b0) causes Maxima to abort...

$ maxima
Maxima 5.20.1 http://maxima.sourceforge.net
using Lisp CLISP 2.47 (2008-10-23)
(%i1) sinh(0.0b0);

*** - Program stack overflow. RESET
[../src/eval.d:573] reset() found no driver frame (sp=0xbfe7af20-0xbfe751a0)
Exiting on signal 6
Aborted

Maxima version: 5.20.1
Maxima build date: 2:53 1/3/2010
Host type: i386-redhat-linux-gnu
Lisp implementation type: CLISP
Lisp implementation version: 2.47 (2008-10-23) (built on x86-01.phx2.fedoraproject.org)


----------------------------------------------------------------------

>Comment By: Barton Willis (willisbl)
Date: 2010-03-02 06:09

Message:
Thanks for this bug report. I think the bug can be eliminated by inserting
a check 
on the simp flag  (similar to the checks for simp-%cosh, for example). But
I also
think that the simp flag check in all the trig-like functions is patching
a bug that
is somewhere else.

(defmfun simp-%sinh (form y z) 
  (oneargcheck form)
  (setq y (simpcheck (cadr form) z))
  (cond ((flonum-eval (mop form) y))
	((and (not (member 'simp (car form))) (big-float-eval (mop form) y)))

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=104933&aid=2961822&group_id=4933