Vm-dev September 2012

vm-dev@lists.squeakfoundation.org

26 participants
73 discussions

Re: Issue 66 in cog: CMake should set up to use gcc in Lion
by cog＠googlecode.com 07 Sep '12

07 Sep '12

Updates: Status: Accepted Comment #11 on issue 66 by camillob...(a)gmail.com: CMake should set up to use gcc in Lion http://code.google.com/p/cog/issues/detail?id=66 It does not make sense to hardcode gcc in the CMake config. You can simply set a ENV var (as mentioned in HOWTOBUILD). Now the build fails under 10.8 since there is no more gcc-4.2. Removing the hardcoded link makes the build succeed

1 9

FreeBSD port lang/squeak: 4.4.7_2 - invalid UTF8 - UTF8TextConverter class>> errorMalFormedInput:
by Takeshi MUTOH 06 Sep '12

06 Sep '12

Hi, I'm a maintainer of FreeBSD port lang/squeak. I receive a serious problem report below: - http://www.freebsd.org/cgi/query-pr.cgi?pr=ports/171291 In this problem report, only open browser with Form class, raise debugger "invalid UTF8 - UTF8TextConverter class>> errorMalFormedInput:". Full SqueakDebug.log is here: - http://qml.610t.org/squeak/mutoh_20120904.files/SqueakDebug.log I can repeat this problem with FreeBSD port VM. Some other VMs don't have this problem below. - Version 4.3 at MacOS X 10.8.1 -- http://ftp.squeak.org/4.3/Squeak-4.3-All-in-One.zip - 4.4.7-2357 VM at Debian Linux - 4.4.7-2357 VM at FreeBSD http://squeakvm.org/ -- http://squeakvm.org/unix/release/Squeak-4.4.7.2375-freebsd8.2_i386.tar.gz There is this problem at FreeBSD port VM, but not squeakvm.org VM. So I try to find difference both VMs. FreeBSD port VM build log is here: - http://qml.610t.org/squeak/mutoh_20120904.files/squeak.20120906.txt If there are some idea to fix this problem, any information is welcome. Thanks in advance. -- Takeshi MUTOH <mutoh(a)610t.org>

2 3

Changing my mailing list subscription
by Andreas.Raab 06 Sep '12

06 Sep '12

Hi Guys, Just as an FYI, with the recent increase in traffic from the Cog tracker I decided to no longer actively receive email from vm-dev. This isn't a big loss to you as I haven't been active anyway in a long time and I still will (time permitting) occasionally look at what's going on through the Nabble forums. The only reason I'm sending this email is that in the unlikely event you want my input on something specifically, you should include me directly on cc rather than assuming that sending an email to vm-dev will be sufficient to catch my attention. BTW, this isn't a comment on the usefulness of the Cog issue tracker emails or the other notifications. I'm just trying to reduce the amount of my incoming email by a little. Cheers, - Andreas -- View this message in context: http://forum.world.st/Changing-my-mailing-list-subscription-tp4645995.html Sent from the Squeak VM mailing list archive at Nabble.com.

9 12

VM Maker: CMakeVMMaker-EstebanLorenzano.176.mcz
by commits＠source.squeak.org 05 Sep '12

05 Sep '12

Esteban Lorenzano uploaded a new version of CMakeVMMaker to project VM Maker: http://source.squeak.org/VMMaker/CMakeVMMaker-EstebanLorenzano.176.mcz ==================== Summary ==================== Name: CMakeVMMaker-EstebanLorenzano.176 Author: EstebanLorenzano Time: 5 September 2012, 8:13:57.119 pm UUID: 390372d5-ca3c-4829-9c94-128a3c62881a Ancestors: CMakeVMMaker-IgorStasenko.175 - changes for iOS and freetype2 =============== Diff against CMakeVMMaker-IgorStasenko.175 =============== Item was changed: + ----- Method: CMFreetype2 class>>canonicalName (in category 'accessing') ----- - ----- Method: CMFreetype2 class>>canonicalName (in category 'as yet unclassified') ----- canonicalName ^ 'freetype2'! Item was added: + CMOSXFreetype2 subclass: #CMIOSFreetype2 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CMakeVMMaker-Libs'! Item was added: + ----- Method: CMIOSFreetype2>>copyArtefacts (in category 'generating actions') ----- + copyArtefacts + + gen puts: + 'add_custom_command( + OUTPUT "${externalModulesDir}/${libraryFileName}" + DEPENDS "${ft2libInstalled}" + )'! Item was added: + ----- Method: CMIOSFreetype2>>defineGlobalTargets (in category 'generating actions') ----- + defineGlobalTargets + | var | + var := self canonicalName , '_LIB'. + vmGen set: var toString: self libraryFileName. + " + define a library as imported one + and make it depend from it's build target + " + vmGen + puts: + ('add_library("{1}" STATIC IMPORTED GLOBAL) + set_target_properties("{1}" PROPERTIES IMPORTED_LOCATION "{1}") + add_dependencies("{1}" "{2}") + ' format: { '${',var, '}' . self buildTarget } + ). + + vmGen cmd: 'add_dependencies' params: + vmGen moduleName , ' ' , self buildTarget! Item was added: + ----- Method: CMIOSFreetype2>>libraryFileName (in category 'package properties') ----- + libraryFileName + ^'libfreetype.a'! Item was added: + ----- Method: CMIOSFreetype2>>targetForLinking (in category 'exports') ----- + targetForLinking + "Answer a target or path to library to link with, which can be used by + external plugins or VM module" + + ^ '${ft2libInstalled}/', self libraryFileName! Item was changed: + ----- Method: CMOSXFreetype2 class>>platformName (in category 'accessing') ----- - ----- Method: CMOSXFreetype2 class>>platformName (in category 'as yet unclassified') ----- platformName ^'iOS'! Item was added: + ----- Method: CMOSXFreetype2 class>>supports: (in category 'as yet unclassified') ----- + supports: aConfig + ^self = aConfig freetypeLibClass! Item was changed: + ----- Method: CMThirdpartyLibrary class>>canonicalName (in category 'accessing') ----- - ----- Method: CMThirdpartyLibrary class>>canonicalName (in category 'as yet unclassified') ----- canonicalName "answer the library canonical name, like 'freetype2' or 'cairo' etc. Note , this method is used to find the corresponding library from all subclasses of CMThirdpartyLibrary " ^ self subclassResponsibility! Item was changed: + ----- Method: CMThirdpartyLibrary class>>named:config: (in category 'instance creation') ----- - ----- Method: CMThirdpartyLibrary class>>named:config: (in category 'as yet unclassified') ----- named: aName config: aCPlatformConfig ^ (self allSubclasses detect: [:cls | cls canonicalName = aName and: [ cls supports: aCPlatformConfig ] ]) new! Item was changed: + ----- Method: CMThirdpartyLibrary class>>platformName (in category 'accessing') ----- - ----- Method: CMThirdpartyLibrary class>>platformName (in category 'as yet unclassified') ----- platformName ^nil! Item was changed: ----- Method: CPlatformConfig>>addThirdpartyLibrary: (in category 'thirdparty libs') ----- addThirdpartyLibrary: libName | libs lib | libs := self thirdpartyLibs. + lib := libs + detect: [:each | each canonicalName = libName and: [ each supports: self ] ] + ifNone: [ nil ]. + + lib ifNil: [ - lib := libs detect: [:each | each canonicalName = libName] ifNone: [ nil ]. - - lib ifNil: [ lib := (CMThirdpartyLibrary named: libName config: self). + "add dependencies first, so thirpartyLibs collection will be naturally dependency sorted" + lib dependencies do: [:dep | self addThirdpartyLibrary: dep ]. + libs add: lib ]. + - "add dependencies first, so thirpartyLibs collection will be naturally dependency sorted" - lib dependencies do: [:dep | self addThirdpartyLibrary: dep ]. - libs add: lib. - ]. - ^ lib! Item was added: + ----- Method: CocoaIOSConfig>>freetypeLibClass (in category 'accessing') ----- + freetypeLibClass + ^CMOSXFreetype2! Item was changed: ----- Method: StackIPhoneConfig>>architecture (in category 'accessing') ----- architecture + ^'armv7'! - ^'armv6'! Item was changed: ----- Method: StackIPhoneConfig>>configureFT2Plugin: (in category 'plugin extra rules') ----- configureFT2Plugin: maker "extra rules for Freetype plugin. a custom rule to build freetype library" | lib devRoot sdkRoot | + "maker isExternal + ifFalse: [ self error: 'building internal FT2Plugin is not supported yet' ]." - maker isExternal - ifFalse: [ self error: 'building internal FT2Plugin is not supported yet' ]. devRoot := '/Applications/Xcode.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer'. sdkRoot := '{devRoot}/SDKs/iPhoneOS{sdkVersion}.sdk' nameFormat: {'devRoot'->devRoot. 'sdkVersion'->self sdkVersion} asDictionary. "add freetype library into loop" lib := self addThirdpartyLibrary: 'freetype2'. lib configurationFlags: ({ + '--without-zlib'. + '--without-bzip2'. '--host=arm-apple-darwin'. '--enable-static=yes'. + '--enable-shared=no'. - '--enable-shared=yes'. 'CC={devRoot}/usr/bin/gcc'. 'CXX={devRoot}/usr/bin/g++'. + 'CFLAGS=\\"-arch armv7 -std=c99 -Wno-trigraphs -O2 -fwrapv -Wreturn-type -Wunused-variable -fmessage-length=0 -miphoneos-version-min=4.0 -I{sdkRoot}/usr/include/libxml2 -isysroot {sdkRoot}\\"'. + 'LDFLAGS=\\"-arch armv7 -isysroot {sdkRoot}\\"'} - "'AR={devRoot}/usr/bin/ld'." - 'CFLAGS=\\"-arch armv6 -std=c99 -Wno-trigraphs -O2 -fwrapv -Wreturn-type -Wunused-variable -fmessage-length=0 -miphoneos-version-min=4.0 -I{sdkRoot}/usr/include/libxml2 -isysroot {sdkRoot}\\"'. - 'LDFLAGS=\\"-arch armv6 -isysroot {sdkRoot}\\"'} collect: [ :each | each nameFormat: {'sdkRoot'->sdkRoot. 'devRoot'->devRoot} asDictionary ]). "maker set: 'XCODE_ATTRIBUTE_CONFIGURATION_BUILD_DIR' toString: ''." "link plugin with freetype lib" + maker addExternalLibrary: '${thirdpartyDir}/out/lib/', lib libraryFileName. - maker addExternalLibrary: lib targetForLinking. maker includeDirectories: lib includeDir. ! Item was added: + ----- Method: StackIPhoneConfig>>freetypeLibClass (in category 'accessing') ----- + freetypeLibClass + ^CMIOSFreetype2!

1 0

Re: [squeak-dev] trap for dirty image works in FreeBSD
by Bert Freudenberg 05 Sep '12

05 Sep '12

On 2012-09-05, at 05:29, Gary Dunn <garydunnhi(a)gmail.com> wrote: > Awhile back I was trying to solve the issue where FreeBSD let me > logout without exiting Squeak, and with no warning. This would cause > significant corruption of the open image. Very easy mistake to make > with Squeak open on a different desktop. To fix this I needed to > modify the VM, but I could not compile the VM source on FreeBSD due to > the GPL licensing issue with gcc. Part of the solution would involve > Gnome code, borrowed from other programs such as gedit, because I had > settled on Gnome for my desktop environment. > > For my "new" box I decided to try a more traditional approach, no > Gnome and no KDE, just a window manager. Being a sucker for glitz I > decided to give Enlightenment a try. I am happy to report that in this > combination the logoff trap works correctly. If I logoff with Squeak > open I get Squeak's "save changes" dialog, and if I select Cancel > Enlightenment offers to stop the logoff. > > Don't know if some enterprising VM hacker fixed it, but if so, thanks! The Squeak VM still does not handle X session management events, but it does handle X window close. I guess Enlightenment falls back onto this older mechanism if an application does not react to the session protocol, and just sends a close event, and waits for the app to quit. We put that in back in 2007 as part of the OLPC Etoys changes. Formerly pressing the X on the window frame just killed the image. Now it instead sends an event to the image, which handles it, usually by putting up the "save changes?" dialog. You can override this by registering your own event handler (see windowEventHandler:). To make this work with other window managers I guess we would need to handle (part of) the X Session Management protocol [*] in the VM. Patches welcome :) - Bert - [*] http://www.x.org/releases/X11R7.7/doc/libSM/xsmp.html

1 0

VM Maker: CMakeVMMaker-IgorStasenko.173.mcz
by commits＠source.squeak.org 03 Sep '12

03 Sep '12

Igor Stasenko uploaded a new version of CMakeVMMaker to project VM Maker: http://source.squeak.org/VMMaker/CMakeVMMaker-IgorStasenko.173.mcz ==================== Summary ==================== Name: CMakeVMMaker-IgorStasenko.173 Author: IgorStasenko Time: 3 September 2012, 6:17:57.164 pm UUID: a394422a-ae17-4430-aa7b-abf7f2a25724 Ancestors: CMakeVMMaker-EstebanLorenzano.170 added a build script generation protocol. a config must answer a string from #buildScript message, this string will be placed into build/build.sh bash script file, which users then can just run to build everything. =============== Diff against CMakeVMMaker-EstebanLorenzano.170 =============== Item was changed: ----- Method: CMakeVMGenerator>>generate (in category 'code generation') ----- generate | intPlugins extPlugins | output := String new writeStream. config setGlobalOptions: self. self printHeader; project: config executableName. config setupDirectories: self. + - self message: '${CMAKE_MODULE_PATH}'. self set: 'CMAKE_CONFIGURATION_TYPES' to: 'Release'. config preferredIncludes do: [ :each | self includeDirectories: each ]. self includeDirectories: self includeDirs. config standardIncludes do: [:each | self includeDirectories: each ]. self addDefinitions: config compilerFlags. config extraVMSettings: self. self puts: 'add_executable(' , config executableName, ' ', config executableType, ' ' , self sources , ')'. intPlugins := self generatePluginConfigs: config internalPlugins internal: true. extPlugins := self generatePluginConfigs: config externalPlugins internal: false. self processThirdpartyLibraries. - - self processPlugins: intPlugins, extPlugins. config setExtraTargetProperties: self. self cmd: 'target_link_libraries' params: self moduleName , ' ${LINKLIBS}'. config postBuildActions: self. self saveFile. + self generateBuildScript.! - ! Item was added: + ----- Method: CMakeVMGenerator>>generateBuildScript (in category 'build script') ----- + generateBuildScript + + (self buildDir forceNewFileNamed: 'build.sh') nextPutAll: (config fixLineEndsOf: config buildScript); close. + ! Item was added: + ----- Method: CPlatformConfig>>buildScript (in category 'build script') ----- + buildScript + "answer the build script for building everything" + + + ^ + '#!!bash + ../codegen-scripts/extract-commit-info.sh + cmake . + make + + '! Item was added: + ----- Method: CogFamilyUnixConfig>>buildScript (in category 'build script') ----- + buildScript + "answer the build script for building everything" + + + ^ + '#!!bash + ../codegen-scripts/extract-commit-info.sh + cmake . + make + + '! Item was added: + ----- Method: CogFamilyWindowsConfig>>buildScript (in category 'as yet unclassified') ----- + buildScript + "answer the build script for building everything" + + + ^ + '#!!bash + ../codegen-scripts/extract-commit-info.sh + cmake -G "MSYS Makefiles" . + make + + '! Item was added: + ----- Method: MacOSConfig>>buildScript (in category 'build script') ----- + buildScript + "answer the build script for building everything" + + + ^ + '#!!bash + ../codegen-scripts/extract-commit-info.sh + cmake . + make + make install + + '!

1 0

Re: Issue 53 in cog: Rename CogVM.app
by cog＠googlecode.com 03 Sep '12

03 Sep '12

Comment #2 on issue 53 by siguc...(a)gmail.com: Rename CogVM.app http://code.google.com/p/cog/issues/detail?id=53 carbon VMs no longer officially supported shall we close this?

1 2

Issue 95 in cog: [Enh] Pointers only via STRONG references
by cog＠googlecode.com 02 Sep '12

02 Sep '12

Status: Accepted Owner: siguc...(a)gmail.com Labels: Type-Enhancement Priority-Medium New issue 95 by siguc...(a)gmail.com: [Enh] Pointers only via STRONG references http://code.google.com/p/cog/issues/detail?id=95 adds a new tool 'Strong pointer explorer' which in contrast to regular pointer explorer, shows only strong references to object(s). Available via context menu in inspector and explorer. You should do: StrongPointerExplorer registerToolsOn: Smalltalk tools after installing the code Attachments: strong-pointer-explorer.cs 4.5 KB

2 1

VM Maker: VMMaker-dtl.287.mcz
by commits＠source.squeak.org 02 Sep '12

02 Sep '12

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.287.mcz ==================== Summary ==================== Name: VMMaker-dtl.287 Author: dtl Time: 2 September 2012, 10:33:04.159 am UUID: 486209ad-7082-4e05-84a9-f37c4c6ba622 Ancestors: VMMaker-dtl.286 VMMaker 4.10.2 Remove unnecessary type declarations added in the last update (4.10.1). Rationale: Do not declare oop as usqInt unless there is a need to do so. Arguably, all oop values should be unsigned throughout the VM, and this should be declared as a specific oop data type independent of sqInt and usqInt. But this is a more general issue throughout the VM, meanwhile the explicit declarations of oop values as usqInt have no practical effect. Remove some unneeded <inline: false> declarations. =============== Diff against VMMaker-dtl.286 =============== Item was changed: ----- Method: InterpreterPrimitives>>isNegativeIntegerValueOf: (in category 'primitive support') ----- isNegativeIntegerValueOf: oop + "Answer true if integer object is negative. - "Answer 1 if integer object is negative, 0 otherwise. Fail if object pointed by oop i not an integer." | ok smallInt | + - <inline: false> - <returnTypeC: #usqInt> - <var: #smallInt type: #sqInt> - (objectMemory isIntegerObject: oop) ifTrue: [smallInt := objectMemory integerValueOf: oop. ^smallInt < 0]. ok := objectMemory isClassOfNonImm: oop equalTo: (objectMemory splObj: ClassLargePositiveInteger) compactClassIndex: ClassLargePositiveIntegerCompactIndex. ok ifTrue: [^false]. ok := objectMemory isClassOfNonImm: oop equalTo: (objectMemory splObj: ClassLargeNegativeInteger) compactClassIndex: ClassLargeNegativeIntegerCompactIndex. ok ifTrue: [^true]. self primitiveFail. ^false! Item was changed: ----- Method: InterpreterPrimitives>>magnitude64BitIntegerFor:neg: (in category 'primitive support') ----- magnitude64BitIntegerFor: magnitude neg: isNegative "Return a Large Integer object for the given integer magnitude and sign" | newLargeInteger largeClass intValue highWord sz isSmall smallVal | - <inline: false> <var: 'magnitude' type: 'usqLong'> - <var: 'isNegative' type: 'usqInt'> <var: 'highWord' type: 'usqInt'> - <var: 'isSmall' type: 'usqInt'> - <var: 'smallVal' type: 'sqInt'> isSmall := isNegative ifTrue: [magnitude <= 16r40000000] ifFalse: [magnitude < 16r40000000]. isSmall ifTrue: [smallVal := self cCoerce: magnitude to: #sqInt. isNegative ifTrue: [smallVal := 0 - smallVal]. ^self integerObjectOf: smallVal]. isNegative ifTrue:[ largeClass := self classLargeNegativeInteger] ifFalse:[ largeClass := self classLargePositiveInteger]. highWord := self cCode: 'magnitude >> 32'. "shift is coerced to usqInt otherwise" highWord = 0 ifTrue: [sz := 4] ifFalse:[ sz := 5. (highWord := highWord >> 8) = 0 ifFalse:[sz := sz + 1]. (highWord := highWord >> 8) = 0 ifFalse:[sz := sz + 1]. (highWord := highWord >> 8) = 0 ifFalse:[sz := sz + 1]. ]. newLargeInteger := self instantiateClass: largeClass indexableSize: sz. 0 to: sz-1 do: [:i | intValue := self cCode: '(magnitude >> (i * 8)) & 255'. self storeByte: i ofObject: newLargeInteger withValue: intValue]. ^ newLargeInteger! Item was changed: ----- Method: InterpreterPrimitives>>magnitude64BitValueOf: (in category 'primitive support') ----- magnitude64BitValueOf: oop "Convert the given object into an integer value. The object may be either a positive SmallInteger or a eight-byte LargeInteger." | sz value ok smallIntValue | - <inline: false> <returnTypeC: #usqLong> <var: #value type: #usqLong> + - <var: #smallIntValue type: #sqInt> (objectMemory isIntegerObject: oop) ifTrue: [smallIntValue := (objectMemory integerValueOf: oop). smallIntValue < 0 ifTrue: [smallIntValue := 0 - smallIntValue]. ^self cCoerce: smallIntValue to: #usqLong]. ok := objectMemory isClassOfNonImm: oop equalTo: (objectMemory splObj: ClassLargePositiveInteger) compactClassIndex: ClassLargePositiveIntegerCompactIndex. ok ifFalse: [ok := objectMemory isClassOfNonImm: oop equalTo: (objectMemory splObj: ClassLargeNegativeInteger) compactClassIndex: ClassLargeNegativeIntegerCompactIndex. ok ifFalse: [^self primitiveFail]]. sz := objectMemory lengthOf: oop. sz > (self sizeof: #sqLong asSymbol) ifTrue: [^self primitiveFail]. value := 0. 0 to: sz - 1 do: [:i | value := value + ((self cCoerce: (objectMemory fetchByte: i ofObject: oop) to: #sqLong) << (i*8))]. ^value! Item was changed: ----- Method: InterpreterPrimitives>>primitiveAddLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveAddLargeIntegers "Primitive arithmetic operations for large integers in 64 bit range" | a b result oopResult aIsNegative bIsNegative resultIsNegative oopArg oopRcvr | <export: true> <var: 'a' type: 'usqLong'> <var: 'b' type: 'usqLong'> <var: 'result' type: 'usqLong'> - <var: 'oopArg' type: 'usqInt'> - <var: 'oopRcvr' type: 'usqInt'> - <var: 'oopResult' type: 'usqInt'> - <var: 'aIsNegative' type: 'usqInt'> - <var: 'bIsNegative' type: 'usqInt'> - <var: 'resultIsNegative' type: 'usqInt'> oopArg := self stackValue: 0. oopRcvr := self stackValue: 1. aIsNegative := self isNegativeIntegerValueOf: oopRcvr. bIsNegative := self isNegativeIntegerValueOf: oopArg. a := self magnitude64BitValueOf: oopRcvr. b := self magnitude64BitValueOf: oopArg. self successful ifFalse:[^nil]. (aIsNegative = bIsNegative) ifTrue: ["Protect against overflow" a > (16rFFFFFFFFFFFFFFFF - b) ifTrue: [self primitiveFail. ^nil]. result := a + b. resultIsNegative := aIsNegative] ifFalse: [(a >= b) ifTrue: [result := a - b. resultIsNegative := aIsNegative] ifFalse: [result := b - a. resultIsNegative := bIsNegative]]. oopResult := self magnitude64BitIntegerFor: result neg: resultIsNegative. self successful ifTrue:[self pop: 2 thenPush: oopResult].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveBitShiftLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveBitShiftLargeIntegers "Primitive arithmetic operations for large integers in 64 bit range" | a shift result oopResult aIsNegative oopRcvr | <export: true> <var: 'a' type: 'usqLong'> - <var: 'shift' type: 'sqInt'> <var: 'result' type: 'usqLong'> - <var: 'oopRcvr' type: 'usqInt'> - <var: 'oopResult' type: 'usqInt'> - <var: 'aIsNegative' type: 'usqInt'> shift := self stackIntegerValue: 0. oopRcvr := self stackValue: 1. aIsNegative := self isNegativeIntegerValueOf: oopRcvr. a := self magnitude64BitValueOf: oopRcvr. self successful ifFalse:[^nil]. (shift >= 0) ifTrue: ["Protect against overflow" result := 16rFFFFFFFFFFFFFFFF. "This is to avoid undue (usqInt) cast" (shift >= 64 or: [a > (result >> shift)]) ifTrue: [self primitiveFail. ^nil]. result := a << shift] ifFalse: [shift := 0 - shift. shift >= 64 ifTrue: [result := 0] ifFalse: [result := a >> shift]. "Fake 2 complement for negative values" (aIsNegative and: [result << shift ~= a]) ifTrue: [result := result + 1]]. oopResult := self magnitude64BitIntegerFor: result neg: aIsNegative. self successful ifTrue:[self pop: 2 thenPush: oopResult].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveDivLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveDivLargeIntegers "Primitive arithmetic operations for large integers in 64 bit range" | result oopResult a aIsNegative b bIsNegative oopArg oopRcvr rem | <export: true> <var: 'a' type: 'usqLong'> <var: 'b' type: 'usqLong'> <var: 'result' type: 'usqLong'> <var: 'rem' type: 'usqLong'> - <var: 'oopArg' type: 'usqInt'> - <var: 'oopRcvr' type: 'usqInt'> - <var: 'oopResult' type: 'usqInt'> - <var: 'aIsNegative' type: 'usqInt'> - <var: 'bIsNegative' type: 'usqInt'> oopArg := self stackValue: 0. oopRcvr := self stackValue: 1. aIsNegative := self isNegativeIntegerValueOf: oopRcvr. bIsNegative := self isNegativeIntegerValueOf: oopArg. a := self magnitude64BitValueOf: oopRcvr. b := self magnitude64BitValueOf: oopArg. b = 0 ifTrue:[self primitiveFail]. self successful ifFalse:[^nil]. result := a // b. a = 0 ifFalse: [bIsNegative = aIsNegative ifFalse: ["Round toward negative infinity" rem := a \\ b. rem = 0 ifFalse: ["This can not overflow, because b > 1, otherwise rem = 0" result := result + 1]]]. oopResult := self magnitude64BitIntegerFor: result neg: bIsNegative ~= aIsNegative. self successful ifTrue: [self pop: 2 thenPush: oopResult].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveDivideLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveDivideLargeIntegers "Primitive arithmetic operations for large integers in 64 bit range" | a b result oopResult aIsNegative bIsNegative oopArg oopRcvr | <export: true> <var: 'a' type: 'usqLong'> <var: 'b' type: 'usqLong'> <var: 'result' type: 'usqLong'> - <var: 'oopArg' type: 'usqInt'> - <var: 'oopRcvr' type: 'usqInt'> - <var: 'oopResult' type: 'usqInt'> - <var: 'aIsNegative' type: 'usqInt'> - <var: 'bIsNegative' type: 'usqInt'> oopArg := self stackValue: 0. oopRcvr := self stackValue: 1. aIsNegative := self isNegativeIntegerValueOf: oopRcvr. bIsNegative := self isNegativeIntegerValueOf: oopArg. a := self magnitude64BitValueOf: oopRcvr. b := self magnitude64BitValueOf: oopArg. self successful ifFalse:[^nil]. "check for exact division" (b ~= 0 and:[a \\ b = 0]) ifFalse:[self primitiveFail. ^nil]. result := a // b. oopResult := self magnitude64BitIntegerFor: result neg: aIsNegative ~= bIsNegative. self successful ifTrue:[self pop: 2 thenPush: oopResult]. ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveModLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveModLargeIntegers "Primitive arithmetic operations for large integers in 64 bit range" | result oopResult a aIsNegative b bIsNegative oopArg oopRcvr | <export: true> <var: 'a' type: 'usqLong'> <var: 'b' type: 'usqLong'> <var: 'result' type: 'usqLong'> - <var: 'oopArg' type: 'usqInt'> - <var: 'oopRcvr' type: 'usqInt'> - <var: 'oopResult' type: 'usqInt'> - <var: 'aIsNegative' type: 'usqInt'> - <var: 'bIsNegative' type: 'usqInt'> oopArg := self stackValue: 0. oopRcvr := self stackValue: 1. aIsNegative := self isNegativeIntegerValueOf: oopRcvr. bIsNegative := self isNegativeIntegerValueOf: oopArg. a := self magnitude64BitValueOf: oopRcvr. b := self magnitude64BitValueOf: oopArg. b = 0 ifTrue:[self primitiveFail]. self successful ifFalse:[^nil]. result := a \\ b. "Handle remainder of same sign as argument" result = 0 ifFalse: [bIsNegative = aIsNegative ifFalse: [result := b - result]]. oopResult := self magnitude64BitIntegerFor: result neg: bIsNegative. self successful ifTrue: [self pop: 2 thenPush: oopResult]. ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveMultiplyLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveMultiplyLargeIntegers "Primitive arithmetic operations for large integers in 64 bit range" | a b result oopResult aIsNegative bIsNegative oopArg oopRcvr | <export: true> <var: 'a' type: 'usqLong'> <var: 'b' type: 'usqLong'> <var: 'result' type: 'usqLong'> - <var: 'oopArg' type: 'usqInt'> - <var: 'oopRcvr' type: 'usqInt'> - <var: 'oopResult' type: 'usqInt'> - <var: 'aIsNegative' type: 'usqInt'> - <var: 'bIsNegative' type: 'usqInt'> oopArg := self stackValue: 0. oopRcvr := self stackValue: 1. aIsNegative := self isNegativeIntegerValueOf: oopRcvr. bIsNegative := self isNegativeIntegerValueOf: oopArg. a := self magnitude64BitValueOf: oopRcvr. b := self magnitude64BitValueOf: oopArg. self successful ifFalse:[^nil]. "check for overflow" (a > 1 and: [b > 1 and: [a > (16rFFFFFFFFFFFFFFFF / b)]]) ifTrue: [self primitiveFail. ^nil]. result := a * b. oopResult := self magnitude64BitIntegerFor: result neg: aIsNegative ~= bIsNegative. self successful ifTrue:[self pop: 2 thenPush: oopResult]. ! Item was changed: ----- Method: InterpreterPrimitives>>primitiveQuoLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveQuoLargeIntegers "Primitive arithmetic operations for large integers in 64 bit range" | result oopResult a aIsNegative b bIsNegative oopArg oopRcvr | <export: true> <var: 'a' type: 'usqLong'> <var: 'b' type: 'usqLong'> <var: 'result' type: 'usqLong'> - <var: 'oopArg' type: 'usqInt'> - <var: 'oopRcvr' type: 'usqInt'> - <var: 'oopResult' type: 'usqInt'> - <var: 'aIsNegative' type: 'usqInt'> - <var: 'bIsNegative' type: 'usqInt'> oopArg := self stackValue: 0. oopRcvr := self stackValue: 1. aIsNegative := self isNegativeIntegerValueOf: oopRcvr. bIsNegative := self isNegativeIntegerValueOf: oopArg. a := self magnitude64BitValueOf: oopRcvr. b := self magnitude64BitValueOf: oopArg. b = 0 ifTrue:[self primitiveFail]. self successful ifFalse:[^nil]. result := a // b. oopResult := self magnitude64BitIntegerFor: result neg: bIsNegative ~= aIsNegative. self successful ifTrue: [self pop: 2 thenPush: oopResult].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveRemLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveRemLargeIntegers "Primitive arithmetic operations for large integers in 64 bit range" | result oopResult a aIsNegative b bIsNegative oopArg oopRcvr | <export: true> <var: 'a' type: 'usqLong'> <var: 'b' type: 'usqLong'> <var: 'result' type: 'usqLong'> - <var: 'oopArg' type: 'usqInt'> - <var: 'oopRcvr' type: 'usqInt'> - <var: 'oopResult' type: 'usqInt'> - <var: 'aIsNegative' type: 'usqInt'> - <var: 'bIsNegative' type: 'usqInt'> oopArg := self stackValue: 0. oopRcvr := self stackValue: 1. aIsNegative := self isNegativeIntegerValueOf: oopRcvr. bIsNegative := self isNegativeIntegerValueOf: oopArg. a := self magnitude64BitValueOf: oopRcvr. b := self magnitude64BitValueOf: oopArg. b = 0 ifTrue:[self primitiveFail]. self successful ifFalse:[^nil]. result := a \\ b. oopResult := self magnitude64BitIntegerFor: result neg: aIsNegative ~= bIsNegative. self successful ifTrue: [self pop: 2 thenPush: oopResult].! Item was changed: ----- Method: InterpreterPrimitives>>primitiveSubtractLargeIntegers (in category 'arithmetic largeint primitives') ----- primitiveSubtractLargeIntegers "Primitive arithmetic operations for large integers in 64 bit range" | a b result oopResult aIsNegative bIsNegative resultIsNegative oopArg oopRcvr | <export: true> <var: 'a' type: 'usqLong'> <var: 'b' type: 'usqLong'> <var: 'result' type: 'usqLong'> - <var: 'oopArg' type: 'usqInt'> - <var: 'oopRcvr' type: 'usqInt'> - <var: 'oopResult' type: 'usqInt'> - <var: 'aIsNegative' type: 'usqInt'> - <var: 'bIsNegative' type: 'usqInt'> - <var: 'resultIsNegative' type: 'usqInt'> oopArg := self stackValue: 0. oopRcvr := self stackValue: 1. aIsNegative := self isNegativeIntegerValueOf: oopRcvr. bIsNegative := self isNegativeIntegerValueOf: oopArg. a := self magnitude64BitValueOf: oopRcvr. b := self magnitude64BitValueOf: oopArg. self successful ifFalse:[^nil]. (aIsNegative ~= bIsNegative) ifTrue: ["Protect against overflow" a > (16rFFFFFFFFFFFFFFFF - b) ifTrue: [self primitiveFail. ^nil]. result := a + b. resultIsNegative := aIsNegative] ifFalse: [(a >= b) ifTrue: [result := a - b. resultIsNegative := aIsNegative] ifFalse: [result := b - a. resultIsNegative := aIsNegative not]]. oopResult := self magnitude64BitIntegerFor: result neg: resultIsNegative. self successful ifTrue:[self pop: 2 thenPush: oopResult]. ! Item was changed: ----- Method: VMMaker class>>versionString (in category 'version testing') ----- versionString "VMMaker versionString" + ^'4.10.2'! - ^'4.10.1'!

1 0

Issue 94 in cog: (Ignore) Test if mails delivered on vm-dev list
by cog＠googlecode.com 02 Sep '12

02 Sep '12

Status: Accepted Owner: siguc...(a)gmail.com Labels: Type-Defect Priority-Medium New issue 94 by siguc...(a)gmail.com: (Ignore) Test if mails delivered on vm-dev list http://code.google.com/p/cog/issues/detail?id=94 please ignore this message

1 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev September 2012