From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 22 May 2010 13:05:16 +0000 (-0600)
Subject: fix some middle-of-C-block variable declrations
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=da3fd66527f4c783f9c5501882424e5add35ddd7;p=gc

fix some middle-of-C-block variable declrations
---

diff --git a/mark_rts.c b/mark_rts.c
index f426799c..cf05b27a 100644
--- a/mark_rts.c
+++ b/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/new_hblk.c b/new_hblk.c
index dd188550..7e058d93 100644
--- a/new_hblk.c
+++ b/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);
 }