Vm-dev May 2018

vm-dev@lists.squeakfoundation.org

30 participants
115 discussions

VM Maker: VMMaker.oscog-eem.2397.mcz
by commits＠source.squeak.org 31 May '18

31 May '18

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2397.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2397 Author: eem Time: 30 May 2018, 7:49:46.882396 pm UUID: b696a3c2-2443-4c71-94ef-04a4a9a8c426 Ancestors: VMMaker.oscog-eem.2396 Actually fix Slang not emitting variable declarations for 'extern ...' declarations. =============== Diff against VMMaker.oscog-eem.2396 =============== Item was changed: ----- Method: TMethod>>removeUnusedTempsIn: (in category 'utilities') ----- removeUnusedTempsIn: aCodeGen "Remove all of the unused temps in this method. Answer a set of the references." "After inlining some variable references are now obsolete, we could fix them there but the code seems a bit complicated, the other choice to to rebuild the locals before extruding. This is done here" | usedVariables | usedVariables := self allReferencedVariablesUsing: aCodeGen. "reset the locals to be only those still referred to" locals do: [:local| + (usedVariables includes: local) ifFalse: + [(((declarations at: local ifAbsent: ['']) includesSubstring: 'static') + or: [(declarations at: local ifAbsent: ['']) includesSubstring: 'extern']) + ifFalse: + [locals remove: local. + declarations removeKey: local ifAbsent: []] + ifTrue: + [usedVariables add: local "In case this is a function declaration, e.g. amInVMThread in ownVM:"]]]. - ((usedVariables includes: local) not - and: [((declarations at: local ifAbsent: ['']) includesSubstring: 'static') not - and: [((declarations at: local ifAbsent: ['']) includesSubstring: 'extern') not]]) ifTrue: - [locals remove: local. - declarations removeKey: local ifAbsent: []]]. ^usedVariables!

1 0

Errored: OpenSmalltalk/opensmalltalk-vm#1350 (Cog - d990341)
by Travis CI 31 May '18

31 May '18

Build Update for OpenSmalltalk/opensmalltalk-vm ------------------------------------- Build: #1350 Status: Errored Duration: 11 mins and 53 secs Commit: d990341 (Cog) Author: Eliot Miranda Message: CogVM source as per VMMaker.oscog-eem.2395 Fix regression in primitiveDisplayString (missed return on short-cut return for empty string). View the changeset: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/3487eed1d3df...d9… View the full build log and details: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/385986450?utm_s… -- You can configure recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications This email was sent to vm-dev(a)lists.squeakfoundation.org (mailto:vm-dev@lists.squeakfoundation.org) unsubscribe from this list (http://clicks.travis-ci.com/track/unsub.php?u=14313403&id=3cfa939c96a24c318…)

1 0

[OpenSmalltalk/opensmalltalk-vm] d99034: CogVM source as per VMMaker.oscog-eem.2395
by GitHub 31 May '18

31 May '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: d990341ecf5fdc03e8452a7392a23e7d755ee42d https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/d990341ecf5fdc03e8… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2018-05-30 (Wed, 30 May 2018) Changed paths: M src/plugins/BitBltPlugin/BitBltPlugin.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2395 Fix regression in primitiveDisplayString (missed return on short-cut return for empty string). **NOTE:** This service been marked for deprecation: https://developer.github.com/changes/2018-04-25-github-services-deprecation/ Functionality will be removed from GitHub.com on January 31st, 2019.

1 0

VM Maker: VMMaker.oscog-eem.2396.mcz
by commits＠source.squeak.org 31 May '18

