The R Project SVN R

(root)/trunk/src/main/dotcode.c @ 28362 – Rev 85148 → 85580



	    check = TRUE;
    }
 
    if (check) {
	if (val < (SEXP) 16)
	    errorcall(call, "WEIRD RETURN VALUE: %p", (void *)val);
    }
    else if (val == NULL) {
	warningcall(call, "converting NULL pointer to R NULL");
	val = R_NilValue;
    }

Rev 85148	Rev 85580
Line 531...	Line 531...
531	`check = TRUE;`	531	`check = TRUE;`
532	`}`	532	`}`
533		533
534	`if (check) {`	534	`if (check) {`
535	`if (val < (SEXP) 16)`	535	`if (val < (SEXP) 16)`
536	`errorcall(call, "WEIRD RETURN VALUE: %p", val);`	536	`errorcall(call, "WEIRD RETURN VALUE: %p", (void *)val);`
537	`}`	537	`}`
538	`else if (val == NULL) {`	538	`else if (val == NULL) {`
539	`warningcall(call, "converting NULL pointer to R NULL");`	539	`warningcall(call, "converting NULL pointer to R NULL");`
540	`val = R_NilValue;`	540	`val = R_NilValue;`
541	`}`	541	`}`