[commit: ghc] master: Cleanup boot and validate (a816ac4)
git at git.haskell.org
git at git.haskell.org
Mon Oct 15 21:43:40 UTC 2018
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/a816ac48b01bfc2419c11c9f2ef999e9bda7e95f/ghc
>---------------------------------------------------------------
commit a816ac48b01bfc2419c11c9f2ef999e9bda7e95f
Author: Krzysztof Gogolewski <krz.gogolewski at gmail.com>
Date: Mon Oct 15 13:32:54 2018 -0400
Cleanup boot and validate
- Remove dph from validate; dph was removed
- The required-tag argument to boot was used only for dph, remove
- check_boot_packages() was not called at all, and didn't work.
I fixed it based on previous Perl version.
Test Plan: Harbormaster
Reviewers: bgamari, thomie
Reviewed By: bgamari
Subscribers: rwbarton, carter
Differential Revision: https://phabricator.haskell.org/D5129
>---------------------------------------------------------------
a816ac48b01bfc2419c11c9f2ef999e9bda7e95f
boot | 12 ++++++------
validate | 14 +-------------
2 files changed, 7 insertions(+), 19 deletions(-)
diff --git a/boot b/boot
index 29643e4..f534c30 100755
--- a/boot
+++ b/boot
@@ -13,7 +13,6 @@ cwd = os.getcwd()
parser = argparse.ArgumentParser()
parser.add_argument('--validate', action='store_true', help='Run in validate mode')
-parser.add_argument('--required-tag', type=str, action='append', default=set())
parser.add_argument('--hadrian', action='store_true', help='Do not assume the make base build system')
args = parser.parse_args()
@@ -65,16 +64,16 @@ def check_boot_packages():
if l.startswith('#'):
continue
- parts = l.split(' ')
+ parts = [part for part in l.split(' ') if part]
if len(parts) != 4:
die("Error: Bad line in packages file: " + l)
dir_ = parts[0]
tag = parts[1]
- # If $tag is not "-" then it is an optional repository, so its
+ # If tag is not "-" then it is an optional repository, so its
# absence isn't an error.
- if tag in args.required_tag:
+ if tag == '-':
# We would like to just check for a .git directory here,
# but in an lndir tree we avoid making .git directories,
# so it doesn't exist. We therefore require that every repo
@@ -82,9 +81,9 @@ def check_boot_packages():
license_path = os.path.join(dir_, 'LICENSE')
if not os.path.isfile(license_path):
die("""\
- Error: %s doesn't exist" % license_path)
+ Error: %s doesn't exist
Maybe you haven't run 'git submodule update --init'?
- """)
+ """ % license_path)
# Create libraries/*/{ghc.mk,GNUmakefile}
def boot_pkgs():
@@ -191,6 +190,7 @@ def check_build_mk():
"""))
check_for_url_rewrites()
+check_boot_packages()
if not args.hadrian:
boot_pkgs()
autoreconf()
diff --git a/validate b/validate
index 2f82b28..8ceaa61 100755
--- a/validate
+++ b/validate
@@ -23,7 +23,6 @@ Flags:
--slow Build stage2 with -DDEBUG. Run tests for all WAYS,
but skip those that call compiler_stats_num_field.
2008-07-01: 14% slower than the default.
- --dph Also build libraries/dph and run associated tests.
--quiet More pretty build log.
See Note [Default build system verbosity].
--help shows this usage help.
@@ -50,7 +49,6 @@ testsuite_only=0
build_only=0
hpc=NO
speed=NORMAL
-use_dph=0
be_quiet=0
# Validate uses gzip compression for the binary distribution to avoid the rather
# heavy cost of xz, which is the typical default. The options are defined in
@@ -81,12 +79,6 @@ do
--normal) # for backward compat
speed=NORMAL
;;
- --no-dph) # for backward compat
- use_dph=0
- ;;
- --dph)
- use_dph=1
- ;;
--quiet)
be_quiet=1
;;
@@ -158,11 +150,7 @@ if [ $no_clean -eq 0 ]; then
INSTDIR="$thisdir/inst"
- if [ $use_dph -eq 1 ]; then
- python3 ./boot --validate --required-tag=dph
- else
- python3 ./boot --validate
- fi
+ python3 ./boot --validate
./configure --prefix="$INSTDIR" $config_args
fi
More information about the ghc-commits
mailing list