(bind-func Complex_division_bybuf
(lambda (a:Complexd* b:Complexd* c:Complexd* len)
(let ((i 0) (j 0.0) (k 0.0) (l 0.0))
(dotimes (i len)
(set! j (+ (* (tref (pref-ptr a i) 0)
(tref (pref-ptr b i) 0))
(* (tref (pref-ptr a i) 1)
(tref (pref-ptr b i) 1))))
(set! k (+ (* (tref (pref-ptr b i) 0)
(tref (pref-ptr b i) 0))
(* (tref (pref-ptr b i) 1)
(tref (pref-ptr b i) 1))))
(set! l (- (* (tref (pref-ptr a i) 1)
(tref (pref-ptr b i) 0))
(* (tref (pref-ptr a i) 0)
(tref (pref-ptr b i) 1))))
(tset! (pref-ptr c i) 0 (/ j k))
(tset! (pref-ptr c i) 1 (/ l k)))
void)))