From: sof <unknown>
Date: Tue, 2 Mar 1999 19:52:24 +0000 (+0000)
Subject: [project @ 1999-03-02 19:52:24 by sof]
X-Git-Tag: Approximately_9120_patches~6450
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7be9e958de6a97f3f9be8264cbf2cef1b3fd9df4;p=ghc-hetmet.git

[project @ 1999-03-02 19:52:24 by sof]
StgNat64 --> StgWord64
---

diff --git a/ghc/rts/Assembler.c b/ghc/rts/Assembler.c
index db7b4b1..9c0b922 100644
--- a/ghc/rts/Assembler.c
+++ b/ghc/rts/Assembler.c
@@ -5,8 +5,8 @@
  * Copyright (c) 1994-1998.
  *
  * $RCSfile: Assembler.c,v $
- * $Revision: 1.5 $
- * $Date: 1999/03/01 14:47:02 $
+ * $Revision: 1.6 $
+ * $Date: 1999/03/02 19:52:24 $
  *
  * This module provides functions to construct BCOs and other closures
  * required by the bytecode compiler.
@@ -86,7 +86,7 @@ typedef struct {
 #define NonPtrsChunkSize 10
 
 #define Queue Instrs
-#define Type  StgNat8
+#define Type  StgWord8
 #include "QueueTemplate.h"
 #undef Type
 #undef Queue
@@ -413,7 +413,7 @@ void asmEndBCO( AsmBCO bco )
         bcoInstr(o,j++) = i_HP_CHECK;
         bcoInstr(o,j++) = bco->max_hp;
 #endif
-        mapQueue(Instrs,  StgNat8,   bco->is,   bcoInstr(o,j++) = x);
+        mapQueue(Instrs,  StgWord8,   bco->is,   bcoInstr(o,j++) = x);
         ASSERT(j == is);
     }
     asmEndObject(&bco->object,c);