31 May '18

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2396.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2396 Author: eem Time: 30 May 2018, 7:14:15.813634 pm UUID: 01a9f048-84c7-4af6-b5a6-bbeee10cbdba Ancestors: VMMaker.oscog-eem.2395 Fix some compiler warnings in the interpreter (including unused variables). Make methodReturnString: safe in the presence of allocation failures, but note that, because it may fail on returning a result (which implies the primitive has done its work) this is dubious at best. Fix Slang not emitting variable declarations for 'extern ...' declarations. =============== Diff against VMMaker.oscog-eem.2395 =============== Item was changed: ----- Method: InterpreterPrimitives>>primitiveBeDisplay (in category 'I/O primitives') ----- primitiveBeDisplay "Record the system Display object in the specialObjectsTable, and if possible pin the display bitmap. Further, invoke ioBeDisplay to alow the VM to record the location, width heigth & depth of the bitmap." | rcvr bitsOop depthOop heightOop widthOop | rcvr := self stackTop. ((objectMemory isPointers: rcvr) and: [(objectMemory lengthOf: rcvr) >= 4 and: [bitsOop := objectMemory fetchPointer: 0 ofObject: rcvr. ((objectMemory isWordsOrBytes: bitsOop) or: [objectMemory isIntegerObject: bitsOop]) "for surface plugin handles" and: [(objectMemory isIntegerObject: (widthOop := objectMemory fetchPointer: 1 ofObject: rcvr)) and: [(objectMemory isIntegerObject: (heightOop := objectMemory fetchPointer: 2 ofObject: rcvr)) and: [(objectMemory isIntegerObject: (depthOop := objectMemory fetchPointer: 3 ofObject: rcvr))]]]]]) ifFalse: [^self primitiveFailFor: PrimErrBadReceiver]. objectMemory splObj: TheDisplay put: rcvr. (objectMemory hasSpurMemoryManagerAPI and: [(objectMemory isNonImmediate: bitsOop) and: [(objectMemory isPinned: bitsOop) not]]) ifTrue: [rcvr := objectMemory pinObject: bitsOop. "Answers 0 if memory required to pin bit not enough memory available." rcvr ~= 0 ifTrue: [bitsOop := rcvr]]. + self ioBeDisplay: ((objectMemory isNonImmediate: bitsOop) + ifTrue: [objectMemory firstIndexableField: bitsOop] + ifFalse: [bitsOop asVoidPointer]) - self ioBeDisplay: ((objectMemory isNonImmediate: bitsOop) ifTrue: [objectMemory firstIndexableField: bitsOop] ifFalse: [bitsOop]) width: (objectMemory integerValueOf: widthOop) height: (objectMemory integerValueOf: heightOop) depth: (objectMemory integerValueOf: depthOop)! Item was changed: ----- Method: InterpreterPrimitives>>primitiveGetenv (in category 'other primitives') ----- primitiveGetenv "Access to environment variables via getenv. No putenv or setenv as yet." + | key var result | - | var result | <export: true> + <var: #key type: #'char *'> <var: #var type: #'char *'> - <var: #result type: #'char *'> sHEAFn ~= 0 ifTrue: "secHasEnvironmentAccess" [self sHEAFn ifFalse: [^self primitiveFailFor: PrimErrInappropriate]]. + key := self cStringOrNullFor: self stackTop. + key = 0 ifTrue: - var := self cStringOrNullFor: self stackTop. - var = 0 ifTrue: [self successful ifTrue: [^self primitiveFailFor: PrimErrBadArgument]. ^self primitiveFailFor: primFailCode]. + var := self getenv: (self cCode: [key] inSmalltalk: [key allButLast]). + self free: key. + var ~= 0 ifTrue: + [result := objectMemory stringForCString: var. - result := self getenv: (self cCode: [var] inSmalltalk: [var allButLast]). - self free: var. - result ~= 0 ifTrue: - [result := objectMemory stringForCString: result. result ifNil: [^self primitiveFailFor: PrimErrNoMemory]]. self assert: primFailCode = 0. + self pop: 2 thenPush: (var = 0 ifTrue: [objectMemory nilObject] ifFalse: [result])! - self pop: 2 thenPush: (result = 0 ifTrue: [objectMemory nilObject] ifFalse: [result])! Item was changed: ----- Method: InterpreterProxy>>methodReturnString: (in category 'stack access') ----- methodReturnString: aCString + "Sets the return value for a method." + "THIS IS DUBIOUS!! CONSIDER REMOVING IT!! RIGHT NOW IT IS NOT SENT." - "Sets the return value for a method" <var: 'aCString' type: #'char *'> + (self stringForCString: aCString) + ifNil: [primFailCode := PrimErrNoMemory] + ifNotNil: [:result| self pop: argumentCount+1 thenPush: result]. - self pop: argumentCount+1 thenPush: (self stringForCString: aCString). ^0! Item was changed: ----- Method: StackInterpreter class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator | vmClass | self class == thisContext methodClass ifFalse: [^self]. "Don't duplicate decls in subclasses" vmClass := aCCodeGenerator vmClass. "Generate primitiveTable etc based on vmClass, not just StackInterpreter" aCCodeGenerator addHeaderFile:'<stddef.h> /* for e.g. alloca */'; addHeaderFile:'<setjmp.h>'; addHeaderFile:'<wchar.h> /* for wint_t */'; addHeaderFile:'"vmCallback.h"'; addHeaderFile:'"sqMemoryFence.h"'; addHeaderFile:'"dispdbg.h"'. LowcodeVM ifTrue: [ aCCodeGenerator addHeaderFile:'"sqLowcodeFFI.h"']. vmClass declareInterpreterVersionIn: aCCodeGenerator defaultName: 'Stack'. aCCodeGenerator var: #interpreterProxy type: #'struct VirtualMachine*'. aCCodeGenerator declareVar: #sendTrace type: 'volatile int'; declareVar: #byteCount type: #usqInt. "These need to be pointers or unsigned." self declareC: #(instructionPointer method newMethod) as: #usqInt in: aCCodeGenerator. "These are all pointers; char * because Slang has no support for C pointer arithmetic." + self declareC: #(localIP localSP localFP stackPointer framePointer stackLimit breakSelector) - self declareC: #(localIP localSP localFP nativeSP stackPointer framePointer stackLimit breakSelector nativeStackPointer nativeFramePointer shadowCallStack) as: #'char *' in: aCCodeGenerator. aCCodeGenerator var: #breakSelectorLength declareC: 'sqInt breakSelectorLength = MinSmallInteger'. self declareC: #(stackPage overflowedPage) as: #'StackPage *' in: aCCodeGenerator. aCCodeGenerator removeVariable: 'stackPages'. "this is an implicit receiver in the translated code." "This defines bytecodeSetSelector as 0 if MULTIPLEBYTECODESETS is not defined, for the benefit of the interpreter on slow machines." aCCodeGenerator addConstantForBinding: (self bindingOf: #MULTIPLEBYTECODESETS). MULTIPLEBYTECODESETS == false ifTrue: [aCCodeGenerator removeVariable: 'bytecodeSetSelector']. BytecodeSetHasExtensions == false ifTrue: [aCCodeGenerator removeVariable: 'extA'; removeVariable: 'extB']. aCCodeGenerator var: #methodCache declareC: 'sqIntptr_t methodCache[MethodCacheSize + 1 /* ', (MethodCacheSize + 1) printString, ' */]'. NewspeakVM ifTrue: [aCCodeGenerator var: #nsMethodCache declareC: 'sqIntptr_t nsMethodCache[NSMethodCacheSize + 1 /* ', (NSMethodCacheSize + 1) printString, ' */]'] ifFalse: [aCCodeGenerator + removeVariable: #nsMethodCache; removeVariable: 'localAbsentReceiver'; removeVariable: 'localAbsentReceiverOrZero']. AtCacheTotalSize isInteger ifTrue: [aCCodeGenerator var: #atCache declareC: 'sqInt atCache[AtCacheTotalSize + 1 /* ', (AtCacheTotalSize + 1) printString, ' */]']. aCCodeGenerator var: #primitiveTable declareC: 'void (*primitiveTable[MaxPrimitiveIndex + 2 /* ', (MaxPrimitiveIndex + 2) printString, ' */])(void) = ', vmClass primitiveTableString. vmClass primitiveTable do: [:symbolOrNot| (symbolOrNot isSymbol and: [symbolOrNot ~~ #primitiveFail]) ifTrue: [(aCCodeGenerator methodNamed: symbolOrNot) ifNotNil: [:tMethod| tMethod returnType: #void]]]. vmClass objectMemoryClass hasSpurMemoryManagerAPI ifTrue: [aCCodeGenerator var: #primitiveAccessorDepthTable type: 'signed char' sizeString: 'MaxPrimitiveIndex + 2 /* ', (MaxPrimitiveIndex + 2) printString, ' */' array: vmClass primitiveAccessorDepthTable] ifFalse: [aCCodeGenerator removeVariable: #primitiveAccessorDepthTable]. aCCodeGenerator var: #displayBits type: #'void *'. self declareC: #(displayWidth displayHeight displayDepth) as: #int in: aCCodeGenerator. aCCodeGenerator var: #primitiveFunctionPointer declareC: 'void (*primitiveFunctionPointer)()'; var: #externalPrimitiveTable declareC: 'void (*externalPrimitiveTable[MaxExternalPrimitiveTableSize + 1 /* ', (MaxExternalPrimitiveTableSize + 1) printString, ' */])(void)'; var: #interruptCheckChain declareC: 'void (*interruptCheckChain)(void) = 0'; var: #showSurfaceFn declareC: 'int (*showSurfaceFn)(sqIntptr_t, int, int, int, int)'; var: #jmpBuf declareC: 'jmp_buf jmpBuf[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'; var: #suspendedCallbacks declareC: 'usqInt suspendedCallbacks[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'; var: #suspendedMethods declareC: 'usqInt suspendedMethods[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'. self declareCAsUSqLong: #(nextPollUsecs nextWakeupUsecs longRunningPrimitiveGCUsecs longRunningPrimitiveStartUsecs longRunningPrimitiveStopUsecs "these are high-frequency enough that they're overflowing quite quickly on modern hardware" statProcessSwitch statIOProcessEvents statForceInterruptCheck statCheckForEvents statStackOverflow statStackPageDivorce statIdleUsecs) in: aCCodeGenerator. aCCodeGenerator var: #nextProfileTick type: #sqLong. + LowcodeVM + ifTrue: + [aCCodeGenerator + var: #lowcodeCalloutState type: #'sqLowcodeCalloutState*'. + self declareC: #(nativeSP nativeStackPointer shadowCallStackPointer) + as: #'char *' + in: aCCodeGenerator] + ifFalse: + [#(lowcodeCalloutState nativeSP nativeStackPointer shadowCallStackPointer) do: + [:var| aCCodeGenerator removeVariable: var]]! - LowcodeVM ifTrue: - [aCCodeGenerator - var: #shadowCallStackPointer type: #'char *'; - var: #lowcodeCalloutState type: #'sqLowcodeCalloutState*']! Item was changed: ----- Method: TMethod>>emitCLocalsOn:generator: (in category 'C code generation') ----- emitCLocalsOn: aStream generator: aCodeGen "Emit a C function header for this method onto the given stream." | volatileVariables | volatileVariables := properties includesKey: #volatile. self refersToGlobalStruct ifTrue: [aStream next: 3 put: Character space; "there's already an opening ${ on this line; see sender" nextPutAll: (volatileVariables ifTrue: ['DECL_MAYBE_VOLATILE_SQ_GLOBAL_STRUCT'] ifFalse: ['DECL_MAYBE_SQ_GLOBAL_STRUCT'])]. aStream cr. locals isEmpty ifFalse: [(aCodeGen sortStrings: locals) do: [ :var | | decl | decl := self declarationAt: var. + (volatileVariables + or: [(decl beginsWith: 'static') + or: [(decl beginsWith: 'extern') + or: [usedVariablesCache includes: var]]]) ifTrue: - (volatileVariables or: [(decl beginsWith: 'static') or: [usedVariablesCache includes: var]]) ifTrue: [aStream next: 4 put: Character space. volatileVariables ifTrue: [aStream nextPutAll: #volatile; space]. aStream nextPutAll: decl; nextPut: $;; cr]]. aStream cr]!

