16 // Cf. cl_R_p in cl_R_ring.cc.
17 // But here, for better inlining in g++, it is preferrable to finish every
18 // alternative with either "return cl_true;" or "return cl_false;".
20 inline cl_boolean cl_R_p (const cl_number& x)
23 switch (x.nonpointer_tag()) {
26 #if defined(CL_WIDE_POINTERS)
32 if (x.pointer_type()->flags & cl_class_flags_subclass_real)
37 const cl_R& as_cl_R (const cl_number& x, const char * filename, int line)
43 cl_as_error(x,"a real number",filename,line);