From 2e3269fdb75f4d3ccd9ff2fbea4cc1bc6278db78 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Fri, 19 Feb 1999 18:26:04 +0000
Subject: [PATCH] [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.

---
 ghc/includes/Closures.h |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
 
-- 
1.7.10.4