Commit 8ebd0c2f authored by dterei's avatar dterei

Tabs -> Spaces

parent 2c5591ae
...@@ -35,7 +35,7 @@ ...@@ -35,7 +35,7 @@
-------------------------------------------------------------------------- */ -------------------------------------------------------------------------- */
/* We have some pre-compiled selector thunks defined in rts/StgStdThunks.hc. /* We have some pre-compiled selector thunks defined in rts/StgStdThunks.hc.
* This constant defines the highest selectee index that we can replace with a * This constant defines the highest selectee index that we can replace with a
* reference to the pre-compiled code. * reference to the pre-compiled code.
*/ */
...@@ -44,7 +44,7 @@ ...@@ -44,7 +44,7 @@
/* Vector-apply thunks. These thunks just push their free variables /* Vector-apply thunks. These thunks just push their free variables
* on the stack and enter the first one. They're a bit like PAPs, but * on the stack and enter the first one. They're a bit like PAPs, but
* don't have a dynamic size. We've pre-compiled a few to save * don't have a dynamic size. We've pre-compiled a few to save
* space. * space.
*/ */
#define MAX_SPEC_AP_SIZE 7 #define MAX_SPEC_AP_SIZE 7
...@@ -55,16 +55,16 @@ ...@@ -55,16 +55,16 @@
#define MAX_SPEC_FUN_SIZE 2 #define MAX_SPEC_FUN_SIZE 2
#define MAX_SPEC_CONSTR_SIZE 2 #define MAX_SPEC_CONSTR_SIZE 2
/* Range of built-in table of static small int-like and char-like closures. /* Range of built-in table of static small int-like and char-like closures.
* *
* NB. This corresponds with the number of actual INTLIKE/CHARLIKE * NB. This corresponds with the number of actual INTLIKE/CHARLIKE
* closures defined in rts/StgMiscClosures.cmm. * closures defined in rts/StgMiscClosures.cmm.
*/ */
#define MAX_INTLIKE 16 #define MAX_INTLIKE 16
#define MIN_INTLIKE (-16) #define MIN_INTLIKE (-16)
#define MAX_CHARLIKE 255 #define MAX_CHARLIKE 255
#define MIN_CHARLIKE 0 #define MIN_CHARLIKE 0
/* Each byte in the card table for an StgMutaArrPtrs covers /* Each byte in the card table for an StgMutaArrPtrs covers
* (1<<MUT_ARR_PTRS_CARD_BITS) elements in the array. To find a good * (1<<MUT_ARR_PTRS_CARD_BITS) elements in the array. To find a good
...@@ -92,16 +92,16 @@ ...@@ -92,16 +92,16 @@
Tags for indirection nodes and ``other'' (probably unevaluated) nodes; Tags for indirection nodes and ``other'' (probably unevaluated) nodes;
normal-form values of algebraic data types will have tags 0, 1, ... normal-form values of algebraic data types will have tags 0, 1, ...
@INFO_IND_TAG@ is different from @INFO_OTHER_TAG@ just so we can count @INFO_IND_TAG@ is different from @INFO_OTHER_TAG@ just so we can count
how often we bang into indirection nodes; that's all. (WDP 95/11) how often we bang into indirection nodes; that's all. (WDP 95/11)
ToDo: find out if we need any of this. ToDo: find out if we need any of this.
-------------------------------------------------------------------------- */ -------------------------------------------------------------------------- */
#define INFO_OTHER_TAG (-1) #define INFO_OTHER_TAG (-1)
#define INFO_IND_TAG (-2) #define INFO_IND_TAG (-2)
#define INFO_FIRST_TAG 0 #define INFO_FIRST_TAG 0
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
How much C stack to reserve for local temporaries when in the STG How much C stack to reserve for local temporaries when in the STG
...@@ -113,11 +113,11 @@ ...@@ -113,11 +113,11 @@
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
How much Haskell stack space to reserve for the saving of registers How much Haskell stack space to reserve for the saving of registers
etc. in the case of a stack/heap overflow. etc. in the case of a stack/heap overflow.
This must be large enough to accomodate the largest stack frame This must be large enough to accomodate the largest stack frame
pushed in one of the heap check fragments in HeapStackCheck.hc pushed in one of the heap check fragments in HeapStackCheck.hc
(ie. currently the generic heap checks - 3 words for StgRetDyn, (ie. currently the generic heap checks - 3 words for StgRetDyn,
18 words for the saved registers, see StgMacros.h). 18 words for the saved registers, see StgMacros.h).
In the event of an unboxed tuple or let-no-escape stack/heap check In the event of an unboxed tuple or let-no-escape stack/heap check
failure, there will be other words on the stack which are covered failure, there will be other words on the stack which are covered
...@@ -168,8 +168,8 @@ ...@@ -168,8 +168,8 @@
-------------------------------------------------------------------------- */ -------------------------------------------------------------------------- */
/* /*
An LDV word is divided into 3 parts: state bits (LDV_STATE_MASK), creation An LDV word is divided into 3 parts: state bits (LDV_STATE_MASK), creation
time bits (LDV_CREATE_MASK), and last use time bits (LDV_LAST_MASK). time bits (LDV_CREATE_MASK), and last use time bits (LDV_LAST_MASK).
*/ */
#if SIZEOF_VOID_P == 8 #if SIZEOF_VOID_P == 8
#define LDV_SHIFT 30 #define LDV_SHIFT 30
...@@ -180,7 +180,7 @@ ...@@ -180,7 +180,7 @@
#define LDV_STATE_USE 0x1000000000000000 #define LDV_STATE_USE 0x1000000000000000
#else #else
#define LDV_SHIFT 15 #define LDV_SHIFT 15
#define LDV_STATE_MASK 0x40000000 #define LDV_STATE_MASK 0x40000000
#define LDV_CREATE_MASK 0x3FFF8000 #define LDV_CREATE_MASK 0x3FFF8000
#define LDV_LAST_MASK 0x00007FFF #define LDV_LAST_MASK 0x00007FFF
#define LDV_STATE_CREATE 0x00000000 #define LDV_STATE_CREATE 0x00000000
...@@ -195,9 +195,9 @@ ...@@ -195,9 +195,9 @@
* Constants for the what_next field of a TSO, which indicates how it * Constants for the what_next field of a TSO, which indicates how it
* is to be run. * is to be run.
*/ */
#define ThreadRunGHC 1 /* return to address on top of stack */ #define ThreadRunGHC 1 /* return to address on top of stack */
#define ThreadInterpret 2 /* interpret this thread */ #define ThreadInterpret 2 /* interpret this thread */
#define ThreadKilled 3 /* thread has died, don't run it */ #define ThreadKilled 3 /* thread has died, don't run it */
#define ThreadComplete 4 /* thread has finished */ #define ThreadComplete 4 /* thread has finished */
/* /*
...@@ -228,7 +228,7 @@ ...@@ -228,7 +228,7 @@
/* Involved in a message sent to tso->msg_cap */ /* Involved in a message sent to tso->msg_cap */
#define BlockedOnMsgThrowTo 12 #define BlockedOnMsgThrowTo 12
/* The thread is not on any run queues, but can be woken up /* The thread is not on any run queues, but can be woken up
by tryWakeupThread() */ by tryWakeupThread() */
#define ThreadMigrating 13 #define ThreadMigrating 13
...@@ -237,13 +237,13 @@ ...@@ -237,13 +237,13 @@
* stopped for one reason or another. See typedef StgThreadReturnCode * stopped for one reason or another. See typedef StgThreadReturnCode
* in TSO.h. * in TSO.h.
*/ */
#define HeapOverflow 1 /* might also be StackOverflow */ #define HeapOverflow 1 /* might also be StackOverflow */
#define StackOverflow 2 #define StackOverflow 2
#define ThreadYielding 3 #define ThreadYielding 3
#define ThreadBlocked 4 #define ThreadBlocked 4
#define ThreadFinished 5 #define ThreadFinished 5
/* /*
* Flags for the tso->flags field. * Flags for the tso->flags field.
*/ */
...@@ -262,7 +262,7 @@ ...@@ -262,7 +262,7 @@
*/ */
#define TSO_BLOCKEX 4 #define TSO_BLOCKEX 4
#define TSO_INTERRUPTIBLE 8 #define TSO_INTERRUPTIBLE 8
#define TSO_STOPPED_ON_BREAKPOINT 16 #define TSO_STOPPED_ON_BREAKPOINT 16
/* /*
* Used by the sanity checker to check whether TSOs are on the correct * Used by the sanity checker to check whether TSOs are on the correct
...@@ -281,7 +281,7 @@ ...@@ -281,7 +281,7 @@
RET_DYN stack frames RET_DYN stack frames
-------------------------------------------------------------------------- */ -------------------------------------------------------------------------- */
/* VERY MAGIC CONSTANTS! /* VERY MAGIC CONSTANTS!
* must agree with code in HeapStackCheck.c, stg_gen_chk, and * must agree with code in HeapStackCheck.c, stg_gen_chk, and
* RESERVED_STACK_WORDS in Constants.h. * RESERVED_STACK_WORDS in Constants.h.
*/ */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment