Mercurial > hg > xemacs-beta

comparison src/gc.c @ 3486:4cc26ec3f0de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-07-02 07:32:19 by stephent] Quiet GCC4 whining about unused values. <8764ig79bx.fsf_-_@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Sun, 02 Jul 2006 07:32:20 +0000
parents 509d2981ffea
children 896a34d28b71
comparison
equal deleted inserted replaced
3485:0fca84a337d8 3486:4cc26ec3f0de
1621 #endif /* USE_KKCC */ 1621 #endif /* USE_KKCC */
1622 1622
1623 { /* staticpro() */ 1623 { /* staticpro() */
1624 Lisp_Object **p = Dynarr_begin (staticpros); 1624 Lisp_Object **p = Dynarr_begin (staticpros);
1625 Elemcount count; 1625 Elemcount count;
1626 for (count = Dynarr_length (staticpros); count; count--) 1626 for (count = Dynarr_length (staticpros); count; count--, p++)
1627 /* Need to check if the pointer in the staticpro array is not 1627 /* Need to check if the pointer in the staticpro array is not
1628 NULL. A gc can occur after variable is added to the staticpro 1628 NULL. A gc can occur after variable is added to the staticpro
1629 array and _before_ it is correctly initialized. In this case 1629 array and _before_ it is correctly initialized. In this case
1630 its value is NULL, which we have to catch here. */ 1630 its value is NULL, which we have to catch here. */
1631 if (*p) 1631 if (*p)
1632 mark_object (**p++); 1632 mark_object (**p);
1633 else
1634 **p++;
1635 } 1633 }
1636 1634
1637 { /* staticpro_nodump() */ 1635 { /* staticpro_nodump() */
1638 Lisp_Object **p = Dynarr_begin (staticpros_nodump); 1636 Lisp_Object **p = Dynarr_begin (staticpros_nodump);
1639 Elemcount count; 1637 Elemcount count;
1640 for (count = Dynarr_length (staticpros_nodump); count; count--) 1638 for (count = Dynarr_length (staticpros_nodump); count; count--, p++)
1641 /* Need to check if the pointer in the staticpro array is not 1639 /* Need to check if the pointer in the staticpro array is not
1642 NULL. A gc can occur after variable is added to the staticpro 1640 NULL. A gc can occur after variable is added to the staticpro
1643 array and _before_ it is correctly initialized. In this case 1641 array and _before_ it is correctly initialized. In this case
1644 its value is NULL, which we have to catch here. */ 1642 its value is NULL, which we have to catch here. */
1645 if (*p) 1643 if (*p)
1646 mark_object (**p++); 1644 mark_object (**p);
1647 else
1648 **p++;
1649 } 1645 }
1650 1646
1651 #ifdef NEW_GC 1647 #ifdef NEW_GC
1652 { /* mcpro () */ 1648 { /* mcpro () */
1653 Lisp_Object *p = Dynarr_begin (mcpros); 1649 Lisp_Object *p = Dynarr_begin (mcpros);