Adjust Integer size for ILP64

Otherwise, for EQUIVALENCE the wrong type may be used as the general type. This happens f.e. in ieeer.x
iraf-community · Oct 19, 2017 · 2dee32c · 2dee32c
1 parent 670c8a8
commit 2dee32c
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/unix/f2c/src/init.c b/unix/f2c/src/init.c
@@ -79,7 +79,12 @@ int tyint	= TYLONG ;
 int tylogical	= TYLONG;
 int tylog	= TYLOGICAL;
 int typesize[NTYPES] = {
-	1, SZADDR, 1, SZSHORT, SZLONG,
+	1, SZADDR, 1, SZSHORT,
+#if (__SIZEOF_LONG__ == 8 && __SIZEOF_POINTER__ == 8) /* ILP64 */
+	        2*SZLONG,
+#else /* ILP32 */
+	        SZLONG,
+#endif
 #ifdef TYQUAD
 		2*SZLONG,
 #endif