From 48524906d8cd2b7d13a52609f84d190e42ff61d4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 1 Dec 2011 14:04:52 -0700
Subject: [PATCH] fix bug in cross-module inliner

---
 src/racket/src/resolve.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/racket/src/resolve.c b/src/racket/src/resolve.c
index ff38f8175e..4d45694c9d 100644
--- a/src/racket/src/resolve.c
+++ b/src/racket/src/resolve.c
@@ -3063,6 +3063,9 @@ static int unresolve_stack_push(Unresolve_Info *ui, int n, int r_only)
     d = (mzshort *)scheme_malloc_atomic(sizeof(mzshort) * ((2 * ui->stack_size) + n));
     memcpy(d, ui->depths, sizeof(mzshort) * pos);
 
+    ui->flags = f;
+    ui->depths = d;
+
     ui->stack_size = (2 * ui->stack_size) + n;
   }
   memset(ui->flags + pos, 0, sizeof(int) * n);