[Pkg] The Trunk: Kernel-ul.942.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Aug 17 20:21:57 UTC 2015

Levente Uzonyi uploaded a new version of Kernel to project The Trunk:

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

Name: Kernel-ul.942
Author: ul
Time: 17 August 2015, 10:10:26.712 pm
UUID: 79a558ac-3366-4483-9ddf-04d9b02fb589
Ancestors: Kernel-ul.941

- use #becomeForward: instead of #become: where possible

=============== Diff against Kernel-ul.941 ===============

Item was changed:
  ----- Method: CompiledMethod>>putSource:fromParseNode:inFile:withPreamble: (in category 'source code management') -----
  putSource: sourceStr fromParseNode: methodNode inFile: fileIndex withPreamble: preambleBlock
  	"Store the source code for the receiver on an external file.
  	If no sources are available, i.e., SourceFile is nil, then store
  	temp names for decompilation at the end of the method.
  	If the fileIndex is 1, print on *.sources;  if it is 2, print on *.changes,
  	in each case, storing a 4-byte source code pointer at the method end."
  	| file remoteString |
  	(SourceFiles == nil or: [(file := SourceFiles at: fileIndex) == nil]) ifTrue:
+ 		[^self becomeForward: (self copyWithTempsFromMethodNode: methodNode)].
- 		[^self become: (self copyWithTempsFromMethodNode: methodNode)].
  	Smalltalk assureStartupStampLogged.
  	file setToEnd.
  	preambleBlock value: file.  "Write the preamble"
  	remoteString := RemoteString newString: sourceStr onFileNumber: fileIndex toFile: file.
  	file nextChunkPut: ' '.
  	InMidstOfFileinNotification signal ifFalse: [file flush].
  	self checkOKToAdd: sourceStr size at: remoteString position.
  	self setSourcePosition: remoteString position inFile: fileIndex!

Item was changed:
  ----- Method: MethodDictionary>>grow (in category 'private') -----
  	| newSelf |
  	newSelf := self species newForCapacity: self basicSize * 2.
  	1 to: self basicSize do: [ :i | 
  		(self basicAt: i) ifNotNil: [ :key |
  			newSelf at: key put: (array at: i) ] ].
+ 	self becomeForward: newSelf!
- 	self become: newSelf!

More information about the Packages mailing list