Vm-dev December 2020

vm-dev@lists.squeakfoundation.org

19 participants
80 discussions

Start a nNew thread

Build failed: opensmalltalk-vm 1.0.2329
by AppVeyor 23 Dec '20

23 Dec '20

1 0

[ANN] SqueakJS 1.0
by Vanessa Freudenberg 23 Dec '20

23 Dec '20

Hi All, yesterday I released version 1.0 of SqueakJS, exactly 7 years after my first public announcement on December 20, 2013. https://squeak.js.org/ Arguably I should have done this back in 2016 when it could run Spur images. What got it over the last hump was Fabio's interpreter for Sista bytecodes and Erik's refactoring for Node.js. SqueakJS is now the most compatible Squeak VM: it can run pre-release images from 1996 as well as the latest Squeak 6.0 trunk image. For production, you should still use non-Sista images, because no JIT has been implemented yet. A big Thank You to all the contributors over the years, and to Dan Ingalls for the inspiration, and funding the initial development. There are still many things to work on: - a simple JIT for Sista bytecode to bring its speed at least up to par with its pre-Sista speed - a "real" JIT with context mapping (keeping temps in JS vars rather than on the stack) and send optimizations (mapping sends to JS function invocations) - 64 bit support for pre-Spur images - big-endian support for 64 bit images Help is very welcome at https://github.com/codefrau/SqueakJS Happy Holidays to Everyone! Vanessa

4 7

[OpenSmalltalk/opensmalltalk-vm] ae0346: CogVM source as per VMMaker.oscog-eem.2908
by Eliot Miranda 23 Dec '20

23 Dec '20

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: ae03460c08772de94d1e55f9c81e74c726435920 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/ae03460c08772de94d… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2020-12-22 (Tue, 22 Dec 2020) Changed paths: M nsspur64src/vm/cogit.h M nsspur64src/vm/cointerp.c M nsspur64src/vm/cointerp.h M nsspur64src/vm/gcc3x-cointerp.c M nsspursrc/vm/cogit.h 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/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/cointerp.c M spursista64src/vm/cointerp.h M spursista64src/vm/gcc3x-cointerp.c M spursistasrc/vm/cogit.h M spursistasrc/vm/cointerp.c M spursistasrc/vm/cointerp.h M spursistasrc/vm/gcc3x-cointerp.c M spursrc/vm/cogit.h 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/vm/cogit.h 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.2908 StackInterpreter: Provide a selective event printing facility for primGetNextEvent:. Add vm parameter 12 (also potentially settable via a command line argument) to provide a mask of event types to print. Slang: Upgrade the f:printf: transformation to allow specifying stderr as the stream. Upgrade literal array declararions to allow more than one (mangle the target variable name).

1 0

VM Maker: VMMaker.oscog-eem.2908.mcz
by commits＠source.squeak.org 23 Dec '20

