From 012eb96576a6f5a0427799f489f16927c77747d4 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 8 Nov 2001 16:36:39 +0000
Subject: [PATCH] [project @ 2001-11-08 16:36:39 by simonmar] getProgArgv can
 be an unsafe foreign import.

---
 ghc/lib/std/System.lhs |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs
index 6d8efd3..51029da 100644
--- a/ghc/lib/std/System.lhs
+++ b/ghc/lib/std/System.lhs
@@ -1,5 +1,5 @@
 -- -----------------------------------------------------------------------------
--- $Id: System.lhs,v 1.36 2001/10/13 16:02:47 sof Exp $
+-- $Id: System.lhs,v 1.37 2001/11/08 16:36:39 simonmar Exp $
 --
 -- (c) The University of Glasgow, 1994-2000
 --
@@ -44,7 +44,8 @@ getArgs =
    peekArray (p - 1) (advancePtr argv 1) >>= mapM peekCString
    
    
-foreign import "getProgArgv" getProgArgv :: Ptr CInt -> Ptr (Ptr CString) -> IO ()
+foreign import "getProgArgv" unsafe 
+  getProgArgv :: Ptr CInt -> Ptr (Ptr CString) -> IO ()
 
 -- Computation `getProgName' returns the name of the program
 -- as it was invoked.
-- 
1.7.10.4