equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1996 by Claus Gittinger |
4 COPYRIGHT (c) 1996 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1763 ^ self elementBoundsError:value |
1765 ^ self elementBoundsError:value |
1764 ]. |
1766 ]. |
1765 ^ self indexNotIntegerOrOutOfBounds:index |
1767 ^ self indexNotIntegerOrOutOfBounds:index |
1766 ! ! |
1768 ! ! |
1767 |
1769 |
|
1770 !ShortFloat methodsFor:'private-accessing'! |
|
1771 |
|
1772 byteAt:index |
|
1773 ^ self basicAt:index |
|
1774 ! |
|
1775 |
|
1776 byteAt:index put:newByte |
|
1777 self shouldNotImplement |
|
1778 ! ! |
|
1779 |
1768 !ShortFloat methodsFor:'queries'! |
1780 !ShortFloat methodsFor:'queries'! |
1769 |
1781 |
1770 nextFloat:count |
1782 nextFloat:count |
1771 "answer the next float count places after (or before if count is negative) myself" |
1783 "answer the next float count places after (or before if count is negative) myself" |
1772 |
1784 |