The R Project SVN R

Rev

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

Rev 70845 Rev 70868
Line 1268... Line 1268...
1268 
            if (!R_compute_identical(cargs[i], cargscp[i], 39)
 1268 
            if (!R_compute_identical(cargs[i], cargscp[i], 39)
1269 
		    && !R_checkConstants(FALSE))
 1269 
		    && !R_checkConstants(FALSE))
1270 
		constsOK = FALSE;
 1270 
		constsOK = FALSE;
1271 
	if (!constsOK) {
 1271 
	if (!constsOK) {
1272 
	    REprintf("ERROR: detected compiler constant(s) modification after"
 1272 
	    REprintf("ERROR: detected compiler constant(s) modification after"
1273 
		" .Call invocation of function %s.\n", buf);
 1273 
		" .Call invocation of function %s from library %s (%s).\n",
- 
 
 1274 
		buf,
- 
 
 1275 
		symbol.dll ? symbol.dll->name : "unknown",
- 
 
 1276 
		symbol.dll ? symbol.dll->path : "unknown");
1274 
	    for(i = 0; i < nargs; i++)
 1277 
	    for(i = 0; i < nargs; i++)
1275 
		if (!R_compute_identical(cargs[i], cargscp[i], 39))
 1278 
		if (!R_compute_identical(cargs[i], cargscp[i], 39))
1276 
		    REprintf("NOTE: .Call function %s modified its argument"
 1279 
		    REprintf("NOTE: .Call function %s modified its argument"
1277 
			" (number %d, type %s, length %d)\n",
 1280 
			" (number %d, type %s, length %d)\n",
1278 
			buf,
 1281 
			buf,