3 # Copyright (C) 2001 Free Software Foundation, Inc.
5 # This file is part of GNU Emacs.
7 # GNU Emacs is free software; you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 2, or (at your option)
12 # GNU Emacs is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with GNU Emacs; see the file COPYING. If not, write to the
19 # Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 # Boston, MA 02111-1307, USA.
22 # Build Emacs with various options for profiling, debugging,
23 # with and without warnings enabled etc.
30 # Default CVS sandbox directory. Only used when called from outside
33 $root = $ENV{"EMACS_ROOT"};
34 $root = "/gd/gnu/emacs" unless $root;
36 # Default make command.
38 $make = $ENV{"EMACS_MAKE"};
39 $make = "gmake" unless $make;
41 $rc = GetOptions
("help" => \
$help,
42 "enable-checking" => \
$enable_checking,
43 "no-warn" => \
$no_warn,
44 "check-marked" => \
$check_marked,
46 "no-optim" => \
$no_optim,
47 "union-type" => \
$union_type,
49 "malloc-check" => \
$malloc_check,
50 "no-mcheck" => \
$no_mcheck,
51 "alias" => \
$aliasing,
55 "trace-selection" => \
$trace_selection,
56 "stabs" => \
$use_stabs,
59 if ($rc == 0 || $help)
62 make-emacs [options] ...
67 --all make clean versionclean first
68 --boot make boostrap, log to boot.log
69 --enable-checking ENABLE_CHECKING=1 (implies Lisp union type)
70 --no-warn disable warnings
71 --check-marked GC_CHECK_MARKED_OBJECTS=1
72 --optim no debug defines
73 --gprof make Emacs for profiling
74 --union-type define USE_LISP_UNION_TYPE (bad for GDB)
75 --malloc-check define GC_MALLOC_CHECK
76 --no-mcheck dont define GC_MCHECK
77 --wall compile with -Wall
78 --gcc3 use GCC 3.0 (30% slower compilation, slower code)
79 --trace-selection print traces in xselect.c
80 --stabs use -gstabs instead -g
82 Default is to compile with warnings, with -DGC_MCHECK=1, and
89 # Chdir to the top-level directory of the tree. If not in a tree
90 # containing Emacs, use the default.
92 while (! -f
"src/emacs.c" && cwd
() ne "/")
97 chdir $root if cwd
() eq "/";
99 print "Build in ", cwd
(), "\n";
101 # If first arg is `all' or if `--all' specified, ensure a clean
104 if (@ARGV && $ARGV[0] eq "all")
110 system ("$make clean versionclean") if $all;
118 $warn = "-Wpointer-arith -Wchar-subscripts -Wformat -Wimplicit-int";
119 $warn = "$warn -Wreturn-type -Wswitch -Wuninitialized";
122 $defs = "-DGLYPH_DEBUG=1" unless $optim;
123 $defs = "$defs -DGC_CHECK_MARKED_OBJECTS=1" if $check_marked;
124 $defs = "$defs -DENABLE_CHECKING=1" if $enable_checking;
129 $defs = "$defs -DPROFILING=1";
143 $defs = "$defs -DUSE_LISP_UNION_TYPE" if $union_type;
144 $defs = "$defs -DGC_MALLOC_CHECK=1 -DGC_PROTECT_MALLOC_STATE=1" if $malloc_check;
145 $defs = "$defs -DGC_MCHECK=1" unless $no_mcheck;
147 $defs = "$defs -DTRACE_SELECTION" if $trace_selection;
149 # arch=pentium leads to slightly faster code than without.
150 $opts = "$opts -march=pentiumpro";
154 $opts = "$opts -pipe -O3";
158 $opts = "$opts -pipe -fno-inline";
162 $opts = "$opts -O -pipe -fno-inline";
165 $opts = "$opts -fstrict-aliasing" if $aliasing;
167 $opts = "$opts $defs" if $defs;
168 $opts = "$opts $warn" if $warn;
170 $cc = "/usr/bin/gcc";
171 $cc = "/gd/local/bin/gcc" if $gcc3;
176 system "mv boot.log boot.log.old" if -f
"boot.log";
177 exit system "script boot.log $make CC=\"$cc\" CFLAGS=\"$opts\" bootstrap";
180 exit system "$make CC=\"$cc\" CFLAGS=\"$opts\" @ARGV";