Commit 50ec0128 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-09-21 11:55:56 by simonmar]

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.
parent 3ff55536
-- -----------------------------------------------------------------------------
-- $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
--
......@@ -44,7 +44,7 @@ getArgs =
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.
......
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