Vm-dev July 2019

vm-dev@lists.squeakfoundation.org

16 participants
62 discussions

[OpenSmalltalk/opensmalltalk-vm] Creation script fixes (#412)
by aletg 20 Aug '19

20 Aug '19

Two little fixes for spur-vmmaker image creation scripts. You can view, comment on, or merge this pull request online at: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/412 -- Commit Summary -- * Added missing CPU variable initialization * Fixed bad script call -- File Changes -- M image/buildspurtrunkreader64image.sh (2) M image/envvars.sh (1) -- Patch Links -- https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/412.patch https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/412.diff -- You are receiving this because you are subscribed to this thread. Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/412

2 2

[OpenSmalltalk/opensmalltalk-vm] Support for OpenBSD (#413)
by asarch 15 Aug '19

15 Aug '19

Is it possible to build OpenSmalltalk VM for OpenBSD? If yes, how? If no, is there any other solution available? OpenBSD ports for 6.4 for AMD64 has only the 3.10-1 version available. -- You are receiving this because you are subscribed to this thread. Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/413

9 25

Errored: OpenSmalltalk/opensmalltalk-vm#1784 (Cog - a1ed45f)
by Travis CI 31 Jul '19

31 Jul '19

Build Update for OpenSmalltalk/opensmalltalk-vm ------------------------------------- Build: #1784 Status: Errored Duration: 21 mins and 39 secs Commit: a1ed45f (Cog) Author: Eliot Miranda Message: Define SQUEAK_BUILTIN_PLUGIN in the right place so that Makefile.tools can be included by plugin Makefiles. Reduce the number of implciit declarations and compiler warnings in the mpeg3 support source. Still a few more to be done, but this shows the way. View the changeset: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/478f654645a5...a1… View the full build log and details: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/565747221?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

Build failed: opensmalltalk-vm 1.0.1781
by AppVeyor 31 Jul '19

31 Jul '19

1 0

[OpenSmalltalk/opensmalltalk-vm] a1ed45: Define SQUEAK_BUILTIN_PLUGIN in the right place so...
by Eliot Miranda 31 Jul '19

31 Jul '19

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: a1ed45f3102e99d94170fa2a25df5d7d3bba3d60 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/a1ed45f3102e99d941… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2019-07-30 (Tue, 30 Jul 2019) Changed paths: M build.win32x86/common/Makefile.tools M build.win64x64/common/Makefile.tools M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/audio/header.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/audio/mpeg3audio.h M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/bitstream.h M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/changesForSqueak.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/mpeg3atrack.h M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/mpeg3io.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/mpeg3io.h M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/mpeg3private.h M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/mpeg3protos.h M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/mpeg3vtrack.h M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/video/getpicture.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/video/headers.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/video/macroblocks.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/video/motion.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/video/mpeg3video.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/video/mpeg3videoprotos.h M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/video/output.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/video/reconstruct.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/video/seek.c M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/video/slice.h M platforms/iOS/vm/OSX/sqPlatformSpecific.h M platforms/iOS/vm/iPhone/sqPlatformSpecific.h Log Message: ----------- Define SQUEAK_BUILTIN_PLUGIN in the right place so that Makefile.tools can be included by plugin Makefiles. Reduce the number of implciit declarations and compiler warnings in the mpeg3 support source. Still a few more to be done, but this shows the way.

1 0

Passed: OpenSmalltalk/opensmalltalk-vm#1783 (Cog - 478f654)
by Travis CI 25 Jul '19

25 Jul '19

Build Update for OpenSmalltalk/opensmalltalk-vm ------------------------------------- Build: #1783 Status: Passed Duration: 21 mins and 37 secs Commit: 478f654 (Cog) Author: Eliot Miranda Message: CogVm source as per VMMaker.oscog-eem.2537 Bite the bullet and embrace methodReturnString:. Better this is well implemented once in the interpreter than potentially badly implemented many times in plugins. Check the C string argument for null to avoid passing null to strlen, which can crash. View the changeset: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/3ebd20748bb9...47… View the full build log and details: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/563266477?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] 478f65: CogVm source as per VMMaker.oscog-eem.2537
by Eliot Miranda 24 Jul '19

24 Jul '19

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 478f654645a5500b64d85b0aa6e3bd77ac4e65c9 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/478f654645a5500b64… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2019-07-24 (Wed, 24 Jul 2019) Changed paths: M nsspur64src/vm/cointerp.c M nsspur64src/vm/cointerp.h M nsspur64src/vm/gcc3x-cointerp.c M nsspursrc/vm/cointerp.c M nsspursrc/vm/cointerp.h M nsspursrc/vm/gcc3x-cointerp.c M nsspurstack64src/vm/gcc3x-interp.c M nsspurstack64src/vm/interp.c M nsspurstack64src/vm/interp.h M nsspurstacksrc/vm/gcc3x-interp.c M nsspurstacksrc/vm/interp.c M nsspurstacksrc/vm/interp.h M spur64src/vm/cointerp.c M spur64src/vm/cointerp.h M spur64src/vm/cointerpmt.c M spur64src/vm/cointerpmt.h M spur64src/vm/gcc3x-cointerp.c M spur64src/vm/gcc3x-cointerpmt.c M spurlowcode64src/vm/cogit.h M spurlowcode64src/vm/cogitX64SysV.c M spurlowcode64src/vm/cogitX64WIN64.c M spurlowcode64src/vm/cointerp.c M spurlowcode64src/vm/cointerp.h M spurlowcode64src/vm/gcc3x-cointerp.c M spurlowcode64src/vm/interp.h M spurlowcodesrc/vm/cogit.c M spurlowcodesrc/vm/cogit.h M spurlowcodesrc/vm/cogitARMv5.c M spurlowcodesrc/vm/cogitIA32.c M spurlowcodesrc/vm/cogitMIPSEL.c M spurlowcodesrc/vm/cointerp.c M spurlowcodesrc/vm/cointerp.h M spurlowcodesrc/vm/gcc3x-cointerp.c M spurlowcodesrc/vm/interp.h M spurlowcodestack64src/vm/gcc3x-interp.c M spurlowcodestack64src/vm/interp.c M spurlowcodestack64src/vm/interp.h M spurlowcodestacksrc/vm/gcc3x-interp.c M spurlowcodestacksrc/vm/interp.c M spurlowcodestacksrc/vm/interp.h M spursista64src/vm/cointerp.c M spursista64src/vm/cointerp.h M spursista64src/vm/gcc3x-cointerp.c M spursistasrc/vm/cointerp.c M spursistasrc/vm/cointerp.h M spursistasrc/vm/gcc3x-cointerp.c M spursrc/vm/cointerp.c M spursrc/vm/cointerp.h M spursrc/vm/cointerpmt.c M spursrc/vm/cointerpmt.h M spursrc/vm/gcc3x-cointerp.c M spursrc/vm/gcc3x-cointerpmt.c M spurstack64src/vm/gcc3x-interp.c M spurstack64src/vm/interp.c M spurstack64src/vm/interp.h M spurstacksrc/vm/gcc3x-interp.c M spurstacksrc/vm/interp.c M spurstacksrc/vm/interp.h 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 stacksrc/vm/gcc3x-interp.c M stacksrc/vm/interp.c M stacksrc/vm/interp.h Log Message: ----------- CogVm source as per VMMaker.oscog-eem.2537 Bite the bullet and embrace methodReturnString:. Better this is well implemented once in the interpreter than potentially badly implemented many times in plugins. Check the C string argument for null to avoid passing null to strlen, which can crash.

1 0

VM Maker Inbox: VMMaker.oscog-eem.2537.mcz
by commits＠source.squeak.org 24 Jul '19

24 Jul '19

Eliot Miranda uploaded a new version of VMMaker to project VM Maker Inbox: http://source.squeak.org/VMMakerInbox/VMMaker.oscog-eem.2537.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2537 Author: eem Time: 24 July 2019, 1:01:33.831274 pm UUID: 0518f049-7c3c-4dfa-8e2d-04e2cf2eee40 Ancestors: VMMaker.oscog-eem.2536 Bite the bulklet and embrace methodReturnString:. Better this is well implemented once in the interpreter than potentially badly implemented many times in plugins. Check the C string argument for null to avoid passing null to strlen:, which can crash. =============== Diff against VMMaker.oscog-eem.2536 =============== Item was changed: ----- Method: InterpreterProxy>>methodReturnString: (in category 'stack access') ----- methodReturnString: aCString + "Attempt to answer a ByteString for a given C string as the result of a primitive." - "Sets the return value for a method." - "THIS IS DUBIOUS!! CONSIDER REMOVING IT!! RIGHT NOW IT IS NOT SENT." <var: 'aCString' type: #'char *'> + aCString + ifNil: [primFailCode := PrimErrOperationFailed] + ifNotNil: + [(self stringForCString: aCString) + ifNil: [primFailCode := PrimErrNoMemory] + ifNotNil: [:result| self pop: argumentCount+1 thenPush: result]]. - (self stringForCString: aCString) - ifNil: [primFailCode := PrimErrNoMemory] - ifNotNil: [:result| self pop: argumentCount+1 thenPush: result]. ^0! Item was changed: ----- Method: StackInterpreter>>methodReturnString: (in category 'plugin primitive support') ----- methodReturnString: aCString + "Attempt to answer a ByteString for a given C string as the result of a primitive." - "Sets the return value for a method." <var: 'aCString' type: #'char *'> + aCString + ifNil: [primFailCode := PrimErrOperationFailed] + ifNotNil: + [(self stringForCString: aCString) + ifNil: [primFailCode := PrimErrNoMemory] + ifNotNil: [:result| self pop: argumentCount+1 thenPush: result]]. - self pop: argumentCount+1 thenPush: (objectMemory stringForCString: aCString). ^0!

1 0

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

22 Jul '19

David T. Lewis uploaded a new version of ImageFormat to project VM Maker: http://source.squeak.org/VMMaker/ImageFormat-dtl.39.mcz ==================== Summary ==================== Name: ImageFormat-dtl.39 Author: dtl Time: 21 July 2019, 6:27:30.136 pm UUID: 0a6c5e4a-50d1-4d6d-b121-d1f98685c909 Ancestors: ImageFormat-dtl.38 Tidy up some explanatory comments in unit test. =============== Diff against ImageFormat-dtl.38 =============== Item was changed: ----- Method: ImageFormatTest>>testAllNewFromParameters (in category 'testing') ----- testAllNewFromParameters "ImageFormat knownVersionNumbers ==> #(6502 6504 6505 6521 7033 68000 68002 68003 68004 68019 68021 68533)" "6502" self assert: 6502 equals: (ImageFormat wordSize: 4 closures: false cog: false spur: false requiresNewSpur64TagAssignment: false multipleBytecodes: false) asInteger. "6504" self assert: 6504 equals: (ImageFormat wordSize: 4 closures: true cog: false spur: false requiresNewSpur64TagAssignment: false multipleBytecodes: false) asInteger. "6505" self assert: 6505 equals: (ImageFormat wordSize: 4 closures: true cog: true spur: false requiresNewSpur64TagAssignment: false multipleBytecodes: false) asInteger. "6521" self assert: 6521 equals: (ImageFormat wordSize: 4 closures: true cog: true spur: true requiresNewSpur64TagAssignment: false multipleBytecodes: false) asInteger. self should: [ImageFormat wordSize: 4 closures: true cog: true spur: true requiresNewSpur64TagAssignment: true "should be false for 32 bits, this was a fix for 64 bit format numbers only" multipleBytecodes: false] raise: Error whoseDescriptionIncludes: 'invalid format number 6523' description: 'requiresNewSpurt64TagAssignment should be false for 32 bits, this was a fix for 64 bit format numbers only'. "7033" self assert: 7033 equals: (ImageFormat wordSize: 4 closures: true cog: true spur: true requiresNewSpur64TagAssignment: false multipleBytecodes: true) asInteger. self should: [ImageFormat wordSize: 4 closures: true cog: true spur: true requiresNewSpur64TagAssignment: true multipleBytecodes: true] raise: Error whoseDescriptionIncludes: 'invalid format number 7035' description: 'requiresNewSpurt64TagAssignment should be false for 32 bits, this was a fix for 64 bit format numbers only'. "68000" self assert: 68000 equals: (ImageFormat wordSize: 8 closures: false cog: false spur: false requiresNewSpur64TagAssignment: false multipleBytecodes: false) asInteger. "68002" self assert: 68002 equals: (ImageFormat wordSize: 8 closures: true cog: false spur: false requiresNewSpur64TagAssignment: false multipleBytecodes: false) asInteger. "68003 is valid but has never been implemented" self assert: 68003 equals: (ImageFormat wordSize: 8 closures: true cog: true spur: false requiresNewSpur64TagAssignment: false multipleBytecodes: false) asInteger. + "68004 is valid but has never been implemented. + For pre-Spur, 68003 would probably be the preferred format + number choice, but either would be fine." + self assert: 68004 equals: (ImageFormat - "68004 FIXME should not be allowed" - self assert: 68004 equals: (ImageFormat "FIXME" wordSize: 8 closures: true cog: false spur: false requiresNewSpur64TagAssignment: true multipleBytecodes: false) asInteger. "68019 is valid but obsolete, replaced by 68021" self assert: 68019 equals: (ImageFormat wordSize: 8 closures: true cog: true spur: true requiresNewSpur64TagAssignment: false multipleBytecodes: false) asInteger. "68021" self assert: 68021 equals: (ImageFormat wordSize: 8 closures: true cog: true spur: true requiresNewSpur64TagAssignment: true multipleBytecodes: false) asInteger. "68531 is not used" self should: [ImageFormat wordSize: 8 closures: true cog: true spur: true requiresNewSpur64TagAssignment: false multipleBytecodes: true] raise: Error whoseDescriptionIncludes: 'invalid format number 68531' description: '68531 is obsolete, use 68533 instead'. "68533" + self assert: 68533 equals: (ImageFormat - self assert: 68533 equals: (ImageFormat "FIXME pick one please" wordSize: 8 closures: true cog: true spur: true requiresNewSpur64TagAssignment: true multipleBytecodes: true) asInteger. !

1 0

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

22 Jul '19

David T. Lewis uploaded a new version of ImageFormat to project VM Maker: http://source.squeak.org/VMMaker/ImageFormat-dtl.38.mcz ==================== Summary ==================== Name: ImageFormat-dtl.38 Author: dtl Time: 21 July 2019, 6:13:57.417 pm UUID: 37b709f4-a01d-48ea-8750-70eb5b194751 Ancestors: ImageFormat-dtl.37 More unit tests and consistency checks for image format numbers. =============== Diff against ImageFormat-dtl.37 =============== 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: 'the multiple bytecode bit for Sista'.. 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 added: + ----- Method: ImageFormat class>>wordSize:closures:cog:spur:requiresNewSpur64TagAssignment:multipleBytecodes: (in category 'instance creation') ----- + wordSize: bytesPerWord closures: closuresRequired cog: cogRequired spur: spurRequired requiresNewSpur64TagAssignment: newSpur64 multipleBytecodes: isSista + + | fmt | + fmt := (self wordSize: bytesPerWord) + setCogSupportRequirement: cogRequired; + setClosureSupportRequirement: closuresRequired; "may override cog default set above" + setSpurSupportRequirement: spurRequired; + setRequiresNewSpur64TagAssignmentRequirement: newSpur64; + setRequiresMultipleBytecodeSupport: isSista. + fmt isValidVersionNumber ifFalse: [ self error: 'invalid format number ', fmt asInteger printString ]. + ^ fmt. + + ! Item was changed: ----- Method: ImageFormat class>>wordSize:spur:requiresNewSpur64TagAssignment:multipleBytecodes: (in category 'instance creation') ----- + wordSize: bytesPerWord spur: spurRequired requiresNewSpur64TagAssignment: newSpur64 multipleBytecodes: isSista - wordSize: bytesPerWord spur: spurRequired requiresNewSpur64TagAssignment: newSpur64 multipleBytecodes: isSpur + ^ self wordSize: bytesPerWord + closures: true + cog: true + spur: spurRequired + requiresNewSpur64TagAssignment: newSpur64 + multipleBytecodes: isSista - ^(self wordSize: bytesPerWord) - setClosureSupportRequirement: true; - setCogSupportRequirement: true; - setSpurSupportRequirement: spurRequired; - setRequiresNewSpur64TagAssignmentRequirement: newSpur64; - setRequiresMultipleBytecodeSupport: isSpur ! Item was added: + ----- Method: ImageFormat>>isDeprecated (in category 'private') ----- + isDeprecated + + "On 64 bit, the requiresNewSpur64TagAssignment bit must be set for all + format numbers higher than 68019, otherwise consider the format number + to be unused and deprecated. On 32 bit, the requiresNewSpur64TagAssignment + bit should never be set. The requiresNewSpur64TagAssignment is a hack + to account for some numbering confusion in early Spur 64 bit VM releases." + ^ wordSize = 8 + ifTrue: [ self asInteger > 68019 + and: [requiresNewSpur64TagAssignment not ] ] + ifFalse: [ requiresNewSpur64TagAssignment ] + ! Item was changed: ----- Method: ImageFormat>>isValidVersionNumber (in category 'private') ----- isValidVersionNumber "True if the version number uses a known base version number and does not use any reserved bits. Used only for unit tests, by definition this must always be true." + ^((BaseVersionNumbers includes: self baseVersionBits) + and: [(self asInteger bitAnd: ReservedBitsMask) = 0]) + and: [self isDeprecated not]! - ^(BaseVersionNumbers includes: self baseVersionBits) - and: [(self asInteger bitAnd: ReservedBitsMask) = 0]! Item was added: + ----- Method: ImageFormatTest>>testAllNewFromParameters (in category 'testing') ----- + testAllNewFromParameters + + "ImageFormat knownVersionNumbers ==> #(6502 6504 6505 6521 7033 68000 68002 68003 68004 68019 68021 68533)" + + "6502" + self assert: 6502 equals: (ImageFormat + wordSize: 4 + closures: false + cog: false + spur: false + requiresNewSpur64TagAssignment: false + multipleBytecodes: false) asInteger. + "6504" + self assert: 6504 equals: (ImageFormat + wordSize: 4 + closures: true + cog: false + spur: false + requiresNewSpur64TagAssignment: false + multipleBytecodes: false) asInteger. + "6505" + self assert: 6505 equals: (ImageFormat + wordSize: 4 + closures: true + cog: true + spur: false + requiresNewSpur64TagAssignment: false + multipleBytecodes: false) asInteger. + "6521" + self assert: 6521 equals: (ImageFormat + wordSize: 4 + closures: true + cog: true + spur: true + requiresNewSpur64TagAssignment: false + multipleBytecodes: false) asInteger. + self should: [ImageFormat + wordSize: 4 + closures: true + cog: true + spur: true + requiresNewSpur64TagAssignment: true "should be false for 32 bits, this was a fix for 64 bit format numbers only" + multipleBytecodes: false] + raise: Error + whoseDescriptionIncludes: 'invalid format number 6523' + description: 'requiresNewSpurt64TagAssignment should be false for 32 bits, this was a fix for 64 bit format numbers only'. + "7033" + self assert: 7033 equals: (ImageFormat + wordSize: 4 + closures: true + cog: true + spur: true + requiresNewSpur64TagAssignment: false + multipleBytecodes: true) asInteger. + self should: [ImageFormat + wordSize: 4 + closures: true + cog: true + spur: true + requiresNewSpur64TagAssignment: true + multipleBytecodes: true] + raise: Error + whoseDescriptionIncludes: 'invalid format number 7035' + description: 'requiresNewSpurt64TagAssignment should be false for 32 bits, this was a fix for 64 bit format numbers only'. + "68000" + self assert: 68000 equals: (ImageFormat + wordSize: 8 + closures: false + cog: false + spur: false + requiresNewSpur64TagAssignment: false + multipleBytecodes: false) asInteger. + "68002" + self assert: 68002 equals: (ImageFormat + wordSize: 8 + closures: true + cog: false + spur: false + requiresNewSpur64TagAssignment: false + multipleBytecodes: false) asInteger. + "68003 is valid but has never been implemented" + self assert: 68003 equals: (ImageFormat + wordSize: 8 + closures: true + cog: true + spur: false + requiresNewSpur64TagAssignment: false + multipleBytecodes: false) asInteger. + "68004 FIXME should not be allowed" + self assert: 68004 equals: (ImageFormat "FIXME" + wordSize: 8 + closures: true + cog: false + spur: false + requiresNewSpur64TagAssignment: true + multipleBytecodes: false) asInteger. + "68019 is valid but obsolete, replaced by 68021" + self assert: 68019 equals: (ImageFormat + wordSize: 8 + closures: true + cog: true + spur: true + requiresNewSpur64TagAssignment: false + multipleBytecodes: false) asInteger. + "68021" + self assert: 68021 equals: (ImageFormat + wordSize: 8 + closures: true + cog: true + spur: true + requiresNewSpur64TagAssignment: true + multipleBytecodes: false) asInteger. + "68531 is not used" + self should: [ImageFormat + wordSize: 8 + closures: true + cog: true + spur: true + requiresNewSpur64TagAssignment: false + multipleBytecodes: true] + raise: Error + whoseDescriptionIncludes: 'invalid format number 68531' + description: '68531 is obsolete, use 68533 instead'. + "68533" + self assert: 68533 equals: (ImageFormat "FIXME pick one please" + wordSize: 8 + closures: true + cog: true + spur: true + requiresNewSpur64TagAssignment: true + multipleBytecodes: true) asInteger. + + + + + !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev July 2019