1 0

VM Maker: VMMaker.oscog-eem.2395.mcz
by commits＠source.squeak.org 31 May '18

31 May '18

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2395.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2395 Author: eem Time: 30 May 2018, 6:10:40.193368 pm UUID: 18590d2e-a338-43f2-ae2d-98ac73b654c1 Ancestors: VMMaker.oscog-eem.2394 Fix regression in primitiveDisplayString (missed return on short-cut return for empty string). =============== Diff against VMMaker.oscog-eem.2394 =============== Item was changed: ----- Method: BitBltSimulation>>primitiveDisplayString (in category 'primitives') ----- primitiveDisplayString | kernDelta xTable glyphMap stopIndex startIndex sourceString bbObj maxGlyph ascii glyphIndex sourcePtr left quickBlt | <export: true> <var: #sourcePtr type: 'char *'> interpreterProxy methodArgumentCount = 6 ifFalse: [^interpreterProxy primitiveFail]. kernDelta := interpreterProxy stackIntegerValue: 0. xTable := interpreterProxy stackValue: 1. glyphMap := interpreterProxy stackValue: 2. stopIndex := interpreterProxy stackIntegerValue: 3. startIndex := interpreterProxy stackIntegerValue: 4. sourceString := interpreterProxy stackValue: 5. bbObj := interpreterProxy stackObjectValue: 6. interpreterProxy failed ifTrue: [^nil]. ((interpreterProxy isArray: xTable) and: [(interpreterProxy isArray: glyphMap) and: [(interpreterProxy slotSizeOf: glyphMap) = 256 and: [(interpreterProxy isBytes: sourceString) and: [startIndex > 0 and: [stopIndex >= 0 "to avoid failing for empty strings..." and: [stopIndex <= (interpreterProxy byteSizeOf: sourceString) and: [(self loadBitBltFrom: bbObj) and: [combinationRule ~= 30 "these two need extra source alpha" and: [combinationRule ~= 31]]]]]]]]]) ifFalse: [^interpreterProxy primitiveFail]. stopIndex = 0 ifTrue: + [^interpreterProxy pop: 6 "the string is empty; pop args, return rcvr"]. - [interpreterProxy pop: 6. "the string is empty; pop args, return rcvr"]. maxGlyph := (interpreterProxy slotSizeOf: xTable) - 2. "See if we can go directly into copyLoopPixMap (usually we can)" quickBlt := destBits ~= 0 "no OS surfaces please" and:[sourceBits ~= 0 "and again" and:[noSource = false "needs a source" and:[sourceForm ~= destForm "no blits onto self" and:[cmFlags ~= 0 or:[sourceMSB ~= destMSB or:[sourceDepth ~= destDepth]]]]]]. "no point using slower version" left := destX. sourcePtr := interpreterProxy firstIndexableField: sourceString. startIndex to: stopIndex do:[:charIndex| ascii := interpreterProxy byteAtPointer: sourcePtr + charIndex - 1. glyphIndex := interpreterProxy fetchInteger: ascii ofObject: glyphMap. (glyphIndex < 0 or:[glyphIndex > maxGlyph]) ifTrue:[^interpreterProxy primitiveFail]. sourceX := interpreterProxy fetchInteger: glyphIndex ofObject: xTable. width := (interpreterProxy fetchInteger: glyphIndex+1 ofObject: xTable) - sourceX. interpreterProxy failed ifTrue:[^nil]. self clipRange. "Must clip here" (bbW > 0 and:[bbH > 0]) ifTrue: [ quickBlt ifTrue:[ self destMaskAndPointerInit. self copyLoopPixMap. "both, hDir and vDir are known to be > 0" affectedL := dx. affectedR := dx + bbW. affectedT := dy. affectedB := dy + bbH. ] ifFalse:[self copyBits]]. interpreterProxy failed ifTrue:[^nil]. destX := destX + width + kernDelta. ]. affectedL := left. self showDisplayBits. "store destX back" interpreterProxy storeInteger: BBDestXIndex ofObject: bbObj withValue: destX. interpreterProxy pop: 6 "pop args, return rcvr"!

