[Pkg] The Trunk: Kernel-fbs.775.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jun 29 22:03:26 UTC 2013

Frank Shearar uploaded a new version of Kernel to project The Trunk:

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

Name: Kernel-fbs.775
Author: fbs
Time: 29 June 2013, 11:02:47.13 pm
UUID: 1185b53c-5a7c-6442-bb20-2177e05ace9e
Ancestors: Kernel-fbs.774

Don't use Utilities. It needs to go.

=============== Diff against Kernel-fbs.774 ===============

Item was changed:
  ----- Method: ObjectOut>>xxxFixup (in category 'fetch from disk') -----
  	"There is already an object in memory for my url.  All pointers to me need to be pointers to him.  Can't use become, because other pointers to him must stay valid."
  	| real temp list |
  	real := page contentsMorph.
  	real == self ifTrue: [page error: 'should be converted by now'].
  	temp := self.
+ 	list := (PointerFinder pointersTo: temp) asOrderedCollection.
- 	list := (Utilities pointersTo: temp) asOrderedCollection.
  	list add: thisContext.  list add: thisContext sender.
  	list do: [:holder |
  		1 to: holder class instSize do:
  			[:i | (holder instVarAt: i) == temp ifTrue: [holder instVarAt: i put: real]].
  		1 to: holder basicSize do:
  			[:i | (holder basicAt: i) == temp ifTrue: [holder basicAt: i put: real]].
  	^ real!

More information about the Packages mailing list