Vm-dev October 2016

vm-dev@lists.squeakfoundation.org

30 participants
82 discussions

[OpenSmalltalk/opensmalltalk-vm] f8f6ce: Remove wring-headed 32-bit pcs in 64-bit VMs suppo...
by GitHub 12 Oct '16

12 Oct '16

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: f8f6ce7fac4416f24d1f8983b340fa843dbe5c50 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/f8f6ce7fac4416f24d… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2016-10-11 (Tue, 11 Oct 2016) Changed paths: M platforms/unix/vm/sqUnixVMProfile.c Log Message: ----------- Remove wring-headed 32-bit pcs in 64-bit VMs support because both Mac OS X and Linux use the full 64-bit address space for code.

1 0

[OpenSmalltalk/opensmalltalk-vm] ed4a49: CogVM source as per VMMaker.oscog-eem.1958
by GitHub 12 Oct '16

12 Oct '16

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: ed4a4995910e76d5c86aaca38f859da87fd697b5 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/ed4a4995910e76d5c8… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2016-10-11 (Tue, 11 Oct 2016) Changed paths: M src/plugins/VMProfileMacSupportPlugin/VMProfileMacSupportPlugin.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.1958 Fix VMProfileMacSupportPlugin for 64-bits.

1 0

VM Maker: VMMaker.oscog-eem.1958.mcz
by commits＠source.squeak.org 12 Oct '16

