Back out stdin patch to klcc; it's broken.
diff --git a/klcc.in b/klcc.in
index 3d62e2f..36c4d9b 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 @@
# 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 @@
# 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 @@
# 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}) ) {