Displaying 2 results from an estimated 2 matches for "res_vec".
Did you mean:
res_ver
2011 Nov 17
3
.Call in R
...n time
compared with pure R code above.). My c code (called "change_vecA.c") using
.Call is like this:
SEXP change_vecA(SEXP vecA){
int i,vecA_len;
double sum,*res_ptr,*vecR_ptr,*vecA_ptr;
vecA_ptr=REAL(vecA);
vecA_len=length(vecA);
SEXP res_vec,vecR;
PROTECT(res_vec=allocVector(REALSXP, vec_len));
PROTECT(vecR=allocVector(REALSXP, vec_len));
res_ptr=REAL(res_vec);
vecR_ptr=REAL(vecR);
GetRNGstate();
sum=0.0;
for (i=0;i<vecA_len;i++){
vecR_ptr[i]=runif(0,1);...
2013 Oct 15
0
[LLVMdev] [llvm-commits] r192750 - Enable MI Sched for x86.
...RESS-NEXT: vmovss 68([[BASE]]), [[OUT_Imm:%xmm[0-9]+]]
>> +; Add high slice: out[out_start].imm, this is base + 4.
>> +; STRESS-NEXT: vaddss 4([[BASE]]), [[OUT_Imm]], [[RES_Imm:%xmm[0-9]+]]
>> ; Swap Imm and Real.
>> ; STRESS-NEXT: vinsertps $16, [[RES_Imm]], [[RES_Real]], [[RES_Vec:%xmm[0-9]+]]
>> ; Put the results back into out[out_start].
>> @@ -32,14 +32,14 @@
>> ;
>> ; Same for REGULAR, we eliminate register bank copy with each slices.
>> ; REGULAR-LABEL: t1:
>> -; Load out[out_start + 8].imm, this is base + 8 * 8 + 4.
>> -; REGUL...