diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-02-28 13:07:14 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-02-28 13:07:14 +0000 |
| commit | 9ff76535edb25ab7434284adddb5c64708ecb547 (patch) | |
| tree | 3f2fb3ec0b66cd1c85d73a56e92e36b57de1b362 /rts/Ticky.c | |
| parent | 6a7778b95a726f460288123d0539310bb66302f4 (diff) | |
| download | haskell-9ff76535edb25ab7434284adddb5c64708ecb547.tar.gz | |
Remove vectored returns.
We recently discovered that they aren't a win any more, and just cost
code size.
Diffstat (limited to 'rts/Ticky.c')
| -rw-r--r-- | rts/Ticky.c | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/rts/Ticky.c b/rts/Ticky.c index d6ac172e51..89013317c0 100644 --- a/rts/Ticky.c +++ b/rts/Ticky.c @@ -240,9 +240,6 @@ PrintTickyInfo(void) fprintf(tf,"%7ld (%5.1f%%) from entering a new constructor\n\t\t [the rest from entering an existing constructor]\n", tot_returns_of_new, PC(INTAVG(tot_returns_of_new,tot_returns))); - fprintf(tf,"%7ld (%5.1f%%) vectored [the rest unvectored]\n", - VEC_RETURN_ctr, - PC(INTAVG(VEC_RETURN_ctr,tot_returns))); /* krc: comment out some of this stuff temporarily */ @@ -260,10 +257,6 @@ PrintTickyInfo(void) PC(INTAVG(RET_UNBOXED_TUP_hst[i], RET_UNBOXED_TUP_ctr))); } fprintf(tf, "\n"); - fprintf(tf, "\nRET_VEC_RETURN : %7ld: ", VEC_RETURN_ctr); - for (i = 0; i < 9; i++) { fprintf(tf, "%5.1f%%", - PC(INTAVG(RET_VEC_RETURN_hst[i],VEC_RETURN_ctr))); } - fprintf(tf, "\n"); */ fprintf(tf,"\nUPDATE FRAMES: %ld (%ld omitted from thunks)", @@ -519,7 +512,6 @@ PrintTickyInfo(void) PR_CTR(RET_NEW_ctr); PR_CTR(RET_OLD_ctr); PR_CTR(RET_UNBOXED_TUP_ctr); - PR_CTR(VEC_RETURN_ctr); /* krc: put off till later... */ #if FALSE @@ -550,15 +542,6 @@ PrintTickyInfo(void) PR_HST(RET_UNBOXED_TUP_hst,6); PR_HST(RET_UNBOXED_TUP_hst,7); PR_HST(RET_UNBOXED_TUP_hst,8); - PR_HST(RET_VEC_RETURN_hst,0); - PR_HST(RET_VEC_RETURN_hst,1); - PR_HST(RET_VEC_RETURN_hst,2); - PR_HST(RET_VEC_RETURN_hst,3); - PR_HST(RET_VEC_RETURN_hst,4); - PR_HST(RET_VEC_RETURN_hst,5); - PR_HST(RET_VEC_RETURN_hst,6); - PR_HST(RET_VEC_RETURN_hst,7); - PR_HST(RET_VEC_RETURN_hst,8); #endif /* FALSE */ PR_CTR(UPDF_OMITTED_ctr); |