The R Project SVN R

Rev

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

Rev 29902 Rev 31875
Line 149... Line 149...
149 
	case RAWSXP:
 149 
	case RAWSXP:
150 
	    for (i = 0; i < nr; i++)
 150 
	    for (i = 0; i < nr; i++)
151 
		for (j = 0; j < nc; j++)
 151 
		for (j = 0; j < nc; j++)
152 
		    RAW(snr)[i + j * nr] = 0;
 152 
		    RAW(snr)[i + j * nr] = 0;
153 
	    break;
 153 
	    break;
- 
 
 154 
	default:
- 
 
 155 
	    /* don't fill with anything */
- 
 
 156 
	    ;
154 
	}
 157 
	}
155 
    }
 158 
    }
156 
    UNPROTECT(1);
 159 
    UNPROTECT(1);
157 
    return snr;
 160 
    return snr;
158 
}
 161 
}