12 Oct '16

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.1958.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.1958 Author: eem Time: 11 October 2016, 4:31:17.738356 pm UUID: 94323b3a-9f16-49d5-b76c-4e8aa1311a66 Ancestors: VMMaker.oscog-eem.1957 Fix VMProfileMacSupportPlugin for 64-bits. In 1958 the European Economic Community (EEC) is founded, a peace symbol is designed and completed by Gerald Holtom, commissioned by the Campaign for Nuclear Disarmament, in protest against the Atomic Weapons Research Establishment, and The Beatles, at the time known as The Quarrymen, pay 17 shillings and 6 pence to have their first recording session where they record Buddy Holly's "That'll Be the Day" and "In Spite of All the Danger", a song written by Paul McCartney and George Harrison. =============== Diff against VMMaker.oscog-eem.1957 =============== Item was changed: ----- Method: VMProfileMacSupportPlugin>>primitiveExecutableModulesAndOffsets (in category 'primitives') ----- primitiveExecutableModulesAndOffsets "Answer an Array of quads for executable modules (the VM executable and loaded libraries). Each quad is the module's name, its vm address relocation in memory, the (unrelocated) start address, and the size." + | nimages resultObj name valueObj nameObjData slide start size | - | present nimages resultObj name valueObj nameObjData slide start size h h64 s | <export: true> <var: #name type: 'const char *'> <var: #nameObjData type: #'char *'> <var: #h type: 'const struct mach_header *'> <var: #h64 type: 'const struct mach_header_64 *'> + <var: #s64 type: 'const struct section_64 *'> <var: #s type: 'const struct section *'> <var: #start type: 'unsigned long'> + <var: #slide type: 'unsigned long'> <var: #size type: 'unsigned long'> self cppIf: #'MAC_OS_X_VERSION_MIN_REQUIRED' <= #'MAC_OS_X_VERSION_10_4' ifTrue: "_dyld_present was deprecated in 10.5" + [(self cCode: '_dyld_present()' inSmalltalk: false) ifFalse: - [present := self cCode: '_dyld_present()' inSmalltalk: [false]. - present ifFalse: [^interpreterProxy primitiveFail]]. + nimages := self cCode: '_dyld_image_count()' inSmalltalk: 0. - nimages := self cCode: '_dyld_image_count()' inSmalltalk: [0]. resultObj := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: nimages * 4. resultObj = 0 ifTrue: [^interpreterProxy primitiveFail]. interpreterProxy pushRemappableOop: resultObj. 0 to: nimages - 1 do: [:i| start := size := -1. "impossible start & size" + name := self cCode: '_dyld_get_image_name(i)' inSmalltalk: 0. + slide := self cCode: '_dyld_get_image_vmaddr_slide(i)' inSmalltalk: 0. - name := self cCode: '_dyld_get_image_name(i)' inSmalltalk: [0]. - slide := self cCode: '_dyld_get_image_vmaddr_slide(i)' inSmalltalk: [0]. self cppIf: #'__x86_64__' ifTrue: + [(self cCode: '(const struct mach_header_64 *)_dyld_get_image_header(i)' inSmalltalk: nil) ifNotNil: + [:h64| + (self cCode: 'getsectbynamefromheader_64(h64,SEG_TEXT,SECT_TEXT)' inSmalltalk: nil) ifNotNil: + [:s64| + start := self cCode: 's64->addr' inSmalltalk: 0. + size := self cCode: 's64->size' inSmalltalk: 0]]] - [h64 := self cCode: '_dyld_get_image_header(i)' inSmalltalk: [0]. - h64 ifNotNil: - [s := self cCode: 'getsectbynamefromheader_64(h64,SEG_TEXT,SECT_TEXT)' inSmalltalk: [0]. - s ~= nil ifTrue: - [start := self cCode: 's->addr' inSmalltalk: [0]. - size := self cCode: 's->size' inSmalltalk: [0]]]] ifFalse: + [(self cCode: '_dyld_get_image_header(i)' inSmalltalk: nil) ifNotNil: + [:h| + (self cCode: 'getsectbynamefromheader(h,SEG_TEXT,SECT_TEXT)' inSmalltalk: nil) ifNotNil: + [:s| + start := self cCode: 's->addr' inSmalltalk: 0. + size := self cCode: 's->size' inSmalltalk: 0]]]. - [h := self cCode: '_dyld_get_image_header(i)' inSmalltalk: [0]. - h ifNotNil: - [s := self cCode: 'getsectbynamefromheader(h,SEG_TEXT,SECT_TEXT)' inSmalltalk: [0]. - s ~= nil ifTrue: - [start := self cCode: 's->addr' inSmalltalk: [0]. - size := self cCode: 's->size' inSmalltalk: [0]]]]. valueObj := interpreterProxy instantiateClass: interpreterProxy classString indexableSize: (self strlen: name). interpreterProxy failed ifTrue: [interpreterProxy popRemappableOop. ^interpreterProxy primitiveFail]. interpreterProxy storePointer: i * 4 ofObject: interpreterProxy topRemappableOop withValue: valueObj. nameObjData := interpreterProxy arrayValueOf: valueObj. self mem: nameObjData cp: name y: (self strlen: name). + valueObj := interpreterProxy signedMachineIntegerFor: slide. - valueObj := interpreterProxy signed32BitIntegerFor: slide. interpreterProxy failed ifTrue: [interpreterProxy popRemappableOop. ^interpreterProxy primitiveFail]. interpreterProxy storePointer: i * 4 + 1 ofObject: interpreterProxy topRemappableOop withValue: valueObj. valueObj := interpreterProxy positiveMachineIntegerFor: start. interpreterProxy failed ifTrue: [interpreterProxy popRemappableOop. ^interpreterProxy primitiveFail]. interpreterProxy storePointer: i * 4 + 2 ofObject: interpreterProxy topRemappableOop withValue: valueObj. valueObj := interpreterProxy positiveMachineIntegerFor: size. interpreterProxy failed ifTrue: [interpreterProxy popRemappableOop. ^interpreterProxy primitiveFail]. interpreterProxy storePointer: i * 4 + 3 ofObject: interpreterProxy topRemappableOop withValue: valueObj]. resultObj := interpreterProxy popRemappableOop. ^interpreterProxy pop: 1 thenPush: resultObj!

1 0

Speedcenter setup
by Tim Felgentreff 10 Oct '16

10 Oct '16

