diff options
author | Simon Marlow <marlowsd@gmail.com> | 2011-04-12 13:21:41 +0100 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2011-04-12 14:21:37 +0100 |
commit | 5463b55b7dadc1e9918edb2d8666bf3ed195bc61 (patch) | |
tree | 9738714d517d56166a90a6eb18decb34fcf9d406 /rts/RtsFlags.h | |
parent | 4f018b471c7c5db858beb508b8430ae4d0621173 (diff) | |
download | haskell-5463b55b7dadc1e9918edb2d8666bf3ed195bc61.tar.gz |
Cleanup sweep and fix a bug in RTS flag processing.
This code has accumulated a great deal of cruft over the years, this
pass cleans up a lot of the surrounding cruft but leaves the actual
argument processing alone - so there's still more that could be done.
Bug fixed:
- ghc_rts_opts should not be subject to the --rtsopts setting. If
the programmer explicitly declares options with ghc_rts_opts, they
shouldn't also have to accept command-line RTS options to make them
work.
Diffstat (limited to 'rts/RtsFlags.h')
-rw-r--r-- | rts/RtsFlags.h | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/rts/RtsFlags.h b/rts/RtsFlags.h new file mode 100644 index 0000000000..3ebfef6447 --- /dev/null +++ b/rts/RtsFlags.h @@ -0,0 +1,23 @@ +/* ----------------------------------------------------------------------------- + * + * (c) The AQUA Project, Glasgow University, 1994-1997 + * (c) The GHC Team, 1998-2006 + * + * Functions for parsing the argument list. + * + * ---------------------------------------------------------------------------*/ + +#ifndef RTSFLAGS_H +#define RTSFLAGS_H + +#include "BeginPrivate.h" + +/* Routines that operate-on/to-do-with RTS flags: */ + +void initRtsFlagsDefaults (void); +void setupRtsFlags (int *argc, char *argv[]); +void setProgName (char *argv[]); + +#include "EndPrivate.h" + +#endif /* RTSFLAGS_H */ |