st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 06:48:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixes #15 : update: replace a with TO_DATA(p)

Browse source
This commit is contained in:
danyabeerzun 2020-01-28 16:27:36 +03:00
parent fc7fb7c3bb
commit 3c4be3737f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
runtime/runtime.c
View file

@ -513,7 +513,7 @@ void *Lclone (void *p) {
#ifdef DEBUG_PRINT #ifdef DEBUG_PRINT
printf ("Lclone: string\n"); fflush (stdout); printf ("Lclone: string\n"); fflush (stdout);
#endif #endif
res = Bstring (a->contents); res = Bstring (TO_DATA(p)->contents);
break; break;
case ARRAY_TAG: case ARRAY_TAG:
@ -522,7 +522,7 @@ void *Lclone (void *p) {
printf ("Lclone: closure or array\n"); fflush (stdout); printf ("Lclone: closure or array\n"); fflush (stdout);
#endif #endif
res = (data*) alloc (sizeof(int) * (l+1)); res = (data*) alloc (sizeof(int) * (l+1));
memcpy (res, a, sizeof(int) * (l+1)); memcpy (res, TO_DATA(p), sizeof(int) * (l+1));
res = res->contents; res = res->contents;
break; break;