--- 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))