Changeset 255

Timestamp:

Nov 28, 2002, 9:00:31 PM (18 years ago)

Author:

luba

Message:

* empty log message *

File:

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

to-imperative/trunk/runtime/rf_int.hh

@@ -46 +46 @@
   if (expr.get_last() - q < 10){
     for (; p >= q; p--) {
-      n += (((rf_char*)p)->to_byte().n + 48 )*k;
+      n += (((rf_char*)p)->to_byte().n - 48)*k;
       k *= 10;
        
@@ -57 +57 @@
      
     for (; p > q ; p--) {
-      n += (((rf_char*)p)->to_byte().n + 48 )*k;
+      n += (((rf_char*)p)->to_byte().n - 48)*k;
       k *= 10;
        
@@ -67 +67 @@
         error ( Word2Expr("RF-INT") + "Size limit exceeded"); 
 
-    n += (((rf_char*)q)->to_byte().n + 48 )*k;
+    n += (((rf_char*)q)->to_byte().n - 48)*k;
   };
 
@@ -90 +90 @@
 inline Term* rf_int::to_rf_chars(Term* t) const {
   /*
-  if (n < 0) 
+  if (n < 0) {
     *t = rf_char("-"); 
     t++;
+  };
   uintptr_t k = 1;
   intptr_t num = n / 10;
@@ -103 +104 @@
   while ( k ) {
     m = (n / k) % 10;
-    *t = rf_char(m + 48);
+    *t = rf_char(m - 48);
     k /= 10;
     t++;