parent
a347ab3050
commit
b306080171
5
src/gc.c
5
src/gc.c
|
@ -236,12 +236,7 @@ make_bytes (char const *s, size_t length)
|
||||||
SCM x = alloc (size);
|
SCM x = alloc (size);
|
||||||
TYPE (x) = TBYTES;
|
TYPE (x) = TBYTES;
|
||||||
LENGTH (x) = length;
|
LENGTH (x) = length;
|
||||||
#if __M2_PLANET__
|
|
||||||
char *p = &g_cells[x];
|
|
||||||
p = p + 2 * sizeof (SCM);
|
|
||||||
#else
|
|
||||||
char *p = &CDR (x);
|
char *p = &CDR (x);
|
||||||
#endif
|
|
||||||
if (length == 0)
|
if (length == 0)
|
||||||
p[0] = 0;
|
p[0] = 0;
|
||||||
else
|
else
|
||||||
|
|
Loading…
Reference in New Issue