added automake.mk files in src/language

[pspp] / src / q2c.c

diff --git a/src/q2c.c b/src/q2c.c
index f771d466ecc505a30b94fe2c0b2e01cf09f22dba..c1b7e8d77cc3c9b82a0ab770903a1137f1fed903 100644 (file)
--- a/src/q2c.c
+++ b/src/q2c.c
@@ -53,7 +53,7 @@
 #define MAX_TOK_LEN 1024
 
 /* argv[0]. */
-char *pgmname;
+char *program_name;
 
 /* Have the input and output files been opened yet? */
 int is_open;
@@ -97,7 +97,7 @@ finish_up (void)
   fclose (in);
   fclose (out);
   if (remove (ofn) == -1)
-    fprintf (stderr, "%s: %s: remove: %s\n", pgmname, ofn, strerror (errno));
+    fprintf (stderr, "%s: %s: remove: %s\n", program_name, ofn, strerror (errno));
 }
 
 void hcf (void) NO_RETURN;
@@ -120,7 +120,7 @@ fail (const char *format, ...)
   va_list args;
 
   va_start (args, format);
-  fprintf (stderr, "%s: ", pgmname);
+  fprintf (stderr, "%s: ", program_name);
   vfprintf (stderr, format, args);
   fprintf (stderr, "\n");
   va_end (args);
@@ -1992,7 +1992,7 @@ recognize_directive (void)
 int
 main (int argc, char *argv[])
 {
-  pgmname = argv[0];
+  program_name = argv[0];
   if (argc != 3)
     fail ("Syntax: q2c input.q output.c");