oops, it might help to commit the same version of the file that I
tested.
-- -----------------------------------------------------------------------------
-- -----------------------------------------------------------------------------
--- $Id: System.lhs,v 1.34 2001/09/21 11:55:56 simonmar Exp $
+-- $Id: System.lhs,v 1.35 2001/09/21 13:24:37 simonmar Exp $
--
-- (c) The University of Glasgow, 1994-2000
--
--
-- (c) The University of Glasgow, 1994-2000
--
import PrelPtr
import PrelStorable
import PrelIOBase
import PrelPtr
import PrelStorable
import PrelIOBase
-- ---------------------------------------------------------------------------
-- getArgs, getProgName, getEnv
-- ---------------------------------------------------------------------------
-- getArgs, getProgName, getEnv
alloca $ \ p_argc ->
alloca $ \ p_argv -> do
getProgArgv p_argc p_argv
alloca $ \ p_argc ->
alloca $ \ p_argv -> do
getProgArgv p_argc p_argv
+ p <- fromIntegral `liftM` peek p_argc
argv <- peek p_argv
peekArray (p - 1) (advancePtr argv 1) >>= mapM peekCString
argv <- peek p_argv
peekArray (p - 1) (advancePtr argv 1) >>= mapM peekCString