Re: SEGV in 2.0.9 on Solaris 2.5.1

[Gerhard Niklasch <nikl@mathematik.tu-muenchen.de>]

One last time (hopefully) re
> Message-Id: <19980629153320.G16049@io.txc.com>
> Date:         Mon, 29 Jun 1998 21:33:20 +0200
> From: Igor Schein <igor@txc.com>
> 
> Hi, the following causes a SEGV:
> % echo '2^2^26' | gp-dyn -q > /dev/null
>   ***   segmentation fault: bug in GP (please report).

The following should go over the top of last night's `final' patch
from me to avoid some amply justified (if harmless) compiler warnings.

Skipping the strong language I've just used to yell at myself and
pleading lack of sleep, Gerhard


bash$ diff -u src/kernel/none/level1.h~ src/kernel/none/level1.h
--- src/kernel/none/level1.h~   Tue Jun 30 02:19:45 1998
+++ src/kernel/none/level1.h    Tue Jun 30 15:32:24 1998
@@ -104,7 +104,7 @@
   const GEN z = new_chunk(x);
 
   checkwin32ctrlc;
-  checkmemory(x); avma = z;
+  checkmemory(x); avma = (long)z;
   z[0]=evaltyp(y) | evallg(x);
   return z;
 }
@@ -115,7 +115,7 @@
   const GEN z = new_chunk(x);
 
   checkwin32ctrlc;
-  checkmemory(x); avma = z;
+  checkmemory(x); avma = (long)z;
   z[0] = evaltyp(t_INT) | evallg(x);
   return z;
 }
@@ -126,7 +126,7 @@
   const GEN z = new_chunk(x);
 
   checkwin32ctrlc;
-  checkmemory(x); avma = z;
+  checkmemory(x); avma = (long)z;
   z[0] = evaltyp(t_REAL) | evallg(x);
   return z;
 }