diff options
| -rw-r--r-- | compiler/ghci/GHCi.hs | 1 | ||||
| -rw-r--r-- | rts/ProfHeap.c | 2 | ||||
| -rw-r--r-- | rts/Profiling.c | 2 |
3 files changed, 3 insertions, 2 deletions
diff --git a/compiler/ghci/GHCi.hs b/compiler/ghci/GHCi.hs index c54090c2fd..2e2cd35686 100644 --- a/compiler/ghci/GHCi.hs +++ b/compiler/ghci/GHCi.hs @@ -70,6 +70,7 @@ import System.Exit import Data.Maybe import GHC.IO.Handle.Types (Handle) #ifdef mingw32_HOST_OS +import Foreign.C import GHC.IO.Handle.FD (fdToHandle) #else import System.Posix as Posix diff --git a/rts/ProfHeap.c b/rts/ProfHeap.c index 187116fdbc..a7ea3eb565 100644 --- a/rts/ProfHeap.c +++ b/rts/ProfHeap.c @@ -515,7 +515,7 @@ fprint_ccs(FILE *fp, CostCentreStack *ccs, nat max_length) return; } - fprintf(fp, "(%ld)", ccs->ccsID); + fprintf(fp, "(%" FMT_Int ")", ccs->ccsID); p = buf; buf_end = buf + max_length + 1; diff --git a/rts/Profiling.c b/rts/Profiling.c index c67b0817df..4f2606c8b4 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -951,7 +951,7 @@ logCCS(CostCentreStack *ccs, nat indent, max_module_len - strlen_utf8(cc->module), ""); fprintf(prof_file, - " %*ld %11" FMT_Word64 " %5.1f %5.1f %5.1f %5.1f", + " %*" FMT_Int "%11" FMT_Word64 " %5.1f %5.1f %5.1f %5.1f", max_id_len, ccs->ccsID, ccs->scc_count, total_prof_ticks == 0 ? 0.0 : ((double)ccs->time_ticks / (double)total_prof_ticks * 100.0), total_alloc == 0 ? 0.0 : ((double)ccs->mem_alloc / (double)total_alloc * 100.0), |