Hojun-Cho/clisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add static keyword

Browse Source
This commit is contained in:
yoyo 2024-09-09 00:02:09 +09:00
parent 39fce5dcf6
commit 811a3b03eb
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
eval.c
View File

@ -31,7 +31,7 @@ find(Object *env, Object *obj)
return 0;
}
Object*
static Object*
_newfn(Object *env, Object *l, enum OType type)
{
if(l->type!=OCELL || islist(l->car)==0 || l->cdr->type!=OCELL)
@ -151,7 +151,7 @@ fncons(Object *env, Object *list)
return list;
}
Object*
static Object*
plusint(Object *env, Object *p)
{
long sum = 0;
@ -163,7 +163,7 @@ plusint(Object *env, Object *p)
return newint(gc, sum);
}
Object*
static Object*
plusstr(Object *env, Object *p)
{
Object *str = newstr(gc, 16);

10
gc.c
View File

@ -39,7 +39,7 @@ findobj(GC *gc, uintptr_t *stk)
return 0;
}
Object*
static Object*
cloneobj(GC *dst, GC *src, Object *obj)
{
if(obj->type==OBLTIN||obj->type==OSYMBOL) return obj;
@ -81,7 +81,7 @@ cloneobj(GC *dst, GC *src, Object *obj)
return p;
}
void
static void
gcraise(GC *src)
{
jmp_buf reg;
@ -114,7 +114,7 @@ gcraise(GC *src)
longjmp(reg, 1);
}
void
static void
mark(GC *gc, Object *obj)
{
if(obj->flag&USING||obj->type==ONONE||obj->type==OSYMBOL||obj->type==OBLTIN)
@ -141,7 +141,7 @@ mark(GC *gc, Object *obj)
}
}
void
static void
gcsweep(GC *gc)
{
for(uintptr_t *p = gc->beg; p < gc->end;)
@ -161,7 +161,7 @@ gcsweep(GC *gc)
}
}
void
static void
gcmark(GC *gc)
{
uintptr_t _ = 0;