diff options
author | Simon Marlow <marlowsd@gmail.com> | 2012-09-11 16:12:52 +0200 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2012-09-21 13:46:48 +0100 |
commit | 5f01b6dd095955e9a52f5624213a7c54dc5e1a8c (patch) | |
tree | 05c2e2211c0f6ab3d1713afa126e7b6b58507984 /rts/RtsFlags.c | |
parent | c19f2e320a575a66d31c83d846ce3cc954c4ab3b (diff) | |
download | haskell-5f01b6dd095955e9a52f5624213a7c54dc5e1a8c.tar.gz |
Fix off-by-one (#7227)
Diffstat (limited to 'rts/RtsFlags.c')
-rw-r--r-- | rts/RtsFlags.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/RtsFlags.c b/rts/RtsFlags.c index 42c7ef717b..4ee19cf53d 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(); |