diff options
| author | panne <unknown> | 2000-05-01 14:33:39 +0000 |
|---|---|---|
| committer | panne <unknown> | 2000-05-01 14:33:39 +0000 |
| commit | 2e030f1f1acf94084e5f3b8d3c6d563d260a226c (patch) | |
| tree | 2b25b937b9a8201ba111cd64e3fc63085a7fbe16 /ghc/compiler/nativeGen/MachMisc.lhs | |
| parent | 0d273d95cef3785176211d88fd2d67b9c3b5707b (diff) | |
| download | haskell-2e030f1f1acf94084e5f3b8d3c6d563d260a226c.tar.gz | |
[project @ 2000-05-01 14:33:39 by panne]
Handle ThreadIdRep. Output warnings for {Word,Int}64Rep, returning a
completely bogus size (for testing NCG only).
Diffstat (limited to 'ghc/compiler/nativeGen/MachMisc.lhs')
| -rw-r--r-- | ghc/compiler/nativeGen/MachMisc.lhs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/ghc/compiler/nativeGen/MachMisc.lhs b/ghc/compiler/nativeGen/MachMisc.lhs index db78cb446e..171df4e1c3 100644 --- a/ghc/compiler/nativeGen/MachMisc.lhs +++ b/ghc/compiler/nativeGen/MachMisc.lhs @@ -55,6 +55,7 @@ import Panic ( panic ) import Char ( isDigit ) import GlaExts ( word2Int#, int2Word#, shiftRL#, and#, (/=#) ) import Outputable ( text ) +import IOExts ( trace ) \end{code} \begin{code} @@ -330,8 +331,12 @@ primRepToSize DoubleRep = IF_ARCH_alpha( TF, IF_ARCH_i386( DF,IF_ARCH_sparc( primRepToSize ArrayRep = IF_ARCH_alpha( Q, IF_ARCH_i386( L, IF_ARCH_sparc( W ,))) primRepToSize ByteArrayRep = IF_ARCH_alpha( Q, IF_ARCH_i386( L, IF_ARCH_sparc( W ,))) primRepToSize WeakPtrRep = IF_ARCH_alpha( Q, IF_ARCH_i386( L, IF_ARCH_sparc( W ,))) -primRepToSize ForeignObjRep = IF_ARCH_alpha( Q, IF_ARCH_i386( L, IF_ARCH_sparc( W ,))) +primRepToSize ForeignObjRep = IF_ARCH_alpha( Q, IF_ARCH_i386( L, IF_ARCH_sparc( W ,))) primRepToSize StablePtrRep = IF_ARCH_alpha( Q, IF_ARCH_i386( L, IF_ARCH_sparc( W ,))) +primRepToSize ThreadIdRep = IF_ARCH_alpha( Q, IF_ARCH_i386( L, IF_ARCH_sparc( W ,))) +-- SUP: Wrong!!! Only for testing the rest of the NCG +primRepToSize Word64Rep = trace "primRepToSize: Word64Rep not handled" B +primRepToSize Int64Rep = trace "primRepToSize: Int64Rep not handled" B \end{code} %************************************************************************ |