From: sewardj <unknown>
Date: Mon, 14 Feb 2000 11:04:58 +0000 (+0000)
Subject: [project @ 2000-02-14 11:04:58 by sewardj]
X-Git-Tag: Approximately_9120_patches~5137
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7fd9ad20625e55fb9abe9f23bea316b03748dea8;p=ghc-hetmet.git

[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).
---

diff --git a/ghc/rts/Evaluator.c b/ghc/rts/Evaluator.c
index 087638f..c123d39 100644
--- a/ghc/rts/Evaluator.c
+++ b/ghc/rts/Evaluator.c
@@ -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} */
             {