From 71938e4be658b01c6aba3db5428a7ddce0dd48a2 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Fri, 7 Sep 2007 09:51:37 +0000 Subject: [PATCH] 1.0.9.40: fix 64 bit build * Need to cast (BACKEND_PAGE_SIZE-1) to an unsigned long before bit flipping, otherwise we're potentially cutting the high bits off the allocation address. --- src/runtime/thread.c | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/runtime/thread.c b/src/runtime/thread.c index a838c7d..650d515 100644 --- a/src/runtime/thread.c +++ b/src/runtime/thread.c @@ -383,7 +383,7 @@ create_thread_struct(lispobj initial_function) { * padding. */ aligned_spaces = (void *)((((unsigned long)(char *)spaces) + BACKEND_PAGE_SIZE - 1) - & ~(BACKEND_PAGE_SIZE - 1)); + & ~(unsigned long)(BACKEND_PAGE_SIZE - 1)); per_thread=(union per_thread_data *) (aligned_spaces+ THREAD_CONTROL_STACK_SIZE+ diff --git a/version.lisp-expr b/version.lisp-expr index 1e4090c..be5e80c 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.9.39" +"1.0.9.40" -- 1.7.10.4