Commit 7fd9ad20 authored by sewardj's avatar sewardj
Browse files

[project @ 2000-02-14 11:04:58 by sewardj]

Paranoia: barf if enterBCO_primop1 or enterBCO_primop2 are called
in combined mode (since GHC should handle all primops in that case).
parent 1ecbf459
......@@ -5,8 +5,8 @@
* Copyright (c) 1994-1998.
*
* $RCSfile: Evaluator.c,v $
* $Revision: 1.31 $
* $Date: 1999/12/07 11:49:11 $
* $Revision: 1.32 $
* $Date: 2000/02/14 11:04:58 $
* ---------------------------------------------------------------------------*/
#include "Rts.h"
......@@ -70,7 +70,7 @@
for a given function by name. Useful but a hack. Sigh.
*/
extern void* getHugs_AsmObject_for ( char* s );
extern int /*Bool*/ combined;
/* --------------------------------------------------------------------------
* Crude profiling stuff (mainly to assess effect of optimiser)
......@@ -2254,6 +2254,9 @@ void myStackCheck ( Capability* cap )
*/
static void* enterBCO_primop1 ( int primop1code )
{
if (combined)
barf("enterBCO_primop1 in combined mode");
switch (primop1code) {
case i_pushseqframe:
{
......@@ -2650,6 +2653,9 @@ static void* enterBCO_primop2 ( int primop2code,
StgBCO** bco,
Capability* cap )
{
if (combined)
barf("enterBCO_primop1 in combined mode");
switch (primop2code) {
case i_raise: /* raise#{err} */
{
......
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