23 Dec '20

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2908.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2908 Author: eem Time: 22 December 2020, 6:11:26.000244 pm UUID: fddf1a4f-c585-45ab-8a74-442230cd3dbd Ancestors: VMMaker.oscog-eem.2907 StackInterpreter: Provide a selective event printing facility for primGetNextEvent:. Add vm parameter 12 (also potentially settable via a command line argument) to provide a mask of event types to print. Slang: Upgrade the f:printf: transformation to allow specifying stderr as the stream. Upgrade literal array declararions to allow more than one (mangle the target variable name). =============== Diff against VMMaker.oscog-eem.2907 =============== Item was changed: ----- Method: Array>>coerceTo:sim: (in category '*VMMaker-interpreter simulator') ----- coerceTo: cTypeString sim: interpreterSimulator + ^CLiteralArray on: self! - - ^ self! Item was changed: VMClass subclass: #InterpreterPrimitives + instanceVariableNames: 'objectMemory messageSelector argumentCount newMethod primFailCode osErrorCode exceptionPC inFFIFlags profileMethod profileProcess profileSemaphore nextProfileTick preemptionYields newFinalization sHEAFn ffiExceptionResponse eventTraceMask' - instanceVariableNames: 'objectMemory messageSelector argumentCount newMethod primFailCode osErrorCode exceptionPC inFFIFlags profileMethod profileProcess profileSemaphore nextProfileTick preemptionYields newFinalization sHEAFn ffiExceptionResponse' classVariableNames: 'CrossedX EndOfRun MillisecondClockMask' poolDictionaries: 'VMBasicConstants VMBytecodeConstants VMMethodCacheConstants VMObjectIndices VMSqueakClassIndices VMStackFrameOffsets' category: 'VMMaker-Interpreter'! !InterpreterPrimitives commentStamp: 'eem 8/24/2018 11:05' prior: 0! InterpreterPrimitives implements most of the VM's core primitives. It is the root of the interpreter hierarchy so as to share the core primitives amongst the varioius interpreters. Instance Variables argumentCount <Integer> ffiExceptionResponse <Integer> inFFIFlags <Integer> messageSelector <Integer> newMethod <Integer> nextProfileTick <Integer> objectMemory <ObjectMemory> (simulation only) preemptionYields <Boolean> primFailCode <Integer> osErrorCode <Integer> profileMethod <Integer> profileProcess <Integer> profileSemaphore <Integer> secHasEnvironmentAccess <Integer> argumentCount - the number of arguments of the current message ffiExceptionResponse - controls system response to exceptions during FFI calls. See primitiveFailForFFIException:at: inFFIFlags - flags recording currently only whether the system is in an FFI call messageSelector - the oop of the selector of the current message newMethod - the oop of the result of looking up the current message nextProfileTick - the millisecond clock value of the next profile tick (if profiling is in effect) objectMemory - the memory manager and garbage collector that manages the heap preemptionYields - a boolean controlling the process primitives. If true (old, incorrect, blue-book semantics) a preempted process is sent to the back of its run-queue. If false, a process preempted by a higher-priority process is put back at the head of its run queue, hence preserving cooperative scheduling within priorities. primFailCode - primitive success/failure flag, 0 for success, otherwise the reason code for failure osErrorCode - a 64-bit value settable by external primitives conveying arbitrary error codes from the operating system and/or system libraries profileMethod - the oop of the method at the time nextProfileTick was reached profileProcess - the oop of the activeProcess at the time nextProfileTick was reached profileSemaphore - the oop of the semaphore to signal when nextProfileTick is reached secHasEnvironmentAccess - the function to call to check if access to the envronment should be granted to primitiveGetenv ! Item was changed: ----- Method: InterpreterPrimitives>>initialize (in category 'initialization') ----- initialize "Here we can initialize the variables C initializes to zero. #initialize methods do /not/ get translated." + argumentCount := primFailCode := nextProfileTick := osErrorCode := exceptionPC := inFFIFlags := ffiExceptionResponse := eventTraceMask := 0. - argumentCount := primFailCode := nextProfileTick := osErrorCode := exceptionPC := inFFIFlags := ffiExceptionResponse := 0. newFinalization := false! Item was changed: ----- Method: InterpreterPrimitives>>primitiveGetNextEvent (in category 'I/O primitives') ----- primitiveGetNextEvent "Primitive. Return the next input event from the VM event queue." | evtBuf arg value eventTypeIs | <var: #evtBuf declareC:'sqIntptr_t evtBuf[8] = { 0, 0, 0, 0, 0, 0, 0, 0 }'> self cCode: [] inSmalltalk: [evtBuf := objectMemory newInputEventAccessorOfSize: 8]. arg := self stackTop. ((objectMemory isArray: arg) and:[(objectMemory slotSizeOf: arg) = 8]) ifFalse: [^self primitiveFailFor: PrimErrBadArgument]. self ioGetNextEvent: (self cCoerce: evtBuf to: 'sqInputEvent*'). self successful ifFalse: [^nil]. + (eventTraceMask ~= 0 + and: [eventTraceMask anyMask: (1 bitShift: (evtBuf at: 0))]) ifTrue: + [self traceInputEvent: evtBuf]. + "Event type" eventTypeIs := evtBuf at: 0. self storeInteger: 0 ofObject: arg withValue: (evtBuf at: 0). self successful ifFalse: [^nil]. eventTypeIs = 6 ifTrue: "Event is Complex, assume evtBuf is populated correctly and return" [1 to: 7 do: [:i | value := evtBuf at: i. self storePointer: i ofObject: arg withValue: value]] ifFalse: ["Event time stamp" self storeInteger: 1 ofObject: arg withValue: ((evtBuf at: 1) bitAnd: MillisecondClockMask). self successful ifFalse: [^nil]. "Event arguments" 2 to: 7 do:[:i| value := evtBuf at: i. (objectMemory isIntegerValue: value) ifTrue:[self storeInteger: i ofObject: arg withValue: value] ifFalse: [value := self positiveMachineIntegerFor: value. objectMemory storePointer: i ofObject: arg withValue: value]]]. self successful ifTrue: [self pop: 1]! Item was added: + ----- Method: InterpreterPrimitives>>traceInputEvent: (in category 'I/O primitive support') ----- + traceInputEvent: evtBuf + <var: #evtBuf declareC: 'sqIntptr_t evtBuf[8]'> + | eventTypeNames | + eventTypeNames := self + cCoerce: #('None' 'Mouse' 'Keyboard' 'DragDropFiles' 'Menu' 'Window' 'Complex' 'MouseWheel' 'Plugin') + to: #'char **'. + 'Event%s/%d @ %u\t\t%d/%x %d/%x\n\t%d/%x %d/%x\t %d/%x %p\n' + f: #stderr + printf: { ((evtBuf at: 0) between: 0 and: 8) + ifTrue: [eventTypeNames at: (evtBuf at: 0)] + ifFalse: ['?']. + evtBuf at: 0. + evtBuf at: 1. "timestamp" + evtBuf at: 2. evtBuf at: 2. evtBuf at: 3. evtBuf at: 3. + evtBuf at: 4. evtBuf at: 4. evtBuf at: 5. evtBuf at: 5. + evtBuf at: 6. evtBuf at: 6. + evtBuf at: 7 } "windowIndex"! Item was changed: ----- Method: StackInterpreter class>>mustBeGlobal: (in category 'translation') ----- mustBeGlobal: var "Answer if a variable must be global and exported. Used for inst vars that are accessed from VM support code, and for variables that are initialized to some value (e.g. primitiveDoMixedArithmetic)." ^(super mustBeGlobal: var) or: [(self objectMemoryClass mustBeGlobal: var) or: [(#('interpreterProxy' 'interpreterVersion' 'inIOProcessEvents' 'sendWheelEvents' + 'deferDisplayUpdates' 'eventTraceMask' 'extraVMMemory' - 'deferDisplayUpdates' 'extraVMMemory' 'showSurfaceFn' 'displayBits' 'displayWidth' 'displayHeight' 'displayDepth' 'desiredNumStackPages' 'desiredEdenBytes' 'primitiveDoMixedArithmetic' 'breakLookupClassTag' 'breakSelector' 'breakSelectorLength' 'sendTrace' 'checkAllocFiller' 'checkedPluginName' "'reenterInterpreter'" 'suppressHeartbeatFlag' 'ffiExceptionResponse' 'debugCallbackInvokes' 'debugCallbackPath' 'debugCallbackReturns') includes: var) or: [ "This allows slow machines to define bytecodeSetSelector as 0 to avoid the interpretation overhead." MULTIPLEBYTECODESETS not and: [var = 'bytecodeSetSelector']]]]! Item was changed: ----- Method: StackInterpreterPrimitives>>primitiveAllVMParameters: (in category 'system control primitives') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StackInterpreterPrimitives>>primitiveGetVMParameter: (in category 'system control primitives') ----- primitiveGetVMParameter: arg "See primitiveVMParameter method comment. N.B. written as a returning case to avoid branch limits in the V3 bytecode set." arg caseOf: { [1] -> [^self positiveMachineIntegerFor: objectMemory oldSpaceSize]. [2] -> [^objectMemory integerObjectOf: objectMemory newSpaceSize]. [3] -> [^self positiveMachineIntegerFor: objectMemory totalMemorySize]. [6] -> [^objectMemory integerObjectOf: objectMemory tenuringThreshold]. [7] -> [^objectMemory integerObjectOf: objectMemory statFullGCs]. [8] -> [^objectMemory integerObjectOf: objectMemory statFullGCUsecs + 500 // 1000]. [9] -> [^objectMemory integerObjectOf: (objectMemory hasSpurMemoryManagerAPI ifTrue: [objectMemory statScavenges] ifFalse: [objectMemory statIncrGCs])]. [10] -> [^objectMemory integerObjectOf: (objectMemory hasSpurMemoryManagerAPI ifTrue: [objectMemory statScavengeGCUsecs] ifFalse: [objectMemory statIncrGCUsecs]) + 500 // 1000]. [11] -> [^objectMemory integerObjectOf: objectMemory statTenures]. + [12] -> [^objectMemory integerObjectOf: eventTraceMask]. - [12] -> [^ConstZero]. "Was JITTER VM info" [13] -> [^self getVMTickerStartUSecs]. [14] -> [^self getVMTickerCount]. [15] -> [^self getVMTickeeCallCount]. [16] -> [^self positive64BitIntegerFor: statIdleUsecs]. [17] -> [^(SistaVM and: [self isCog]) ifTrue: [objectMemory floatObjectOf: self getCogCodeZoneThreshold] ifFalse: [ConstZero]]. [18] -> [^objectMemory hasSpurMemoryManagerAPI ifTrue: [objectMemory integerObjectOf: objectMemory statCompactionUsecs + 500 // 1000] ifFalse: [ConstZero]]. [19] -> [^objectMemory hasSpurMemoryManagerAPI ifTrue: [objectMemory integerObjectOf: objectMemory scavengeThresholdAsExtent] ifFalse: [ConstZero]]. [20] -> [^objectMemory positive64BitIntegerFor: self ioUTCStartMicroseconds]. [21] -> [^objectMemory integerObjectOf: objectMemory rootTableCount]. [22] -> [^objectMemory integerObjectOf: objectMemory statRootTableOverflows]. [23] -> [^objectMemory integerObjectOf: extraVMMemory]. [24] -> [^objectMemory integerObjectOf: objectMemory shrinkThreshold]. [25] -> [^objectMemory integerObjectOf: objectMemory growHeadroom]. [26] -> [^objectMemory integerObjectOf: self ioHeartbeatMilliseconds]. [27] -> [^objectMemory integerObjectOf: objectMemory statMarkCount]. [28] -> [^objectMemory integerObjectOf: objectMemory statSweepCount]. [29] -> [^objectMemory integerObjectOf: objectMemory statMkFwdCount]. [30] -> [^objectMemory integerObjectOf: objectMemory statCompMoveCount]. [31] -> [^objectMemory integerObjectOf: objectMemory statGrowMemory]. [32] -> [^objectMemory integerObjectOf: objectMemory statShrinkMemory]. [33] -> [^objectMemory integerObjectOf: objectMemory statRootTableCount]. [34] -> [^objectMemory hasSpurMemoryManagerAPI ifTrue:"was statAllocationCount" [objectMemory positive64BitIntegerFor: objectMemory currentAllocatedBytes]]. [35] -> [^objectMemory integerObjectOf: objectMemory statSurvivorCount]. [36] -> [^objectMemory integerObjectOf: (self microsecondsToMilliseconds: objectMemory statGCEndUsecs)]. [37] -> [^objectMemory integerObjectOf: objectMemory statSpecialMarkCount]. [38] -> [^objectMemory integerObjectOf: objectMemory statIGCDeltaUsecs + 500 // 1000]. [39] -> [^objectMemory integerObjectOf: statPendingFinalizationSignals]. [40] -> [^objectMemory integerObjectOf: objectMemory wordSize]. [41] -> [^objectMemory integerObjectOf: self imageFormatVersion]. [42] -> [^objectMemory integerObjectOf: numStackPages]. [43] -> [^objectMemory integerObjectOf: desiredNumStackPages]. [44] -> [^objectMemory integerObjectOf: objectMemory edenBytes]. [45] -> [^objectMemory integerObjectOf: desiredEdenBytes]. [46] -> [^self getCogCodeSize]. [47] -> [^self getDesiredCogCodeSize]. [48] -> [^self getImageHeaderFlagsParameter]. [49] -> [^objectMemory integerObjectOf: self ioGetMaxExtSemTableSize]. [52] -> [^objectMemory integerObjectOf: objectMemory rootTableCapacity]. [53] -> [^objectMemory hasSpurMemoryManagerAPI ifTrue: [objectMemory integerObjectOf: objectMemory numSegments]]. [54] -> [^objectMemory hasSpurMemoryManagerAPI ifTrue: [objectMemory integerObjectOf: objectMemory freeSize]]. [55] -> [^objectMemory hasSpurMemoryManagerAPI ifTrue: [objectMemory floatObjectOf: objectMemory getHeapGrowthToSizeGCRatio]]. [56] -> [^self positive64BitIntegerFor: statProcessSwitch]. [57] -> [^self positive64BitIntegerFor: statIOProcessEvents]. [58] -> [^self positive64BitIntegerFor: statForceInterruptCheck]. [59] -> [^self positive64BitIntegerFor: statCheckForEvents]. [60] -> [^self positive64BitIntegerFor: statStackOverflow]. [61] -> [^self positive64BitIntegerFor: statStackPageDivorce]. [62] -> [^self getCodeCompactionCount]. [63] -> [^self getCodeCompactionMSecs]. [64] -> [^self getCogMethodCount]. [65] -> [^self getCogVMFeatureFlags]. [66] -> [^objectMemory integerObjectOf: self stackPageByteSize]. [67] -> [^objectMemory hasSpurMemoryManagerAPI ifTrue: [self positiveMachineIntegerFor: objectMemory maxOldSpaceSize]]. [68] -> [^objectMemory floatObjectOf: stackPages statAverageLivePagesWhenMapping]. [69] -> [^objectMemory integerObjectOf: stackPages statMaxPageCountWhenMapping]. [70] -> [^objectMemory integerObjectOf: self vmProxyMajorVersion]. [71] -> [^objectMemory integerObjectOf: self vmProxyMinorVersion]. [72] -> [^objectMemory integerObjectOf: objectMemory statMarkUsecs + 500 // 1000]. [73] -> [^objectMemory integerObjectOf: objectMemory statSweepUsecs + 500 // 1000]. [74] -> [^objectMemory hasSpurMemoryManagerAPI ifTrue: [objectMemory integerObjectOf: objectMemory statMaxAllocSegmentTime + 500 // 1000]]. [75] -> [^objectMemory booleanObjectOf: self primitiveDoMixedArithmetic] } otherwise: [^nil]! Item was changed: ----- Method: StackInterpreterPrimitives>>primitiveSetVMParameter:arg: (in category 'system control primitives') ----- primitiveSetVMParameter: index arg: argOop "See primitiveVMParameter method comment" | arg result | "argOop read & checks; in most cases this is an integer parameter. Handle the exceptions." index caseOf: { [17] -> [((objectMemory isFloatInstance: argOop) or: [objectMemory isIntegerObject: argOop]) ifFalse: [primFailCode := PrimErrBadArgument]]. [55] -> [((objectMemory isFloatInstance: argOop) or: [objectMemory isIntegerObject: argOop]) ifFalse: [primFailCode := PrimErrBadArgument]]. [68] -> [((objectMemory isFloatInstance: argOop) or: [objectMemory isIntegerObject: argOop]) ifFalse: [primFailCode := PrimErrBadArgument]]. [67] -> [arg := self positiveMachineIntegerValueOf: argOop]. [75] -> [arg := objectMemory booleanValueOf: argOop] } otherwise: [arg := objectMemory integerValueOf: argOop]. self failed ifTrue: [^self primitiveFailFor: PrimErrBadArgument]. "assume failure, then set success for handled indices" self primitiveFailFor: PrimErrBadArgument. index caseOf: { [5] -> [objectMemory hasSpurMemoryManagerAPI ifFalse: ["Was: result := allocationsBetweenGCs. allocationsBetweenGCs := arg." "Ignore for now, because old images won't start up otherwise. See 45 for eden size setting." result := objectMemory nilObject. self initPrimCall]]. [6] -> [result := objectMemory integerObjectOf: objectMemory tenuringThreshold. primFailCode := objectMemory tenuringThreshold: arg]. + [12] -> [result := objectMemory integerObjectOf: eventTraceMask. + eventTraceMask := arg. + self initPrimCall]. [11] -> [arg >= 0 ifTrue: [result := objectMemory integerObjectOf: objectMemory statTenures. objectMemory statTenures: arg. self initPrimCall]]. [17] -> [(SistaVM and: [self isCog]) ifTrue: [result := objectMemory floatObjectOf: self getCogCodeZoneThreshold. primFailCode := self setCogCodeZoneThreshold: (self noInlineLoadFloatOrIntFrom: argOop)]]. [23] -> [result := objectMemory integerObjectOf: extraVMMemory. extraVMMemory := arg. self initPrimCall]. [24] -> [arg > 0 ifTrue: [result := objectMemory integerObjectOf: objectMemory shrinkThreshold. objectMemory shrinkThreshold: arg. self initPrimCall]]. [25] -> [arg > 0 ifTrue: [result := objectMemory integerObjectOf: objectMemory growHeadroom. objectMemory growHeadroom: arg. self initPrimCall]]. [26] -> [arg >= 0 ifTrue: "0 turns off the heartbeat" [result := objectMemory integerObjectOf: self ioHeartbeatMilliseconds. self ioSetHeartbeatMilliseconds: arg. self initPrimCall]]. [34] -> [(objectMemory hasSpurMemoryManagerAPI "was statAllocationCount; now statAllocatedBytes" and: [arg >= 0]) ifTrue: [result := objectMemory positive64BitIntegerFor: objectMemory currentAllocatedBytes. objectMemory setCurrentAllocatedBytesTo: arg. self initPrimCall]]. [43] -> [(arg between: 0 and: 65535) ifTrue: [result := objectMemory integerObjectOf: desiredNumStackPages. desiredNumStackPages := arg. self initPrimCall]]. [45] -> [arg >= 0 ifTrue: [result := objectMemory integerObjectOf: desiredEdenBytes. desiredEdenBytes := arg. self initPrimCall]]. [47] -> [(self isCog and: [arg between: 0 and: self maxCogCodeSize]) ifTrue: [result := objectMemory integerObjectOf: self getDesiredCogCodeSize. self setDesiredCogCodeSize: arg. self initPrimCall]]. [48] -> [arg >= 0 ifTrue: [| oldPrimitiveDoMixedArithmetic | oldPrimitiveDoMixedArithmetic := primitiveDoMixedArithmetic. result := self getImageHeaderFlagsParameter. self initPrimCall. "i.e. setImageHeaderFlags: can fail" self setImageHeaderFlags: arg. (primFailCode = 0 and: [oldPrimitiveDoMixedArithmetic ~= primitiveDoMixedArithmetic]) ifTrue: [self flushMethodCache. self flushMethodsWithMachineCodePrimitivesAndContinueAnswering: result "NOT REACHED (in CoInterpreter)"]]]. [49] -> [(arg between: 0 and: 65535) ifTrue: [result := objectMemory integerObjectOf: self ioGetMaxExtSemTableSize. self initPrimCall. "i.e. ioSetMaxExtSemTableSize: is allowed to fail" self setMaxExtSemSizeTo: arg]]. [55] -> [objectMemory hasSpurMemoryManagerAPI ifTrue: [result := objectMemory floatObjectOf: objectMemory getHeapGrowthToSizeGCRatio. primFailCode := objectMemory setHeapGrowthToSizeGCRatio: (self noInlineLoadFloatOrIntFrom: argOop)]]. [67] -> [(arg >= 0 and: [objectMemory hasSpurMemoryManagerAPI]) ifTrue: [result := self positiveMachineIntegerFor: objectMemory maxOldSpaceSize. primFailCode := objectMemory setMaxOldSpaceSize: arg]]. [68] -> [result := objectMemory floatObjectOf: stackPages statAverageLivePagesWhenMapping. self initPrimCall. "i.e. statAverageLivePagesWhenMapping: is allowed to fail" stackPages statAverageLivePagesWhenMapping: (self noInlineLoadFloatOrIntFrom: argOop)]. [69] -> [arg >= 0 ifTrue: [result := objectMemory integerObjectOf: stackPages statMaxPageCountWhenMapping. stackPages statMaxPageCountWhenMapping: arg. self initPrimCall]]. [74] -> [(arg >= 0 and: [objectMemory hasSpurMemoryManagerAPI]) ifTrue: [result := objectMemory integerObjectOf: objectMemory statMaxAllocSegmentTime + 500 // 1000. stackPages statMaxAllocSegmentTime: arg. "usually 0" self initPrimCall]]. [75] -> [| mustFlush | result := objectMemory booleanObjectOf: self primitiveDoMixedArithmetic. self initPrimCall. mustFlush := primitiveDoMixedArithmetic ~= arg. primitiveDoMixedArithmetic := arg. mustFlush ifTrue: [self flushMethodCache. self flushMethodsWithMachineCodePrimitivesAndContinueAnswering: result "NOT REACHED (in CoInterpreter)"]] } otherwise: []. self successful ifTrue: [self methodReturnValue: result] "return old value" ifFalse: [self primitiveFailFor: PrimErrInappropriate] "attempting to write a read-only or non-existent parameter"! Item was changed: ----- Method: TAssignmentNode>>emitLiteralArrayDeclarationOn:level:generator: (in category 'C code generation') ----- emitLiteralArrayDeclarationOn: aStream level: level generator: aCCodeGen + | type literalName | - | type | type := expression args last value. self assert: type last = $*. + literalName := variable name, 'Initializer'. aStream crtab: level; nextPutAll: '{ static '; nextPutAll: (aCCodeGen + arrayInitializerCalled: literalName - arrayInitializerCalled: 'aLiteralArray' for: expression args first value sizeString: nil type: type allButLast) withBlanksTrimmed; nextPut: $;; crtab: level + 1; nextPutAll: variable name; + nextPutAll: ' = '; + nextPutAll: literalName; + nextPut: $; ; - nextPutAll: ' = aLiteralArray;'; crtab: level; nextPut: $}; cr! Item was changed: ----- Method: TMethod>>prepareMethodIn: (in category 'transformations') ----- prepareMethodIn: aCodeGen "Record sends of builtin operators, map sends of the special selector dispatchOn:in: with case statement nodes, and map sends of caseOf:[otherwise:] to switch statements. Declare limit variables for to:[by:]do: loops with limits that potentially have side-effects. As a hack also update the types of variables introduced to implement cascades correctly. This has to be done at the same time as this is done, so why not piggy back here?" extraVariableNumber ifNotNil: [declarations keysAndValuesDo: [:varName :decl| decl isBlock ifTrue: [self assert: ((varName beginsWith: 'cascade') and: [varName last isDigit]). locals add: varName. self declarationAt: varName put: (decl value: self value: aCodeGen), ' ', varName]]]. aCodeGen pushScope: declarations while:"N.B. nodesWithParentsDo: is bottom-up, hence replacement is destructive and conserved." [parseTree nodesWithParentsDo: [:node :parent| node isSend ifTrue: [aCodeGen ifStaticallyResolvedPolymorphicReceiverThenUpdateSelectorIn: node. (aCodeGen isBuiltinSelector: node selector) ifTrue: [node isBuiltinOperator: true. "If a to:by:do:'s limit has side-effects, declare the limit variable, otherwise delete it from the args" node selector = #to:by:do: ifTrue: [self ensureToByDoLoopLimitIsSafeAndEfficient: node in: aCodeGen]] ifFalse: [(CaseStatements includes: node selector) ifTrue: [parent replaceNodesIn: (Dictionary newFromPairs: { node. self buildCaseStmt: node in: aCodeGen})]. (#(caseOf: #caseOf:otherwise:) includes: node selector) ifTrue: [parent replaceNodesIn: (Dictionary newFromPairs: { node. self buildSwitchStmt: node parent: parent })]. (#(printf: f:printf:) includes: node selector) ifTrue: + [self transformPrintf: node]]]]]! - [| map | - map := Dictionary new. - node nodesDo: - [:subNode| - (subNode isConstant and: [subNode value isString and: [subNode value includes: $%]]) ifTrue: - [map at: subNode put: subNode asPrintfFormatStringNode]. - node replaceNodesIn: map]]]]]]! Item was added: + ----- Method: TMethod>>transformPrintf: (in category 'transformations') ----- + transformPrintf: sendNode + "Handle forms of f:printf: & printf:. f:printf: is either + logFile f: formatLiteral printf: args + or + formatLiteral f: streamName printf: args + printf is + formatLiteral printf: args" + | map | + (sendNode receiver isConstant + and: [sendNode receiver value isString]) ifTrue: + [| format | + format := sendNode receiver asPrintfFormatStringNode. + sendNode selector first == $f ifTrue: "fprintf et al..." + [sendNode receiver: (TVariableNode new setName: 'self'). + sendNode arguments: {sendNode args first. format}, sendNode args allButFirst. + ^sendNode]. + sendNode receiver: format. + ^sendNode]. + map := Dictionary new. + sendNode nodesDo: + [:subNode| + (subNode isConstant and: [subNode value isString and: [subNode value includes: $%]]) ifTrue: + [map at: subNode put: subNode asPrintfFormatStringNode]]. + sendNode replaceNodesIn: map. + ^sendNode!

