add a const

[ghc-hetmet.git] / includes / rts / storage / Closures.h

diff --git a/includes/rts/storage/Closures.h b/includes/rts/storage/Closures.h
index 2683ce7..5f4f035 100644 (file)
--- a/includes/rts/storage/Closures.h
+++ b/includes/rts/storage/Closures.h
@@ -124,7 +124,7 @@ typedef struct {
     StgHeader     header;
     StgClosure   *indirectee;
     StgClosure   *static_link;
-    StgInfoTable *saved_info;
+    const StgInfoTable *saved_info;
 } StgIndStatic;
 
 typedef struct StgBlockingQueue_ {
@@ -166,6 +166,11 @@ typedef struct {
 } StgCatchFrame;
 
 typedef struct {
+    const StgInfoTable* info;
+    struct StgStack_ *next_chunk;
+} StgUnderflowFrame;
+
+typedef struct {
     StgHeader  header;
 } StgStopFrame;