You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
|
#!/usr/bin/perl -w
|
|
|
|
|
######################################################################
|
|
|
|
|
# Libifies files on Windows
|
|
|
|
|
#
|
|
|
|
|
# This is a wrapper to facilitate the compilation of Git with MSVC
|
|
|
|
|
# using GNU Make as the build system. So, instead of manipulating the
|
|
|
|
|
# Makefile into something nasty, just to support non-space arguments
|
|
|
|
|
# etc, we use this wrapper to fix the command line options
|
|
|
|
|
#
|
|
|
|
|
# Copyright (C) 2009 Marius Storm-Olsen <mstormo@gmail.com>
|
|
|
|
|
######################################################################
|
|
|
|
|
use strict;
|
|
|
|
|
my @args = ();
|
|
|
|
|
while (@ARGV) {
|
|
|
|
|
my $arg = shift @ARGV;
|
|
|
|
|
if ("$arg" eq "rcs") {
|
|
|
|
|
# Consume the rcs option
|
|
|
|
|
} elsif ("$arg" =~ /\.a$/) {
|
|
|
|
|
push(@args, "-OUT:$arg");
|
|
|
|
|
} else {
|
|
|
|
|
push(@args, $arg);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
unshift(@args, "lib.exe");
|
|
|
|
|
# printf("**** @args\n");
|
Fix the exit code of MSVC build scripts on cygwin
During an MSVC build on cygwin, the make program did not notice
when the compiler or linker exited with an error. This was caused
by the scripts exiting with the value returned by system() directly.
On POSIX-like systems, such as cygwin, the return value of system()
has the exit code of the executed command encoded in the first byte
(ie the value is shifted up by 8 bits). This allows the bottom
7 bits to contain the signal number of a terminated process, while
the eighth bit indicates whether a core-dump was produced. (A value
of -1 indicates that the command failed to execute.)
The make program, however, expects the exit code to be encoded in the
bottom byte. Futhermore, it apparently masks off and ignores anything
in the upper bytes.
However, these scripts are (naturally) intended to be used on the
windows platform, where we can not assume POSIX-like semantics from
a perl implementation (eg ActiveState). So, in general, we can not
assume that shifting the return value right by eight will get us
the exit code.
In order to improve portability, we assume that a zero return from
system() indicates success, whereas anything else indicates failure.
Since we don't need to know the exact exit code from the compiler
or linker, we simply exit with 0 (success) or 1 (failure).
Signed-off-by: Ramsay Jones <ramsay@ramsay1.demon.co.uk>
Signed-off-by: Junio C Hamano <gitster@pobox.com>
15 years ago
|
|
|
exit (system(@args) != 0);
|
