mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

New function, EXT:HEAP-SIZE to change the memory limits

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-01-27 21:49:52 +01:00
parent 4ef223694e
commit 061b9d0e78
5 changed files with 31 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/CHANGELOG
View file

@ -66,6 +66,11 @@ ECL 9.1.0:
- The canonicalized default arguments list now contains functions instead
of the forms to be evaluated.
* Visible changes:
- New function (EXT:HEAP-SIZE &optional NEW-MAX-HEAP-SIZE) can change the
memory limits.
;;; Local Variables: ***
;;; mode:text ***
;;; fill-column:79 ***

17
src/c/alloc_2.d
View file

@ -55,6 +55,23 @@ out_of_memory(cl_env_ptr the_env)
cl_error(1, @'ext::storage-exhausted');
}
@(defun ext::heap-size (&optional (new_max_heap_size Cnil))
cl_index size;
cl_object output;
@
ecl_disable_interrupts_env(the_env);
size = GC_get_heap_size();
ecl_enable_interrupts_env(the_env);
output = ecl_make_unsigned_integer(size);
if (!Null(new_max_heap_size)) {
cl_index new_size = fixnnint(new_max_heap_size);
if (new_size > size) {
_ecl_set_max_heap_size(new_size);
}
}
@(return output);
@)
#ifdef alloc_object
#undef alloc_object
#endif

4
src/c/symbols_list.h
View file

@ -1745,5 +1745,9 @@ cl_symbols[] = {
{SYS_ "COPY-FILE", SI_ORDINARY, si_copy_file, 2, OBJNULL},
#ifdef GBC_BOEHM
{EXT_ "HEAP-SIZE", EXT_ORDINARY, si_heap_size, -1, OBJNULL},
#endif
/* Tag for end of list */
{NULL, CL_ORDINARY, NULL, -1, OBJNULL}};

4
src/c/symbols_list2.h
View file

@ -1745,5 +1745,9 @@ cl_symbols[] = {
{SYS_ "COPY-FILE","si_copy_file"},
#ifdef GBC_BOEHM
{EXT_ "HEAP-SIZE","si_heap_size"},
#endif
/* Tag for end of list */
{NULL,NULL}};

1
src/h/external.h
View file

@ -220,6 +220,7 @@ extern ECL_API cl_object ecl_alloc_instance(cl_index slots);
extern ECL_API cl_object ecl_cons(cl_object a, cl_object d);
extern ECL_API cl_object ecl_list1(cl_object a);
#ifdef GBC_BOEHM
extern ECL_API cl_object si_heap_size _ARGS((cl_narg narg, ...));
extern ECL_API cl_object si_gc(cl_object area);
extern ECL_API cl_object si_gc_dump(void);
extern ECL_API cl_object si_gc_stats(cl_object enable);