Vm-dev July 2019

vm-dev@lists.squeakfoundation.org

16 participants
62 discussions

Building on Alpine Linux
by Pierce Ng 21 Jul '19

21 Jul '19

Hi all, I've built pharo.cog.spur.minheadless on Alpine Linux. I did it by mucking around with the files in the repo, mostly to add library files to link with, in line with Alpine's packaging conventions. I'd like to make the process reproducible. Is there any documentation on how the repo uses CMake? In particular, say, which files should I work on to produce link.txt suitable for use on Alpine? Here's my related blog post: https://www.samadhiweb.com/blog/2019.07.20.alpine.pharo.minimal.html Pierce

2 5

linux minheadless pharo vm builds itimer or heartbeat?
by Alistair Grant 21 Jul '19

21 Jul '19

Hi All, Are Pharo linux minheadless builds itimer or threaded heartbeat? (all the listings below are extracts, not the complete file / page) The file list on bintray suggests that they are itimer: https://bintray.com/opensmalltalk/vm/cog/201907112020#files pharo.cog.spur+sdl2-cmake-minhdls_linux64x64_itimer_201907112020.tar.gz 6 days ago 4.23 MB pharo.cog.spur-cmake-minhdls_linux64x64_itimer_201907112020.tar.gz 6 days ago 4.22 MB While travis indicates that only threaded heartbeat versions are built: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/553922116 Setting environment variables from .travis.yml $ export ARCH="linux64x64" $ export FLAVOR="pharo.cog.spur" $ export CPU_ARCH="x64" $ export HEARTBEAT="threaded" $ export BUILD_WITH_CMAKE="yes" .travis.yml agrees with the travis output: - stage: "Minheadless CMake builds" - env: ARCH="linux32x86" FLAVOR="pharo.cog.spur" CPU_ARCH="x86" HEARTBEAT="threaded" BUILD_WITH_CMAKE="yes" - env: ARCH="linux64x64" FLAVOR="pharo.cog.spur" CPU_ARCH="x64" HEARTBEAT="threaded" BUILD_WITH_CMAKE="yes" And pack-vm.sh seems to be doing the right thing when determining how to name the archive: for dir in */; do if [[ "${ARCH}" == *"ARM"* || "${dir}" == *"ht/" ]]; then name="${IDENTIFIER}" else name="${IDENTIFIER_ITIMER}" fi Unfortunately figuring out which VM is being used isn't helped by the fact that "pharo --version" doesn't work with minheadless: $ ./pharo --version Opening Image: --version Opening Image: No such file or directory Error opening image file: --version Thanks, Alistair

2 2

VM Maker: ImageFormat-dtl.37.mcz
by commits＠source.squeak.org 20 Jul '19

20 Jul '19

David T. Lewis uploaded a new version of ImageFormat to project VM Maker: http://source.squeak.org/VMMaker/ImageFormat-dtl.37.mcz ==================== Summary ==================== Name: ImageFormat-dtl.37 Author: dtl Time: 20 July 2019, 5:23:59.004 pm UUID: 52b464d5-0bf7-4326-bde3-4f18ad70b239 Ancestors: ImageFormat-dtl.36 Identify extended bytecodes for Sista in the image format number. Bit 10 identifies an image that contains extended bytecodes. Thus a 32 bit Spur image is 6521, with Sista it is 7033, and a 64 bit Spur image is 68021, with Sista it is 68533. It is expected that additional bytecode sets can be identified by an additional field in the image header, probably 32 bits containing two 16 bit fields, if both zero then Sista. Per discussion with Eliot and Bert in a Squeak oversight board meeting 2019-05-15. =============== Diff against ImageFormat-dtl.36 =============== Item was changed: Object subclass: #ImageFormat + instanceVariableNames: 'wordSize requiresClosureSupport requiresNativeFloatWordOrder requiresSpurSupport requiresNewSpur64TagAssignment requiresMultipleBytecodeSupport' + classVariableNames: 'BaseVersionMask BaseVersionNumbers CapabilitiesBitsMask KnownVersionNumbers MultipleBytecodeBit PlatformByteOrderBit ReservedBitsMask SpurObjectBit' - instanceVariableNames: 'wordSize requiresClosureSupport requiresNativeFloatWordOrder requiresSpurSupport requiresNewSpur64TagAssignment' - classVariableNames: 'BaseVersionMask BaseVersionNumbers CapabilitiesBitsMask KnownVersionNumbers PlatformByteOrderBit ReservedBitsMask SpurObjectBit' poolDictionaries: '' category: 'ImageFormat-Header'! !ImageFormat commentStamp: 'dtl 11/7/2010 22:13' prior: 0! ImageFormat represents the requirements of the image in terms of capabilities that must be supported by the virtual machine. The image format version is saved as an integer value in the header of an image file. When an image is loaded, the virtual machine checks the image format version to determine whether it is capable of supporting the requirements of that image. The image format version value is treated as a bit map of size 32, derived from the 32-bit integer value saved in the image header. Bits in the bit map represent image format requirements. For example, if the image sets bit 15 to indicate that it requires some capability from the VM, then the VM can check bit 15 and decide whether it is able to satisfy that requirement. The base image format numbers (6502, 6504, 68000, and 68002) utiliize 10 of the 32 available bits. The high order bit is reserved as an extension bit for future use. The remaining 21 bits are used to represent additional image format requirements. For example, the low order bit is used to indication that the image uses (and requires support for) the platform byte ordering implemented in the StackInterpreter (Cog) VM. "(ImageFormat fromFile: Smalltalk imageName) description" ! Item was changed: ----- Method: ImageFormat class>>bitAssignments (in category 'bit assignments') ----- bitAssignments "ImageFormat bitAssignments doWithIndex: [ :e :i | Transcript cr; show: 'bit ', i asString, ' is ', (e ifNil: ['unused'])]" | bits | bits := Array new: 32. "If bit 1 is set, the high and low order 32-bit words of a Float are stored in platform word order. If bit 1 is not set, big-endian word order is used for Float regardless of the platform." bits at: 1 put: 'the use platform float word order bit (Cog and StackInterpreter)'. bits at: 2 put: 'used in base version numbers'. bits at: 3 put: 'used in base version numbers'. bits at: 4 put: 'used in base version numbers'. bits at: 5 put: 'the Spur object format bit'. bits at: 6 put: 'used in base version numbers'. bits at: 7 put: 'used in base version numbers'. bits at: 8 put: 'used in base version numbers'. bits at: 9 put: 'used in base version numbers'. + bits at: 10 put: 'the multiple bytecode bit for Sista'.. - bits at: 10 put: nil. "unassigned bit available for future image formats" bits at: 11 put: nil. "unassigned bit available for future image formats" bits at: 12 put: 'used in base version numbers'. bits at: 13 put: 'used in base version numbers'. bits at: 14 put: nil. "unassigned bit available for future image formats" bits at: 15 put: nil. "unassigned bit available for future image formats" bits at: 16 put: nil. "unassigned bit available for future image formats" bits at: 17 put: 'used in base version numbers'. bits at: 18 put: nil. "unassigned bit available for future image formats" bits at: 19 put: nil. "unassigned bit available for future image formats" bits at: 20 put: nil. "unassigned bit available for future image formats" bits at: 21 put: nil. "unassigned bit available for future image formats" bits at: 22 put: nil. "unassigned bit available for future image formats" bits at: 23 put: nil. "unassigned bit available for future image formats" bits at: 24 put: nil. "unassigned bit available for future image formats" bits at: 25 put: nil. "unassigned bit available for future image formats" bits at: 26 put: nil. "unassigned bit available for future image formats" bits at: 27 put: nil. "unassigned bit available for future image formats" bits at: 28 put: nil. "unassigned bit available for future image formats" bits at: 29 put: nil. "unassigned bit available for future image formats" bits at: 30 put: nil. "unassigned bit available for future image formats" bits at: 31 put: nil. "unassigned bit available for future image formats" "If bit 32 is set, additional image format information will be stored in one or more additional words. Currently this is unused, and bit 32 is always zero." bits at: 32 put: 'the extension bit (reserved for future use)'. ^bits ! Item was changed: ----- Method: ImageFormat class>>capabilitiesBitsMask (in category 'image formats') ----- capabilitiesBitsMask "Bits currently used as capability bits." "ImageFormat capabilitiesBitsMask printStringBase: 2" + ^ { PlatformByteOrderBit . SpurObjectBit . MultipleBytecodeBit } + inject: 0 + into: [:accum :bitNumber | accum bitAt: bitNumber put: 1] - ^ (0 bitAt: PlatformByteOrderBit put: 1) - bitAt: SpurObjectBit put: 1 ! Item was changed: ----- Method: ImageFormat class>>initialize (in category 'initialize-release') ----- initialize "ImageFormat initialize" PlatformByteOrderBit := 1. SpurObjectBit := 5. + MultipleBytecodeBit := 10. BaseVersionNumbers := self baseVersionNumbers. BaseVersionMask := self baseVersionMask. CapabilitiesBitsMask := self capabilitiesBitsMask. ReservedBitsMask := self availableBits. KnownVersionNumbers := self knownVersionNumbers. ! Item was changed: ----- Method: ImageFormat class>>knownVersionNumbers (in category 'image formats') ----- knownVersionNumbers "Version numbers currently in use or likely to be used (e.g. 64-bit Cog formats)" "ImageFormat knownVersionNumbers collect: [:e | (ImageFormat fromInteger: e) description]" ^ ( self baseVersionNumbers, "the original format number variants" { 6505 . "Cog and StackVM" 68003 . "Cog and StackVM running 64-bit image" 6521 . "Spur 32 bit object memory" + 7033 . "Spur 32 bit with Sista bytecodes" 68019 . "Spur 64 bit object memory (early)" 68021 . "Spur 64 bit object memory" + 68533 . "Spur 64 bit with Sista bytecodes" " ... add others here as bits are allocated to represent requirements of other image formats" } ) sort. ! Item was changed: ----- Method: ImageFormat class>>wordSize:spur: (in category 'instance creation') ----- wordSize: bytesPerWord spur: spurRequired "Answer a Spur image format, or default to Cog if Spur is not specified" | update64 | update64 := bytesPerWord == 8. "The 64 bit Spur image has an updated version" + ^ self + wordSize: bytesPerWord + spur: spurRequired + requiresNewSpur64TagAssignment: update64 + multipleBytecodes: false! - ^self wordSize: bytesPerWord spur: spurRequired requiresNewSpur64TagAssignment: update64! Item was added: + ----- Method: ImageFormat class>>wordSize:spur:multipleBytecodes: (in category 'instance creation') ----- + wordSize: bytesPerWord spur: spurRequired multipleBytecodes: isSista + + | update64 | + update64 := bytesPerWord == 8. "The 64 bit Spur image has an updated version" + ^(self wordSize: bytesPerWord) + setClosureSupportRequirement: true; + setCogSupportRequirement: true; + setSpurSupportRequirement: spurRequired; + setRequiresNewSpur64TagAssignmentRequirement: update64; + setRequiresMultipleBytecodeSupport: isSista + ! Item was changed: ----- Method: ImageFormat class>>wordSize:spur:requiresNewSpur64TagAssignment: (in category 'instance creation') ----- wordSize: bytesPerWord spur: spurRequired requiresNewSpur64TagAssignment: newSpur64 - "Answer a Spur image format, or default to Cog if Spur is not specified" + ^ self + wordSize: bytesPerWord + spur: spurRequired + requiresNewSpur64TagAssignment: newSpur64 + multipleBytecodes: false! - ^(self wordSize: bytesPerWord) - setClosureSupportRequirement: true; - setCogSupportRequirement: true; - setSpurSupportRequirement: spurRequired; - setRequiresNewSpur64TagAssignmentRequirement: newSpur64 - ! Item was added: + ----- Method: ImageFormat class>>wordSize:spur:requiresNewSpur64TagAssignment:multipleBytecodes: (in category 'instance creation') ----- + wordSize: bytesPerWord spur: spurRequired requiresNewSpur64TagAssignment: newSpur64 multipleBytecodes: isSpur + + ^(self wordSize: bytesPerWord) + setClosureSupportRequirement: true; + setCogSupportRequirement: true; + setSpurSupportRequirement: spurRequired; + setRequiresNewSpur64TagAssignmentRequirement: newSpur64; + setRequiresMultipleBytecodeSupport: isSpur + ! Item was changed: ----- Method: ImageFormat>>asInteger (in category 'converting') ----- asInteger "Answer an integer representation of this image format suitable for storage in an image file header. The stored value in the file header will be used when loading the image from the snapshot file." | val | val := wordSize = 4 ifTrue: [6502] ifFalse: [68000]. self requiresClosureSupport ifTrue: [val := val + 2]. self requiresNativeFloatWordOrder ifTrue: [val := val + 1]. self requiresSpurSupport ifTrue: [val := val + 2r10000]. self requiresNewSpur64TagAssignment ifTrue: [val := val + 2]. + self requiresMultipleBytecodeSupport ifTrue: [val := val + 2r1000000000]. ^val ! Item was changed: ----- Method: ImageFormat>>fromInteger: (in category 'initialize-release') ----- fromInteger: anInteger "Initialize a new instance from anInteger obtained from an image file header." | baseVersion capabilitiesBits | (anInteger bitAnd: ReservedBitsMask) ~= 0 ifTrue: [self error: 'invalid format number ', anInteger printString]. baseVersion := self baseVersionBitsOf: anInteger. ((baseVersion = 6504 or: [baseVersion = 68002]) or: [baseVersion = 68004]) ifTrue: [requiresClosureSupport := true]. (baseVersion = 6502 or: [baseVersion = 6504]) ifTrue: [wordSize := 4] ifFalse: [((baseVersion = 68000 or: [baseVersion = 68002]) or: [baseVersion = 68004]) ifTrue: [wordSize := 8. baseVersion = 68004 ifTrue: [self setRequiresNewSpur64TagAssignmentRequirement: true]] ifFalse: [self error: 'invalid format number ', anInteger printString]]. capabilitiesBits := anInteger bitAnd: CapabilitiesBitsMask. (capabilitiesBits bitAt: PlatformByteOrderBit) = 1 ifTrue: [requiresNativeFloatWordOrder := true. requiresClosureSupport ifFalse: [self error: 'Images requiring platform byte order also require closure support (Cog)']. capabilitiesBits := capabilitiesBits bitAt: PlatformByteOrderBit put: 0]. (capabilitiesBits bitAt: SpurObjectBit) = 1 ifTrue: [requiresSpurSupport := true. requiresClosureSupport ifFalse: [self error: 'Images requiring Spur also require closure support']. requiresNativeFloatWordOrder ifFalse: [self error: 'Images requiring Spur also require native float word order support']. capabilitiesBits := capabilitiesBits bitAt: SpurObjectBit put: 0]. + (capabilitiesBits bitAt: MultipleBytecodeBit) = 1 + ifTrue: [requiresMultipleBytecodeSupport := true. + capabilitiesBits := capabilitiesBits bitAt: MultipleBytecodeBit put: 0]. + "add additional capability bit handling here" capabilitiesBits == 0 ifFalse: [self error: 'invalid format number ', anInteger printString] ! Item was changed: ----- Method: ImageFormat>>initialize (in category 'initialize-release') ----- initialize requiresClosureSupport := false. requiresNativeFloatWordOrder := false. requiresSpurSupport := false. + requiresNewSpur64TagAssignment := false. + requiresMultipleBytecodeSupport := false.! - requiresNewSpur64TagAssignment := false.! Item was changed: ----- Method: ImageFormat>>printDescriptionOn: (in category 'printing') ----- printDescriptionOn: stream " The classic squeak image, aka V3, is 32-bit with magic 6502. The first 64-bit Squeak image was generated from V3 image made by Dan Ingalls and Ian Piumarta in 2005. Later, the magic code was changed to 68000. After full closure support came to Squeak, the magic code changed to 6504 for 32-bit and 68002 for 64-bit images by setting a capability bit. Cog VM introduced a native order for floats under 6505 magic code. Its corresponding 64b code would have been 68003 but no such image was produced. Older Interpreter VMs would simply load 6505 by flipping word order back. Cog VM also introduced a new object layout for 64-bit images called Spur layout under a new magic code - 68021. A few images were also generated with 68019, but this magic is now considered obsolete and deprecated. " stream nextPutAll: 'a '; nextPutAll: (wordSize * 8) asString; nextPutAll: '-bit '; nextPutAll: (self requiresSpurSupport ifTrue: [ 'Spur' ] ifFalse: [ 'V3' ]); nextPutAll: ' image with '. self requiresClosureSupport ifFalse: [stream nextPutAll: 'no ']. stream nextPutAll: 'closure support and '. self requiresNativeFloatWordOrder ifTrue: [stream nextPutAll: 'float words stored in native platform order'] ifFalse: [stream nextPutAll: 'no native platform float word order requirement']. self requiresSpurSupport ifTrue: [stream nextPutAll: ' using Spur object format'. (self is64Bit and: [self requiresNewSpur64TagAssignment not]) ifTrue: [stream nextPutAll: ' (obsolete)']]. + self requiresMultipleBytecodeSupport + ifTrue: [ stream nextPutAll: ' and Sista ' ]. stream nextPutAll: ' ('; nextPutAll: self asInteger asString; nextPut: $). ^ stream ! Item was changed: ----- Method: ImageFormat>>printTerseDescriptionOn: (in category 'printing') ----- printTerseDescriptionOn: stream "Shortened description as may be required for unix magic file entries" stream nextPutAll: self simpleName; nextPutAll: ' image '. self requiresClosureSupport ifTrue: [stream nextPutAll: '+C']. self requiresNativeFloatWordOrder ifTrue: [stream nextPutAll: '+NF']. self requiresNewSpur64TagAssignment ifTrue: [stream nextPutAll: '+Tag' ]. + self requiresMultipleBytecodeSupport ifTrue: [stream nextPutAll: '+BC' ]. stream nextPutAll: ' (%d)'. ^ stream ! Item was added: + ----- Method: ImageFormat>>requiresMultipleBytecodeSupport (in category 'testing') ----- + requiresMultipleBytecodeSupport + "True if this image contains extended bytecodes such as the Sista bytecode set. + An additional field in the image header may be used to specify a specific bytecode + or extension. If false, the image contains only the traditional bytecodes." + + ^requiresMultipleBytecodeSupport! Item was added: + ----- Method: ImageFormat>>setRequiresMultipleBytecodeSupport: (in category 'initialize-release') ----- + setRequiresMultipleBytecodeSupport: aBoolean + "True if this image contains extended bytecodes such as the Sista bytecode set. + An additional field in the image header may be used to specify a specific bytecode + or extension. If false, the image contains only the traditional bytecodes." + + requiresMultipleBytecodeSupport := aBoolean! Item was added: + ----- Method: ImageFormatTest>>testFormat68533 (in category 'testing') ----- + testFormat68533 + + | spur | + spur := ImageFormat fromInteger: 68533. + self assert: spur asInteger = 68533. + self assert: (ImageFormat wordSize: 8 spur: true multipleBytecodes: true) asInteger = 68533. + self assert: (ImageFormat fromInteger: 68533) asInteger = 68533. + self assert: spur wordSize = 8. + self assert: spur requiresClosureSupport. + self assert: spur requiresNativeFloatWordOrder. + self deny: spur is32Bit. + self assert: spur is64Bit. + self assert: spur requiresSpurSupport. + self assert: (ImageFormat fromInteger: 68533) asInteger = 68533! Item was added: + ----- Method: ImageFormatTest>>testFormat7033 (in category 'testing') ----- + testFormat7033 + + | spur | + spur := ImageFormat fromInteger: 7033. + self assert: spur asInteger = 7033. + self assert: (ImageFormat wordSize: 4 spur: true multipleBytecodes: true) asInteger = 7033. + self assert: (ImageFormat fromInteger: 7033) asInteger = 7033. + self assert: spur wordSize = 4. + self assert: spur requiresClosureSupport. + self assert: spur requiresNativeFloatWordOrder. + self assert: spur is32Bit. + self deny: spur is64Bit. + self assert: spur requiresSpurSupport. + self assert: (ImageFormat fromInteger: 7033) asInteger = 7033!

1 0

Errored: OpenSmalltalk/opensmalltalk-vm#1782 (Cog - 3918aa9)
by Travis CI 20 Jul '19

20 Jul '19

Build Update for OpenSmalltalk/opensmalltalk-vm ------------------------------------- Build: #1782 Status: Errored Duration: 1 hr, 6 mins, and 45 secs Commit: 3918aa9 (Cog) Author: Eliot Miranda Message: CogVM source as per VMMaker.oscog-eem.2536 Have primitiveNextObject fail in Spur. DTL's recent Kernel changes are good, but it's still preferrable for the primtiive to check since performance isn't an issue in Spur (we use allObjects). Have the code generator eliminate redundant assignments (aVar = aVar) which tend to be generated from Smalltalk idioms where a variable is assigned from a method taking it as a parameter that in some circumstances is a noop, e.g. assignment to latestContinuation from maybeDealWithUnsafeJumpForDescriptor:pc:latestContinuation:. This to reduce C compiler warnings. View the changeset: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/31a8d08b46e0...39… View the full build log and details: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/561293049?utm_m… -- You can unsubscribe from build emails from the OpenSmalltalk/opensmalltalk-vm repository going to https://travis-ci.org/account/preferences/unsubscribe?repository=8795279&ut…. Or unsubscribe from *all* email updating your settings at https://travis-ci.org/account/preferences/unsubscribe?utm_medium=notificati…. Or configure specific recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications.

1 0

[OpenSmalltalk/opensmalltalk-vm] 3ebd20: Use $(info ...) instead of @echo ... for printing ...
by Eliot Miranda 20 Jul '19

20 Jul '19

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 3ebd20748bb91834d8cefd54665db58b4ff0824c https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/3ebd20748bb91834d8… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2019-07-19 (Fri, 19 Jul 2019) Changed paths: M build.macos32x86/common/Makefile.app M build.macos32x86/common/Makefile.flags M build.macos32x86/common/Makefile.plugin M build.macos32x86/common/Makefile.vm M build.macos64x64/common/Makefile.app M build.macos64x64/common/Makefile.flags M build.macos64x64/common/Makefile.plugin M build.macos64x64/common/Makefile.vm M build.win32x86/common/Makefile M build.win32x86/common/Makefile.plugin M build.win64x64/common/Makefile M build.win64x64/common/Makefile.plugin Log Message: ----------- Use $(info ...) instead of @echo ... for printing settings in Makefiles. It is far more direct. [ci skip]

1 0

Fixed: OpenSmalltalk/opensmalltalk-vm#1781 (Cog - 31a8d08)
by Travis CI 20 Jul '19

20 Jul '19

Build Update for OpenSmalltalk/opensmalltalk-vm ------------------------------------- Build: #1781 Status: Fixed Duration: 3 hrs, 16 mins, and 12 secs Commit: 31a8d08 (Cog) Author: Eliot Miranda Message: Provide a main entry point for the win32 console VM when compiled using MSVC (which unlike Mingw does not synthesize a main routine). Fix a formatting snafu in sqWin32HostWindowPlugin.c. View the changeset: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/1ea727fe2e81...31… View the full build log and details: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/561258749?utm_m… -- You can unsubscribe from build emails from the OpenSmalltalk/opensmalltalk-vm repository going to https://travis-ci.org/account/preferences/unsubscribe?repository=8795279&ut…. Or unsubscribe from *all* email updating your settings at https://travis-ci.org/account/preferences/unsubscribe?utm_medium=notificati…. Or configure specific recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications.

