search for: al_x

Displaying 3 results from an estimated 3 matches for "al_x".

Did you mean: al_j
2013 Mar 30
2
[LLVMdev] Missed optimisation opportunities?
...n for non-pointer types. For example a boolean variable could be true, false, or null. To model this behaviour, I'm passing an {i1, [type]} around for every numeric type. And using insertvalue / extractvalue all over the place. So when compiling this simple CS example; function long fib (long al_x) long ll_i=0, ll_ret=0, ll_last=0, ll_last2=1 if isnull(al_x) then return al_x end if ll_i=1 do while ll_i<=al_x ll_ret=ll_last+ll_last2 ll_last2=ll_last ll_last=ll_ret ll_i++ loop return ll_ret end function With the following function passes; FunctionPasses->ad...
2005 Feb 21
0
want to call R from aplatform written i strict ANSI C
...NVAR)); n_d = min(SHAREX_PROB->n_d,*(TASK.NVAR)); m_f = SHAREX_PROB->m_f; /* NOTE: w[0] is F */ *F = 0.0; *Dev = 0.0; if(m_f EQ 0) {for(i=0;i<n;i++) *F += w[i]*SHAREX_PROB->c[i];} else { for(i=0;i<m_f;i++) *F += f_function(SHAREX_PROB,SHAREX_PROB->x,SHAREX_PROB->du al_x,i); } *Dev = SHAREX_PROB->Dev; *gf = *F+Penalty*(*Dev); } /* end of evaluator() */ void accelerator(int FIX_Flip,int ROW,double Penalty,DVECTOR LOWER, DVECTOR UPPER,DVECTOR w_IN,DVECTOR w_OUT) { double MILP_CALLS; if(FIX_Flip > 0) return; SHAREX_PROB->INITIALIZED = F...
2005 Feb 25
0
Fwd: want to call R from aplatform written i strict ANSI C
...NVAR)); n_d = min(SHAREX_PROB->n_d,*(TASK.NVAR)); m_f = SHAREX_PROB->m_f; /* NOTE: w[0] is F */ *F = 0.0; *Dev = 0.0; if(m_f EQ 0) {for(i=0;i<n;i++) *F += w[i]*SHAREX_PROB->c[i];} else { for(i=0;i<m_f;i++) *F += f_function(SHAREX_PROB,SHAREX_PROB->x,SHAREX_PROB->du al_x,i); } *Dev = SHAREX_PROB->Dev; *gf = *F+Penalty*(*Dev); } /* end of evaluator() */ void accelerator(int FIX_Flip,int ROW,double Penalty,DVECTOR LOWER, DVECTOR UPPER,DVECTOR w_IN,DVECTOR w_OUT) { double MILP_CALLS; if(FIX_Flip > 0) return; SHAREX_PROB->INITIALIZED = F...