steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

maybe_gc() takes an argument; compile-gc didn't take this into account

slava 2006-02-20 05:27:22 +00:00
parent d8466f6bc6
commit 75d3509c09
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/alien/compiler.factor
View File

@ -60,4 +60,4 @@ kernel-internals math namespaces sequences words ;
: if-void ( type true false -- | false: type -- ) : if-void ( type true false -- | false: type -- )
pick "void" = [ drop nip call ] [ nip call ] if ; inline pick "void" = [ drop nip call ] [ nip call ] if ; inline
: compile-gc "maybe_gc" f %alien-invoke , ; : compile-gc "simple_gc" f %alien-invoke , ;

7
native/gc.c
View File

@ -353,8 +353,13 @@ void maybe_gc(CELL size)
} }
} }
void primitive_gc_time(void) void simple_gc(void)
{ {
maybe_gc(0); maybe_gc(0);
}
void primitive_gc_time(void)
{
simple_gc();
dpush(tag_bignum(s48_long_long_to_bignum(gc_time))); dpush(tag_bignum(s48_long_long_to_bignum(gc_time)));
} }

3
native/gc.h
View File

@ -121,5 +121,6 @@ INLINE void* allot_object(CELL type, CELL length)
CELL collect_next(CELL scan); CELL collect_next(CELL scan);
void garbage_collection(CELL gen); void garbage_collection(CELL gen);
void primitive_gc(void); void primitive_gc(void);
DLLEXPORT void maybe_gc(CELL size); void maybe_gc(CELL size);
DLLEXPORT void simple_gc(void);
void primitive_gc_time(void); void primitive_gc_time(void);