Hi, I finally got around to enabling automatic nightly benchmarking for all branches for both opensmalltalk-vm and rsqueak. Before I had to manually trigger benchmarks for opensmalltalk-vm. Now a nightly cron job checks for new passed builds on all branches and then tries to run benchmarks for the resulting binaries. Note, however, that we're only uploading binaries for the master and Cog branch right now on opensmalltalk-vm, so all other branches are schedules but then skipped, because no binaries are available. The benchmarking machine is still running at this point, a full set of benchmarks takes about 4-5 hours per binary. So I expect the results for yesterdays VMs to come in this afternoon GMT+1. Not all of the benchmarks are well scaled right now, so that might need some tweaking, but since there has been talk about various performance optimizations recently, I figured we should be more vigilant in tracking the results of that. For example, Clement mentioned recent optimizations that should have results in binarytrees. It's nice if we can see that in the timeline. This page in particular may be interesting to check once in a while: http://speed.squeak.org/timeline/#/?exe=1,5&ben=grid&env=2&revs=50&equid=on If anyone wants to take a look at the code and benchmarks, the about page links to all relevant repositories. I'm happy to give people access so they can add or change or remove benchmarks. cheers, Tim

6 15

[OpenSmalltalk/opensmalltalk-vm] cd288d: bug fix: too many characters were allowed to be wr...
by GitHub 10 Oct '16

10 Oct '16

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: cd288d4867296a3f4bf914bb44a2ad343a71368c https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/cd288d4867296a3f4b… Author: Gerardo Santana <gsantana(a)ea.com> Date: 2016-10-08 (Sat, 08 Oct 2016) Changed paths: M platforms/unix/vm/sqUnixExternalPrims.c Log Message: ----------- bug fix: too many characters were allowed to be written to buf. Commit: b7735bb6468fcc2f35e630d38ed3a4945c03cbbe https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/b7735bb6468fcc2f35… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2016-10-10 (Mon, 10 Oct 2016) Changed paths: M platforms/unix/vm/sqUnixExternalPrims.c Log Message: ----------- Merge pull request #77 from santana/bugfix bug fix: too many characters were allowed to be written to buf. Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/d04da6758de8...b7…

1 0

build.linux32x86 / pharo.cog.spur / build.debug
by Ben Coman 09 Oct '16

09 Oct '16

I noticed with interest that there is a new pharo.cog.spur directory. So just reporting on 32bit Debian Jessie running... .../build.linux32x86/pharo.cog.spur/build.debug/mvm produces a VM that opens Pharo build 60257 with TestRunner results... 12515 run, 12448 passes, 20 skipped, 59 expected failures, 6 failures, 2 errors, 0 unexpected passes I made one change to download PharoV50.sources if they can't be found in the expected location. https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/79 cheers -ben

2 1

Re: [Vm-dev] VM Maker: VMMaker.oscog-eem.1957.mcz
by tim Rowledge 06 Oct '16

06 Oct '16

> > In 1957 Wham-O Company produces the first Frisbee, [snip], and the Soviet Union launches Sputnik 1, the first artificial satellite to orbit the earth. Coincidence? I don’t think so…. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: BIK: Buggered if I Know

1 0

VM Maker: VMMaker.oscog-eem.1957.mcz
by commits＠source.squeak.org 06 Oct '16

