X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FRts.h;h=5aff979fd914cdab966a49d44ada802f194f88f0;hb=e9fdcd7b7d8ae466d83ce9f77f34e9b62b2a4fa7;hp=cec93e68b0db571e0cdb4c026dfd90d83e9cdfb1;hpb=c245355e6f2c7b7c95e9af910c4d420e13af9413;p=ghc-hetmet.git diff --git a/includes/Rts.h b/includes/Rts.h index cec93e6..5aff979 100644 --- a/includes/Rts.h +++ b/includes/Rts.h @@ -206,6 +206,8 @@ extern void stackOverflow(void); extern void __decodeDouble (MP_INT *man, I_ *_exp, StgDouble dbl); extern void __decodeFloat (MP_INT *man, I_ *_exp, StgFloat flt); +extern void __decodeDouble_2Int (I_ *man_sign, W_ *man_high, W_ *man_low, I_ *exp, StgDouble dbl); +extern void __decodeFloat_Int (I_ *man, I_ *exp, StgFloat flt); #if defined(WANT_DOTNET_SUPPORT) #include "DNInvoke.h"