Achim Gratz wrote:
Mark Geisert writes:
+ # Do two objcopy calls at once to avoid one system() call overhead
+ system '(', $objcopy, '-R', '.text', $f, ')', '||',
+ $objcopy, '-R', '.bss', '-R', '.data', "t-$f" and exit 1;
That doesn't do what you think it
Jon Turney wrote:
On 26/11/2020 09:56, Mark Geisert wrote:
@@ -86,8 +94,18 @@ for my $f (keys %text) {
if (!$text{$f}) {
unlink $f;
} else {
- system $objcopy, '-R', '.text', $f and exit 1;
- system $objcopy, '-R', '.bss', '-R', '.data', "t-$f" and exit 1;
+ if
Mark Geisert writes:
> Still faster than two system commands :-). But thanks for the
> comment;
It still seems you are barking up the wrong tree.
> I thought I was merely grouping args, to get around Perl's
> greedy arg list building for the system command.
Wot? It just takes a list which you
On 2020-11-27 11:37, Achim Gratz wrote:
Mark Geisert writes:
Still faster than two system commands :-). But thanks for the
comment;
It still seems you are barking up the wrong tree.
I thought I was merely grouping args, to get around Perl's
greedy arg list building for the system command.