[squeak-dev] The Trunk: Kernel-cmm.1049.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Nov 11 20:56:20 UTC 2016


Chris Muller uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-cmm.1049.mcz

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

Name: Kernel-cmm.1049
Author: cmm
Time: 11 November 2016, 2:55:37.977602 pm
UUID: c1a99cf9-1315-4aac-9bdb-c84fecc12912
Ancestors: Kernel-nice.1048

Give ReferenceStream the ability to serialize objects whose behaviors were extended via #primitiveChangeClassTo:.

=============== Diff against Kernel-nice.1048 ===============

Item was changed:
  ----- Method: Object>>storeDataOn: (in category 'objects from disk') -----
  storeDataOn: aDataStream
  	"Store myself on a DataStream.  Answer self.  This is a low-level DataStream/ReferenceStream method. See also objectToStoreOnDataStream.  NOTE: This method must send 'aDataStream beginInstance:size:' and then (nextPut:/nextPutWeak:) its subobjects.  readDataFrom:size: reads back what we write here."
  	| cntInstVars cntIndexedVars |
  
  	cntInstVars := self class instSize.
  	cntIndexedVars := self basicSize.
  	aDataStream
+ 		beginInstance: self xxxClass
- 		beginInstance: self class
  		size: cntInstVars + cntIndexedVars.
  	1 to: cntInstVars do:
  		[:i | aDataStream nextPut: (self instVarAt: i)].
  
  	"Write fields of a variable length object.  When writing to a dummy 
  		stream, don't bother to write the bytes"
  	((aDataStream byteStream class == DummyStream) and: [self class isBits]) ifFalse: [
  		1 to: cntIndexedVars do:
  			[:i | aDataStream nextPut: (self basicAt: i)]].
  !



More information about the Squeak-dev mailing list