*
* ------------------------------------------------------------------------*/
-#include <stdio.h>
-
#define IN_STG_CODE 0
// We need offsets of profiled things... better be careful that this
#include "RtsFlags.h"
#include "Storage.h"
+#include <stdio.h>
+
#define str(a,b) #a "_" #b
#define OFFSET(s_type, field) ((unsigned int)&(((s_type*)0)->field))
struct_field(bdescr, link);
struct_size(generation);
- struct_field(generation, mut_once_list);
+ struct_field(generation, mut_list);
struct_field(CostCentreStack, ccsID);
struct_field(CostCentreStack, mem_alloc);
closure_payload(StgArrWords, payload);
closure_field(StgTSO, link);
- closure_field(StgTSO, mut_link);
closure_field(StgTSO, global_link);
closure_field(StgTSO, what_next);
closure_field(StgTSO, why_blocked);
closure_field(StgTSO, blocked_exceptions);
closure_field(StgTSO, id);
closure_field(StgTSO, saved_errno);
+ closure_field(StgTSO, trec);
closure_field_("StgTSO_CCCS", StgTSO, prof.CCCS);
tso_field(StgTSO, sp);
tso_offset(StgTSO, stack);
closure_payload(StgAP_STACK, payload);
closure_field(StgInd, indirectee);
- closure_field(StgMutClosure, mut_link);
closure_size(StgMutVar);
closure_field(StgMutVar, var);
+ closure_size(StgAtomicallyFrame);
+ closure_field(StgAtomicallyFrame, waiting);
+ closure_field(StgAtomicallyFrame, code);
+
+ closure_size(StgCatchSTMFrame);
+ closure_field(StgCatchSTMFrame, handler);
+
+ closure_size(StgCatchRetryFrame);
+ closure_field(StgCatchRetryFrame, running_alt_code);
+ closure_field(StgCatchRetryFrame, first_code);
+ closure_field(StgCatchRetryFrame, alt_code);
+ closure_field(StgCatchRetryFrame, first_code_trec);
+
closure_size(StgForeignObj);
closure_field(StgForeignObj,data);
closure_field(StgMVar,tail);
closure_field(StgMVar,value);
+ closure_size(StgTVar);
+ closure_field(StgTVar,current_value);
+ closure_field(StgTVar,first_wait_queue_entry);
+
closure_size(StgBCO);
closure_field(StgBCO, instrs);
closure_field(StgBCO, literals);
struct_field(snEntry,sn_obj);
struct_field(snEntry,addr);
-#ifdef mingw32_TARGET_OS
+#ifdef mingw32_HOST_OS
struct_size(StgAsyncIOResult);
struct_field(StgAsyncIOResult, reqID);
struct_field(StgAsyncIOResult, len);