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

[commits at source.squeak.org]

Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.784.mcz

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

Name: Kernel-fbs.784
Author: fbs
Time: 6 July 2013, 2:41:07.138 pm
UUID: 80e20562-abe1-e64f-81ba-2e35d82ac8c7
Ancestors: Kernel-fbs.783

These xxx methods belong with the other SqueakPage methods, in MorphicExtras-SqueakPage.

=============== Diff against Kernel-fbs.783 ===============

Item was removed:
- ----- Method: ObjectOut>>xxxFetch (in category 'fetch from disk') -----
- xxxFetch
- 	"Bring in my object and replace all references to me with references to him.  First try looking up my url in the pageCache.  Then try the page (and install it, under its url).  Then start from scratch with the url."
- 
- 	| truePage object existing |
- 	existing := SqueakPageCache pageCache at: url ifAbsent: [nil].
- 	existing ifNotNil: [existing isContentsInMemory
- 		ifTrue: [page := truePage := existing]].	"This url already has an object in this image"
- 	truePage ifNil: [
- 		truePage := SqueakPageCache atURL: url oldPage: page].
- 	object := truePage isContentsInMemory 
- 		ifTrue: [truePage contentsMorph]
- 		ifFalse: [truePage fetchInformIfError].	"contents, not the page"
- 			"Later, collect pointers to object and fix them up.  Not scan memory"
- 	object ifNil: [^ 'Object could not be fetched.'].
- 	"recursionFlag := false."  	"while I still have a pointer to myself"
- 	truePage contentsMorph: object.
- 	page := truePage.
- 	self xxxFixup.
- 	^ object	"the final object!!"
-  !

Item was removed:
- ----- Method: ObjectOut>>xxxFixup (in category 'fetch from disk') -----
- xxxFixup
- 	"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 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!

Item was removed:
- ----- Method: ObjectOut>>xxxSetUrl:page: (in category 'fetch from disk') -----
- xxxSetUrl: aString page: aSqkPage
- 
- 	url := aString.
- 	page := aSqkPage.!