[Pharo-project] Long method can not be compiled using #compile: aString

Dec. 20, 2009

      Dear all,

I'm developing code which generates a method content, compiles it and adds
it to an existing class.
I compile the message using #compile: message:
for instance:

MorphicReplayDemoTest compile: '
testMethod
self addMMEFrom: 1054@512 to: 1037@504.
self addMMEFrom: 651@559 to: 643@579.
'.

This works fine. However if the contents of the method is too long; for
instance:
if the self addMMEFrom: 1054@512 to: 1037@504. is repeated around 250 times;
I get following error (see stack below)

The strange thing is that if I manually add that method using the editor and
paste it, it works just fine. I even tested up to 5000 lines of code; its
slow, but its working.

Any ideas how to solve this?

Thanks,

Bart

I'm using Pharo 1.0 rc update: 10502; using Ubuntu 9.10, using vm
pharo-vm-0.15.2f-linux.

THERE_BE_DRAGONS_HERE
MessageNotUnderstood: receiver of "<" is nil
20 December 2009 8:17:14 pm

VM: unix - i686 - linux-gnu - Pharo0.1 of 16 May 2008 [latest update:
#10074]
Image: PharoCore1.0rc1 [Latest update: #10502]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /home/gauquiebart/Smalltalk/Pharo/Images/Pharo 1.0 Playground
Image
Trusted Dir /home/gauquiebart/Smalltalk/Pharo/Images/Pharo 1.0 Playground
Image/secure
Untrusted Dir /home/gauquiebart/Smalltalk/Pharo/Images/Pharo 1.0 Playground
Image/My Squeak

UndefinedObject(Object)>>doesNotUnderstand: #<
Receiver: nil
Arguments and temporary variables:
aMessage: < 0
exception: MessageNotUnderstood: receiver of "<" is nil
resumeValue: nil
Receiver's instance variables:
nil

EncoderForV3PlusClosures(EncoderForV3)>>genPushLiteral:
Receiver: {an EncoderForV3PlusClosures}
Arguments and temporary variables:
literalIndex: nil
Receiver's instance variables:
comment: nil
pc: nil
scopeTable: a Dictionary('false'->{false} 'nil'->{nil}
'recording'->{recording}...etc...
nTemps: 0
supered: false
requestor: nil
class: MorphicReplayDemoTest
selector: #testMethod
literalStream: a WriteStream {#addMMEFrom:to:. 1054. 512. 1037. 504. 979.
482. ...etc...
selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #/->{/} #'//'->{//}
#<->{<} #...etc...
litIndSet: a
Dictionary(#MouseButtonEvent->MouseButtonEvent->{MouseButtonEvent}...etc...
litSet: a LiteralDictionary(size 402)
sourceRanges: a Dictionary(size 853)
globalSourceRanges: an OrderedCollection({'MouseButtonEvent'. (5763 to:
5778). ...etc...
addedSelectorAndMethodClassLiterals: false
stream: {an EncoderForV3PlusClosures}
position: 0
rootNode: testMethod
self addMMEFrom: 1054 @ 512 to: 1037 @ 504.
self addMMEF...etc...
blockExtentsToLocals: nil

EncoderForV3PlusClosures(BytecodeEncoder)>>sizeOpcodeSelector:withArguments:
Receiver: {an EncoderForV3PlusClosures}
Arguments and temporary variables:
genSelector: #genPushLiteral:
args: #(nil)
Receiver's instance variables:
comment: nil
pc: nil
scopeTable: a Dictionary('false'->{false} 'nil'->{nil}
'recording'->{recording}...etc...
nTemps: 0
supered: false
requestor: nil
class: MorphicReplayDemoTest
selector: #testMethod
literalStream: a WriteStream {#addMMEFrom:to:. 1054. 512. 1037. 504. 979.
482. ...etc...
selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #/->{/} #'//'->{//}
#<->{<} #...etc...
litIndSet: a
Dictionary(#MouseButtonEvent->MouseButtonEvent->{MouseButtonEvent}...etc...
litSet: a LiteralDictionary(size 402)
sourceRanges: a Dictionary(size 853)
globalSourceRanges: an OrderedCollection({'MouseButtonEvent'. (5763 to:
5778). ...etc...
addedSelectorAndMethodClassLiterals: false
stream: {an EncoderForV3PlusClosures}
position: 0
rootNode: testMethod
self addMMEFrom: 1054 @ 512 to: 1037 @ 504.
self addMMEF...etc...
blockExtentsToLocals: nil

EncoderForV3PlusClosures(BytecodeEncoder)>>sizePushLiteral:
Receiver: {an EncoderForV3PlusClosures}
Arguments and temporary variables:
literalIndex: nil
Receiver's instance variables:
comment: nil
pc: nil
scopeTable: a Dictionary('false'->{false} 'nil'->{nil}
'recording'->{recording}...etc...
nTemps: 0
supered: false
requestor: nil
class: MorphicReplayDemoTest
selector: #testMethod
literalStream: a WriteStream {#addMMEFrom:to:. 1054. 512. 1037. 504. 979.
482. ...etc...
selectorSet: a Dictionary(#*->{*} #+->{+} #-->{-} #/->{/} #'//'->{//}
#<->{<} #...etc...
litIndSet: a
Dictionary(#MouseButtonEvent->MouseButtonEvent->{MouseButtonEvent}...etc...
litSet: a LiteralDictionary(size 402)
sourceRanges: a Dictionary(size 853)
globalSourceRanges: an OrderedCollection({'MouseButtonEvent'. (5763 to:
5778). ...etc...
addedSelectorAndMethodClassLiterals: false
stream: {an EncoderForV3PlusClosures}
position: 0
rootNode: testMethod
self addMMEFrom: 1054 @ 512 to: 1037 @ 504.
self addMMEF...etc...
blockExtentsToLocals: nil

LiteralNode>>sizeCodeForValue:
Receiver: {397}
Arguments and temporary variables:
encoder: {an EncoderForV3PlusClosures}
Receiver's instance variables:
comment: nil
pc: nil
key: 397
code: -3
index: nil

[] in MessageNode>>sizeCodeForValue:
Receiver: {1092 @ 397}
Arguments and temporary variables:
<<error during printing>
Receiver's instance variables:
comment: nil
pc: nil
receiver: {1092}
selector: {@}
precedence: 2
special: 0
arguments: #({397})
sizes: #(nil)
equalNode: nil
caseErrorNode: nil

Array(SequenceableCollection)>>collect:
Receiver: #({397})
Arguments and temporary variables:
aBlock: [closure] in MessageNode>>sizeCodeForValue:
newCollection: #(nil)
index: 1
indexLimiT: 1
Receiver's instance variables:
#({397})

MessageNode>>sizeCodeForValue:
Receiver: {1092 @ 397}
Arguments and temporary variables:
<<error during printing>
Receiver's instance variables:
comment: nil
pc: nil
receiver: {1092}
selector: {@}
precedence: 2
special: 0
arguments: #({397})
sizes: #(nil)
equalNode: nil
caseErrorNode: nil

[] in MessageNode>>sizeCodeForValue:
Receiver: {self addMMEFrom: 1140 @ 387 to: 1092 @ 397}
Arguments and temporary variables:
<<error during printing>
Receiver's instance variables:
comment: nil
pc: nil
receiver: {self}
selector: {addMMEFrom:to:}
precedence: 3
special: 0
arguments: an OrderedCollection({1140 @ 387} {1092 @ 397})
sizes: #(nil nil)
equalNode: nil
caseErrorNode: nil

OrderedCollection>>collect:
Receiver: an OrderedCollection({1140 @ 387} {1092 @ 397})
Arguments and temporary variables:
aBlock: [closure] in MessageNode>>sizeCodeForValue:
newCollection: an OrderedCollection(7)
index: 4
Receiver's instance variables:
array: an Array(nil nil {1140 @ 387} {1092 @ 397} nil nil nil nil nil nil)
firstIndex: 3
lastIndex: 4

MessageNode>>sizeCodeForValue:
Receiver: {self addMMEFrom: 1140 @ 387 to: 1092 @ 397}
Arguments and temporary variables:
<<error during printing>
Receiver's instance variables:
comment: nil
pc: nil
receiver: {self}
selector: {addMMEFrom:to:}
precedence: 3
special: 0
arguments: an OrderedCollection({1140 @ 387} {1092 @ 397})
sizes: #(nil nil)
equalNode: nil
caseErrorNode: nil

MessageNode(ParseNode)>>sizeCodeForEffect:
Receiver: {self addMMEFrom: 1140 @ 387 to: 1092 @ 397}
Arguments and temporary variables:
encoder: {an EncoderForV3PlusClosures}
Receiver's instance variables:
comment: nil
pc: nil
receiver: {self}
selector: {addMMEFrom:to:}
precedence: 3
special: 0
arguments: an OrderedCollection({1140 @ 387} {1092 @ 397})
sizes: #(nil nil)
equalNode: nil
caseErrorNode: nil

MessageNode>>sizeCodeForEffect:
Receiver: {self addMMEFrom: 1140 @ 387 to: 1092 @ 397}
Arguments and temporary variables:
encoder: {an EncoderForV3PlusClosures}
Receiver's instance variables:
comment: nil
pc: nil
receiver: {self}
selector: {addMMEFrom:to:}
precedence: 3
special: 0
arguments: an OrderedCollection({1140 @ 387} {1092 @ 397})
sizes: #(nil nil)
equalNode: nil
caseErrorNode: nil

BlockNode>>sizeCodeExceptLast:
Receiver: {[self addMMEFrom: 1054 @ 512 to: 1037 @ 504.
self addMMEFrom: 1037 @ 504 to: 979 @ 482.
...etc...
Arguments and temporary variables:
encoder: {an EncoderForV3PlusClosures}
codeSize: 2564
i: 169
statement: {self addMMEFrom: 1140 @ 387 to: 1092 @ 397}
iLimiT: 287
Receiver's instance variables:
comment: nil
pc: nil
arguments: #()
statements: an OrderedCollection({self addMMEFrom: 1054 @ 512 to: 1037 @
504} {...etc...
returns: true
nArgsNode: nil
size: nil
remoteCopyNode: nil
temporaries: an OrderedCollection()
optimized: false
actualScopeIfOptimized: nil
blockExtent: (0 to: 2)
remoteTempNode: nil
copiedValues: nil
closureCreationNode: nil
startOfLastStatement: 11519

BlockNode>>sizeCodeForEvaluatedValue:
Receiver: {[self addMMEFrom: 1054 @ 512 to: 1037 @ 504.
self addMMEFrom: 1037 @ 504 to: 979 @ 482.
...etc...
Arguments and temporary variables:
encoder: {an EncoderForV3PlusClosures}
Receiver's instance variables:
comment: nil
pc: nil
arguments: #()
statements: an OrderedCollection({self addMMEFrom: 1054 @ 512 to: 1037 @
504} {...etc...
returns: true
nArgsNode: nil
size: nil
remoteCopyNode: nil
temporaries: an OrderedCollection()
optimized: false
actualScopeIfOptimized: nil
blockExtent: (0 to: 2)
remoteTempNode: nil
copiedValues: nil
closureCreationNode: nil
startOfLastStatement: 11519

BytecodeAgnosticMethodNode>>generate:
Receiver: testMethod
self addMMEFrom: 1054 @ 512 to: 1037 @ 504.
self addMMEFrom: 1037 @ 504 to: 9...etc...
Arguments and temporary variables:
trailer: #(0 0 0 0)
primErrNode: nil
blkSize: nil
nLits: nil
literals: nil
stack: nil
method: nil
locals: nil
lit: nil
Receiver's instance variables:
comment: nil
pc: nil
selectorOrFalse: #testMethod
precedence: 1
arguments: #()
block: {[self addMMEFrom: 1054 @ 512 to: 1037 @ 504.
self addMMEFrom: 1037 @ 5...etc...
primitive: 0
encoder: {an EncoderForV3PlusClosures}
temporaries: #()
properties: an AdditionalMethodState
sourceText: 'testMethod
self addMMEFrom: 1054@512 to: 1037@504.
self addMMEFr...etc...
locationCounter: 3
localsPool: an IdentitySet()

CompiledMethodWithNode class>>generateMethodFromNode:trailer:
Receiver: CompiledMethodWithNode
Arguments and temporary variables:
aMethodNode: testMethod
self addMMEFrom: 1054 @ 512 to: 1037 @ 504.
self addM...etc...
bytes: #(0 0 0 0)
Receiver's instance variables:
superclass: Object
methodDict: a MethodDictionary(#method->a CompiledMethod(650:
CompiledMethodWit...etc...
format: 134
instanceVariables: #('node' 'method')
organization: ('accessing' method node selector)
('private' method: node:)

subclasses: nil
name: #CompiledMethodWithNode
classPool: nil
sharedPools: nil
environment: Smalltalk
category: #'Compiler-Support'
traitComposition: nil
localSelectors: nil

MorphicReplayDemoTest
class(Behavior)>>compile:classified:notifying:trailer:ifFail:
Receiver: MorphicReplayDemoTest
Arguments and temporary variables:
code: 'testMethod
self addMMEFrom: 1054@512 to: 1037@504.
self addMMEFrom: 10...etc...
category: #'as yet unclassified'
requestor: nil
bytes: #(0 0 0 0)
failBlock: [closure] in MorphicReplayDemoTest
class(ClassDescription)>>compile:...etc...
methodNode: testMethod
self addMMEFrom: 1054 @ 512 to: 1037 @ 504.
self addMM...etc...
Receiver's instance variables:
superclass: AbstractReplayTestCase
methodDict: a MethodDictionary(#testMethod->a CompiledMethod(1191:
MorphicRepla...etc...
format: 134
instanceVariables: nil
organization: ('tests' testMethod)