2004-10-04 Jose Ruiz <ruiz@act-europe.fr>

[pf3gnuchains/gcc-fork.git] / gcc / tlink.c

diff --git a/gcc/tlink.c b/gcc/tlink.c
index d377c75..935e309 100644 (file)
--- a/gcc/tlink.c
+++ b/gcc/tlink.c
@@ -38,6 +38,8 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 extern int prepends_underscore;
 
 static int tlink_verbose;
+
+static char initial_cwd[MAXPATHLEN + 1];
 \f
 /* Hash table boilerplate for working with htab_t.  We have hash tables
    for symbol names, file names, and demangled symbols.  */
@@ -192,7 +194,7 @@ struct file_stack_entry *file_stack;
 static void
 symbol_push (symbol *p)
 {
-  struct symbol_stack_entry *ep = (struct symbol_stack_entry *) obstack_alloc
+  struct symbol_stack_entry *ep = obstack_alloc
     (&symbol_stack_obstack, sizeof (struct symbol_stack_entry));
   ep->value = p;
   ep->next = symbol_stack;
@@ -220,7 +222,7 @@ file_push (file *p)
   if (p->tweaking)
     return;
 
-  ep = (struct file_stack_entry *) obstack_alloc
+  ep = obstack_alloc
     (&file_stack_obstack, sizeof (struct file_stack_entry));
   ep->value = p;
   ep->next = file_stack;
@@ -272,6 +274,8 @@ tlink_init (void)
       if (debug)
        tlink_verbose = 3;
     }
+
+  getcwd (initial_cwd, sizeof (initial_cwd));
 }
 
 static int
@@ -432,9 +436,7 @@ maybe_tweak (char *line, file *f)
 }
 
 /* Update the repo files for each of the object files we have adjusted and
-   recompile.
-
-   XXX Should this use collect_execute instead of system?  */
+   recompile.  */
 
 static int
 recompile_files (void)
@@ -446,7 +448,10 @@ recompile_files (void)
 
   while ((f = file_pop ()) != NULL)
     {
-      char *line, *command;
+      char *line;
+      const char *p, *q;
+      char **argv;
+      struct obstack arg_stack;
       FILE *stream = fopen (f->key, "r");
       const char *const outname = frob_extension (f->key, ".rnw");
       FILE *output = fopen (outname, "w");
@@ -465,25 +470,68 @@ recompile_files (void)
       fclose (output);
       rename (outname, f->key);
 
-      obstack_grow (&temporary_obstack, "cd ", 3);
-      obstack_grow (&temporary_obstack, f->dir, strlen (f->dir));
-      obstack_grow (&temporary_obstack, "; ", 2);
-      obstack_grow (&temporary_obstack, c_file_name, strlen (c_file_name));
-      obstack_1grow (&temporary_obstack, ' ');
-      obstack_grow (&temporary_obstack, f->args, strlen (f->args));
-      obstack_1grow (&temporary_obstack, ' ');
-      command = obstack_copy0 (&temporary_obstack, f->main, strlen (f->main));
+      if (!f->args)
+       {
+         error ("repository file `%s' does not contain command-line "
+                "arguments", f->key);
+         return 0;
+       }
+
+      /* Build a null-terminated argv array suitable for
+        tlink_execute().  Manipulate arguments on the arg_stack while
+        building argv on the temporary_obstack.  */
+
+      obstack_init (&arg_stack);
+      obstack_ptr_grow (&temporary_obstack, c_file_name);
+
+      for (p = f->args; *p != '\0'; p = q + 1)
+       {
+         /* Arguments are delimited by single-quotes.  Find the
+            opening quote.  */
+         p = strchr (p, '\'');
+         if (!p)
+           goto done;
+
+         /* Find the closing quote.  */
+         q = strchr (p + 1, '\'');
+         if (!q)
+           goto done;
+
+         obstack_grow (&arg_stack, p + 1, q - (p + 1));
+
+         /* Replace '\'' with '.  This is how set_collect_gcc_options
+            encodes a single-quote.  */
+         while (q[1] == '\\' && q[2] == '\'' && q[3] == '\'')
+           {
+             const char *r;
+
+             r = strchr (q + 4, '\'');
+             if (!r)
+               goto done;
+
+             obstack_grow (&arg_stack, q + 3, r - (q + 3));
+             q = r;
+           }
+
+         obstack_1grow (&arg_stack, '\0');
+         obstack_ptr_grow (&temporary_obstack, obstack_finish (&arg_stack));
+       }
+    done:
+      obstack_ptr_grow (&temporary_obstack, f->main);
+      obstack_ptr_grow (&temporary_obstack, NULL);
+      argv = obstack_finish (&temporary_obstack);
 
       if (tlink_verbose)
        fprintf (stderr, _("collect: recompiling %s\n"), f->main);
-      if (tlink_verbose >= 3)
-       fprintf (stderr, "%s\n", command);
 
-      if (system (command) != 0)
+      if (chdir (f->dir) != 0
+         || tlink_execute (c_file_name, argv, NULL) != 0
+         || chdir (initial_cwd) != 0)
        return 0;
 
       read_repo_file (f);
 
+      obstack_free (&arg_stack, NULL);
       obstack_free (&temporary_obstack, temporary_firstobj);
     }
   return 1;
@@ -645,6 +693,9 @@ scan_linker_output (const char *fname)
 
       if (sym && sym->tweaked)
        {
+         error ("`%s' was assigned to `%s', but was not defined "
+                "during recompilation, or vice versa", 
+                sym->key, sym->file->key);
          fclose (stream);
          return 0;
        }