Changeset 1106 for to-imperative/trunk/runtime/rf_short_int.cc

Timestamp:

Aug 6, 2003, 5:30:09 PM (17 years ago)

Author:

luba

Message:

• type_short_int is replaced by type_int32, class ShortInt? is renamed to Int32

File:

• to-imperative/trunk/runtime/rf_short_int.cc (modified) (6 diffs)

to-imperative/trunk/runtime/rf_short_int.cc

@@ -14 +14 @@
 {
 
-unsigned ShortInt::compute_max_len ()
+unsigned Int32::compute_max_len ()
 {
   intptr_t i   = INTPTR_MAX / 10000;
@@ -22 +22 @@
 }
 
-const unsigned ShortInt::max_len = compute_max_len();
+const unsigned Int32::max_len = compute_max_len();
 
-Expr ShortInt::create_expr (intptr_t _n)
+Expr Int32::create_expr (intptr_t _n)
 {
   Expr e = Term::create_expr(1);
-  new(e.get_first()) ShortInt(_n);
+  new(e.get_first()) Int32(_n);
   return e;
 }
 
 
-Expr ShortInt::create_expr (pxx::WString& _str) {
+Expr Int32::create_expr (pxx::WString& _str) {
   wchar_t const* s = _str.get_data();
-  return ShortInt::create_expr( wcstol(s, null, 10));
+  return Int32::create_expr( wcstol(s, null, 10));
 }
 
@@ -109 +109 @@
 #endif
 
-void ShortInt::ctor (ShortInt* _to, ShortInt const* _from)
+void Int32::ctor (Int32* _to, Int32 const* _from)
 {
   _to->data1 = _from->data1;
@@ -115 +115 @@
 }
 
-int ShortInt::compare (ShortInt const* _shint1, ShortInt const* _shint2)
+int Int32::compare (Int32 const* _shint1, Int32 const* _shint2)
 {
   if (_shint1->int_data2 == _shint2->int_data2) return 0;
@@ -122 +122 @@
 }
 
-uint32_t ShortInt::hash (ShortInt const* _shint)
+uint32_t Int32::hash (Int32 const* _shint)
 {
   return _shint->uint_data2;
 }
 
-pxx::WString ShortInt::to_string (ShortInt const* _shint) {
+pxx::WString Int32::to_string (Int32 const* _shint) {
   intptr_t n = _shint->int_data2;
   int flag = 0;
@@ -158 +158 @@
 }
 
-short_type_funcs_t ShortInt::funcs = {
-  (void (*)(Term*, Term const*))(ShortInt::ctor),
+short_type_funcs_t Int32::funcs = {
+  (void (*)(Term*, Term const*))(Int32::ctor),
   null, // ShortInt::dtor,
   null, // ShortInt::eq,
-  (int (*)(Term const*, Term const*))(ShortInt::compare),
-  (uint32_t (*)(Term const*))(ShortInt::hash),
-  (pxx::WString (*)(Term const*))(ShortInt::to_string)
+  (int (*)(Term const*, Term const*))(Int32::compare),
+  (uint32_t (*)(Term const*))(Int32::hash),
+  (pxx::WString (*)(Term const*))(Int32::to_string)
 };