From a2e31164947fe874b0c24c42e60251f69e8d1cf7 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 26 Apr 2011 19:35:12 -0600 Subject: [PATCH] fix code page unchaining --- src/racket/src/salloc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/racket/src/salloc.c b/src/racket/src/salloc.c index e795e2da50..77b5361e97 100644 --- a/src/racket/src/salloc.c +++ b/src/racket/src/salloc.c @@ -963,10 +963,10 @@ static void unchain_page(void *pg) if (!((void **)pg)[2]) code_allocation_page_list = ((void **)pg)[3]; else - ((void **)(((void **)pg)[2]))[3] = ((void **)pg)[2]; + ((void **)(((void **)pg)[2]))[3] = ((void **)pg)[3]; if (((void **)pg)[3]) - ((void **)(((void **)pg)[3]))[2] = ((void **)pg)[3]; + ((void **)(((void **)pg)[3]))[2] = ((void **)pg)[2]; } static void init_free_list()