Vm-dev January 2021

vm-dev@lists.squeakfoundation.org

20 participants
161 discussions

[OpenSmalltalk/opensmalltalk-vm] 3c8674: Fix slip in platforms/win32/plugins/SoundPlugin/s...
by Eliot Miranda 06 Jan '21

06 Jan '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 3c86748664c35905f35a89d8e201b364520d4c7c https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/3c86748664c35905f3… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2020-12-30 (Wed, 30 Dec 2020) Changed paths: M platforms/win32/plugins/SoundPlugin/sqWin32Sound.c Log Message: ----------- Fix slip in platforms/win32/plugins/SoundPlugin/sqWin32Sound.c Commit: d2d98d47ff11a6637f6f48c10e27159c96561612 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/d2d98d47ff11a6637f… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-01-05 (Tue, 05 Jan 2021) Changed paths: M build.win32x86/common/Makefile.msvc.tools M build.win64x64/common/Makefile.msvc.tools M nsspur64src/vm/cogit.h M nsspur64src/vm/cogitARMv8.c M nsspur64src/vm/cogitX64SysV.c M nsspur64src/vm/cogitX64WIN64.c M nsspursrc/vm/cogit.h M nsspursrc/vm/cogitARMv5.c M nsspursrc/vm/cogitIA32.c M nsspursrc/vm/cogitMIPSEL.c M platforms/Cross/plugins/BochsIA32Plugin/sqBochsIA32Plugin.cpp M platforms/Cross/plugins/BochsX64Plugin/sqBochsX64Plugin.cpp M platforms/Cross/plugins/DropPlugin/DropPlugin.h M platforms/Mac OS/vm/sqMacUnixCommandLineInterface.c M platforms/iOS/vm/OSX/sqSqueakOSXApplication.m M platforms/iOS/vm/OSX/sqSqueakOSXDropAPI.m M platforms/iOS/vm/OSX/sqSqueakOSXMetalView.m M platforms/unix/plugins/DropPlugin/sqUnixDragDrop.c M platforms/unix/vm-display-X11/sqUnixXdnd.c M platforms/unix/vm/sqUnixMain.c M platforms/win32/plugins/CameraPlugin/winCameraOps.cpp M platforms/win32/plugins/DropPlugin/sqWin32Drop.c M platforms/win32/plugins/HostWindowPlugin/sqWin32HostWindowPlugin.c M platforms/win32/plugins/SqueakSSL/sqWin32SSL.c M platforms/win32/vm/sqWin32.h M platforms/win32/vm/sqWin32ExternalPrims.c M platforms/win32/vm/sqWin32Main.c M platforms/win32/vm/sqWin32Prefs.c M platforms/win32/vm/sqWin32Utils.c M spur64src/vm/cogit.h M spur64src/vm/cogitARMv8.c M spur64src/vm/cogitX64SysV.c M spur64src/vm/cogitX64WIN64.c M spurlowcode64src/vm/cogit.h M spurlowcode64src/vm/cogitARMv8.c M spurlowcode64src/vm/cogitX64SysV.c M spurlowcode64src/vm/cogitX64WIN64.c M spurlowcodesrc/vm/cogit.h M spurlowcodesrc/vm/cogitARMv5.c M spurlowcodesrc/vm/cogitIA32.c M spurlowcodesrc/vm/cogitMIPSEL.c M spursista64src/vm/cogit.h M spursista64src/vm/cogitARMv8.c M spursista64src/vm/cogitX64SysV.c M spursista64src/vm/cogitX64WIN64.c M spursistasrc/vm/cogit.h M spursistasrc/vm/cogitARMv5.c M spursistasrc/vm/cogitIA32.c M spursistasrc/vm/cogitMIPSEL.c M spursrc/vm/cogit.h M spursrc/vm/cogitARMv5.c M spursrc/vm/cogitIA32.c M spursrc/vm/cogitMIPSEL.c M src/plugins/DropPlugin/DropPlugin.c M src/vm/cogit.h M src/vm/cogitARMv5.c M src/vm/cogitIA32.c M src/vm/cogitMIPSEL.c M src/vm/cointerp.c M src/vm/cointerp.h M src/vm/gcc3x-cointerp.c M stacksrc/vm/gcc3x-interp.c M stacksrc/vm/interp.c Log Message: ----------- Merge branch 'Cog' of https://github.com/OpenSmalltalk/opensmalltalk-vm into Cog Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/facfd9012e9f...d2…

