* cccp.c (SYS$SEARCH, SYS$PARSE): Write as upper-case.

        * vmsconfig.com: Remove bytecode references.
        * alpha/vms.h (PREFIX): Define.
        * alpha/vms.h (ASM_OUTPUT_ALIGNED_COMMON): Remove.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@17547 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index bcc83c9..868e0e7 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,13 @@
 Thu Jan 29 01:28:14 1998  Klaus Kaempf  <kkaempf@progis.de>
 
+       * cccp.c (SYS$SEARCH, SYS$PARSE): Write as upper-case.
+
+       * vmsconfig.com: Remove bytecode references.
+
+       * alpha/vms.h (PREFIX): Define.
+
+       * alpha/vms.h (ASM_OUTPUT_ALIGNED_COMMON): Remove.
+
        * am-alpha.h: Don't include alloca for OPEN_VMS.
 
        * alpha/xm-vms.h (HAVE_CPP_STRINGIFY): Define.

diff --git a/gcc/cccp.c b/gcc/cccp.c
index 486206a..5df4901 100644 (file)
--- a/gcc/cccp.c
+++ b/gcc/cccp.c
@@ -10259,7 +10259,7 @@ VMS_open (fname, flags, prot)
 #include <fab.h>
 #include <nam.h>
 
-extern unsigned long sys$parse(), sys$search();
+extern unsigned long SYS$PARSE(), SYS$SEARCH();
 
 /* Work around another library bug.  If a file is located via a searchlist,
    and if the device it's on is not the same device as the one specified
@@ -10306,8 +10306,8 @@ VMS_stat (name, statbuf)
     {
       struct FAB fab;
       struct NAM nam;
-      char exp_nam[NAM$C_MAXRSS+1],  /* expanded name buffer for sys$parse */
-          res_nam[NAM$C_MAXRSS+1];  /* resultant name buffer for sys$search */
+      char exp_nam[NAM$C_MAXRSS+1],  /* expanded name buffer for SYS$PARSE */
+          res_nam[NAM$C_MAXRSS+1];  /* resultant name buffer for SYS$SEARCH */
 
       fab = cc$rms_fab;
       fab.fab$l_fna = (char *) name;
@@ -10317,9 +10317,9 @@ VMS_stat (name, statbuf)
       nam.nam$l_esa = exp_nam,  nam.nam$b_ess = sizeof exp_nam - 1;
       nam.nam$l_rsa = res_nam,  nam.nam$b_rss = sizeof res_nam - 1;
       nam.nam$b_nop = NAM$M_PWD | NAM$M_NOCONCEAL;
-      if (sys$parse (&fab) & 1)
+      if (SYS$PARSE (&fab) & 1)
        {
-         if (sys$search (&fab) & 1)
+         if (SYS$SEARCH (&fab) & 1)
            {
              res_nam[nam.nam$b_rsl] = '\0';
              result = stat (res_nam, statbuf);
@@ -10327,7 +10327,7 @@ VMS_stat (name, statbuf)
          /* Clean up searchlist context cached by the system.  */
          nam.nam$b_nop = NAM$M_SYNCHK;
          fab.fab$l_fna = 0,  fab.fab$b_fns = 0;
-         (void) sys$parse (&fab);
+         (void) SYS$PARSE (&fab);
        }
     }
 

diff --git a/gcc/config/alpha/vms.h b/gcc/config/alpha/vms.h
index 5761890..c149ecf 100644 (file)
--- a/gcc/config/alpha/vms.h
+++ b/gcc/config/alpha/vms.h
@@ -405,14 +405,6 @@ extern int vms_valid_decl_attribute_p ();
 #define UNALIGNED_INT_ASM_OP   ".long"
 #define UNALIGNED_DOUBLE_INT_ASM_OP    ".quad"
 
-#undef ASM_OUTPUT_ALIGNED_COMMON
-#define ASM_OUTPUT_ALIGNED_COMMON(FILE, NAME, SIZE, ALIGN)             \
-do {                                                                   \
-  fprintf ((FILE), "\t.comm\t");                                       \
-  assemble_name ((FILE), (NAME));                                      \
-  fprintf ((FILE), ",%u,%u\n", (SIZE), (ALIGN) / BITS_PER_UNIT);       \
-} while (0)
-
 #define ASM_OUTPUT_SECTION(FILE,SECTION)                       \
    (strcmp (SECTION, ".text") == 0)                            \
      ? text_section ()                                         \
@@ -476,3 +468,5 @@ do {                                                                        \
 #define UMODDI3_LIBCALL "OTS$REM_UL"
 
 #define DIR_SEPARATOR ']'
+
+#define PREFIX "GNU_ROOT:"

diff --git a/gcc/vmsconfig.com b/gcc/vmsconfig.com
index 87d34da..4400e6c 100644 (file)
--- a/gcc/vmsconfig.com
+++ b/gcc/vmsconfig.com
@@ -177,8 +177,6 @@ PROCEDURE process_makefile( )
   generate_option_file ("OBJS",                 "=", "independent.opt");
   generate_option_file ("LIB2FUNCS",    "=", "libgcc2.list");
   generate_option_file ("CXX_LIB2FUNCS", "=", "libgcc2-cxx.list");
-  generate_option_file ("BC_ALL",       "=", "bc_all.list");
-  generate_option_file ("BI_OBJ",       "=", "bi_all.opt");
   !
   ! Now change OBJS in the Makefile, so each language specific options file
   ! does not pick up all of the language independent files.