Vm-dev June 2021

vm-dev@lists.squeakfoundation.org

14 participants
74 discussions

Build failed: opensmalltalk-vm 1.0.2453
by AppVeyor 18 Jun '21

18 Jun '21

1 0

[OpenSmalltalk/opensmalltalk-vm] 3d077a: Make less of a mountain of obtaining the os versio...
by Eliot Miranda 18 Jun '21

18 Jun '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 3d077a150a3ee2cb21089e08d9e5a50501ded056 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/3d077a150a3ee2cb21… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-06-18 (Fri, 18 Jun 2021) Changed paths: M platforms/iOS/vm/OSX/sqSqueakOSXApplication+attributes.m Log Message: ----------- Make less of a mountain of obtaining the os version on macOS.

1 0

[OpenSmalltalk/opensmalltalk-vm] 70348c: Win32: Avoid flooding the console with messages fr...
by Eliot Miranda 18 Jun '21

18 Jun '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 70348c9b677bf9abe51c250a76220212f86275fa https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/70348c9b677bf9abe5… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-06-18 (Fri, 18 Jun 2021) Changed paths: M platforms/win32/plugins/SocketPlugin/sqWin32NewNet.c M platforms/win32/vm/sqWin32Utils.c Log Message: ----------- Win32: Avoid flooding the console with messages from sqConnectionStatus in debug builds. Eliminate cr-lfs at the end of GetLastError in vprintLastError. [ci skip] (cuz affects debug build only)

1 0

Printing to stout inside a Squeak plugin class
by Robert 17 Jun '21

17 Jun '21

I wish to print some debugging info to stdout when calling a primitive. How can I do this in Squeak primitive code? I am attaching a file I created under platforms/. I will attempt to call these functions from inside a primitive. Stay tuned... Kindly, Robert . .. ... ‘...^,^ Sent from Europa iPhone

3 3

how to print to stdout in plugin code
by Robert Withers 16 Jun '21

16 Jun '21

I still do not know how I could print debug info to stdout, in a Squeak Plugin primitive. Hopefully I'll learn. This would be such a blessing! Please guide me! In the meantime, I have written all GF methods as primitives, including #decode:twoS:, #runEuclideanAlgorithm adn #dividePoly:, though these 3 are not being called from the DecoderWithPlugin or GFPolyWithPlugin. The only new primitive is GFPoly>>#initializeFiled:coefficients:. Here are the numbers, with RSFEC Tests only. --- > WITH RSPlugin {RSFEC Tests} > > - 47765 tallies, 61320 msec. > > Overall performance increase with and without RSPlugin: 54% > ((116473 - 53364) / 116473) asFloat * 100 54.183372970559695 > > Total WITH RSPlugin rates > (13687 + 14730 + 24947) 53364 > > Without RSPlugin 116473 > > RSFEC 53% > ((13687 + 14730)/ 53364) asFloat * 100 53.25125552807136 > Numerical 47% > (24947 / 53364) asFloat * 100 46.748744471928646 > > **Leaves** > Unpluginized > (12303 + 1384) 13687 > 20.1% {12303ms} RSFECDecoderWithPlugin>>decode:twoS: > 2.3% {1384ms} RSFECDecoderWithPlugin>>runEuclideanAlgorithmPoly:poly:rDegrees: > > Pluginized > (7532 +2877 + 2262 + 1200 + 859) 14730 > 12.3% {7532ms} RSFECGenericGFPoly class>>newField:coefficients: > 4.7% {2877ms} RSFECDecoderWithPlugin>>primFindErrorLocationsDegree:coefficients:fieldSize: > 3.7% {2262ms} RSFECGenericGFPolyWithPlugin>>addOrSubtractPoly: > 2.0% {1200ms} RSFECDecoderWithPlugin>>findErrorMagnitudes:errorLocations: > 1.4% {859ms} RSFECGenericGFWithPlugin>>log: > > Numerical > (4269 + 3571 + 2909 + 2820 + 2093 + 1602 + 1578 + 1530 + 1383 + 877 + 847 + 815 + 653) 24947 > 7.0% {4269ms} LargePositiveInteger(Integer)>>bitShift: > 5.8% {3571ms} SecureHashAlgorithm>>finalHash > 4.7% {2909ms} ByteArray class(Behavior)>>new: > 4.6% {2820ms} LargePositiveInteger>>+ > 3.4% {2093ms} IdentityDictionary(Dictionary)>>at:ifAbsent: > 2.6% {1602ms} ByteSymbol(Object)>>-> > 2.6% {1578ms} WeakIdentityKeyDictionary(WeakKeyDictionary)>>at:ifAbsent: > 2.5% {1530ms} SecureHashAlgorithm>>hashInteger:seed: > 2.3% {1383ms} SecureRandom>>nextRandom160 > 1.4% {877ms} SmallInteger(Magnitude)>>between:and: > 1.4% {847ms} ByteArray>>unsignedLongAt:put:bigEndian: > 1.3% {815ms} [] Delay>>wait > 1.1% {653ms} SmallInteger(Integer)>>timesRepeat: -- --- Kindly, Robert

1 0

[OpenSmalltalk/opensmalltalk-vm] fbc44f: Fix some warnings for sqWin32Sound.c and add stubs...
by Eliot Miranda 15 Jun '21

15 Jun '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: fbc44f286244ab311c96e66f8232265b03c370a7 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/fbc44f286244ab311c… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-06-15 (Tue, 15 Jun 2021) Changed paths: M platforms/win32/plugins/SoundPlugin/sqWin32Sound.c Log Message: ----------- Fix some warnings for sqWin32Sound.c and add stubs for Terf AEC. [ci skip]

1 0

VM Maker Inbox: VMMaker.oscog-dtl.2968.mcz
by commits＠source.squeak.org 14 Jun '21

14 Jun '21

David T. Lewis uploaded a new version of VMMaker to project VM Maker Inbox: http://source.squeak.org/VMMakerInbox/VMMaker.oscog-dtl.2968.mcz ==================== Summary ==================== Name: VMMaker.oscog-dtl.2968 Author: dtl Time: 13 June 2021, 6:26:53.146819 pm UUID: 603814ef-caa5-45c5-a0bd-896866381b01 Ancestors: VMMaker.oscog-eem.2967, VMMaker.oscog-nice.2957 Merge VMMaker.oscog-nice.2957 from inbox required for fix_include_order: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/562 Fix from Alistair Grant for globalSessionID range overflow: https://github.com/pharo-project/opensmalltalk-vm/issues/233 http://lists.squeakfoundation.org/pipermail/vm-dev/2021-May/036291.html =============== Diff against VMMaker.oscog-eem.2967 =============== Item was changed: ----- Method: CCodeGenerator>>emitCHeaderOn: (in category 'C code generator') ----- emitCHeaderOn: aStream "Emit the initial part of a source file on aStream, comprising the version stamp, the global struct usage flags, the header files and preamble code." | headerClass | headerClass := [vmClass coreInterpreterClass] on: MessageNotUnderstood do: [:ex| vmClass]. aStream nextPutAll: (self fileHeaderVersionStampForSourceClass: headerClass); cr; cr. self emitGlobalStructFlagOn: aStream. (vmClass isNil or: [vmClass wantsSqDotH]) ifTrue: [self addHeaderFileFirst: '"sq.h"']. + "Additional header files; use the prescribed order." + self emitHeaderFiles: headerFiles on: aStream. - "Additional header files; include C library ones first." - self emitHeaderFiles: (headerFiles select: [:hdr| hdr includes: $<]) on: aStream. - "Additional header files; include squeak VM ones last" - self emitHeaderFiles: (headerFiles reject: [:hdr| hdr includes: $<]) on: aStream. self maybePutPreambleFor: vmClass on: aStream. aStream cr! Item was changed: ----- Method: Cogit class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator | backEnd | backEnd := CogCompilerClass basicNew. #( 'coInterpreter' 'objectMemory' 'methodZone' 'objectRepresentation' 'cogBlockMethodSurrogateClass' 'cogMethodSurrogateClass' 'nsSendCacheSurrogateClass' 'threadManager' 'processor' 'lastNInstructions' 'simulatedAddresses' 'simulatedTrampolines' 'simulatedVariableGetters' 'simulatedVariableSetters' 'processorFrameValid' 'printRegisters' 'printInstructions' 'clickConfirm' 'singleStep') do: [:simulationVariableNotNeededForRealVM| aCCodeGenerator removeVariable: simulationVariableNotNeededForRealVM]. NewspeakVM ifFalse: [#( 'selfSendTrampolines' 'dynamicSuperSendTrampolines' 'implicitReceiverSendTrampolines' 'outerSendTrampolines' 'ceEnclosingObjectTrampoline' 'numIRCs' 'indexOfIRC' 'theIRCs') do: [:variableNotNeededInNormalVM| aCCodeGenerator removeVariable: variableNotNeededInNormalVM]]. aCCodeGenerator removeConstant: #COGMTVM. "this should be defined at compile time" "N.B. We *do not* include sq.h; it pulls in conflicting definitions now that sqVirtualMachine.h declares cointerp's functions, and declares some of them inaccurately for histrical reasons. We pull in CoInterpreter's api via cointerp.h which is accurate." aCCodeGenerator + addHeaderFile:'"sqConfig.h"'; "config.h must be first on linux" addHeaderFile:'<stddef.h>'; "for e.g. offsetof" addHeaderFile:'<stdio.h>'; addHeaderFile:'<stdlib.h>'; addHeaderFile:'<string.h>'; - addHeaderFile:'"sqConfig.h"'; addHeaderFile:'"sqPlatformSpecific.h"'; "e.g. solaris overrides things for sqCogStackAlignment.h" addHeaderFile:'"sqMemoryAccess.h"'; addHeaderFile:'"sqCogStackAlignment.h"'; addHeaderFile:'"dispdbg.h"'; "must precede cointerp.h & cogit.h otherwise NoDbgRegParms gets screwed up" addHeaderFile:'"cogmethod.h"'. NewspeakVM ifTrue: [aCCodeGenerator addHeaderFile:'"nssendcache.h"']. aCCodeGenerator addHeaderFile:'#if COGMTVM'; addHeaderFile:'"cointerpmt.h"'; addHeaderFile:'#else'; addHeaderFile:'"cointerp.h"'; addHeaderFile:'#endif'; addHeaderFile:'"cogit.h"'. aCCodeGenerator var: #ceGetFP declareC: 'usqIntptr_t (*ceGetFP)(void)'; var: #ceGetSP declareC: 'usqIntptr_t (*ceGetSP)(void)'; var: #ceCaptureCStackPointers declareC: 'void (*ceCaptureCStackPointers)(void)'; var: #ceInvokeInterpret declareC: 'void (*ceInvokeInterpret)(void)'; var: #ceEnterCogCodePopReceiverReg declareC: 'void (*ceEnterCogCodePopReceiverReg)(void)'; var: #realCEEnterCogCodePopReceiverReg declareC: 'void (*realCEEnterCogCodePopReceiverReg)(void)'; var: #ceCallCogCodePopReceiverReg declareC: 'void (*ceCallCogCodePopReceiverReg)(void)'; var: #realCECallCogCodePopReceiverReg declareC: 'void (*realCECallCogCodePopReceiverReg)(void)'; var: #ceCallCogCodePopReceiverAndClassRegs declareC: 'void (*ceCallCogCodePopReceiverAndClassRegs)(void)'; var: #realCECallCogCodePopReceiverAndClassRegs declareC: 'void (*realCECallCogCodePopReceiverAndClassRegs)(void)'; var: #postCompileHook declareC: 'void (*postCompileHook)(CogMethod *)'; var: #openPICList declareC: 'CogMethod *openPICList = 0'; var: #maxMethodBefore type: #'CogBlockMethod *'; var: 'enumeratingCogMethod' type: #'CogMethod *'. aCCodeGenerator var: #ceTryLockVMOwner declareC: '#if COGMTVM\usqIntptr_t (*ceTryLockVMOwner)(usqIntptr_t)\#endif'. backEnd numICacheFlushOpcodes > 0 ifTrue: [aCCodeGenerator var: #ceFlushICache declareC: 'static void (*ceFlushICache)(usqIntptr_t from, usqIntptr_t to)']. aCCodeGenerator var: #ceFlushDCache declareC: '#if DUAL_MAPPED_CODE_ZONE\static void (*ceFlushDCache)(usqIntptr_t from, usqIntptr_t to)\#endif'; var: #codeToDataDelta declareC: '#if DUAL_MAPPED_CODE_ZONE\static sqInt codeToDataDelta\#else\# define codeToDataDelta 0\#endif'. aCCodeGenerator declareVar: 'aMethodLabel' type: #'AbstractInstruction'; "Has to come lexicographically before backEnd & methodLabel" var: #backEnd declareC: 'AbstractInstruction * const backEnd = &aMethodLabel'; var: #methodLabel declareC: 'AbstractInstruction * const methodLabel = &aMethodLabel'. self declareC: #(abstractOpcodes stackCheckLabel blockEntryLabel blockEntryNoContextSwitch stackOverflowCall sendMiss entry noCheckEntry selfSendEntry dynSuperEntry fullBlockNoContextSwitchEntry fullBlockEntry picMNUAbort picInterpretAbort endCPICCase0 endCPICCase1 cPICEndOfCodeLabel) as: #'AbstractInstruction *' in: aCCodeGenerator. aCCodeGenerator declareVar: #cPICPrototype type: #'CogMethod *'; declareVar: #blockStarts type: #'BlockStart *'; declareVar: #fixups type: #'BytecodeFixup *'; declareVar: #methodZoneBase type: #usqInt. aCCodeGenerator var: #ordinarySendTrampolines declareC: 'sqInt ordinarySendTrampolines[NumSendTrampolines]'; var: #superSendTrampolines declareC: 'sqInt superSendTrampolines[NumSendTrampolines]'. BytecodeSetHasDirectedSuperSend ifTrue: [aCCodeGenerator var: #directedSuperSendTrampolines declareC: 'sqInt directedSuperSendTrampolines[NumSendTrampolines]'; var: #directedSuperBindingSendTrampolines declareC: 'sqInt directedSuperBindingSendTrampolines[NumSendTrampolines]']. NewspeakVM ifTrue: [aCCodeGenerator var: #selfSendTrampolines declareC: 'sqInt selfSendTrampolines[NumSendTrampolines]'; var: #dynamicSuperSendTrampolines declareC: 'sqInt dynamicSuperSendTrampolines[NumSendTrampolines]'; var: #implicitReceiverSendTrampolines declareC: 'sqInt implicitReceiverSendTrampolines[NumSendTrampolines]'; var: #outerSendTrampolines declareC: 'sqInt outerSendTrampolines[NumSendTrampolines]']. aCCodeGenerator addConstantForBinding: self bindingForNumTrampolines; var: #trampolineAddresses declareC: 'static char *trampolineAddresses[NumTrampolines*2]'; var: #objectReferencesInRuntime declareC: 'static usqInt objectReferencesInRuntime[NumObjRefsInRuntime+1]'; var: #labelCounter type: #int; var: #traceFlags declareC: 'int traceFlags = 8 /* prim trace log on by default */'; var: #cStackAlignment declareC: 'const int cStackAlignment = STACK_ALIGN_BYTES'. aCCodeGenerator declareVar: #minValidCallAddress type: #'usqIntptr_t'. aCCodeGenerator vmClass generatorTable ifNotNil: [:bytecodeGenTable| aCCodeGenerator var: #generatorTable declareC: 'static BytecodeDescriptor generatorTable[', bytecodeGenTable size printString, ']', (self tableInitializerFor: bytecodeGenTable in: aCCodeGenerator)]. "In C the abstract opcode names clash with the Smalltalk generator syntactic sugar. Most of the syntactic sugar is inlined, but alas some remains. Rename the syntactic sugar to avoid the clash." (self organization listAtCategoryNamed: #'abstract instructions') do: [:s| aCCodeGenerator addSelectorTranslation: s to: 'g', (aCCodeGenerator cFunctionNameFor: s)]. aCCodeGenerator addSelectorTranslation: #halt: to: 'haltmsg'. self declareFlagVarsAsByteIn: aCCodeGenerator! Item was changed: ----- Method: StackInterpreter>>initializeInterpreter: (in category 'initialization') ----- initializeInterpreter: bytesToShift "Initialize Interpreter state before starting execution of a new image." interpreterProxy := self sqGetInterpreterProxy. self dummyReferToProxy. objectMemory initializeObjectMemory: bytesToShift. self checkAssumedCompactClasses. self initializeExtraClassInstVarIndices. method := newMethod := objectMemory nilObject. self cCode: '' inSmalltalk: [breakSelectorLength ifNil: [breakSelectorLength := objectMemory minSmallInteger]. breakLookupClassTag ifNil: [breakLookupClassTag := -1]. reenterInterpreter := ReenterInterpreter new]. methodDictLinearSearchLimit := 8. self initialCleanup. LowcodeVM ifTrue: [ self setupNativeStack ]. profileSemaphore := profileProcess := profileMethod := objectMemory nilObject. interruptKeycode := 2094. "cmd-. as used for Mac but no other OS" [globalSessionID = 0] whileTrue: [globalSessionID := self + cCode: [((self time: #NULL) + self ioMSecs) bitAnd: 16r7FFFFFFF] + inSmalltalk: [(Random new next * (SmallInteger maxVal min: 16r7FFFFFFF)) asInteger]]. - cCode: [(self time: #NULL) + self ioMSecs] - inSmalltalk: [(Random new next * (SmallInteger maxVal min: 16rFFFFFFFF)) asInteger]]. metaAccessorDepth := -2. super initializeInterpreter: bytesToShift!