06 Oct '16

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.1957.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.1957 Author: eem Time: 6 October 2016, 12:14:39.49206 pm UUID: e8c3b526-d0ba-4dc0-ac59-da495553cf21 Ancestors: VMMaker.oscog-eem.1956 Add "print context..." to the Stack VM simulator's utilities menu. In 1957 Wham-O Company produces the first Frisbee, IBM sells the first compiler for the Fortran scientific programming language, and the Soviet Union launches Sputnik 1, the first artificial satellite to orbit the earth. =============== Diff against VMMaker.oscog-eem.1956 =============== Item was changed: ----- Method: StackInterpreterSimulator>>utilitiesMenu: (in category 'UI') ----- utilitiesMenu: aMenuMorph aMenuMorph add: 'toggle transcript' action: #toggleTranscript; add: 'clone VM' action: #cloneSimulationWindow; addLine; add: 'print ext head frame' action: #printExternalHeadFrame; add: 'print int head frame' action: #printHeadFrame; add: 'short print ext frame & callers' action: [self shortPrintFrameAndCallers: framePointer]; add: 'short print int frame & callers' action: [self shortPrintFrameAndCallers: localFP]; add: 'long print ext frame & callers' action: [self printFrameAndCallers: framePointer SP: stackPointer]; add: 'long print int frame & callers' action: [self printFrameAndCallers: localFP SP: localSP]; add: 'print frame...' action: [(self promptHex: 'print frame') ifNotNil: [:fp| self printFrame: fp]]; add: 'print call stack' action: #printCallStack; add: 'print stack call stack' action: #printStackCallStack; add: 'print stack call stack of...' action: [(self promptHex: 'frame') ifNotNil: [:fp| self printStackCallStackOf: fp]]; add: 'print call stack of...' action: [(self promptHex: 'context or process oop') ifNotNil: [:obj| self printCallStackOf: obj]]; add: 'print call stack of frame...' action: [(self promptHex: 'frame') ifNotNil: [:fp| self printCallStackFP: fp]]; add: 'print all stacks' action: #printAllStacks; add: 'write back local ptrs' action: [stackPointer := localSP. framePointer := localFP. instructionPointer := localIP. self writeBackHeadFramePointers]; add: 'print prim trace log' action: #dumpPrimTraceLog; addLine; add: 'print oop...' action: [(self promptHex: 'print oop') ifNotNil: [:oop| self printOop: oop]]; add: 'long print oop...' action: [(self promptHex: 'print oop') ifNotNil: [:oop| self longPrintOop: oop]]; + add: 'print context...' action: [(self promptHex: 'print context') ifNotNil: [:oop| self printContext: oop]]; addLine; add: 'inspect object memory' target: objectMemory action: #inspect; add: 'run leak checker' action: [Cursor execute showWhile: [self runLeakChecker]]; add: 'inspect interpreter' action: #inspect; addLine; add: 'set break count...' action: [|s| s := UIManager default request: 'break count (dec)'. s notEmpty ifTrue: [breakCount := Integer readFrom: s readStream]]; add: 'set break selector...' action: [|s| s := UIManager default request: 'break selector'. s notEmpty ifTrue: [self setBreakSelector: s]]; add: 'turn valid exec ptrs assert o', (assertVEPAES ifTrue: ['ff'] ifFalse: ['n']) action: [assertVEPAES := assertVEPAES not]; add: (printSends ifTrue: ['no print sends'] ifFalse: ['print sends']) action: [self ensureDebugAtEachStepBlock. printSends := printSends not]; "currently printReturns does nothing" "add: (printReturns ifTrue: ['no print returns'] ifFalse: ['print returns']) action: [self ensureDebugAtEachStepBlock. printReturns := printReturns not];" add: (printBytecodeAtEachStep ifTrue: ['no print bytecode each bytecode'] ifFalse: ['print bytecode each bytecode']) action: [self ensureDebugAtEachStepBlock. printBytecodeAtEachStep := printBytecodeAtEachStep not]; add: (printFrameAtEachStep ifTrue: ['no print frame each bytecode'] ifFalse: ['print frame each bytecode']) action: [self ensureDebugAtEachStepBlock. printFrameAtEachStep := printFrameAtEachStep not]. ^aMenuMorph!

1 0

VM Maker: CogTools-eem.76.mcz
by commits＠source.squeak.org 06 Oct '16

06 Oct '16

