diff options
| author | sewardj <unknown> | 2000-01-07 16:56:47 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-01-07 16:56:47 +0000 |
| commit | acc74b0119bdf71eb0bf37616f4d400c5a3a6ab7 (patch) | |
| tree | f0731ad175fd9bb375fad87f2479fb32bd8ba350 /ghc/interpreter/storage.c | |
| parent | e541bb94101bbd2384ff6a9156f5cbb9ab3d7f5d (diff) | |
| download | haskell-acc74b0119bdf71eb0bf37616f4d400c5a3a6ab7.tar.gz | |
[project @ 2000-01-07 16:56:47 by sewardj]
storage.c: unZcode tuple types (eg Z4T) correctly (off by one)
interface.c(startGHCClass):
remember to do dictapsToQualtype on class member types
(processInterfaces): return a Bool if Prelude.hi was
processed, so we can know when to do everybody(POSTPREL)
Diffstat (limited to 'ghc/interpreter/storage.c')
| -rw-r--r-- | ghc/interpreter/storage.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/interpreter/storage.c b/ghc/interpreter/storage.c index b26e386710..d18eabffba 100644 --- a/ghc/interpreter/storage.c +++ b/ghc/interpreter/storage.c @@ -9,8 +9,8 @@ * included in the distribution. * * $RCSfile: storage.c,v $ - * $Revision: 1.31 $ - * $Date: 2000/01/06 16:33:10 $ + * $Revision: 1.32 $ + * $Date: 2000/01/07 16:56:47 $ * ------------------------------------------------------------------------*/ #include "prelude.h" @@ -312,7 +312,7 @@ Text unZcodeThenFindText ( String s ) if (*s != 'T') goto parse_error; s++; p[n++] = '('; - while (i >= 0) { p[n++] = ','; i--; }; + while (i > 0) { p[n++] = ','; i--; }; p[n++] = ')'; break; default: @@ -812,7 +812,7 @@ Tycon addTupleTycon ( Int n ) if (tycon(i).tuple == n) return i; if (combined) - m = findFakeModule(findText(n<=1 ? "PrelBase" : "PrelTup")); else + m = findFakeModule(findText(n==0 ? "PrelBase" : "PrelTup")); else m = findModule(findText("Prelude")); setCurrModule(m); |