X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FRtsExternal.h;h=b95276168aabfd34df70fb276a49b7029d5d49cf;hb=dbbf15c0f141357aa49b583286174867baadb821;hp=b95da387bdb33c994355ade8988a12099b3a8759;hpb=a0d2d5bb9a949bc683d1fe576260f8c09930948a;p=ghc-hetmet.git

diff --git a/includes/RtsExternal.h b/includes/RtsExternal.h
index b95da38..b952761 100644
--- a/includes/RtsExternal.h
+++ b/includes/RtsExternal.h
@@ -48,9 +48,12 @@ extern unsigned int n_capabilities;
 
 /* grimy low-level support functions defined in StgPrimFloat.c */
 extern StgDouble __encodeDouble (I_ size, StgByteArray arr, I_ e);
+extern StgDouble __2Int_encodeDouble (I_ j_high, I_ j_low, I_ e);
 extern StgDouble __int_encodeDouble (I_ j, I_ e);
+extern StgDouble __word_encodeDouble (W_ j, I_ e);
 extern StgFloat  __encodeFloat (I_ size, StgByteArray arr, I_ e);
 extern StgFloat  __int_encodeFloat (I_ j, I_ e);
+extern StgFloat  __word_encodeFloat (W_ j, I_ e);
 extern StgInt    isDoubleNaN(StgDouble d);
 extern StgInt    isDoubleInfinite(StgDouble d);
 extern StgInt    isDoubleDenormalized(StgDouble d);
@@ -111,9 +114,6 @@ extern void setIOManagerPipe (int fd);
 extern void* allocateExec(unsigned int len);
 
 // Breakpoint stuff
-extern int rts_stop_next_breakpoint;
-extern int rts_stop_on_exception;
-extern HsStablePtr rts_breakpoint_io_action;
 
 /* -----------------------------------------------------------------------------
    Storage manager stuff exported