equal
deleted
inserted
replaced
311 identityHash |
311 identityHash |
312 "interned symbols can return a better hash key" |
312 "interned symbols can return a better hash key" |
313 |
313 |
314 %{ /* NOCONTEXT */ |
314 %{ /* NOCONTEXT */ |
315 |
315 |
316 REGISTER unsigned int g, val; |
316 REGISTER unsigned INT g, val; |
317 REGISTER unsigned char *cp, *ce; |
317 REGISTER unsigned char *cp, *ce; |
318 int l; |
318 int l; |
319 |
319 |
320 if (__Class(self) == Symbol) { |
320 if (__Class(self) == Symbol) { |
321 val = __GET_HASH(self); |
321 val = __GET_HASH(self); |
370 } |
370 } |
371 val = (val * 31415821) & 0x3fffffff; |
371 val = (val * 31415821) & 0x3fffffff; |
372 } else { |
372 } else { |
373 val = __MAKE_HASH__(val); |
373 val = __MAKE_HASH__(val); |
374 } |
374 } |
375 RETURN ( __MKSMALLINT(val) ); |
375 RETURN ( __mkSmallInteger(val) ); |
376 } |
376 } |
377 %}. |
377 %}. |
378 ^ super identityHash |
378 ^ super identityHash |
379 |
379 |
380 " |
380 " |
732 ! ! |
732 ! ! |
733 |
733 |
734 !Symbol class methodsFor:'documentation'! |
734 !Symbol class methodsFor:'documentation'! |
735 |
735 |
736 version |
736 version |
737 ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.79 2005-04-08 22:48:37 stefan Exp $' |
737 ^ '$Header: /cvs/stx/stx/libbasic/Symbol.st,v 1.80 2005-07-08 17:15:03 cg Exp $' |
738 ! ! |
738 ! ! |