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

10
gc.c
View File

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