X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsFlags.h;fp=rts%2FRtsFlags.h;h=3ebfef64477b6e1a64e1937bc668d81740adaf92;hb=5463b55b7dadc1e9918edb2d8666bf3ed195bc61;hp=0000000000000000000000000000000000000000;hpb=4f018b471c7c5db858beb508b8430ae4d0621173;p=ghc-hetmet.git

diff --git a/rts/RtsFlags.h b/rts/RtsFlags.h
new file mode 100644
index 0000000..3ebfef6
--- /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 */