Article View: gnu.emacs.bug
Article #99030Bug in safe-idiv in cl.el
From: Johan Bevemyr
Date: Wed, 28 Nov 1990 07:57
Date: Wed, 28 Nov 1990 07:57
26 lines
1590 bytes
1590 bytes
The following patch should be applied to cl.el so that safe-idiv
works without overflowing as easily as before. NOTE: this is not
an official patch just something I came across when I programmed.
Possebly something should be done to (- a (* (* s q) b)) to keep
it from overflowing as well.
Regards, Johan.
*** cl.el Wed Nov 28 18:37:05 1990
--- cl.el.org Wed Nov 28 18:45:07 1990
***************
*** 1620,1626 ****
(let* ((absa (abs a))
(absb (abs b))
(q (/ absa absb))
! (s (signum (* (signum a) (signum b))))
(r (- a (* (* s q) b))))
(values q r s)))
--- 1620,1626 ----
(let* ((absa (abs a))
(absb (abs b))
(q (/ absa absb))
! (s (signum (* a b)))
(r (- a (* (* s q) b))))
(values q r s)))
Technical Details
Message-ID:
<6124@munnari.oz.au>Path:
arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!munnari.oz.au!uhccux!ames!elroy.jpl.nasa.gov!sdd.hp.com!wuarchive!cs.utexas.edu!tut.cis.ohio-state.edu!socs.uts.edu.au!bevemyrShow Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: fb2f1,966032b10de93a56,start X-Google-Attributes: gidfb2f1,public X-Google-ArrivalTime: 1990-11-27 23:57:48 PST Path: arc1-ca.pugleaf.net!gmdzi!unido!mcsun!uunet!munnari.oz.au!uhccux!ames!elroy.jpl.nasa.gov!sdd.hp.com!wuarchive!cs.utexas.edu!tut.cis.ohio-state.edu!socs.uts.edu.au!bevemyr From: bevemyr@socs.uts.edu.au (Johan Bevemyr) Newsgroups: gnu.emacs.bug Subject: Bug in safe-idiv in cl.el Message-ID: <6124@munnari.oz.au> Date: 28 Nov 90 07:57:48 GMT Sender: daemon@tut.cis.ohio-state.edu Reply-To: bevemyr@sics.se Distribution: gnu Organization: Computer Science, University of Technology, Sydney Lines: 26 Approved: bug-gnu-emacs@prep.ai.mit.edu Posted: Wed Nov 28 08:57:48 1990