diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-04-17 17:19:43 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-04-17 17:19:43 +0000 |
| commit | 4f92da533cd1c7b5f41ef8794ee6a284f1680413 (patch) | |
| tree | 36cf249df3c7f81eb19f4e52197d8aa9fb335222 /includes/Rts.h | |
| parent | 393220f6e889aa681f0751510df4b429d399305e (diff) | |
| download | haskell-4f92da533cd1c7b5f41ef8794ee6a284f1680413.tar.gz | |
Add some more generic (en|de)code(Double|Float) code
Diffstat (limited to 'includes/Rts.h')
| -rw-r--r-- | includes/Rts.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/includes/Rts.h b/includes/Rts.h index cec93e68b0..610cd701b3 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_high, I_ *man_low, I_ *exp, StgDouble dbl); +extern void __decodeFloat_Int (I_ *man, I_ *exp, StgFloat flt); #if defined(WANT_DOTNET_SUPPORT) #include "DNInvoke.h" |