The Trunk: System-eem.350.mcz

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

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

Name: System-eem.350
Author: eem
Time: 17 July 2010, 6:49:37.522 pm
UUID: 4d26171a-df0a-4b8d-aaea-ef35f5e43c21
Ancestors: System-ar.349

More accurate isRunningCog[it] tests that distinguish
between the Stack and the Cogit VMs.

=============== Diff against System-ar.349 ===============

Item was changed:
+ ----- Method: SmalltalkImage>>isRunningCog (in category 'system attributes') -----
- ----- Method: SmalltalkImage>>isRunningCog (in category 'vm') -----
  isRunningCog
+ "Returns true if we're running on a Cog VM (JIT or StackInterpreter)
+ (vmParameterAt: 42 is the number of stack pages)"
- "Returns true if we're running Cog"
 
+ ^[(self vmParameterAt: 42) > 0] on: Error do:[:ex| ex return: false]!
- ^[(self vmParameterAt: 46) > 0] on: Error do:[:ex| ex return: false]!

Item was added:
+ ----- Method: SmalltalkImage>>isRunningCogit (in category 'system attributes') -----
+ isRunningCogit
+ "Returns true if we're running on the Cog JIT
+ (vmParameterAt: 46 is the size of the machine code zone)"
+
+ ^[(self vmParameterAt: 46) > 0] on: Error do:[:ex| ex return: false]!