X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRetainerSet.c;h=5e9b37c04ce81d0a1aaacbaa7f4078b088b4ac5b;hb=661c97c65e5fa47177502e592bb763f752b487ac;hp=e1db6150207cb370b145d157ebf21cdb29c1099a;hpb=23e5985c3db852981d527d10d6a6271688049790;p=ghc-hetmet.git

diff --git a/rts/RetainerSet.c b/rts/RetainerSet.c
index e1db615..5e9b37c 100644
--- a/rts/RetainerSet.c
+++ b/rts/RetainerSet.c
@@ -9,15 +9,15 @@
 
 #ifdef PROFILING
 
+#include "PosixSource.h"
 #include "Rts.h"
-#include "RtsFlags.h"
+
 #include "Stats.h"
 #include "RtsUtils.h"
 #include "RetainerSet.h"
 #include "Arena.h"
 #include "Profiling.h"
 
-#include <stdlib.h>
 #include <string.h>
 
 #define HASH_TABLE_SIZE 255
@@ -345,7 +345,7 @@ printRetainerSetShort(FILE *f, RetainerSet *rs)
 	    // size = strlen(tmp);
 	}
     }
-    fprintf(f, tmp);
+    fputs(tmp, f);
 }
 #elif defined(RETAINER_SCHEME_CC)
 // Retainer scheme 3: retainer = cost centre