Vm-dev January 2021

vm-dev@lists.squeakfoundation.org

20 participants
161 discussions

[OpenSmalltalk/opensmalltalk-vm] Add --quiet option to allow an app to own stdout and stderr (#395)
by Holger Freyther 23 Jan '21

23 Jan '21

I envison to have --quiet and --debugoutput FILENAME as options in the future. For an end-user it is difficult to separate application output/error from VM one (e.g. the infamous thread priority warning). You can view, comment on, or merge this pull request online at: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/395 -- Commit Summary -- * debug: Prepare to let the app own stderr * debug: Introduce the --quiet VM option to keep things silent -- File Changes -- M build.macos32x86/common/Makefile.vm (2) M build.macos64x64/common/Makefile.vm (2) M platforms/Cross/vm/sq.h (7) M platforms/iOS/vm/OSX/sqSqueakOSXApplication.m (5) M platforms/unix/misc/threadValidate/sqUnixHeartbeat.c (6) M platforms/unix/misc/threadValidate/threadValidate.c (14) M platforms/unix/vm/aio.c (27) M platforms/unix/vm/debug.c (22) M platforms/unix/vm/debug.h (3) M platforms/unix/vm/dlfcn-dyld.c (20) M platforms/unix/vm/sqUnixCharConv.c (3) M platforms/unix/vm/sqUnixExternalPrims.c (46) M platforms/unix/vm/sqUnixHeartbeat.c (30) M platforms/unix/vm/sqUnixITimerTickerHeartbeat.c (6) M platforms/unix/vm/sqUnixMain.c (57) M platforms/unix/vm/sqUnixMemory.c (8) M platforms/unix/vm/sqUnixSpurMemory.c (4) M platforms/unix/vm/sqaio.h (2) -- Patch Links -- https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/395.patch https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/395.diff -- You are receiving this because you are subscribed to this thread. Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/395

3 6

[OpenSmalltalk/opensmalltalk-vm] 704a2a: CogVM source as per VMMaker.oscog-eem.2940
by Eliot Miranda 23 Jan '21

23 Jan '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 704a2adfc17b8a36b494d1afd4fbe860c561e64b https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/704a2adfc17b8a36b4… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-01-22 (Fri, 22 Jan 2021) Changed paths: 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/validImage.c M spurstacksrc/vm/validImage.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2940 Implement primitive 18, makePoint, in the JIT for Spur, mainly to reduce the noise in the primTraceLog.

1 0

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

23 Jan '21

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2940.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2940 Author: eem Time: 22 January 2021, 9:29:33.858798 pm UUID: 29171f50-756f-4560-8488-ced65f2d4841 Ancestors: VMMaker.oscog-eem.2939 Implement primitive 18, makePoint in the JIT for Spur, mainly to reduce the noise in the primTraceLog. =============== Diff against VMMaker.oscog-eem.2939 =============== Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveMakePoint (in category 'primitive generators') ----- + genPrimitiveMakePoint + "subclasses override if they so desire" + ^UnimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentationForSpur>>genPrimitiveMakePoint (in category 'primitive generators') ----- + genPrimitiveMakePoint + "<returnTypeC: #'AbstractInstruction *'>" + | allocSize newPointHeader jumpFail resultReg scratchReg | + resultReg := ClassReg. + scratchReg := SendNumArgsReg. + "<var: #jumpFail type: #'AbstractInstruction *'>" + allocSize := objectMemory baseHeaderSize + (objectMemory wordSize * 2). + newPointHeader := objectMemory + headerForSlots: 2 + format: objectMemory nonIndexablePointerFormat + classIndex: ClassPointCompactIndex. + cogit + MoveAw: objectMemory freeStartAddress R: resultReg; + LoadEffectiveAddressMw: allocSize r: resultReg R: scratchReg; + CmpCq: objectMemory getScavengeThreshold R: scratchReg. + jumpFail := cogit JumpAboveOrEqual: 0. + cogit MoveR: scratchReg Aw: objectMemory freeStartAddress. + self genStoreHeader: newPointHeader intoNewInstance: resultReg using: scratchReg. + cogit + MoveR: ReceiverResultReg Mw: objectMemory baseHeaderSize r: resultReg; + MoveR: Arg0Reg Mw: objectMemory baseHeaderSize + objectMemory wordSize r: resultReg; + MoveR: resultReg R: ReceiverResultReg; + genPrimReturn. + jumpFail jmpTarget: cogit Label. + ^0! Item was changed: ----- Method: ObjectMemory class>>initializeCompactClassIndices (in category 'initialization') ----- initializeCompactClassIndices "Initialize indices for compact classes we are going to depend on being compact. The VI allows classes to become compact and become uncompact. For efficiency the VM assumes certain classes are compact with particular indices." "Smalltalk compactClassesArray" "{Array. LargePositiveInteger. Float. MethodContext. } collect: [:c| c -> c indexIfCompact]" ClassArrayCompactIndex := 3. ClassLargeNegativeIntegerCompactIndex := 4. "Was PseudoContext class" ClassLargePositiveIntegerCompactIndex := 5. ClassFloatCompactIndex := 6. ClassBlockClosureCompactIndex := 0 "12". "Prospective. May still be TranslatedMethod class" ClassByteStringCompactIndex := 11. ClassBlockContextCompactIndex := 13. ClassMethodContextCompactIndex := 14. ClassByteArrayCompactIndex := 0. ClassMessageCompactIndex := 0. + ClassBitmapCompactIndex := 0. + ClassPointCompactIndex := 0! - ClassBitmapCompactIndex := 0! Item was changed: ----- Method: SimpleStackBasedCogit class>>initializePrimitiveTableForSqueak (in category 'class initialization') ----- initializePrimitiveTableForSqueak "Initialize the table of primitive generators. This does not include normal primitives implemented in the coInterpreter. N.B. primitives that don't have an explicit arg count (the integer following the generator) may be variadic." "SimpleStackBasedCogit initializePrimitiveTableForSqueak" MaxCompiledPrimitiveIndex := self objectRepresentationClass wordSize = 8 ifTrue: [575] ifFalse: [575]. primitiveTable := CArrayAccessor on: (Array new: MaxCompiledPrimitiveIndex + 1). self table: primitiveTable from: #( "Integer Primitives (0-19)" (1 genPrimitiveAdd 1) (2 genPrimitiveSubtract 1) (3 genPrimitiveLessThan 1) (4 genPrimitiveGreaterThan 1) (5 genPrimitiveLessOrEqual 1) (6 genPrimitiveGreaterOrEqual 1) (7 genPrimitiveEqual 1) (8 genPrimitiveNotEqual 1) (9 genPrimitiveMultiply 1) (10 genPrimitiveDivide 1) (11 genPrimitiveMod 1) (12 genPrimitiveDiv 1) (13 genPrimitiveQuo 1) (14 genPrimitiveBitAnd 1) (15 genPrimitiveBitOr 1) (16 genPrimitiveBitXor 1) (17 genPrimitiveBitShift 1) + (18 genPrimitiveMakePoint 1) "this is here mainly to remove noise from printPrimTraceLog()" - "(18 primitiveMakePoint)" "(19 primitiveFail)" "Guard primitive for simulation -- *must* fail" "LargeInteger Primitives (20-39)" "(20 primitiveFail)" "(21 primitiveAddLargeIntegers)" "(22 primitiveSubtractLargeIntegers)" "(23 primitiveLessThanLargeIntegers)" "(24 primitiveGreaterThanLargeIntegers)" "(25 primitiveLessOrEqualLargeIntegers)" "(26 primitiveGreaterOrEqualLargeIntegers)" "(27 primitiveEqualLargeIntegers)" "(28 primitiveNotEqualLargeIntegers)" "(29 primitiveMultiplyLargeIntegers)" "(30 primitiveDivideLargeIntegers)" "(31 primitiveModLargeIntegers)" "(32 primitiveDivLargeIntegers)" "(33 primitiveQuoLargeIntegers)" "(34 primitiveBitAndLargeIntegers)" "(35 primitiveBitOrLargeIntegers)" "(36 primitiveBitXorLargeIntegers)" "(37 primitiveBitShiftLargeIntegers)" "Float Primitives (38-59)" "(38 genPrimitiveFloatAt)" "(39 genPrimitiveFloatAtPut)" (40 genPrimitiveAsFloat 0) (41 genPrimitiveFloatAdd 1) (42 genPrimitiveFloatSubtract 1) (43 genPrimitiveFloatLessThan 1) (44 genPrimitiveFloatGreaterThan 1) (45 genPrimitiveFloatLessOrEqual 1) (46 genPrimitiveFloatGreaterOrEqual 1) (47 genPrimitiveFloatEqual 1) (48 genPrimitiveFloatNotEqual 1) (49 genPrimitiveFloatMultiply 1) (50 genPrimitiveFloatDivide 1) "(51 genPrimitiveTruncated)" "(52 genPrimitiveFractionalPart)" "(53 genPrimitiveExponent)" "(54 genPrimitiveTimesTwoPower)" (55 genPrimitiveFloatSquareRoot 0) "(56 genPrimitiveSine)" "(57 genPrimitiveArctan)" "(58 genPrimitiveLogN)" "(59 genPrimitiveExp)" "Subscript and Stream Primitives (60-67)" (60 genPrimitiveAt 1) (61 genPrimitiveAtPut 2) (62 genPrimitiveSize 0) (63 genPrimitiveStringAt 1) (64 genPrimitiveStringAtPut 2) "The stream primitives no longer pay their way; normal Smalltalk code is faster." (65 genFastPrimFail)"was primitiveNext" (66 genFastPrimFail) "was primitiveNextPut" (67 genFastPrimFail) "was primitiveAtEnd" "StorageManagement Primitives (68-79)" (68 genPrimitiveObjectAt 1) "Good for debugger/InstructionStream performance" "(69 primitiveObjectAtPut)" (70 genPrimitiveNew 0) (71 genPrimitiveNewWithArg 1) "(72 primitiveArrayBecomeOneWay)" "Blue Book: primitiveBecome" "(73 primitiveInstVarAt)" "(74 primitiveInstVarAtPut)" (75 genPrimitiveIdentityHash 0) "(76 primitiveStoreStackp)" "Blue Book: primitiveAsObject" "(77 primitiveSomeInstance)" "(78 primitiveNextInstance)" (79 genPrimitiveNewMethod 2) "Control Primitives (80-89)" "(80 primitiveFail)" "Blue Book: primitiveBlockCopy" "(81 primitiveFail)" "Blue Book: primitiveValue" "(82 primitiveFail)" "Blue Book: primitiveValueWithArgs" (83 genPrimitivePerform) "(84 primitivePerformWithArgs)" "(85 primitiveSignal)" "(86 primitiveWait)" "(87 primitiveResume)" "(88 primitiveSuspend)" "(89 primitiveFlushCache)" "(90 primitiveMousePoint)" "(91 primitiveTestDisplayDepth)" "Blue Book: primitiveCursorLocPut" "(92 primitiveSetDisplayMode)" "Blue Book: primitiveCursorLink" "(93 primitiveInputSemaphore)" "(94 primitiveGetNextEvent)" "Blue Book: primitiveSampleInterval" "(95 primitiveInputWord)" "(96 primitiveFail)" "primitiveCopyBits" "(97 primitiveSnapshot)" "(98 primitiveStoreImageSegment)" "(99 primitiveLoadImageSegment)" "(100 primitivePerformInSuperclass)" "Blue Book: primitiveSignalAtTick" "(101 primitiveBeCursor)" "(102 primitiveBeDisplay)" "(103 primitiveScanCharacters)" "(104 primitiveFail)" "primitiveDrawLoop" (105 genPrimitiveStringReplace) "(106 primitiveScreenSize)" "(107 primitiveMouseButtons)" "(108 primitiveKbdNext)" "(109 primitiveKbdPeek)" "System Primitives (110-119)" (110 genPrimitiveIdentical 1) (111 genPrimitiveClass) "Support both class and Context>>objectClass:" "(112 primitiveBytesLeft)" "(113 primitiveQuit)" "(114 primitiveExitToDebugger)" "(115 primitiveChangeClass)" "Blue Book: primitiveOopsLeft" "(116 primitiveFlushCacheByMethod)" "(117 primitiveExternalCall)" "(118 primitiveDoPrimitiveWithArgs)" "(119 primitiveFlushCacheSelective)" (148 genPrimitiveShallowCopy 0) "a.k.a. clone" (158 genPrimitiveStringCompareWith 1) (159 genPrimitiveHashMultiply 0) (165 genPrimitiveIntegerAt 1) "Signed version of genPrimitiveAt" (166 genPrimitiveIntegerAtPut 2) "Signed version of genPrimitiveAtPut" (169 genPrimitiveNotIdentical 1) (170 genPrimitiveAsCharacter) "SmallInteger>>asCharacter, Character class>>value:" (171 genPrimitiveImmediateAsInteger 0) "Character>>value SmallFloat64>>asInteger" "(173 primitiveSlotAt 1)" "(174 primitiveSlotAtPut 2)" (175 genPrimitiveIdentityHash 0) "Behavior>>identityHash" "Old closure primitives" "(186 primitiveFail)" "was primitiveClosureValue" "(187 primitiveFail)" "was primitiveClosureValueWithArgs" "Perform method directly" "(188 primitiveExecuteMethodArgsArray)" "(189 primitiveExecuteMethod)" "Unwind primitives" "(195 primitiveFindNextUnwindContext)" "(196 primitiveTerminateTo)" "(197 primitiveFindHandlerContext)" (198 genFastPrimFail "primitiveMarkUnwindMethod") (199 genFastPrimFail "primitiveMarkHandlerMethod") "new closure primitives" "(200 primitiveClosureCopyWithCopiedValues)" (201 genPrimitiveClosureValue 0) "value" (202 genPrimitiveClosureValue 1) "value:" (203 genPrimitiveClosureValue 2) "value:value:" (204 genPrimitiveClosureValue 3) "value:value:value:" (205 genPrimitiveClosureValue 4) "value:value:value:value:" "(206 genPrimitiveClosureValueWithArgs)" "valueWithArguments:" (207 genPrimitiveFullClosureValue) "value[:value:value:value:] et al" "(208 genPrimitiveFullClosureValueWithArgs)" "valueWithArguments:" (209 genPrimitiveFullClosureValue) "valueNoContextSwitch[:value:] et al" "(210 primitiveContextAt)" "(211 primitiveContextAtPut)" "(212 primitiveContextSize)" "(218 primitiveDoNamedPrimitiveWithArgs)" "(219 primitiveFail)" "reserved for Cog primitives" "(220 primitiveFail)" "reserved for Cog primitives" (221 genPrimitiveClosureValue 0) "valueNoContextSwitch" (222 genPrimitiveClosureValue 1) "valueNoContextSwitch:" "SmallFloat primitives (540-559)" (541 genPrimitiveSmallFloatAdd 1) (542 genPrimitiveSmallFloatSubtract 1) (543 genPrimitiveSmallFloatLessThan 1) (544 genPrimitiveSmallFloatGreaterThan 1) (545 genPrimitiveSmallFloatLessOrEqual 1) (546 genPrimitiveSmallFloatGreaterOrEqual 1) (547 genPrimitiveSmallFloatEqual 1) (548 genPrimitiveSmallFloatNotEqual 1) (549 genPrimitiveSmallFloatMultiply 1) (550 genPrimitiveSmallFloatDivide 1) "(551 genPrimitiveSmallFloatTruncated 0)" "(552 genPrimitiveSmallFloatFractionalPart 0)" "(553 genPrimitiveSmallFloatExponent 0)" "(554 genPrimitiveSmallFloatTimesTwoPower 1)" (555 genPrimitiveSmallFloatSquareRoot 0) "(556 genPrimitiveSmallFloatSine 0)" "(557 genPrimitiveSmallFloatArctan 0)" "(558 genPrimitiveSmallFloatLogN 0)" "(559 genPrimitiveSmallFloatExp 0)" (575 genPrimitiveHighBit 0) )! Item was changed: ----- Method: SpurMemoryManager class>>initializeCompactClassIndices (in category 'class initialization') ----- initializeCompactClassIndices "Reuse the compact class indices to name known classIndices. This helps reduce the churn in the interpreters." "c.f. SpurBootstrap>>defineKnownClassIndices" FirstValidClassIndex := ClassLargeNegativeIntegerCompactIndex := 32. ClassLargePositiveIntegerCompactIndex := 33. ClassFloatCompactIndex := 34. ClassMessageCompactIndex := 35. ClassMethodContextCompactIndex := 36. ClassBlockContextCompactIndex := 0. ClassBlockClosureCompactIndex := 37. ClassFullBlockClosureCompactIndex := 38. ClassByteArrayCompactIndex := 50. ClassArrayCompactIndex := 51. ClassByteStringCompactIndex := 52. + ClassBitmapCompactIndex := 53. + ClassPointCompactIndex := 54! - ClassBitmapCompactIndex := 53! Item was changed: VMBasicConstants subclass: #VMSqueakClassIndices instanceVariableNames: '' + classVariableNames: 'ClassArrayCompactIndex ClassBitmapCompactIndex ClassBlockClosureCompactIndex ClassBlockContextCompactIndex ClassByteArrayCompactIndex ClassByteStringCompactIndex ClassFloatCompactIndex ClassFullBlockClosureCompactIndex ClassLargeNegativeIntegerCompactIndex ClassLargePositiveIntegerCompactIndex ClassMessageCompactIndex ClassMethodContextCompactIndex ClassPointCompactIndex' - classVariableNames: 'ClassArrayCompactIndex ClassBitmapCompactIndex ClassBlockClosureCompactIndex ClassBlockContextCompactIndex ClassByteArrayCompactIndex ClassByteStringCompactIndex ClassFloatCompactIndex ClassFullBlockClosureCompactIndex ClassLargeNegativeIntegerCompactIndex ClassLargePositiveIntegerCompactIndex ClassMessageCompactIndex ClassMethodContextCompactIndex' poolDictionaries: '' category: 'VMMaker-Interpreter'!

1 0

[OpenSmalltalk/opensmalltalk-vm] 462025: Add multiple monitor support for Win32 (TeefVM onl...
by Eliot Miranda 23 Jan '21

23 Jan '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 46202559a8d74c32c81cd9cd211dcc3008982a72 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/46202559a8d74c32c8… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-01-22 (Fri, 22 Jan 2021) Changed paths: M platforms/win32/plugins/HostWindowPlugin/sqWin32HostWindowPlugin.c Log Message: ----------- Add multiple monitor support for Win32 (TeefVM only). [ci skip]

1 0

[OpenSmalltalk/opensmalltalk-vm] e992f9: Oops.
by Eliot Miranda 22 Jan '21

22 Jan '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: e992f966dccbb507199e907c5c2018e69fb8e608 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/e992f966dccbb50719… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-01-22 (Fri, 22 Jan 2021) Changed paths: M platforms/win32/plugins/HostWindowPlugin/sqWin32HostWindowPlugin.c Log Message: ----------- Oops.

1 0

[OpenSmalltalk/opensmalltalk-vm] 8e4e01: CogVM source as per VMMaker.oscog-eem.2939
by Eliot Miranda 22 Jan '21

22 Jan '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 8e4e01255c8004fa89eb7ba0f212ba1562afb587 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/8e4e01255c8004fa89… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-01-22 (Fri, 22 Jan 2021) Changed paths: M platforms/Cross/plugins/HostWindowPlugin/HostWindowPlugin.h M platforms/iOS/plugins/HostWindowPlugin/sqMacHostWindow.m M platforms/win32/plugins/HostWindowPlugin/sqWin32HostWindowPlugin.c M src/plugins/HostWindowPlugin/HostWindowPlugin.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2939 Extend the HostWindowPlugin with a primitive to answer an array of screen rectangles for the available monitors (TerfVM only). Implement on MacOS and provide a suitable stub on Windows.

1 0

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

22 Jan '21

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2939.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2939 Author: eem Time: 22 January 2021, 11:49:18.757235 am UUID: f054050f-19cd-41d1-9a3e-7cfd1a2e6e0a Ancestors: VMMaker.oscog-eem.2938 Extend the HostWindowPlugin with a primitive to answer an array of screen rectangles for the available monitors. =============== Diff against VMMaker.oscog-eem.2938 =============== Item was added: + ----- Method: HostWindowPlugin>>primitiveScreenRectangles (in category 'system primitives') ----- + primitiveScreenRectangles + <option: #TerfVM> + "Answer an Array of pairs of packed x,y repreeentation origins and extents for all the available monitors." + self primitive: 'primitiveScreenRectangles'. + self ioScreenRectangles + ifNil: [interpreterProxy primitiveFailFor: PrimErrNoMemory] + ifNotNil: [:screenRectangles| interpreterProxy methodReturnValue: screenRectangles]! Item was added: + ----- Method: HostWindowPluginSimulator>>ioScreenRectangles (in category 'primitive simulation') ----- + ioScreenRectangles + self ioScreenRectanglesPrimitive + ifNil: [interpreterProxy primitiveFailFor: PrimErrNoMemory] + ifNotNil: + [:a| + (interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: a size) + ifNil: [interpreterProxy primitiveFailFor: PrimErrNoMemory] + ifNotNil: + [:result| + 1 to: a size do: + [:i| interpreterProxy storeInteger: i - 1 ofObject: result withValue: (a at: i)]. + ^result]]. + ^nil! Item was added: + ----- Method: HostWindowPluginSimulator>>ioScreenRectanglesPrimitive (in category 'primitive simulation') ----- + ioScreenRectanglesPrimitive + <primitive: 'primitiveScreenRectangles' module: 'HostWindowPlugin' error: ec> + ^nil + + "self basicNew ioScreenRectanglesPrimitive" + "self basicNew ioScreenRectanglesPrimitive collect: + [:pp| | x y | + x := pp bitShift: -16. + y := pp bitAnd: 16rFFFF. + y > 32767 ifTrue: [y := y - 65536]. + x@y]"!

1 0

[OpenSmalltalk/opensmalltalk-vm] 7f2dbb: CogVM source as per VMMaker.oscog-eem.2938
by Eliot Miranda 21 Jan '21

21 Jan '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 7f2dbbc501e96a18abba1fa59411b02b6cf6b446 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/7f2dbbc501e96a18ab… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-01-20 (Wed, 20 Jan 2021) Changed paths: M src/plugins/BitBltPlugin/BitBltPlugin.c M src/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c M src/plugins/Mpeg3Plugin/Mpeg3Plugin.c M src/plugins/SocketPlugin/SocketPlugin.c M src/plugins/SoundPlugin/SoundPlugin.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2938 SmartSyntaxPlugin Slang compilation: Eliminate a little dead code following final conditional return. Don't bother to check for failure when returning results of positive32BitIntegerFor:, which cannot fail.

1 0

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

21 Jan '21

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2938.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2938 Author: eem Time: 20 January 2021, 7:17:02.642438 pm UUID: d0498f14-0205-4d9d-925f-016fa65847a3 Ancestors: VMMaker.oscog-eem.2937 SmartSyntaxPlugin Slang compilation: Eliminate a little dead code following final conditional return. Don't bother to check for failure when returning results of positive32BitIntegerFor:, which cannot fail. Cleaner adding of prologs/epilogs to parseTree's statements. =============== Diff against VMMaker.oscog-eem.2937 =============== Item was changed: ----- Method: SmartSyntaxPluginTMethod>>endsWithMethodReturnExpression (in category 'testing') ----- endsWithMethodReturnExpression | operativeReturn methodReturns | operativeReturn := (parseTree statements last isReturn and: [parseTree statements last expression isLeaf]) ifTrue: [(parseTree statements last: 2) first] ifFalse: [parseTree statements last]. + (operativeReturn isSend + and: [operativeReturn selector == #ifFalse: + and: [operativeReturn receiver isSend + and: [operativeReturn receiver selector == #failed + and: [operativeReturn receiver receiver isLeaf + and: [operativeReturn receiver receiver name = 'interpreterProxy' + and: [operativeReturn args size = 1 + and: [operativeReturn args first statements first isReturn]]]]]]]) ifTrue: + [operativeReturn := operativeReturn args first statements first expression]. methodReturns := #( methodReturnReceiver methodReturnFloat: methodReturnValue: methodReturnInteger: methodReturnBool: methodReturnString: + methodReturnStringOrNil: + + asBooleanObj + asFloatObj + asPositiveIntegerObj + asSmallIntegerObj). - methodReturnStringOrNil:). ^operativeReturn isSend and: [(methodReturns includes: operativeReturn selector) or: [operativeReturn isConditionalSend and: [(operativeReturn args collect: [:stmts| stmts statements last]) anySatisfy: [:stmt| stmt isSend and: [methodReturns includes: stmt selector]]]]]! Item was changed: ----- Method: SmartSyntaxPluginTMethod>>extractPrimitiveDirectives (in category 'specifying primitives') ----- extractPrimitiveDirectives "Save selector in fullSelector and args in fullArgs. Scan top-level statements for a directive of the form: self primitive: <string> or self primitive: <string> parameters: <list of class names> or self primitive: <string> parameters: <list of class names> receiver: <class name> or an assignment of that expression to a local, and manipulate the state and parse tree accordingly." parseTree setStatements: (Array streamContents: [:sStream | parseTree statements do: [:stmt | (self primitiveDirectiveWasHandled: stmt on: sStream) ifFalse: [sStream nextPut: stmt]]]). isPrimitive ifTrue: [export := true. + parseTree statements addAllFirst: self namedPrimitiveProlog. - parseTree - setStatements: self namedPrimitiveProlog, - parseTree statements. self fixUpReturns. self replaceSizeMessages. ^true] ifFalse: [self removeFinalSelfReturnIn: nil]. ^false! Item was changed: ----- Method: SmartSyntaxPluginTMethod>>resultExpressionCanFail: (in category 'private') ----- resultExpressionCanFail: aTSendNode + "Neither asSmallIntegerObj nor asBooleanObj nor asPositiveIntegerObj can fail. + asPositiveIntegerObj maps to positive32BitIntegerFor: which uses + eeInstantiateSmallClassIndex:format:numSlots: which does not GC and does not fail." + ^(#(asSmallIntegerObj asPositiveIntegerObj asBooleanObj nilObject trueObject falseObject) includes: aTSendNode selector) not! - "Neither asSmallIntegerObj nor asBooleanObj can fail." - ^(#(asSmallIntegerObj asBooleanObj nilObject trueObject falseObject) includes: aTSendNode selector) not! Item was changed: ----- Method: TMethod>>preparePrimitivePrologue (in category 'primitive compilation') ----- preparePrimitivePrologue "Add a prolog and postlog to a primitive method. The prolog copies any instance variables referenced by this primitive method into local variables. The postlog copies values of assigned-to variables back into the instance. The names of the new locals are added to the local variables list. The declarations dictionary defines the types of any non-integer variables (locals, arguments, or instance variables). In particular, it may specify the types: int * -- an array of 32-bit values (e.g., a BitMap) short * -- an array of 16-bit values (e.g., a SoundBuffer) char * -- an array of unsigned bytes (e.g., a String) double -- a double precision floating point number (e.g., 3.14159) Undeclared variables are taken to be integers and will be converted from Smalltalk to C ints." "Current restrictions: o method must not contain message sends o method must not allocate objects o method must not manipulate raw oops o method cannot access class variables o method can only return an integer" | prolog postlog instVarsUsed varsAssignedTo instVarList primArgCount varName endsWithReturn aClass | self assert: selector ~~ #setInterpreter:. aClass := definingClass. prolog := OrderedCollection new. postlog := OrderedCollection new. instVarsUsed := self freeVariableReferences asSet. varsAssignedTo := self variablesAssignedTo asSet. instVarList := aClass allInstVarNames. primArgCount := args size. "add receiver fetch and arg conversions to prolog" prolog addAll: self fetchRcvrExpr. 1 to: args size do: [:argIndex | varName := args at: argIndex. prolog addAll: (self argConversionExprFor: varName stackIndex: args size - argIndex)]. "add success check to postlog" postlog addAll: self checkSuccessExpr. "add instance variable fetches to prolog and instance variable stores to postlog" 1 to: instVarList size do: [:varIndex | varName := instVarList at: varIndex. (instVarsUsed includes: varName) ifTrue: [ locals add: varName. prolog addAll: (self instVarGetExprFor: varName offset: varIndex - 1). (varsAssignedTo includes: varName) ifTrue: [ postlog addAll: (self instVarPutExprFor: varName offset: varIndex - 1)]]]. prolog addAll: self checkSuccessExpr. ((locals includes: 'rcvr') or: [(locals intersection: args) notEmpty]) ifTrue: [self error: 'local name conflicts with instance variable name']. locals add: 'rcvr'; addAll: args. args := args class new. endsWithReturn := self endsWithReturn. self fixUpReturns: primArgCount postlog: postlog. + parseTree statements addAllFirst: prolog. + endsWithReturn ifFalse: + [postlog addAll: (self popArgsExpr: primArgCount). + parseTree statements addAllLast: postlog]. - endsWithReturn - ifTrue: [parseTree setStatements: prolog, parseTree statements] - ifFalse: [ - postlog addAll: (self popArgsExpr: primArgCount). - parseTree setStatements: prolog, parseTree statements, postlog]. !

1 0

VM Maker: Cog-eem.434.mcz
by commits＠source.squeak.org 20 Jan '21

20 Jan '21

Eliot Miranda uploaded a new version of Cog to project VM Maker: http://source.squeak.org/VMMaker/Cog-eem.434.mcz ==================== Summary ==================== Name: Cog-eem.434 Author: eem Time: 19 January 2021, 8:47:05.865683 pm UUID: ee50579f-beb7-487a-816e-23bc0ce7d244 Ancestors: Cog-eem.433 doWithIndex: => withIndexDo: =============== Diff against Cog-eem.433 =============== Item was changed: ----- Method: GdbARMv8Alien>>printRegisterState:on: (in category 'printing') ----- printRegisterState: registerStateVector on: aStream (registerStateVector size >= 64 ifTrue: [#( (r0 r1 r2 r3 cr) (r4 r5 r6 r7 cr) (r8 r9 r10 r11 cr) (r12 r13 r14 r15 cr) (r16 r17 r18 r19 cr) (r20 r21 r22 r23 cr) (r24 r25 r26 r27 cr) (r28 fp lr sp cr) (d0 d1 d2 d3 cr) (d4 d5 d6 d7 cr) (d8 d9 d10 d11 cr) (d12 d13 d14 d15 cr) (d16 d17 d18 d19 cr) (d20 d21 d22 d23 cr) (d24 d25 d26 d27 cr) (d28 d29 d30 d31 cr))] ifFalse: [#( (r0 r1 r2 r3 cr) (r4 r5 r6 r7 cr) (r8 r9 r10 r11 cr) (r12 r13 r14 r15 cr) (r16 r17 r18 r19 cr) (r20 r21 r22 r23 cr) (r24 r25 r26 r27 cr) + (r28 fp lr sp cr))]) withIndexDo: - (r28 fp lr sp cr))]) doWithIndex: [:subset :index| (subset anySatisfy: [:getter| getter ~~ #cr and: [(self perform: getter) ~= 0]]) ifTrue: [self printFields: subset inRegisterState: (registerStateVector copyFrom: index * 4 - 3 to: index * 4) on: aStream]]. registerStateVector size = 34 "i.e. imtegerRegisterState" ifTrue: [self printFields: #(pc rawCPSR cr) inRegisterState: (registerStateVector last: 2) on: aStream] ifFalse: [self printFields: #(pc CPSR FPSR FPCR nextpc cr) inRegisterState: (registerStateVector last: 5) on: aStream]! Item was changed: ----- Method: GdbARMv8AlienTests>>singleStepNFibFor:numTimes:on: (in category 'examples') ----- singleStepNFibFor: v numTimes: n on: aStream "self new singleStepNFibFor: 2 numTimes: 32 on: Transcript" | memory p state newState | memory := Bitmap new: 1024 * 2 withAll: self processor nopOpcode. memory replaceFrom: 1 to: self nfib size with: self nfib asWordArray startingAt: 1. (p := self processor) r0: n; lr: memory size * 2; "return address" pc: 0; sp: (memory size * 4) - 16. p printRegistersOn: aStream. state := p registerState. aStream cr; flush. n timesRepeat: [| first | aStream nextPutAll: (p disassembleNextInstructionIn: memory); space. p singleStepIn: memory readExecuteOnlyBelow: memory size / 2. newState := p registerState. first := true. + state withIndexDo: - state doWithIndex: [:rv :i| | nv | rv ~= (nv := newState at: i) ifTrue: [first ifTrue: [aStream crtab: 2. first := false]. aStream nextPutAll: (p registerStateSetters at: i); space; print: rv; nextPutAll: ' -> '; print: nv; space]]. aStream cr; flush. state := newState]. ^p r0! Item was changed: ----- Method: MIPSSimulator>>printRegisterState:on: (in category 'user interface') ----- printRegisterState: registerStateVector on: aStream #( (at v0 v1 cr) (a0 a1 a2 a3 cr) (t0 t1 t2 t3 cr) (t4 t5 t6 t7 cr) (s0 s1 s2 s3 cr) (s4 s5 s6 s7 cr) (t8 t9 k0 k1 cr) + (gp sp fp ra cr)) withIndexDo: - (gp sp fp ra cr)) doWithIndex: [:subset :index| (subset anySatisfy: [:getter| getter ~~ #cr and: [(self perform: getter) ~= 0]]) ifTrue: [self printFields: subset inRegisterState: (registerStateVector copyFrom: index * 4 - 3 to: index * 4) on: aStream]]. self printFields: #(pc cr) inRegisterState: (registerStateVector last: 1) on: aStream!

1 0

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