Vm-dev December 2019

vm-dev@lists.squeakfoundation.org

31 participants
265 discussions

Build failed: opensmalltalk-vm 1.0.11
by AppVeyor 31 Dec '19

31 Dec '19

1 0

[OpenSmalltalk/opensmalltalk-vm] f219b7: Fix the sign of x wheel events in OSX to be inline...
by Nicolas Cellier 31 Dec '19

31 Dec '19

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: f219b7218fad8f083c28f645d2e976f9cb826344 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/f219b7218fad8f083c… Author: Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> Date: 2019-12-31 (Tue, 31 Dec 2019) Changed paths: M platforms/iOS/vm/OSX/sqSqueakOSXApplication+events.m Log Message: ----------- Fix the sign of x wheel events in OSX to be inline with "natural scrolling" preference. - The VM should generate positive deltaX for Left to Right trackpad motion - The VM should generate positive deltaY for Bottom to Up trackpad motion For historical reasons, if VM does not send mouse wheel events, but fake keyboard arrow events, then: - The VM should generate a left arrow key for Left to Right trackpad motion - The VM should generate a bottom arrow key for Bottom to Up trackpad motion Not that the preferred direction preference of OSX is taken into account by the VM See https://developer.apple.com/documentation/appkit/nsevent/1525151-isdirectio… Above description is for "natural scrolling" preference (the trackpad does drag the screen contents). It will be inverted if the preference is unset (the trackpad does drag the scroll bar). Note that the `isFlipped` method of the Cocoa/Quartz view presumably ha an impact on sign of vertical motions See https://developer.apple.com/documentation/appkit/nsview/1483532-isflipped OpenSmalltalk VM does use isFlipped YES.

1 0

Disagreement on sign of mouse wheels
by Nicolas Cellier 31 Dec '19

31 Dec '19

Hi all, there is still an issue with horizontal mouse wheels with latest VM, and (Smalltalk sendMouseWheelEvents: true) When I sweep the trackpad from bottom to top (with two fingers on MacBook), I get negative yDelta on the 3 OS, OSX, linux, Windows, all good. When I sweep the trackpad from right to left (with two finders on Mac) , I get: - negative xDelta on OSX - positive xDelta on linux and Windows I don't know whether it's due to Parallels VM, or same on native windows/linux... Could someone confirm? If so, I don't know which sign to change, what would you expect?

2 2

VM Maker: VMMakerUI-eem.13.mcz
by commits＠source.squeak.org 31 Dec '19

31 Dec '19

Eliot Miranda uploaded a new version of VMMakerUI to project VM Maker: http://source.squeak.org/VMMaker/VMMakerUI-eem.13.mcz ==================== Summary ==================== Name: VMMakerUI-eem.13 Author: eem Time: 30 December 2019, 7:26:41.726219 pm UUID: c312a4d2-81ac-46b0-bd9a-7334a7f4dfa7 Ancestors: VMMakerUI-eem.12 Add a subclass of CogOopInspector, CogBytecodeMethodInspector (you can guess what for). Add emphasised printing support. =============== Diff against VMMakerUI-eem.12 =============== Item was added: + ----- Method: CogAbstractFrameInspector>>interpretMethod:value:at: (in category 'evaluating') ----- + interpretMethod: fieldName value: valueString at: address + | methodFieldString secondMethodFieldString | + methodFieldString := valueString copyUpTo: Character tab. + secondMethodFieldString := (ReadStream on: valueString from: methodFieldString size + 2 to: valueString size) + skipSeparators; + upTo: $:. + "compare ignoring least signirficant bits, which are flags" + methodFieldString allButLast = secondMethodFieldString allButLast ifTrue: + [^(CogBytecodeMethodInspector on: coInterpreter) + oop: (coInterpreter longAt: address); + displayPinnable: fieldName, ' ', valueString]. + "It's a CogMethod; use a different inspector" + self shouldBeImplemented! Item was added: + CogOopInspector subclass: #CogBytecodeMethodInspector + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'VMMakerUI-SqueakInspectors'! Item was added: + ----- Method: CogBytecodeMethodInspector>>textMenu: (in category 'accessing - ui') ----- + textMenu: aMenuMorph + aMenuMorph + addTitle: 'Select print format'; + add: #printOop: action: [self printer: #printOop:on:oopAttribute:]; + add: #longPrintOop: action: [self printer: #longPrintOop:on:oopAttribute:]; + add: #symbolicMethod: action: [self printer: #symbolicMethod:on:oopAttribute:]. + ^aMenuMorph! Item was changed: ----- Method: CogOopInspector>>interpretOopString: (in category 'evaluating') ----- interpretOopString: aStringContainingAnOop + ^(CogOopInspector on: coInterpreter) - ^self copy oop: (ExtendedNumberParser on: aStringContainingAnOop readStream skipSeparators) nextInteger; displayPinnable: aStringContainingAnOop withBlanksTrimmed! Item was added: + ----- Method: StackInterpreter>>printDecodeMethodHeaderOop:on: (in category '*VMMakerUI-debug printing') ----- + printDecodeMethodHeaderOop: methodHeaderOop on: aStream + self shortPrintOop: methodHeaderOop on: aStream. + (self methodHeaderHasPrimitive: methodHeaderOop) ifTrue: + [aStream nextPutAll: ' hasPrim']. + (self methodHeaderIndicatesLargeFrame: methodHeaderOop) ifTrue: + [aStream nextPutAll: ' largeFrame']. + (SistaVM and: [self isOptimizedMethodHeader: methodHeaderOop]) ifTrue: + [aStream nextPutAll: ' optimized']. + (MULTIPLEBYTECODESETS and: [(objectMemory integerValueOf: methodHeaderOop) < 0]) ifTrue: + [aStream nextPutAll: ' altSet']. + NewspeakVM ifTrue: + [aStream nextPutAll: + ((self accessModifierOfMethodHeader: methodHeaderOop) caseOf: { + [0] -> [' public']. + [1] -> [' private']. + [2] -> [' protected']. + [3] -> [' access undefined'] })]. + aStream + nextPutAll: ' nLits '; print: (objectMemory literalCountOfMethodHeader: methodHeaderOop); + nextPutAll: ' nArgs '; print: (self argumentCountOfMethodHeader: methodHeaderOop); + nextPutAll: ' nTemps '; print: (self temporaryCountOfMethodHeader: methodHeaderOop)! Item was added: + ----- Method: StackInterpreter>>printMethodHeaderOop:on: (in category '*VMMakerUI-debug printing') ----- + printMethodHeaderOop: headerOop on: aStream + <doNotGenerate> + self printDecodeMethodHeaderOop: headerOop on: aStream! Item was changed: ----- Method: StackInterpreter>>printOop:on:oopAttribute: (in category '*VMMakerUI-debug printing') ----- printOop: oop on: aStream oopAttribute: oopTextAttribute <doNotGenerate> | cls fmt lastIndex startIP bytecodesPerLine column | <inline: false> (objectMemory isImmediate: oop) ifTrue: [^self shortPrintOop: oop on: aStream]. self printHex: oop on: aStream. (objectMemory addressCouldBeObj: oop) ifFalse: [(oop bitAnd: objectMemory allocationUnit - 1) ~= 0 ifTrue: [^aStream nextPutAll: ' is misaligned'; cr]. ((objectMemory isInNewSpace: oop) and: [objectMemory isForwarded: oop]) ifTrue: [self printForwarder: oop on: aStream]. ^aStream nextPutAll: (self whereIs: oop); cr]. (objectMemory isFreeObject: oop) ifTrue: [aStream nextPutAll: ' is a free chunk of size '; print: (objectMemory sizeOfFree: oop). objectMemory hasSpurMemoryManagerAPI ifTrue: [aStream nextPutAll: ' 0th: '. self printHex: (objectMemory fetchPointer: 0 ofFreeChunk: oop) on: aStream. objectMemory printHeaderTypeOf: oop on: aStream]. ^aStream cr]. (objectMemory isForwarded: oop) ifTrue: [self printForwarder: oop on: aStream]. aStream nextPutAll: ': a(n) '. self printNameOfClass: (cls := objectMemory fetchClassOfNonImm: oop) count: 5 on: aStream. cls = (objectMemory splObj: ClassFloat) ifTrue: [^aStream cr; print: (objectMemory dbgFloatValueOf: oop); cr]. fmt := objectMemory formatOf: oop. fmt > objectMemory lastPointerFormat ifTrue: [aStream nextPutAll: ' nbytes '; print: (objectMemory numBytesOf: oop)]. aStream cr. (fmt between: objectMemory firstLongFormat and: objectMemory firstCompiledMethodFormat - 1) ifTrue: ["This will answer false if splObj: ClassAlien is nilObject" (self is: oop KindOfClass: (objectMemory splObj: ClassAlien)) ifTrue: [aStream nextPutAll: ' datasize '; print: (self sizeOfAlienData: oop). aStream nextPutAll: ((self isIndirectAlien: oop) ifTrue: [' indirect @ '] ifFalse: [(self isPointerAlien: oop) ifTrue: [' pointer @ '] ifFalse: [' direct @ ']]). self printHex: (self startOfAlienData: oop) on: aStream. ^aStream cr]. (objectMemory isWordsNonImm: oop) ifTrue: [lastIndex := 64 min: ((objectMemory numBytesOf: oop) / objectMemory wordSize). lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self printHex: (objectMemory fetchLong32: index - 1 ofObject: oop) on: aStream. index \\ self elementsPerPrintOopLine = 0 ifTrue: [aStream cr]]. lastIndex \\ self elementsPerPrintOopLine = 0 ifFalse: [aStream cr]]. ^self]. self printStringOf: oop on: aStream. ^aStream cr]. "this is nonsense. apologies." startIP := (objectMemory safeLastPointerOf: oop) + objectMemory bytesPerOop - objectMemory baseHeaderSize / objectMemory bytesPerOop. lastIndex := 256 min: startIP. lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| aStream space; nextPutAll: (self hex: (objectMemory fetchPointer: index - 1 ofObject: oop) withAttribute: oopTextAttribute); space. aStream nextPutAll: (self shortPrint: (objectMemory fetchPointer: index - 1 ofObject: oop)). index \\ self elementsPerPrintOopLine = 0 ifTrue: [aStream cr]]. lastIndex \\ self elementsPerPrintOopLine = 0 ifFalse: [aStream cr]]. (objectMemory isCompiledMethod: oop) ifFalse: [startIP > 64 ifTrue: [aStream nextPutAll: '...'; cr]] ifTrue: [startIP := startIP * objectMemory wordSize + 1. lastIndex := objectMemory lengthOf: oop. lastIndex - startIP > 100 ifTrue: [lastIndex := startIP + 100]. bytecodesPerLine := 8. column := 1. startIP to: lastIndex do: [:index| | byte | column = 1 ifTrue: + [aStream nextPutAll: (oop+objectMemory baseHeaderSize+index-1) hex; nextPutAll: ': ']. - [aStream nextPutAll: (oop+objectMemory baseHeaderSize+index-1) hex; print: ': ']. byte := objectMemory fetchByte: index - 1 ofObject: oop. aStream space. byte printOn: aStream base: 16. aStream nextPut: $/. byte printOn: aStream. column := column + 1. column > bytecodesPerLine ifTrue: [column := 1. aStream cr]]. column = 1 ifFalse: [aStream cr]]! Item was added: + ----- Method: StackInterpreter>>symbolicMethod:on:oopAttribute: (in category '*VMMakerUI-debug printing') ----- + symbolicMethod: aMethod on: aStream oopAttribute: oopTextAttribute + <doNotGenerate> + | prim | + (prim := self primitiveIndexOf: aMethod) > 0 ifTrue: + [aStream nextPutAll: '<primitive: '; print: prim; nextPut: $>. + (self isQuickPrimitiveIndex: prim) ifTrue: + [aStream nextPutAll: ' quick method'; cr; flush. + ^self]. + aStream cr]. + 0 to: (objectMemory literalCountOf: aMethod) do: + [:i| | field | + i * objectMemory bytesPerOop + objectMemory baseHeaderSize + aMethod printOn: aStream base: 16. + aStream space; print: i; nextPutAll: ': '. + field := objectMemory fetchPointer: i ofObject: aMethod. + aStream nextPutAll: (self hex: field withAttribute: oopTextAttribute); space. + i = 0 + ifTrue: [self printMethodHeaderOop: field on: aStream] + ifFalse: [aStream nextPutAll: (self shortPrint: field)]. + aStream cr]. + (InstructionPrinter + on: ((VMCompiledMethodProxy new + for: aMethod + coInterpreter: self + objectMemory: objectMemory) + printPretty: true; + yourself)) + indent: 0; + printInstructionsOn: aStream!

1 0

VM Maker: VMMaker.oscog-eem.2649.mcz
by commits＠source.squeak.org 31 Dec '19

31 Dec '19

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2649.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2649 Author: eem Time: 30 December 2019, 7:25:12.571432 pm UUID: b9c447b7-95f3-471f-9235-c30a764b9281 Ancestors: VMMaker.oscog-eem.2648 SImulation: Nil localFP when entering the CoInterpreter through a run-time call. Add a flag so that run-time calls can be leak checked. C;lean ups to printing so that the CogOopOnspector doesn't get interrupted with halts and doesn't see "VMObjectProxy for" noise. Abstract forwarder printing, and use it when printing a dead object in new space (a forwarded corpse). =============== Diff against VMMaker.oscog-eem.2648 =============== Item was changed: ----- Method: CoInterpreter>>assertValidExternalStackPointers (in category 'debug support') ----- assertValidExternalStackPointers + "For use *ONLY* by routines coming in to the VM, + i.e. handleCallOrJumpSimulationTrap:. This is because it nils localFP as a side-effect." self assert: framePointer < stackPage baseAddress. self assert: stackPointer < framePointer. self assert: framePointer > stackPointer. + self assert: stackPointer >= (stackPage realStackLimit - self stackLimitOffset). + localFP := nil! - self assert: stackPointer >= (stackPage realStackLimit - self stackLimitOffset)! Item was changed: ----- Method: Cogit>>handleCallOrJumpSimulationTrap: (in category 'simulation only') ----- handleCallOrJumpSimulationTrap: aProcessorSimulationTrap <doNotGenerate> | evaluable function memory result savedFramePointer savedStackPointer savedArgumentCount leaf retpc | + objectMemory maybeLeakCheckForRuntimeCall. evaluable := simulatedTrampolines at: aProcessorSimulationTrap address ifAbsent: [self errorProcessingSimulationTrap: aProcessorSimulationTrap in: simulatedTrampolines]. function := evaluable isBlock ifTrue: ['aBlock; probably some plugin primitive'] ifFalse: [evaluable receiver == backEnd ifTrue: [^self handleABICallOrJumpSimulationTrap: aProcessorSimulationTrap evaluable: evaluable]. evaluable selector]. function ~~ #ceBaseFrameReturn: ifTrue: [coInterpreter assertValidExternalStackPointers]. (backEnd wantsNearAddressFor: function) ifTrue: [^self perform: function with: aProcessorSimulationTrap]. memory := coInterpreter memory. aProcessorSimulationTrap type == #call ifTrue: [(leaf := coInterpreter mcprims includes: function) ifTrue: [processor simulateLeafCallOf: aProcessorSimulationTrap address nextpc: aProcessorSimulationTrap nextpc memory: memory. retpc := processor leafRetpcIn: memory] ifFalse: [processor simulateCallOf: aProcessorSimulationTrap address nextpc: aProcessorSimulationTrap nextpc memory: memory. retpc := processor retpcIn: memory]. self recordInstruction: {'(simulated call of '. aProcessorSimulationTrap address. '/'. function. ')'}] ifFalse: [leaf := false. processor simulateJumpCallOf: aProcessorSimulationTrap address memory: memory. retpc := processor retpcIn: memory. "sideways call; the primitive has pushed a return address." self recordInstruction: {'(simulated jump to '. aProcessorSimulationTrap address. '/'. function. ')'}]. savedFramePointer := coInterpreter framePointer. savedStackPointer := coInterpreter stackPointer. savedArgumentCount := coInterpreter argumentCount. result := ["self halt: evaluable selector." clickConfirm ifTrue: [(self confirm: 'skip run-time call?') ifFalse: [clickConfirm := false. self halt]]. evaluable valueWithArguments: (processor postCallArgumentsNumArgs: evaluable numArgs in: memory)] on: ReenterMachineCode do: [:ex| ex return: ex returnValue]. coInterpreter assertValidExternalStackPointers. + objectMemory maybeLeakCheckForRuntimeCall. "Verify the stack layout assumption compileInterpreterPrimitive: makes, provided we've not called something that has built a frame, such as closure value or evaluate method, or switched frames, such as primitiveSignal, primitiveWait, primitiveResume, primitiveSuspend et al." (function beginsWith: 'primitive') ifTrue: [coInterpreter checkForLastObjectOverwrite. coInterpreter primFailCode = 0 ifTrue: [(#( primitiveClosureValue primitiveClosureValueWithArgs primitiveClosureValueNoContextSwitch primitiveFullClosureValue primitiveFullClosureValueWithArgs primitiveFullClosureValueNoContextSwitch primitiveSignal primitiveWait primitiveResume primitiveSuspend primitiveYield primitiveExecuteMethodArgsArray primitiveExecuteMethod primitivePerform primitivePerformWithArgs primitivePerformInSuperclass primitiveTerminateTo primitiveStoreStackp primitiveDoPrimitiveWithArgs) includes: function) ifFalse: ["This is a rare case (e.g. in Scorch where a married context's sender is set to nil on trapTrpped and hence the stack layout is altered." (function == #primitiveSlotAtPut and: [objectMemory isContext: (coInterpreter frameReceiver: coInterpreter framePointer)]) ifFalse: [self assert: savedFramePointer = coInterpreter framePointer. self assert: savedStackPointer + (savedArgumentCount * objectMemory wordSize) = coInterpreter stackPointer]]] ifFalse: [self assert: savedFramePointer = coInterpreter framePointer. self assert: savedStackPointer = coInterpreter stackPointer]]. result ~~ #continueNoReturn ifTrue: [self recordInstruction: {'(simulated return to '. processor retpcIn: memory. ')'}. leaf ifTrue: [processor simulateLeafReturnIn: memory] ifFalse: [processor simulateReturnIn: memory]. self assert: processor pc = retpc. processor smashCallerSavedRegistersWithValuesFrom: 16r80000000 by: objectMemory wordSize in: memory]. self assert: (result isInteger "an oop result" or: [result == coInterpreter or: [result == objectMemory or: [#(nil continue continueNoReturn) includes: result]]]). processor cResultRegister: (result ifNil: [0] ifNotNil: [result isInteger ifTrue: [result] ifFalse: [16rF00BA222]]) "coInterpreter cr. processor sp + 32 to: processor sp - 32 by: -4 do: [:sp| sp = processor sp ifTrue: [coInterpreter print: 'sp->'; tab] ifFalse: [coInterpreter printHex: sp]. coInterpreter tab; printHex: (coInterpreter longAt: sp); cr]"! Item was added: + ----- Method: NewObjectMemory>>leakCheckRuntimeCalls (in category 'debug support') ----- + leakCheckRuntimeCalls + <doNotGenerate> + ^(checkForLeaks bitAnd: 32) ~= 0! Item was added: + ----- Method: NewObjectMemory>>maybeLeakCheckForRuntimeCall (in category 'debug support') ----- + maybeLeakCheckForRuntimeCall + <doNotGenerate> + (checkForLeaks bitAnd: 32) ~= 0 ifTrue: + [coInterpreter runLeakChecker]! Item was changed: ----- Method: NewObjectMemory>>setCheckForLeaks: (in category 'debug support') ----- setCheckForLeaks: integerFlags + " 0 = do nothing. + 1 = check for leaks on fullGC (GCModeFull). + 2 = check for leaks on scavenger (GCModeNewSpace). + 4 = check for leaks on incremental (GCModeIncremental) + 8 = check for leaks on become (GCModeBecome) + 16 = check for leaks on image segments (GCModeImageSegment) + 32 = check for leaks on simulated run-time call." - "0 = do nothing. - 1 = check for leaks on fullGC. - 2 = check for leaks on incrementalGC. - 8 = check for leaks on become" checkForLeaks := integerFlags! Item was added: + ----- Method: SpurMemoryManager>>leakCheckRuntimeCalls (in category 'debug support') ----- + leakCheckRuntimeCalls + <doNotGenerate> + ^(checkForLeaks bitAnd: 32) ~= 0! Item was added: + ----- Method: SpurMemoryManager>>maybeLeakCheckForRuntimeCall (in category 'debug support') ----- + maybeLeakCheckForRuntimeCall + <doNotGenerate> + (checkForLeaks bitAnd: 32) ~= 0 ifTrue: + [coInterpreter runLeakChecker]! Item was changed: ----- Method: SpurMemoryManager>>setCheckForLeaks: (in category 'spur bootstrap') ----- setCheckForLeaks: integerFlags " 0 = do nothing. 1 = check for leaks on fullGC (GCModeFull). 2 = check for leaks on scavenger (GCModeNewSpace). 4 = check for leaks on incremental (GCModeIncremental) 8 = check for leaks on become (GCModeBecome) + 16 = check for leaks on image segments (GCModeImageSegment) + 32 = check for leaks on simulated run-time call." - 16 = check for leaks on image segments (GCModeImageSegment)" checkForLeaks := integerFlags! Item was changed: ----- Method: StackInterpreter>>printActivationNameFor:receiver:isBlock:firstTemporary: (in category 'debug printing') ----- printActivationNameFor: aMethod receiver: anObject isBlock: isBlock firstTemporary: maybeMessage | methClass methodSel classObj | <inline: false> isBlock ifTrue: [self print: '[] in ']. methClass := self findClassOfMethod: aMethod forReceiver: anObject. methodSel := self findSelectorOfMethod: aMethod. ((objectMemory addressCouldBeOop: anObject) and: [(objectMemory isOopForwarded: anObject) not and: [self addressCouldBeClassObj: (classObj := objectMemory fetchClassOf: anObject)]]) ifTrue: [(classObj = methClass or: [methClass isNil or: [methClass = objectMemory nilObject] "i.e. doits"]) ifTrue: [self printNameOfClass: classObj count: 5] ifFalse: [self printNameOfClass: classObj count: 5. self print: '('. self printNameOfClass: methClass count: 5. self print: ')']] ifFalse: + [self print: 'INVALID RECEIVER']. - [self cCode: '' inSmalltalk: [self halt]. - self print: 'INVALID RECEIVER']. self print: '>'. (objectMemory addressCouldBeOop: methodSel) ifTrue: [methodSel = objectMemory nilObject ifTrue: [self print: '(nil)'] ifFalse: [self printStringOf: methodSel]] ifFalse: [self print: 'INVALID SELECTOR']. (methodSel = (objectMemory splObj: SelectorDoesNotUnderstand) and: [(objectMemory addressCouldBeObj: maybeMessage) and: [(objectMemory fetchClassOfNonImm: maybeMessage) = (objectMemory splObj: ClassMessage)]]) ifTrue: ["print arg message selector" methodSel := objectMemory fetchPointer: MessageSelectorIndex ofObject: maybeMessage. self print: ' '. self printStringOf: methodSel]! Item was added: + ----- Method: StackInterpreter>>printForwarder: (in category 'debug printing') ----- + printForwarder: oop + <inline: false> + self + print: ' is a forwarded object to '; printHex: (objectMemory followForwarded: oop); + print: ' of slot size '; printNum: (objectMemory numSlotsOfAny: oop). + objectMemory printHeaderTypeOf: oop. + self cr! Item was changed: ----- Method: StackInterpreter>>printOop: (in category 'debug printing') ----- printOop: oop | cls fmt lastIndex startIP bytecodesPerLine column | <inline: false> (objectMemory isImmediate: oop) ifTrue: [^self shortPrintOop: oop]. self printHex: oop. (objectMemory addressCouldBeObj: oop) ifFalse: + [(oop bitAnd: objectMemory allocationUnit - 1) ~= 0 ifTrue: [^self print: ' is misaligned'; cr]. + ((objectMemory isInNewSpace: oop) + and: [objectMemory isForwarded: oop]) ifTrue: + [self printForwarder: oop]. + ^self print: (self whereIs: oop); cr]. - [^self print: ((oop bitAnd: objectMemory allocationUnit - 1) ~= 0 - ifTrue: [' is misaligned'] - ifFalse: [self whereIs: oop]); cr]. (objectMemory isFreeObject: oop) ifTrue: [self print: ' is a free chunk of size '; printNum: (objectMemory sizeOfFree: oop). objectMemory hasSpurMemoryManagerAPI ifTrue: [self print: ' 0th: '; printHex: (objectMemory fetchPointer: 0 ofFreeChunk: oop). objectMemory printHeaderTypeOf: oop]. ^self cr]. (objectMemory isForwarded: oop) ifTrue: + [^self printForwarder: oop]. - [self - print: ' is a forwarded object to '; printHex: (objectMemory followForwarded: oop); - print: ' of slot size '; printNum: (objectMemory numSlotsOfAny: oop). - objectMemory printHeaderTypeOf: oop. - ^self cr]. self print: ': a(n) '. self printNameOfClass: (cls := objectMemory fetchClassOfNonImm: oop) count: 5. cls = (objectMemory splObj: ClassFloat) ifTrue: [^self cr; printFloat: (objectMemory dbgFloatValueOf: oop); cr]. fmt := objectMemory formatOf: oop. fmt > objectMemory lastPointerFormat ifTrue: [self print: ' nbytes '; printNum: (objectMemory numBytesOf: oop)]. self cr. (fmt between: objectMemory firstLongFormat and: objectMemory firstCompiledMethodFormat - 1) ifTrue: ["This will answer false if splObj: ClassAlien is nilObject" (self is: oop KindOfClass: (objectMemory splObj: ClassAlien)) ifTrue: [self print: ' datasize '; printNum: (self sizeOfAlienData: oop). self print: ((self isIndirectAlien: oop) ifTrue: [' indirect @ '] ifFalse: [(self isPointerAlien: oop) ifTrue: [' pointer @ '] ifFalse: [' direct @ ']]). ^self printHex: (self startOfAlienData: oop) asUnsignedInteger; cr]. (objectMemory isWordsNonImm: oop) ifTrue: [lastIndex := 64 min: ((objectMemory numBytesOf: oop) / objectMemory wordSize). lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self space; printHex: (self cCoerceSimple: (objectMemory fetchLong32: index - 1 ofObject: oop) to: #'unsigned int'). (index \\ self elementsPerPrintOopLine) = 0 ifTrue: [self cr]]. (lastIndex \\ self elementsPerPrintOopLine) = 0 ifFalse: [self cr]]. ^self]. ^self printStringOf: oop; cr]. "this is nonsense. apologies." startIP := (objectMemory lastPointerOf: oop) + objectMemory bytesPerOop - objectMemory baseHeaderSize / objectMemory bytesPerOop. lastIndex := 256 min: startIP. lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self cCode: [self printHex: (objectMemory fetchPointer: index - 1 ofObject: oop); space] inSmalltalk: [self space; printHex: (objectMemory fetchPointer: index - 1 ofObject: oop); space. self print: (self shortPrint: (objectMemory fetchPointer: index - 1 ofObject: oop))]. (index \\ self elementsPerPrintOopLine) = 0 ifTrue: [self cr]]. (lastIndex \\ self elementsPerPrintOopLine) = 0 ifFalse: [self cr]]. (objectMemory isCompiledMethod: oop) ifFalse: [startIP > 64 ifTrue: [self print: '...'; cr]] ifTrue: [startIP := startIP * objectMemory wordSize + 1. lastIndex := objectMemory lengthOf: oop. lastIndex - startIP > 100 ifTrue: [lastIndex := startIP + 100]. bytecodesPerLine := 8. column := 1. startIP to: lastIndex do: [:index| | byte | column = 1 ifTrue: [self cCode: 'printf("0x%08" PRIxSQPTR ": ", (usqIntptr_t)(oop+BaseHeaderSize+index-1))' inSmalltalk: [self print: (oop+objectMemory baseHeaderSize+index-1) hex; print: ': ']]. byte := objectMemory fetchByte: index - 1 ofObject: oop. self cCode: 'printf(" %02x/%-3d", (int)byte,(int)byte)' inSmalltalk: [self space; print: (byte radix: 16); printChar: $/; printNum: byte]. column := column + 1. column > bytecodesPerLine ifTrue: [column := 1. self cr]]. column = 1 ifFalse: [self cr]]! Item was changed: ----- Method: VMCompiledMethodProxy>>literalAt: (in category 'literals') ----- literalAt: index ^VMObjectProxy new for: (coInterpreter literal: index - 1 ofMethod: oop) coInterpreter: coInterpreter + objectMemory: objectMemory; + printPretty: printPretty; + yourself! - objectMemory: objectMemory! Item was changed: Object subclass: #VMObjectProxy + instanceVariableNames: 'coInterpreter oop objectMemory printPretty' - instanceVariableNames: 'coInterpreter oop objectMemory' classVariableNames: '' poolDictionaries: '' category: 'VMMaker-Support'! !VMObjectProxy commentStamp: 'eem 8/6/2014 14:46' prior: 0! A VMObjectProxy is a wraper for an oop in the VM, that provides limited access to that oop as an object. ! Item was changed: + ----- Method: VMObjectProxy>>for:coInterpreter:objectMemory: (in category 'initialization') ----- - ----- Method: VMObjectProxy>>for:coInterpreter:objectMemory: (in category 'initialize-release') ----- for: aCompiledMethodOop coInterpreter: aCoInterpreter objectMemory: anObjectMemory oop := aCompiledMethodOop. coInterpreter := aCoInterpreter. + objectMemory := anObjectMemory. + printPretty := false! - objectMemory := anObjectMemory! Item was changed: ----- Method: VMObjectProxy>>printOn: (in category 'printing') ----- printOn: aStream | shortPrint | + printPretty ifTrue: + [[aStream nextPutAll: (coInterpreter shortPrint: oop)] + on: Error + do: [:ex| oop printOn: aStream base: 16]. + ^self]. shortPrint := [coInterpreter shortPrint: oop] on: Error do: [:ex| ^super printOn: aStream]. super printOn: aStream. shortPrint first = $= ifTrue: [shortPrint := shortPrint allButFirst]. aStream nextPutAll: ' for '; nextPutAll: shortPrint! Item was added: + ----- Method: VMObjectProxy>>printPretty (in category 'accessing') ----- + printPretty + ^printPretty! Item was added: + ----- Method: VMObjectProxy>>printPretty: (in category 'accessing') ----- + printPretty: aBoolean + printPretty := aBoolean!

1 0

Joining the GitHub sponsors programme
by Eliot Miranda 30 Dec '19

30 Dec '19

Hi All, see https://github.com/sponsors/OpenSmalltalk/waitlist. If we wanted to join this programme several questions come to mind, or are explicitly asked in the application form. - philosophical;what are the aims? Grow the number of collaborators, put food on the table, increase the usage of Smalltalk and/or the OpenSmalltalk VM, etc? - tricky; if at least some of the funds are allocated to put food on the table, how do we share the funds so that contributors are fairly compensated but people, who dominate the number of commits such as myself and Nicolas don't take all the funds and hence discourage new people from joining? How do we evaluate each other's contributions? Metics such as number of commits, lines of code per commit, etc are just begging to be gamed and abused. So how this is done is crucial. What are our aims? - practical; where is the bank account/country. If funds are to be disbursed to participants, how would this be done? _,,,^..^,,,_ best, Eliot

2 1

Build failed: opensmalltalk-vm 1.0.10
by AppVeyor 30 Dec '19

30 Dec '19

1 0

Errored: OpenSmalltalk/opensmalltalk-vm#1900 (Cog - 9f4fae8)
by Travis CI 30 Dec '19

30 Dec '19

Build Update for OpenSmalltalk/opensmalltalk-vm ------------------------------------- Build: #1900 Status: Errored Duration: 23 mins and 7 secs Commit: 9f4fae8 (Cog) Author: Fabio Niephaus Message: Only deploy if deployment secrets are provided This avoids build failures when deployment secrets are not provided (e.g. when the repo is forked and tested by someone else). View the changeset: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/a9c7fd5fc6b9...9f… View the full build log and details: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/630915745?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] 9f4fae: Only deploy if deployment secrets are provided
by Fabio Niephaus 30 Dec '19

30 Dec '19

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 9f4fae8b5bca2869c59d6ecd194a20799b830172 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/9f4fae8b5bca2869c5… Author: Fabio Niephaus <code(a)fniephaus.com> Date: 2019-12-30 (Mon, 30 Dec 2019) Changed paths: M .travis.yml M deploy/filter-exec.sh M deploy/pharo/filter-exec.sh Log Message: ----------- Only deploy if deployment secrets are provided This avoids build failures when deployment secrets are not provided (e.g. when the repo is forked and tested by someone else).

1 0

VM Maker: VMMakerUI-eem.12.mcz
by commits＠source.squeak.org 30 Dec '19

30 Dec '19

Eliot Miranda uploaded a new version of VMMakerUI to project VM Maker: http://source.squeak.org/VMMaker/VMMakerUI-eem.12.mcz ==================== Summary ==================== Name: VMMakerUI-eem.12 Author: eem Time: 29 December 2019, 5:29:59.032533 pm UUID: a98c9ec5-e3e7-4cc6-aa4d-ed8d060de6a7 Ancestors: VMMakerUI-eem.11 Better printing of references unscavenged new space objects. =============== Diff against VMMakerUI-eem.11 =============== Item was changed: ----- Method: CogAbstractFrameInspector>>textForFramePointer:stackPointer: (in category 'accessing - ui') ----- textForFramePointer: framePointer stackPointer: stackPointer "Print and emphasize the frame text as efficiently as possible, deferring as much interpretation until evaluation time." | frameString frameText | (coInterpreter stackPages apparentlyValidFramePointer: framePointer stackPointer: stackPointer) ifFalse: [^('Invalid Frame fp: ', (framePointer isInteger ifTrue: [framePointer hex allButFirst: 3] ifFalse: [framePointer printString]), ' sp: ', (framePointer isInteger ifTrue: [framePointer hex allButFirst: 3] ifFalse: [framePointer printString])) asText allBold]. frameText := (String streamContents: [:fs| coInterpreter printFrame: framePointer WithSP: stackPointer on: fs]) allButFirst asText. (frameString := frameText string) findTokens: {Character cr} indicesDo: [:start :stop| | firstColonIndex fieldNameIndex fieldNameEndIndex valueIndex | start = 1 ifTrue: [self windowTitle: (self windowTitleFrom: (frameString copyFrom: 1 to: stop)). frameText addAttribute: (PluggableTextAttribute evalBlock: [(CogFrameInspector on: coInterpreter) framePointer: framePointer; open]) from: 1 to: (frameString indexOf: Character space startingAt: 4) - 1] ifFalse: [fieldNameIndex := (firstColonIndex := frameString indexOf: $: startingAt: start + 1) + 1. [(frameString at: fieldNameIndex) = Character space] whileTrue: [fieldNameIndex := fieldNameIndex + 1]. fieldNameEndIndex := (frameString indexOf: $: startingAt: fieldNameIndex + 1) - 1. valueIndex := fieldNameEndIndex + 2. [(frameString at: valueIndex) = Character space] whileTrue: [valueIndex := valueIndex + 1]. + valueIndex < stop ifTrue: "greater for 'INVALID RECEIVER'" + [(self evalAttributeForFieldName: (frameString copyFrom: fieldNameIndex to: fieldNameEndIndex) + framePointer: framePointer + value: (frameString copyFrom: valueIndex to: stop) + addressString: (frameString copyFrom: start to: firstColonIndex - 1)) + ifNotNil: + [:attribute| frameText addAttribute: attribute from: fieldNameIndex to: fieldNameEndIndex]]]]. - (self evalAttributeForFieldName: (frameString copyFrom: fieldNameIndex to: fieldNameEndIndex) - framePointer: framePointer - value: (frameString copyFrom: valueIndex to: stop) - addressString: (frameString copyFrom: start to: firstColonIndex - 1)) - ifNotNil: - [:attribute| frameText addAttribute: attribute from: fieldNameIndex to: fieldNameEndIndex]]]. ^frameText! Item was added: + ----- Method: StackInterpreter>>printForwarder:on: (in category '*VMMakerUI-debug printing') ----- + printForwarder: oop on: aStream + <doNotGenerate> + aStream nextPutAll: ' is a forwarded object to '. + self printHex: (objectMemory followForwarded: oop) on: aStream. + aStream nextPutAll: ' of slot size '; print: (objectMemory numSlotsOfAny: oop). + objectMemory printHeaderTypeOf: oop on: aStream. + aStream cr! Item was changed: ----- Method: StackInterpreter>>printOop:on:oopAttribute: (in category '*VMMakerUI-debug printing') ----- printOop: oop on: aStream oopAttribute: oopTextAttribute <doNotGenerate> | cls fmt lastIndex startIP bytecodesPerLine column | <inline: false> (objectMemory isImmediate: oop) ifTrue: [^self shortPrintOop: oop on: aStream]. self printHex: oop on: aStream. (objectMemory addressCouldBeObj: oop) ifFalse: + [(oop bitAnd: objectMemory allocationUnit - 1) ~= 0 ifTrue: [^aStream nextPutAll: ' is misaligned'; cr]. + ((objectMemory isInNewSpace: oop) + and: [objectMemory isForwarded: oop]) ifTrue: + [self printForwarder: oop on: aStream]. + ^aStream nextPutAll: (self whereIs: oop); cr]. - [^aStream nextPutAll: ((oop bitAnd: objectMemory allocationUnit - 1) ~= 0 - ifTrue: [' is misaligned'] - ifFalse: [self whereIs: oop]); cr]. (objectMemory isFreeObject: oop) ifTrue: [aStream nextPutAll: ' is a free chunk of size '; print: (objectMemory sizeOfFree: oop). objectMemory hasSpurMemoryManagerAPI ifTrue: [aStream nextPutAll: ' 0th: '. self printHex: (objectMemory fetchPointer: 0 ofFreeChunk: oop) on: aStream. objectMemory printHeaderTypeOf: oop on: aStream]. ^aStream cr]. (objectMemory isForwarded: oop) ifTrue: + [self printForwarder: oop on: aStream]. - [aStream - nextPutAll: ' is a forwarded object to '. self printHex: (objectMemory followForwarded: oop) on: aStream. - aStream nextPutAll: ' of slot size '; print: (objectMemory numSlotsOfAny: oop). - objectMemory printHeaderTypeOf: oop on: aStream. - ^aStream cr]. aStream nextPutAll: ': a(n) '. self printNameOfClass: (cls := objectMemory fetchClassOfNonImm: oop) count: 5 on: aStream. cls = (objectMemory splObj: ClassFloat) ifTrue: [^aStream cr; print: (objectMemory dbgFloatValueOf: oop); cr]. fmt := objectMemory formatOf: oop. fmt > objectMemory lastPointerFormat ifTrue: [aStream nextPutAll: ' nbytes '; print: (objectMemory numBytesOf: oop)]. aStream cr. (fmt between: objectMemory firstLongFormat and: objectMemory firstCompiledMethodFormat - 1) ifTrue: ["This will answer false if splObj: ClassAlien is nilObject" (self is: oop KindOfClass: (objectMemory splObj: ClassAlien)) ifTrue: [aStream nextPutAll: ' datasize '; print: (self sizeOfAlienData: oop). aStream nextPutAll: ((self isIndirectAlien: oop) ifTrue: [' indirect @ '] ifFalse: [(self isPointerAlien: oop) ifTrue: [' pointer @ '] ifFalse: [' direct @ ']]). self printHex: (self startOfAlienData: oop) on: aStream. ^aStream cr]. (objectMemory isWordsNonImm: oop) ifTrue: [lastIndex := 64 min: ((objectMemory numBytesOf: oop) / objectMemory wordSize). lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| self printHex: (objectMemory fetchLong32: index - 1 ofObject: oop) on: aStream. index \\ self elementsPerPrintOopLine = 0 ifTrue: [aStream cr]]. lastIndex \\ self elementsPerPrintOopLine = 0 ifFalse: [aStream cr]]. ^self]. self printStringOf: oop on: aStream. ^aStream cr]. "this is nonsense. apologies." startIP := (objectMemory safeLastPointerOf: oop) + objectMemory bytesPerOop - objectMemory baseHeaderSize / objectMemory bytesPerOop. lastIndex := 256 min: startIP. lastIndex > 0 ifTrue: [1 to: lastIndex do: [:index| aStream space; nextPutAll: (self hex: (objectMemory fetchPointer: index - 1 ofObject: oop) withAttribute: oopTextAttribute); space. aStream nextPutAll: (self shortPrint: (objectMemory fetchPointer: index - 1 ofObject: oop)). index \\ self elementsPerPrintOopLine = 0 ifTrue: [aStream cr]]. lastIndex \\ self elementsPerPrintOopLine = 0 ifFalse: [aStream cr]]. (objectMemory isCompiledMethod: oop) ifFalse: [startIP > 64 ifTrue: [aStream nextPutAll: '...'; cr]] ifTrue: [startIP := startIP * objectMemory wordSize + 1. lastIndex := objectMemory lengthOf: oop. lastIndex - startIP > 100 ifTrue: [lastIndex := startIP + 100]. bytecodesPerLine := 8. column := 1. startIP to: lastIndex do: [:index| | byte | column = 1 ifTrue: [aStream nextPutAll: (oop+objectMemory baseHeaderSize+index-1) hex; print: ': ']. byte := objectMemory fetchByte: index - 1 ofObject: oop. aStream space. byte printOn: aStream base: 16. aStream nextPut: $/. byte printOn: aStream. column := column + 1. column > bytecodesPerLine ifTrue: [column := 1. aStream cr]]. column = 1 ifFalse: [aStream cr]]!

1 0

← Newer
1
2
3
4
5
6
7
8
...
27
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev December 2019