andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

M2: no pointer..best ever

This commit is contained in:
Jan Nieuwenhuizen 2019-10-25 22:28:17 +02:00
parent 8a8f34c8ba
commit ad6888ded2
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
simple.make
View File

@ -183,7 +183,7 @@ M2_PLANET_SOURCES = \
-e 's@^(#include.*)@/* \1 */@' \
$< \
| $(CC) -E -I include \
-D POINTER_CELLS=1 \
-D POINTER_CELLS=0 \
-D __M2_PLANET__=1 \
-D 'MES_VERSION="git"' \
-D 'MES_PKGDATADIR="/usr/local/share/mes"' \
@ -209,7 +209,7 @@ M2_PLANET_SOURCES = \
-e 's@^(#include.*)@/* \1 */@' \
$< \
| $(CC) -E -I include \
-D POINTER_CELLS=1 \
-D POINTER_CELLS=0 \
-D __M2_PLANET__=1 \
-D 'MES_VERSION="git"' \
-D 'MES_PKGDATADIR="/usr/local/share/mes"' \

2
src/gc.c
View File

@ -67,6 +67,8 @@ cell_bytes (SCM x)
#if POINTER_CELLS
char *p = x;
return p + (2 * sizeof (long));
#elif __M2_PLANET__
CELL (x) + 8;
#else
return &CDR (x);
#endif