diff options
| -rwxr-xr-x | crawl-ref/source/util/gcc-opt.pl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/crawl-ref/source/util/gcc-opt.pl b/crawl-ref/source/util/gcc-opt.pl new file mode 100755 index 0000000000..5ed4e48f64 --- /dev/null +++ b/crawl-ref/source/util/gcc-opt.pl @@ -0,0 +1,38 @@ +#!/usr/bin/perl +# +# GCC optimization flag generator +# + +use strict; +use warnings; + +my $gcc = $ARGV[0]; + +if ( ! $gcc ) { + die "Can't generate optimization flags (no compiler specified)\n"; +} + +if ( ! `which $gcc 2> /dev/null` ) { + die "Can't generate optimization flags ($gcc is missing?)\n"; +} + + +# +# Detect architecture +# + +my $arch = `uname -m`; + + +# Intel x86 +# +# Matches ix86, i386, i486, i586, i686 +# +my $pattern = "i([x3-6])86"; +if ($arch =~ $pattern) { + system("util/gcc-opt-x86.pl $gcc"); + exit 0 +} + + +exit 0 |