From 5517909a5c9e581af6bee8182207a5eb395f7a4c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 19 Jul 2010 09:16:36 -0600
Subject: [PATCH] move code-page free list declaration to use

---
 src/racket/src/salloc.c | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/src/racket/src/salloc.c b/src/racket/src/salloc.c
index 61ddeef6a3..d54be8a1d1 100644
--- a/src/racket/src/salloc.c
+++ b/src/racket/src/salloc.c
@@ -94,15 +94,6 @@ SHARED_OK static int use_registered_statics;
 extern MZ_DLLIMPORT void GC_init();
 #endif
 
-struct free_list_entry {
-  long size; /* size of elements in this bucket */
-  void *elems; /* doubly linked list for free blocks */
-  int count; /* number of items in `elems' */
-};
-
-THREAD_LOCAL_DECL(static struct free_list_entry *free_list;)
-THREAD_LOCAL_DECL(static int free_list_bucket_count;)
-
 void scheme_set_stack_base(void *base, int no_auto_statics) XFORM_SKIP_PROC
 {
 #if defined(MZ_PLACES_WAITPID)
@@ -806,6 +797,14 @@ static int fd, fd_created;
 
 #if defined(MZ_JIT_USE_MPROTECT) || defined(MZ_JIT_USE_WINDOWS_VIRTUAL_ALLOC)
 
+struct free_list_entry {
+  long size; /* size of elements in this bucket */
+  void *elems; /* doubly linked list for free blocks */
+  int count; /* number of items in `elems' */
+};
+
+THREAD_LOCAL_DECL(static struct free_list_entry *free_list;)
+THREAD_LOCAL_DECL(static int free_list_bucket_count;)
 
 static long get_page_size()
 {