[commit: ghc] ghc-8.0: rts/Profiling: Fix C99-ism (b5ec09d)

[git at git.haskell.org]

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

On branch  : ghc-8.0
Link       : http://ghc.haskell.org/trac/ghc/changeset/b5ec09dff6b865550f3bd225f86028a304596c61/ghc

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

commit b5ec09dff6b865550f3bd225f86028a304596c61
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Sun Aug 21 09:30:42 2016 -0400

    rts/Profiling: Fix C99-ism
    
    GHC 8.0 isn't C99.


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

b5ec09dff6b865550f3bd225f86028a304596c61
 rts/Profiling.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rts/Profiling.c b/rts/Profiling.c
index 57d38c5..099778b 100644
--- a/rts/Profiling.c
+++ b/rts/Profiling.c
@@ -1119,9 +1119,11 @@ insertIndexTableInSortedList(IndexTable* tbl, IndexTable* sortedList)
 static void
 sortCCSTree(CostCentreStack *ccs)
 {
+    IndexTable *tbl;
+
     if (ccs->indexTable == NULL) return;
 
-    for (IndexTable *tbl = ccs->indexTable; tbl != NULL; tbl = tbl->next)
+    for (tbl = ccs->indexTable; tbl != NULL; tbl = tbl->next)
         if (!tbl->back_edge)
             sortCCSTree(tbl->ccs);