From: sewardj <unknown>
Date: Wed, 30 Jan 2002 13:23:25 +0000 (+0000)
Subject: [project @ 2002-01-30 13:23:25 by sewardj]
X-Git-Tag: Approximately_9120_patches~218
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=f50b47398905c73d6ab51b803bd9ed21612758ca;p=ghc-hetmet.git

[project @ 2002-01-30 13:23:25 by sewardj]
Fix debug build.
---

diff --git a/ghc/compiler/nativeGen/MachCode.lhs b/ghc/compiler/nativeGen/MachCode.lhs
index 8c3937f..a193401 100644
--- a/ghc/compiler/nativeGen/MachCode.lhs
+++ b/ghc/compiler/nativeGen/MachCode.lhs
@@ -2716,7 +2716,7 @@ genCCall fn cconv ret_rep args
            -> returnNat (unitOL (CALL (Left (fn__2 tot_arg_size))))
         Right dyn 
            -> get_op dyn `thenNat` \ (dyn_c, dyn_r, dyn_rep) ->
-              ASSERT(dyn_rep == L)
+              ASSERT(case dyn_rep of { L -> True; _ -> False})
               returnNat (dyn_c `snocOL` CALL (Right dyn_r))
     ) 
 				`thenNat` \ callinsns ->