The input file names of the linker are to be found in a different place.
authorkeie <none@none>
Mon, 10 Sep 1984 16:45:12 +0000 (16:45 +0000)
committerkeie <none@none>
Mon, 10 Sep 1984 16:45:12 +0000 (16:45 +0000)
util/ack/run.c

index 2874215..b46769b 100644 (file)
@@ -47,8 +47,8 @@ int runphase(phase) register trf *phase ; {
                                vprint(" %s%s\n",p_basename,
                                        rindex(in.p_path,SUFCHAR) ) ;
                        } else {
-                               scanlist(l_first(c_arguments), elem) {
-                                       vprint(" %s",l_content(*elem)) ;
+                               scanlist(l_first(phase->t_inputs), elem) {
+                                       vprint(" %s",p_cont(*elem)->p_path);
                                }
                                vprint("\n") ;
                        }
@@ -91,7 +91,7 @@ int run_exec(phase) trf *phase ; {
                } while ( waitchild!=child) ;
                if ( status ) {
                        if ( status&0200 && (status&0177)!=SIGQUIT &&
-                               !t_flag ) unlink("core") ;
+                               t_flag<=1 ) unlink("core") ;
                        switch ( status&0177 ) {
                        case 0 :
                                break ;
@@ -131,7 +131,7 @@ int run_exec(phase) trf *phase ; {
                close(1) ;
                if ( creat(out.p_path,0666)!=1 ) {
                        close(1); dup(2);
-                       error("cannot open %s",out.p_path) ;
+                       error("cannot create %s",out.p_path) ;
                        exit(1) ;
                }
        }