The Trunk: System-dtl.500.mcz

David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.500.mcz

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

Name: System-dtl.500
Author: dtl
Time: 7 November 2012, 11:34:11.125 pm
UUID: 004afe3f-701a-441e-8b2a-b0288f54beb2
Ancestors: System-eem.499

In SmalltalkImage>>imageFormatVersion, if primitiveImageFormatVersion is not supported try vmParameterAt: 41

=============== Diff against System-eem.499 ===============

Item was changed:
  ----- Method: SmalltalkImage>>imageFormatVersion (in category 'image') -----
  imageFormatVersion
  "Answer an integer identifying the type of image in memory. The image version number may
  identify the format of the image (e.g. 32 or 64-bit word size) or specific requirements
  of the image (e.g. block closure support required). This invokes an optional primitive
  that may not be available on all virtual machines."
 
  "Smalltalk image imageFormatVersion"
 
  <primitive: 'primitiveImageFormatVersion'>
+
+ "Cog provides a VM parameter"
+ ^[Smalltalk vm vmParameterAt: 41]
+ on: Error
+ do: [self notify: 'This virtual machine does not support the optional ',
+ 'primitive #primitiveImageFormatVersion' translated.
+ nil]
+ !
- self notify: 'This virtual machine does not support the optional primitive #primitiveImageFormatVersion' translated.
- ^''!