chiark
/
gitweb
/
~ianmdlvl
/
elogind.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix the gentoo udev rules to allow the box to boot properly
[elogind.git]
/
klibc
/
klibc
/
socketcalls.pl
diff --git
a/klibc/klibc/socketcalls.pl
b/klibc/klibc/socketcalls.pl
index fd82b2b49f2a7de3ff3ba376043dc32b4b7e2822..68f0fa164b6963d52db0de5a193fde50c4e14338 100644
(file)
--- a/
klibc/klibc/socketcalls.pl
+++ b/
klibc/klibc/socketcalls.pl
@@
-15,12
+15,13
@@
for $arg ( @ARGV ) {
push(@args, $arg);
}
}
push(@args, $arg);
}
}
-($file, $arch) = @args;
+($file, $arch
, $outputdir
) = @args;
if (!open(FILE, "< $file")) {
die "$file: $!\n";
}
if (!open(FILE, "< $file")) {
die "$file: $!\n";
}
+print "socketcall-objs := ";
while ( defined($line = <FILE>) ) {
chomp $line;
$line =~ s/\s*[\#\;].*$//; # Strip comments and trailing blanks
while ( defined($line = <FILE>) ) {
chomp $line;
$line =~ s/\s*[\#\;].*$//; # Strip comments and trailing blanks
@@
-39,10
+40,11
@@
while ( defined($line = <FILE>) ) {
push(@cargs, "$arg a".$i++);
}
$nargs = $i;
push(@cargs, "$arg a".$i++);
}
$nargs = $i;
+ print " \\\n\t${name}.o";
if ( $arch eq 'i386' ) {
if ( $arch eq 'i386' ) {
- open(OUT, '>', "
socketcalls
/${name}.S")
- or die "$0: Cannot open
socketcalls
/${name}.S\n";
+ open(OUT, '>', "
${outputdir}
/${name}.S")
+ or die "$0: Cannot open
${outputdir}
/${name}.S\n";
print OUT "#include <sys/socketcalls.h>\n";
print OUT "\n";
print OUT "#include <sys/socketcalls.h>\n";
print OUT "\n";
@@
-56,8
+58,8
@@
while ( defined($line = <FILE>) ) {
print OUT "\t.size ${name},.-${name}\n";
close(OUT);
} else {
print OUT "\t.size ${name},.-${name}\n";
close(OUT);
} else {
- open(OUT, '>', "
socketcalls
/${name}.c")
- or die "$0: Cannot open
socketcalls
/${name}.c\n";
+ open(OUT, '>', "
${outputdir}
/${name}.c")
+ or die "$0: Cannot open
${outputdir}
/${name}.c\n";
print OUT "#include \"../socketcommon.h\"\n";
print OUT "\n";
print OUT "#include \"../socketcommon.h\"\n";
print OUT "\n";
@@
-82,3
+84,5
@@
while ( defined($line = <FILE>) ) {
die "$file:$.: Could not parse input\n";
}
}
die "$file:$.: Could not parse input\n";
}
}
+
+print "\n";