ghc/lib/std/cbits/progargs.c

   1 /*
   2  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
   3  *
   4  * $Id: progargs.c,v 1.5 2001/05/18 16:54:06 simonmar Exp $
   5  *
   6  * System.getArgs Runtime Support
   7  */
   8
   9 #include "Rts.h"
  10
  11 HsAddr
  12 get_prog_argv(void)
  13 {
  14   return prog_argv;
  15 }
  16
  17 HsInt
  18 get_prog_argc()
  19 {
  20   return prog_argc;
  21 }
  22