diff options
| author | sewardj <unknown> | 2000-03-10 14:53:00 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 2000-03-10 14:53:00 +0000 |
| commit | 42d2afc52ff5ffec48a5a56a94c110deba4a9549 (patch) | |
| tree | c0c469a45dfc66829b08db17b83fe9f2166f73c6 /ghc/interpreter/static.c | |
| parent | 783f2c369a8b837d3ec37abe5650f12ca0181101 (diff) | |
| download | haskell-42d2afc52ff5ffec48a5a56a94c110deba4a9549.tar.gz | |
[project @ 2000-03-10 14:53:00 by sewardj]
Compilation cleanups:
* Add some prototypes to header files, to avoid compilation warnings.
* Remove irrelevant #ifdeffery (#if NPLUSK, + various others)
Diffstat (limited to 'ghc/interpreter/static.c')
| -rw-r--r-- | ghc/interpreter/static.c | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/ghc/interpreter/static.c b/ghc/interpreter/static.c index e1504d1803..c3dd092d6b 100644 --- a/ghc/interpreter/static.c +++ b/ghc/interpreter/static.c @@ -9,8 +9,8 @@ * included in the distribution. * * $RCSfile: static.c,v $ - * $Revision: 1.27 $ - * $Date: 2000/03/09 10:19:33 $ + * $Revision: 1.28 $ + * $Date: 2000/03/10 14:53:00 $ * ------------------------------------------------------------------------*/ #include "prelude.h" @@ -58,9 +58,7 @@ static Void local checkMems Args((Class,List,Cell)); static Void local checkMems2 Args((Class,Cell)); static Void local addMembers Args((Class)); static Name local newMember Args((Int,Int,Cell,Type,Class)); - Name newDSel Args((Class,Int)); static Text local generateText Args((String,Class)); - Int visitClass Args((Class)); static List local classBindings Args((String,Class,List)); static Name local memberName Args((Class,Text)); @@ -3447,7 +3445,6 @@ Cell p; { static Cell local checkMaybeCnkPat(l,p)/* Check applicative pattern with */ Int l; /* the possibility of n+k pattern */ Cell p; { -#if NPLUSK Cell h = getHead(p); if (argCount==2 && isVar(h) && textOf(h)==textPlus) { /* n+k */ @@ -3465,7 +3462,6 @@ Cell p; { arg(p) = checkPat(l,v); return p; } -#endif return checkApPat(l,0,p); } |