Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
b8886039
Commit
b8886039
authored
Feb 23, 1999
by
simonm
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[project @ 1999-02-23 10:09:49 by simonm]
Integer fixes.
parent
0800dbf6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
7 deletions
+9
-7
ghc/lib/exts/Int.lhs
ghc/lib/exts/Int.lhs
+9
-7
No files found.
ghc/lib/exts/Int.lhs
View file @
b8886039
...
...
@@ -209,8 +209,8 @@ instance Num Int8 where
abs = absReal
signum = signumReal
fromInteger (
J
#
s# d
#)
= case (i
nteger
2Int
# s# d#)
of { i# ->
I8# (intToInt8#
i#) }
fromInteger (
S
#
i#) = I8# (intToInt8# i
#)
fromI
nteger
(J
# s# d#)
=
I8# (intToInt8#
(integer2Int# s# d#))
fromInt = intToInt8
instance Bounded Int8 where
...
...
@@ -360,8 +360,8 @@ instance Num Int16 where
else I16# (0x10000# -# x#)
abs = absReal
signum = signumReal
fromInteger (
J
#
s# d
#)
= case (i
nteger
2Int
# s# d#)
of { i# ->
I16# (intToInt16#
i#) }
fromInteger (
S
#
i#) = I16# (intToInt16# i
#)
fromI
nteger
(J
# s# d#)
=
I16# (intToInt16#
(integer2Int# s# d#))
fromInt = intToInt16
instance Bounded Int16 where
...
...
@@ -519,8 +519,8 @@ instance Num Int32 where
#endif
abs = absReal
signum = signumReal
fromInteger (
J
#
s# d
#)
= case (i
nteger
2Int
# s# d#)
of { i# ->
I32# (intToInt32#
i#) }
fromInteger (
S
#
i#) = I32# (intToInt32# i
#)
fromI
nteger
(J
# s# d#)
=
I32# (intToInt32#
(integer2Int# s# d#))
fromInt = intToInt32
instance Bounded Int32 where
...
...
@@ -664,7 +664,8 @@ instance Num Int64 where
negate w@(I64# x) = I64# (negateInt# x)
abs x = absReal
signum = signumReal
fromInteger (J# s# d#) = case (integer2Int# s# d#) of { i# -> I64# i# }
fromInteger (S# i#) = I64# i#
fromInteger (J# s# d#) = I64# (integer2Int# s# d#)
fromInt = intToInt64
instance Bounded Int64 where
...
...
@@ -760,6 +761,7 @@ int64ToInteger (I64# x#) =
(# s#, p# #) -> J# s# p#
integerToInt64 :: Integer -> Int64
integerToInt64 (S# i#) = I64# (intToInt64# i#)
integerToInt64 (J# s# d#) = I64# (integerToInt64# s# d#)
instance Eq Int64 where
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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