Back out stdin patch to klcc; it's broken.klibc-1.0.13

1 files changed, 2 insertions, 12 deletions

diff --git a/klcc.in b/klcc.in
index 3d62e2f517fa5..36c4d9b3eeeb6 100644
--- a/klcc.in
+++ b/klcc.in
@@ -1,7 +1,5 @@
 # -*- perl -*-
 
-use IPC::Open3;
-
 # Standard includes
 @includes = ("-I${prefix}/${KCROSS}include/arch/${ARCH}",
 	     "-I${prefix}/${KCROSS}include/bits${BITSIZE}",
@@ -59,7 +57,7 @@ sub files_with_lang($$) {
 
 	# Skip object files
 	if ( $need ne 'obj' ) {
-	    unless ( $xopt eq $need || $need eq 'stdin') {
+	    unless ( $xopt eq $need ) {
 		push(@as, '-x', $need);
 		$xopt = $need;
 	    }
@@ -81,10 +79,7 @@ sub syserr($) {
 # Run a program; printing out the command line if $verbose is set
 sub mysystem(@) {
     print STDERR join(' ', @_), "\n" if ( $verbose );
-    my $cmd = shift;
-    my $childpid = open3("<&STDIN", ">&STDOUT", ">&STDERR", $cmd, @_);
-    waitpid ($childpid, 0);
-    return $?;
+    return system(@_);
 }
 
 #
@@ -122,11 +117,6 @@ while ( defined($a = shift(@ARGV)) ) {
 	# Not an option.  Must be a filename then.
 	push(@files, $a);
 	$flang{$a} = $lang || filename2lang($a);
-    } elsif ( $a eq '-' ) {
-	# gcc gets its input from stdin
-	push(@files, $a);
-	# prevent setting -x
-	$flang{$a} = 'stdin'
     } elsif ( $a =~ /^-print-klibc-(.*)$/ ) {
 	# This test must precede -print
 	if ( defined($conf{$1}) ) {