diff options
| author | Brian Wignall <brianwignall@gmail.com> | 2019-11-26 08:26:41 -0500 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-11-28 02:54:52 -0500 |
| commit | 3748ba3a01f81078025b86023833784055d1af57 (patch) | |
| tree | f5df08b667ac13c9dc28160aee08fec1a216a0bd /compiler/GHC/StgToCmm/Prof.hs | |
| parent | 5f84b52a9c439ae2739bf1899a2adbae9c6d4f67 (diff) | |
| download | haskell-3748ba3a01f81078025b86023833784055d1af57.tar.gz | |
Fix typos, using Wikipedia list of common typos
Diffstat (limited to 'compiler/GHC/StgToCmm/Prof.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Prof.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/StgToCmm/Prof.hs b/compiler/GHC/StgToCmm/Prof.hs index ce8ef61f17..4743b79622 100644 --- a/compiler/GHC/StgToCmm/Prof.hs +++ b/compiler/GHC/StgToCmm/Prof.hs @@ -328,14 +328,14 @@ ldvEnterClosure :: ClosureInfo -> CmmReg -> FCode () ldvEnterClosure closure_info node_reg = do dflags <- getDynFlags let tag = funTag dflags closure_info - -- don't forget to substract node's tag + -- don't forget to subtract node's tag ldvEnter (cmmOffsetB dflags (CmmReg node_reg) (-tag)) ldvEnter :: CmmExpr -> FCode () -- Argument is a closure pointer ldvEnter cl_ptr = do dflags <- getDynFlags - let -- don't forget to substract node's tag + let -- don't forget to subtract node's tag ldv_wd = ldvWord dflags cl_ptr new_ldv_wd = cmmOrWord dflags (cmmAndWord dflags (CmmLoad ldv_wd (bWord dflags)) (CmmLit (mkWordCLit dflags (iLDV_CREATE_MASK dflags)))) |