The R Project SVN R

Rev

Rev 29216 | Rev 42521 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 29216 Rev 36841
Line 257... Line 257...
257 
/*
 257 
/*
258 
 *  Traverse the deletion list and delete every object found there.
 258 
 *  Traverse the deletion list and delete every object found there.
259 
 *  This function repeatedly deletes del_base until that value is null.
 259 
 *  This function repeatedly deletes del_base until that value is null.
260 
 *  This traversal occurs at the end of every doevent call.
 260 
 *  This traversal occurs at the end of every doevent call.
261 
 */
 261 
 */
- 
 
 262 
static void del_object(object obj);	/* declaration */
262 
PROTECTED
 263 
PROTECTED
263 
void deletion_traversal(void)
 264 
void deletion_traversal(void)
264 
{
 265 
{
265 
	static int level = 0;
 266 
	static int level = 0;
266 
	object obj;
 267 
	object obj;
267 
	static void del_object(object obj);	/* declaration */
 - 
 
268 
 
 268 
 
269 
	level++;
 269 
	level++;
270 
	if (level == 1) {
 270 
	if (level == 1) {
271 
		while (del_base) {
 271 
		while (del_base) {
272 
			obj = del_base->obj;
 272 
			obj = del_base->obj;