Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
2fa41b08
Commit
2fa41b08
authored
Jan 19, 2012
by
Simon Marlow
Browse files
A little unpacking and strictness
parent
f9f22386
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/cmm/CmmExpr.hs
View file @
2fa41b08
...
...
@@ -62,7 +62,7 @@ instance Eq CmmExpr where -- Equality ignores the types
_e1
==
_e2
=
False
data
CmmReg
=
CmmLocal
LocalReg
=
CmmLocal
{-# UNPACK #-}
!
LocalReg
|
CmmGlobal
GlobalReg
deriving
(
Eq
,
Ord
)
...
...
@@ -103,7 +103,7 @@ type AreaMap = Map Area Int
-- relative to the oldest byte of the Old Area
data
CmmLit
=
CmmInt
Integer
Width
=
CmmInt
!
Integer
Width
-- Interpretation: the 2's complement representation of the value
-- is truncated to the specified size. This is easier than trying
-- to keep the value within range, because we don't know whether
...
...
@@ -168,7 +168,7 @@ maybeInvertCmmExpr _ = Nothing
-----------------------------------------------------------------------------
data
LocalReg
=
LocalReg
!
Unique
CmmType
=
LocalReg
{-# UNPACK #-}
!
Unique
CmmType
-- ^ Parameters:
-- 1. Identifier
-- 2. Type
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment