[Vm-dev] VM Maker: VMMaker.oscog-eem.769.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.769.mcz

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

Name: VMMaker.oscog-eem.769
Author: eem
Time: 11 June 2014, 2:11:14.911 pm
UUID: 7b5918e2-f856-4eca-975d-0f1e6904ed1d
Ancestors: VMMaker.oscog-eem.768

And fix signed comparison in loop in checkTraversableSortedFreeList

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

Item was changed:
  ----- Method: SpurMemoryManager>>checkTraversableSortedFreeList (in category 'simulation only') -----
  checkTraversableSortedFreeList
+ 	| prevFree freeChunk |
- 	| prevFree freeChunk next |
  	<api>
  	<inline: false>
  	prevFree := 0.
  	freeChunk := firstFreeChunk.
  	self allOldSpaceEntitiesDo:
+ 		[:o| | objOop next limit |
- 		[:o| | objOop |
  		(self isFreeObject: o) ifTrue:
  			[self assert: o = freeChunk.
  			 next := self nextInSortedFreeListLink: freeChunk given: prevFree.
+ 			 limit := next = 0 ifTrue: [endOfMemory] ifFalse: [next].
  			 "coInterpreter transcript cr; print: freeChunk; tab; print: o; tab; print: prevFree; nextPutAll: '<->'; print: next; flush."
  			 objOop := freeChunk.
+ 			 [self oop: (objOop := self objectAfter: objOop) isLessThan: limit] whileTrue:
- 			 [(objOop := self objectAfter: objOop) < next] whileTrue:
  				[self assert: (self isFreeObject: objOop) not].
  			 prevFree := freeChunk.
  			 freeChunk := next]].
  	self assert: prevFree = lastFreeChunk.
  	self assert: freeChunk = 0.
  	^true!