mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 19:31:02 -08:00
Code Issues Projects Releases Wiki Activity

Rename gc-precise-p to gc-precise

Browse source 
2015-03-03  Daniel Colascione  <dancol@dancol.org>

	* alloc.c (syms_of_alloc): Rename `gc-precise-p' to `gc-precise'.

2015-03-03  Daniel Colascione  <dancol@dancol.org>

	* automated/finalizer-tests.el (finalizer-basic)
	(finalizer-circular-reference, finalizer-cross-reference)
	(finalizer-error): Rename `gc-precise-p' to `gc-precise'.

	* automated/generator-tests.el (cps-test-iter-close-finalizer):
	Rename `gc-precise-p' to `gc-precise'.
This commit is contained in:
Daniel Colascione 2015-03-03 09:59:23 -08:00
parent a6fb5e2de5
commit 15ddf7a6f2
5 changed files with 21 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/ChangeLog
View file

@ -1,3 +1,7 @@
2015-03-03 Daniel Colascione <dancol@dancol.org>
* alloc.c (syms_of_alloc): Rename `gc-precise-p' to `gc-precise'.
2015-03-03 Paul Eggert <eggert@cs.ucla.edu>
* alloc.c (run_finalizers): Omit unused local.

5
src/alloc.c
View file

@ -7266,7 +7266,7 @@ init_alloc_once (void)
{
/* Even though Qt's contents are not set up, its address is known. */
Vpurify_flag = Qt;
gc_precise_p = (GC_MARK_STACK == GC_USE_GCPROS_AS_BEFORE);
gc_precise = (GC_MARK_STACK == GC_USE_GCPROS_AS_BEFORE);
purebeg = PUREBEG;
pure_size = PURESIZE;
@ -7410,9 +7410,10 @@ The time is in seconds as a floating point value. */);
DEFVAR_INT ("gcs-done", gcs_done,
doc: /* Accumulated number of garbage collections done. */);
DEFVAR_BOOL ("gc-precise-p", gc_precise_p,
DEFVAR_BOOL ("gc-precise", gc_precise,
doc: /* Non-nil means GC stack marking is precise.
Useful mainly for automated GC tests. Build time constant.*/);
XSYMBOL (intern_c_string ("gc-precise"))->constant = 1;
defsubr (&Scons);
defsubr (&Slist);

9
test/ChangeLog
View file

@ -1,3 +1,12 @@
2015-03-03 Daniel Colascione <dancol@dancol.org>
* automated/finalizer-tests.el (finalizer-basic)
(finalizer-circular-reference, finalizer-cross-reference)
(finalizer-error): Rename `gc-precise-p' to `gc-precise'.
* automated/generator-tests.el (cps-test-iter-close-finalizer):
Rename `gc-precise-p' to `gc-precise'.
2015-03-03 Glenn Morris <rgm@gnu.org>
* automated/generator-tests.el (cps-while-incf):

8
test/automated/finalizer-tests.el
View file

@ -31,7 +31,7 @@
(ert-deftest finalizer-basic ()
"Test that finalizers run at all."
(skip-unless gc-precise-p)
(skip-unless gc-precise)
(let* ((finalized nil)
(finalizer (make-finalizer (lambda () (setf finalized t)))))
(garbage-collect)
@ -42,7 +42,7 @@
(ert-deftest finalizer-circular-reference ()
"Test references from a callback to a finalizer."
(skip-unless gc-precise-p)
(skip-unless gc-precise)
(let ((finalized nil))
(let* ((value nil)
(finalizer (make-finalizer (lambda () (setf finalized value)))))
@ -53,7 +53,7 @@
(ert-deftest finalizer-cross-reference ()
"Test that between-finalizer references do not prevent collection."
(skip-unless gc-precise-p)
(skip-unless gc-precise)
(let ((d nil) (fc 0))
(let* ((f1-data (cons nil nil))
(f2-data (cons nil nil))
@ -68,7 +68,7 @@
(ert-deftest finalizer-error ()
"Test that finalizer errors are suppressed"
(skip-unless gc-precise-p)
(skip-unless gc-precise)
(make-finalizer (lambda () (error "ABCDEF")))
(garbage-collect)
(with-current-buffer "*Messages*"

2
test/automated/generator-tests.el
View file

@ -261,7 +261,7 @@ identical output.
(should (not cps-test-closed-flag)))))
(ert-deftest cps-test-iter-close-finalizer ()
(skip-unless gc-precise-p)
(skip-unless gc-precise)
(garbage-collect)
(let ((cps-test-closed-flag nil))
(let ((iter (funcall