From b306080171dc16935428d81b6901e2c98117f9b0 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Thu, 24 Oct 2019 22:25:04 +0200 Subject: [PATCH] make-bytes /gc weird M2_PLANET * src/gc.c (make_bytes): --- src/gc.c | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/gc.c b/src/gc.c index 602b18de..39535d5a 100644 --- a/src/gc.c +++ b/src/gc.c @@ -236,12 +236,7 @@ make_bytes (char const *s, size_t length) SCM x = alloc (size); TYPE (x) = TBYTES; LENGTH (x) = length; -#if __M2_PLANET__ - char *p = &g_cells[x]; - p = p + 2 * sizeof (SCM); -#else char *p = &CDR (x); -#endif if (length == 0) p[0] = 0; else