From ababa86c44cbff7b907209ac63dee00b1326b3c3 Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Sun, 14 Dec 2014 09:09:25 -0300 Subject: [PATCH] Increase SCHEME_PRIM_OPT_TYPE_SHIFT Otherwise, two optimization flags collide: SCHEME_PRIM_ALWAYS_ESCAPES = SCHEME_PRIM_PRODUCES_FLONUM = 8192 --- racket/src/racket/src/schpriv.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/racket/src/schpriv.h b/racket/src/racket/src/schpriv.h index 99e1a9f1cb..bf503335f6 100644 --- a/racket/src/racket/src/schpriv.h +++ b/racket/src/racket/src/schpriv.h @@ -76,7 +76,7 @@ #define SCHEME_PRIM_IS_UNSAFE_NONALLOCATE 4096 #define SCHEME_PRIM_ALWAYS_ESCAPES 8192 -#define SCHEME_PRIM_OPT_TYPE_SHIFT 13 +#define SCHEME_PRIM_OPT_TYPE_SHIFT 14 #define SCHEME_PRIM_OPT_TYPE_MASK (SCHEME_MAX_LOCAL_TYPE_MASK << SCHEME_PRIM_OPT_TYPE_SHIFT) #define SCHEME_PRIM_OPT_TYPE(x) ((x & SCHEME_PRIM_OPT_TYPE_MASK) >> SCHEME_PRIM_OPT_TYPE_SHIFT)