Changeset 250

Timestamp:

Nov 26, 2002, 11:48:11 AM (18 years ago)

Author:

luba

Message:

* empty log message *

File:

• to-imperative/trunk/runtime/rf_int.hh (modified) (3 diffs)

to-imperative/trunk/runtime/rf_int.hh

@@ -27 +27 @@
 
 inline rf_int::rf_int(const Expr& expr, bool is_positive, intptr_t i) {
-  if (expr.get_len() - i > 10) 
+
+  Term* q = expr.get_first() + i; 
+
+  rf_char a = rf_char("0");
+
+  for (; q < expr.get_last(); q++) // устанавливаем q в первый ненулевой эл-т
+    if (a != *(rf_char*)q)
+      break;
+
+  if (expr.get_last() - q > 10)  //если длина числа больше 10 - error
     error ( Word2Expr(RF-INT) + "Size limit exceeded"); 
 
   Term* p = expr.get_last();
   
-  Term* q = expr.get_first() + i;
-
-  for (; q < expr.get_last(); q++)
-    if (rf_char("0") != *(rf_char*)q)
-      break;
-
   intptr_t k = 1; n = 0;
 
-  if (expr.get_len() - i < 10){
-    for (; p > q; p--) {
+  if (expr.get_last() - q < 10){ //если длина числа < 10 - строим все число до конца
+    for (; p >= q; p--) {
       n += (((rf_char*)p)->to_byte().n - ord('0'))*k;
       k *= 10;
@@ -47 +50 @@
     };
   };
-  else {
-    if (*(rf_char*)q >= rf_char("3")) 
-      error ( Word2Expr(RF-INT) + "Size limit exceeded"); 
-    else 
-      for (; p > q ; p--) {
+  else { //длина числа == 10
+    intptr_t b = INTPTR_MAX / 1000000000;
+    if (*(rf_char*)q <= rf_char(b)) //первая цифра числа <= первой цифре max
+      for (; p > q ; p--) {         // тогда строим все число, кроме 1-ой цифры
         n += (((rf_char*)p)->to_byte().n - ord('0'))*k;
         k *= 10;
-       
-    };
-    
-    if (*(rf_char*)q == rf_char("2")) {
-    
-      if ( n > INTPTR_MAX - INTPTR_MAX / 1000000000 * 1000000000 )
-        error ( Word2Expr(RF-INT) + "Size limit exceeded"); 
-      else
-        n += (((rf_char*)p)->to_byte().n - ord('0'))*k;
-    };
+      };
     else 
-      n += (((rf_char*)p)->to_byte().n - ord('0'))*k;
+      error ( Word2Expr(RF-INT) + "Size limit exceeded"); 
+     
+    if ((*(rf_char*)q == rf_char(b) && //первая цифра == 1-ой цифре max
+        ( n <= INTPTR_MAX - INTPTR_MAX / 1000000000 * 1000000000 )) ||
+         (*(rf_char*)q < rf_char(b))) //и укладываемся в max или первая цифра < первой цифры max
+      n += (((rf_char*)p)->to_byte().n - ord('0'))*k; //добавляем первую цифру
+    else 
+      error ( Word2Expr(RF-INT) + "Size limit exceeded"); 
   };
 
   if (!is_positive) 
      n = -n;
-
 };
 
@@ -87 +86 @@
 
 inline Term* rf_int::to_rf_chars(Term* t) const {
-  *t = rf_char(*this);
-  return t + 1;
 };