[commit: ghc] master: rts: Suppress unused gcc_clear_cache warning (d1d3e98)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/d1d3e98443cf263ef09253e2478e3e638e174e0d/ghc

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

commit d1d3e98443cf263ef09253e2478e3e638e174e0d
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Wed Jun 21 16:57:07 2017 -0400

    rts: Suppress unused gcc_clear_cache warning


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

d1d3e98443cf263ef09253e2478e3e638e174e0d
 rts/sm/Storage.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index 4aa4b12..ac4bf83 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -1345,6 +1345,8 @@ StgWord calcTotalCompactW (void)
    writing code into memory, so the processor reliably sees it. */
 void flushExec (W_ len, AdjustorExecutable exec_addr)
 {
+  /* warning suppression */
+  (void)gcc_clear_cache;
 #if defined(i386_HOST_ARCH) || defined(x86_64_HOST_ARCH)
   /* x86 doesn't need to do anything, so just suppress some warnings. */
   (void)len;