1 0

Build failed: opensmalltalk-vm 1.0.1322
by AppVeyor 30 May '18

30 May '18

1 0

Errored: OpenSmalltalk/opensmalltalk-vm#1349 (Cog - 3487eed)
by Travis CI 30 May '18

30 May '18

Build Update for OpenSmalltalk/opensmalltalk-vm ------------------------------------- Build: #1349 Status: Errored Duration: 10 mins and 55 secs Commit: 3487eed (Cog) Author: Eliot Miranda Message: CogVM source as per VMMaker.oscog-eem.2394 Sista V1 Bytecode Set/Full Blocks: Fixed a bug in frameless full blocks (fetching receiver from receiver index in FullBlock and not outerContext) SpurSelectiveCompactor: Add a guard to followForwardingPointersInStackZone: to avoid scanning the stack zone when it is empty because the system is snapshotting. Added segmentOverlap assertions and debugging convenience. Add optional read barrier for temp vector accesses (TempVectReadBarrier Slang to C compilation settings) Plugins General: Added #methodReturnReceiver, another methodReturn* method, that pops argumentCount elements from the stack, leaving only the receiver there BitBltPlugin: Don't fail primitiveDisplayString for empty strings (still validates fully). FilePlugin: Use methodReturn***: instead of pop: + push***:. Change the primitiveFileDescriptorType to return the file descriptor type instead of just 0 or 1 Eliminate obsolete accessor (to get rid of a cCode:inSmalltalk:). MiscPrimitivePlugin: - somewhat decreased the overhead of the primitive calls by trying to minimize interpreterProxy function calls - primitiveFindFirstInString: - eliminated the start variable - fail with PrimErrBadIndex if the start index argument is invalid (<= 0) - primitiveFindSubstring - fail with PrimErrBadArgument if matchTable is too short - primitiveIndexOfAsciiInString - fail with PrimErrBadIndex if the start index argument is invalid (<= 0) - primitiveStringHash - eliminated the byteArraySize variable - moved the masking out of the loop, so it's only evaluated once - primitiveTranslateStringWithTable - fail with PrimErrBadIndex if the start or stop index argument is invalid (<= 0, >= size respectively) - primitiveConvert8BitSigned - added primitive error codes Slang: Trust config.h more. It declares when to include dlfcn and takes care of _GNU_SOURCE. View the changeset: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/3d0b1552cd96...34… View the full build log and details: https://travis-ci.org/OpenSmalltalk/opensmalltalk-vm/builds/385885225?utm_s… -- You can configure recipients for build notifications in your .travis.yml file. See https://docs.travis-ci.com/user/notifications This email was sent to vm-dev(a)lists.squeakfoundation.org (mailto:vm-dev@lists.squeakfoundation.org) unsubscribe from this list (http://clicks.travis-ci.com/track/unsub.php?u=14313403&id=e0b5fa54c7224849a…)

1 0

[OpenSmalltalk/opensmalltalk-vm] 3487ee: CogVM source as per VMMaker.oscog-eem.2394
by GitHub 30 May '18

30 May '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 3487eed1d3dfcc05d11592d293e2ec3120bbb8f4 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/3487eed1d3dfcc05d1… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2018-05-30 (Wed, 30 May 2018) Changed paths: M nsspur64src/vm/cogit.h M nsspur64src/vm/cogitX64SysV.c M nsspur64src/vm/cogitX64WIN64.c M nsspur64src/vm/cointerp.c M nsspur64src/vm/cointerp.h M nsspur64src/vm/gcc3x-cointerp.c M nsspursrc/vm/cogit.h M nsspursrc/vm/cogitARMv5.c M nsspursrc/vm/cogitIA32.c M nsspursrc/vm/cogitMIPSEL.c M nsspursrc/vm/cointerp.c M nsspursrc/vm/cointerp.h M nsspursrc/vm/gcc3x-cointerp.c M nsspurstack64src/vm/gcc3x-interp.c M nsspurstack64src/vm/interp.c M nsspurstacksrc/vm/gcc3x-interp.c M nsspurstacksrc/vm/interp.c M platforms/Cross/vm/sqVirtualMachine.c M platforms/Cross/vm/sqVirtualMachine.h M platforms/Mac OS/plugins/AsynchFilePlugin/sqMacAsyncFilePrims.c M spur64src/vm/cogit.h 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/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/cogitX64SysV.c M spursista64src/vm/cogitX64WIN64.c M spursista64src/vm/cointerp.c M spursista64src/vm/cointerp.h M spursista64src/vm/gcc3x-cointerp.c M spursistasrc/vm/cogit.h M spursistasrc/vm/cogitARMv5.c M spursistasrc/vm/cogitIA32.c M spursistasrc/vm/cogitMIPSEL.c M spursistasrc/vm/cointerp.c M spursistasrc/vm/cointerp.h M spursistasrc/vm/gcc3x-cointerp.c M spursrc/vm/cogit.h M spursrc/vm/cogitARMv5.c M spursrc/vm/cogitIA32.c M spursrc/vm/cogitMIPSEL.c M spursrc/vm/cointerp.c M spursrc/vm/cointerp.h M spursrc/vm/cointerpmt.c M spursrc/vm/cointerpmt.h M spursrc/vm/gcc3x-cointerp.c M spursrc/vm/gcc3x-cointerpmt.c M spurstack64src/vm/gcc3x-interp.c M spurstack64src/vm/interp.c M spurstacksrc/vm/gcc3x-interp.c M spurstacksrc/vm/interp.c M src/plugins/BitBltPlugin/BitBltPlugin.c M src/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c M src/plugins/VMProfileLinuxSupportPlugin/VMProfileLinuxSupportPlugin.c M src/vm/cogit.h M src/vm/cogitARMv5.c M src/vm/cogitIA32.c M src/vm/cogitMIPSEL.c M src/vm/cointerp.c M src/vm/cointerp.h M src/vm/cointerpmt.c M src/vm/cointerpmt.h M src/vm/gcc3x-cointerp.c M src/vm/gcc3x-cointerpmt.c M stacksrc/vm/gcc3x-interp.c M stacksrc/vm/interp.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2394 Sista V1 Bytecode Set/Full Blocks: Fixed a bug in frameless full blocks (fetching receiver from receiver index in FullBlock and not outerContext) SpurSelectiveCompactor: Add a guard to followForwardingPointersInStackZone: to avoid scanning the stack zone when it is empty because the system is snapshotting. Added segmentOverlap assertions and debugging convenience. Add optional read barrier for temp vector accesses (TempVectReadBarrier Slang to C compilation settings) Plugins General: Added #methodReturnReceiver, another methodReturn* method, that pops argumentCount elements from the stack, leaving only the receiver there BitBltPlugin: Don't fail primitiveDisplayString for empty strings (still validates fully). FilePlugin: Use methodReturn***: instead of pop: + push***:. Change the primitiveFileDescriptorType to return the file descriptor type instead of just 0 or 1 Eliminate obsolete accessor (to get rid of a cCode:inSmalltalk:). MiscPrimitivePlugin: - somewhat decreased the overhead of the primitive calls by trying to minimize interpreterProxy function calls - primitiveFindFirstInString: - eliminated the start variable - fail with PrimErrBadIndex if the start index argument is invalid (<= 0) - primitiveFindSubstring - fail with PrimErrBadArgument if matchTable is too short - primitiveIndexOfAsciiInString - fail with PrimErrBadIndex if the start index argument is invalid (<= 0) - primitiveStringHash - eliminated the byteArraySize variable - moved the masking out of the loop, so it's only evaluated once - primitiveTranslateStringWithTable - fail with PrimErrBadIndex if the start or stop index argument is invalid (<= 0, >= size respectively) - primitiveConvert8BitSigned - added primitive error codes Slang: Trust config.h more. It declares when to include dlfcn and takes care of _GNU_SOURCE. **NOTE:** This service been marked for deprecation: https://developer.github.com/changes/2018-04-25-github-services-deprecation/ Functionality will be removed from GitHub.com on January 31st, 2019.

1 0

VM Maker: VMMaker.oscog-eem.2394.mcz
by commits＠source.squeak.org 30 May '18

30 May '18

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2394.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2394 Author: eem Time: 30 May 2018, 12:31:53.985094 pm UUID: 61ae96f8-fd2b-4208-87ff-cf1cd6b3f859 Ancestors: VMMaker.oscog-eem.2393 SpurSelectiveCompactor: Add a guard to followForwardingPointersInStackZone: to avoid scanning teh stack zone when it is empty because the system is snapshotting. =============== Diff against VMMaker.oscog-eem.2393 =============== Item was changed: ----- Method: StackInterpreter>>externalWriteBackHeadFramePointers (in category 'stack pages') ----- externalWriteBackHeadFramePointers self assert: (framePointer - stackPointer) < (LargeContextSlots * objectMemory bytesPerOop). self assert: stackPage = stackPages mostRecentlyUsedPage. + self deny: stackPage isFree. self setHeadFP: framePointer andSP: stackPointer inPage: stackPage. self assert: stackPages pageListIsWellFormed! Item was changed: ----- Method: StackInterpreter>>followForwardingPointersInStackZone: (in category 'object memory support') ----- followForwardingPointersInStackZone: theBecomeEffectsFlags "Spur's become: is lazy, turning the becommed object into a forwarding object to the other. The read-barrier is minimised by arranging that forwarding pointers will fail a method cache probe, since notionally objects' internals are accessed only via sending messages to them, the exception is primitives that access the internals of the non-receiver argument(s). To avoid a read barrier on bytecode, literal and inst var fetch and non-local return, we scan the receivers (including the stacked receiver for non-local return) and method references in the stack zone and follow any forwarded ones. This is of course way cheaper than scanning all of memory as in the old become." | theIPPtr | <inline: false> <var: #theFP type: #'char *'> <var: #theIPPtr type: #usqInt> <var: #callerFP type: #'char *'> <var: #thePage type: #'StackPage *'> + stackPage = 0 ifTrue: "the system must be snapshotting; nothing to do..." + [self assert: stackPages mostRecentlyUsedPage isFree. + self cCode: [] inSmalltalk: [stackPages allPagesFree]. + ^self]. + self externalWriteBackHeadFramePointers. (theBecomeEffectsFlags anyMask: BecameCompiledMethodFlag) ifTrue: [(objectMemory isForwarded: method) ifTrue: [theIPPtr := instructionPointer - method. method := objectMemory followForwarded: method. instructionPointer := method + theIPPtr]. (objectMemory isOopForwarded: newMethod) ifTrue: [newMethod := objectMemory followForwarded: newMethod]]. self assert: stackPage ~= 0. 0 to: numStackPages - 1 do: [:i| | thePage theFP callerFP offset oop | thePage := stackPages stackPageAt: i. thePage isFree ifFalse: [self assert: (self ifCurrentStackPageHasValidHeadPointers: thePage). theFP := thePage headFP. "Skip the instruction pointer on top of stack of inactive pages." theIPPtr := thePage = stackPage ifTrue: [0] ifFalse: [thePage headSP asUnsignedInteger]. [self assert: (thePage addressIsInPage: theFP). self assert: (theIPPtr = 0 or: [thePage addressIsInPage: theIPPtr asVoidPointer]). oop := stackPages longAt: theFP + FoxReceiver. (objectMemory isOopForwarded: oop) ifTrue: [stackPages longAt: theFP + FoxReceiver put: (objectMemory followForwarded: oop)]. ((self frameHasContext: theFP) and: [(objectMemory isForwarded: (self frameContext: theFP))]) ifTrue: [stackPages longAt: theFP + FoxThisContext put: (objectMemory followForwarded: (self frameContext: theFP))]. oop := self frameMethod: theFP. (objectMemory isForwarded: oop) ifTrue: [| newOop delta | newOop := objectMemory followForwarded: oop. theIPPtr ~= 0 ifTrue: [self assert: (stackPages longAt: theIPPtr) > (self frameMethod: theFP). delta := newOop - oop. stackPages longAt: theIPPtr put: (stackPages longAt: theIPPtr) + delta]. stackPages longAt: theFP + FoxMethod put: (oop := newOop)]. offset := self frameStackedReceiverOffset: theFP. oop := stackPages longAt: theFP + offset. (objectMemory isOopForwarded: oop) ifTrue: [stackPages longAt: theFP + offset put: (objectMemory followForwarded: oop)]. (callerFP := self frameCallerFP: theFP) ~= 0] whileTrue: [theIPPtr := (theFP + FoxCallerSavedIP) asUnsignedInteger. theFP := callerFP]. "And finally follow the caller context." self assert: theFP = thePage baseFP. oop := self frameCallerContext: theFP. (objectMemory isForwarded: oop) ifTrue: [self frameCallerContext: theFP put: (objectMemory followForwarded: oop)]]]!

1 0

VM Maker: VMMaker.oscog-eem.2393.mcz
by commits＠source.squeak.org 30 May '18

30 May '18

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2393.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2393 Author: eem Time: 30 May 2018, 11:29:10.895138 am UUID: 8860814f-14f8-4fb7-8053-5f682ed7d607 Ancestors: VMMaker.oscog-cb.2392 BitBltPlugin: Don't fail primitiveDisplayString for empty strings (still validates fully though). FilePlugin: Eliminate obsolete accessor (to get rid of a cCode:inSmalltalk:). Simulation: Allow turning off clone on GC/scavenge for speed. On by default though. =============== Diff against VMMaker.oscog-cb.2392 =============== Item was changed: ----- Method: BitBltSimulation>>primitiveDisplayString (in category 'primitives') ----- primitiveDisplayString | kernDelta xTable glyphMap stopIndex startIndex sourceString bbObj maxGlyph ascii glyphIndex sourcePtr left quickBlt | <export: true> <var: #sourcePtr type: 'char *'> interpreterProxy methodArgumentCount = 6 ifFalse: [^interpreterProxy primitiveFail]. kernDelta := interpreterProxy stackIntegerValue: 0. + xTable := interpreterProxy stackValue: 1. + glyphMap := interpreterProxy stackValue: 2. - xTable := interpreterProxy stackObjectValue: 1. - glyphMap := interpreterProxy stackObjectValue: 2. stopIndex := interpreterProxy stackIntegerValue: 3. startIndex := interpreterProxy stackIntegerValue: 4. + sourceString := interpreterProxy stackValue: 5. - sourceString := interpreterProxy stackObjectValue: 5. bbObj := interpreterProxy stackObjectValue: 6. interpreterProxy failed ifTrue: [^nil]. ((interpreterProxy isArray: xTable) and: [(interpreterProxy isArray: glyphMap) and: [(interpreterProxy slotSizeOf: glyphMap) = 256 and: [(interpreterProxy isBytes: sourceString) and: [startIndex > 0 + and: [stopIndex >= 0 "to avoid failing for empty strings..." - and: [stopIndex > 0 and: [stopIndex <= (interpreterProxy byteSizeOf: sourceString) and: [(self loadBitBltFrom: bbObj) and: [combinationRule ~= 30 "these two need extra source alpha" and: [combinationRule ~= 31]]]]]]]]]) ifFalse: [^interpreterProxy primitiveFail]. + stopIndex = 0 ifTrue: + [interpreterProxy pop: 6. "the string is empty; pop args, return rcvr"]. maxGlyph := (interpreterProxy slotSizeOf: xTable) - 2. "See if we can go directly into copyLoopPixMap (usually we can)" quickBlt := destBits ~= 0 "no OS surfaces please" and:[sourceBits ~= 0 "and again" and:[noSource = false "needs a source" and:[sourceForm ~= destForm "no blits onto self" and:[cmFlags ~= 0 or:[sourceMSB ~= destMSB or:[sourceDepth ~= destDepth]]]]]]. "no point using slower version" left := destX. sourcePtr := interpreterProxy firstIndexableField: sourceString. startIndex to: stopIndex do:[:charIndex| ascii := interpreterProxy byteAtPointer: sourcePtr + charIndex - 1. glyphIndex := interpreterProxy fetchInteger: ascii ofObject: glyphMap. (glyphIndex < 0 or:[glyphIndex > maxGlyph]) ifTrue:[^interpreterProxy primitiveFail]. sourceX := interpreterProxy fetchInteger: glyphIndex ofObject: xTable. width := (interpreterProxy fetchInteger: glyphIndex+1 ofObject: xTable) - sourceX. interpreterProxy failed ifTrue:[^nil]. self clipRange. "Must clip here" (bbW > 0 and:[bbH > 0]) ifTrue: [ quickBlt ifTrue:[ self destMaskAndPointerInit. self copyLoopPixMap. "both, hDir and vDir are known to be > 0" affectedL := dx. affectedR := dx + bbW. affectedT := dy. affectedB := dy + bbH. ] ifFalse:[self copyBits]]. interpreterProxy failed ifTrue:[^nil]. destX := destX + width + kernDelta. ]. affectedL := left. self showDisplayBits. "store destX back" interpreterProxy storeInteger: BBDestXIndex ofObject: bbObj withValue: destX. + interpreterProxy pop: 6 "pop args, return rcvr"! - interpreterProxy pop: 6. "pop args, return rcvr"! Item was removed: - ----- Method: FilePlugin>>getThisSession (in category 'file primitives') ----- - getThisSession - "Exported entry point for the VM. Only used by AsynchFilePlugin and needs to be reowrked now we have a VM global session Id capability" - <export: true> - ^self cCode: 'sqFileThisSession()'.! Item was changed: ----- Method: NewCoObjectMemorySimulator>>fullGC (in category 'gc -- mark and sweep') ----- fullGC "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." parent ifNil: [coInterpreter cr; print: 'GC number '; print: statFullGCs; tab; flush. + CloneOnGC ifTrue: + [coInterpreter cloneSimulation objectMemory fullGC. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory fullGC. - Smalltalk garbageCollect]. ^super fullGC! Item was changed: ----- Method: NewCoObjectMemorySimulator>>incrementalGC (in category 'gc -- mark and sweep') ----- incrementalGC "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." (self leakCheckNewSpaceGC and: [parent isNil]) ifTrue: [coInterpreter cr; print: 'Incremental GC number '; print: statIncrGCs; tab; flush. + CloneOnScavenge ifTrue: + [coInterpreter cloneSimulation objectMemory incrementalGC. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory incrementalGC. - Smalltalk garbageCollect]. ^super incrementalGC! Item was changed: ----- Method: NewObjectMemorySimulator>>fullGC (in category 'gc -- mark and sweep') ----- fullGC "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." parent ifNil: [coInterpreter cr; print: 'GC number '; print: statFullGCs; tab; flush. + CloneOnGC ifTrue: + [coInterpreter cloneSimulation objectMemory fullGC. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory fullGC. - Smalltalk garbageCollect]. ^super fullGC! Item was changed: ----- Method: NewObjectMemorySimulator>>incrementalGC (in category 'gc -- mark and sweep') ----- incrementalGC "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." (self leakCheckNewSpaceGC and: [parent isNil]) ifTrue: [coInterpreter cr; print: 'Incremental GC number '; print: statIncrGCs; tab; flush. + CloneOnScavenge ifTrue: + [coInterpreter cloneSimulation objectMemory incrementalGC. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory incrementalGC. - Smalltalk garbageCollect]. ^super incrementalGC! Item was removed: - ----- Method: ObjectMemory>>getHeapGrowthToSizeGCRatio (in category 'accessing') ----- - getHeapGrowthToSizeGCRatio - "For compatibility with spur object memory" - <option: #PharoVM> - <returnTypeC: #float> - ^ 0! Item was changed: ----- Method: Spur32BitMMLECoSimulator>>globalGarbageCollect (in category 'gc - global') ----- globalGarbageCollect "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." parent ifNil: [coInterpreter cr; print: 'GC number '; print: statFullGCs; tab; flush. + CloneOnGC ifTrue: + [coInterpreter cloneSimulation objectMemory globalGarbageCollect. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory globalGarbageCollect. - Smalltalk garbageCollect]. ^super globalGarbageCollect! Item was changed: ----- Method: Spur32BitMMLECoSimulator>>scavengingGCTenuringIf: (in category 'gc - global') ----- scavengingGCTenuringIf: tenuringCriterion "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." (self leakCheckNewSpaceGC and: [parent isNil]) ifTrue: [coInterpreter cr; print: 'scavenge '; print: statScavenges; tab; flush. + CloneOnScavenge ifTrue: + [coInterpreter cloneSimulation objectMemory scavengingGCTenuringIf: tenuringCriterion. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory scavengingGCTenuringIf: tenuringCriterion. - Smalltalk garbageCollect]. ^super scavengingGCTenuringIf: tenuringCriterion! Item was changed: ----- Method: Spur32BitMMLESimulator>>globalGarbageCollect (in category 'gc - global') ----- globalGarbageCollect "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." + parent ifNil: + [coInterpreter cr; print: 'GC number '; print: statFullGCs; tab; flush. + CloneOnGC ifTrue: + [coInterpreter cloneSimulation objectMemory globalGarbageCollect. + Smalltalk garbageCollect]]. - "parent ifNil: - ["coInterpreter cr; print: 'GC number '; print: statFullGCs; tab; flush." - coInterpreter cloneSimulation objectMemory globalGarbageCollect. - Smalltalk garbageCollect]." ^super globalGarbageCollect! Item was changed: ----- Method: Spur32BitMMLESimulator>>scavengingGCTenuringIf: (in category 'gc - global') ----- scavengingGCTenuringIf: tenuringCriterion "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." (self leakCheckNewSpaceGC and: [parent isNil]) ifTrue: [coInterpreter cr; print: 'scavenge '; print: statScavenges; tab; flush. + CloneOnScavenge ifTrue: + [coInterpreter cloneSimulation objectMemory scavengingGCTenuringIf: tenuringCriterion. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory scavengingGCTenuringIf: tenuringCriterion. - Smalltalk garbageCollect]. ^super scavengingGCTenuringIf: tenuringCriterion! Item was changed: ----- Method: Spur64BitMMLECoSimulator>>globalGarbageCollect (in category 'gc - global') ----- globalGarbageCollect "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." parent ifNil: [coInterpreter cr; print: 'GC number '; print: statFullGCs; tab; flush. + CloneOnGC ifTrue: + [coInterpreter cloneSimulation objectMemory globalGarbageCollect. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory globalGarbageCollect. - Smalltalk garbageCollect]. ^super globalGarbageCollect! Item was changed: ----- Method: Spur64BitMMLECoSimulator>>scavengingGCTenuringIf: (in category 'gc - global') ----- scavengingGCTenuringIf: tenuringCriterion "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." (self leakCheckNewSpaceGC and: [parent isNil]) ifTrue: [coInterpreter cr; print: 'scavenge '; print: statScavenges; tab; flush. + CloneOnScavenge ifTrue: + [coInterpreter cloneSimulation objectMemory scavengingGCTenuringIf: tenuringCriterion. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory scavengingGCTenuringIf: tenuringCriterion. - Smalltalk garbageCollect]. ^super scavengingGCTenuringIf: tenuringCriterion! Item was changed: ----- Method: Spur64BitMMLESimulator>>globalGarbageCollect (in category 'gc - global') ----- globalGarbageCollect "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." parent ifNil: [coInterpreter cr; print: 'GC number '; print: statFullGCs; tab; flush. + CloneOnGC ifTrue: + [coInterpreter cloneSimulation objectMemory globalGarbageCollect. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory globalGarbageCollect. - Smalltalk garbageCollect]. ^super globalGarbageCollect! Item was changed: ----- Method: Spur64BitMMLESimulator>>scavengingGCTenuringIf: (in category 'gc - global') ----- scavengingGCTenuringIf: tenuringCriterion "If we're /not/ a clone, clone the VM and push it over the cliff. If it survives, destroy the clone and continue. We should be OK until next time." (self leakCheckNewSpaceGC and: [parent isNil]) ifTrue: [coInterpreter cr; print: 'scavenge '; print: statScavenges; tab; flush. + CloneOnScavenge ifTrue: + [coInterpreter cloneSimulation objectMemory scavengingGCTenuringIf: tenuringCriterion. + Smalltalk garbageCollect]]. - coInterpreter cloneSimulation objectMemory scavengingGCTenuringIf: tenuringCriterion. - Smalltalk garbageCollect]. ^super scavengingGCTenuringIf: tenuringCriterion! Item was changed: SharedPool subclass: #VMBasicConstants instanceVariableNames: '' + classVariableNames: 'BaseHeaderSize BytecodeSetHasExtensions BytesPerOop BytesPerWord COGMTVM COGVM CloneOnGC CloneOnScavenge DisownVMLockOutFullGC DoAssertionChecks DoExpensiveAssertionChecks GCCheckPrimCall GCModeBecome GCModeFreeSpace GCModeFull GCModeImageSegment GCModeIncremental GCModeNewSpace HashMultiplyConstant HashMultiplyMask IMMUTABILITY LowcodeVM MULTIPLEBYTECODESETS NewspeakVM PharoVM PrimErrBadArgument PrimErrBadIndex PrimErrBadMethod PrimErrBadNumArgs PrimErrBadReceiver PrimErrCallbackError PrimErrGenericFailure PrimErrInappropriate PrimErrLimitExceeded PrimErrNamedInternal PrimErrNoCMemory PrimErrNoMemory PrimErrNoModification PrimErrNotFound PrimErrOSError PrimErrObjectIsPinned PrimErrObjectMayMove PrimErrObjectMoved PrimErrObjectNotPinned PrimErrUnsupported PrimErrWritePastObject PrimNoErr SPURVM STACKVM SistaVM TempVectReadBarrier VMBIGENDIAN' - classVariableNames: 'BaseHeaderSize BytecodeSetHasExtensions BytesPerOop BytesPerWord COGMTVM COGVM DisownVMLockOutFullGC DoAssertionChecks DoExpensiveAssertionChecks GCCheckPrimCall GCModeBecome GCModeFreeSpace GCModeFull GCModeImageSegment GCModeIncremental GCModeNewSpace HashMultiplyConstant HashMultiplyMask IMMUTABILITY LowcodeVM MULTIPLEBYTECODESETS NewspeakVM PharoVM PrimErrBadArgument PrimErrBadIndex PrimErrBadMethod PrimErrBadNumArgs PrimErrBadReceiver PrimErrCallbackError PrimErrGenericFailure PrimErrInappropriate PrimErrLimitExceeded PrimErrNamedInternal PrimErrNoCMemory PrimErrNoMemory PrimErrNoModification PrimErrNotFound PrimErrOSError PrimErrObjectIsPinned PrimErrObjectMayMove PrimErrObjectMoved PrimErrObjectNotPinned PrimErrUnsupported PrimErrWritePastObject PrimNoErr SPURVM STACKVM SistaVM TempVectReadBarrier VMBIGENDIAN' poolDictionaries: '' category: 'VMMaker-Interpreter'! !VMBasicConstants commentStamp: '<historical>' prior: 0! I am a shared pool for basic constants upon which the VM as a whole depends. self ensureClassPool. self classPool declare: #BytesPerWord from: VMSqueakV3ObjectRepresentationConstants classPool. self classPool declare: #BaseHeaderSize from: VMSqueakV3ObjectRepresentationConstants classPool (ObjectMemory classPool keys select: [:k| k beginsWith: 'Byte']) do: [:k| self classPool declare: k from: ObjectMemory classPool]! Item was changed: ----- Method: VMClass class>>initializeMiscConstants (in category 'initialization') ----- initializeMiscConstants "Falsify the `what type of VM is this?' flags that are defined in the various interp.h files. Subclass implementations need to include a super initializeMiscConstants" | omc | VMBIGENDIAN class. "Mention this for the benefit of CCodeGenerator>>emitCConstantsOn:" SPURVM := STACKVM := COGVM := COGMTVM := false. initializationOptions ifNil: [self initializationOptions: Dictionary new]. omc := initializationOptions at: #ObjectMemory ifAbsent: nil. (omc isNil and: [self defaultObjectMemoryClass notNil]) ifTrue: [omc := initializationOptions at: #ObjectMemory put: self defaultObjectMemoryClass name]. initializationOptions at: #SqueakV3ObjectMemory "the good ole default" ifAbsentPut: (omc ifNil: [true] ifNotNil: [(Smalltalk at: omc) includesBehavior: ObjectMemory]); at: #SpurObjectMemory "the new contender" ifAbsentPut: (omc ifNil: [false] ifNotNil: [(Smalltalk at: omc) includesBehavior: SpurMemoryManager]). "Use ifAbsentPut: so that they will get copied back to the VMMaker's options and dead code will likely be eliminated." PharoVM := initializationOptions at: #PharoVM ifAbsentPut: [false]. NewspeakVM := initializationOptions at: #NewspeakVM ifAbsentPut: [false]. SistaVM := initializationOptions at: #SistaVM ifAbsentPut: [false]. TempVectReadBarrier := initializationOptions at: #TempVectReadBarrier ifAbsentPut: [false]. LowcodeVM := initializationOptions at: #LowcodeVM ifAbsentPut: [false]. MULTIPLEBYTECODESETS := initializationOptions at: #MULTIPLEBYTECODESETS ifAbsentPut: [false]. + "Simulation only; on by default..." + CloneOnGC := initializationOptions at: #CloneOnGC ifAbsentPut: [true]. + CloneOnScavenge := initializationOptions at: #CloneOnScavenge ifAbsentPut: [true]. "These must be set only if specified, not defaulted, because they are set on the command line or in include files." initializationOptions at: #VMBIGENDIAN ifPresent: [:value| VMBIGENDIAN := value]; at: #ObjectMemory ifPresent: [:value| SPURVM := value beginsWith: 'Spur']; at: #STACKVM ifPresent: [:value| STACKVM := value]; at: #COGVM ifPresent: [:value| COGVM := initializationOptions at: #COGVM]; at: #COGMTVM ifPresent: [:value| COGMTVM := initializationOptions at: #COGMTVM]. "consistency checks" (TempVectReadBarrier and: [SPURVM not]) ifTrue: [self error: 'read barrier works with spur VM only...']. (SistaVM and: [SPURVM not]) ifTrue: [self error: 'Sista VM works with spur VM only...']. ((initializationOptions at: #compactorClass ifAbsent: []) = #SpurSelectiveCompactor and: [TempVectReadBarrier not]) ifTrue: [self error: 'Selective compactor requires read barrier']. "And not these; they're compile-time" IMMUTABILITY := initializationOptions at: #IMMUTABILITY ifAbsent: [SPURVM] "Default as enabled for Spur VMs"!

1 0

← Newer
1
2
3
4
5
6
7
...
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev May 2018