+++ /dev/null
-#define VERSION "24-Jan-95"
-#define PROGNAME "ICountByActivity"
-
-#define SHADE
-
-#include <stdio.h>
-
-#include <IHASH.h>
-#include <ITYPES.h>
-#include <instr.h>
-#include <inames.h>
-
-#include <shade.h>
-#define TR_REGS
-#include <trace.h>
-#include <stdtr.h>
-#include <trctl.h>
-
-int shade_run(Trace *, int);
-
-#define DO_SPAT_PROFILING
-#define __STG_USING_ULLONG__
-#include "stgdefs.h" /* GHC ticky-counting stuff */
-#define ACTIVITY_REG I_REG_g5
-#define SpA_REG I_REG_i0
-#define SpB_REG I_REG_i2
-#define Hp_REG I_REG_i4
-#define RET_REG I_REG_l0
-#define NODE_REG I_REG_l1
-#define INFO_REG I_REG_l2
-#define R3_REG I_REG_l3
-#define R7_REG I_REG_l7
-
-/* Activity register and current activity */
-
-#define EACT_CALL (ACTIVITIES+0)
-#define EACT_STKADJ (ACTIVITIES+1)
-#define EACT_ASTK (ACTIVITIES+2)
-#define EACT_BSTK (ACTIVITIES+3)
-#define EACT_RETREG (ACTIVITIES+4)
-#define EACT_ARGREGS (ACTIVITIES+5)
-
-#define EACT_TAILCALL (ACT_TAILCALL - ACT_BASE) /* use the TAILCALL slot */
-#define EACT_OVERHEAD (ACT_OVERHEAD - ACT_BASE) /* only used herein */
-
-#define EXTRA_ACTIVITIES 6
-
-#define TOTAL_ACTIVITIES (ACTIVITIES+EXTRA_ACTIVITIES)
-
-static ullong info[TOTAL_ACTIVITIES][NIHASH];
-/*static ullong annulled_insns = 0;*/
-
-#define STATS_FILE "ICNT_BY_ACTIVITY"
-
-/* fwd decls */
-void print_results(char *);
-void fprintf_ullong(FILE *, ullong);
-
-#define CHECKPOINT (1024*1024) /* reporting frequency */
-static long countdown = CHECKPOINT;
-
-char *anal_usage = "";
-char *anal_version = VERSION;
-
-void
-initialize(argc,argv,envp)
- int argc;
- char **argv, envp;
-{
- unsigned i, j;
-
- /* Setup the trace */
- shade_trctl_trsize(sizeof(Trace));
-
- shade_trctl_it (IT_ANY, 1, 0, TC_I | TC_IH);
- shade_trctl_ih (IH_OR, 1, 0, TC_I | TC_IH | TC_RD);
- shade_trctl_ih (IH_ADD, 1, 0, TC_I | TC_IH | TC_RD | TC_RS1);
- shade_trctl_ih (IH_SETHI, 1, 0, TC_I | TC_IH | TC_RD);
- shade_trctl_it (IT_LOAD, 1, 0, TC_I | TC_IH | TC_RD | TC_RS1);
- shade_trctl_it (IT_ILOAD, 1, 0, TC_I | TC_IH | TC_RD | TC_RS1);
- shade_trctl_it (IT_STORE, 1, 0, TC_I | TC_IH | TC_RD | TC_RS1);
- shade_trctl_it (IT_ISTORE,1, 0, TC_I | TC_IH | TC_RD | TC_RS1);
- /* trace all non-annulled instructions (... 1, 0, ...); For
- them, we want the instruction text (TC_I), and the hashed
- opcode (TC_IH). For "or" instructions, we also want the
- contents the destination register that was written into
- (TC_RD). Etc.
- */
-
- /* init table */
- for (i = 0; i < TOTAL_ACTIVITIES; i++)
- for (j = 0; j < NIHASH; j++)
- info[i][j] = 0LL;
-}
-
-int analyze(argc,argv,envp)
- int argc;
- char **argv, envp;
-{
- Trace *tr;
- ullong i;
- uint16 ih;
- int32 rd, rs1;
-
- unsigned activity = (ACT_UNKNOWN - ACT_BASE);
- ullong pending_sethi = 0LL;
- ullong pending_or = 0LL;
- ullong activity_chgs = 0LL;
- int acctd_for;
-#define ACCT_FOR() acctd_for = 1
-
- for (i = 0LL; tr = shade_step(); i += 1LL) {
- acctd_for = 0;
- ih = tr->tr_ih;
-
- if ( ih == IH_OR && tr->tr_i.i_rd == ACTIVITY_REG) {
- rd = tr->tr_rd;
-
- info[EACT_TAILCALL][IH_OR] += pending_or;
- if ( pending_sethi ) {
- fprintf(stderr, "pending_sethi still set!\n");
- }
-
- if (activity == (ACT_GC - ACT_BASE)) { /* only GC_STOP will stop it */
- if (rd == ACT_GC_STOP) {
- activity = ACT_UNKNOWN - ACT_BASE;
- info[EACT_OVERHEAD][IH_OR] += 1LL;
- ACCT_FOR();
- } else {
- info[activity][IH_OR] += 1LL;
- ACCT_FOR();
- }
- } else {
- if (rd < ACT_BASE || rd >= (ACT_BASE+ACTIVITIES)) {
- info[activity][IH_OR] += 1LL;
- ACCT_FOR();
- } else {
- activity = rd - ACT_BASE; /* reset! */
- info[EACT_OVERHEAD][IH_OR] += 1LL;
- ACCT_FOR();
- }
- }
- activity_chgs += 1LL;
- pending_sethi = 0LL;
- pending_or = 0LL;
- /* reset other things? */
-
- } else if ( activity != EACT_TAILCALL ) { /* ordinary instruction */
- info[activity][ih] += 1LL;
- ACCT_FOR();
-
- } else { /* TAILCALLing */
-/* fprintf(stderr, "op=%d\n", ih); */
-
- switch (ih) {
- case IH_SETHI:
-/* if ( pending_sethi ) {
- fprintf(stderr, "pending_sethi already set!\n");
- }
-*/ pending_sethi += 1LL;
- ACCT_FOR();
- break;
- case IH_JMPL:
- case IH_CALL:
- case IH_NOP:
- info[EACT_CALL][ih] += 1LL;
- info[EACT_CALL][IH_SETHI] += pending_sethi; /* really mystery? */
- info[EACT_CALL][IH_OR] += pending_or; /* ditto? */
- pending_sethi = 0LL;
- pending_or = 0LL;
- ACCT_FOR();
- break;
-
- case IH_ADD:
- case IH_ADDCC:
- case IH_SUB:
- case IH_SUBCC:
- rd = tr->tr_i.i_rd;
- rs1 = tr->tr_i.i_rs1;
- if ( rd == NODE_REG || rd == INFO_REG ) {
- info[EACT_CALL][ih] += 1LL;
- info[EACT_CALL][IH_SETHI] += pending_sethi;
- info[EACT_CALL][IH_OR] += pending_or;
- pending_sethi = 0LL;
- pending_or = 0LL;
- ACCT_FOR();
-
- } else if (rd >= R3_REG && rd <= R7_REG) {
- info[EACT_ARGREGS][ih] += 1LL;
- info[EACT_ARGREGS][IH_SETHI] += pending_sethi;
- info[EACT_ARGREGS][IH_OR] += pending_or;
- pending_sethi = 0LL;
- pending_or = 0LL;
- ACCT_FOR();
-
- } else {
- info[EACT_TAILCALL][IH_SETHI] += pending_sethi;
- info[EACT_TAILCALL][IH_OR] += pending_or;
- pending_sethi = 0LL;
- pending_or = 0LL;
-
- if ( (rd == SpA_REG && rs1 == SpA_REG)
- || (rd == SpB_REG && rs1 == SpB_REG) ) {
- info[EACT_STKADJ][ih] += 1LL;
- ACCT_FOR();
-
- } else if ( rd >= I_REG_o0 && rd <= I_REG_o7 ) {
- info[EACT_TAILCALL][ih] += 1LL;
- ACCT_FOR();
-
- } else if ( rd == I_REG_g0
- && rs1 >= I_REG_o0 && rs1 <= I_REG_o7 ) {
- info[EACT_TAILCALL][ih] += 1LL;
- ACCT_FOR();
-
- } else if ( rd == I_REG_g3 && rs1 == I_REG_g3 ) {
- info[EACT_TAILCALL][ih] += 1LL;
- ACCT_FOR();
-
- } else {
- fprintf(stderr, "IH_ADD: mystery op (%d) rd=%d rs1=%d\n",
- ih, rd, rs1);
- }
- }
- break;
-
- case IH_OR:
- case IH_ORCC:
- rd = tr->tr_i.i_rd;
- if ( rd == RET_REG ) {
- info[EACT_RETREG][ih] += 1LL + pending_or;
- info[EACT_RETREG][IH_SETHI] += pending_sethi;
- pending_sethi = 0LL;
- pending_or = 0LL;
- ACCT_FOR();
-
- } else if ( rd == NODE_REG || rd == INFO_REG ) {
- info[EACT_CALL][ih] += 1LL + pending_or;
- info[EACT_CALL][IH_SETHI] += pending_sethi;
- pending_sethi = 0LL;
- pending_or = 0LL;
- ACCT_FOR();
-
- } else {
- pending_or += 1LL;
- ACCT_FOR();
- }
- break;
-
- case IH_LD:
- case IH_LDUB: /* ??? */
- case IH_ST:
- rs1 = tr->tr_i.i_rs1;
- if ( rs1 == SpA_REG ) {
- info[EACT_ASTK][ih] += 1LL;
- info[EACT_ASTK][IH_SETHI] += pending_sethi;
- info[EACT_ASTK][IH_OR] += pending_or;
- pending_sethi = 0LL;
- pending_or = 0LL;
- ACCT_FOR();
-
- } else if ( rs1 == SpB_REG ) {
- info[EACT_BSTK][ih] += 1LL;
- info[EACT_BSTK][IH_SETHI] += pending_sethi;
- info[EACT_BSTK][IH_OR] += pending_or;
- pending_sethi = 0LL;
- pending_or = 0LL;
- ACCT_FOR();
-
- } else if ( rs1 == NODE_REG ) {
- info[EACT_CALL][ih] += 1LL;
- info[EACT_CALL][IH_SETHI] += pending_sethi;
- info[EACT_CALL][IH_OR] += pending_or;
- pending_sethi = 0LL;
- pending_or = 0LL;
- ACCT_FOR();
-
- } else { /* random ld/st */
- info[EACT_TAILCALL][ih] += 1LL;
- info[EACT_TAILCALL][IH_SETHI] += pending_sethi;
- info[EACT_TAILCALL][IH_OR] += pending_or;
- pending_sethi = 0LL;
- pending_or = 0LL;
- ACCT_FOR();
- }
- break;
-
- case IH_AND: /* ??? */
- case IH_BA: /* ??? */
- case IH_BAA:
- case IH_BCC:
- case IH_BCS:
- case IH_BE:
- case IH_BGE:
- case IH_BL:
- case IH_BLA:
- case IH_BLEU:
- case IH_BNE:
- case IH_SLL:
- case IH_SRL:
- case IH_XOR:
- info[EACT_TAILCALL][ih] += 1LL;
- info[EACT_TAILCALL][IH_SETHI] += pending_sethi;
- info[EACT_TAILCALL][IH_OR] += pending_or;
- pending_sethi = 0LL;
- pending_or = 0LL;
- ACCT_FOR();
- break;
-
- default:
- fprintf(stderr, "mystery TAIL op = %d\n", ih);
- break;
- }
- }
-
- if (countdown-- < 0) {
- print_results("Intermediate:");
- countdown = CHECKPOINT;
- }
- if ( ! acctd_for ) {
- fprintf(stderr, "insn op=%d not acctd for!\n", ih);
- }
- }
- fprintf(stderr,"\n");
- fprintf_ullong(stderr,i);
- fprintf(stderr," iterations; ");
- fprintf_ullong(stderr,activity_chgs);
- fprintf(stderr," activity changes\n");
- return(0);
-}
-
-void
-terminate()
-{
- print_results("Final:");
-}
-
-void
-print_results(header)
- char *header;
-{
- int i, j;
- long total_slots = 0;
- ullong total_instrs = 0;
- static FILE *statf = NULL;
-
-/* fprintf(stderr, "Printing %s\n", header); */
-
- unlink(STATS_FILE);
- if ((statf = fopen(STATS_FILE, "w")) == NULL) {
- fprintf(stderr, "Cannot open statistics file %s\n",STATS_FILE);
- exit(1);
- }
- fprintf(statf, "%s\n\n", header);
-/* fprintf(statf, "annulled insns = ");
- fprintf_ullong(statf, annulled_insns);
-*/ fprintf(statf, "\n\n");
-
- for (i = 0; i < NIHASH; i++) {
- fprintf(statf, "%8d:", i);
- for (j = 0; j < TOTAL_ACTIVITIES; j++) {
- fprintf(statf, " ");
- fprintf_ullong(statf, info[j][i]);
- total_slots++;
- total_instrs += info[j][i];
- }
- fprintf(statf, "\n");
- }
- fprintf(statf, "total slots=%ld, total instructions=", total_slots);
- fprintf_ullong(statf, total_instrs);
- fprintf(statf, "\n");
-
- fclose(statf);
-}
-
-void
-fprintf_ullong(FILE *filep, ullong x)
-{
- if (x < (ullong)1000)
- fprintf(filep, "%ld", (I_)x);
- else if (x < (ullong)1000000)
- fprintf(filep, "%ld%3.3ld",
- (I_)((x)/(ullong)1000),
- (I_)((x)%(ullong)1000));
- else if (x < (ullong)1000000000)
- fprintf(filep, "%ld%3.3ld%3.3ld",
- (I_)((x)/(ullong)1000000),
- (I_)((x)/(ullong)1000%(ullong)1000),
- (I_)((x)%(ullong)1000));
- else
- fprintf(filep, "%ld%3.3ld%3.3ld%3.3ld",
- (I_)((x)/(ullong)1000000000),
- (I_)((x)/(ullong)1000000%(ullong)1000),
- (I_)((x)/(ullong)1000%(ullong)1000),
- (I_)((x)%(ullong)1000));
-}
projects / ghc-hetmet.git / blobdiff