Commit 680f2ac4 authored by sof's avatar sof

[project @ 1999-03-03 19:20:41 by sof]

Win32 DLL tweaks
parent 44cb3ca8
/* -----------------------------------------------------------------------------
* $Id: Main.c,v 1.5 1999/02/26 16:46:50 simonm Exp $
* $Id: Main.c,v 1.6 1999/03/03 19:20:42 sof Exp $
*
* (c) The GHC Team 1998-1999
*
......@@ -7,6 +7,8 @@
*
* ---------------------------------------------------------------------------*/
#define COMPILING_RTS_MAIN
#include "Rts.h"
#include "RtsAPI.h"
#include "RtsFlags.h"
......@@ -14,7 +16,6 @@
#include "RtsUtils.h"
#ifdef DEBUG
#include "RtsFlags.h" /* for debugging flags */
#include "Printer.h" /* for printing */
#endif
......
/* -----------------------------------------------------------------------------
* $Id: RtsFlags.h,v 1.10 1999/02/18 13:00:28 sewardj Exp $
* $Id: RtsFlags.h,v 1.11 1999/03/03 19:20:41 sof Exp $
*
* (c) The GHC Team, 1998-1999
*
......@@ -249,7 +249,11 @@ struct RTS_FLAGS {
#endif
};
#ifdef COMPILING_RTS_MAIN
extern DLLIMPORT struct RTS_FLAGS RtsFlags;
#else
extern struct RTS_FLAGS RtsFlags;
#endif
/* Routines that operate-on/to-do-with RTS flags: */
......@@ -276,8 +280,11 @@ void setupRtsFlags(int *argc, char *argv[], int *rts_argc, char *rts_argv[]);
#define TIME_FILENAME_FMT "%0.122s.time"
#define TIME_FILENAME_FMT_GUM "%0.118s.%03d.time"
extern int prog_argc; /* an "int" so as to match normal "argc" */
/* an "int" so as to match normal "argc" */
/* Now defined in Stg.h (lib/std/cbits need these too.)
extern int prog_argc;
extern char **prog_argv;
*/
extern int rts_argc; /* ditto */
extern char *rts_argv[];
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment