[Vm-dev] VM Maker: VMMaker.oscog-eem.729.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.729.mcz

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

Name: VMMaker.oscog-eem.729
Author: eem
Time: 21 May 2014, 11:09:39.734 am
UUID: 611ca439-fb89-4d43-a138-ebbd559c605a
Ancestors: VMMaker.oscog-eem.728

Fix a typo to the segment deallocator, for consistency.

=============== Diff against VMMaker.oscog-eem.728 ===============

Item was added:
+ ----- Method: SpurMemoryManager>>sqDeallocateMemorySegmentAt:OfSize: (in category 'simulation only') -----
+ sqDeallocateMemorySegmentAt: startAddress OfSize: ammount
+ 	"This is a nop in the simulator."
+ 	<doNotGenerate>!

Item was removed:
- ----- Method: SpurMemoryManager>>sqDeallocateMemorySegmentAt:ofSize: (in category 'simulation only') -----
- sqDeallocateMemorySegmentAt: startAddress ofSize: ammount
- 	"This is a nop in the simulator."
- 	<doNotGenerate>!

Item was changed:
  ----- Method: SpurSegmentManager>>removeSegment: (in category 'growing/shrinking memory') -----
  removeSegment: emptySeg
  	<var: #emptySeg type: #'SpurSegmentInfo *'>
  	| i |
  	i := self indexOfSegment: emptySeg.
  	self assert: i > 0.
  
+ 	manager sqDeallocateMemorySegmentAt: emptySeg segStart OfSize: emptySeg segSize.
- 	manager sqDeallocateMemorySegmentAt: emptySeg segStart ofSize: emptySeg segSize.
  
  	i to: numSegments - 1 do:
  		[:j| segments at: j put: (segments at: j + 1)].
  	self cCode: [] inSmalltalk: [segments at: numSegments - 1 put: SpurSegmentInfo new].
  	numSegments := numSegments - 1.
  
  	self bridgeFrom: (self addressOf: (segments at: i - 1))
  		to: (i <= (numSegments - 1) ifTrue: [self addressOf: (segments at: i)]).
  
  	manager setLastSegment: (self addressOf: (segments at: numSegments - 1))!