Changeset 1117 for to-imperative/trunk/runtime/rf_integer.ih

Timestamp:

Aug 6, 2003, 10:18:36 PM (17 years ago)

Author:

orlov

Message:

• Added methods for comparison with long int and conversion to it.

File:

• to-imperative/trunk/runtime/rf_integer.ih (modified) (3 diffs)

to-imperative/trunk/runtime/rf_integer.ih

@@ -89 +89 @@
 }
 
+inline bool Integer::operator == (intptr_t _n) const
+{
+  mpz_t* p = static_cast<mpz_t*>(ptr_data2);
+  return mpz_cmp_si(*p, _n) == 0;
+}
+
 inline int Integer::cmp (Integer const& _n) const
 {
@@ -94 +100 @@
   mpz_t* q = static_cast<mpz_t*>(_n.ptr_data2);
   return mpz_cmp(*p, *q);
+}
+
+inline int Integer::cmp (intptr_t _n) const
+{
+  mpz_t* p = static_cast<mpz_t*>(ptr_data2);
+  return mpz_cmp_si(*p, _n);
 }
 
@@ -272 +284 @@
 }
 
+inline long Integer::to_int () const
+{
+  return mpz_get_si(*(get_mpz_ptr()));
+}
+
 inline Integer::operator pxx::WString () const
 {