1 0

[OpenSmalltalk/opensmalltalk-vm] 3918aa: CogVM source as per VMMaker.oscog-eem.2536
by Eliot Miranda 20 Jul '19

20 Jul '19

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 3918aa9fac1a570f41713a1768ae9589b7d9f5a8 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/3918aa9fac1a570f41… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2019-07-19 (Fri, 19 Jul 2019) Changed paths: M nsspur64src/vm/cogit.h M nsspur64src/vm/cogitX64SysV.c M nsspur64src/vm/cogitX64WIN64.c M nsspur64src/vm/cointerp.c M nsspur64src/vm/cointerp.h M nsspur64src/vm/gcc3x-cointerp.c M nsspur64src/vm/interp.h M nsspursrc/vm/cogit.h M nsspursrc/vm/cogitARMv5.c M nsspursrc/vm/cogitIA32.c M nsspursrc/vm/cogitMIPSEL.c M nsspursrc/vm/cointerp.c M nsspursrc/vm/cointerp.h M nsspursrc/vm/gcc3x-cointerp.c M nsspursrc/vm/interp.h M spur64src/vm/cogit.h M spur64src/vm/cogitX64SysV.c M spur64src/vm/cogitX64WIN64.c M spur64src/vm/cointerp.c M spur64src/vm/cointerp.h M spur64src/vm/gcc3x-cointerp.c M spur64src/vm/interp.h M spursista64src/vm/cogit.h M spursista64src/vm/cogitX64SysV.c M spursista64src/vm/cogitX64WIN64.c M spursista64src/vm/cointerp.c M spursista64src/vm/cointerp.h M spursista64src/vm/gcc3x-cointerp.c M spursista64src/vm/interp.h M spursistasrc/vm/cogit.h M spursistasrc/vm/cogitARMv5.c M spursistasrc/vm/cogitIA32.c M spursistasrc/vm/cogitMIPSEL.c M spursistasrc/vm/cointerp.c M spursistasrc/vm/cointerp.h M spursistasrc/vm/gcc3x-cointerp.c M spursistasrc/vm/interp.h M spursrc/vm/cogit.h M spursrc/vm/cogitARMv5.c M spursrc/vm/cogitIA32.c M spursrc/vm/cogitMIPSEL.c M spursrc/vm/cointerp.c M spursrc/vm/cointerp.h M spursrc/vm/gcc3x-cointerp.c M spursrc/vm/interp.h M src/plugins/B2DPlugin/B2DPlugin.c M src/plugins/BitBltPlugin/BitBltPlugin.c M src/plugins/ScratchPlugin/ScratchPlugin.c M src/vm/cogit.h M src/vm/cogitARMv5.c M src/vm/cogitIA32.c M src/vm/cogitMIPSEL.c M src/vm/cointerp.c M src/vm/cointerp.h M src/vm/cointerpmt.c M src/vm/cointerpmt.h M src/vm/gcc3x-cointerp.c M src/vm/gcc3x-cointerpmt.c M src/vm/interp.h Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2536 Have primitiveNextObject fail in Spur. DTL's recent Kernel changes are good, but it's still preferrable for the primtiive to check since performance isn't an issue in Spur (we use allObjects). Have the code generator eliminate redundant assignments (aVar = aVar) which tend to be generated from Smalltalk idioms where a variable is assigned from a method taking it as a parameter that in some circumstances is a noop, e.g. assignment to latestContinuation from maybeDealWithUnsafeJumpForDescriptor:pc:latestContinuation:. This to reduce C compiler warnings.

