Commit 589efbb1 authored by sewardj's avatar sewardj
Browse files

[project @ 2000-02-24 17:26:12 by sewardj]

primUnpackString --> hugsprimUnpackString
parent 455409e4
......@@ -9,8 +9,8 @@
* 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"
......@@ -768,7 +768,10 @@ void* getHugs_AsmObject_for ( char* s )
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)");
......
......@@ -5,8 +5,8 @@
* 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"
......@@ -1791,7 +1791,7 @@ static StgClosure* makeErrorCall ( const char* msg )
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
......
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