// Copyright 2010 The Code Cavern

bda_digit bda_mul_1(bda_ptr x,bda_srcptr y,bda_len n,bda_digit m) // (x,n)=(y,n)*m ret carry
{bda_len i;bda_digit xd,yd,h,l,ci;

ci=0;
for(i=0;i<n;i++)
   {yd=y[i];
    bda_digit_mul(h,l,yd,m);
    bda_2digit_add(h,l,h,l,0,ci);
    x[i]=l;ci=h;}
return ci;}