equal
deleted
inserted
replaced
239 |
239 |
240 if (__isSmallInteger(index)) { |
240 if (__isSmallInteger(index)) { |
241 indx = __intVal(index) - 1; |
241 indx = __intVal(index) - 1; |
242 slf = self; |
242 slf = self; |
243 if ((cls = __qClass(slf)) != @global(ByteArray)) { |
243 if ((cls = __qClass(slf)) != @global(ByteArray)) { |
244 if (((INT)__ClassInstPtr(cls)->c_flags & _MASKSMALLINT(ARRAYMASK)) |
244 if (((INT)__ClassInstPtr(cls)->c_flags & __MASKSMALLINT(ARRAYMASK)) |
245 != _MASKSMALLINT(BYTEARRAY)) { |
245 != __MASKSMALLINT(BYTEARRAY)) { |
246 goto fail; |
246 goto fail; |
247 } |
247 } |
248 indx += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars)); |
248 indx += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars)); |
249 } |
249 } |
250 nIndex = __byteArraySize(slf); |
250 nIndex = __byteArraySize(slf); |
275 val = __intVal(value); |
275 val = __intVal(value); |
276 if ((unsigned)(val) <= 0xFF /* i.e. (val >= 0) && (val <= 255) */) { |
276 if ((unsigned)(val) <= 0xFF /* i.e. (val >= 0) && (val <= 255) */) { |
277 indx = __intVal(index) - 1; |
277 indx = __intVal(index) - 1; |
278 slf = self; |
278 slf = self; |
279 if ((cls = __qClass(slf)) != @global(ByteArray)) { |
279 if ((cls = __qClass(slf)) != @global(ByteArray)) { |
280 if (((INT)__ClassInstPtr(cls)->c_flags & _MASKSMALLINT(ARRAYMASK)) |
280 if (((INT)__ClassInstPtr(cls)->c_flags & __MASKSMALLINT(ARRAYMASK)) |
281 != _MASKSMALLINT(BYTEARRAY)) { |
281 != __MASKSMALLINT(BYTEARRAY)) { |
282 goto fail; |
282 goto fail; |
283 } |
283 } |
284 indx += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars)); |
284 indx += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars)); |
285 } |
285 } |
286 nIndex = __byteArraySize(slf); |
286 nIndex = __byteArraySize(slf); |
2174 ! ! |
2174 ! ! |
2175 |
2175 |
2176 !ByteArray class methodsFor:'documentation'! |
2176 !ByteArray class methodsFor:'documentation'! |
2177 |
2177 |
2178 version |
2178 version |
2179 ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.60 1996-05-07 06:33:38 cg Exp $' |
2179 ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.61 1996-05-12 16:16:39 cg Exp $' |
2180 ! ! |
2180 ! ! |