diff options
| author | simonpj <unknown> | 1999-11-11 17:50:49 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1999-11-11 17:50:49 +0000 |
| commit | 90c6cd0e5b6ee9a9d34b9404a38cf0cf2433ffe4 (patch) | |
| tree | 43b7c56a37823ecb8a80cc0b2421c511716f539e /ghc/compiler/codeGen | |
| parent | 2f1003ae5be04c794fe1f25a8a576b3ff0a8f15b (diff) | |
| download | haskell-90c6cd0e5b6ee9a9d34b9404a38cf0cf2433ffe4.tar.gz | |
[project @ 1999-11-11 17:50:47 by simonpj]
Report slow-entry counts in ticky-ticky
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgClosure.lhs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/ghc/compiler/codeGen/CgClosure.lhs b/ghc/compiler/codeGen/CgClosure.lhs index 38c88dd999..c40320cc95 100644 --- a/ghc/compiler/codeGen/CgClosure.lhs +++ b/ghc/compiler/codeGen/CgClosure.lhs @@ -1,7 +1,7 @@ % % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % -% $Id: CgClosure.lhs,v 1.37 1999/11/02 15:05:43 simonmar Exp $ +% $Id: CgClosure.lhs,v 1.38 1999/11/11 17:50:49 simonpj Exp $ % \section[CgClosure]{Code generation for closures} @@ -342,7 +342,9 @@ closureCodeBody binder_info closure_info cc all_args body --slow_entry_code = forceHeapCheck [] True slow_entry_code' slow_entry_code - = profCtrC SLIT("TICK_ENT_FUN_STD") [] `thenC` + = profCtrC SLIT("TICK_ENT_FUN_STD") [ + CLbl ticky_ctr_label DataPtrRep + ] `thenC` -- Bind args, and record expected position of stk ptrs mapCs bindNewToStack arg_offsets `thenC` |