Displaying 3 results from an estimated 3 matches for "klibcconf".
2005 Mar 09
1
makeklcc.pl passes '' to ld if LDFLAGS empty among things
...."\')";
+ } else {
+ return "()";
+ }
}
print "#!${perlpath}\n";
-----
Or the more extreme:
-----
--- 1/makeklcc.pl 2005-03-10 00:22:03.000000000 +0200
+++ 2/makeklcc.pl 2005-03-10 01:26:51.000000000 +0200
@@ -7,24 +7,14 @@
($klccin, $klibcconf, $perlpath) = @ARGV;
-# This should probably handle quotes and escapes...
-sub string2list($)
-{
- my($s) = @_;
-
- $s =~ s/\s+/\',\'/g;
- return "(\'".$s."\')";
-}
-
print "#!${perlpath}\n";
open(KLIBCCONF, '<', $klibcconf) or d...
2006 Jan 25
1
Don't hardcode paths in klcc
...a Perl script but my hardcoding the paths
you make it less portable.
Signed-off-by: Martin Michlmayr <tbm@cyrius.com>
--- klibc-1.1.16/klcc/makeklcc.pl~ 2006-01-25 21:30:48.000000000 +0000
+++ klibc-1.1.16/klcc/makeklcc.pl 2006-01-25 21:39:59.000000000 +0000
@@ -9,23 +9,6 @@
($klccin, $klibcconf, $perlpath) = @ARGV;
-sub pathsearch($) {
- my($file) = @_;
- my(@path);
- my($p,$pp);
-
- if ( $file =~ /\// ) {
- return File::Spec->rel2abs($file);
- }
-
- foreach $p ( split(/\:/, $ENV{'PATH'}) ) {
- $pp = File::Spec->rel2abs(File::Spec->catpath(undef, $...
2020 Aug 20
0
[klibc:master] klcc: Treat CC, LD, STRIP as multiple words
...&& !$rv ) {
- $rv = mysystem($STRIP, @STRIPFLAGS, $output);
+ $rv = mysystem(@STRIP, @STRIPFLAGS, $output);
}
}
diff --git a/klcc/makeklcc.pl b/klcc/makeklcc.pl
index 5945eb16..41c5cf46 100644
--- a/klcc/makeklcc.pl
+++ b/klcc/makeklcc.pl
@@ -34,21 +34,21 @@ while ( defined($l = <KLIBCCONF>) ) {
chomp $l;
if ( $l =~ /^([^=]+)\=\s*(.*)$/ ) {
$n = $1; $s = $2;
+ my @s = split(/\s+/, $s);
if ( $n eq 'CC' || $n eq 'LD' || $n eq 'STRIP' ) {
- $s1 = pathsearch($s);
+ $s1 = pathsearch($s[0]);
die "$0: Cannot find $n: $s\n"...