// cl_divide().
// General includes.
-#include "cl_sysdep.h"
+#include "base/cl_sysdep.h"
// Specification.
-#include "cl_I.h"
+#include "integer/cl_I.h"
// Implementation.
-#include "cl_N.h"
+#include "cln/exception.h"
namespace cln {
// auch y Fixnum >=0
{ var uintV x_ = FN_to_UV(x);
var uintV y_ = FN_to_UV(y);
- if (y_==0) { cl_error_division_by_0(); }
+ if (y_==0) { throw division_by_0_exception(); }
elif (x_ < y_)
// Trivialfall: q=0, r=x
goto trivial;
// x in NDS umwandeln, als UDS auffassen:
BN_to_NDS_nocopy(x, x_MSDptr=,x_len=,x_LSDptr=);
// y in NDS umwandeln, als UDS auffassen:
- I_to_NDS_nocopy(y, y_MSDptr=,y_len=,y_LSDptr=,/*cl_true*/cl_false,);
+ I_to_NDS_nocopy(y, y_MSDptr=,y_len=,y_LSDptr=,/*true*/false,);
// dividieren:
{var DS q;
var DS r;