Changeset 17 for abuse/trunk/src/lisp.cppTweet

Timestamp:

Nov 10, 2005, 9:41:13 PM (17 years ago)

Author:

Sam Hocevar

Message:

• absolute shitloads of 64 bit fixes.

File:

• abuse/trunk/src/lisp.cpp (modified) (3 diffs)

abuse/trunk/src/lisp.cpp

@@ -508 +508 @@
       return (((lisp_fixed_point *)lnumber)->x)>>16;
     case L_STRING :
-      return (uchar)*lstring_value(lnumber);
+      return (uint8_t)*lstring_value(lnumber);
     case L_CHARACTER :
       return lcharacter_value(lnumber);
@@ -1307 +1307 @@
         s++;
         if (*s=='n')
-          current_print_file->write_byte('\n');
+          current_print_file->write_uint8('\n');
         else if (*s=='r')
-          current_print_file->write_byte('\r');
+          current_print_file->write_uint8('\r');
         else if (*s=='t')
-          current_print_file->write_byte('\t');
+          current_print_file->write_uint8('\t');
         else if (*s=='\\')
-          current_print_file->write_byte('\\');
+          current_print_file->write_uint8('\\');
       }
       else*/
-        current_print_file->write_byte(*s);
+        current_print_file->write_uint8(*s);
     }
   }
@@ -1404 +1404 @@
                                 if (current_print_file)
                                 {
-                                  uchar ch=((lisp_character *)i)->ch;
+                                  uint8_t ch=((lisp_character *)i)->ch;
                                   current_print_file->write(&ch,1);
                                 } else