[V3dot10] Fwd: Re: [Squeak 0006336]: Unicode membership test reduced to String #= (String #compare:caseSensitive:) ?

[Edgar J. De Cleene]

First walkback.

This was on 3.10 7110 and try to load Unicode-kwl.1.cs
I try on 3.9 now

Edgar

-------------- next part --------------
MessageNotUnderstood: SmallInteger>>asSymbol
14 May 2007 7:41:03 am

VM: Mac OS - a SmalltalkImage
Image: Squeak3.10alpha [latest update: #7110]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir Discovery:Users:admin:Squeak3.10:untitled folder
Trusted Dir Discovery:Users:admin:Squeak3.10:untitled folder
Untrusted Dir Discovery:Users:admin:Library:Preferences:Squeak:Internet:My Squeak

SmallInteger(Object)>>doesNotUnderstand: #asSymbol
	Receiver: 1
	Arguments and temporary variables: 
		aMessage: 	asSymbol
	Receiver's instance variables: 
1

[] in Unicode class>>initialize {[:codeCat :codeIndex |  every256    = (codeIndex bitShift: -8)   ifFalse: [b...]}
	Arguments and temporary variables: 
		newGeneralCategory: 	a SparseLargeTable(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...etc...
		every256: 	0
		sym: 	#Zs
		index: 	29
		bar: 	[] in SystemProgressMorph>>label:min:max: {[:barVal |  (barVal between: mi...etc...
		codeCat: 	1
		codeIndex: 	1

SparseLargeTable(SequenceableCollection)>>withIndexDo:
	Receiver: a SparseLargeTable(1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 29 21 2...etc...
	Arguments and temporary variables: 
		elementAndIndexBlock: 	[] in Unicode class>>initialize {[:codeCat :codeIndex |  ...etc...
		index: 	1
		indexLimiT: 	917632
	Receiver's instance variables: 
		base: 	1
		size: 	917632
		chunkSize: 	1024
		defaultValue: 	0

[] in Unicode class>>initialize {[:bar | GeneralCategory   withIndexDo: [:codeCat :codeIndex |     every256  ...]}
	Arguments and temporary variables: 
		newGeneralCategory: 	a SparseLargeTable(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...etc...
		every256: 	0
		sym: 	#Zs
		index: 	29
		bar: 	[] in SystemProgressMorph>>label:min:max: {[:barVal |  (barVal between: mi...etc...
		codeCat: 	1
		codeIndex: 	1


--- The full stack ---
SmallInteger(Object)>>doesNotUnderstand: #asSymbol
[] in Unicode class>>initialize {[:codeCat :codeIndex |  every256    = (codeIndex bitShift: -8)   ifFalse: [b...]}
SparseLargeTable(SequenceableCollection)>>withIndexDo:
[] in Unicode class>>initialize {[:bar | GeneralCategory   withIndexDo: [:codeCat :codeIndex |     every256  ...]}
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[] in ProgressInitiationException>>defaultMorphicAction {[result := workBlock value: progress]}
BlockContext>>ensure:
ProgressInitiationException>>defaultMorphicAction
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
Unicode class>>initialize
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:logged:
Compiler class>>evaluate:for:notifying:logged:
Compiler class>>evaluate:for:logged:
Compiler class>>evaluate:logged:
[] in MultiByteFileStream(PositionableStream)>>fileInAnnouncing: {[val := (self peekFor: $!)     ifTrue: [(Compiler evaluate: self nextChunk l...]}
BlockContext>>on:do:
[] in MultiByteFileStream(PositionableStream)>>fileInAnnouncing: {[:bar |  [self atEnd]   whileFalse: [bar value: self position.    self skipS...]}
[] in ProgressInitiationException>>defaultMorphicAction {[result := workBlock value: progress]}
BlockContext>>ensure:
ProgressInitiationException>>defaultMorphicAction
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
MultiByteFileStream(PositionableStream)>>fileInAnnouncing:
[] in ChangeSet class>>newChangesFromStream:named: {[newSet   ifNotNil: [(aStream respondsTo: #converter:)     ifTrue: [newStrea...]}
BlockContext>>ensure:
ChangeSet class>>newChangesFromStream:named:
ChangeSet class>>fileIntoNewChangeSet:
SimpleServiceEntry>>performServiceFor:
PluggableButtonMorph>>performAction
[] in PluggableButtonMorph>>mouseUp: {[:m | (m containsPoint: evt cursorPoint)   ifTrue: [m performAction]]}
Array(SequenceableCollection)>>do:
PluggableButtonMorph>>mouseUp:
PluggableButtonMorph(Morph)>>handleMouseUp:
...etc...