Rename gc-precise-p to gc-precise

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'.

diff --git a/src/ChangeLog b/src/ChangeLog
index 185769fd33fc3b14e2378adb30b300970f8de143..0bc5d650caff98192a5105ab4e5d8584d9ba39f5 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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.

diff --git a/src/alloc.c b/src/alloc.c
index ff93bf57c2654233894a3fc969e6874740bdddb7..022782504f1d53ce399b7d866e1675ec068d77d6 100644 (file)
--- 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 d8d3fc80f06fb85eae2bfacdabad618210941308..6ff35afa66b880e08961d430764de50b63e468f1 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -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):

diff --git a/test/automated/finalizer-tests.el b/test/automated/finalizer-tests.el
index 4bf8bb1a3182df7f9c0eda54c068bacd0ff27f7f..142152e3fb0d4865ef7ed857b49668150ba7a28a 100644 (file)
--- 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 0721009d70ba3c7c73507e70518e9f470e072b66..a8607f9274db572f1b469153ccaf4d19a17a9446 100644 (file)
--- 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