/cln-1.3.2/src/integer/misc/cl_FN_class.cc

# · C++ · 24 lines · 12 code · 8 blank · 4 comment · 0 complexity · 9f019cd3d7ce74b1eda33c92d8d00e60 MD5 · raw file 

    

  1. // cl_class_fixnum.
    2. 

  2. 

  3. // General includes.
    4. 

  4. #include "base/cl_sysdep.h"
    5. 

  5. 

  6. // Specification.
    7. 

  7. #include "cln/integer.h"
    8. 

  8. 

  9. 

  10. // Implementation.
    11. 

  11. 

  12. namespace cln {
    13. 

  13. 

  14. cl_class cl_class_fixnum = {
    15. 

  15. 	NULL,		// destructor not used, since not heap objects
    16. 

  16. 	cl_class_flags_subclass_complex | cl_class_flags_subclass_real | cl_class_flags_subclass_rational
    17. 

  17. };
    18. 

  18. 

  19. AT_INITIALIZATION(ini_class_fixnum)
    20. 

  20. {
    21. 

  21. 	cl_immediate_classes[cl_FN_tag] = &cl_class_fixnum;
    22. 

  22. }
    23. 

  23. 

  24. }  // namespace cln
    25.