* toplev.c (debug_args): Add entry for VMS_DEBUG.

	* vmsdbgout.c (vmsdbgout_init): Fix typo in call to xmalloc.

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

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index d01c087..bf15ce9 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-11  Douglas B Rupp  <rupp@gnat.com>
+
+       * toplev.c (debug_args): Add entry for VMS_DEBUG.
+       * vmsdbgout.c (vmsdbgout_init): Fix typo in call to xmalloc.
+
 2002-03-11  Richard Sandiford  <rsandifo@redhat.com>
 
        * defaults.h (LARGEST_EXPONENT_IS_NORMAL, ROUND_TOWARDS_ZERO): New.

diff --git a/gcc/toplev.c b/gcc/toplev.c
index 740bf89..2e120f8 100644 (file)
--- a/gcc/toplev.c
+++ b/gcc/toplev.c
@@ -930,6 +930,9 @@ debug_args[] =
 #ifdef SDB_DEBUGGING_INFO
   { "coff", SDB_DEBUG, 0, N_("Generate COFF format debug info") },
 #endif
+#ifdef VMS_DEBUGGING_INFO
+  { "vms", VMS_DEBUG, 0, N_("Generate VMS format debug info") },
+#endif
   { 0, 0, 0, 0 }
 };
 

diff --git a/gcc/vmsdbgout.c b/gcc/vmsdbgout.c
index cad6323..15318ed 100644 (file)
--- a/gcc/vmsdbgout.c
+++ b/gcc/vmsdbgout.c
@@ -1636,7 +1636,7 @@ vmsdbgout_init (main_input_filename)
 
   module_producer
     = (char *) xmalloc (strlen (language_string) + 1
-                       + strlen (version_string + 1));
+                       + strlen (version_string) + 1);
   sprintf (module_producer, "%s %s", language_string, version_string);
 
   ASM_GENERATE_INTERNAL_LABEL (text_end_label, TEXT_END_LABEL, 0);