X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/blobdiff_plain/e804469b5b0975de34bae1e66c3e6371249d3ee7..0f4556f12c8f75078501c9d1338ae7648a97f975:/usr/src/usr.lib/libF77/rand_.c

diff --git a/usr/src/usr.lib/libF77/rand_.c b/usr/src/usr.lib/libF77/rand_.c
index 0a3dabbb80..42fed2fc94 100644
--- a/usr/src/usr.lib/libF77/rand_.c
+++ b/usr/src/usr.lib/libF77/rand_.c
@@ -1,5 +1,5 @@
 /*
-char id_rand[] = "%W%";
+char id_rand[] = "@(#)rand_.c	1.1";
  *
  * Routines to return random values
  *
@@ -16,22 +16,25 @@ char id_rand[] = "%W%";
  *	(see rand(3))
  */
 
-#ifdef	VAX
+#if	vax
 #define	RANDMAX		2147483647
-#endif
-#ifdef	PDP11
+#else	vax
+#if	pdp11
 #define	RANDMAX		32767
-#endif
+#else	pdp11
+	UNKNOWN MACHINE!
+#endif	pdp11
+#endif	vax
 
 long irand_(iarg)
 long *iarg;
 {
 	if (*iarg) srand((int)*iarg);
-#ifdef	PDP11
+#if	pdp11
 	return(( ((long)rand()) << 16) | rand());
-#else
+#else	pdp11
 	return( rand() );
-#endif
+#endif	pdp11
 }
 
 float rand_(iarg)