The R Project SVN R

Rev

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

Rev 81042 Rev 81060
Line 1830... Line 1830...
1830 
		return; /* go to default error handling; do not reset stack */
 1830 
		return; /* go to default error handling; do not reset stack */
1831 
	    } else {
 1831 
	    } else {
1832 
		/* if we are in the process of handling a C stack
 1832 
		/* if we are in the process of handling a C stack
1833 
		   overflow, treat all calling handlers as failed */
 1833 
		   overflow, treat all calling handlers as failed */
1834 
		if (R_OldCStackLimit)
 1834 
		if (R_OldCStackLimit)
1835 
		    break;
 1835 
		    continue;
1836 
		SEXP hooksym, hcall, qcall, qfun;
 1836 
		SEXP hooksym, hcall, qcall, qfun;
1837 
		/* protect oldstack here, not outside loop, so handler
 1837 
		/* protect oldstack here, not outside loop, so handler
1838 
		   stack gets unwound in case error is protect stack
 1838 
		   stack gets unwound in case error is protect stack
1839 
		   overflow */
 1839 
		   overflow */
1840 
		PROTECT(oldstack);
 1840 
		PROTECT(oldstack);