2 1

kdbg: Breaking in sqUnixMain instead of RSPlugin
by Robert Withers 14 Jun '21

14 Jun '21

Hello all, I am having difficulty in debugging my RSPlugin code for Poly>>#initiazeCield:coefficients:, one of 4 new primitives I have written {#initializeField:coefficients:, #runEuclideanAlgorithm, #dividePolyA:polyB: & #decode:twoS:}. One of my new functions is segfaulting. I make install the build.debug squeak and run kdbg. In kdbg I set the executable, the argument to my image and set a breakpoint inside #primitiveFECInitializePolyFieldSizeCoefficientsOop [1]. When I run the code: RSFECGenericGFPoly>>#newField:coefficients: the kdbg breaks in sqUnixX11 x2sqKeyInput instead of in my primitive. I click run again and it breaks again in sqUnixMain at a function call to sigsegv. I click run once more and squeak exits. I can't catch a break! Is anyone familiar with this behavior and know a fix? [1] #primitiveFECInitializePolyFieldSizeCoefficientsOop - https://pastebin.com/QkkBxFjR Kindly, Robert . .. ... ‘...^,^

1 1

[OpenSmalltalk/opensmalltalk-vm] 271ae5: speeling rorre [ci skip]
by Eliot Miranda 13 Jun '21

13 Jun '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 271ae516b4b6b8934c3d5aada061958969cee851 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/271ae516b4b6b8934c… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-06-13 (Sun, 13 Jun 2021) Changed paths: M platforms/unix/plugins/SoundPlugin/sqUnixSound.c Log Message: ----------- speeling rorre [ci skip]

1 0

Build failed: opensmalltalk-vm 1.0.2452
by AppVeyor 13 Jun '21

13 Jun '21

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev June 2021