1 0

VM Maker: VMMaker.oscog-eem.2536.mcz
by commits＠source.squeak.org 20 Jul '19

20 Jul '19

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2536.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2536 Author: eem Time: 19 July 2019, 7:30:49.136299 pm UUID: b62bbbd8-9091-4f4a-a64e-c2d09f0863e5 Ancestors: VMMaker.oscog-eem.2535 Have primitiveNextObject fail in Spur. DTL's recent Kernel changes are good, but it's still preferrable for the primtiive to check since performance isn't an issue in Spur (we use allObjects). Have the code generator eliminate redundant assignments (aVar = aVar) which tend to be generated from Smalltalk idioms where a variable is assigned from a method taking it as a parameter that in some circumstances is a noop, e.g. assignment to latestContinuation from maybeDealWithUnsafeJumpForDescriptor:pc:latestContinuation:. =============== Diff against VMMaker.oscog-eem.2535 =============== Item was removed: - ----- Method: BlockClosure>>value:value:value:value:value: (in category '*VMMaker-conveniences') ----- - value: firstArg value: secondArg value: thirdArg value: fourthArg value: fifthArg - "Activate the receiver, creating a closure activation (MethodContext) - whose closure is the receiver and whose caller is the sender of this - message. Supply the arguments and copied values to the activation - as its arguments and copied temps. Primitive. Essential." - <primitive: 205> - | newContext | - numArgs ~= 5 ifTrue: - [self numArgsError: 5]. - false - ifTrue: "Old code to simulate the closure value primitive on VMs that lack it." - [newContext := self asContextWithSender: thisContext sender. - newContext at: 1 put: firstArg. - newContext at: 2 put: secondArg. - newContext at: 3 put: thirdArg. - newContext at: 4 put: fourthArg. - newContext at: 5 put: fifthArg. - thisContext privSender: newContext] - ifFalse: [self primitiveFailed]! Item was added: + ----- Method: CCodeGenerator>>mustBeGlobal: (in category 'C translation support') ----- + mustBeGlobal: varName + "Answer if a variable must be global and exported. Used for inst vars that are accessed from VM support code." + + ^vmClass notNil and: [vmClass mustBeGlobal: varName]! Item was changed: ----- Method: InterpreterPrimitives>>primitiveNextObject (in category 'object access primitives') ----- primitiveNextObject "Return the object following the receiver in the heap. Return the SmallInteger zero when there are no more objects." + (objectMemory hasSpurMemoryManagerAPI + and: [objectMemory isImmediate: self stackTop]) ifTrue: + [^self primitiveFailFor: PrimErrBadReceiver]. (objectMemory accessibleObjectAfter: self stackTop) ifNil: [self pop: argumentCount+1 thenPushInteger: 0] ifNotNil: [:instance| self assert: (objectMemory isInMemory: instance). self pop: argumentCount+1 thenPush: instance]! Item was changed: ----- Method: TAssignmentNode>>emitCCodeOn:level:generator: (in category 'C code generation') ----- emitCCodeOn: aStream level: level generator: aCodeGen + | selfAssignment | expression isSwitch ifTrue: [^expression emitCCodeOn: aStream addToEndOfCases: self level: level generator: aCodeGen]. expression isLiteralArrayDeclaration ifTrue: [^self emitLiteralArrayDeclarationOn: aStream level: level generator: aCodeGen]. (expression isSend and: [expression isValueExpansion]) ifTrue: [^self emitValueExpansionOn: aStream level: level generator: aCodeGen]. (expression isStmtList and: [expression statements size > 1]) ifTrue: [^self emitStatementListExpansion: expression on: aStream level: level generator: aCodeGen]. + (selfAssignment := (variable isSameAs: expression) and: [(aCodeGen mustBeGlobal: variable name) not]) ifTrue: + [aStream nextPutAll: '/* ']. variable emitCCodeOn: aStream level: level generator: aCodeGen. self isVariableUpdatingAssignment ifTrue: [aStream space; nextPutAll: expression selector; "+ or -" nextPut: $=; space. expression args first emitCCodeAsArgumentOn: aStream level: level generator: aCodeGen] ifFalse: [aStream space; nextPut: $=; space. + selfAssignment ifTrue: [aStream nextPutAll: '*/ ']. expression emitCCodeAsArgumentOn: aStream level: level generator: aCodeGen]!

1 0

[OpenSmalltalk/opensmalltalk-vm] 31a8d0: Provide a main entry point for the win32 console V...
by Eliot Miranda 20 Jul '19

20 Jul '19

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 31a8d08b46e04357838d2f1c2b4c3dc5335f90c1 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/31a8d08b46e0435783… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2019-07-19 (Fri, 19 Jul 2019) Changed paths: M platforms/win32/plugins/HostWindowPlugin/sqWin32HostWindowPlugin.c M platforms/win32/vm/sqWin32Main.c Log Message: ----------- Provide a main entry point for the win32 console VM when compiled using MSVC (which unlike Mingw does not synthesize a main routine). Fix a formatting snafu in sqWin32HostWindowPlugin.c.

1 0

$x nextObject
by Christoph Thiede 20 Jul '19

20 Jul '19

Hello, is it a known bug that the Squeak VM may crash when you perform #nextObject on any Character object? I can reproduce this issue on multiple Windows 10 machines, using SqueakCog 201810071412. I am familiar not at all with the VM implementation, but for example, after evaluating $x nextObject, the used RAM strongly reduces and after a few seconds, the process terminates. Kind regards, Christoph -- Sent from: http://forum.world.st/Squeak-VM-f104410.html

4 5

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev July 2019