mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

Add a igc--set-commit-limit function

Browse source 
* src/igc (Figc__set_commit_limit): New.
(mps_res_to_string): New helper.
(syms_of_igc): Register it.
* test/src/igc-tests.el (set-commit-limit-test): New.
This commit is contained in:
Helmut Eller 2024-07-16 09:54:59 +02:00 • committed by Pip Cet
parent 25d3f9a874
commit a78d3c4d6b
2 changed files with 50 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

35
src/igc.c
View file

@ -4316,6 +4316,40 @@ igc_external_header (struct igc_header *h)
return header_exthdr (h);
}
static const char *
mps_res_to_string (mps_res_t res)
{
switch (res)
{
#define RES_CASE(prefix, id, doc) \
case prefix##id: \
return #prefix #id " " doc;
_mps_RES_ENUM (RES_CASE, MPS_RES_);
#undef RES_CASE
default:
return NULL;
}
}
DEFUN ("igc--set-commit-limit", Figc__set_commit_limit,
Sigc__set_commit_limit, 1, 1, 0, doc
: /* Set the arena commit limit to LIMIT.
LIMIT can be an integer (number of bytes) or nil (no limit). */)
(Lisp_Object limit)
{
size_t nbytes
= NILP (limit) ? ~0 : check_uinteger_max (limit, SIZE_MAX - 1);
mps_res_t err = mps_arena_commit_limit_set (global_igc->arena, nbytes);
if (err != MPS_RES_OK)
{
const char *msg = mps_res_to_string (err);
xsignal3 (Qerror,
intern_c_string (Sigc__set_commit_limit.s.symbol_name),
make_fixnum (err), msg ? build_string (msg) : Qnil);
}
return Qnil;
}
static void
make_arena (struct igc *gc)
{
@ -4853,6 +4887,7 @@ syms_of_igc (void)
defsubr (&Sigc_info);
defsubr (&Sigc__roots);
defsubr (&Sigc__collect);
defsubr (&Sigc__set_commit_limit);
defsubr (&Sigc__add_extra_dependency);
defsubr (&Sigc__remove_extra_dependency);
DEFSYM (Qambig, "ambig");

15
test/src/igc-tests.el
View file

@ -0,0 +1,15 @@
;;; igc-tests.el --- tests for src/igc.c -*- lexical-binding: t -*-
(require 'ert)
(ert-deftest set-commit-limit-test ()
(should (equal (igc--set-commit-limit (ash 1 30)) nil))
(should (equal (assoc-string "commit-limit" (igc-info))
'("commit-limit" 1 1073741824 0)))
(should-error (igc--set-commit-limit -1)
:type 'args-out-of-range)
(should-error (igc--set-commit-limit (- (ash 1 64) 1))
:type 'args-out-of-range)
(should (equal (igc--set-commit-limit nil) nil))
(should (equal (assoc-string "commit-limit" (igc-info))
'("commit-limit" 1 -1 0))))