From a1c1dd351e8a0a57070fc68e2089e5078fe53255 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 3 Apr 2000 15:56:51 +0000 Subject: [PATCH] [project @ 2000-04-03 15:56:51 by simonmar] remove this file, its contents have been moved into StgProf.h --- ghc/includes/Profiling.h | 149 ---------------------------------------------- 1 file changed, 149 deletions(-) delete mode 100644 ghc/includes/Profiling.h diff --git a/ghc/includes/Profiling.h b/ghc/includes/Profiling.h deleted file mode 100644 index 24792d0..0000000 --- a/ghc/includes/Profiling.h +++ /dev/null @@ -1,149 +0,0 @@ -/* ----------------------------------------------------------------------------- - * $Id: Profiling.h,v 1.9 2000/03/13 10:21:26 simonmar Exp $ - * - * (c) The GHC Team, 1998-1999 - * - * Cost-Centre Stack Profiling Include - * - * ---------------------------------------------------------------------------*/ - - -#ifndef PROFILING_H -#define PROFILING_H - -#if !defined(PROFILING) - -#define CCS_ALLOC(ccs, amount) doNothing() -#define ENTER_CC_PAP_CL(r) doNothing() -#define ENTER_CCS_PAP_CL(r) doNothing() - -#else /* PROFILING... */ - -/* ----------------------------------------------------------------------------- - * Constants - * ---------------------------------------------------------------------------*/ - -#define EMPTY_STACK NULL -#define EMPTY_TABLE NULL - -/* Constants used to set sumbsumed flag on CostCentres */ - -#define CC_IS_CAF 'c' /* 'c' => *is* a CAF cc */ -#define CC_IS_SUBSUMED 's' /* 's' => *is* a subsumed cc */ -#define CC_IS_BORING 'B' /* 'B' => *not* a CAF/sub cc */ - -/* ----------------------------------------------------------------------------- - * Data Structures - * ---------------------------------------------------------------------------*/ -/* - * CostCentre - */ - -typedef struct _CostCentre { - int ccID; - - char *label; - char *module; - - /* used for accumulating costs at the end of the run... */ - unsigned long time_ticks; - unsigned long mem_alloc; - - char is_subsumed; - - struct _CostCentre *link; -} CostCentre; - - - -/* - * CostCentreStack - */ - -typedef struct _CostCentreStack { - int ccsID; - - CostCentre *cc; - struct _CostCentreStack *prevStack; - struct _IndexTable *indexTable; - - unsigned long scc_count; - unsigned long sub_scc_count; - unsigned long sub_cafcc_count; - - unsigned long time_ticks; - unsigned long mem_alloc; - unsigned long mem_resid; - - CostCentre *root; -} CostCentreStack; - - - -/* - * IndexTable - */ - -typedef struct _IndexTable { - CostCentre *cc; - CostCentreStack *ccs; - struct _IndexTable *next; - unsigned int back_edge; -} IndexTable; - - -/* ----------------------------------------------------------------------------- - Pre-defined cost centres and cost centre stacks - -------------------------------------------------------------------------- */ - -extern CostCentreStack *CCCS; /* current CCS */ - -extern CostCentre CC_MAIN[]; -extern CostCentreStack CCS_MAIN[]; /* Top CCS */ - -extern CostCentre CC_SYSTEM[]; -extern CostCentreStack CCS_SYSTEM[]; /* RTS costs */ - -extern CostCentre CC_GC[]; -extern CostCentreStack CCS_GC[]; /* Garbage collector costs */ - -extern CostCentre CC_SUBSUMED[]; -extern CostCentreStack CCS_SUBSUMED[]; /* Costs are subsumed by caller */ - -extern CostCentre CC_OVERHEAD[]; -extern CostCentreStack CCS_OVERHEAD[]; /* Profiling overhead */ - -extern CostCentre CC_DONTZuCARE[]; -extern CostCentreStack CCS_DONTZuCARE[]; /* shouldn't ever get set */ - -extern unsigned int CC_ID; /* global id's */ -extern unsigned int CCS_ID; -extern unsigned int HP_ID; - -extern unsigned int interval_ticks; -extern unsigned int earlier_ticks; - -typedef unsigned int hash_t; -extern hash_t time_intervals; - -/* In RtsFlags.c, these are used to specify how to hash the data for - * output. None of this is necessary now since the viewer will be in - * charge of ordering and displaying output. */ -extern hash_t max_cc_no; /* Hash on CC ptr */ -extern hash_t max_mod_no; /* Hash on CC module */ -extern hash_t max_descr_no; /* Hash on closure description */ -extern hash_t max_type_no; /* Hash on type description */ - -/* ----------------------------------------------------------------------------- - * Functions - * ---------------------------------------------------------------------------*/ - -CostCentreStack *EnterFunCCS ( CostCentreStack *cccs, CostCentreStack *ccsfn ); -CostCentreStack *PushCostCentre ( CostCentreStack *, CostCentre * ); -CostCentreStack *AppendCCS ( CostCentreStack *ccs1, CostCentreStack *ccs2 ); - -extern unsigned int entering_PAP; - -#endif /* PROFILING */ - -#endif PROFILING_H -- 1.7.10.4