Compiler allocates boxed flonums in unmarked space

This fixes a bug whereby the compiler would sometimes allocate floats in
marked space.

* libguile/gc-inline.h (scm_inline_gc_malloc_pointerless_words): New
  internal helper.
* libguile/intrinsics.h (SCM_FOR_ALL_VM_INTRINSICS):
* libguile/intrinsics.c (allocate_pointerless_words):
  (allocate_pointerless_words_with_freelist): New intrinsics.
* libguile/jit.c (compile_allocate_pointerless_words):
  (compile_allocate_pointerless_words_immediate): New compilers.
* libguile/vm-engine.c (allocate_pointerless_words)
  (allocate_pointerless_words_immediate): New opcodes.
* module/language/cps/compile-bytecode.scm (compile-function):
* module/language/cps/effects-analysis.scm (param):
* module/language/cps/reify-primitives.scm (reify-primitives):
* module/language/cps/specialize-primcalls.scm (specialize-primcalls):
* module/language/cps/types.scm (allocate-words):
(allocate-words/immediate):
* module/system/vm/assembler.scm (system): Add support for the new
  opcodes.

1 files changed, 6 insertions, 0 deletions

diff --git a/libguile/gc-inline.h b/libguile/gc-inline.h
index a1932d65a..cb55aa86a 100644
--- a/libguile/gc-inline.h
+++ b/libguile/gc-inline.h
@@ -117,6 +117,12 @@ scm_inline_gc_malloc_words (scm_thread *thread, size_t words)
   return scm_inline_gc_malloc (thread, words * sizeof (void *));
 }
 
+static inline void *
+scm_inline_gc_malloc_pointerless_words (scm_thread *thread, size_t words)
+{
+  return scm_inline_gc_malloc_pointerless (thread, words * sizeof (void *));
+}
+
 static inline SCM
 scm_inline_cell (scm_thread *thread, scm_t_bits car, scm_t_bits cdr)
 {