Eliot Miranda uploaded a new version of CogTools to project VM Maker: http://source.squeak.org/VMMaker/CogTools-eem.76.mcz ==================== Summary ==================== Name: CogTools-eem.76 Author: eem Time: 6 October 2016, 12:02:39.643678 pm UUID: 7a99d08b-be74-4b9d-b251-c92799b15e2a Ancestors: CogTools-eem.75 On Mac OS X, don't use the -f option to nm; it is misinterpeeted on El Capitain to mean "-format". =============== Diff against CogTools-eem.75 =============== Item was changed: ----- Method: VMProfilerMacSymbolsManager>>parseSymbolsFor: (in category 'parsing') ----- parseSymbolsFor: module | arch proc symtab symStream | - arch := (Smalltalk image getSystemAttribute: 1003) caseOf: { - ['intel'] -> ['i386']. - ['x64'] -> ['x86_64']. - }. (tempDir fileExists: module shortName) ifFalse: + [arch := (Smalltalk image getSystemAttribute: 1003) caseOf: { + ['intel'] -> ['i386']. + ['x64'] -> ['x86_64'] }. + "N.B. Don't use the -f option (which meant flat symbols) as in El Capitan it is misinterpreted to mean -format." + proc := OSProcess thisOSProcess command: - [proc := OSProcess thisOSProcess command: 'cd ', tempDir fullName, + ';nm -n -arch ', arch, " -f" ' "', module name, '" | grep -v " [aAU] " >"', module shortName, '"']. - ';nm -n -arch ', arch, ' -f "', module name, '" | grep -v " [aAU] " >"', module shortName, '"']. symStream := (Array new: 1000) writeStream. symStream nextPut: module. proc ifNotNil: [[proc isComplete] whileFalse: [(Delay forMilliseconds: 25) wait]]. symtab := [StandardFileStream readOnlyFileNamed: (tempDir fullNameFor: module shortName)] on: Error do: [:ex| "Handle flaky OSProcess stuff by reporting error and failing to parse" Transcript print: ex; flush. ^nil]. module shortName = 'HIToolbox' ifTrue: [self halt]. [| prev | prev := self parseSymbolsFrom: symtab to: symStream. "CoreAUC has a huge chunk of data at the end of its text segment that causes the profiler to spend ages counting zeros. Hack fix by setting the end of the last symbol in the text segment to a little less than 1Mb." "00000000000f1922 retq" "Mavericks 13.4" "00000000000f3b21 retq" "Yosemite 14.5" module shortName = 'CoreAUC' ifTrue: [prev limit: 16rf8000]. symbolsByModule at: module put: (self relocateSymbols: symStream contents allButFirst inModule: module). (prev notNil and: [prev limit isNil]) ifTrue: [prev limit: module limit]] ensure: [symtab close]!

1 0

Android VM
by Santiago Bragagnolo 06 Oct '16

06 Oct '16

Hi All! I'm working on the Android VM. (https://github.com/sbragagnolo/pharo-vm) So far I made my way on my own(I have a working compilation of the stack vm for android functional, but without uffi and quite slow ). But now i have a problem that I don't understand at all, i would like if someone can point me a clue :). Im working on the VM+Jit for android. The device i'am using to test is a wiko pulp 4g[1], processor Quad-core 1.2 GHz Cortex-A53 with support for 32bits/64bits instructions [2] I am compiling the VM with the following maker options: *maker options: #(* * ObjectMemory Spur32BitCoMemoryManager* * FailImbalancedPrimitives false* * CogCompilerClass CogOutOfLineLiteralsARMCompiler* * ISA ARMv5).* After some manual post processing (related to an other question that i will do in other thread), I arrive to compile and deploy the application in to my device. But when I open the application I am having the following assertion failure ( defined in sqCogStackAlignment.h ), *assert((getfp() & STACK_ALIGN_MASK) == STACK_FP_ALIGNMENT);* and failing in the second call for the assertion, on the generated function *generateStackPointerCapture* on the generated file *cogitARMv5.c*, based on the method *Cogit>>#generateStackPointerCapture, *and not finishing the process, but just failing many other times in the same assertion (not sure if on the same function) *=====================* static void generateStackPointerCapture(void) { sqInt oldMethodZoneBase; sqInt oldTrampolineTableIndex; /* For the benefit of the following assert, assume the minimum at first. */ cFramePointerInUse = 0; assertCStackWellAligned(); oldMethodZoneBase = methodZoneBase; oldTrampolineTableIndex = trampolineTableIndex; generateCaptureCStackPointers(1); ceCaptureCStackPointers(); if (!((cFramePointerInUse = isCFramePointerInUse()))) { methodZoneBase = oldMethodZoneBase; trampolineTableIndex = oldTrampolineTableIndex; generateCaptureCStackPointers(0); } assertCStackWellAligned(); *// it fails Here* } *======================* Here I'm lacking understanding, and even when after some painful time I arrived to be able to debug on my device when I leave the debugger just to run and randomly interrupt the process to know where is failing constantly (i'm almost sure that is an infinite loop, because of the standard output) It just die, or it stops without showing code, since is the code stored on the assembly files. I have two obvious questions: 1) does the prepareVmMaker method that I defined makes sense? 2) any body can give me a hint about how to debug better this problem? And finally, does any body have a hint in general about what can it be? [1] http://www.gsmarena.com/wiko_pulp_4g-7811.php [2] http://www.arm.com/products/processors/cortex-a/cortex-a53-processor.php

3 2

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev October 2016