From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 6 Feb 2008 11:39:36 +0000 (+0000)
Subject: FIX BUILD on x86_64
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6aaa17c7d5417bbe20aa56c1f7160930223d4ed8

FIX BUILD on x86_64
---

diff --git a/compiler/ghci/ByteCodeFFI.lhs b/compiler/ghci/ByteCodeFFI.lhs
index 286eaf8..a17386f 100644
--- a/compiler/ghci/ByteCodeFFI.lhs
+++ b/compiler/ghci/ByteCodeFFI.lhs
@@ -356,13 +356,13 @@ mkMarshalCode_wrk cconv (r_offW, r_rep) addr_offW arg_offs_n_reps
      load_arg_regs args [] [] code     =  (args, [], code)
      load_arg_regs [] iregs fregs code =  ([], fregs, code)
      load_arg_regs ((off,rep):args) iregs fregs code
-	| FloatArg  <- rep =
+	| FloatRep  <- rep =
             case fregs of
               [] -> push_this_arg
               n : frest ->
 		load_arg_regs args iregs frest 
                       (mov_f32_rbpoff_xmm n (bytes_per_word * off) : code)
-	| DoubleArg <- rep =
+	| DoubleRep <- rep =
             case fregs of
               [] -> push_this_arg
               n : frest ->
@@ -378,10 +378,10 @@ mkMarshalCode_wrk cconv (r_offW, r_rep) addr_offW arg_offs_n_reps
 
      push_args [] code pushed_words = (code, pushed_words)
      push_args ((off,rep):args) code pushed_words
-	| FloatArg  <- rep =
+	| FloatRep  <- rep =
 		push_args args (push_f32_rbpoff (bytes_per_word * off) : code) 
 			(pushed_words+1)
-	| DoubleArg <- rep =
+	| DoubleRep <- rep =
 		push_args args (push_f64_rbpoff (bytes_per_word * off) : code)
 			(pushed_words+1)
 	| otherwise =
@@ -391,9 +391,9 @@ mkMarshalCode_wrk cconv (r_offW, r_rep) addr_offW arg_offs_n_reps
 
      assign_result = 
 	case r_rep of
-	  DoubleArg -> f64
-	  FloatArg  -> f32
-          VoidArg   -> []
+	  DoubleRep -> f64
+	  FloatRep  -> f32
+          VoidRep   -> []
 	  _other    -> i64
 	where
 	  i64 = movq_rax_rbpoff 0