]> mj.ucw.cz Git - libucw.git/blob - ucw/perl/UCW/Configure/C.pm
Configure: Replaced dark magic in CPU detection by use of -march=native
[libucw.git] / ucw / perl / UCW / Configure / C.pm
1 # UCW Library configuration system: OS and C compiler
2 # (c) 2005--2010 Martin Mares <mj@ucw.cz>
3 # (c) 2006 Robert Spalek <robert@ucw.cz>
4 # (c) 2008 Michal Vaner <vorner@ucw.cz>
5
6 ### OS ###
7
8 package UCW::Configure::C;
9 use UCW::Configure;
10
11 use strict;
12 use warnings;
13
14 Test("OS", "Checking on which OS we run", sub {
15         my $os = `uname`;
16         chomp $os;
17         Fail "Unable to determine OS type" if $? || $os eq "";
18         return $os;
19 });
20
21 if (Get("OS") eq "Linux") {
22         Set("CONFIG_LINUX");
23 } elsif (Get("OS") eq "Darwin") {
24         Set("CONFIG_DARWIN");
25 } else {
26         Fail "Don't know how to run on this operating system.";
27 }
28
29 ### Compiler ###
30
31 # Default compiler
32 Test("CC", "Checking for C compiler", sub { return "gcc"; });
33
34 # GCC version
35 Test("GCCVER", "Checking for GCC version", sub {
36         my $gcc = Get("CC");
37         my $ver = `$gcc --version | sed '2,\$d; s/^\\(.* \\)*\\([0-9]*\\.[0-9]*\\).*/\\2/'`;
38         chomp $ver;
39         Fail "Unable to determine GCC version" if $? || $ver eq "";
40         return $ver;
41 });
42 my ($gccmaj, $gccmin) = split(/\./, Get("GCCVER"));
43 my $gccver = 1000*$gccmaj + $gccmin;
44 $gccver >= 3000 or Fail "GCC older than 3.0 doesn't support C99 well enough.";
45
46 ### CPU ###
47
48 Test("ARCH", "Checking for machine architecture", sub {
49         #
50         # We have to ask GCC for the target architecture, because it may
51         # differ from what uname tells us. This can happen even if we are
52         # not cross-compiling, for example on Linux with amd64 kernel, but
53         # i386 userspace.
54         #
55         my $gcc = Get("CC");
56         my $mach = `$gcc -dumpmachine 2>/dev/null`;
57         if (!$? && $mach ne "") {
58                 $mach =~ s/-.*//;
59         } else {
60                 $mach = `uname -m`;
61                 Fail "Unable to determine machine type" if $? || $mach eq "";
62         }
63         chomp $mach;
64         if ($mach =~ /^i[0-9]86$/) {
65                 return "i386";
66         } elsif ($mach =~ /^(x86[_-]|amd)64$/) {
67                 return "amd64";
68         } else {
69                 return "unknown ($mach)";
70         }
71 });
72
73 my $arch = Get("ARCH");
74 if ($arch eq 'i386') {
75         Set("CPU_I386");
76         UnSet("CPU_64BIT_POINTERS");
77         Set("CPU_LITTLE_ENDIAN");
78         UnSet("CPU_BIG_ENDIAN");
79         Set("CPU_ALLOW_UNALIGNED");
80         Set("CPU_STRUCT_ALIGN" => 4);
81 } elsif ($arch eq "amd64") {
82         Set("CPU_AMD64");
83         Set("CPU_64BIT_POINTERS");
84         Set("CPU_LITTLE_ENDIAN");
85         UnSet("CPU_BIG_ENDIAN");
86         Set("CPU_ALLOW_UNALIGNED");
87         Set("CPU_STRUCT_ALIGN" => 8);
88 } elsif (!Get("CPU_LITTLE_ENDIAN") && !Get("CPU_BIG_ENDIAN")) {
89         Fail "Architecture not recognized, please set CPU_xxx variables manually.";
90 }
91
92 ### Compiler and its Options ###
93
94 # C flags: tell the compiler we're speaking C99, and disable common symbols
95 Set("CLANG" => "-std=gnu99 -fno-common");
96
97 # C optimizations
98 Set("COPT" => '-O2');
99 if ($arch =~ /^(i386|amd64)$/ && Get("CONFIG_EXACT_CPU")) {
100         if ($gccver >= 4002) {
101                 Append('COPT', '-march=native');
102         } else {
103                 Warn "CONFIG_EXACT_CPU not supported with old GCC, ignoring.\n";
104         }
105 }
106
107 # C optimizations for highly exposed code
108 Set("COPT2" => '-O3');
109
110 # Warnings
111 Set("CWARNS" => '-Wall -W -Wno-parentheses -Wstrict-prototypes -Wmissing-prototypes -Winline');
112 Set("CWARNS_OFF" => '');
113
114 # Linker flags
115 Set("LOPT" => "");
116
117 # Extra libraries
118 Set("LIBS" => "");
119
120 # Extra flags for compiling and linking shared libraries
121 Set("CSHARED" => '-fPIC');
122 if (IsSet("CONFIG_LOCAL")) {
123         Set("SONAME_PREFIX" => "lib/");
124 } else {
125         Set("SONAME_PREFIX" => "");
126 }
127 if (IsSet("CONFIG_DARWIN")) {
128         Set("LSHARED" => '-dynamiclib -install_name $(SONAME_PREFIX)$(@F)$(SONAME_SUFFIX) -undefined dynamic_lookup');
129 } else {
130         Set("LSHARED" => '-shared -Wl,-soname,$(SONAME_PREFIX)$(@F)$(SONAME_SUFFIX)');
131 }
132
133 # Extra switches depending on GCC version:
134 if ($gccver == 3000) {
135         Append("COPT" => "-fstrict-aliasing");
136 } elsif ($gccver == 3003) {
137         Append("CWARNS" => "-Wundef -Wredundant-decls");
138         Append("COPT" => "-finline-limit=20000 --param max-inline-insns-auto=1000");
139 } elsif ($gccver == 3004) {
140         Append("CWARNS" => "-Wundef -Wredundant-decls");
141         Append("COPT" => "-finline-limit=2000 --param large-function-insns=5000 --param inline-unit-growth=200 --param large-function-growth=400");
142 } elsif ($gccver >= 4000) {
143         Append("CWARNS" => "-Wundef -Wredundant-decls -Wno-pointer-sign -Wdisabled-optimization -Wno-missing-field-initializers");
144         Append("CWARNS_OFF" => "-Wno-pointer-sign");
145         Append("COPT" => "-finline-limit=5000 --param large-function-insns=5000 --param inline-unit-growth=200 --param large-function-growth=400");
146         if ($gccver >= 4002) {
147                 Append("COPT" => "-fgnu89-inline");
148         }
149 } else {
150         Warn "Don't know anything about this GCC version, using default switches.\n";
151 }
152
153 if (IsSet("CONFIG_DEBUG")) {
154         # If debugging:
155         Set("DEBUG_ASSERTS");
156         Set("DEBUG_DIE_BY_ABORT") if Get("CONFIG_DEBUG") > 1;
157         Set("CDEBUG" => "-ggdb");
158 } else {
159         # If building a release version:
160         Append("COPT" => "-fomit-frame-pointer");
161         Append("LOPT" => "-s");
162 }
163
164 if (IsSet("CONFIG_DARWIN")) {
165         # gcc-4.0 on Darwin doesn't set this in the gnu99 mode
166         Append("CLANG" => "-fnested-functions");
167         # Directory hierarchy of the fink project
168         Append("LIBS" => "-L/sw/lib");
169         Append("COPT" => "-I/sw/include");
170         # Fill in some constants not found in the system header files
171         Set("SOL_TCP" => 6);            # missing in /usr/include/netinet/tcp.h
172         if (IsGiven("CONFIG_UCW_DIRECT_IO") && IsSet("CONFIG_UCW_DIRECT_IO")) {
173                 Fail("Direct I/O is not available on darwin");
174         } else {
175                 UnSet("CONFIG_UCW_DIRECT_IO");
176         }
177 }
178
179 ### Compiling test programs ###
180
181 sub TestCompile($$) {
182         my ($testname, $source) = @_;
183         my $dir = "conftest-$testname";
184         `rm -rf $dir && mkdir $dir`; $? and Fail "Cannot initialize $dir";
185
186         open SRC, ">$dir/conftest.c";
187         print SRC $source;
188         close SRC;
189
190         my $cmd = join(" ",
191                 map { defined($_) ? $_ : "" }
192                         "cd $dir &&",
193                         Get("CC"), Get("CLANG"), Get("COPT"), Get("CEXTRA"), Get("LIBS"),
194                         "conftest.c", "-o", "conftest",
195                         ">conftest.log", "2>&1"
196                 );
197         `$cmd`;
198         my $result = !$?;
199
200         `rm -rf $dir` unless Get("KEEP_CONFTEST");
201
202         return $result;
203 }
204
205 ### Writing C headers with configuration ###
206
207 sub ConfigHeader($$) {
208         my ($hdr, $rules) = @_;
209         Log "Generating $hdr ... ";
210         open X, ">obj/$hdr" or Fail $!;
211         print X "/* Generated automatically by $0, please don't touch manually. */\n";
212
213         sub match_rules($$) {
214                 my ($rules, $name) = @_;
215                 for (my $i=0; $i < scalar @$rules; $i++) {
216                         my ($r, $v) = ($rules->[$i], $rules->[$i+1]);
217                         return $v if $name =~ $r;
218                 }
219                 return 0;
220         }
221
222         foreach my $x (sort keys %UCW::Configure::vars) {
223                 next unless match_rules($rules, $x);
224                 my $v = $UCW::Configure::vars{$x};
225                 # Try to add quotes if necessary
226                 $v = '"' . $v . '"' unless ($v =~ /^"/ || $v =~ /^\d*$/);
227                 print X "#define $x $v\n";
228         }
229         close X;
230         Log "done\n";
231 }
232
233 AtWrite {
234         ConfigHeader("autoconf.h", [
235                 # Symbols with "_" anywhere in their name are exported
236                 "_" => 1
237         ]);
238 };
239
240 # Return success
241 1;