3 2

Build failed: opensmalltalk-vm 1.0.2349
by AppVeyor 06 Jan '21

06 Jan '21

1 0

Build failed: opensmalltalk-vm 1.0.2348
by AppVeyor 06 Jan '21

06 Jan '21

1 0

Build failed: opensmalltalk-vm 1.0.2347
by AppVeyor 06 Jan '21

06 Jan '21

1 0

Build completed: opensmalltalk-vm 1.0.2346
by AppVeyor 06 Jan '21

06 Jan '21

1 0

[OpenSmalltalk/opensmalltalk-vm] 49df9d: Oops; we don't need to fix the issue twice [ci skip]
by Eliot Miranda 06 Jan '21

06 Jan '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 49df9d221c2feeb70a0ac846b48f3b3eab7320a1 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/49df9d221c2feeb70a… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-01-05 (Tue, 05 Jan 2021) Changed paths: M platforms/unix/vm/sqUnixVMProfile.c Log Message: ----------- Oops; we don't need to fix the issue twice [ci skip]

1 0

[OpenSmalltalk/opensmalltalk-vm] eb4a89: sqUnixDragDrop.c needs sqAssert.h. ollow Ronie's ...
by Eliot Miranda 06 Jan '21

06 Jan '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: eb4a89d2871f9f8c4d31b246a3c02924d2166442 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/eb4a89d2871f9f8c4d… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-01-05 (Tue, 05 Jan 2021) Changed paths: M platforms/unix/plugins/DropPlugin/sqUnixDragDrop.c M platforms/unix/vm/sqUnixVMProfile.c Log Message: ----------- sqUnixDragDrop.c needs sqAssert.h. ollow Ronie's lead in dealing with sched.h's definition of clone., which conflicts with the interpreter's.

1 0

[OpenSmalltalk/opensmalltalk-vm] 54673c: CogVM source as per VMMaker.oscog-eem.2925
by Eliot Miranda 06 Jan '21

