diff options
| author | Gabor Greif <ggreif@gmail.com> | 2013-01-24 16:06:57 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2013-01-30 21:45:31 +0100 |
| commit | 3e1745aa272077c98254ce9b79e62b92c40948a9 (patch) | |
| tree | d9dca5075561442dafcf8bb3cb627dec7cc0a9e6 /compiler/specialise | |
| parent | a217e7a27a8d48095e2e276ed07a203254bf8743 (diff) | |
| download | haskell-3e1745aa272077c98254ce9b79e62b92c40948a9.tar.gz | |
typos
Diffstat (limited to 'compiler/specialise')
| -rw-r--r-- | compiler/specialise/SpecConstr.lhs | 4 | ||||
| -rw-r--r-- | compiler/specialise/Specialise.lhs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/compiler/specialise/SpecConstr.lhs b/compiler/specialise/SpecConstr.lhs index afc70f9b9e..ae578bddd4 100644 --- a/compiler/specialise/SpecConstr.lhs +++ b/compiler/specialise/SpecConstr.lhs @@ -587,7 +587,7 @@ We get two specialisations: But perhaps the first one isn't good. After all, we know that tpl_B2 is a T (I# x) really, because T is strict and Int has one constructor. (We can't -unbox the strict fields, becuase T is polymorphic!) +unbox the strict fields, because T is polymorphic!) %************************************************************************ %* * @@ -867,7 +867,7 @@ specialiations. Consider If we specialise $j1 then in each specialisation (as well as the original) we can specialise $j2, and similarly $j3. Even if we make just *one* -specialisation of each, becuase we also have the original we'll get 2^n +specialisation of each, because we also have the original we'll get 2^n copies of $j3, which is not good. So when recursively specialising we divide the sc_count by the number of diff --git a/compiler/specialise/Specialise.lhs b/compiler/specialise/Specialise.lhs index 04ef404ab2..2406d384e3 100644 --- a/compiler/specialise/Specialise.lhs +++ b/compiler/specialise/Specialise.lhs @@ -626,7 +626,7 @@ specImport :: DynFlags specImport dflags done rb fn calls_for_fn | fn `elemVarSet` done = return ([], []) -- No warning. This actually happens all the time - -- when specialising a recursive function, becuase + -- when specialising a recursive function, because -- the RHS of the specialised function contains a recursive -- call to the original function |