From: sewardj <unknown>
Date: Wed, 31 Jan 2001 15:36:42 +0000 (+0000)
Subject: [project @ 2001-01-31 15:36:42 by sewardj]
X-Git-Tag: Approximately_9120_patches~2760
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a23cc49e95af71181f3c56f165759d12c7d21eb7;p=ghc-hetmet.git

[project @ 2001-01-31 15:36:42 by sewardj]
Un-break the x86 world following sparc byte-extend (Word8Rep) fix.  Duh.
---

diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs
index 85daf92..9aba016 100644
--- a/ghc/compiler/nativeGen/MachMisc.lhs
+++ b/ghc/compiler/nativeGen/MachMisc.lhs
@@ -274,7 +274,7 @@ primRepToSize CostCentreRep = IF_ARCH_alpha( Q,	 IF_ARCH_i386( L, IF_ARCH_sparc(
 primRepToSize CharRep	    = IF_ARCH_alpha( L,  IF_ARCH_i386( L, IF_ARCH_sparc( W ,)))
 
 primRepToSize Int8Rep	    = IF_ARCH_alpha( B,  IF_ARCH_i386( B, IF_ARCH_sparc( B ,)))
-primRepToSize Word8Rep	    = IF_ARCH_alpha( B,  IF_ARCH_i386( B, IF_ARCH_sparc( BU,)))
+primRepToSize Word8Rep	    = IF_ARCH_alpha( BU, IF_ARCH_i386( BU, IF_ARCH_sparc( BU,)))
 
 primRepToSize IntRep	    = IF_ARCH_alpha( Q,	 IF_ARCH_i386( L, IF_ARCH_sparc( W ,)))
 primRepToSize WordRep	    = IF_ARCH_alpha( Q,	 IF_ARCH_i386( L, IF_ARCH_sparc( W ,)))