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

Shallow clone (runtime function)

Browse source
This commit is contained in:
Dmitry Boulytchev 2020-01-15 22:33:46 +03:00
parent a453b65fd3
commit 46dfd58bda
6 changed files with 31 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
runtime/runtime.c
View file

@ -485,7 +485,7 @@ void *Lclone (void *p) {
if (UNBOXED(p)) return p;
else {
data *a = TO_DATA(p), *res;
data *a = TO_DATA(p);
int t = TAG(a->tag), l = LEN(a->tag);
switch (t) {
@ -496,12 +496,15 @@ void *Lclone (void *p) {
case ARRAY_TAG:
case CLOSURE_TAG:
res = (data*) alloc (sizeof(int) * (l+1));
strncpy (res, p, sizeof(int) * (l+1));
memcpy (res, a, sizeof(int) * (l+1));
res = res->contents;
break;
case SEXP_TAG:
res = (data*) alloc (sizeof(int) * (l+2));
strncpy (res, TO_SEXP(p), sizeof(int) * (l+2));
res = (sexp*) alloc (sizeof(int) * (l+2));
memcpy (res, TO_SEXP(p), sizeof(int) * (l+2));
res = res->contents;
res = res->contents;
break;
default:
@ -1142,7 +1145,7 @@ extern void __gc_root_scan_stack ();
/* Mark-and-copy */
/* ======================================== */
static size_t SPACE_SIZE = 32;
static size_t SPACE_SIZE = 32 * 1024;
// static size_t SPACE_SIZE = 128;
// static size_t SPACE_SIZE = 1024 * 1024;