1 0

Re: [Vm-dev] [squeak-dev] The Trunk: System-codefrau.1205.mcz
by Eliot Miranda 22 Dec '20

22 Dec '20

Hi Vanessa, Hi Fabio, Hi David, Hi All, > On Dec 20, 2020, at 10:24 PM, commits(a)source.squeak.org wrote: > > Vanessa Freudenberg uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-codefrau.1205.mcz > > ==================== Summary ==================== > > Name: System-codefrau.1205 > Author: codefrau > Time: 20 December 2020, 10:23:10.790782 pm > UUID: f94486f3-3743-4300-a495-c2a89089e122 > Ancestors: System-dtl.1204 > > Update platformName for SqueakJS 1.0 > > =============== Diff against System-dtl.1204 =============== > > Item was changed: > ----- Method: SmalltalkImage>>isLowerPerformance (in category 'system attributes') ----- > isLowerPerformance > "Some operations - TestCases for example - need an idea of the typical performance of the system on which they are being performed. For now we will simply assert that running on an ARM cpu or as a SqueakJS instance is enough of a discriminator. Options for the future might also involve whether the vm is a full Cog or Sisata system, even actually measuring the performance at some point to be sure" > ^ (self platformSubtype beginsWith: 'arm') "Raspberry PI for example" > + or: [self platformName = 'JS'] "SqueakJS"! > - or: [self platformName = 'Web'] "SqueakJS"! this is interesting. The method is do crude, but potentially we have a much more rational basis upon which to derive its result. I would expect the effective performance to be the product of processor speed (mips), core execution engine architecture and object representation. Mips varies hugely across the range from eg Raspberry Pi 2,3,4 to various Intel (i5,I7,i9 etc) and Apple Silicon. The range here is about one order of magnitude. Execution architecture varies from pure context interpreter (the BTTF VM), Stack Interpreter, Squeak JS interpreter, Squeak JS generation one JIT, Squeak JS subsequent generation JITs (temps in JS vars, sends mapped to JS calls), Cog JIT, Sista JIT. Very crudely Spur = 2 x v3 (actually about 1.7 and varies according to workflow). Of the execution architectures Sista JIT is for practical purposes not yet implemented, a prototype, but may offer 2x to 4x of Cog. Of the Squeak JS JITs I think that the send mapping isn’t implemented (am I right?). But is the temp var mapping implemented? If so what difference does it make? Context to Stack is about 1.5. Stack to Cog is about 6. So the notion is that if we can come up with crude numbers that rank the execution architectures and a measure of mips we can compute a meaningful numeric estimate of likely Smalltalk execution speed and answer isLowerPerformance if this number falls below a specific threshold. What we have now based on platformName is simply wrong. eg a Raspberry Pi 4 is way faster than a Pi 3. One thing I did for visual works is estimate processor mips by timing the first invocation of the allInstances primitive and dividing by the number of objects. Basically the heuristic is that mips is roughly (inversely) proportional to how much time per object the first allInstances invocation spends. There is (almost) always an allInstances invocation at startup in VisualWorks (to clear font handles IIRC), and there may be in a Squeak image. Alternatives are measuring how long it takes to load and/or swizzle the image on load divided by the heap size. Basically we have the opportunity to introspection at startup cheaply measuring the time some costly primitive takes to run and this result can be cached, accessed via a primitive or vmParameter and perhaps updated as execution proceeds. Does this sound like overkill? If not, what should we choose as our mips measurer? We want something that all VMs have to do somewhat similarly fairly early on system startup and we can correlate with stopwatches and macro benchmarks like the time taken for the Compiler package to recompile itself, etc. Eliot _,,,^..^,,,_ (phone)

