From 5ce13a34b7eaa0f72f9f79b015bf0c4f1015033e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 22 May 2010 07:05:16 -0600
Subject: [PATCH] fix some middle-of-C-block variable declrations

---
 src/racket/gc/mark_rts.c | 6 ++++--
 src/racket/gc/new_hblk.c | 6 ++++--
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/racket/gc/mark_rts.c b/src/racket/gc/mark_rts.c
index f426799c1b..cf05b27aa3 100644
--- a/src/racket/gc/mark_rts.c
+++ b/src/racket/gc/mark_rts.c
@@ -369,8 +369,10 @@ ptr_t GC_approx_sp(void)
 #   ifdef _MSC_VER
 #     pragma warning(disable:4172)
 #   endif
-    ptr_t addr = ((ptr_t)(&dummy));
-    return addr;
+    {
+      ptr_t addr = ((ptr_t)(&dummy));
+      return addr;
+    }
 #   ifdef _MSC_VER
 #     pragma warning(default:4172)
 #   endif
diff --git a/src/racket/gc/new_hblk.c b/src/racket/gc/new_hblk.c
index dd18855032..7e058d9306 100644
--- a/src/racket/gc/new_hblk.c
+++ b/src/racket/gc/new_hblk.c
@@ -164,8 +164,10 @@ ptr_t GC_build_fl(struct hblk *h, size_t sz, GC_bool clear, ptr_t list)
    * put p (which is now head of list of objects in *h) as first
    * pointer in the appropriate free list for this size.
    */
-  word *tmp = (word *)h->hb_body;
-  obj_link(tmp) = list;
+  {
+    word *tmp = (word *)h->hb_body;
+    obj_link(tmp) = list;
+  }
   return ((ptr_t)p);
 }