Commit 9a3395bd authored by simonmar's avatar simonmar
Browse files

[project @ 2000-03-30 12:04:13 by simonmar]

update for extra parameter to startupHaskell().
parent c108d3f6
...@@ -9,8 +9,8 @@ ...@@ -9,8 +9,8 @@
* included in the distribution. * included in the distribution.
* *
* $RCSfile: hugs.c,v $ * $RCSfile: hugs.c,v $
* $Revision: 1.50 $ * $Revision: 1.51 $
* $Date: 2000/03/28 10:20:55 $ * $Date: 2000/03/30 12:04:13 $
* ------------------------------------------------------------------------*/ * ------------------------------------------------------------------------*/
#include <setjmp.h> #include <setjmp.h>
...@@ -235,7 +235,7 @@ String argv[]; { ...@@ -235,7 +235,7 @@ String argv[]; {
readOptions(fromEnv("STGHUGSFLAGS","")); readOptions(fromEnv("STGHUGSFLAGS",""));
strncpy(argv_0_orig,argv[0],1000); /* startupHaskell mangles argv[0] */ strncpy(argv_0_orig,argv[0],1000); /* startupHaskell mangles argv[0] */
startupHaskell (argc,argv); startupHaskell (argc,argv,NULL);
argc = prog_argc; argc = prog_argc;
argv = prog_argv; argv = prog_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