Commit 1e53309d authored by sewardj's avatar sewardj
Browse files

[project @ 2000-01-11 14:09:17 by sewardj]

startGHCInstance: allocate a name() entry for the instance builder fn,
and store the name in the instance's .builder field.  Without this,
it's impossible to generate any code which uses an instance builder :-(
parent 138b4bc7
...@@ -7,8 +7,8 @@ ...@@ -7,8 +7,8 @@
* Hugs version 1.4, December 1997 * Hugs version 1.4, December 1997
* *
* $RCSfile: interface.c,v $ * $RCSfile: interface.c,v $
* $Revision: 1.23 $ * $Revision: 1.24 $
* $Date: 2000/01/07 16:56:47 $ * $Date: 2000/01/11 14:09:17 $
* ------------------------------------------------------------------------*/ * ------------------------------------------------------------------------*/
#include "prelude.h" #include "prelude.h"
...@@ -1304,10 +1304,6 @@ void startGHCValue ( Int line, VarId vid, Type ty ) ...@@ -1304,10 +1304,6 @@ void startGHCValue ( Int line, VarId vid, Type ty )
} }
n = newName(v,NIL); n = newName(v,NIL);
/* convert a leading run of DICTAPs into Hugs' internal Qualtype form, viz:
{ C1 a } -> { C2 b } -> T into
ap(QUALTYPE, ( [(C1,a),(C2,b)], T ))
*/
ty = dictapsToQualtype(ty); ty = dictapsToQualtype(ty);
tvs = ifTyvarsIn(ty); tvs = ifTyvarsIn(ty);
...@@ -1886,17 +1882,15 @@ VarId var; { /* VarId */ ...@@ -1886,17 +1882,15 @@ VarId var; { /* VarId */
inst(in).c = cl; inst(in).c = cl;
} }
#if 0
Is this still needed?
{ {
Name b = newName(inventText(),NIL); Name b = newName( /*inventText()*/ textOf(var),NIL);
name(b).line = line; name(b).line = line;
name(b).arity = length(ctxt); /* unused? */ name(b).arity = length(spec); /* unused? */ /* and surely wrong */
name(b).number = DFUNNAME; name(b).number = DFUNNAME;
inst(in).builder = b; inst(in).builder = b;
bindNameToClosure(b, lookupGHCClosure(inst(in).mod,var)); /* bindNameToClosure(b, lookupGHCClosure(inst(in).mod,var)); */
} }
#endif
return in; return in;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment