From: sewardj <unknown>
Date: Tue, 15 Feb 2000 15:14:09 +0000 (+0000)
Subject: [project @ 2000-02-15 15:14:09 by sewardj]
X-Git-Tag: Approximately_9120_patches~5130
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2c64208b297bea6f102d42df65d39d805b0b234d;p=ghc-hetmet.git

[project @ 2000-02-15 15:14:09 by sewardj]
Implement CONST_INT_big and CONST_ADDR_big.
---

diff --git a/ghc/rts/Evaluator.c b/ghc/rts/Evaluator.c
index 6001b85..103d88b 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.33 $
- * $Date: 2000/02/15 13:16:20 $
+ * $Revision: 1.34 $
+ * $Date: 2000/02/15 15:14:09 $
  * ---------------------------------------------------------------------------*/
 
 #include "Rts.h"
@@ -915,6 +915,12 @@ StgThreadReturnCode enter( Capability* cap, StgClosure* obj0 )
                     xPushTaggedInt(bcoConstInt(bco,BCO_INSTR_8));
                     Continue;
                 }
+            Case(i_CONST_INT_big):
+                {
+                    int n = BCO_INSTR_16;
+                    xPushTaggedInt(bcoConstInt(bco,n));
+                    Continue;
+                }
             Case(i_PACK_INT):
                 {
                     StgClosure* o;
@@ -1005,6 +1011,12 @@ StgThreadReturnCode enter( Capability* cap, StgClosure* obj0 )
                     xPushTaggedAddr(bcoConstAddr(bco,BCO_INSTR_8));
                     Continue;
                 }
+            Case(i_CONST_ADDR_big):
+                {
+                    int n = BCO_INSTR_16;
+                    xPushTaggedAddr(bcoConstAddr(bco,n));
+                    Continue;
+                }
             Case(i_PACK_ADDR):
                 {
                     StgClosure* o;
@@ -1268,11 +1280,9 @@ StgThreadReturnCode enter( Capability* cap, StgClosure* obj0 )
             Case(i_VAR_FLOAT_big):
             Case(i_CONST_CHAR_big):
             Case(i_VAR_CHAR_big):
-            Case(i_CONST_ADDR_big):
             Case(i_VAR_ADDR_big):
             Case(i_VAR_STABLE_big):
             Case(i_CONST_INTEGER_big):
-            Case(i_CONST_INT_big):
             Case(i_VAR_INT_big):
             Case(i_VAR_WORD_big):
             Case(i_RETADDR_big):