From be29432233ace5d252578604764d0545af613646 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 27 Oct 2000 09:36:39 +0000
Subject: [PATCH] [project @ 2000-10-27 09:36:39 by sewardj] No longer needed.
Bye bye Argv!
---
ghc/compiler/utils/Argv.lhs | 34 ----------------------------------
1 file changed, 34 deletions(-)
delete mode 100644 ghc/compiler/utils/Argv.lhs
diff --git a/ghc/compiler/utils/Argv.lhs b/ghc/compiler/utils/Argv.lhs
deleted file mode 100644
index 0d6262abdb46..000000000000
--- a/ghc/compiler/utils/Argv.lhs
+++ /dev/null
@@ -1,34 +0,0 @@
-%
-% (c) The AQUA Project, Glasgow University, 1996-1998
-%
-\section[Argv]{@Argv@: direct (non-standard) access to command-line arguments}
-
-\begin{code}
-module Argv ( argv ) where
-
-#include "HsVersions.h"
-
-import FastString
-
-#if __GLASGOW_HASKELL__ <= 302
-import GlaExts ( Addr )
-import ByteArray ( indexAddrOffAddr )
-#else
-import Addr ( Addr, indexAddrOffAddr )
-#endif
-
-argv :: [FAST_STRING]
-argv = unpackArgv ``prog_argv'' (``prog_argc''::Int)
-
-unpackArgv :: Addr -> Int -> [FAST_STRING] -- argv[1 .. argc-1]
-
-unpackArgv argv argc = unpack 1
- where
- unpack :: Int -> [FAST_STRING]
- unpack n
- | n >= argc = []
- | otherwise =
- case (indexAddrOffAddr argv n) of
- item -> mkFastCharString item : unpack (n + 1)
-
-\end{code}
--
GitLab