I've done the spec-inline one. I think setByteArray is Ian
commit 536f090da3225a73c17b5e940d74daa99297d66e Author: Ian Lynagh <[email protected]> Date: Mon May 28 10:54:54 2012 +0100 Add a test for setByteArray Simon | -----Original Message----- | From: [email protected] [mailto:[email protected]] | On Behalf Of Simon Marlow | Sent: 04 June 2012 12:35 | To: GHC CVS list | Subject: validate failures | | Today's validate has 3 failures. One is a "stat too good", so I'll | commit a fix. Could whoever is responsible please fix the other two: | | =====> setByteArray(normal) 1494 of 3344 [0, 0, 0] cd | ./codeGen/should_run && | '/5playpen/simonmar/ghc-validate/bindisttest/install dir/bin/ghc' | -fforce-recomp -dcore-lint -dcmm-lint -dno-debug-output -no-user- | package-conf -rtsopts -fno-ghci-history -o setByteArray | setByteArray.hs >setByteArray.comp.stderr 2>&1 | Compile failed (status 256) errors were: | | <no location info>: can't find file: setByteArray.hs | | *** unexpected failure for setByteArray(normal) | | | =====> spec-inline(optasm) 1831 of 3344 [0, 2, 0] cd | ./simplCore/should_compile && | '/5playpen/simonmar/ghc-validate/bindisttest/install dir/bin/ghc' | -fforce-recomp -dcore-lint -dcmm-lint -dno-debug-output -no-user- | package-conf -rtsopts -fno-ghci-history -c spec-inline.hs -O -fasm -O2 | -ddump-simpl -dsuppress-uniques >spec-inline.comp.stderr 2>&1 Actual | stderr output differs from expected: | --- ./simplCore/should_compile/spec-inline.stderr 2012-05-10 | 11:42:13.000000000 +0100 | +++ ./simplCore/should_compile/spec-inline.comp.stderr 2012-06-04 | 11:29:51.315535903 +0100 | @@ -110,7 +110,7 @@ | Str=DmdType m, | Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True, | ConLike=True, WorkFree=False, Expandable=True, | - Guidance=IF_ARGS [] 10 110}] | + Guidance=IF_ARGS [] 10 20}] | Roman.foo2 = GHC.Types.I# 6 | | Roman.foo1 :: Data.Maybe.Maybe GHC.Types.Int @@ -119,7 +119,7 @@ | Str=DmdType, | Unf=Unf{Src=<vanilla>, TopLvl=True, Arity=0, Value=True, | ConLike=True, WorkFree=False, Expandable=True, | - Guidance=IF_ARGS [] 10 110}] | + Guidance=IF_ARGS [] 10 20}] | Roman.foo1 = Data.Maybe.Just @ GHC.Types.Int Roman.foo2 | | Roman.foo :: GHC.Types.Int -> GHC.Types.Int | *** unexpected failure for spec-inline(optasm) | | _______________________________________________ | Cvs-ghc mailing list | [email protected] | http://www.haskell.org/mailman/listinfo/cvs-ghc _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
