The R Project SVN R

Rev

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

Rev 18753 Rev 18775
Line 615... Line 615...
615 
#endif
 615 
#endif
616 
		crossprod(REAL(CAR(args)), nrx, ncx,
 616 
		crossprod(REAL(CAR(args)), nrx, ncx,
617 
			  REAL(CADR(args)), nry, ncy, REAL(ans));
 617 
			  REAL(CADR(args)), nry, ncy, REAL(ans));
618 
	}
 618 
	}
619 
	PROTECT(xdims = getAttrib(CAR(args), R_DimNamesSymbol));
 619 
	PROTECT(xdims = getAttrib(CAR(args), R_DimNamesSymbol));
- 
 
 620 
	if(sym)
- 
 
 621 
	    PROTECT(ydims = xdims);
- 
 
 622 
	else
620 
	PROTECT(ydims = getAttrib(CADR(args), R_DimNamesSymbol));
 623 
	    PROTECT(ydims = getAttrib(CADR(args), R_DimNamesSymbol));
621 
	if (xdims != R_NilValue || ydims != R_NilValue) {
 624 
	if (xdims != R_NilValue || ydims != R_NilValue) {
622 
	    SEXP dimnames, dimnamesnames, dnx=R_NilValue, dny=R_NilValue;
 625 
	    SEXP dimnames, dimnamesnames, dnx=R_NilValue, dny=R_NilValue;
623 
	    PROTECT(dimnames = allocVector(VECSXP, 2));
 626 
	    PROTECT(dimnames = allocVector(VECSXP, 2));
624 
	    PROTECT(dimnamesnames = allocVector(STRSXP, 2));
 627 
	    PROTECT(dimnamesnames = allocVector(STRSXP, 2));
625 
	    if (xdims != R_NilValue) {
 628 
	    if (xdims != R_NilValue) {