Commits (2)
...@@ -420,6 +420,7 @@ cacheprof ...@@ -420,6 +420,7 @@ cacheprof
~~~~~~~~~ ~~~~~~~~~
Sucessive runs with the same data can yield different allocation Sucessive runs with the same data can yield different allocation
totals, for some reason. totals, for some reason.
Reported at https://ghc.haskell.org/trac/ghc/ticket/8611
gg gg
~~ ~~
......
...@@ -5,6 +5,8 @@ include $(TOP)/mk/boilerplate.mk ...@@ -5,6 +5,8 @@ include $(TOP)/mk/boilerplate.mk
# we don't want to include fasta-c.c # we don't want to include fasta-c.c
SRCS = Main.hs SRCS = Main.hs
CLEAN_FILES += fasta-c fasta.faststdout fasta.stdout fasta.slowstdout
FAST_OPTS = 250000 FAST_OPTS = 250000
NORM_OPTS = 2500000 NORM_OPTS = 2500000
SLOW_OPTS = 25000000 # official shootout setting SLOW_OPTS = 25000000 # official shootout setting
......
...@@ -37,7 +37,7 @@ amino homosapiens[] = { ...@@ -37,7 +37,7 @@ amino homosapiens[] = {
#define WIDTH 60 #define WIDTH 60
#define LENGTH(a) (sizeof(a)/sizeof(a[0])) #define LENGTH(a) (sizeof(a)/sizeof(a[0]))
inline void str_write(char *s) { static inline void str_write(char *s) {
write(fileno(stdout), s, strlen(s)); write(fileno(stdout), s, strlen(s));
} }
......