equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1993 by Claus Gittinger |
2 COPYRIGHT (c) 1993 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
744 ! |
742 ! |
745 |
743 |
746 longLongAt:index |
744 longLongAt:index |
747 "return the 8-bytes starting at index as a signed Integer. |
745 "return the 8-bytes starting at index as a signed Integer. |
748 The index is a smalltalk index (i.e. 1-based). |
746 The index is a smalltalk index (i.e. 1-based). |
749 The value is retrieved in the machineÄs natural byte order. |
747 The value is retrieved in the machineÄs natural byte order. |
750 This may be worth a primitive." |
748 This may be worth a primitive." |
751 |
749 |
752 ^ self signedInt64At:index MSB:IsBigEndian |
750 ^ self signedInt64At:index MSB:IsBigEndian |
753 |
751 |
754 " |
752 " |
3412 if (cp) { |
3410 if (cp) { |
3413 INT idx = __intVal(byteIndex) - 1; |
3411 INT idx = __intVal(byteIndex) - 1; |
3414 |
3412 |
3415 if ((idx >= 0) && ((idx+(2-1)) < sz)) { |
3413 if ((idx >= 0) && ((idx+(2-1)) < sz)) { |
3416 int iVal; |
3414 int iVal; |
3417 printf("1\n"); |
3415 |
3418 cp += idx; |
3416 cp += idx; |
3419 if (msb == false) { |
3417 if (msb == false) { |
3420 #if defined(__i386__) || (defined(__LSBFIRST__) && defined(UNALIGNED_FETCH_OK)) |
3418 #if defined(__i386__) || (defined(__LSBFIRST__) && defined(UNALIGNED_FETCH_OK)) |
3421 /* |
3419 /* |
3422 * aligned or not, we dont care (i386 can do both) |
3420 * aligned or not, we dont care (i386 can do both) |