Add build system profiling to build system

15 files changed, 47 insertions, 0 deletions

diff --git a/ghc.mk b/ghc.mk
index 53b859da77..3ad7d45a99 100644
--- a/ghc.mk
+++ b/ghc.mk
@@ -139,6 +139,7 @@ endif
 # -----------------------------------------------------------------------------
 # Utility definitions
 
+include rules/prof.mk
 include rules/trace.mk
 include rules/make-command.mk
 
diff --git a/rules/build-dependencies.mk b/rules/build-dependencies.mk
index fa4e2d2d8d..3aa176cf05 100644
--- a/rules/build-dependencies.mk
+++ b/rules/build-dependencies.mk
@@ -12,6 +12,7 @@
 
 define build-dependencies
 $(call trace, build-dependencies($1,$2,$3))
+$(call profStart, build-dependencies($1,$2,$3))
 # $1 = dir
 # $2 = distdir
 # $3 = GHC stage to use (0 == bootstrapping compiler)
@@ -73,6 +74,7 @@ endif # $1_$2_NO_BUILD_DEPS
 # Note sed magic above: mkdependC can't do -odir stuff, so we have to
 # munge the dependencies it generates to refer to the correct targets.
 
+$(call profEnd, build-dependencies($1,$2,$3))
 endef
 
 # This comment is outside the "define addCFileDeps" as that definition
diff --git a/rules/build-package-data.mk b/rules/build-package-data.mk
index 98f66e61c1..3392d904d0 100644
--- a/rules/build-package-data.mk
+++ b/rules/build-package-data.mk
@@ -12,6 +12,7 @@
 
 define build-package-data
 $(call trace, build-package-data($1,$2,$3))
+$(call profStart, build-package-data($1,$2,$3))
 # args:
 # $1 = dir
 # $2 = distdir
@@ -80,4 +81,5 @@ endif
 
 PACKAGE_DATA_MKS += $1/$2/package-data.mk
 
+$(call profEnd, build-package-data($1,$2,$3))
 endef
diff --git a/rules/build-package-way.mk b/rules/build-package-way.mk
index c2849ce95f..8b67ce2239 100644
--- a/rules/build-package-way.mk
+++ b/rules/build-package-way.mk
@@ -13,6 +13,7 @@
 
 define build-package-way # $1 = dir, $2 = distdir, $3 = way, $4 = stage
 $(call trace, build-package-way($1,$2,$3))
+$(call profStart, build-package-way($1,$2,$3))
 
 $(call distdir-way-opts,$1,$2,$3,$4)
 $(call hs-suffix-rules,$1,$2,$3)
@@ -130,5 +131,6 @@ endif
 endif
 endif
 
+$(call profEnd, build-package-way($1,$2,$3))
 endef
 
diff --git a/rules/build-package.mk b/rules/build-package.mk
index 3f4cd934a2..74ffbbd925 100644
--- a/rules/build-package.mk
+++ b/rules/build-package.mk
@@ -30,6 +30,7 @@
 
 define build-package
 $(call trace, build-package($1,$2,$3))
+$(call profStart, build-package($1,$2,$3))
 # $1 = dir
 # $2 = distdir
 # $3 = GHC stage to use (0 == bootstrapping compiler)
@@ -52,6 +53,7 @@ clean_$1_$2_config:
 ifneq "$$($1_$2_NOT_NEEDED)" "YES"
 $$(eval $$(call build-package-helper,$1,$2,$3))
 endif
+$(call profEnd, build-package($1,$2,$3))
 endef
 
 
diff --git a/rules/build-perl.mk b/rules/build-perl.mk
index e13185d85d..301d84860c 100644
--- a/rules/build-perl.mk
+++ b/rules/build-perl.mk
@@ -20,6 +20,7 @@
 
 define build-perl
 $(call trace, build-perl($1,$2))
+$(call profStart, build-perl($1,$2))
 # $1 = dir
 # $2 = distdir
 
@@ -65,4 +66,5 @@ install_$1_$2: $1/$2/$$($1_$2_PROG)
 endif
 endif
 
+$(call profEnd, build-perl($1,$2))
 endef
diff --git a/rules/build-prog.mk b/rules/build-prog.mk
index 4c07ad6308..c08c40828a 100644
--- a/rules/build-prog.mk
+++ b/rules/build-prog.mk
@@ -21,6 +21,7 @@
 
 define build-prog
 $(call trace, build-prog($1,$2,$3))
+$(call profStart, build-prog($1,$2,$3))
 # $1 = dir
 # $2 = distdir
 # $3 = GHC stage to use (0 == bootstrapping compiler)
@@ -40,6 +41,7 @@ $(call clean-target,$1,$2,$1/$2)
 ifneq "$$($1_$2_NOT_NEEDED)" "YES"
 $$(eval $$(call build-prog-helper,$1,$2,$3))
 endif
+$(call profEnd, build-prog($1,$2,$3))
 endef
 
 
diff --git a/rules/docbook.mk b/rules/docbook.mk
index ebc37517be..8030fb7dc8 100644
--- a/rules/docbook.mk
+++ b/rules/docbook.mk
@@ -15,6 +15,7 @@
 
 define docbook
 $(call trace, docbook($1,$2))
+$(call profStart, docbook($1,$2))
 # $1 = dir
 # $2 = docname
 
