[commit: ghc] wip/nfs-locking: Implement all modes of GenPrimopCode builder. (1a17fee)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/1a17fee2b8dc82a4b4778cf1f3219fdad584db8d/ghc

>---------------------------------------------------------------

commit 1a17fee2b8dc82a4b4778cf1f3219fdad584db8d
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Thu Sep 24 05:49:39 2015 +0100

    Implement all modes of GenPrimopCode builder.


>---------------------------------------------------------------

1a17fee2b8dc82a4b4778cf1f3219fdad584db8d
 src/Settings/Builders/GenPrimopCode.hs | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/src/Settings/Builders/GenPrimopCode.hs b/src/Settings/Builders/GenPrimopCode.hs
index 711aa80..6de1f47 100644
--- a/src/Settings/Builders/GenPrimopCode.hs
+++ b/src/Settings/Builders/GenPrimopCode.hs
@@ -1,8 +1,27 @@
 module Settings.Builders.GenPrimopCode (genPrimopCodeArgs) where
 
 import Expression
-import Predicates (builder)
+import Predicates (builder, file)
 
 -- Stdin/stdout are handled in a special way. See Rules/Actions.hs.
+-- TODO: Do we want to keep "--usage"? It seems to be unused.
 genPrimopCodeArgs :: Args
-genPrimopCodeArgs = builder GenPrimopCode ? arg "--make-haskell-wrappers"
+genPrimopCodeArgs = builder GenPrimopCode ? mconcat
+    [ file "//PrimopWrappers.hs"                 ? arg "--make-haskell-wrappers"
+    , file "//Prim.hs"                           ? arg "--make-haskell-source"
+    , file "//primop-data-decl.hs-incl"          ? arg "--data-decl"
+    , file "//primop-tag.hs-incl"                ? arg "--primop-tag"
+    , file "//primop-list.hs-incl"               ? arg "--primop-list"
+    , file "//primop-has-side-effects.hs-incl"   ? arg "--has-side-effects"
+    , file "//primop-out-of-line.hs-incl"        ? arg "--out-of-line"
+    , file "//primop-commutable.hs-incl"         ? arg "--commutable"
+    , file "//primop-code-size.hs-incl"          ? arg "--code-size"
+    , file "//primop-can-fail.hs-incl"           ? arg "--can-fail"
+    , file "//primop-strictness.hs-incl"         ? arg "--strictness"
+    , file "//primop-fixity.hs-incl"             ? arg "--fixity"
+    , file "//primop-primop-info.hs-incl"        ? arg "--primop-primop-info"
+    , file "//primop-vector-uniques.hs-incl"     ? arg "--primop-vector-uniques"
+    , file "//primop-vector-tys.hs-incl"         ? arg "--primop-vector-tys"
+    , file "//primop-vector-tys-exports.hs-incl" ? arg "--primop-vector-tys-exports"
+    , file "//primop-vector-tycons.hs-incl"      ? arg "--primop-vector-tycons"
+    , file "//primop-usage.hs-incl"              ? arg "--usage" ]