summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
3ff5553)
Fix type of foreign import of getProgArgv: the first arg should be
Ptr CInt, not Ptr Int. Fixes a bug on Alpha (not the bug I was
looking for, unfortunately). MERGE TO STABLE.
-- -----------------------------------------------------------------------------
-- -----------------------------------------------------------------------------
--- $Id: System.lhs,v 1.33 2001/08/14 17:14:22 sof Exp $
+-- $Id: System.lhs,v 1.34 2001/09/21 11:55:56 simonmar Exp $
--
-- (c) The University of Glasgow, 1994-2000
--
--
-- (c) The University of Glasgow, 1994-2000
--
peekArray (p - 1) (advancePtr argv 1) >>= mapM peekCString
peekArray (p - 1) (advancePtr argv 1) >>= mapM peekCString
-foreign import "getProgArgv" getProgArgv :: Ptr Int -> Ptr (Ptr CString) -> IO ()
+foreign import "getProgArgv" getProgArgv :: Ptr CInt -> Ptr (Ptr CString) -> IO ()
-- Computation `getProgName' returns the name of the program
-- as it was invoked.
-- Computation `getProgName' returns the name of the program
-- as it was invoked.