The Trunk: System-eem.766.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-eem.766.mcz

commits-2
Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.766.mcz

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

Name: System-eem.766
Author: eem
Time: 16 September 2015, 11:47:41 am
UUID: 9c1c1e34-5f47-43ac-a6de-58be7bc6d6db
Ancestors: System-mt.765

Fix some methods with carriage returns in their time stamps.

=============== Diff against System-mt.765 ===============

Item was changed:
  ----- Method: DataStream>>objectAt: (in category 'write and read') -----
  objectAt: anInteger
+ "PRIVATE -- Read & return the object at a given stream position.  anInteger is a relative file position. "
- "PRIVATE -- Read & return the object at a given stream position.  08:18 tk  anInteger is a relative file position. "
  | savedPosn anObject refPosn |
 
  savedPosn := byteStream position. "absolute"
  refPosn := self getCurrentReference. "relative position"
 
  byteStream position: anInteger + basePos. "was relative"
  anObject := self next.
 
  self setCurrentReference: refPosn. "relative position"
  byteStream position: savedPosn. "absolute"
  ^ anObject!

Item was changed:
  ----- Method: FilePackage>>fullName: (in category 'accessing') -----
  fullName: aString
  fullName := aString!

Item was changed:
  ----- Method: FilePackage>>initialize (in category 'initialize') -----
  initialize
  classes := Dictionary new.
  classOrder := OrderedCollection new.
  sourceSystem := ''.
  doIts := OrderedCollection new.!

Item was changed:
  ----- Method: FilePackage>>packageName (in category 'accessing') -----
  packageName
  ^FileDirectory localNameFor: self fullPackageName!

Item was changed:
  ----- Method: SmartRefStream>>applyConversionMethodsTo:className:varMap: (in category 'import image segment') -----
  applyConversionMethodsTo: objectIn className: className varMap: varMap
  "Modify the object's instance vars to have the proper values
  for its new shape.  Mostly, fill in defaut values of new inst vars.
  Can substitute an object of a different class.  (Beware: if
  substituted, varMap will not be correct when the new object is asked
  to convert.)"
  | anObject prevObject |
 
  self flag: #bobconv.
 
  anObject := objectIn.
  [
  prevObject := anObject.
  anObject := anObject convertToCurrentVersion: varMap
  refStream: self.
  prevObject == anObject
  ] whileFalse.
+ ^anObject!
- ^anObject
- !