From: sewardj <unknown>
Date: Fri, 19 Feb 1999 18:26:04 +0000 (+0000)
Subject: [project @ 1999-02-19 18:26:04 by sewardj]
X-Git-Tag: Approximately_9120_patches~6526
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2e3269fdb75f4d3ccd9ff2fbea4cc1bc6278db78;p=ghc-hetmet.git

[project @ 1999-02-19 18:26:04 by sewardj]
Added field 'StgWord stgexpr' to struct StgBCO, to help with debugging
the interpreter.  This field (if nonzero) points into the Hugs heap, at
the STG tree from which the BCO was derived.
---

diff --git a/ghc/includes/Closures.h b/ghc/includes/Closures.h
index dfd298f..23446c4 100644
--- a/ghc/includes/Closures.h
+++ b/ghc/includes/Closures.h
@@ -1,5 +1,5 @@
 /* ----------------------------------------------------------------------------
- * $Id: Closures.h,v 1.8 1999/02/11 14:22:56 simonm Exp $
+ * $Id: Closures.h,v 1.9 1999/02/19 18:26:04 sewardj Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -158,6 +158,7 @@ typedef struct {
     StgWord    n_ptrs;
     StgWord    n_words;
     StgWord    n_instrs;
+    StgWord    stgexpr;
     StgPtr     payload[0];
 } StgBCO;