diff options
author | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:47:21 -0500 |
---|---|---|
committer | Austin Seipp <austin@well-typed.com> | 2014-08-20 12:51:31 -0500 |
commit | f6cdf04c892c5c0e88a9b0eab72f09df67ed08d1 (patch) | |
tree | fafbe17af1487289d5fd3ff0a13f20407db0e07f /includes | |
parent | e57a29a4699dc80f967f3190f7e98833502ce184 (diff) | |
download | haskell-f6cdf04c892c5c0e88a9b0eab72f09df67ed08d1.tar.gz |
[ci skip] includes: detabify/dewhitespace rts/storage/Closures.h
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'includes')
-rw-r--r-- | includes/rts/storage/Closures.h | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/includes/rts/storage/Closures.h b/includes/rts/storage/Closures.h index 8aed04e79c..d872868a86 100644 --- a/includes/rts/storage/Closures.h +++ b/includes/rts/storage/Closures.h @@ -28,11 +28,11 @@ typedef struct { /* ----------------------------------------------------------------------------- The SMP header - + A thunk has a padding word to take the updated value. This is so that the update doesn't overwrite the payload, so we can avoid needing to lock the thunk during entry and update. - + Note: this doesn't apply to THUNK_STATICs, which have no payload. Note: we leave this padding word in all ways, rather than just SMP, @@ -94,17 +94,17 @@ typedef struct { typedef struct { StgHeader header; - StgHalfWord arity; /* zero if it is an AP */ + StgHalfWord arity; /* zero if it is an AP */ StgHalfWord n_args; - StgClosure *fun; /* really points to a fun */ + StgClosure *fun; /* really points to a fun */ StgClosure *payload[FLEXIBLE_ARRAY]; } StgPAP; typedef struct { StgThunkHeader header; - StgHalfWord arity; /* zero if it is an AP */ + StgHalfWord arity; /* zero if it is an AP */ StgHalfWord n_args; - StgClosure *fun; /* really points to a fun */ + StgClosure *fun; /* really points to a fun */ StgClosure *payload[FLEXIBLE_ARRAY]; } StgAP; @@ -185,7 +185,7 @@ typedef struct { typedef struct { StgHeader header; -} StgStopFrame; +} StgStopFrame; typedef struct { StgHeader header; @@ -202,11 +202,11 @@ typedef struct _StgStableName { StgWord sn; } StgStableName; -typedef struct _StgWeak { /* Weak v */ +typedef struct _StgWeak { /* Weak v */ StgHeader header; StgClosure *cfinalizers; StgClosure *key; - StgClosure *value; /* v */ + StgClosure *value; /* v */ StgClosure *finalizer; struct _StgWeak *link; } StgWeak; @@ -243,9 +243,9 @@ typedef struct _StgCFinalizerList { typedef struct { StgHeader header; - StgArrWords *instrs; /* a pointer to an ArrWords */ - StgArrWords *literals; /* a pointer to an ArrWords */ - StgMutArrPtrs *ptrs; /* a pointer to a MutArrPtrs */ + StgArrWords *instrs; /* a pointer to an ArrWords */ + StgArrWords *literals; /* a pointer to an ArrWords */ + StgMutArrPtrs *ptrs; /* a pointer to a MutArrPtrs */ StgHalfWord arity; /* arity of this BCO */ StgHalfWord size; /* size of this BCO (in words) */ StgWord bitmap[FLEXIBLE_ARRAY]; /* an StgLargeBitmap */ @@ -255,7 +255,7 @@ typedef struct { #define BCO_BITMAP_SIZE(bco) (BCO_BITMAP(bco)->size) #define BCO_BITMAP_BITS(bco) (BCO_BITMAP(bco)->bitmap) #define BCO_BITMAP_SIZEW(bco) ((BCO_BITMAP_SIZE(bco) + BITS_IN(StgWord) - 1) \ - / BITS_IN(StgWord)) + / BITS_IN(StgWord)) /* A function return stack frame: used when saving the state for a * garbage collection at a function entry point. The function @@ -291,14 +291,14 @@ typedef struct { * * StgTVar defines the only type that can be updated through the STM * interface. - * + * * Note that various optimisations may be possible in order to use less * space for these data structures at the cost of more complexity in the * implementation: * * - In StgTVar, current_value and first_watch_queue_entry could be held in * the same field: if any thread is waiting then its expected_value for - * the tvar is the current value. + * the tvar is the current value. * * - In StgTRecHeader, it might be worthwhile having separate chunks * of read-only and read-write locations. This would save a @@ -338,7 +338,7 @@ typedef struct { typedef struct { StgTVar *tvar; StgClosure *expected_value; - StgClosure *new_value; + StgClosure *new_value; #if defined(THREADED_RTS) StgInt num_updates; #endif @@ -353,7 +353,7 @@ typedef struct StgTRecChunk_ { TRecEntry entries[TREC_CHUNK_NUM_ENTRIES]; } StgTRecChunk; -typedef enum { +typedef enum { TREC_ACTIVE, /* Transaction in progress, outcome undecided */ TREC_CONDEMNED, /* Transaction in progress, inconsistent / out of date reads */ TREC_COMMITTED, /* Transaction has committed, now updating tvars */ |