06 Jan '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 54673c80163c6be40f7a269ff1346ed7f689ebb5 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/54673c80163c6be40f… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-01-05 (Tue, 05 Jan 2021) Changed paths: M nsspur64src/vm/cogit.h M nsspur64src/vm/cogitARMv8.c M nsspur64src/vm/cogitX64SysV.c M nsspur64src/vm/cogitX64WIN64.c M nsspur64src/vm/cointerp.c M nsspur64src/vm/cointerp.h M nsspur64src/vm/gcc3x-cointerp.c M nsspursrc/vm/cogit.h M nsspursrc/vm/cogitARMv5.c M nsspursrc/vm/cogitIA32.c M nsspursrc/vm/cogitMIPSEL.c M nsspursrc/vm/cointerp.c M nsspursrc/vm/cointerp.h M nsspursrc/vm/gcc3x-cointerp.c M nsspurstack64src/vm/gcc3x-interp.c M nsspurstack64src/vm/interp.c M nsspurstacksrc/vm/gcc3x-interp.c M nsspurstacksrc/vm/interp.c M spur64src/vm/cogit.h M spur64src/vm/cogitARMv8.c M spur64src/vm/cogitX64SysV.c M spur64src/vm/cogitX64WIN64.c M spur64src/vm/cointerp.c M spur64src/vm/cointerp.h M spur64src/vm/cointerpmt.c M spur64src/vm/cointerpmt.h M spur64src/vm/gcc3x-cointerp.c M spur64src/vm/gcc3x-cointerpmt.c M spurlowcode64src/vm/cogit.h M spurlowcode64src/vm/cogitARMv8.c M spurlowcode64src/vm/cogitX64SysV.c M spurlowcode64src/vm/cogitX64WIN64.c M spurlowcode64src/vm/cointerp.c M spurlowcode64src/vm/cointerp.h M spurlowcode64src/vm/gcc3x-cointerp.c M spurlowcodesrc/vm/cogit.h M spurlowcodesrc/vm/cogitARMv5.c M spurlowcodesrc/vm/cogitIA32.c M spurlowcodesrc/vm/cogitMIPSEL.c M spurlowcodesrc/vm/cointerp.c M spurlowcodesrc/vm/cointerp.h M spurlowcodesrc/vm/gcc3x-cointerp.c M spurlowcodestack64src/vm/gcc3x-interp.c M spurlowcodestack64src/vm/interp.c M spurlowcodestacksrc/vm/gcc3x-interp.c M spurlowcodestacksrc/vm/interp.c M spursista64src/vm/cogit.h M spursista64src/vm/cogitARMv8.c M spursista64src/vm/cogitX64SysV.c M spursista64src/vm/cogitX64WIN64.c M spursista64src/vm/cointerp.c M spursista64src/vm/cointerp.h M spursista64src/vm/gcc3x-cointerp.c M spursistasrc/vm/cogit.h M spursistasrc/vm/cogitARMv5.c M spursistasrc/vm/cogitIA32.c M spursistasrc/vm/cogitMIPSEL.c M spursistasrc/vm/cointerp.c M spursistasrc/vm/cointerp.h M spursistasrc/vm/gcc3x-cointerp.c M spursrc/vm/cogit.h M spursrc/vm/cogitARMv5.c M spursrc/vm/cogitIA32.c M spursrc/vm/cogitMIPSEL.c M spursrc/vm/cointerp.c M spursrc/vm/cointerp.h M spursrc/vm/cointerpmt.c M spursrc/vm/cointerpmt.h M spursrc/vm/gcc3x-cointerp.c M spursrc/vm/gcc3x-cointerpmt.c M spurstack64src/vm/gcc3x-interp.c M spurstack64src/vm/interp.c M spurstack64src/vm/validImage.c M spurstacksrc/vm/gcc3x-interp.c M spurstacksrc/vm/interp.c M spurstacksrc/vm/validImage.c M src/ckformat.c M src/vm/cogit.h M src/vm/cogitARMv5.c M src/vm/cogitIA32.c M src/vm/cogitMIPSEL.c M src/vm/cointerp.c M src/vm/cointerp.h M src/vm/gcc3x-cointerp.c M stacksrc/vm/gcc3x-interp.c M stacksrc/vm/interp.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2925 Cogit: More cleanup given that sqVirtualMachine.h reveals the direct interpreter API to SQUEAK_BUILTIN_PLUGIN which is alas defined for cogit.c. Hence the conflicts between sqVirtualMachine.h and cointerp.h force us to not include sq.h in cogit.c. Maybe this is worse than the disease of sqVirtualMachine.h's API being inaccurate. But one step at a time.

1 0

VM Maker: VMMaker.oscog-eem.2925.mcz
by commits＠source.squeak.org 06 Jan '21