2 2

VM Maker: ImageFormat-dtl.47.mcz
by commits＠source.squeak.org 21 Dec '20

21 Dec '20

David T. Lewis uploaded a new version of ImageFormat to project VM Maker: http://source.squeak.org/VMMaker/ImageFormat-dtl.47.mcz ==================== Summary ==================== Name: ImageFormat-dtl.47 Author: dtl Time: 21 December 2020, 9:37:58.44 am UUID: 34f44ce2-fc83-48b9-9a79-42b4ce1a441b Ancestors: ImageFormat-dtl.46 Minor changes to allow package to load in old Squeak images =============== Diff against ImageFormat-dtl.46 =============== Item was changed: ----- Method: ImageFileHeader>>hash (in category 'comparing') ----- hash + ^imageBytes hash bitXor: lastHash! - ^imageBytes hash xor: lastHash! Item was changed: ----- Method: ImageFormat class>>generateCkFormatProgram:on: (in category 'ckformat') ----- generateCkFormatProgram: programName on: stream "Generate source code for an image format version reader. The program is intended for testing image file format from a unix shell script such that the shell script can decide what VM to run based on image requirements." | fileID formatNumber | fileID := (Smalltalk classNamed: #CCodeGenerator) + ifNil: [ self name, ' ', DateAndTime now asString ] + ifNotNilDo: [ :ccg | ccg monticelloDescriptionFor: self ]. - ifNotNil: [ :ccg | ccg monticelloDescriptionFor: self ] - ifNil: [ self name, ' ', DateAndTime now asString ]. stream nextPutAll: '/* ', programName, ': Print the image format number on standard output */'; cr; nextPutAll: '/* for use in a shell script to test image format requirements. */'; cr; nextPutAll: '/* A non-zero return status code indicates failure. */'; cr; cr; nextPutAll: '/* Usage: ', programName, ' imageFileName */'; cr; cr; nextPutAll: '/* --- DO NOT EDIT THIS FILE --- */'; cr; nextPutAll: '/* --- Automatically generated from class ', fileID, '--- */'; cr; nextPutAll: '/* --- Source code is in package ImageFormat in the VMMaker repository --- */'; cr; nextPutAll: '/* --- DO NOT EDIT THIS FILE --- */'; cr; cr; nextPutAll: '#include <stdio.h>'; cr; nextPutAll: '#include <stdlib.h>'; cr; nextPutAll: '#include <string.h>'; cr; cr; nextPutAll: 'int main(int argc, char **argv) {'; cr; tab; nextPutAll: 'FILE *f;'; cr; tab; nextPutAll: 'unsigned char buf[8];'; cr; tab; nextPutAll: 'int formatNumber;'; cr; tab; nextPutAll: 'unsigned char c;'; cr; tab; nextPutAll: 'int match;'; cr; tab; nextPutAll: 'if (argc !!= 2) {'; cr; tab; tab; nextPutAll: 'printf("usage: ', programName, ' imageFileName\n");'; cr; tab; tab; nextPutAll: 'printf("answer the image format number for an image file or 0 if not known\n");'; cr; tab; tab; nextPutAll: 'printf("known image formats:\n");'; cr. KnownVersionNumbers do: [ :e | | s | s := String streamContents: [ :strm | strm nextPutAll: e asString, ': '. (self fromInteger: e) printDescriptionOn: strm withVersionNumber: false ]. stream tab; tab; nextPutAll: 'printf("', s, '\n");'; cr ]. stream tab; tab; nextPutAll: 'exit(1);'; cr; tab; nextPutAll: '}'; cr; tab; nextPutAll: 'f = fopen(argv[1], "r");'; cr; tab; nextPutAll: 'if (f == NULL) {'; cr; tab; tab; nextPutAll: 'perror(argv[1]);'; cr; tab; tab; nextPutAll: 'exit(2);'; cr; tab; nextPutAll: '}'; cr. { 0. 512 } do: [:offset | stream tab; nextPutAll: 'if(fseek(f, '; nextPutAll: offset asString; nextPutAll: 'L, SEEK_SET) !!= 0) {';cr; tab; tab; nextPutAll: 'fprintf(stderr, "cannot go to pos %d in %s\n", '; nextPutAll: offset asString; nextPutAll: ', argv[1]);'; cr; tab; tab; nextPutAll: 'exit(3);'; cr; tab; nextPutAll: '}'; cr; tab; nextPutAll: 'if (fread(buf, 1, 8, f) < 8) {'; cr; tab; tab; nextPutAll: 'fprintf(stderr, "cannot read %s\n", argv[1]);'; cr; tab; tab; nextPutAll: 'exit(3);'; cr; tab; nextPutAll: '}'; cr. self versionNumberByteArrays withIndexDo: [ :v :tag | | b | formatNumber := (self fromBytes: v) asInteger. b := 'b_', formatNumber asString, '_', tag asString. stream tab; nextPutAll: '{'; cr; tab; nextPutAll: 'unsigned char ', b, '[', v size asString, ']= { '. v inject: true into: [:first : elem | first ifFalse: [stream nextPutAll: ', ']. stream nextPutAll: elem asString. false]. stream nextPutAll: '};'; cr; tab; nextPutAll: 'if (memcmp(buf, ', b, ', ', v size asString, ') == 0) {'; cr; tab; tab; nextPutAll: 'printf("%d\n", ', formatNumber, ');'; cr; tab; tab; nextPutAll: 'exit(0);'; cr; tab; nextPutAll: '}'; cr; tab; nextPutAll: '}'; cr]]. stream tab; nextPutAll: 'printf("0\n"); /* print an invalid format number */';cr; tab; nextPutAll: 'exit (-1); /* not found, exit with error code */'; cr; nextPutAll: '}'; cr !

