X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;ds=sidebyside;f=src%2Finteger%2Fmisc%2Fcl_FN_class.cc;fp=src%2Finteger%2Fmisc%2Fcl_FN_class.cc;h=0e383a832ce95cab1bb54aa3e82b1160ca9defc0;hb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;hp=0000000000000000000000000000000000000000;hpb=d57000b193438122b366aa0d450674be9402d06c;p=cln.git

diff --git a/src/integer/misc/cl_FN_class.cc b/src/integer/misc/cl_FN_class.cc
new file mode 100644
index 0000000..0e383a8
--- /dev/null
+++ b/src/integer/misc/cl_FN_class.cc
@@ -0,0 +1,20 @@
+// cl_class_fixnum.
+
+// General includes.
+#include "cl_sysdep.h"
+
+// Specification.
+#include "cl_integer.h"
+
+
+// Implementation.
+
+cl_class cl_class_fixnum = {
+	NULL,		// destructor not used, since not heap objects
+	cl_class_flags_subclass_complex | cl_class_flags_subclass_real | cl_class_flags_subclass_rational
+};
+
+AT_INITIALIZATION(ini_class_fixnum)
+{
+	cl_immediate_classes[cl_FN_tag] = &cl_class_fixnum;
+}