[commit: ghc] master: typos in local var (eeb36eb)
git at git.haskell.org
git at git.haskell.org
Thu Dec 14 16:01:19 UTC 2017
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/eeb36ebdfd1361e18a57609dda6524ddd24cdd8d/ghc
>---------------------------------------------------------------
commit eeb36ebdfd1361e18a57609dda6524ddd24cdd8d
Author: Gabor Greif <ggreif at gmail.com>
Date: Thu Dec 14 16:57:28 2017 +0100
typos in local var
>---------------------------------------------------------------
eeb36ebdfd1361e18a57609dda6524ddd24cdd8d
compiler/codeGen/StgCmmUtils.hs | 2 +-
rts/linker/elf_util.c | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs
index 07432c4..b6092e8 100644
--- a/compiler/codeGen/StgCmmUtils.hs
+++ b/compiler/codeGen/StgCmmUtils.hs
@@ -585,7 +585,7 @@ mk_float_switch rep scrut deflt_blk_id (lo_bound, hi_bound) branches
--------------
label_default :: BlockId -> Maybe CmmAGraphScoped -> FCode (Maybe BlockId)
label_default _ Nothing
- = return Nothing
+ = return Nothing
label_default join_lbl (Just code)
= do lbl <- label_code join_lbl code
return (Just lbl)
diff --git a/rts/linker/elf_util.c b/rts/linker/elf_util.c
index 9ff9d62..052b2d9 100644
--- a/rts/linker/elf_util.c
+++ b/rts/linker/elf_util.c
@@ -3,9 +3,9 @@
#if defined(OBJFORMAT_ELF)
ElfSymbolTable *
-findSymbolTable(ObjectCode * oc, unsigned symolTableIndex) {
+findSymbolTable(ObjectCode * oc, unsigned symbolTableIndex) {
for(ElfSymbolTable * t=oc->info->symbolTables; t != NULL; t = t->next)
- if(t->index == symolTableIndex)
+ if(t->index == symbolTableIndex)
return t;
return NULL;
}
More information about the ghc-commits
mailing list