[commit: ghc] master: rts: mark 'setProgName' as static (7a48865)

[git at git.haskell.org]

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

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

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

commit 7a488653715c991dc6f548828cfde47c2eac7845
Author: Sergei Trofimovich <siarheit at google.com>
Date:   Sun Feb 7 17:36:55 2016 +0000

    rts: mark 'setProgName' as static
    
    Noticed by uselex.rb:
        setProgName: [R]: exported from:
            ./rts/dist/build/RtsFlags.o
    
    Signed-off-by: Sergei Trofimovich <siarheit at google.com>


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

7a488653715c991dc6f548828cfde47c2eac7845
 rts/RtsFlags.c | 1 +
 rts/RtsFlags.h | 1 -
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c
index 46d1409..3d0d7a4 100644
--- a/rts/RtsFlags.c
+++ b/rts/RtsFlags.c
@@ -112,6 +112,7 @@ static void errorUsage (void) GNU_ATTRIBUTE(__noreturn__);
 static char *  copyArg (char *arg);
 static char ** copyArgv (int argc, char *argv[]);
 static void    freeArgv (int argc, char *argv[]);
+static void setProgName (char *argv[]);
 
 static void errorRtsOptsDisabled (const char *s);
 
diff --git a/rts/RtsFlags.h b/rts/RtsFlags.h
index 79ebd36..af60bcf 100644
--- a/rts/RtsFlags.h
+++ b/rts/RtsFlags.h
@@ -16,7 +16,6 @@
 
 void initRtsFlagsDefaults (void);
 void setupRtsFlags        (int *argc, char *argv[], RtsConfig rtsConfig);
-void setProgName          (char *argv[]);
 void freeRtsArgs          (void);
 
 extern RtsConfig rtsConfig;