diff options
| author | Gabor Greif <ggreif@gmail.com> | 2017-12-14 16:57:28 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2017-12-14 16:57:28 +0100 |
| commit | eeb36ebdfd1361e18a57609dda6524ddd24cdd8d (patch) | |
| tree | a969fd75c780f7f1ea1341e65436cfb84b57d411 | |
| parent | fa1afcde4a3f9caaa0ac37e94f1d8fa3e624405f (diff) | |
| download | haskell-eeb36ebdfd1361e18a57609dda6524ddd24cdd8d.tar.gz | |
typos in local var
| -rw-r--r-- | compiler/codeGen/StgCmmUtils.hs | 2 | ||||
| -rw-r--r-- | 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 07432c45ab..b6092e8358 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 9ff9d6271d..052b2d9cae 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; } |