From fef6a6a52ef5a885019d2f04685a33c1ce3370ca Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Thu, 11 Nov 1999 16:27:30 +0000
Subject: [PATCH] [project @ 1999-11-11 16:27:30 by sewardj] wibble: Remove
 irrelevant #ifdef (DOUBLES).

---
 ghc/interpreter/codegen.c |   13 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

diff --git a/ghc/interpreter/codegen.c b/ghc/interpreter/codegen.c
index 4926de4..b490a0c 100644
--- a/ghc/interpreter/codegen.c
+++ b/ghc/interpreter/codegen.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: codegen.c,v $
- * $Revision: 1.9 $
- * $Date: 1999/10/15 21:41:02 $
+ * $Revision: 1.10 $
+ * $Date: 1999/11/11 16:27:30 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -165,17 +165,8 @@ static Void pushAtom( AsmBCO bco, StgAtom e )
             asmConstInteger(bco,bignumToString(e)); 
             break;
     case FLOATCELL: 
-#if 0
-            asmConstFloat(bco,e); /* ToDo: support both float and double! */
-#else
             asmConstDouble(bco,floatOf(e));
-#endif
             break;
-#if DOUBLES
-    case DOUBLECELL: 
-            asmConstDouble(bco,doubleOf(e));
-            break;
-#endif
     case STRCELL: 
 #if USE_ADDR_FOR_STRINGS
             asmConstAddr(bco,textToStr(textOf(e)));
-- 
1.7.10.4