Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/5f01b6dd095955e9a52f5624213a7c54dc5e1a8c >--------------------------------------------------------------- commit 5f01b6dd095955e9a52f5624213a7c54dc5e1a8c 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 42c7ef7..4ee19cf 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(); _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
