Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
a4cc7b11
Commit
a4cc7b11
authored
May 19, 2013
by
ian@well-typed.com
Browse files
Remove unused __2Int_encodeDouble
parent
891857a3
Changes
3
Hide whitespace changes
Inline
Side-by-side
rts/Linker.c
View file @
a4cc7b11
...
...
@@ -1067,7 +1067,6 @@ typedef struct _RtsSymbolVal {
SymI_HasProto(addDLL) \
SymI_HasProto(__int_encodeDouble) \
SymI_HasProto(__word_encodeDouble) \
SymI_HasProto(__2Int_encodeDouble) \
SymI_HasProto(__int_encodeFloat) \
SymI_HasProto(__word_encodeFloat) \
SymI_HasProto(stg_atomicallyzh) \
...
...
rts/StgPrimFloat.c
View file @
a4cc7b11
...
...
@@ -43,29 +43,6 @@
#define __abs(a) (( (a) >= 0 ) ? (a) : (-(a)))
StgDouble
__2Int_encodeDouble
(
I_
j_high
,
I_
j_low
,
I_
e
)
{
StgDouble
r
;
/* assuming 32 bit ints */
ASSERT
(
sizeof
(
int
)
==
4
);
r
=
(
StgDouble
)((
unsigned
int
)
j_high
);
r
*=
4294967296
.
0
;
/* exp2f(32); */
r
+=
(
StgDouble
)((
unsigned
int
)
j_low
);
/* Now raise to the exponent */
if
(
r
!=
0
.
0
)
/* Lennart suggests this avoids a bug in MIPS's ldexp */
r
=
ldexp
(
r
,
e
);
/* sign is encoded in the size */
if
(
j_high
<
0
)
r
=
-
r
;
return
r
;
}
/* Special version for words */
StgDouble
__word_encodeDouble
(
W_
j
,
I_
e
)
...
...
rts/StgPrimFloat.h
View file @
a4cc7b11
...
...
@@ -14,7 +14,6 @@
/* grimy low-level support functions defined in StgPrimFloat.c */
void
__decodeDouble_2Int
(
I_
*
man_sign
,
W_
*
man_high
,
W_
*
man_low
,
I_
*
exp
,
StgDouble
dbl
);
void
__decodeFloat_Int
(
I_
*
man
,
I_
*
exp
,
StgFloat
flt
);
StgDouble
__2Int_encodeDouble
(
I_
j_high
,
I_
j_low
,
I_
e
);
StgDouble
__word_encodeDouble
(
W_
j
,
I_
e
);
StgFloat
__word_encodeFloat
(
W_
j
,
I_
e
);
...
...
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