🚀 go-pugleaf

Relay-Version: VMS News - V6.0 1/9/90 VAX/VMS V5.3; site kontu.utu.fi
Path: kontu.utu.fi!polaris.utu.fi!news.funet.fi!sunic!mcsun!uunet!tut.cis.ohio-state.edu!MAX.PHYSICS.SUNYSB.EDU!sss
Newsgroups: gnu.emacs.bug
Subject: fix for division by zero bug in VMS Emacs
Message-ID: <9010120113.AA18234@max.physics.sunysb.edu>
From: sss@MAX.PHYSICS.SUNYSB.EDU (Scott S. Snyder)
Date: 12 Oct 90 01:13:21 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Approved: bug-gnu-emacs@prep.ai.mit.edu
Lines: 35

Recently, someone (sorry, I didn't save the message) reported a bug
with division by zero in Emacs 18.55 under VMS.

The bug can be elicited by starting Emacs with `-q' and typing in *scratch*:
`(/ 5 0) LFD LFD'. Emacs crashes with a division by zero exception.

It seems that VMS forgets about a signal handler after the signal has been
raised. The following patch to data.c fixes the problem.

Scott Snyder
sss@max.physics.sunysb.edu

------------------------------------------------------------------------------
*** data.c_orig	Thu Oct 11 21:06:00 1990
--- data.c	Thu Oct 11 21:05:41 1990
***************
*** 1563,1568
       must reestablish each time */
    signal (signo, arith_error);
  #endif /* USG */
  #ifdef BSD4_1
    sigrelse (SIGFPE);
  #else /* not BSD4_1 */

--- 1563,1572 -----
       must reestablish each time */
    signal (signo, arith_error);
  #endif /* USG */
+ #ifdef VMS
+   /* so does VMS! */
+   signal (signo, arith_error);
+ #endif /* VMS */
  #ifdef BSD4_1
    sigrelse (SIGFPE);
  #else /* not BSD4_1 */