* cccp.c (main): Predefine __VMS_VER on VMS.

From-SVN: r17578

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index a9fa0c8d2289a9a8df51b04473aaf9f14859557e..bdc6709da2c14e9602df1f9e0860de497a98efe9 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+Sun Feb  1 13:01:15 1998  Klaus Kaempf  <kkaempf@progis.de>
+
+       * cccp.c (main): Predefine __VMS_VER on VMS.
+
 Sun Feb  1 12:39:53 1998  J"orn Rennecke <amylaar@cygnus.co.uk>
 
        * expr.c (get_inner_reference): Use sbitsizetype for type sizes.

diff --git a/gcc/cccp.c b/gcc/cccp.c
index 5df4901a00f5bc8cde40d3dffe33bddbe8cec286..c394ea2ecc20df3eb5167a2979f1bb1b1fe0fae2 100644 (file)
--- a/gcc/cccp.c
+++ b/gcc/cccp.c
@@ -130,6 +130,8 @@ extern char *getenv ();
 /* VMS-specific definitions */
 #ifdef VMS
 #include <descrip.h>
+#include <ssdef.h>
+#include <syidef.h>
 #define open(fname,mode,prot)  VMS_open (fname,mode,prot)
 #define fopen(fname,mode)      VMS_fopen (fname,mode)
 #define freopen(fname,mode,ofile) VMS_freopen (fname,mode,ofile)
@@ -1732,6 +1734,63 @@ main (argc, argv)
 
   if (!inhibit_predefs) {
     char *p = (char *) alloca (strlen (predefs) + 1);
+
+#ifdef VMS
+    struct dsc$descriptor_s lcl_name;
+    struct item_list {
+      unsigned short length;  /* input length */
+      unsigned short code;    /* item code */   
+      unsigned long dptr;     /* data ptr */
+      unsigned long lptr;     /* output length ptr */
+    };
+
+    unsigned long syi_length;
+    char syi_data[16];
+
+    struct item_list items[] = {
+      { 16, SYI$_VERSION, 0, 0 },
+      { 0, 0, 0, 0 }
+    };
+
+    items[0].dptr = (unsigned long)syi_data;
+    items[0].lptr = (unsigned long)(&syi_length);
+
+    if (SYS$GETSYIW (0, 0, 0, items, NULL, NULL, NULL, NULL) == SS$_NORMAL)
+      {
+       unsigned long vms_version_value;
+       char *vers;
+
+       vers = syi_data;
+       vms_version_value = 0;
+
+       if (*vers == 'V')
+         vers++;
+       if (isdigit (*vers))
+         {
+           vms_version_value = (*vers - '0') * 10000000;
+         }
+       vers++;
+       if (*vers == '.')
+         {
+           vers++;
+           if (isdigit (*vers))
+             {
+               vms_version_value += (*vers - '0') * 100000;
+             }
+         }
+
+       if (vms_version_value > 0)
+         {
+           char versbuf[32];
+
+           sprintf (versbuf, "__VMS_VER=%08ld", vms_version_value);
+           if (debug_output)
+             output_line_directive (fp, &outbuf, 0, same_file);
+           make_definition (versbuf, &outbuf);
+         }
+      }
+#endif
+
     strcpy (p, predefs);
     while (*p) {
       char *q;