From 15ddf7a6f211545b34f22bbab286df91e391b5aa Mon Sep 17 00:00:00 2001 From: Daniel Colascione Date: Tue, 3 Mar 2015 09:59:23 -0800 Subject: [PATCH] Rename gc-precise-p to gc-precise 2015-03-03 Daniel Colascione * alloc.c (syms_of_alloc): Rename `gc-precise-p' to `gc-precise'. 2015-03-03 Daniel Colascione * 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'. --- src/ChangeLog | 4 ++++ src/alloc.c | 5 +++-- test/ChangeLog | 9 +++++++++ test/automated/finalizer-tests.el | 8 ++++---- test/automated/generator-tests.el | 2 +- 5 files changed, 21 insertions(+), 7 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 185769fd33f..0bc5d650caf 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2015-03-03 Daniel Colascione + + * alloc.c (syms_of_alloc): Rename `gc-precise-p' to `gc-precise'. + 2015-03-03 Paul Eggert * alloc.c (run_finalizers): Omit unused local. diff --git a/src/alloc.c b/src/alloc.c index ff93bf57c26..022782504f1 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -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); diff --git a/test/ChangeLog b/test/ChangeLog index d8d3fc80f06..6ff35afa66b 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,12 @@ +2015-03-03 Daniel Colascione + + * 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 * automated/generator-tests.el (cps-while-incf): diff --git a/test/automated/finalizer-tests.el b/test/automated/finalizer-tests.el index 4bf8bb1a318..142152e3fb0 100644 --- a/test/automated/finalizer-tests.el +++ b/test/automated/finalizer-tests.el @@ -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*" diff --git a/test/automated/generator-tests.el b/test/automated/generator-tests.el index 0721009d70b..a8607f9274d 100644 --- a/test/automated/generator-tests.el +++ b/test/automated/generator-tests.el @@ -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 -- 2.39.2