06 Jan '21

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2925.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2925 Author: eem Time: 5 January 2021, 4:07:48.282359 pm UUID: bc30e1c2-363b-4238-ac06-0fc4bc0cfa96 Ancestors: VMMaker.oscog-eem.2924 Cogit: More cleanup given that sqVirtualMachine.h reveals the direct interpreter API to SQUEAK_BUILTIN_PLUGIN which is alas defined for cogit.c. Hence the conflicts between sqVirtualMachine.h and cointerp.h force us to not include sq.h in cogit.c. Maybe this is worse than the disease of sqVirtualMachine.h's API being inaccurate. But ione step at a time. MTVM: Smilaiton time recording of instructions in tryLockVMOwnerTo: while debugging x86_64's implementation. =============== Diff against VMMaker.oscog-eem.2924 =============== 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"']. - self addHeaderFileFirst: '"sq.h"'. "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: CoInterpreter>>interpret (in category 'interpreter shell') ----- interpret "This is the main interpreter loop. In a pure interpreter it loops forever, fetching and executing bytecodes. With the Cogit JIT executing code as well, the interpreter is reentered from machine code whenever the machine code wants to interpret a method instead of executing its machine code. Entry into the interpreter is done via a ''jump call'' in machine code that uses CFramePointer and CStackPointer to find the base of the C stack (set in CoInterpreter>> enterSmalltalkExecutiveImplementation) and substitutes CReturnAddress as the return address in the code so it always appears that interpret has been called from CoInterpreter>>enterSmalltalkExecutiveImplementation, which may be important to, for example, C exception handling inside the VM. When running in the context of a browser plugin VM the interpreter must return control to the browser periodically. This should done only when the state of the currently running Squeak thread is safely stored in the object heap. Since this is the case at the moment that a check for interrupts is performed, that is when we return to the browser if it is time to do so. Interrupt checks happen quite frequently." + <api> <inline: false> "If stacklimit is zero then the stack pages have not been initialized." stackLimit = 0 ifTrue: [^self initStackPagesAndInterpret]. "An unchecked write is probably faster, so instead of CReturnAddress ifNil: [CReturnAddress := self cCoerceSimple: self getReturnAddress to: #usqIntptr_t] we have simply" self assert: (CReturnAddress isNil or: [CReturnAddress = (self cCoerceSimple: self getReturnAddress to: #usqIntptr_t)]). CReturnAddress := self cCoerceSimple: self getReturnAddress to: #usqIntptr_t. self useCogitBreakBlockIfNone. "record entry time when running as a browser plug-in" self browserPluginInitialiseIfNeeded. self setMethod: (self iframeMethod: framePointer). self deny: instructionPointer = cogit ceReturnToInterpreterPC. self assertValidExecutionPointe: instructionPointer r: framePointer s: stackPointer imbar: true line: #'__LINE__'. self internalizeIPandSP. self initExtensions. self fetchNextBytecode. [true] whileTrue: [self aboutToDispatchBytecode. self dispatchOn: currentBytecode in: BytecodeTable]. localIP := localIP - 1. "undo the pre-increment of IP before returning" self externalizeIPandSP. ^nil! 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:'<stddef.h>'; "for e.g. offsetof" + addHeaderFile:'"sqConfig.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 added: + ----- Method: Cogit class>>wantsSqDotH (in category 'translation') ----- + wantsSqDotH + ^false! Item was added: + ----- Method: Cogit>>null (in category 'translation') ----- + null + "This is needed since Cogits do not include sq.h." + <cmacro: ' 0'> + ^nil! Item was added: + ----- Method: Cogit>>reportInstructions: (in category 'debugging') ----- + reportInstructions: instructions + <doNotGenerate> + | skipNext printInst | + skipNext := false. + printInst := [:inst| + coInterpreter transcript nextPutAll: + (EagerInstructionDecoration + ifTrue: [inst] + ifFalse: [processor + decorateDisassembly: inst + for: self + fromAddress: ((inst at: 3) = $r + ifTrue: [Integer readFrom: inst readStream] + ifFalse: [Integer readFrom: inst readStream base: 16])]); cr]. + instructions withIndexDo: + [:thing :idx| + skipNext + ifTrue: [skipNext := false] + ifFalse: + [thing isString + ifFalse: + [thing first isString "i.e. { '(simulated return to '. processor retpcIn: coInterpreter memory. ')'}" + ifTrue: + [thing do: + [:stringOrNumber| + coInterpreter transcript nextPutAll: (stringOrNumber isString + ifTrue: [stringOrNumber] + ifFalse: [stringOrNumber hex])]. + coInterpreter transcript cr] + ifFalse: "if possible, add the label to the instruction line to condense the output" + [coInterpreter transcript cr. + (thing at: processor registerStatePCIndex ifAbsent: []) ifNotNil: + [:pc| | next label | + label := self relativeLabelForPC: pc. + ((next := instructions at: idx + 1 ifAbsent: []) notNil + and: [next isString + and: [(Integer readFrom: next readStream radix: 16) = pc]]) + ifTrue: "Decorate instruction and eliminate pc line" + [skipNext := true. + processor printRegisterStateExceptPC: thing on: coInterpreter transcript. + label ifNotNil: [coInterpreter transcript nextPutAll: label; space]. + printInst value: next] + ifFalse: + [label ifNotNil: [coInterpreter transcript nextPutAll: label; nextPut: $:; cr]. + processor printRegisterState: thing on: coInterpreter transcript]]]] + ifTrue: + [printInst value: thing]]]. + coInterpreter transcript flush! Item was changed: ----- Method: Cogit>>reportLastNInstructions (in category 'debugging') ----- reportLastNInstructions <doNotGenerate> + self reportInstructions: lastNInstructions! - | skipNext printInst | - skipNext := false. - printInst := [:inst| - coInterpreter transcript nextPutAll: - (EagerInstructionDecoration - ifTrue: [inst] - ifFalse: [processor - decorateDisassembly: inst - for: self - fromAddress: ((inst at: 3) = $r - ifTrue: [Integer readFrom: inst readStream] - ifFalse: [Integer readFrom: inst readStream base: 16])]); cr]. - lastNInstructions withIndexDo: - [:thing :idx| - skipNext - ifTrue: [skipNext := false] - ifFalse: - [thing isString - ifFalse: - [thing first isString "i.e. { '(simulated return to '. processor retpcIn: coInterpreter memory. ')'}" - ifTrue: - [thing do: - [:stringOrNumber| - coInterpreter transcript nextPutAll: (stringOrNumber isString - ifTrue: [stringOrNumber] - ifFalse: [stringOrNumber hex])]. - coInterpreter transcript cr] - ifFalse: "if possible, add the label to the instruction line to condense the output" - [coInterpreter transcript cr. - (thing at: processor registerStatePCIndex ifAbsent: []) ifNotNil: - [:pc| | next label | - label := self relativeLabelForPC: pc. - ((next := lastNInstructions at: idx + 1 ifAbsent: []) notNil - and: [next isString - and: [(Integer readFrom: next readStream radix: 16) = pc]]) - ifTrue: "Decorate instruction and eliminate pc line" - [skipNext := true. - processor printRegisterStateExceptPC: thing on: coInterpreter transcript. - label ifNotNil: [coInterpreter transcript nextPutAll: label; space]. - printInst value: next] - ifFalse: - [label ifNotNil: [coInterpreter transcript nextPutAll: label; nextPut: $:; cr]. - processor printRegisterState: thing on: coInterpreter transcript]]]] - ifTrue: - [printInst value: thing]]]. - coInterpreter transcript flush! Item was changed: ----- Method: Cogit>>tryLockVMOwnerTo: (in category 'multi-threading') ----- tryLockVMOwnerTo: value <api> "ceTryLockVMOwner does an atomic compare-and-swap of the vmOwner variable with zero and the argument, setting vmOwner to value if it was zero. It answers if the lock was zero and hence was acquired. See CogThreadManager>>#tryLockVMOwnerTo: for the simulation of processor thread switching which surrounds this method." <cmacro: '(value) ceTryLockVMOwner(value)'> | breakPCWasTrue | + "(thisContext findContextSuchThat: [:ctxt| ctxt selector == #primitiveRelinquishProcessor]) ifNil: + [self halt]." - (thisContext findContextSuchThat: [:ctxt| ctxt selector == #primitiveRelinquishProcessor]) ifNil: - [self halt]. (breakPCWasTrue := breakPC == true) ifTrue: [breakPC := nil]. processor abiMarshalArg0: value in: objectMemory memory. + ^[ | result instructions | + lastNInstructions removeAll. - ^[ | result | result := self simulateLeafCallOf: ceTryLockVMOwner. + instructions := lastNInstructions copy. self assert: (result ~= 0) = (coInterpreter threadManager getVMOwner = value). result ~= 0] ensure: [processor abiUnmarshal: 1. breakPCWasTrue ifTrue: [breakPC := true]]! Item was added: + ----- Method: VMClass class>>wantsSqDotH (in category 'translation') ----- + wantsSqDotH + ^true!

1 0

Build failed: opensmalltalk-vm 1.0.2345
by AppVeyor 06 Jan '21

06 Jan '21

1 0

← Newer
1
...
9
10
11
12
13
14
15
16
17
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 January 2021