diff options
| author | sewardj <unknown> | 1999-06-07 17:22:54 +0000 |
|---|---|---|
| committer | sewardj <unknown> | 1999-06-07 17:22:54 +0000 |
| commit | 820f09b2c2550f88aa0192442c1c62bb00d62d38 (patch) | |
| tree | e064a0cb877b113d4dabe4efff14ceeb2b08d729 /ghc/interpreter/static.c | |
| parent | c6b12cd91b225a3692a02d76c00dd4a1806a6bab (diff) | |
| download | haskell-820f09b2c2550f88aa0192442c1c62bb00d62d38.tar.gz | |
[project @ 1999-06-07 17:22:31 by sewardj]
Many changes needed to support loading of GHC compiled code. The main
changes are to parser.y and interface.c to load .hi files and create
appropriate symbol table entries. Also, interface.c has the
beginnings of and ELF loader/linker in it.
Diffstat (limited to 'ghc/interpreter/static.c')
| -rw-r--r-- | ghc/interpreter/static.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/ghc/interpreter/static.c b/ghc/interpreter/static.c index 7b0e6011d9..0959382113 100644 --- a/ghc/interpreter/static.c +++ b/ghc/interpreter/static.c @@ -8,8 +8,8 @@ * in the distribution for details. * * $RCSfile: static.c,v $ - * $Revision: 1.6 $ - * $Date: 1999/04/27 10:07:01 $ + * $Revision: 1.7 $ + * $Date: 1999/06/07 17:22:35 $ * ------------------------------------------------------------------------*/ #include "prelude.h" @@ -65,7 +65,6 @@ static List local classBindings Args((String,Class,List)); static Name local memberName Args((Class,Text)); static List local numInsert Args((Int,Cell,List)); -static List local typeVarsIn Args((Cell,List,List)); static List local maybeAppendVar Args((Cell,List)); static Type local checkSigType Args((Int,String,Cell,Type)); @@ -1588,7 +1587,7 @@ List xs; { * occur in the type expression when read from left to right. * ------------------------------------------------------------------------*/ -static List local typeVarsIn(ty,us,vs) /* Calculate list of type variables*/ +List typeVarsIn(ty,us,vs) /* Calculate list of type variables*/ Cell ty; /* used in type expression, reading*/ List us; /* from left to right ignoring any */ List vs; { /* listed in us. */ |