[commit: ghc] ghc-7.6: Fix off-by-one (#7227) (4ea2263)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : ghc-7.6

http://hackage.haskell.org/trac/ghc/changeset/4ea2263f584c4de94ff213d2288d6df78eb6e262

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

commit 4ea2263f584c4de94ff213d2288d6df78eb6e262
Author: Simon Marlow <[email protected]>
Date:   Tue Sep 11 16:12:52 2012 +0200

    Fix off-by-one (#7227)

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

 rts/RtsFlags.c |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c
index f5acca8..cfe5c1b 100644
--- a/rts/RtsFlags.c
+++ b/rts/RtsFlags.c
@@ -547,6 +547,7 @@ void setupRtsFlags (int *argc, char *argv[],
     procRtsOpts(rts_argc0, rtsOptsEnabled);
 
     appendRtsArg((char *)0);
+    rts_argc--; // appendRtsArg will have bumped it for the NULL (#7227)
 
     normaliseRtsOpts();