* included in the distribution.
*
* $RCSfile: storage.c,v $
- * $Revision: 1.44 $
- * $Date: 2000/02/24 14:05:55 $
+ * $Revision: 1.45 $
+ * $Date: 2000/02/24 17:26:12 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
Name n = NIL;
for (n = NAMEMIN; n < nameHw; n++)
if (name(n).text == t) break;
- if (n == nameHw) internal("getHugs_AsmObject_for(1)");
+ if (n == nameHw) {
+ fprintf ( stderr, "can't find `%s' in ...\n", s );
+ internal("getHugs_AsmObject_for(1)");
+ }
v = name(n).stgVar;
if (!isStgVar(v) || !isPtr(stgVarInfo(v)))
internal("getHugs_AsmObject_for(2)");
* Copyright (c) 1994-1998.
*
* $RCSfile: Evaluator.c,v $
- * $Revision: 1.34 $
- * $Date: 2000/02/15 15:14:09 $
+ * $Revision: 1.35 $
+ * $Date: 2000/02/24 17:26:12 $
* ---------------------------------------------------------------------------*/
#include "Rts.h"
HaskellObj error
= asmClosureOfObject(getHugs_AsmObject_for("error"));
HaskellObj unpack
- = asmClosureOfObject(getHugs_AsmObject_for("primUnpackString"));
+ = asmClosureOfObject(getHugs_AsmObject_for("hugsprimUnpackString"));
HaskellObj thunk
= rts_apply ( unpack, rts_mkAddr ( (void*)msg ) );
thunk