🚀 go-pugleaf

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 */