The R Project SVN R

(root)/trunk/src/main/array.c @ 63243 – Rev 90038 → 90096



	UNPROTECT(1);
    }
    else // !resize
	setAttrib(r, R_DimSymbol, dimsa);
 
    copyMostAttrib(a, r);
 
    UNPROTECT(3); /* dimsa, r, dimsr */
    return r;
}
 
/* colSums(x, n, p, na.rm) and friends */

Rev 90038	Rev 90096
Line 1884...	Line 1884...
1884	`UNPROTECT(1);`	1884	`UNPROTECT(1);`
1885	`}`	1885	`}`
1886	`else // !resize`	1886	`else // !resize`
1887	`setAttrib(r, R_DimSymbol, dimsa);`	1887	`setAttrib(r, R_DimSymbol, dimsa);`
1888		1888
-		1889	`copyMostAttrib(a, r);`
-		1890
1889	`UNPROTECT(3); /* dimsa, r, dimsr */`	1891	`UNPROTECT(3); /* dimsa, r, dimsr */`
1890	`return r;`	1892	`return r;`
1891	`}`	1893	`}`
1892		1894
1893	`/* colSums(x, n, p, na.rm) and friends */`	1895	`/* colSums(x, n, p, na.rm) and friends */`