diff options
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/StgMiscClosures.cmm | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index 70c77e531a..5ddc1acb40 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -54,7 +54,7 @@ INFO_TABLE_RET (stg_restore_cccs, RET_SMALL, W_ cccs) /* 9 bits of return code for constructors created by the interpreter. */ stg_interp_constr_entry -{ +{ /* R1 points at the constructor */ jump %ENTRY_CODE(Sp(0)); } @@ -70,7 +70,7 @@ stg_interp_constr_entry ptr to BCO holding return continuation ptr to one of these info tables. - + The info table code, both direct and vectored, must: * push R1/F1/D1 on the stack, and its tag if necessary * push the BCO (so it's now on the stack twice) @@ -102,7 +102,7 @@ INFO_TABLE_RET( stg_ctoi_R1p, RET_BCO) } /* - * When the returned value is a pointer, but unlifted, in R1 ... + * When the returned value is a pointer, but unlifted, in R1 ... */ INFO_TABLE_RET( stg_ctoi_R1unpt, RET_BCO ) { @@ -202,7 +202,7 @@ INFO_TABLE_FUN( stg_BCO, 4, 0, BCO, "BCO", "BCO", ARG_BCO ) INFO_TABLE(stg_IND,1,0,IND,"IND","IND") { - TICK_ENT_DYN_IND(); /* tick */ + TICK_ENT_DYN_IND(); /* tick */ R1 = UNTAG(StgInd_indirectee(R1)); TICK_ENT_VIA_NODE(); jump %GET_ENTRY(R1); @@ -210,7 +210,7 @@ INFO_TABLE(stg_IND,1,0,IND,"IND","IND") INFO_TABLE(stg_IND_direct,1,0,IND,"IND","IND") { - TICK_ENT_DYN_IND(); /* tick */ + TICK_ENT_DYN_IND(); /* tick */ R1 = StgInd_indirectee(R1); TICK_ENT_VIA_NODE(); jump %ENTRY_CODE(Sp(0)); @@ -218,7 +218,7 @@ INFO_TABLE(stg_IND_direct,1,0,IND,"IND","IND") INFO_TABLE(stg_IND_STATIC,1,0,IND_STATIC,"IND_STATIC","IND_STATIC") { - TICK_ENT_STATIC_IND(); /* tick */ + TICK_ENT_STATIC_IND(); /* tick */ R1 = UNTAG(StgInd_indirectee(R1)); TICK_ENT_VIA_NODE(); jump %GET_ENTRY(R1); @@ -260,7 +260,7 @@ INFO_TABLE(stg_IND_PERM,1,0,IND_PERM,"IND_PERM","IND_PERM") #endif jump %GET_ENTRY(R1); -} +} /* ---------------------------------------------------------------------------- Black holes. @@ -275,7 +275,7 @@ INFO_TABLE(stg_BLACKHOLE,1,0,BLACKHOLE,"BLACKHOLE","BLACKHOLE") { W_ r, p, info, bq, msg, owner, bd; - TICK_ENT_DYN_IND(); /* tick */ + TICK_ENT_DYN_IND(); /* tick */ retry: p = StgInd_indirectee(R1); @@ -296,13 +296,13 @@ retry: info == stg_BLOCKING_QUEUE_CLEAN_info || info == stg_BLOCKING_QUEUE_DIRTY_info) { - ("ptr" msg) = foreign "C" allocate(MyCapability() "ptr", + ("ptr" msg) = foreign "C" allocate(MyCapability() "ptr", BYTES_TO_WDS(SIZEOF_MessageBlackHole)) [R1]; - + SET_HDR(msg, stg_MSG_BLACKHOLE_info, CCS_SYSTEM); MessageBlackHole_tso(msg) = CurrentTSO; MessageBlackHole_bh(msg) = R1; - + (r) = foreign "C" messageBlackHole(MyCapability() "ptr", msg "ptr") [R1]; if (r == 0) { @@ -338,18 +338,18 @@ INFO_TABLE(stg_CAF_BLACKHOLE,1,0,BLACKHOLE,"BLACKHOLE","BLACKHOLE") INFO_TABLE(stg_BLOCKING_QUEUE_CLEAN,4,0,BLOCKING_QUEUE,"BLOCKING_QUEUE","BLOCKING_QUEUE") { foreign "C" barf("BLOCKING_QUEUE_CLEAN object entered!") never returns; } - + INFO_TABLE(stg_BLOCKING_QUEUE_DIRTY,4,0,BLOCKING_QUEUE,"BLOCKING_QUEUE","BLOCKING_QUEUE") { foreign "C" barf("BLOCKING_QUEUE_DIRTY object entered!") never returns; } - + /* ---------------------------------------------------------------------------- Whiteholes are used for the "locked" state of a closure (see lockClosure()) ------------------------------------------------------------------------- */ INFO_TABLE(stg_WHITEHOLE, 0,0, WHITEHOLE, "WHITEHOLE", "WHITEHOLE") -{ +{ #if defined(THREADED_RTS) W_ info, i; @@ -514,10 +514,10 @@ CLOSURE(stg_END_TSO_QUEUE_closure,stg_END_TSO_QUEUE); These come in two basic flavours: arrays of data (StgArrWords) and arrays of pointers (StgArrPtrs). They all have a similar layout: - ___________________________ - | Info | No. of | data.... + ___________________________ + | Info | No. of | data.... | Ptr | Words | - --------------------------- + --------------------------- These are *unpointed* objects: i.e. they cannot be entered. @@ -549,7 +549,7 @@ INFO_TABLE(stg_MUT_VAR_DIRTY, 1, 0, MUT_VAR_DIRTY, "MUT_VAR_DIRTY", "MUT_VAR_DIR /* ---------------------------------------------------------------------------- Dummy return closure - + Entering this closure will just return to the address on the top of the stack. Useful for getting a thread in a canonical form where we can just enter the top stack word to start the thread. (see deleteThread) @@ -569,7 +569,7 @@ INFO_TABLE_CONSTR(stg_MVAR_TSO_QUEUE,2,0,0,PRIM,"MVAR_TSO_QUEUE","MVAR_TSO_QUEUE { foreign "C" barf("MVAR_TSO_QUEUE object entered!") never returns; } /* ---------------------------------------------------------------------------- - CHARLIKE and INTLIKE closures. + CHARLIKE and INTLIKE closures. These are static representations of Chars and small Ints, so that we can remove dynamic Chars and Ints during garbage collection and @@ -581,9 +581,9 @@ INFO_TABLE_CONSTR(stg_MVAR_TSO_QUEUE,2,0,0,PRIM,"MVAR_TSO_QUEUE","MVAR_TSO_QUEUE * When sticking the RTS in a Windows DLL, we delay populating the * Charlike and Intlike tables until load-time, which is only * when we've got the real addresses to the C# and I# closures. - * - * -- this is currently broken BL 2009/11/14. - * we don't rewrite to static closures at all with Windows DLLs. + * + * -- this is currently broken BL 2009/11/14. + * we don't rewrite to static closures at all with Windows DLLs. */ // #warning Is this correct? _imp is a pointer! #define Char_hash_static_info _imp__ghczmprim_GHCziTypes_Czh_static_info @@ -864,7 +864,7 @@ section "data" { section "data" { stg_INTLIKE_closure: - INTLIKE_HDR(-16) /* MIN_INTLIKE == -16 */ + INTLIKE_HDR(-16) /* MIN_INTLIKE == -16 */ INTLIKE_HDR(-15) INTLIKE_HDR(-14) INTLIKE_HDR(-13) @@ -896,7 +896,7 @@ section "data" { INTLIKE_HDR(13) INTLIKE_HDR(14) INTLIKE_HDR(15) - INTLIKE_HDR(16) /* MAX_INTLIKE == 16 */ + INTLIKE_HDR(16) /* MAX_INTLIKE == 16 */ } #endif // !(defined(__PIC__) && defined(mingw32_HOST_OS)) |