Lines Matching refs:a_MSDptr
114 # UDS_sqrt(a_MSDptr,a_len,a_LSDptr, &b, squarep=)
115 # > a_MSDptr/a_len/a_LSDptr: eine UDS
121 #define UDS_sqrt(a_MSDptr,a_len,a_LSDptr,b_,squarep_assignment)\ argument
126 squarep_assignment UDS_sqrt_(a_MSDptr,_a_len,a_LSDptr,b_); \
128 local bool UDS_sqrt_ (uintD* a_MSDptr, uintC a_len, uintD* a_LSDptr, DS* b_);
174 local bool UDS_sqrt_ (uintD* a_MSDptr, uintC a_len, uintD* a_LSDptr, DS* b_) in UDS_sqrt_() argument
177 while ((a_len>0) && (a_MSDptr[0]==0)) { in UDS_sqrt_()
178 a_MSDptr++; a_len--; in UDS_sqrt_()
190 var uintD msd = a_MSDptr[0]; # a[2n] bzw. a[2n-1] in UDS_sqrt_()
204 num_stack_need(2*(uintL)n,a_MSDptr=,new_a_LSDptr=); # 2n Digits Platz belegen in UDS_sqrt_()
215 # Nun ist A = a_MSDptr/2n/.. in UDS_sqrt_()
222 var uintD a_msd = a_MSDptr[0]; # a[2n-1] in UDS_sqrt_()
223 var uintD a_2msd = a_MSDptr[1]; # a[2n-2] in UDS_sqrt_()
256 a_MSDptr[0] = highD(a_msdd); a_MSDptr[1] = lowD(a_msdd); in UDS_sqrt_()
262 a_MSDptr[0] = a_msd - x2hi; in UDS_sqrt_()
264 a_MSDptr[0] -= 1; in UDS_sqrt_()
265 a_MSDptr[1] = a_2msd - x2lo; in UDS_sqrt_()
271 var uintD* a_mptr = &a_MSDptr[0]; in UDS_sqrt_()
272 var uintD* a_lptr = &a_MSDptr[2]; in UDS_sqrt_()