make-bytes /gc weird M2_PLANET

* src/gc.c (make_bytes):
2019-10-24 22:25:04 +02:00 · 2019-10-24 22:25:04 +02:00 · b306080171
parent a347ab3050
commit b306080171
1 changed files with 0 additions and 5 deletions
--- 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