X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FRts.h;h=74d45f21e676745a713c1286042bb813914d7691;hb=d20d32d788e2d6c088e6b03776c428df5bb004d3;hp=7358c368c1df72c0ed3ea3c42cb7703b72875794;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e;p=ghc-hetmet.git diff --git a/includes/Rts.h b/includes/Rts.h index 7358c36..74d45f2 100644 --- a/includes/Rts.h +++ b/includes/Rts.h @@ -5,6 +5,9 @@ * RTS external APIs. This file declares everything that the GHC RTS * exposes externally. * + * To understand the structure of the RTS headers, see the wiki: + * http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes + * * ---------------------------------------------------------------------------*/ #ifndef RTS_H @@ -173,8 +176,10 @@ void _assertFail(const char *filename, unsigned int linenum) #include "rts/IOManager.h" #include "rts/Linker.h" #include "rts/Threads.h" +#include "rts/Ticky.h" #include "rts/Timer.h" #include "rts/Stable.h" +#include "rts/TTY.h" /* Misc stuff without a home */ DLL_IMPORT_RTS extern char **prog_argv; /* so we can get at these from Haskell */ @@ -263,29 +268,4 @@ TICK_VAR(2) } #endif - -/* krc: I put this here because I don't think - it needs to be visible externally. - It used to be in StgTicky.h, but I got rid - of that. */ - -/* ----------------------------------------------------------------------------- - The StgEntCounter type - needed regardless of TICKY_TICKY - -------------------------------------------------------------------------- */ - -typedef struct _StgEntCounter { - /* Using StgWord for everything, becuase both the C and asm code - generators make trouble if you try to pack things tighter */ - StgWord registeredp; /* 0 == no, 1 == yes */ - StgInt arity; /* arity (static info) */ - StgInt stk_args; /* # of args off stack */ - /* (rest of args are in registers) */ - char *str; /* name of the thing */ - char *arg_kinds; /* info about the args types */ - StgInt entry_count; /* Trips to fast entry code */ - StgInt allocs; /* number of allocations by this fun */ - struct _StgEntCounter *link;/* link to chain them all together */ -} StgEntCounter; - - #endif /* RTS_H */