[etoys-dev] Etoys: Compiler-kfr.3.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Compiler to project Etoys:
http://source.squeak.org/etoys/Compiler-kfr.3.mcz

==================== Summary ====================

Name: Compiler-kfr.3
Author: kfr
Time: 8 June 2010, 10:48:49 pm
UUID: d735b799-4fd3-f74b-baec-abca8a9c31bf
Ancestors: Compiler-bf.2


Fixes jira bug SQ-710
Removal of variable used in a script caused a walkback

=============== Diff against Compiler-bf.2 ===============

Item was changed:
  ----- Method: Decompiler>>decompile:in:method:using: (in category 'public access') -----
  decompile: aSelector in: aClass method: aMethod using: aConstructor
  
  	| block |
  	constructor := aConstructor.
  	method := aMethod.
  	self initSymbols: aClass.  "create symbol tables"
  	method isQuick
  		ifTrue: [block := self quickMethod]
  		ifFalse: 
  			[stack := OrderedCollection new: method frameSize.
  			caseExits := OrderedCollection new.
  			statements := OrderedCollection new: 20.
  			super method: method pc: method initialPC.
  			"skip primitive error code store if necessary"
  			(method primitive ~= 0 and: [self willStore]) ifTrue:
  				[pc := pc + 2.
  				 tempVars := tempVars asOrderedCollection].
  			block := self blockTo: method endPC + 1.
  			stack isEmpty ifFalse: [self error: 'stack not empty']].
  	^constructor
+ 		codeMethod: (aSelector ifNil: [method defaultSelector])
- 		codeMethod: aSelector
  		block: block
  		tempVars: tempVars
  		primitive: method primitive
  		class: aClass!