[commit: ghc] wip/erikd/linker: Fix Windows build after Ticky changes (259ac74)

git at git.haskell.org git at git.haskell.org
Sat May 21 10:50:18 UTC 2016


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

On branch  : wip/erikd/linker
Link       : http://ghc.haskell.org/trac/ghc/changeset/259ac746c2cf6f9e6a982d6a800a85ab8f7e8105/ghc

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

commit 259ac746c2cf6f9e6a982d6a800a85ab8f7e8105
Author: Tamar Christina <tamar at zhox.com>
Date:   Sat May 21 20:52:55 2016 +1000

    Fix Windows build after Ticky changes
    
    Summary:
    Replace hardcoded ld with FMT_Int for
    StgInt types.
    
    Test Plan: ./validate
    
    Reviewers: austin, bgamari, simonmar, erikd
    
    Reviewed By: erikd
    
    Subscribers: thomie, #ghc_windows_task_force
    
    Differential Revision: https://phabricator.haskell.org/D2249


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

259ac746c2cf6f9e6a982d6a800a85ab8f7e8105
 rts/Ticky.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/rts/Ticky.c b/rts/Ticky.c
index cb3651d..b854e9e 100644
--- a/rts/Ticky.c
+++ b/rts/Ticky.c
@@ -135,19 +135,19 @@ PrintTickyInfo(void)
         PC(INTAVG(tot_returns_of_new,tot_returns)));
 
 
-  fprintf(tf, "\nRET_NEW:         %11ld: ", RET_NEW_ctr);
+  fprintf(tf, "\nRET_NEW:         %11" FMT_Int ": ", RET_NEW_ctr);
   for (i = 0; i < TICKY_BIN_COUNT; i++) {
     fprintf(tf, "%5.1f%%", PC(INTAVG(RET_NEW_hst[i], RET_NEW_ctr)));
   }
   fprintf(tf, "\n");
 
-  fprintf(tf, "RET_OLD:         %11ld: ", RET_OLD_ctr);
+  fprintf(tf, "RET_OLD:         %11" FMT_Int ": ", RET_OLD_ctr);
   for (i = 0; i < TICKY_BIN_COUNT; i++) {
     fprintf(tf, "%5.1f%%", PC(INTAVG(RET_OLD_hst[i], RET_OLD_ctr)));
   }
   fprintf(tf, "\n");
 
-  fprintf(tf, "RET_UNBOXED_TUP: %11ld: ", RET_UNBOXED_TUP_ctr);
+  fprintf(tf, "RET_UNBOXED_TUP: %11" FMT_Int ": ", RET_UNBOXED_TUP_ctr);
   for (i = 0; i < TICKY_BIN_COUNT; i++) {
     fprintf(tf, "%5.1f%%", PC(INTAVG(RET_UNBOXED_TUP_hst[i],
                            RET_UNBOXED_TUP_ctr)));
@@ -311,7 +311,7 @@ PrintTickyInfo(void)
   PR_CTR(RET_UNBOXED_TUP_ctr);
 
 #define PR_HST_BINS(hst) for (i = 0; i < TICKY_BIN_COUNT; i++) \
-  { fprintf(tf,"%11ld " #hst "_%lu\n", hst[i], i); }
+  { fprintf(tf,"%11" FMT_Int " " #hst "_%lu\n", hst[i], i); }
 
   PR_HST_BINS(RET_NEW_hst);
   PR_HST_BINS(RET_OLD_hst);



More information about the ghc-commits mailing list