diff options
author | Ian Lynagh <igloo@earth.li> | 2009-06-02 18:22:11 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2009-06-02 18:22:11 +0000 |
commit | 1bca92d715d8b358ee83ff5ee0bc085bec063e59 (patch) | |
tree | 1661e084ff4b38301222ae53e26fa1eb7789f4c8 /rts/PrimOps.cmm | |
parent | dd56e9ab4544e83d27532a8d9058140bfe81825c (diff) | |
download | haskell-1bca92d715d8b358ee83ff5ee0bc085bec063e59.tar.gz |
Remove the unused remains of __decodeFloat
Diffstat (limited to 'rts/PrimOps.cmm')
-rw-r--r-- | rts/PrimOps.cmm | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index 501a719b33..521a55e5c2 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -954,32 +954,6 @@ integer2Wordzh_fast jump %ENTRY_CODE(Sp(0)); } -decodeFloatzh_fast -{ - W_ p; - F_ arg; - FETCH_MP_TEMP(mp_tmp1); - FETCH_MP_TEMP(mp_tmp_w); - - /* arguments: F1 = Float# */ - arg = F1; - - ALLOC_PRIM( SIZEOF_StgArrWords + WDS(1), NO_PTRS, decodeFloatzh_fast ); - - /* Be prepared to tell Lennart-coded __decodeFloat - where mantissa._mp_d can be put (it does not care about the rest) */ - p = Hp - SIZEOF_StgArrWords; - SET_HDR(p,stg_ARR_WORDS_info,W_[CCCS]); - StgArrWords_words(p) = 1; - MP_INT__mp_d(mp_tmp1) = BYTE_ARR_CTS(p); - - /* Perform the operation */ - foreign "C" __decodeFloat(mp_tmp1 "ptr",mp_tmp_w "ptr" ,arg) []; - - /* returns: (Int# (expn), Int#, ByteArray#) */ - RET_NNP(W_[mp_tmp_w], TO_W_(MP_INT__mp_size(mp_tmp1)), p); -} - decodeFloatzuIntzh_fast { W_ p; |