X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FRtsExternal.h;h=2272b2a4291282033c61d82f70e3f0c54395ee42;hb=988bfabb5e8a3a743d03e57f2f25ca1008c6e6f1;hp=f0e7b75f8cbf6353fc3cff93c0cb4201b3d7e96f;hpb=4f92da533cd1c7b5f41ef8794ee6a284f1680413;p=ghc-hetmet.git

diff --git a/includes/RtsExternal.h b/includes/RtsExternal.h
index f0e7b75..2272b2a 100644
--- a/includes/RtsExternal.h
+++ b/includes/RtsExternal.h
@@ -50,8 +50,10 @@ extern unsigned int n_capabilities;
 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);
@@ -92,7 +94,7 @@ extern HpcModuleInfo *hs_hpc_rootModule(void);
 extern int  rts_InstallConsoleEvent ( int action, StgStablePtr *handler );
 extern void rts_ConsoleHandlerDone  ( int ev );
 #else
-extern int stg_sig_install (int, int, StgStablePtr *, void *);
+extern int stg_sig_install (int, int, void *);
 #endif
 
 #if defined(mingw32_HOST_OS)
@@ -109,7 +111,7 @@ void sendIOManagerEvent (HsWord32 event);
 extern void setIOManagerPipe (int fd);
 #endif
 
-extern void* allocateExec(unsigned int len);
+extern void* allocateExec(unsigned int len, void **exec_addr);
 
 // Breakpoint stuff
 
@@ -124,6 +126,4 @@ extern void revertCAFs( void );
 extern void dirty_MUT_VAR(StgRegTable *reg, StgClosure *p);
 extern void dirty_MVAR(StgRegTable *reg, StgClosure *p);
 
-extern void dirty_TSO(StgClosure *tso);
-
 #endif /*  RTSEXTERNAL_H */