fix bug in cross-module inliner

2011-12-01 14:04:52 -07:00 · 2011-12-01 14:04:52 -07:00 · 48524906d8
commit 48524906d8
parent 78c2d7b9ab
1 changed files with 3 additions and 0 deletions
--- 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);