suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix some middle-of-C-block variable declrations

Browse Source
This commit is contained in:
Matthew Flatt 2010-05-22 07:05:16 -06:00
parent 1e9aa3b132
commit 5ce13a34b7
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/racket/gc/mark_rts.c
View File

@ -369,8 +369,10 @@ ptr_t GC_approx_sp(void)
# ifdef _MSC_VER # ifdef _MSC_VER
# pragma warning(disable:4172) # pragma warning(disable:4172)
# endif # endif
ptr_t addr = ((ptr_t)(&dummy)); {
return addr; ptr_t addr = ((ptr_t)(&dummy));
return addr;
}
# ifdef _MSC_VER # ifdef _MSC_VER
# pragma warning(default:4172) # pragma warning(default:4172)
# endif # endif

6
src/racket/gc/new_hblk.c
View File

@ -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 * put p (which is now head of list of objects in *h) as first
* pointer in the appropriate free list for this size. * 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); return ((ptr_t)p);
} }