From 96f1ceed013b4a02d516f447d31ac319a653b30c Mon Sep 17 00:00:00 2001
From: apt <unknown>
Date: Thu, 6 Sep 2001 14:26:14 +0000
Subject: [PATCH] [project @ 2001-09-06 14:26:14 by apt] change ext-core
 output file suffix from .core (too easy to delete
 accidentally) to .hcr (MERGE TO STABLE)

---
 ghc/compiler/main/DriverPipeline.hs |    4 +-
 ghc/utils/ext-core/Driver.hs        |   78 +++++++++++++++++------------------
 2 files changed, 41 insertions(+), 41 deletions(-)

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 4ab9f55..0ba12ac 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -512,7 +512,7 @@ run_phase Hsc basename suff input_fn output_fn
         let dyn_flags' = dyn_flags { hscOutName = output_fn,
 		   		     hscStubCOutName = basename ++ "_stub.c",
 				     hscStubHOutName = basename ++ "_stub.h",
-				     extCoreName = basename ++ ".core" }
+				     extCoreName = basename ++ ".hcr" }
 
   -- run the compiler!
         pcs <- initPersistentCompilerState
@@ -1036,7 +1036,7 @@ compile ghci_mode summary source_unchanged have_object
    let dyn_flags' = dyn_flags { hscOutName = output_fn,
 				hscStubCOutName = basename ++ "_stub.c",
 				hscStubHOutName = basename ++ "_stub.h",
-				extCoreName = basename ++ ".core" }
+				extCoreName = basename ++ ".hcr" }
 
    -- figure out which header files to #include in a generated .hc file
    c_includes <- getPackageCIncludes
diff --git a/ghc/utils/ext-core/Driver.hs b/ghc/utils/ext-core/Driver.hs
index c7af9cf..2328eca2 100644
--- a/ghc/utils/ext-core/Driver.hs
+++ b/ghc/utils/ext-core/Driver.hs
@@ -44,43 +44,43 @@ main = do (_,modules) <- foldM process (initialEnv,[]) flist
 	  let result = evalProgram modules
 	  putStrLn ("Result = " ++ show result)
 	  putStrLn "All done"
-       where flist = 	 ["PrelBase.core",
-			  "PrelMaybe.core",
-			  "PrelTup.core",
-			  "PrelList.core", 
-			  "PrelShow.core",
-			  "PrelEnum.core",
-			  "PrelNum.core",
-			  "PrelST.core",
-			  "PrelArr.core",
-			  "PrelDynamic.core",
-			  "PrelReal.core",
-			  "PrelFloat.core",
-			  "PrelRead.core",
-			  "PrelIOBase.core",
-			  "PrelException.core",
-			  "PrelErr.core",
-			  "PrelConc.core",
-			  "PrelPtr.core",
-			  "PrelByteArr.core",
-			  "PrelPack.core",
-			  "PrelBits.core",
-			  "PrelWord.core",
-			  "PrelInt.core",
-			  "PrelCTypes.core",
-			  "PrelStable.core",
-			  "PrelCTypesISO.core",
-			  "Monad.core",
-			  "PrelStorable.core",
-			  "PrelMarshalAlloc.core",
-			  "PrelMarshalUtils.core",
-			  "PrelMarshalArray.core",
-			  "PrelCString.core",
-			  "PrelMarshalError.core",
-			  "PrelCError.core",
-			  "PrelPosix.core",
-			  "PrelHandle.core",
-			  "PrelIO.core",
-			  "Prelude.core",
-			  "Main.core" ] 
+       where flist = 	 ["PrelBase.hcr",
+			  "PrelMaybe.hcr",
+			  "PrelTup.hcr",
+			  "PrelList.hcr", 
+			  "PrelShow.hcr",
+			  "PrelEnum.hcr",
+			  "PrelNum.hcr",
+			  "PrelST.hcr",
+			  "PrelArr.hcr",
+			  "PrelDynamic.hcr",
+			  "PrelReal.hcr",
+			  "PrelFloat.hcr",
+			  "PrelRead.hcr",
+			  "PrelIOBase.hcr",
+			  "PrelException.hcr",
+			  "PrelErr.hcr",
+			  "PrelConc.hcr",
+			  "PrelPtr.hcr",
+			  "PrelByteArr.hcr",
+			  "PrelPack.hcr",
+			  "PrelBits.hcr",
+			  "PrelWord.hcr",
+			  "PrelInt.hcr",
+			  "PrelCTypes.hcr",
+			  "PrelStable.hcr",
+			  "PrelCTypesISO.hcr",
+			  "Monad.hcr",
+			  "PrelStorable.hcr",
+			  "PrelMarshalAlloc.hcr",
+			  "PrelMarshalUtils.hcr",
+			  "PrelMarshalArray.hcr",
+			  "PrelCString.hcr",
+			  "PrelMarshalError.hcr",
+			  "PrelCError.hcr",
+			  "PrelPosix.hcr",
+			  "PrelHandle.hcr",
+			  "PrelIO.hcr",
+			  "Prelude.hcr",
+			  "Main.hcr" ] 
 
-- 
1.7.10.4