UninterpretedBytes.st
branchjv
changeset 19528 117cd2d2715b
parent 19527 169a7088b668
parent 19507 f80b18036ada
child 19559 d35a89d5c0ec
--- a/UninterpretedBytes.st	Thu Mar 31 08:51:45 2016 +0100
+++ b/UninterpretedBytes.st	Fri Apr 01 11:11:11 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
               All Rights Reserved
@@ -746,7 +744,7 @@
 longLongAt:index
     "return the 8-bytes starting at index as a signed Integer.
      The index is a smalltalk index (i.e. 1-based).
-     The value is retrieved in the machineÄs natural byte order.
+     The value is retrieved in the machineÄs natural byte order.
      This may be worth a primitive."
 
     ^ self signedInt64At:index MSB:IsBigEndian
@@ -2633,25 +2631,17 @@
                     pointer = ((char **)cp)[0];
                     RETURN (__MKUINT((INT)(pointer)));
                 } else {
-#if 0
-                    printf("cp UNALIGNED (%"_lx_")\n", (INT)cp);
-#endif
+                    // printf("cp UNALIGNED (%"_lx_")\n", (INT)cp);
                 }
             } else {
-#if 0
-                printf("idx(%"_ld_")+(sizeof(pointer)-1) (%d) >= sz (%"_ld_")\n",
-                        idx, (int)(sizeof(pointer)-1), sz);
-#endif
+                // printf("idx(%"_ld_")+(sizeof(pointer)-1) (%d) >= sz (%"_ld_")\n",
+                //        idx, (int)(sizeof(pointer)-1), sz);
             }
         } else {
-#if 0
-            printf("cp is NULL\n");
-#endif
+            // printf("cp is NULL\n");
         }
     } else {
-#if 0
-        printf("bad index\n");
-#endif
+        // printf("bad index\n");
     }
 bad:;
 %}.
@@ -3414,7 +3404,7 @@
 
             if ((idx >= 0) && ((idx+(2-1)) < sz)) {
                 int iVal;
-printf("1\n");
+
                 cp += idx;
                 if (msb == false) {
 #if defined(__i386__) || (defined(__LSBFIRST__) && defined(UNALIGNED_FETCH_OK))