@@ -80,5 +81,6 @@ $1/$2.pdf: $$($1_DOCBOOK_SOURCES)
 	[ -f $$@ ]
 endif
 
+$(call profEnd, docbook($1,$2))
 endef
 
diff --git a/rules/haddock.mk b/rules/haddock.mk
index ae58bceda4..99e0df66a5 100644
--- a/rules/haddock.mk
+++ b/rules/haddock.mk
@@ -13,6 +13,7 @@
 
 define haddock  # args: $1 = dir,  $2 = distdir
 $(call trace, haddock($1,$2))
+$(call profStart, haddock($1,$2))
 
 ifneq "$$($1_$2_DO_HADDOCK)" "NO"
 
@@ -71,5 +72,6 @@ endif
 
 endif
 
+$(call profEnd, haddock($1,$2))
 endef
 
diff --git a/rules/include-dependencies.mk b/rules/include-dependencies.mk
index c6096f4274..b93311075f 100644
--- a/rules/include-dependencies.mk
+++ b/rules/include-dependencies.mk
@@ -12,6 +12,7 @@
 
 define include-dependencies
 $(call trace, include-dependencies($1,$2,$3))
+$(call profStart, include-dependencies($1,$2,$3))
 # $1 = dir
 # $2 = distdir
 # $3 = GHC stage to use (0 == bootstrapping compiler)
@@ -29,5 +30,6 @@ $$(warning not building dependencies in $1)
 endif
 endif
 
+$(call profEnd, include-dependencies($1,$2,$3))
 endef
 
diff --git a/rules/manual-package-config.mk b/rules/manual-package-config.mk
index 6b2b2ac2cb..c37f204d95 100644
--- a/rules/manual-package-config.mk
+++ b/rules/manual-package-config.mk
@@ -13,6 +13,7 @@
 
 define manual-package-config # args: $1 = dir
 $(call trace, manual-package-config($1))
+$(call profStart, manual-package-config($1))
 
 $1/package.conf.inplace : $1/package.conf.in $(GHC_PKG_INPLACE)
 	$$(CPP) $$(RAWCPP_FLAGS) -P \
@@ -42,4 +43,5 @@ distclean : clean_$1_package.conf
 clean_$1_package.conf :
 	"$$(RM)" $$(RM_OPTS) $1/package.conf.install $1/package.conf.inplace
 
+$(call profEnd, manual-package-config($1))
 endef
diff --git a/rules/package-config.mk b/rules/package-config.mk
index f111e1efac..2091779d1e 100644
--- a/rules/package-config.mk
+++ b/rules/package-config.mk
@@ -13,6 +13,7 @@
 
 define package-config # args: $1 = dir, $2 = distdir, $3 = GHC stage
 $(call trace, package-config($1,$2,$3))
+$(call profStart, package-config($1,$2,$3))
 
 $1_$2_HC = $$(GHC_STAGE$3)
 
@@ -55,4 +56,5 @@ endif
 # Useful later
 $1_$2_SLASH_MODS = $$(subst .,/,$$($1_$2_MODULES))
 
+$(call profEnd, package-config($1,$2,$3))
 endef
diff --git a/rules/prof.mk b/rules/prof.mk
new file mode 100644
index 0000000000..c80a7c5312
--- /dev/null
+++ b/rules/prof.mk
@@ -0,0 +1,20 @@
+# -----------------------------------------------------------------------------
+#
+# (c) 2010 The University of Glasgow
+#
+# This file is part of the GHC build system.
+#
+# To understand how the build system works and how to modify it, see
+#      http://hackage.haskell.org/trac/ghc/wiki/Building/Architecture
+#      http://hackage.haskell.org/trac/ghc/wiki/Building/Modifying
+#
+# -----------------------------------------------------------------------------
+
+define profStart
+$$(if $(PROF),$$(info $$(shell date +%s.%N): Start $1))
+endef
+
+define profEnd
+$$(if $(PROF),$$(info $$(shell date +%s.%N): End   $1))
+endef
+
diff --git a/rules/shell-wrapper.mk b/rules/shell-wrapper.mk
index 6cd3cdb49d..64339576c6 100644
--- a/rules/shell-wrapper.mk
+++ b/rules/shell-wrapper.mk
@@ -12,6 +12,7 @@
 
 define shell-wrapper
 $(call trace, shell-wrapper($1,$2))
+$(call profStart, shell-wrapper($1,$2))
 # $1 = dir
 # $2 = distdir
 
@@ -85,4 +86,5 @@ endif
 
 endif # $1_$2_SHELL_WRAPPER
 
+$(call profEnd, shell-wrapper($1,$2))
 endef
diff --git a/rules/tags-package.mk b/rules/tags-package.mk
index e9116487fb..e72ffb74c1 100644
--- a/rules/tags-package.mk
+++ b/rules/tags-package.mk
@@ -19,6 +19,7 @@
 
 define tags-package
 $(call trace, tags-package($1,$2))
+$(call profStart, tags-package($1,$2))
 # $1 = dir
 # $2 = distdir
 
@@ -30,5 +31,6 @@ tags_$1:
 TAGS_$1:
 	inplace/bin/ghctags --topdir $$(TOP)/inplace/lib -e --use-cabal-config $1/$2 -- $$($1_$2_TAGS_HC_OPTS) $$($1_$2_v_ALL_HC_OPTS) -- $$($1_$2_HS_SRCS)
 
+$(call profEnd, tags-package($1,$2))
 endef