1 0

VM Maker: VMMaker-dtl.420.mcz
by commits＠source.squeak.org 21 Dec '20

21 Dec '20

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.420.mcz ==================== Summary ==================== Name: VMMaker-dtl.420 Author: dtl Time: 20 December 2020, 9:10:42.452 pm UUID: 25d351dc-3d71-45a5-adfe-95aa9f63e5bf Ancestors: VMMaker-dtl.419 VMMaker 4.19.3 Let primitiveResumeFromSnapshot handle a changed image format for the resumed snapshot object. Install and update an appropriate primitive table dynamically on entry to the interpreter loop. Reset the image format number in the interpreter when resuming a snapshot object. These changes enable e.g. a Squeak 4.6 image to resume into a Squeak 3.6 snapshot and vice versa. =============== Diff against VMMaker-dtl.419 =============== Item was changed: Interpreter subclass: #ContextInterpreter + instanceVariableNames: 'activeContext theHomeContext method receiver instructionPointer stackPointer localIP localSP localHomeContext localReturnContext localReturnValue messageSelector currentBytecode primitiveIndex primitiveFunctionPointer methodCache atCache lkupClass reclaimableContextCount nextPollTick nextWakeupTick lastTick interruptPending savedWindowSize deferDisplayUpdates pendingFinalizationSignals compilerInitialized compilerHooks newNativeMethod methodClass receiverClass interpreterVersion imageFormatVersionNumber interpreterProxy showSurfaceFn interruptCheckCounter interruptCheckCounterFeedBackReset interruptChecksEveryNms externalPrimitiveTable primitiveTableDefaults globalSessionID jmpBuf jmpDepth jmpMax suspendedCallbacks suspendedMethods imageFormatInitialVersion allowAccessBeyondSP' - instanceVariableNames: 'activeContext theHomeContext method receiver instructionPointer stackPointer localIP localSP localHomeContext localReturnContext localReturnValue messageSelector currentBytecode primitiveIndex primitiveFunctionPointer methodCache atCache lkupClass reclaimableContextCount nextPollTick nextWakeupTick lastTick interruptPending savedWindowSize deferDisplayUpdates pendingFinalizationSignals compilerInitialized compilerHooks newNativeMethod methodClass receiverClass interpreterVersion imageFormatVersionNumber interpreterProxy showSurfaceFn interruptCheckCounter interruptCheckCounterFeedBackReset interruptChecksEveryNms externalPrimitiveTable globalSessionID jmpBuf jmpDepth jmpMax suspendedCallbacks suspendedMethods imageFormatInitialVersion allowAccessBeyondSP' classVariableNames: 'BlockArgumentCountIndex BytecodeTable CacheProbeMax CallerIndex CompilerHooksSize DirBadPath DirEntryFound DirNoMoreEntries DoBalanceChecks HomeIndex InitialIPIndex MaxJumpBuf MessageDictionaryIndex MethodCacheNative TempFrameStart' poolDictionaries: 'VMMethodCacheConstants VMSqueakV3BytecodeConstants' category: 'VMMaker-Interpreter'! !ContextInterpreter commentStamp: '<historical>' prior: 0! This class is a complete implementation of the Smalltalk-80 virtual machine, derived originally from the Blue Book specification but quite different in some areas. It has been modernized with 32-bit pointers, better management of Contexts, and attention to variable use that allows the CCodeGenerator (qv) to keep, eg, the instruction pointer and stack pointer in registers as well as keeping most simple variables in a global array that seems to improve performance for most platforms. In addition to SmallInteger arithmetic and Floats, it supports logic on 32-bit PositiveLargeIntegers, thus allowing it to simulate itself much more effectively than would otherwise be the case. NOTE: Here follows a list of things to be borne in mind when working on this code, or when making changes for the future. 1. There are a number of things that should be done the next time we plan to release a copletely incompatible image format. These include unifying the instanceSize field of the class format word -- see instantiateClass:indexableSize:, and unifying the bits of the method primitive index (if we decide we need more than 512, after all) -- see primitiveIndexOf:. Also, contexts should be given a special format code (see next item). 2. There are several fast checks for contexts (see isContextHeader: and isMethodContextHeader:) which will fail if the compact class indices of BlockContext or MethodContext change. This is necessary because the oops may change during a compaction when the oops are being adjusted. It's important to be aware of this when writing a new image using the systemTracer. A better solution would be to reserve one of the format codes for Contexts only. 3. We have made normal files tolerant to size and positions up to 32 bits. This has not been done for async files, since they are still experimental. The code in size, at: and at:put: should work with sizes and indices up to 31 bits, although I have not tested it (di 12/98); it might or might not work with 32-bit sizes. 4. Note that 0 is used in a couple of places as an impossible oop. This should be changed to a constant that really is impossible (or perhaps there is code somewhere that guarantees it --if so it should be put in this comment). The places include the method cache and the at cache. ! Item was changed: ----- Method: ContextInterpreter class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator aCCodeGenerator addHeaderFile: '<setjmp.h>'. aCCodeGenerator var: #interpreterProxy type: #'struct VirtualMachine*'. "declare primitiveTable as an array of pointers to a function returning void, taking no arguments" aCCodeGenerator var: #primitiveFunctionPointer declareC: 'void (*primitiveFunctionPointer)(void)'. aCCodeGenerator var: #methodCache declareC: 'long methodCache[' , (MethodCacheSize + 1) printString , ']'. aCCodeGenerator var: #atCache declareC: 'sqInt atCache[' , (AtCacheTotalSize + 1) printString , ']'. aCCodeGenerator var: #statGCTime type: #sqLong. aCCodeGenerator var: #statFullGCMSecs type: #sqLong. aCCodeGenerator var: #statIGCDeltaTime type: #sqLong. aCCodeGenerator var: #statIncrGCMSecs type: #sqLong. aCCodeGenerator var: #localIP type: #'char*'. aCCodeGenerator var: #localSP type: #'char*'. aCCodeGenerator var: #showSurfaceFn type: #'void*'. aCCodeGenerator var: #compilerHooks declareC: 'sqInt (*compilerHooks[' , (CompilerHooksSize + 1) printString , '])()'. aCCodeGenerator var: #interpreterVersion declareC: 'const char *interpreterVersion = "' , SmalltalkImage current datedVersion , ' [' , SmalltalkImage current lastUpdateString , ']"'. self declareCAsOop: {#instructionPointer. #method. #newMethod. #activeContext. #theHomeContext. #stackPointer} in: aCCodeGenerator. aCCodeGenerator var: #jmpBuf declareC: 'jmp_buf jmpBuf[' , (MaxJumpBuf + 1) printString , ']'. aCCodeGenerator var: #suspendedCallbacks declareC: 'sqInt suspendedCallbacks[' , (MaxJumpBuf + 1) printString , ']'. aCCodeGenerator var: #suspendedMethods declareC: 'sqInt suspendedMethods[' , (MaxJumpBuf + 1) printString , ']'. "Reinitialized at interpreter entry by #initializeImageFormatVersion" aCCodeGenerator var: #imageFormatVersionNumber declareC: 'sqInt imageFormatVersionNumber = 0'. "Declared here to prevent inclusion in foo struct by CCodeGeneratorGlobalStructure" aCCodeGenerator var: #imageFormatInitialVersion declareC: 'sqInt imageFormatInitialVersion = 0'. + aCCodeGenerator var: #primitiveTable declareC: 'void (*primitiveTable[', MaxPrimitiveIndex asString, '])(void)'. + aCCodeGenerator var: #primitiveTableDefaults declareC: 'void (*primitiveTableDefaults[' , (MaxPrimitiveIndex + 2) printString , '] )(void)= ' , self primitiveTableString. - aCCodeGenerator var: #primitiveTable declareC: 'void (*primitiveTable[' , (MaxPrimitiveIndex + 2) printString , '] )(void)= ' , self primitiveTableString. aCCodeGenerator var: #externalPrimitiveTable declareC: 'void (*externalPrimitiveTable[' , (MaxExternalPrimitiveTableSize + 1) printString , '])(void)'. ! Item was added: + ----- Method: ContextInterpreter>>installPrimitiveTable (in category 'primitive table') ----- + installPrimitiveTable + <inline: false> + 0 to: MaxPrimitiveIndex do: [ :i | + primitiveTable at: i put: (primitiveTableDefaults at: i) ]. + self updatePrimitiveTable. + ! Item was changed: ----- Method: ContextInterpreter>>interpret (in category 'interpreter shell') ----- interpret "This is the main interpreter loop. It normally loops forever, fetching and executing bytecodes. When running in the context of a browser plugin VM, however, it 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." <inline: false> "should not be inlined into any senders" self initializeImageFormatVersion. + self installPrimitiveTable. - self updatePrimitiveTable.. allowAccessBeyondSP := self useOldPrimitives. "some old images must disable stack bounds check" self browserPluginInitialiseIfNeeded. "record entry time when running as a browser plug-in" self internalizeIPandSP. self fetchNextBytecode. [true] whileTrue: [self dispatchOn: currentBytecode in: BytecodeTable]. localIP := localIP - 1. "undo the pre-increment of IP before returning" self externalizeIPandSP. ! Item was changed: ----- Method: ContextInterpreter>>primitiveResumeFromSnapshot (in category 'snapshot utility primitives') ----- primitiveResumeFromSnapshot "Discard the current object memory and resume interpreter execution in the provided snapshot." | expectedArraySize snapshotValues size newMemoryBytesOrBitmap bigEndian snapshotImageFormat snapshotStartOfMemory snapshotSpecialObjectsOop snapshotLastHash screenSizePoint headerSize imageBytes imageHeaderFlags snapshotExtraVMMemory swapBytes snapshotFullScreen defaultHeapSize desiredHeapSize | <export: true> expectedArraySize := 11. "ImageSnapshot new asValues size => 11" argumentCount == 1 ifFalse: [ ^self primitiveFailFor: PrimErrBadNumArgs]. snapshotValues := self stackObjectValue: 0. self assertClassOf: snapshotValues is: (objectMemory splObj: ClassArray). self successful ifFalse: [ ^self primitiveFailFor: PrimErrBadArgument]. size := objectMemory numSlotsOf: snapshotValues. size < expectedArraySize ifTrue: [ ^self primitiveFailFor: PrimErrBadArgument]. newMemoryBytesOrBitmap := objectMemory fetchPointer: 0 ofObject: snapshotValues. bigEndian := (objectMemory fetchPointer: 1 ofObject: snapshotValues) = objectMemory trueObject. snapshotImageFormat := objectMemory integerValueOf: (objectMemory fetchPointer: 2 ofObject: snapshotValues).. (self readableFormat: snapshotImageFormat) ifFalse: [ ^self primitiveFailFor: PrimErrInappropriate ]. headerSize := objectMemory integerValueOf: (objectMemory fetchPointer: 3 ofObject: snapshotValues).. imageBytes := self positive32BitValueOf: (objectMemory fetchPointer: 4 ofObject: snapshotValues).. "good for up to 2GB image" snapshotStartOfMemory := objectMemory integerValueOf: (objectMemory fetchPointer: 5 ofObject: snapshotValues).. snapshotSpecialObjectsOop := objectMemory integerValueOf: (objectMemory fetchPointer: 6 ofObject: snapshotValues).. snapshotLastHash := objectMemory integerValueOf: (objectMemory fetchPointer: 7 ofObject: snapshotValues).. screenSizePoint := objectMemory fetchPointer: 8 ofObject: snapshotValues.. self assertClassOf: screenSizePoint is: (objectMemory splObj: ClassPoint). self successful ifFalse: [ ^self primitiveFailFor: PrimErrBadArgument]. imageHeaderFlags := objectMemory integerValueOf: (objectMemory fetchPointer: 9 ofObject: snapshotValues).. snapshotExtraVMMemory := objectMemory integerValueOf: (objectMemory fetchPointer: 10 ofObject: snapshotValues).. + imageFormatVersionNumber := 0. + imageFormatInitialVersion := snapshotImageFormat. swapBytes := bigEndian ~= self isBigEnder. snapshotFullScreen := false. "FIXME" "From sqUnixMain.c #define DefaultHeapSize 20 megabytes BEYOND actual image size" defaultHeapSize := 20 * 1000 * 1000. desiredHeapSize := defaultHeapSize + imageBytes. self snapshotResume: newMemoryBytesOrBitmap heapSize: desiredHeapSize swapBytes: swapBytes oldBaseAddr: snapshotStartOfMemory specialObjectsOop: snapshotSpecialObjectsOop lastHash: snapshotLastHash savedWindowSize: screenSizePoint fullScreenFlag: snapshotFullScreen extraVMMemory: snapshotExtraVMMemory. self pop: 1 thenPush: newMemoryBytesOrBitmap. ! Item was added: + ----- Method: ContextInterpreter>>updatePrimitiveTable (in category 'primitive table') ----- + updatePrimitiveTable + "Make any run time updates to the primitive table that may be required for supporting + the current running image. May be called by an interpreter that determines at run time + that it needs to provide support for an older image. + + References: The SqueakJS dispatch table, which is known to run the full range of Squeak + images, is used as a reference, along with comparison to the Squeak VM table as of + January 2005 from VMMaker-tpr.22, which was the last version prior to converting + images to support full closures (dtl Dec 2016)" + + <inline: false> + self useOldPrimitives ifTrue: [ + self installPrimitive: #primitiveNext at: 65. + self installPrimitive: #primitiveNextPut at: 66. + self installPrimitive: #primitiveAtEnd at: 67. + + self installPrimitive: #primitiveBlockCopy at: 80. + self installPrimitive: #primitiveValue at: 81. + self installPrimitive: #primitiveValueWithArgs at: 82. + + self installPrimitive: 'primitiveCopyBits' from: 'BitBltPlugin' at: 96. + + self installPrimitive: #primitiveValueUninterruptably at: 123. + + self installPrimitive: 'primitiveReadJoystick' from: 'JoystickTabletPlugin' at: 146. + + self installPrimitive: 'primitiveWarpBits' from: 'BitBltPlugin' at: 147. + + self installPrimitive: 'primitiveFileAtEnd' from: 'FilePlugin' at: 150. + self installPrimitive: 'primitiveFileClose' from: 'FilePlugin' at: 151. + self installPrimitive: 'primitiveFileGetPosition' from: 'FilePlugin' at: 152. + self installPrimitive: 'primitiveFileOpen' from: 'FilePlugin' at: 153. + self installPrimitive: 'primitiveFileRead' from: 'FilePlugin' at: 154. + self installPrimitive: 'primitiveFileSetPosition' from: 'FilePlugin' at: 155. + self installPrimitive: 'primitiveFileDelete' from: 'FilePlugin' at: 156. + self installPrimitive: 'primitiveFileSize' from: 'FilePlugin' at: 157. + self installPrimitive: 'primitiveFileWrite' from: 'FilePlugin' at: 158. + self installPrimitive: 'primitiveFileRename' from: 'FilePlugin' at: 159. + self installPrimitive: 'primitiveDirectoryCreate' from: 'FilePlugin' at: 160. + self installPrimitive: 'primitiveDirectoryDelimitor' from: 'FilePlugin'at: 161. + self installPrimitive: 'primitiveDirectoryLookup' from: 'FilePlugin' at: 162. + self installPrimitive: 'primitiveDirectoryDelete' from: 'FilePlugin' at: 163. + self installPrimitive: 'primitiveDirectorySetMacTypeAndCreator' from: 'FilePlugin' at: 169. + + self installPrimitive: 'primitiveSoundStart' from: 'SoundPlugin' at: 170. + self installPrimitive: 'primitiveSoundStartWithSemaphore' from: 'SoundPlugin' at: 171. + self installPrimitive: 'primitiveSoundStop' from: 'SoundPlugin' at: 172. + self installPrimitive: 'primitiveSoundAvailableSpace' from: 'SoundPlugin' at: 173. + self installPrimitive: 'primitiveSoundPlaySamples' from: 'SoundPlugin' at: 174. + self installPrimitive: 'primitiveSoundPlaySilence' from: 'SoundPlugin' at: 175. + self installPrimitive: 'primWaveTableSoundmixSampleCountintostartingAtpan' from: 'SoundGenerationPlugin' at: 176. + self installPrimitive: 'primFMSoundmixSampleCountintostartingAtpan' from: 'SoundGenerationPlugin' at: 177. + self installPrimitive: 'primPluckedSoundmixSampleCountintostartingAtpan' from: 'SoundGenerationPlugin' at: 178. + self installPrimitive: 'primSampledSoundmixSampleCountintostartingAtpan' from: 'SoundGenerationPlugin' at: 179. + self installPrimitive: 'primitiveMixFMSound' from: 'SoundGenerationPlugin' at: 180. + self installPrimitive: 'primitiveMixPluckedSound' from: 'SoundGenerationPlugin' at: 181. + self installPrimitive: 'oldprimSampledSoundmixSampleCountintostartingAtleftVolrightVol' from: 'SoundGenerationPlugin' at: 182. + self installPrimitive: 'primitiveApplyReverb' from: 'SoundGenerationPlugin' at: 183. + self installPrimitive: 'primitiveMixLoopedSampledSound' from: 'SoundGenerationPlugin' at: 184. + self installPrimitive: 'primitiveMixSampledSound' from: 'SoundGenerationPlugin' at: 185. + + self installPrimitive: 'primitiveSoundInsertSamples' from: 'SoundPlugin' at: 189. + + self installPrimitive: 'primitiveSoundStopRecording' from: 'SoundPlugin' at: 191. + self installPrimitive: 'primitiveSoundGetRecordingSampleRate' from: 'SoundPlugin' at: 192. + self installPrimitive: 'primitiveSoundRecordSamples' from: 'SoundPlugin' at: 193. + self installPrimitive: 'primitiveSoundSetRecordLevel' from: 'SoundPlugin' at: 194. + + self installPrimitive: 'primitiveInitializeNetwork' from: 'SocketPlugin' at: 200. + self installPrimitive: 'primitiveResolverStartNameLookup' from: 'SocketPlugin' at: 201. + self installPrimitive: 'primitiveResolverNameLookupResult' from: 'SocketPlugin' at: 202. + self installPrimitive: 'primitiveResolverStartAddressLookup' from: 'SocketPlugin' at: 203. + self installPrimitive: 'primitiveResolverAddressLookupResult' from: 'SocketPlugin' at: 204. + self installPrimitive: 'primitiveResolverAbortLookup' from: 'SocketPlugin' at: 205. + self installPrimitive: 'primitiveResolverLocalAddress' from: 'SocketPlugin' at: 206. + self installPrimitive: 'primitiveResolverStatus' from: 'SocketPlugin' at: 207. + self installPrimitive: 'primitiveResolverError' from: 'SocketPlugin' at: 208. + self installPrimitive: 'primitiveSocketCreate' from: 'SocketPlugin' at: 209. + self installPrimitive: 'primitiveSocketDestroy' from: 'SocketPlugin' at: 210. + self installPrimitive: 'primitiveSocketConnectionStatus' from: 'SocketPlugin' at: 211. + self installPrimitive: 'primitiveSocketError' from: 'SocketPlugin' at: 212. + self installPrimitive: 'primitiveSocketLocalAddress' from: 'SocketPlugin' at: 213. + self installPrimitive: 'primitiveSocketLocalPort' from: 'SocketPlugin' at: 214. + self installPrimitive: 'primitiveSocketRemoteAddress' from: 'SocketPlugin' at: 215. + self installPrimitive: 'primitiveSocketRemotePort' from: 'SocketPlugin' at: 216. + self installPrimitive: 'primitiveSocketConnectToPort' from: 'SocketPlugin' at: 217. + self installPrimitive: 'primitiveSocketListenOnPort' from: 'SocketPlugin' at: 218. + self installPrimitive: 'primitiveSocketCloseConnection' from: 'SocketPlugin' at: 219. + self installPrimitive: 'primitiveSocketAbortConnection' from: 'SocketPlugin' at: 220. + self installPrimitive: 'primitiveSocketReceiveDataBufCount' from: 'SocketPlugin' at: 221. + self installPrimitive: 'primitiveSocketReceiveDataAvailable' from: 'SocketPlugin' at: 222. + self installPrimitive: 'primitiveSocketSendDataBufCount' from: 'SocketPlugin' at: 223. + self installPrimitive: 'primitiveSocketSendDone' from: 'SocketPlugin' at: 224. + + self installPrimitive: 'primitiveDecompressFromByteArray' from: 'MiscPrimitivePlugin' at: 234. + self installPrimitive: 'primitiveCompareString' from: 'MiscPrimitivePlugin' at: 235. + self installPrimitive: 'primitiveConvert8BitSigned' from: 'MiscPrimitivePlugin' at: 236. + self installPrimitive: 'primitiveCompressToByteArray' from: 'MiscPrimitivePlugin' at: 237. + + self installPrimitive: 'primitiveSerialPortOpen' from: 'SerialPlugin' at: 238. + self installPrimitive: 'primitiveSerialPortClose' from: 'SerialPlugin' at: 239. + self installPrimitive: 'primitiveSerialPortWrite' from: 'SerialPlugin' at: 240. + self installPrimitive: 'primitiveSerialPortRead' from: 'SerialPlugin' at: 241. + + self installPrimitive: 'primitiveTranslateStringWithTable' from: 'MiscPrimitivePlugin' at: 243. + self installPrimitive: 'primitiveFindFirstInString' from: 'MiscPrimitivePlugin' at: 244. + self installPrimitive: 'primitiveIndexOfAsciiInString' from: 'MiscPrimitivePlugin' at: 245. + self installPrimitive: 'primitiveFindSubstring' from: 'MiscPrimitivePlugin' at: 246. + ] + ! Item was removed: - ----- Method: InterpreterPrimitives>>updatePrimitiveTable (in category 'primitive table') ----- - updatePrimitiveTable - "Make any run time updates to the primitive table that may be required for supporting - the current running image. May be called by an interpreter that determines at run time - that it needs to provide support for an older image. - - References: The SqueakJS dispatch table, which is known to run the full range of Squeak - images, is used as a reference, along with comparison to the Squeak VM table as of - January 2005 from VMMaker-tpr.22, which was the last version prior to converting - images to support full closures (dtl Dec 2016)" - - | primitiveTableUpdated | - <inline: false> - <var: #primitiveTableUpdated type: 'static int'> - primitiveTableUpdated == true ifFalse: [ - primitiveTableUpdated := true. - self useOldPrimitives ifTrue: [ - self installPrimitive: #primitiveNext at: 65. - self installPrimitive: #primitiveNextPut at: 66. - self installPrimitive: #primitiveAtEnd at: 67. - - self installPrimitive: #primitiveBlockCopy at: 80. - self installPrimitive: #primitiveValue at: 81. - self installPrimitive: #primitiveValueWithArgs at: 82. - - self installPrimitive: 'primitiveCopyBits' from: 'BitBltPlugin' at: 96. - - self installPrimitive: #primitiveValueUninterruptably at: 123. - - self installPrimitive: 'primitiveReadJoystick' from: 'JoystickTabletPlugin' at: 146. - - self installPrimitive: 'primitiveWarpBits' from: 'BitBltPlugin' at: 147. - - self installPrimitive: 'primitiveFileAtEnd' from: 'FilePlugin' at: 150. - self installPrimitive: 'primitiveFileClose' from: 'FilePlugin' at: 151. - self installPrimitive: 'primitiveFileGetPosition' from: 'FilePlugin' at: 152. - self installPrimitive: 'primitiveFileOpen' from: 'FilePlugin' at: 153. - self installPrimitive: 'primitiveFileRead' from: 'FilePlugin' at: 154. - self installPrimitive: 'primitiveFileSetPosition' from: 'FilePlugin' at: 155. - self installPrimitive: 'primitiveFileDelete' from: 'FilePlugin' at: 156. - self installPrimitive: 'primitiveFileSize' from: 'FilePlugin' at: 157. - self installPrimitive: 'primitiveFileWrite' from: 'FilePlugin' at: 158. - self installPrimitive: 'primitiveFileRename' from: 'FilePlugin' at: 159. - self installPrimitive: 'primitiveDirectoryCreate' from: 'FilePlugin' at: 160. - self installPrimitive: 'primitiveDirectoryDelimitor' from: 'FilePlugin'at: 161. - self installPrimitive: 'primitiveDirectoryLookup' from: 'FilePlugin' at: 162. - self installPrimitive: 'primitiveDirectoryDelete' from: 'FilePlugin' at: 163. - self installPrimitive: 'primitiveDirectorySetMacTypeAndCreator' from: 'FilePlugin' at: 169. - - self installPrimitive: 'primitiveSoundStart' from: 'SoundPlugin' at: 170. - self installPrimitive: 'primitiveSoundStartWithSemaphore' from: 'SoundPlugin' at: 171. - self installPrimitive: 'primitiveSoundStop' from: 'SoundPlugin' at: 172. - self installPrimitive: 'primitiveSoundAvailableSpace' from: 'SoundPlugin' at: 173. - self installPrimitive: 'primitiveSoundPlaySamples' from: 'SoundPlugin' at: 174. - self installPrimitive: 'primitiveSoundPlaySilence' from: 'SoundPlugin' at: 175. - self installPrimitive: 'primWaveTableSoundmixSampleCountintostartingAtpan' from: 'SoundGenerationPlugin' at: 176. - self installPrimitive: 'primFMSoundmixSampleCountintostartingAtpan' from: 'SoundGenerationPlugin' at: 177. - self installPrimitive: 'primPluckedSoundmixSampleCountintostartingAtpan' from: 'SoundGenerationPlugin' at: 178. - self installPrimitive: 'primSampledSoundmixSampleCountintostartingAtpan' from: 'SoundGenerationPlugin' at: 179. - self installPrimitive: 'primitiveMixFMSound' from: 'SoundGenerationPlugin' at: 180. - self installPrimitive: 'primitiveMixPluckedSound' from: 'SoundGenerationPlugin' at: 181. - self installPrimitive: 'oldprimSampledSoundmixSampleCountintostartingAtleftVolrightVol' from: 'SoundGenerationPlugin' at: 182. - self installPrimitive: 'primitiveApplyReverb' from: 'SoundGenerationPlugin' at: 183. - self installPrimitive: 'primitiveMixLoopedSampledSound' from: 'SoundGenerationPlugin' at: 184. - self installPrimitive: 'primitiveMixSampledSound' from: 'SoundGenerationPlugin' at: 185. - - self installPrimitive: 'primitiveSoundInsertSamples' from: 'SoundPlugin' at: 189. - - self installPrimitive: 'primitiveSoundStopRecording' from: 'SoundPlugin' at: 191. - self installPrimitive: 'primitiveSoundGetRecordingSampleRate' from: 'SoundPlugin' at: 192. - self installPrimitive: 'primitiveSoundRecordSamples' from: 'SoundPlugin' at: 193. - self installPrimitive: 'primitiveSoundSetRecordLevel' from: 'SoundPlugin' at: 194. - - self installPrimitive: 'primitiveInitializeNetwork' from: 'SocketPlugin' at: 200. - self installPrimitive: 'primitiveResolverStartNameLookup' from: 'SocketPlugin' at: 201. - self installPrimitive: 'primitiveResolverNameLookupResult' from: 'SocketPlugin' at: 202. - self installPrimitive: 'primitiveResolverStartAddressLookup' from: 'SocketPlugin' at: 203. - self installPrimitive: 'primitiveResolverAddressLookupResult' from: 'SocketPlugin' at: 204. - self installPrimitive: 'primitiveResolverAbortLookup' from: 'SocketPlugin' at: 205. - self installPrimitive: 'primitiveResolverLocalAddress' from: 'SocketPlugin' at: 206. - self installPrimitive: 'primitiveResolverStatus' from: 'SocketPlugin' at: 207. - self installPrimitive: 'primitiveResolverError' from: 'SocketPlugin' at: 208. - self installPrimitive: 'primitiveSocketCreate' from: 'SocketPlugin' at: 209. - self installPrimitive: 'primitiveSocketDestroy' from: 'SocketPlugin' at: 210. - self installPrimitive: 'primitiveSocketConnectionStatus' from: 'SocketPlugin' at: 211. - self installPrimitive: 'primitiveSocketError' from: 'SocketPlugin' at: 212. - self installPrimitive: 'primitiveSocketLocalAddress' from: 'SocketPlugin' at: 213. - self installPrimitive: 'primitiveSocketLocalPort' from: 'SocketPlugin' at: 214. - self installPrimitive: 'primitiveSocketRemoteAddress' from: 'SocketPlugin' at: 215. - self installPrimitive: 'primitiveSocketRemotePort' from: 'SocketPlugin' at: 216. - self installPrimitive: 'primitiveSocketConnectToPort' from: 'SocketPlugin' at: 217. - self installPrimitive: 'primitiveSocketListenOnPort' from: 'SocketPlugin' at: 218. - self installPrimitive: 'primitiveSocketCloseConnection' from: 'SocketPlugin' at: 219. - self installPrimitive: 'primitiveSocketAbortConnection' from: 'SocketPlugin' at: 220. - self installPrimitive: 'primitiveSocketReceiveDataBufCount' from: 'SocketPlugin' at: 221. - self installPrimitive: 'primitiveSocketReceiveDataAvailable' from: 'SocketPlugin' at: 222. - self installPrimitive: 'primitiveSocketSendDataBufCount' from: 'SocketPlugin' at: 223. - self installPrimitive: 'primitiveSocketSendDone' from: 'SocketPlugin' at: 224. - - self installPrimitive: 'primitiveDecompressFromByteArray' from: 'MiscPrimitivePlugin' at: 234. - self installPrimitive: 'primitiveCompareString' from: 'MiscPrimitivePlugin' at: 235. - self installPrimitive: 'primitiveConvert8BitSigned' from: 'MiscPrimitivePlugin' at: 236. - self installPrimitive: 'primitiveCompressToByteArray' from: 'MiscPrimitivePlugin' at: 237. - - self installPrimitive: 'primitiveSerialPortOpen' from: 'SerialPlugin' at: 238. - self installPrimitive: 'primitiveSerialPortClose' from: 'SerialPlugin' at: 239. - self installPrimitive: 'primitiveSerialPortWrite' from: 'SerialPlugin' at: 240. - self installPrimitive: 'primitiveSerialPortRead' from: 'SerialPlugin' at: 241. - - self installPrimitive: 'primitiveTranslateStringWithTable' from: 'MiscPrimitivePlugin' at: 243. - self installPrimitive: 'primitiveFindFirstInString' from: 'MiscPrimitivePlugin' at: 244. - self installPrimitive: 'primitiveIndexOfAsciiInString' from: 'MiscPrimitivePlugin' at: 245. - self installPrimitive: 'primitiveFindSubstring' from: 'MiscPrimitivePlugin' at: 246. - ] - ] - ! Item was changed: ----- Method: VMMaker class>>versionString (in category 'version testing') ----- versionString "VMMaker versionString" + ^'4.19.3'! - ^'4.19.2'!

