From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 18 Jun 1987 19:54:55 +0000 (+0000)
Subject: Some changes for VMS.
X-Git-Tag: 20090517-FFI~13351
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bca6ea9fc17c0fa56e968d47434864472373527d;p=mit-scheme.git

Some changes for VMS.
---

diff --git a/v7/src/microcode/config.h b/v7/src/microcode/config.h
index c3a616c70..f80884f0f 100644
--- a/v7/src/microcode/config.h
+++ b/v7/src/microcode/config.h
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.26 1987/06/05 04:13:17 jinx Exp $
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/config.h,v 9.27 1987/06/18 19:54:55 jinx Exp $
  *
  * This file contains the configuration information and the information
  * given on the command line on Unix.
@@ -246,11 +246,19 @@ typedef unsigned long Pointer;
 
 #ifdef vms
 
-/* Pre version 4 VMS C has not void type, thus make it go away */
-/* #define void */
+#define VMS_VERSION 4.5
+
 /* Name conflict in VMS with system variable */
 #define Free			Free_Register
 
+#if (VMS_VERSION < 4)
+/* Pre version 4 VMS has no void type. */
+#define void
+#endif
+
+/* This eliminates a spurious warning from the C compiler. */
+#define main_type
+
 /* exit(0) produces horrible message on VMS */
 
 #define NORMAL_EXIT 1
@@ -269,7 +277,7 @@ if (value != 0)								\
   exit(value);								\
 longjmp(Exit_Point, NORMAL_EXIT)
 
-#else /* not a vms */
+#else /* not a vms, therefore unix */
 
 /* Vax Unix C compiler bug */