The Trunk: Kernel-eem.1129.mcz

Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.1129.mcz

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

Name: Kernel-eem.1129
Author: eem
Time: 14 December 2017, 11:30:57.320228 am
UUID: 862344e3-6b40-4a13-b66d-cae9fd8733e8
Ancestors: Kernel-nice.1128

storeDataOn: can use initialPC to be 64-bit and 32-bit compatible.  Necessary for saving projects.

=============== Diff against Kernel-nice.1128 ===============

Item was changed:
  ----- Method: CompiledCode>>storeDataOn: (in category 'file in/out') -----
  storeDataOn: aDataStream
  "Store myself on a DataStream.  I am a mixture of objects and raw data bytes.  Only use this for blocks.  Normal methodDictionaries should not be put out using ReferenceStreams.  Their fileOut should be attached to the beginning of the file."
 
  | byteLength lits |
  "No inst vars of the normal type"
  byteLength := self basicSize.
  aDataStream
  beginInstance: self class
  size: byteLength.
  lits := self numLiterals + 1. "counting header"
  1 to: lits do:
  [:ii | aDataStream nextPut: (self objectAt: ii)].
+ self initialPC to: byteLength do:
- lits*4+1 to: byteLength do:
  [:ii | aDataStream byteStream nextPut: (self basicAt: ii)].
  "write bytes straight through to the file"!