1 0

[OpenSmalltalk/opensmalltalk-vm] 683f31: On Mac allow the interested VM builder to specify ...
by Eliot Miranda 21 Dec '20

21 Dec '20

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 683f3191c7a016bf4ee04667ac7c5619fea92ca7 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/683f3191c7a016bf4e… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2020-12-20 (Sun, 20 Dec 2020) Changed paths: M platforms/iOS/vm/Common/Classes/sqSqueakMainApp.m Log Message: ----------- On Mac allow the interested VM builder to specify that crash.dmp appears in a specific directory relative to the preferences directory. Implement register printing in crash.dmp for ARMv8. [ci skip]

1 0

[OpenSmalltalk/opensmalltalk-vm] a6522a: MacOS: Make request for access to the camera & mic...
by Eliot Miranda 18 Dec '20

18 Dec '20

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: a6522a9e0f86a6832e0354a7e528a423f7f7e505 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/a6522a9e0f86a6832e… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2020-12-18 (Fri, 18 Dec 2020) Changed paths: M platforms/iOS/plugins/CameraPlugin/AVFoundationVideoGrabber.m M platforms/iOS/plugins/SoundPlugin/sqSqueakSoundCoreAudio.m Log Message: ----------- MacOS: Make request for access to the camera & microphone in Camera and Sound plugins block until the user responds. [ci skip]

1 0

[OpenSmalltalk/opensmalltalk-vm] 8464dc: Eliminate a deprecation and a non-effect warning o...
by Eliot Miranda 18 Dec '20

18 Dec '20

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 8464dc37c65f16016991ccb58219d2ac7c6d9f1f https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/8464dc37c65f160169… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2020-12-18 (Fri, 18 Dec 2020) Changed paths: M platforms/iOS/vm/OSX/SqueakOSXAppDelegate.m M platforms/iOS/vm/OSX/sqMacUnixExternalPrims.m M platforms/iOS/vm/SqueakPureObjc_Prefix.pch R platforms/minheadless/common/sqExternalPrimitives.c.orig Log Message: ----------- Eliminate a deprecation and a non-effect warning on MacOS. Eliminate an unnecessary copy and do some cleanup in NacOS sqMacUnixExternalPrims.m. Nuke obsolete headless file. [ci skip]

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev December 2020