Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/d0ca06cafc51516bd31994776074d570ab529d4a

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

commit d0ca06cafc51516bd31994776074d570ab529d4a
Author: Ian Lynagh <i...@well-typed.com>
Date:   Thu Oct 4 10:15:46 2012 +0100

    Make some perf tests always use -static
    
    Compiling with -dynamic (perhaps due to -fPIC being enabled?) seems
    to require significantly more allocation:
    
    =====> T1969(normal) 1 of 14 [0, 0, 0]
    cd . && '/home/ian/ghc/git/ghc/inplace/bin/ghc-stage2' -fforce-recomp 
-dno-debug-output -no-user-package-db -rtsopts -fno-ghci-history -c T1969.hs   
+RTS -V0 -tT1969.comp.stats --machine-readable -RTS -dcore-lint 
>T1969.comp.stderr 2>&1
    bytes allocated 669128520 is more than 1% greater than the expected value, 
641959976 648379575.76
    *** unexpected failure for T1969(normal)
    
    =====> T4801(normal) 3 of 14 [0, 1, 0]
    cd . && '/home/ian/ghc/git/ghc/inplace/bin/ghc-stage2' -fforce-recomp 
-dno-debug-output -no-user-package-db -rtsopts -fno-ghci-history -c T4801.hs   
+RTS -V0 -tT4801.comp.stats --machine-readable -RTS  >T4801.comp.stderr 2>&1
    max_bytes_used 26928312 is more than 15% greater than the expected value, 
18500000 21275000.0
    peak_megabytes_allocated 66 is more than 20% greater than the expected 
value, 50 60.0
    bytes allocated 522280144 is more than 10% greater than the expected value, 
360243576 396267933.6
    *** unexpected failure for T4801(normal)
    
    =====> T783(normal) 9 of 14 [0, 2, 0]
    cd . && '/home/ian/ghc/git/ghc/inplace/bin/ghc-stage2' -fforce-recomp 
-dno-debug-output -no-user-package-db -rtsopts -fno-ghci-history -c T783.hs   
+RTS -V0 -tT783.comp.stats --machine-readable -RTS  >T783.comp.stderr 2>&1
    bytes allocated 506284808 is more than 10% greater than the expected value, 
436927840 480620624.0
    *** unexpected failure for T783(normal)

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

 tests/perf/compiler/all.T |    8 +++++---
 1 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/tests/perf/compiler/all.T b/tests/perf/compiler/all.T
index 28f3113..4898d72 100644
--- a/tests/perf/compiler/all.T
+++ b/tests/perf/compiler/all.T
@@ -50,7 +50,7 @@ test('T1969',
                                     #                 (^ new codegen)
                                     # 18/09/2012:     641,959,976 (amd64/Linux)
       only_ways(['normal']),
-      extra_hc_opts('-dcore-lint')
+      extra_hc_opts('-dcore-lint -static')
           # Leave -dcore-lint on for this one test, so that we have something
           # that will catch a regression in -dcore-lint performance.
       ],
@@ -126,7 +126,8 @@ test('T4801',
       if_platform('x86_64-apple-darwin',
           compiler_stats_num_field('max_bytes_used', 20000000,
                                                      23000000)),
-       only_ways(['normal'])
+       only_ways(['normal']),
+       extra_hc_opts('-static')
       ],
      compile,
      [''])
@@ -207,10 +208,11 @@ test('T783',
           compiler_stats_num_field('bytes allocated', 125000000,
                                                       225000000)),
       if_wordsize(64,
-          compiler_stats_range_field('bytes allocated', 436927840, 10))
+          compiler_stats_range_field('bytes allocated', 436927840, 10)),
                            # prev:       349,263,216 (amd64/Linux)
                            # 07/08/2012: 384,479,856 (amd64/Linux)
                            # 29/08/2012: 436,927,840 (amd64/Linux)
+      extra_hc_opts('-static')
       ],
       compile,[''])
 



_______________________________________________
Cvs-ghc mailing list
Cvs-ghc@haskell.org
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to