The Inbox: System-cmm.1044.mcz

Chris Muller uploaded a new version of System to project The Inbox:
http://source.squeak.org/inbox/System-cmm.1044.mcz

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

Name: System-cmm.1044
Author: cmm
Time: 16 November 2018, 5:53:02.580292 pm
UUID: 3b9fe1d6-6eed-468f-91d7-e26350c972f6
Ancestors: System-pre.1043

Utility methods for determining how much RAM is used, and how much is available to the running image.

=============== Diff against System-pre.1043 ===============

Item was added:
+ ----- Method: SmalltalkImage>>bitsPerWord (in category 'system attributes') -----
+ bitsPerWord
+ ^ self wordSize * 8!

Item was added:
+ ----- Method: SmalltalkImage>>defaultMaxMemory (in category 'memory space') -----
+ defaultMaxMemory
+ "Images can be up to 1GB (512MB on Windows) when the -memory parameter is not specified."
+ ^ self isRunningSpur
+ ifTrue:
+ [ self is64Bit
+ ifTrue: [ 15000000000 ]
+ ifFalse: [ 3800000000 ] ]
+ ifFalse:
+ [ Smalltalk platformName = 'Win32'
+ ifTrue: [ 500000000 ]
+ ifFalse: [ 1000000000 ] ]!

Item was added:
+ ----- Method: SmalltalkImage>>is32Bit (in category 'system attributes') -----
+ is32Bit
+ ^self bitsPerWord = 32!

Item was added:
+ ----- Method: SmalltalkImage>>is64Bit (in category 'system attributes') -----
+ is64Bit
+ ^self bitsPerWord = 64!

Item was added:
+ ----- Method: SmalltalkImage>>maxMemory (in category 'memory space') -----
+ maxMemory
+ "If the special argument to the vm, -memory, was provided, use the number following it, otherwise the default maximum available based on the image / vm type."
+ | foundMemoryArg |
+ foundMemoryArg := false.
+ self optionsDo:
+ [ : each |
+ (#('-memory' '-mmap') includes: each)
+ ifTrue: [ foundMemoryArg := true ]
+ ifFalse:
+ [ foundMemoryArg ifTrue:
+ [ | arg |
+ arg := each.
+ (arg isEmptyOrNil or: [ arg size < 2 ]) ifFalse:
+ [ | requestedMemory |
+ requestedMemory := (arg
+ copyFrom: 1
+ to: arg size - 1) asNumber.
+ requestedMemory > 0 ifTrue:
+ [ arg last = $k
+ ifTrue: [ ^ 1000 * requestedMemory min: self defaultMaxMemory ]
+ ifFalse: [ arg last = $m ifTrue: [ ^ 1000000 * requestedMemory min: self defaultMaxMemory ] ] ] ] ] ] ].
+ ^ self defaultMaxMemory!

Item was added:
+ ----- Method: SmalltalkImage>>memoryAvailable (in category 'memory space') -----
+ memoryAvailable
+ "Answer the remaining memory available accessible by this image."
+ ^ self maxMemory - self memoryUsed!

Item was added:
+ ----- Method: SmalltalkImage>>memoryUsed (in category 'memory space') -----
+ memoryUsed
+ ^ self vmParameterAt: 3!