[Vm-dev] VM Maker: Cog-lw.54.mcz

[commits at source.squeak.org]

Lars Wassermann uploaded a new version of Cog to project VM Maker:
http://source.squeak.org/VMMaker/Cog-lw.54.mcz

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

Name: Cog-lw.54
Author: lw
Time: 18 August 2012, 2:29:17.38 pm
UUID: aeefac03-a0a4-1343-a97d-74136d85e047
Ancestors: Cog-lw.53

changes because of different disassembly returns and error formats

=============== Diff against Cog-lw.53 ===============

Item was changed:
  ----- Method: GdbARMAlienTests>>testExecutionTrap (in category 'tests') -----
  testExecutionTrap
  	"Execute a run of nops.  test executing beyond the executable limit is trapped."
  	"self new testExecutionTrap"
  	| memory |
  	 "The address is out of range of memory every which way (whether relative or absolute and whether big-endian or little."
  	memory := (Bitmap new: 1024 * 2 withAll: self processor nopOpcode) asByteArray.
  	self processor
  			pc: 0;
  			sp: (memory size - 4). "Room for return address"
  	self should: [self processor runInMemory: memory minimumAddress: 0 readOnlyBelow: memory size / 2]
  		raise: Error
  		withExceptionDo:
  			[:err|
  			self assert: self processor pc = (memory size / 2).
+ 			self assert: ('Error 0: Illegal Instruction fetch address (0x1000).' match: err messageText)].
- 			self assert: ('Error 0: Illegal Instruction fetch address (0x00001000).' match: err messageText)].
  	self processor pc: 0.
  	self should: [[self processor singleStepIn: memory minimumAddress: 0 readOnlyBelow: memory size / 2] repeat]
  		raise: Error
  		withExceptionDo:
  			[:err|
  			self assert: self processor pc = (memory size / 2).
+ 			self assert: ('Error 0: Illegal Instruction fetch address (0x1000).' match: err messageText)]!
- 			self assert: ('Error 0: Illegal Instruction fetch address (0x00001000).' match: err messageText)]!

Item was changed:
  ----- Method: GdbARMAlienTests>>testNfib1 (in category 'tests') -----
  testNfib1
  	"self new testNfib1"
  	self should: [self runNFib: 1 disassemble: false printRegisters: false]
  		raise: Error
  		withExceptionDo: 
+ 			[:err| self assert: err messageText = 'Error 0: Illegal Instruction fetch address (0x1000).'].
- 			[:err| self assert: err messageText = 'Error 0: Illegal Instruction fetch address (0x00001000).'].
  	self deny: (self processor pc between: 0 and: self nfib size).
  	self assert: self processor r0 = 1 benchFib!