Vm-dev August 2013

vm-dev@lists.squeakfoundation.org

26 participants
167 discussions

VM Maker: VMMaker.oscog-eem.332.mcz
by commits＠source.squeak.org 22 Aug '13

22 Aug '13

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.332.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.332 Author: eem Time: 21 August 2013, 7:21:26.485 pm UUID: f7cb4758-7c5c-4617-89dc-9527ab2ee66b Ancestors: VMMaker.oscog-eem.331 Fix snapshotting in the Newspeak VM. Make removing from the unpaired method list cope with somethign not on the list. =============== Diff against VMMaker.oscog-eem.331 =============== Item was changed: ----- Method: CogMethodZone>>clearCogCompiledCode (in category 'jit - api') ----- clearCogCompiledCode "Free all methods" | cogMethod | <var: #cogMethod type: #'CogMethod *'> + self cppIf: NewspeakVM ifTrue: [unpairedMethodList := nil]. + cogMethod := coInterpreter cCoerceSimple: baseAddress to: #'CogMethod *'. + [cogMethod asUnsignedInteger < mzFreeStart] whileTrue: - cogMethod := coInterpreter cCoerceSimple: baseAddress to: #'CogMethod *'. - [cogMethod asUnsignedInteger < mzFreeStart] whileTrue: [cogMethod cmType = CMMethod ifTrue: [self freeMethod: cogMethod]. cogMethod := self methodAfter: cogMethod]. self manageFrom: baseAddress to: limitAddress! Item was changed: ----- Method: CogMethodZone>>removeFromUnpairedMethodList: (in category 'accessing') ----- removeFromUnpairedMethodList: aCogMethod <var: #aCogMethod type: #'CogMethod *'> | prevMethod | <var: #prevMethod type: #'CogMethod *'> self assert: aCogMethod cmType = CMMethod. aCogMethod = unpairedMethodList ifTrue: [unpairedMethodList := aCogMethod nextMethod. ^nil]. prevMethod := unpairedMethodList. + [prevMethod notNil] whileTrue: + [self assert: (prevMethod ~~ nil and: [prevMethod cmType = CMMethod]). + prevMethod nextMethod = aCogMethod ifTrue: + [prevMethod nextMethod: aCogMethod nextMethod. + ^nil]. + prevMethod := aCogMethod nextMethod]! - [self assert: (prevMethod ~~ nil - and: [prevMethod cmType = CMMethod]). - prevMethod nextMethod = aCogMethod ifTrue: - [prevMethod nextMethod: aCogMethod nextMethod. - ^nil]. - prevMethod := aCogMethod nextMethod. - true] whileTrue!

1 0

VM Maker: VMMaker.oscog-eem.331.mcz
by commits＠source.squeak.org 22 Aug '13

22 Aug '13

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.331.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.331 Author: eem Time: 21 August 2013, 7:00:38.722 pm UUID: 37d2e4b0-2f37-4e2d-8313-c63637785e59 Ancestors: VMMaker.oscog-eem.330 Speed-up Newspeak significantly (e.g. -28% in one compile-intensive benchmark) by maintaining unpaired methods (compilations of anonymous accessors) on a linked list instead of searching the entire method zone. Do this by adding a NewspeakCogMethod and surrogates that add a nextMethod field. Update surrogate accessor generation so that accessors can answer and receive surrogates and nils. Also add a nop before the dynSuperEntry so as to change its alignment now that (in the Newspeak VM) CogMethod has changed size in gaining a field. Send fetchClassOf: to the right receiver in explicitOuterReceiver:withObject:withMixin: Slang: fix various bugs in header and typedef generation so that only one CogMethod typedef is produced. =============== Diff against VMMaker.oscog-eem.330 =============== Item was changed: ----- Method: CoInterpreter class>>ancilliaryClasses: (in category 'translation') ----- ancilliaryClasses: options "Answer any extra classes to be included in the translation." ^((super ancilliaryClasses: options) copyWithout: InterpreterStackPages), { CoInterpreterStackPages. + CogBlockMethod }, + ((Cogit ancilliaryClasses: options) select: [:class| class inheritsFrom: CogBlockMethod])! - CogBlockMethod. - CogMethod }! Item was changed: ----- Method: CoInterpreter class>>shouldGenerateTypedefFor: (in category 'translation') ----- shouldGenerateTypedefFor: aStructClass "Hack to work-around multiple definitions. Sometimes a type has been defined in an include." + ^({ CogBlockMethod. CogMethod. NewspeakCogMethod. SistaCogMethod. VMCallbackContext } includes: aStructClass) not! - ^({ CogBlockMethod. CogMethod. SistaCogMethod. VMCallbackContext } includes: aStructClass) not! Item was changed: ----- Method: CogBlockMethod class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') ----- instVarNamesAndTypesForTranslationDo: aBinaryBlock "enumerate aBinaryBlock with the names and C type strings for the inst vars to include in a CogMethod or CogBlockMethod struct." self allInstVarNames do: [:ivn| "Notionally objectHeader is in a union with homeOffset and startpc but we don't have any convenient support for unions. So hack, hack, hack, hack." ((self == CogBlockMethod ifTrue: [#('objectHeader')] ifFalse: [#('homeOffset' 'startpc' 'padToWord')]) includes: ivn) ifFalse: [aBinaryBlock value: ivn value: (ivn caseOf: { ['cmNumArgs'] -> [#(unsigned ' : 8')]. "SqueakV3 needs only 5 bits" ['cmType'] -> [#(unsigned ' : 3')]. ['cmRefersToYoung'] -> [#(unsigned #Boolean ' : 1')]. ['cpicHasMNUCase'] -> [#(unsigned #Boolean ' : 1')]. ['cmUsageCount'] -> [#(unsigned ' : 3')]. "see CMMaxUsageCount in initialize" ['cmUsesPenultimateLit'] -> [#(unsigned #Boolean ' : 1')]. ['cmUnusedFlags'] -> [#(unsigned ' : 3')]. ['stackCheckOffset'] -> [#(unsigned ' : 12')]. "See MaxStackCheckOffset in initialize. a.k.a. cPICNumCases" ['blockSize'] -> [#'unsigned short']. "See MaxMethodSize in initialize" ['blockEntryOffset'] -> [#'unsigned short']. ['homeOffset'] -> [#'unsigned short']. ['startpc'] -> [#'unsigned short']. + ['padToWord'] -> [#(#BytesPerWord 8 'unsigned int')]. + ['nextMethod'] -> ['struct _CogMethod *']} "see NewspeakCogMethod" - ['padToWord'] -> [#(#BytesPerWord 8 'unsigned int')]} otherwise: [#sqInt])]]! Item was changed: CogClass subclass: #CogMethodZone + instanceVariableNames: 'youngReferrers methodCount openPICList mzFreeStart baseAddress limitAddress methodBytesFreedSinceLastCompaction coInterpreter objectRepresentation cogit objectMemory unpairedMethodList' - instanceVariableNames: 'youngReferrers methodCount openPICList mzFreeStart baseAddress limitAddress methodBytesFreedSinceLastCompaction coInterpreter objectRepresentation cogit objectMemory' classVariableNames: '' poolDictionaries: 'CogMethodConstants VMBasicConstants' category: 'VMMaker-JIT'! !CogMethodZone commentStamp: '<historical>' prior: 0! I am a simple allocator/deallocator for the native code zone. I also manage the youngReferers list, which contains methods that may refer to one or more young objects, and the openPICList which is a linked list of all open PICs in the zone.! Item was changed: ----- Method: CogMethodZone class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator aCCodeGenerator removeVariable: 'coInterpreter'; removeVariable: 'objectRepresentation'. self declareC: #(youngReferrers mzFreeStart baseAddress limitAddress) as: #usqInt + in: aCCodeGenerator. + aCCodeGenerator var: 'unpairedMethodList' type: #'CogMethod *'! - in: aCCodeGenerator! Item was added: + ----- Method: CogMethodZone>>addToUnpairedMethodList: (in category 'accessing') ----- + addToUnpairedMethodList: aCogMethod + <var: #aCogMethod type: #'CogMethod *'> + self assert: aCogMethod cmType = CMMethod. + self assert: (unpairedMethodList == nil + or: [unpairedMethodList cmType = CMMethod]). + aCogMethod nextMethod: unpairedMethodList. + unpairedMethodList := aCogMethod! Item was changed: ----- Method: CogMethodZone>>compactCompiledCode: (in category 'compaction') ----- compactCompiledCode: objectHeaderValue | source dest bytes | <var: #source type: #'CogMethod *'> <var: #dest type: #'CogMethod *'> source := coInterpreter cCoerceSimple: baseAddress to: #'CogMethod *'. openPICList := nil. methodCount := 0. + self cppIf: NewspeakVM ifTrue: [unpairedMethodList := nil]. [source < self limitZony and: [source cmType ~= CMFree]] whileTrue: [self assert: (cogit cogMethodDoesntLookKosher: source) = 0. source objectHeader: objectHeaderValue. source cmUsageCount > 0 ifTrue: [source cmUsageCount: source cmUsageCount // 2]. + self cppIf: NewspeakVM ifTrue: + [(coInterpreter rawHeaderOf: source methodObject) asInteger ~= source asInteger ifTrue: + [source nextMethod: unpairedMethodList. + unpairedMethodList := source]]. source cmType = CMOpenPIC ifTrue: [source nextOpenPIC: openPICList asUnsignedInteger. openPICList := source]. methodCount := methodCount + 1. source := self methodAfter: source]. source >= self limitZony ifTrue: [^self halt: 'no free methods; cannot compact.']. dest := source. [source < self limitZony] whileTrue: [self assert: (cogit maybeFreeCogMethodDoesntLookKosher: source) = 0. bytes := source blockSize. source cmType ~= CMFree ifTrue: [methodCount := methodCount + 1. self mem: dest mo: source ve: bytes. dest objectHeader: objectHeaderValue. dest cmType = CMMethod ifTrue: + ["For non-Newspeak there should be a one-to-one mapping between bytecoded and - ["For non-Newspeak there should be a one-to-one mapping metween bytecoded and cog methods. For Newspeak not necessarily, but only for anonymous accessors." "Only update the original method's header if it is referring to this CogMethod." (coInterpreter rawHeaderOf: dest methodObject) asInteger = source asInteger ifTrue: [coInterpreter rawHeaderOf: dest methodObject put: dest asInteger] + ifFalse: + [self assert: (cogit noAssertMethodClassAssociationOf: dest methodObject) = objectMemory nilObject. + self cppIf: NewspeakVM + ifTrue: [dest nextMethod: unpairedMethodList. + unpairedMethodList := dest]]] - ifFalse: [self assert: (cogit noAssertMethodClassAssociationOf: dest methodObject) = objectMemory nilObject]] ifFalse: [dest cmType = CMOpenPIC ifTrue: [dest nextOpenPIC: openPICList asUnsignedInteger. openPICList := dest]]. dest cmUsageCount > 0 ifTrue: [dest cmUsageCount: dest cmUsageCount // 2]. dest := coInterpreter cCoerceSimple: dest asUnsignedInteger + bytes to: #'CogMethod *']. source := coInterpreter cCoerceSimple: source asUnsignedInteger + bytes to: #'CogMethod *']. mzFreeStart := dest asUnsignedInteger. methodBytesFreedSinceLastCompaction := 0! Item was changed: ----- Method: CogMethodZone>>findPreviouslyCompiledVersionOf:with: (in category 'accessing') ----- findPreviouslyCompiledVersionOf: aMethodObj with: aSelectorOop "Newspeak uses a set of methods to implement accessors, a setter and a getter for each inst var offset (e.g. 0 to 255). These accessors are installed under the relevant selectors in different method dictionaries as required. These methods effectively have multiple selectors. The current inline cache design stores the selector of a linked send in the header of the target method. So this requires a one-to-many mapping of bytecoded method to cog method, with the bytecoded method referring directly to only one cog method, which will have a specific selector, not necessarily + the right one. It is therefore worth-while searching for a cog method on this bytecoded + method that has the right selector. To speed up the search we maintain all such unpaired + methods on the unpairedMethodList." - the right one. It is therefore worth-while searching for a cog method on this method - that has the right selector. - We could revisit this: - - a send site could have two loads, one for the selector and one for the class, - eliminating the need to store the selector in the header of a cog method - (although it would still be needed in a PIC, because open PICs are shared) - - a set of unpaired cog methods could be maintained to speed up the search. since - the methodHeader field is effectively unused in an unpaired method the list could - link through this field (c.f. the openPICList linked through the methodObject field)." <returnTypeC: #'CogMethod *'> | cogMethod | <var: #cogMethod type: #'CogMethod *'> ((coInterpreter methodHasCogMethod: aMethodObj) + and: [(coInterpreter methodClassAssociationOf: aMethodObj) = objectMemory nilObject]) ifTrue: + [cogMethod := unpairedMethodList. + [cogMethod notNil] whileTrue: + [self assert: cogMethod cmType = CMMethod. + (cogMethod selector = aSelectorOop + and: [cogMethod methodObject = aMethodObj]) ifTrue: - and: [(coInterpreter methodClassAssociationOf: aMethodObj) = objectMemory nilObject]) ifTrue: - [cogMethod := cogit cCoerceSimple: baseAddress to: #'CogMethod *'. - [cogMethod < self limitZony] whileTrue: - [(cogMethod cmType = CMMethod - and: [cogMethod selector = aSelectorOop - and: [cogMethod methodObject = aMethodObj]]) ifTrue: [^cogMethod]. + cogMethod := cogMethod nextMethod]]. - cogMethod := self methodAfter: cogMethod]]. ^nil! Item was changed: ----- Method: CogMethodZone>>freeMethod: (in category 'compaction') ----- freeMethod: cogMethod <var: #cogMethod type: #'CogMethod *'> <inline: false> self assert: cogMethod cmType ~= CMFree. self assert: (cogit cogMethodDoesntLookKosher: cogMethod) = 0. cogMethod cmType = CMMethod ifTrue: ["For non-Newspeak there should ne a one-to-one mapping between bytecoded and cog methods. For Newspeak not necessarily, but only for anonymous accessors." "Only reset the original method's header if it is referring to this CogMethod." (coInterpreter rawHeaderOf: cogMethod methodObject) asInteger = cogMethod asInteger ifTrue: [coInterpreter rawHeaderOf: cogMethod methodObject put: cogMethod methodHeader] ifFalse: + [self assert: (cogit noAssertMethodClassAssociationOf: cogMethod methodObject) = objectMemory nilObject. + self cppIf: NewspeakVM ifTrue: + [self removeFromUnpairedMethodList: cogMethod]]. - [self assert: (cogit noAssertMethodClassAssociationOf: cogMethod methodObject) = objectMemory nilObject]. cogMethod cmRefersToYoung: false]. cogMethod cmType = CMOpenPIC ifTrue: [self removeFromOpenPICList: cogMethod. cogMethod cmRefersToYoung: false]. cogMethod cmType: CMFree. methodBytesFreedSinceLastCompaction := methodBytesFreedSinceLastCompaction + cogMethod blockSize! Item was changed: ----- Method: CogMethodZone>>manageFrom:to: (in category 'initialization') ----- manageFrom: theStartAddress to: theLimitAddress <returnTypeC: #void> mzFreeStart := baseAddress := theStartAddress. youngReferrers := limitAddress := theLimitAddress. openPICList := nil. + self cppIf: NewspeakVM ifTrue: [unpairedMethodList := nil]. methodBytesFreedSinceLastCompaction := 0. methodCount := 0! Item was added: + ----- Method: CogMethodZone>>removeFromUnpairedMethodList: (in category 'accessing') ----- + removeFromUnpairedMethodList: aCogMethod + <var: #aCogMethod type: #'CogMethod *'> + | prevMethod | + <var: #prevMethod type: #'CogMethod *'> + self assert: aCogMethod cmType = CMMethod. + aCogMethod = unpairedMethodList ifTrue: + [unpairedMethodList := aCogMethod nextMethod. + ^nil]. + prevMethod := unpairedMethodList. + [self assert: (prevMethod ~~ nil + and: [prevMethod cmType = CMMethod]). + prevMethod nextMethod = aCogMethod ifTrue: + [prevMethod nextMethod: aCogMethod nextMethod. + ^nil]. + prevMethod := aCogMethod nextMethod. + true] whileTrue! Item was changed: ----- Method: Cogit class>>additionalHeadersDo: (in category 'translation') ----- additionalHeadersDo: aBinaryBlock "Evaluate aBinaryBlock with the names and contents of any additional header files that need to be generated." aBinaryBlock value: 'cogmethod.h' + value: (NewspeakVM + ifTrue: [NewspeakCogMethod] + ifFalse: [CogMethod]) cogMethodHeader! - value: CogMethod cogMethodHeader! Item was changed: ----- Method: Cogit class>>ancilliaryClasses: (in category 'translation') ----- ancilliaryClasses: options ProcessorClass ifNil: [thisContext methodClass theNonMetaClass initialize]. ^{ CogMethodZone. CogAbstractInstruction. ProcessorClass basicNew abstractInstructionCompilerClass. CogBlockStart. CogBytecodeDescriptor. CogBytecodeFixup. CogInstructionAnnotation. CogPrimitiveDescriptor. CogBlockMethod. + CogMethod }, + ((options at: #NewspeakVM ifAbsent: [false]) + ifTrue: [{NewspeakCogMethod}] + ifFalse: [#()])! - CogMethod - }! Item was changed: ----- Method: Cogit class>>shouldGenerateTypedefFor: (in category 'translation') ----- shouldGenerateTypedefFor: aStructClass "Hack to work-around mutliple definitions. Sometimes a type has been defined in an include." + ^({ CogBlockMethod. CogMethod. SistaCogMethod. NewspeakCogMethod } includes: aStructClass) not! - ^({ CogBlockMethod. CogMethod. SistaCogMethod } includes: aStructClass) not! Item was changed: ----- Method: Cogit>>compileEntry (in category 'compile abstract instructions') ----- compileEntry "The entry code to a method checks that the class of the current receiver matches that in the inline cache. Other non-obvious elements are that its alignment must be different from the alignment of the noCheckEntry so that the method map machinery can distinguish normal and super sends (super sends bind to the noCheckEntry). In Newspeak we also need to distinguish dynSuperSends from normal and super and so bind a the preceeding nop (on x86 there happens to be one anyway)." self cppIf: NewspeakVM + ifTrue: "1st nop differentiates dynSuperEntry from no-check entry if using nextMethod" + [self Nop. + dynSuperEntry := self Nop]. - ifTrue: [dynSuperEntry := self Nop]. self AlignmentNops: (BytesPerWord max: 8). entry := self Label. objectRepresentation getInlineCacheClassTagFrom: ReceiverResultReg into: TempReg. self CmpR: ClassReg R: TempReg. self JumpNonZero: sendMissCall. noCheckEntry := self Label. self recordSendTrace ifTrue: [self CallRT: ceTraceLinkedSendTrampoline]! Item was changed: ----- Method: Cogit>>fillInMethodHeader:size:selector: (in category 'generate machine code') ----- fillInMethodHeader: method size: size selector: selector <returnTypeC: #'CogMethod *'> <var: #method type: #'CogMethod *'> <var: #originalMethod type: #'CogMethod *'> | methodHeader originalMethod | method cmType: CMMethod. method objectHeader: objectMemory nullHeaderForMachineCodeMethod. method blockSize: size. method methodObject: methodObj. methodHeader := coInterpreter rawHeaderOf: methodObj. "If the method has already been cogged (e.g. Newspeak accessors) then leave the original method attached to its cog method, but get the right header." (coInterpreter isCogMethodReference: methodHeader) ifTrue: [originalMethod := self cCoerceSimple: methodHeader to: #'CogMethod *'. self assert: originalMethod blockSize = size. + methodHeader := originalMethod methodHeader. + self cppIf: NewspeakVM ifTrue: [methodZone addToUnpairedMethodList: method]] - methodHeader := originalMethod methodHeader] ifFalse: [coInterpreter rawHeaderOf: methodObj put: method asInteger]. method methodHeader: methodHeader. method selector: selector. method cmNumArgs: (coInterpreter argumentCountOfMethodHeader: methodHeader). (method cmRefersToYoung: hasYoungReferent) ifTrue: [methodZone addToYoungReferrers: method]. method cmUsageCount: self initialMethodUsageCount. method cpicHasMNUCase: false. method cmUsesPenultimateLit: maxLitIndex >= ((coInterpreter literalCountOfHeader: methodHeader) - 2). method blockEntryOffset: (blockEntryLabel notNil ifTrue: [blockEntryLabel address - method asInteger] ifFalse: [0]). "This can be an error check since a large stackCheckOffset is caused by compiling a machine-code primitive, and hence depends on the Cogit, not the input method." needsFrame ifTrue: [stackCheckLabel address - method asInteger <= MaxStackCheckOffset ifFalse: [self error: 'too much code for stack check offset']]. method stackCheckOffset: (needsFrame ifTrue: [stackCheckLabel address - method asInteger] ifFalse: [0]). self assert: (backEnd callTargetFromReturnAddress: method asInteger + missOffset) = (self methodAbortTrampolineFor: method cmNumArgs). self assert: size = (methodZone roundUpLength: size). ^method! Item was changed: ----- Method: Cogit>>initialize (in category 'initialization') ----- initialize + cogMethodSurrogateClass := NewspeakVM + ifTrue: + [BytesPerWord = 4 + ifTrue: [NewspeakCogMethodSurrogate32] + ifFalse: [NewspeakCogMethodSurrogate64]] + ifFalse: + [BytesPerWord = 4 - cogMethodSurrogateClass := BytesPerWord = 4 ifTrue: [CogMethodSurrogate32] + ifFalse: [CogMethodSurrogate64]]. - ifFalse: [CogMethodSurrogate64]. cogBlockMethodSurrogateClass := BytesPerWord = 4 ifTrue: [CogBlockMethodSurrogate32] ifFalse: [CogBlockMethodSurrogate64]! Item was added: + CogMethod subclass: #NewspeakCogMethod + instanceVariableNames: 'nextMethod' + classVariableNames: '' + poolDictionaries: '' + category: 'VMMaker-JIT'! Item was added: + ----- Method: NewspeakCogMethod class>>initialize (in category 'class initialization') ----- + initialize + "self initialize" + (Smalltalk classNamed: #NewspeakCogMethodSurrogate32) ifNotNil: + [:cms32| + self checkGenerateSurrogate: cms32 bytesPerWord: 4]. + (Smalltalk classNamed: #NewspeakCogMethodSurrogate64) ifNotNil: + [:cms64| + self checkGenerateSurrogate: cms64 bytesPerWord: 8]! Item was added: + ----- Method: NewspeakCogMethod class>>structTypeName (in category 'translation') ----- + structTypeName + ^#CogMethod! Item was added: + ----- Method: NewspeakCogMethod>>nextMethod (in category 'accessing') ----- + nextMethod + "Answer the value of nextMethod" + + ^ nextMethod! Item was added: + ----- Method: NewspeakCogMethod>>nextMethod: (in category 'accessing') ----- + nextMethod: anObject + "Set the value of nextMethod" + + ^nextMethod := anObject! Item was added: + CogMethodSurrogate32 subclass: #NewspeakCogMethodSurrogate32 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'VMMaker-JITSimulation'! Item was added: + ----- Method: NewspeakCogMethodSurrogate32 class>>alignedByteSize (in category 'accessing') ----- + alignedByteSize + ^28! Item was added: + ----- Method: NewspeakCogMethodSurrogate32>>nextMethod (in category 'accessing') ----- + nextMethod + | v | + ^(v := memory unsignedLongAt: address + 25) ~= 0 ifTrue: + [cogit cCoerceSimple: v to: #'CogMethod *']! Item was added: + ----- Method: NewspeakCogMethodSurrogate32>>nextMethod: (in category 'accessing') ----- + nextMethod: aValue + ^memory + unsignedLongAt: address + 25 + put: ((aValue ifNotNil: [aValue asUnsignedInteger] ifNil: [0]))! Item was added: + CogMethodSurrogate64 subclass: #NewspeakCogMethodSurrogate64 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'VMMaker-JITSimulation'! Item was added: + ----- Method: NewspeakCogMethodSurrogate64 class>>alignedByteSize (in category 'accessing') ----- + alignedByteSize + ^48! Item was added: + ----- Method: NewspeakCogMethodSurrogate64>>nextMethod (in category 'accessing') ----- + nextMethod + | v | + ^(v := memory unsignedLongLongAt: address + 41) ~= 0 ifTrue: + [cogit cCoerceSimple: v to: #'CogMethod *']! Item was added: + ----- Method: NewspeakCogMethodSurrogate64>>nextMethod: (in category 'accessing') ----- + nextMethod: aValue + ^memory + unsignedLongLongAt: address + 41 + put: ((aValue ifNotNil: [aValue asUnsignedInteger] ifNil: [0]))! Item was changed: ----- Method: StackInterpreter>>explicitOuterReceiver:withObject:withMixin: (in category 'newspeak bytecode support') ----- explicitOuterReceiver: n withObject: anObject withMixin: mixin "This is used to implement the innards of the pushExplicitOuterReceiverBytecode, used for explicit outer sends in NS2/NS3. " | explicitReceiver mixinApplication targetMixin count | explicitReceiver := anObject. targetMixin := mixin. count := 0. [count < n] whileTrue: [count := count + 1. (targetMixin = objectMemory nilObject or:[explicitReceiver = objectMemory nilObject]) ifTrue: [^objectMemory nilObject]. mixinApplication := self findApplicationOfTargetMixin: targetMixin + startingAtNonMetaClass: (objectMemory fetchClassOf: explicitReceiver). - startingAtNonMetaClass: (self fetchClassOf: explicitReceiver). mixinApplication = objectMemory nilObject ifTrue: [^objectMemory nilObject]. "should never happen!!" explicitReceiver := objectMemory fetchPointer: EnclosingObjectIndex ofObject: mixinApplication. targetMixin := objectMemory fetchPointer: EnclosingMixinIndex ofObject: targetMixin]. ^explicitReceiver! Item was added: + ----- Method: VMClass class>>cogMethodClass: (in category 'translation') ----- + cogMethodClass: options + ^(options at: #NewspeakVM ifAbsent: [false]) + ifTrue: [NewspeakCogMethod] + ifFalse: [CogMethod]! Item was changed: ----- Method: VMStructType class>>checkGenerateFieldAccessors:bitPosition:in: (in category 'code generation') ----- checkGenerateFieldAccessors: fieldSpecs bitPosition: firstBitPosition in: surrogateClass | bitPosition alignedByteSize | bitPosition := firstBitPosition. fieldSpecs do: [:spec| | code | "If the accessor is already defined in a superclass don't redefine it in the subclass. We assume it is correctly defined in the superclass." (spec first ~= #unused and: [(surrogateClass whichClassIncludesSelector: spec first asSymbol) ifNil: [true] ifNotNil: [:implementingClass| self assert: (implementingClass inheritsFrom: Object). implementingClass == surrogateClass]]) ifTrue: [code := self getter: spec first bitPosition: bitPosition bitWidth: spec second + type: (spec at: 3 ifAbsent: []). - bool: (spec at: 3 ifAbsent: []) = #Boolean. code ~= (surrogateClass sourceCodeAt: spec first asSymbol ifAbsent: ['']) asString ifTrue: [surrogateClass compile: code classified: #accessing]. code := self setter: spec first bitPosition: bitPosition bitWidth: spec second + type: (spec at: 3 ifAbsent: []). - bool: (spec at: 3 ifAbsent: []) = #Boolean. code ~= (surrogateClass sourceCodeAt: (spec first, ':') asSymbol ifAbsent: ['']) asString ifTrue: [surrogateClass compile: code classified: #accessing]]. bitPosition := bitPosition + spec second]. alignedByteSize := bitPosition / 8. self assert: alignedByteSize isInteger. alignedByteSize ~= surrogateClass alignedByteSize ifTrue: [surrogateClass class compile: 'alignedByteSize' , (String with: Character cr with: Character tab with: $^) , alignedByteSize printString classified: #accessing]! Item was changed: ----- Method: VMStructType class>>fieldAccessorsForBytesPerWord: (in category 'code generation') ----- fieldAccessorsForBytesPerWord: bytesPerWord | fieldSpecs | fieldSpecs := OrderedCollection new. self instVarNamesAndTypesForTranslationDo: [:ivn :typeTuple| | index replacement | (index := typeTuple indexOf: #BytesPerWord ifAbsent: 0) > 0 ifTrue: [(typeTuple at: index + 1) = bytesPerWord ifTrue: [replacement := typeTuple copyReplaceFrom: index to: index + 1 with: #(). replacement size = 1 ifTrue: [replacement := replacement first]. fieldSpecs add: { ivn. replacement }]] ifFalse: [fieldSpecs add: { ivn. typeTuple }]]. ^fieldSpecs collect: [:tuple| [:ivn :typeTuple| { ('*unused*' match: ivn) ifTrue: [#unused] ifFalse: [ivn]. (typeTuple isArray and: ['unsigned' = typeTuple first]) ifTrue: [Integer readFrom: (typeTuple last readStream skipTo: $:; skipSeparators)] ifFalse: + [typeTuple + caseOf: { - [typeTuple caseOf: { ['unsigned char'] -> [8]. ['unsigned short'] -> [16]. + ['unsigned int'] -> [32] } + otherwise: [bytesPerWord * 8]]. + typeTuple isArray + ifTrue: + [(typeTuple size >= 3 and: [typeTuple second = #Boolean]) ifTrue: + [#Boolean]] + ifFalse: + [typeTuple last = $* ifTrue: + [(typeTuple beginsWith: 'struct _') "remove struct tag if any" + ifTrue: [(typeTuple allButFirst: 8) asSymbol] + ifFalse: [typeTuple]]] }] valueWithArguments: tuple] - ['unsigned int'] -> [32]. - ['unsigned long'] -> [bytesPerWord * 8]. - ['sqInt'] -> [bytesPerWord * 8]. - ['usqInt'] -> [bytesPerWord * 8] }]. - (typeTuple isArray and: [typeTuple size >= 3 and: [typeTuple second = #Boolean]]) ifTrue: - [#Boolean] }] valueWithArguments: tuple] "#(4 8) collect: [:bpw| (CogBlockMethod fieldAccessorsForBytesPerWord: bpw) asArray]" "#(4 8) collect: [:bpw| (CogMethod fieldAccessorsForBytesPerWord: bpw) asArray]"! Item was removed: - ----- Method: VMStructType class>>getter:bitPosition:bitWidth:bool: (in category 'code generation') ----- - getter: getter bitPosition: bitPosition bitWidth: bitWidth bool: isBool - ^String streamContents: - [:s| | startByte endByte alignedPowerOf2 shift bool | - startByte := bitPosition // 8. - endByte := bitPosition + bitWidth - 1 // 8. - shift := bitPosition \\ 8. - alignedPowerOf2 := (#(8 16 32 64) includes: bitWidth) and: [shift = 0]. - s nextPutAll: getter; crtab: 1; nextPut: $^. - isBool ifTrue: - [s nextPut: $(]. - alignedPowerOf2 ifFalse: - [s nextPut: $(]. - shift ~= 0 ifTrue: - [s nextPut: $(]. - s nextPutAll: 'memory unsigned'; - nextPutAll: (#('Byte' 'Short' 'Long' 'Long') - at: endByte - startByte + 1 - ifAbsent: ['LongLong']); - nextPutAll: 'At: address + '; print: startByte + 1. - shift ~= 0 ifTrue: - [s nextPutAll: ') bitShift: -'; print: shift]. - alignedPowerOf2 ifFalse: - [s nextPutAll: ') bitAnd: '; nextPutAll: ((1 << bitWidth) - 1) hex]. - isBool ifTrue: - [s nextPutAll: ') ~= 0']]! Item was added: + ----- Method: VMStructType class>>getter:bitPosition:bitWidth:type: (in category 'code generation') ----- + getter: getter bitPosition: bitPosition bitWidth: bitWidth type: typeOrNil + ^String streamContents: + [:s| | startByte endByte alignedPowerOf2 shift bool | + startByte := bitPosition // 8. + endByte := bitPosition + bitWidth - 1 // 8. + shift := bitPosition \\ 8. + alignedPowerOf2 := (#(8 16 32 64) includes: bitWidth) and: [shift = 0]. + s nextPutAll: getter; crtab: 1. + (typeOrNil notNil and: [typeOrNil last = $*]) ifTrue: + [s nextPutAll: '| v |'; crtab: 1]. + s nextPut: $^. + typeOrNil ifNotNil: + [s nextPut: $(. + typeOrNil last = $* ifTrue: + [s nextPutAll: 'v := ']]. + alignedPowerOf2 ifFalse: + [s nextPut: $(]. + shift ~= 0 ifTrue: + [s nextPut: $(]. + s nextPutAll: 'memory unsigned'; + nextPutAll: (#('Byte' 'Short' 'Long' 'Long') + at: endByte - startByte + 1 + ifAbsent: ['LongLong']); + nextPutAll: 'At: address + '; print: startByte + 1. + shift ~= 0 ifTrue: + [s nextPutAll: ') bitShift: -'; print: shift]. + alignedPowerOf2 ifFalse: + [s nextPutAll: ') bitAnd: '; nextPutAll: ((1 << bitWidth) - 1) hex]. + typeOrNil ifNotNil: + [s nextPutAll: ') ~= 0'. + typeOrNil last = $* ifTrue: + [s nextPutAll: ' ifTrue:'; + crtab: 2; + nextPutAll: '[cogit cCoerceSimple: v to: '; + store: typeOrNil; + nextPut: $]]]]! Item was removed: - ----- Method: VMStructType class>>setter:bitPosition:bitWidth:bool: (in category 'code generation') ----- - setter: getter bitPosition: bitPosition bitWidth: bitWidth bool: isBool - ^String streamContents: - [:s| | startByte endByte shift alignedPowerOf2 accessor mask expr | - startByte := bitPosition // 8. - endByte := bitPosition + bitWidth - 1 // 8. - shift := bitPosition \\ 8. - alignedPowerOf2 := (#(8 16 32 64) includes: bitWidth) and: [shift = 0]. - accessor := 'unsigned' - , (#('Byte' 'Short' 'Long' 'Long') - at: endByte - startByte + 1 - ifAbsent: ['LongLong']) - , 'At: address + '. - mask := #(16rFF 16rFFFF 16rFFFFFFFF 16rFFFFFFFF) - at: endByte - startByte + 1 - ifAbsent: [(2 raisedTo: 64) - 1]. - s nextPutAll: getter; nextPutAll: ': aValue'. - (isBool or: [alignedPowerOf2]) ifFalse: - [s crtab: 1; nextPutAll: 'self assert: (aValue between: 0 and: '; nextPutAll: ((1 << bitWidth) - 1) hex; nextPutAll: ').']. - s crtab: 1. - alignedPowerOf2 ifTrue: - [s nextPut: $^]. - s nextPutAll: 'memory'; - crtab: 2; nextPutAll: accessor; print: startByte + 1; - crtab: 2; nextPutAll: 'put: '. - isBool ifTrue: - [s nextPut: $(]. - alignedPowerOf2 ifFalse: - [s nextPutAll: '((memory '; nextPutAll: accessor; print: startByte + 1; - nextPutAll: ') bitAnd: '; nextPutAll: (mask - ((1 << bitWidth - 1) << shift)) hex; - nextPutAll: ') + ']. - expr := isBool ifTrue: ['(aValue ifTrue: [1] ifFalse: [0])'] ifFalse: ['aValue']. - shift = 0 - ifTrue: - [s nextPutAll: expr] - ifFalse: - [s nextPut: $(; nextPutAll: expr; nextPutAll: ' bitShift: '; print: shift; nextPut: $)]. - isBool ifTrue: - [s nextPut: $)]. - alignedPowerOf2 ifFalse: - [s nextPut: $.; crtab: 1; nextPutAll: '^aValue']]! Item was added: + ----- Method: VMStructType class>>setter:bitPosition:bitWidth:type: (in category 'code generation') ----- + setter: getter bitPosition: bitPosition bitWidth: bitWidth type: typeOrNil + ^String streamContents: + [:s| | startByte endByte shift alignedPowerOf2 accessor mask expr | + startByte := bitPosition // 8. + endByte := bitPosition + bitWidth - 1 // 8. + shift := bitPosition \\ 8. + alignedPowerOf2 := (#(8 16 32 64) includes: bitWidth) and: [shift = 0]. + accessor := 'unsigned' + , (#('Byte' 'Short' 'Long' 'Long') + at: endByte - startByte + 1 + ifAbsent: ['LongLong']) + , 'At: address + '. + mask := #(16rFF 16rFFFF 16rFFFFFFFF 16rFFFFFFFF) + at: endByte - startByte + 1 + ifAbsent: [(2 raisedTo: 64) - 1]. + s nextPutAll: getter; nextPutAll: ': aValue'. + (typeOrNil notNil or: [alignedPowerOf2]) ifFalse: + [s crtab: 1; nextPutAll: 'self assert: (aValue between: 0 and: '; nextPutAll: ((1 << bitWidth) - 1) hex; nextPutAll: ').']. + s crtab: 1. + alignedPowerOf2 ifTrue: + [s nextPut: $^]. + s nextPutAll: 'memory'; + crtab: 2; nextPutAll: accessor; print: startByte + 1; + crtab: 2; nextPutAll: 'put: '. + typeOrNil ifNotNil: + [s nextPut: $(]. + alignedPowerOf2 ifFalse: + [s nextPutAll: '((memory '; nextPutAll: accessor; print: startByte + 1; + nextPutAll: ') bitAnd: '; nextPutAll: (mask - ((1 << bitWidth - 1) << shift)) hex; + nextPutAll: ') + ']. + expr := typeOrNil caseOf: { + [nil] -> ['aValue']. + [#Boolean] -> ['(aValue ifTrue: [1] ifFalse: [0])'] } + otherwise: ['(aValue ifNotNil: [aValue asUnsignedInteger] ifNil: [0])']. + shift = 0 + ifTrue: + [s nextPutAll: expr] + ifFalse: + [s nextPut: $(; nextPutAll: expr; nextPutAll: ' bitShift: '; print: shift; nextPut: $)]. + typeOrNil notNil ifTrue: + [s nextPut: $)]. + alignedPowerOf2 ifFalse: + [s nextPut: $.; crtab: 1; nextPutAll: '^aValue']]!

1 0

VM Maker: VMMaker.oscog-eem.330.mcz
by commits＠source.squeak.org 21 Aug '13

21 Aug '13

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.330.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.330 Author: eem Time: 21 August 2013, 2:20:31.076 pm UUID: 836f976a-35fa-404c-aa5a-c4af1c58852f Ancestors: VMMaker.oscog-eem.329 Refactor ancilliaryClasses and ancilliaryStructClasses to pass in options to allow selecting different classes as required. i.e. collapse ancilliaryClasses and ancilliaryStructClasses onto ancilliaryClasses: optionsDictionary. This also requires changing requiredMethodNames and exportAPISelectors to take options too. (this is prior to adding a NewspeakCogMethod class for maintaining a list of anonymous methods). Simplify CoInterpreter class>>exportAPISelectors: by marking a few methods as <api>. Eliminate CogStackPage, collapsing it onto InterpreterStackPage (it only has a class side). Use temporaryCountOfMethodHader: instead of tempCountOf: in SimpleStackBasedCogit>>compileFrameBuild (header is in hand). Reimplement CCodeGenerator>>structClassesForTranslationClasses: to keep the sort stable (ChangeSet superclassOrder: is a stable sort but structClassesForTranslationClasses: used a set). =============== Diff against VMMaker.oscog-eem.329 =============== Item was removed: - ----- Method: BitBltSimulation class>>requiredMethodNames (in category 'translation') ----- - requiredMethodNames - ^self opTable asSet! Item was added: + ----- Method: BitBltSimulation class>>requiredMethodNames: (in category 'translation') ----- + requiredMethodNames: options + ^self opTable asSet! Item was changed: ----- Method: CCodeGenerator>>addClass: (in category 'public') ----- addClass: aClass "Add the variables and methods of the given class to the code base." aClass prepareToBeAddedToCodeGenerator: self. self checkClassForNameConflicts: aClass. self addClassVarsFor: aClass. "ikp..." self addPoolVarsFor: aClass. (aClass inheritsFrom: VMStructType) ifFalse: [variables addAll: aClass instVarNames]. + self retainMethods: (aClass requiredMethodNames: self options). - self retainMethods: aClass requiredMethodNames. 'Adding Class ' , aClass name , '...' displayProgressAt: Sensor cursorPoint from: 0 to: aClass selectors size during: [:bar | aClass selectors doWithIndex: [:sel :i | | source | bar value: i. self addMethodFor: aClass selector: sel]]. aClass declareCVarsIn: self! Item was changed: ----- Method: CCodeGenerator>>addStructClass: (in category 'public') ----- addStructClass: aClass "Add the non-accessor methods of the given struct class to the code base." aClass prepareToBeAddedToCodeGenerator: self. self addClassVarsFor: aClass. self addPoolVarsFor: aClass. + self retainMethods: (aClass requiredMethodNames: self options). - self retainMethods: aClass requiredMethodNames. 'Adding Class ' , aClass name , '...' displayProgressAt: Sensor cursorPoint from: 0 to: aClass selectors size during: [:bar | aClass selectors doWithIndex: [:sel :i | | source | bar value: i. self addStructMethodFor: aClass selector: sel]]. aClass declareCVarsIn: self! Item was changed: ----- Method: CCodeGenerator>>checkClassForNameConflicts: (in category 'error notification') ----- checkClassForNameConflicts: aClass "Verify that the given class does not have constant, variable, or method names that conflict with those of previously added classes. Raise an error if a conflict is found, otherwise just return." "check for constant name collisions in class pools" aClass classPool associationsDo: [:assoc | (constants includesKey: assoc key asString) ifTrue: [self error: 'Constant ', assoc key, ' was defined in a previously added class']]. "and in shared pools" (aClass sharedPools reject: [:pool| pools includes: pool]) do: [:pool | pool bindingsDo: [:assoc | (constants includesKey: assoc key asString) ifTrue: [self error: 'Constant ', assoc key, ' was defined in a previously added class']]]. "check for instance variable name collisions" (aClass inheritsFrom: VMStructType) ifFalse: [aClass instVarNames do: [:varName | (variables includes: varName) ifTrue: [self error: 'Instance variable ', varName, ' was defined in a previously added class']]]. "check for method name collisions" aClass selectors do: [:sel | ((methods includesKey: sel) + and: [(aClass isStructClass and: [(aClass isAccessor: sel) + and: [(methods at: sel) isStructAccessor]]) not + and: [((aClass compiledMethodAt: sel) pragmaAt: #doNotGenerate) isNil]]) ifTrue: - and: [((aClass compiledMethodAt: sel) pragmaAt: #doNotGenerate) isNil]) ifTrue: [self error: 'Method ', sel, ' was defined in a previously added class.']]! Item was changed: ----- Method: CCodeGenerator>>emitCAPIExportHeaderOn: (in category 'C code generator') ----- emitCAPIExportHeaderOn: aStream "Store prototype declarations for all non-inlined methods on the given stream." | api methodList | + api := (vmClass translationClass exportAPISelectors: self options). - api := vmClass translationClass exportAPISelectors. methodList := api select: [:s| (methods includesKey: s) or: [(vmClass whichClassIncludesSelector: s) notNil]] thenCollect: [:s| methods at: s ifAbsent: [self compileToTMethodSelector: s in: (vmClass whichClassIncludesSelector: s)]]. methodList := self sortMethods: methodList. methodList do: [:m| m static ifTrue: [logger ensureCr; show: m selector, ' excluded from export API because it is static'; cr]]. self emitCFunctionPrototypes: methodList on: aStream. self emitGlobalCVariablesOn: aStream. self emitCMacros: methodList on: aStream! Item was changed: ----- Method: CCodeGenerator>>emitCTypesOn: (in category 'C code generator') ----- emitCTypesOn: aStream "Store local type declarations on the given stream." vmClass ifNotNil: + [(self structClassesForTranslationClasses: { vmClass }) do: - [vmClass ancilliaryStructClasses do: [:structClass| (structClass isAbstract not and: [vmClass shouldGenerateTypedefFor: structClass]) ifTrue: [structClass printTypedefOn: aStream. aStream cr; cr]]]! Item was changed: ----- Method: CCodeGenerator>>structClassesForTranslationClasses: (in category 'utilities') ----- structClassesForTranslationClasses: classes + "Answer in superclass order (any superclass precedes any subclass) + the ancilliaryClasses that are struct classes for all the given classes." - "Answer in superclass order (any superclass precedes any subclass) the ancilliaryStructClasses for all the given classes." | structClasses | + structClasses := OrderedCollection new. - - structClasses := Set new. classes do: [:aTranslationClass| + ([aTranslationClass ancilliaryClasses: self options] - structClasses addAll: - ([aTranslationClass ancilliaryStructClasses] on: MessageNotUnderstood do: [:ex| + ex message selector == #ancilliaryClasses: - ex message selector == #ancilliaryStructClasses ifTrue: [#()] + ifFalse: [ex pass]]) do: + [:class| + (class isStructClass + and: [(structClasses includes: class) not]) ifTrue: + [structClasses addLast: class]]]. + ^ChangeSet superclassOrder: structClasses! - ifFalse: [ex pass]])]. - ^ChangeSet superclassOrder: structClasses asArray! Item was removed: - ----- Method: CoInterpreter class>>ancilliaryClasses (in category 'translation') ----- - ancilliaryClasses - "Answer any extra classes to be included in the translation." - ^super ancilliaryClasses - copyReplaceAll: { InterpreterStackPages } - with: { CoInterpreterStackPages }! Item was added: + ----- Method: CoInterpreter class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + "Answer any extra classes to be included in the translation." + ^((super ancilliaryClasses: options) copyWithout: InterpreterStackPages), + { CoInterpreterStackPages. + CogBlockMethod. + CogMethod }! Item was removed: - ----- Method: CoInterpreter class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - ^{ CogStackPage. - CogBlockMethod. - CogMethod }! Item was removed: - ----- Method: CoInterpreter class>>exportAPISelectors (in category 'translation') ----- - exportAPISelectors - "Yes this is a mess. When all exportAPI methods are marked with the <api> pragma - this can go away." - | omExports | - omExports := (self objectMemoryClass withAllSuperclasses copyUpTo: VMClass) - inject: Set new into: [:api :c| api addAll: c exportAPISelectors; yourself]. - ^((self withAllSuperclasses copyUpTo: VMClass), - self ancilliaryClasses - inject: omExports - into: [:set :class| set addAll: (self exportAPISelectorsFor: class); yourself]) - addAll: #( classHeader: - compactClassIndexOf: - fetchByte:ofObject: - functionPointerFor:inClass: - isNonIntegerObject: - lastPointerOf: - literal:ofMethod: - popStack - primitiveClosureValueNoContextSwitch - specialSelector: - stackTop - tempCountOf:); - yourself! Item was added: + ----- Method: CoInterpreter class>>exportAPISelectors: (in category 'translation') ----- + exportAPISelectors: options + "Yes this is a mess. When all exportAPI methods are marked with the <api> pragma + this can go away." + | omExports | + omExports := (self objectMemoryClass withAllSuperclasses copyUpTo: VMClass) + inject: Set new into: [:api :c| api addAll: (c exportAPISelectors: options); yourself]. + ^(self withAllSuperclasses copyUpTo: VMClass), (self ancilliaryClasses: options) + inject: omExports + into: [:set :class| set addAll: (self exportAPISelectorsFor: class); yourself]! Item was changed: ----- Method: CoInterpreter class>>shouldGenerateTypedefFor: (in category 'translation') ----- shouldGenerateTypedefFor: aStructClass "Hack to work-around multiple definitions. Sometimes a type has been defined in an include." + ^({ CogBlockMethod. CogMethod. SistaCogMethod. VMCallbackContext } includes: aStructClass) not! - ^({ CogBlockMethod. CogMethod. SistaCogMethod } includes: aStructClass) not! Item was changed: ----- Method: CoInterpreter>>computeStackZoneSize (in category 'initialization') ----- computeStackZoneSize + ^numStackPages * ((self sizeof: InterpreterStackPage) + self stackPageByteSize) - ^numStackPages * ((self sizeof: CogStackPage) + self stackPageByteSize) + stackPages extraStackBytes! Item was removed: - ----- Method: CoInterpreterMT class>>ancilliaryClasses (in category 'translation') ----- - ancilliaryClasses - ^super ancilliaryClasses, { CogThreadManager }! Item was added: + ----- Method: CoInterpreterMT class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + ^(super ancilliaryClasses: options), { CogThreadManager. CogVMThread }! Item was removed: - ----- Method: CoInterpreterMT class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - ^super ancilliaryStructClasses, { CogVMThread }! Item was changed: ----- Method: CoInterpreterStackPages>>initializeStack:numSlots:pageSize: (in category 'initialization') ----- initializeStack: theStackPages numSlots: stackSlots pageSize: slotsPerPage "Initialize the stack pages. In the C VM theStackPages will be alloca'ed memory to hold the stack pages on the C stack. In the simulator they are housed in the memory between the cogMethodZone and the heap." <var: #theStackPages type: #'char *'> <returnTypeC: #void> | numPages page structStackPageSize pageStructBase count | <var: #page type: #'StackPage *'> <var: #pageStructBase type: #'char *'> self cCode: [] inSmalltalk: [self assert: objectMemory startOfMemory - coInterpreter cogCodeSize - coInterpreter methodCacheSize - coInterpreter primTraceLogSize - coInterpreter rumpCStackSize = (stackSlots * BytesPerWord)]. + structStackPageSize := coInterpreter sizeof: InterpreterStackPage. - structStackPageSize := coInterpreter sizeof: CogStackPage. bytesPerPage := slotsPerPage * BytesPerWord. numPages := coInterpreter numStkPages. "Because stack pages grow down baseAddress is at the top of a stack page and so to avoid subtracting BytesPerWord from baseAddress and lastAddress in the init loop below we simply push the stackPage array up one word to avoid the overlap. This word is extraStackBytes." pageStructBase := theStackPages + (numPages * bytesPerPage) + BytesPerWord. pages := self cCode: [self cCoerceSimple: pageStructBase to: #'StackPage *'] inSmalltalk: [pageMap := Dictionary new. ((0 to: numPages - 1) collect: [:i| + InterpreterStackPage surrogateClass new - CogStackPage surrogateClass new address: pageStructBase + (i * structStackPageSize) simulator: coInterpreter zoneBase: coInterpreter stackZoneBase zoneLimit: objectMemory startOfMemory]) do: [:pageSurrogate| pageMap at: pageSurrogate address put: pageSurrogate]; yourself]. "make sure there's enough headroom" self assert: coInterpreter stackPageByteSize - coInterpreter stackLimitBytes - coInterpreter stackLimitOffset >= coInterpreter stackPageHeadroom. 0 to: numPages - 1 do: [:index| page := self stackPageAt: index. page lastAddress: theStackPages + (index * bytesPerPage); baseAddress: page lastAddress + bytesPerPage; stackLimit: page baseAddress - coInterpreter stackLimitBytes; realStackLimit: page stackLimit; baseFP: 0; nextPage: (self stackPageAt: (index = (numPages - 1) ifTrue: [0] ifFalse: [index + 1])); prevPage: (self stackPageAt: (index = 0 ifTrue: [numPages - 1] ifFalse: [index - 1]))]. "Now compute stackBasePlus1 so that the pageIndexFor: call maps all addresses from aPage baseAddress to aBase limitAddress + 1 to the same index (stacks grow down)" stackBasePlus1 := (self cCoerceSimple: theStackPages to: #'char *') + 1. self cCode: [] inSmalltalk: [minStackAddress := theStackPages. maxStackAddress := theStackPages + (numPages * bytesPerPage) + BytesPerWord - 1]. "The overflow limit is the amount of stack to retain when moving frames from an overflowing stack to reduce thrashing. See stackOverflowOrEvent:mayContextSwitch:" page := self stackPageAt: 0. overflowLimit := page baseAddress - page realStackLimit * 3 // 5. 0 to: numPages - 1 do: [:index| page := self stackPageAt: index. self assert: (self pageIndexFor: page baseAddress) == index. self assert: (self pageIndexFor: page baseAddress - (slotsPerPage - 1 * BytesPerWord)) == index. self assert: (self stackPageFor: page baseAddress) == page. self assert: (self stackPageFor: page stackLimit) == page. self cCode: [] inSmalltalk: [| memIndex | memIndex := index * slotsPerPage + 1. "this is memIndex in the block above" self assert: (self memIndexFor: (self oopForPointer: page baseAddress)) == (memIndex + slotsPerPage - 1). index < (numPages - 1) ifTrue: [self assert: (self stackPageFor: page baseAddress + BytesPerWord) == (self stackPageAt: index + 1)]]. self assert: (page trace: -1) ~= 0 "for assert checking of the page tracing flags. -1 == invalid state"]. mostRecentlyUsedPage := self stackPageAt: 0. page := mostRecentlyUsedPage. count := 0. [| theIndex | count := count + 1. theIndex := self pageIndexFor: page baseAddress. self assert: (self stackPageAt: theIndex) == page. self assert: (self pageIndexFor: page baseAddress) == theIndex. self assert: (self pageIndexFor: page stackLimit) == theIndex. self assert: (self pageIndexFor: page lastAddress + 1) == theIndex. (page := page nextPage) ~= mostRecentlyUsedPage] whileTrue. self assert: count == numPages. self assert: self pageListIsWellFormed! Item was removed: - ----- Method: CogAbstractInstruction class>>requiredMethodNames (in category 'translation') ----- - requiredMethodNames - ^self selectors reject: - [:s| - (self isAccessor: s) - or: [((self compiledMethodAt: s) pragmaAt: #doNotGenerate) notNil]]! Item was added: + ----- Method: CogAbstractInstruction class>>requiredMethodNames: (in category 'translation') ----- + requiredMethodNames: options + ^self selectors reject: + [:s| + (self isAccessor: s) + or: [((self compiledMethodAt: s) pragmaAt: #doNotGenerate) notNil]]! Item was removed: - InterpreterStackPage subclass: #CogStackPage - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'VMMaker-JIT'! Item was removed: - ----- Method: CogStackPage class>>alignedByteSize (in category 'translation') ----- - alignedByteSize - ^self surrogateClass alignedByteSize! Item was removed: - ----- Method: CogStackPage class>>alignedByteSizeOf:forClient: (in category 'translation') ----- - alignedByteSizeOf: anObject forClient: aVMClass - ^self surrogateClass alignedByteSize! Item was removed: - ----- Method: CogStackPage class>>surrogateClass (in category 'simulation only') ----- - surrogateClass - ^BytesPerWord = 4 - ifTrue: [CogStackPageSurrogate32] - ifFalse: [CogStackPageSurrogate64]! Item was removed: - ----- Method: Cogit class>>ancilliaryClasses (in category 'translation') ----- - ancilliaryClasses - ^super ancilliaryClasses, - { CogMethodZone }! Item was added: + ----- Method: Cogit class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + ProcessorClass ifNil: [thisContext methodClass theNonMetaClass initialize]. + ^{ CogMethodZone. + CogAbstractInstruction. + ProcessorClass basicNew abstractInstructionCompilerClass. + CogBlockStart. + CogBytecodeDescriptor. + CogBytecodeFixup. + CogInstructionAnnotation. + CogPrimitiveDescriptor. + CogBlockMethod. + CogMethod + }! Item was removed: - ----- Method: Cogit class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - ProcessorClass ifNil: [thisContext methodClass theNonMetaClass initialize]. - ^{ CogAbstractInstruction. - ProcessorClass basicNew abstractInstructionCompilerClass. - CogBlockStart. - CogBytecodeDescriptor. - CogBytecodeFixup. - CogInstructionAnnotation. - CogPrimitiveDescriptor. - CogBlockMethod. - CogMethod }! Item was removed: - ----- Method: Cogit class>>exportAPISelectors (in category 'translation') ----- - exportAPISelectors - ^((self withAllSuperclasses copyUpThrough: Cogit), self ancilliaryClasses collect: - [:c| self exportAPISelectorsFor: c]) fold: [:a :b| a, b]! Item was added: + ----- Method: Cogit class>>exportAPISelectors: (in category 'translation') ----- + exportAPISelectors: options + ^((self withAllSuperclasses copyUpThrough: Cogit), (self ancilliaryClasses: options) collect: + [:c| self exportAPISelectorsFor: c]) fold: [:a :b| a, b]! Item was changed: ----- Method: Cogit class>>preGenerationHook: (in category 'translation') ----- preGenerationHook: aCCodeGenerator "Perform any last-minute changes to the code generator immediately before it performs code analysis and generation. In this case, make all non-exported methods private." | exportAPISelectors | + exportAPISelectors := self exportAPISelectors: aCCodeGenerator options. - exportAPISelectors := self exportAPISelectors. aCCodeGenerator selectorsAndMethodsDo: [:s :m| (exportAPISelectors includes: s) ifTrue: [m static: false] ifFalse: [m export ifFalse: [m static: true]]]! Item was removed: - ----- Method: Cogit class>>requiredMethodNames (in category 'translation') ----- - requiredMethodNames - "self requiredMethodNames" - ^self exportAPISelectors - addAll: self tableFunctions; - yourself! Item was added: + ----- Method: Cogit class>>requiredMethodNames: (in category 'translation') ----- + requiredMethodNames: options + "self requiredMethodNames" + ^(self exportAPISelectors: options) + addAll: self tableFunctions; + yourself! Item was added: + ----- Method: IA32ABIPlugin class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + ^{ VMCallbackContext. VMCallbackReturnValue }! Item was removed: - ----- Method: IA32ABIPlugin class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - ^{ VMCallbackContext. VMCallbackReturnValue }! Item was changed: ----- Method: Interpreter class>>preGenerationHook: (in category 'translation') ----- preGenerationHook: aCCodeGenerator "Perform any last-minute changes to the code generator immediately before it performs code analysis and generation. In this case, make all non-exported methods private." | requiredMethodNames | + requiredMethodNames := self requiredMethodNames: aCCodeGenerator options. - requiredMethodNames := self requiredMethodNames. aCCodeGenerator selectorsAndMethodsDo: [:s :m| (m export or: [requiredMethodNames includes: s]) ifTrue: [m static: false]]! Item was removed: - ----- Method: Interpreter class>>requiredMethodNames (in category 'translation') ----- - requiredMethodNames - "return the list of method names that should be retained for export or other support reasons" - | requiredList | - requiredList := Set new: 400. - "A number of methods required by VM support code, jitter, specific platforms etc" - requiredList addAll: #(fullDisplayUpdate interpret printCallStack printAllStacks printOop: readImageFromFile:HeapSize:StartingAt: success: readableFormat: getCurrentBytecode characterForAscii: findClassOfMethod:forReceiver: findSelectorOfMethod:forReceiver: loadInitialContext nullCompilerHook primitiveFlushExternalPrimitives setCompilerInitialized: getFullScreenFlag getInterruptCheckCounter getInterruptKeycode getInterruptPending getNextWakeupTick getSavedWindowSize setFullScreenFlag: setInterruptCheckCounter: setInterruptKeycode: setInterruptPending: setNextWakeupTick: setSavedWindowSize: forceInterruptCheck getThisSessionID). - - "Nice to actually have all the primitives available" - requiredList addAll: self primitiveTable. - - "InterpreterProxy is the internal analogue of sqVirtualMachine.c, so make sure to keep all those" - InterpreterProxy organization categories do: [:cat | - ((cat ~= 'initialize') and: [cat ~= 'private']) ifTrue: [ - requiredList addAll: (InterpreterProxy organization listAtCategoryNamed: cat)]]. - - ^requiredList! Item was added: + ----- Method: Interpreter class>>requiredMethodNames: (in category 'translation') ----- + requiredMethodNames: options + "return the list of method names that should be retained for export or other support reasons" + | requiredList | + requiredList := Set new: 400. + "A number of methods required by VM support code, jitter, specific platforms etc" + requiredList addAll: #(fullDisplayUpdate interpret printCallStack printAllStacks printOop: readImageFromFile:HeapSize:StartingAt: success: readableFormat: getCurrentBytecode characterForAscii: findClassOfMethod:forReceiver: findSelectorOfMethod:forReceiver: loadInitialContext nullCompilerHook primitiveFlushExternalPrimitives setCompilerInitialized: getFullScreenFlag getInterruptCheckCounter getInterruptKeycode getInterruptPending getNextWakeupTick getSavedWindowSize setFullScreenFlag: setInterruptCheckCounter: setInterruptKeycode: setInterruptPending: setNextWakeupTick: setSavedWindowSize: forceInterruptCheck getThisSessionID). + + "Nice to actually have all the primitives available" + requiredList addAll: self primitiveTable. + + "InterpreterProxy is the internal analogue of sqVirtualMachine.c, so make sure to keep all those" + InterpreterProxy organization categories do: [:cat | + ((cat ~= 'initialize') and: [cat ~= 'private']) ifTrue: [ + requiredList addAll: (InterpreterProxy organization listAtCategoryNamed: cat)]]. + + ^requiredList! Item was changed: ----- Method: InterpreterPrimitives>>primitiveClosureValueNoContextSwitch (in category 'control primitives') ----- primitiveClosureValueNoContextSwitch "An exact clone of primitiveClosureValue except that this version will not check for interrupts on stack overflow. It may invoke the garbage collector but will not switch processes. See checkForInterruptsMayContextSwitch:" + <api> | blockClosure numArgs closureMethod outerContext | blockClosure := self stackValue: argumentCount. numArgs := self argumentCountOfClosure: blockClosure. argumentCount = numArgs ifFalse: [^self primitiveFail]. "Somewhat paranoiac checks we need while debugging that we may be able to discard in a robust system." outerContext := objectMemory fetchPointer: ClosureOuterContextIndex ofObject: blockClosure. (objectMemory isContext: outerContext) ifFalse: [^self primitiveFail]. closureMethod := objectMemory fetchPointer: MethodIndex ofObject: outerContext. "Check if the closure's method is actually a CompiledMethod." (objectMemory isOopCompiledMethod: closureMethod) ifFalse: [^self primitiveFail]. "Note we use activateNewMethod, not executeNewMethod, to avoid quickCheckForInterrupts. Don't check until we have a full activation." self activateNewClosureMethod: blockClosure numArgs: numArgs mayContextSwitch: false! Item was changed: + ----- Method: InterpreterStackPage class>>alignedByteSize (in category 'translation') ----- - ----- Method: InterpreterStackPage class>>alignedByteSize (in category 'accessing') ----- alignedByteSize + ^self surrogateClass alignedByteSize! - "Simulation only. In the simulation stack pages are purely Smalltalk objects - and don't exist in memory." - ^0! Item was changed: ----- Method: InterpreterStackPage class>>alignedByteSizeOf:forClient: (in category 'translation') ----- alignedByteSizeOf: anObject forClient: aVMClass + ^self surrogateClass alignedByteSize! - ^self alignedByteSize! Item was added: + ----- Method: InterpreterStackPage class>>surrogateClass (in category 'simulation only') ----- + surrogateClass + ^BytesPerWord = 4 + ifTrue: [CogStackPageSurrogate32] + ifFalse: [CogStackPageSurrogate64]! Item was changed: ----- Method: NewObjectMemory>>lastPointerOf: (in category 'object enumeration') ----- lastPointerOf: oop "Return the byte offset of the last pointer field of the given object. Can be used even when the type bits are not correct. Works with CompiledMethods, as well as ordinary objects." + <api> - | fmt header contextSize numLiterals | <inline: true> <asmLabel: false> + | fmt header contextSize numLiterals | header := self baseHeader: oop. fmt := self formatOfHeader: header. fmt <= 4 ifTrue: [(fmt = 3 and: [self isContextHeader: header]) ifTrue: ["contexts end at the stack pointer" contextSize := coInterpreter fetchStackPointerOf: oop. ^CtxtTempFrameStart + contextSize * BytesPerOop]. ^(self sizeBitsOfSafe: oop) - BaseHeaderSize "all pointers"]. fmt < 12 ifTrue: [^0]. "no pointers" "CompiledMethod: contains both pointers and bytes" numLiterals := coInterpreter literalCountOf: oop. ^numLiterals + LiteralStart * BytesPerOop! Item was added: + ----- Method: NewspeakInterpreter class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + ^{ VMCallbackContext }! Item was removed: - ----- Method: NewspeakInterpreter class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - ^{ VMCallbackContext }! Item was changed: ----- Method: NewspeakInterpreter class>>preGenerationHook: (in category 'translation') ----- preGenerationHook: aCCodeGenerator "Perform any last-minute changes to the code generator immediately before it performs code analysis and generation. In this case, make all non-exported methods private." | publicMethodNames | + publicMethodNames := (self requiredMethodNames: aCCodeGenerator options) - publicMethodNames := self requiredMethodNames copyWithoutAll: (self primitiveTable copyWithout: #primitiveFail). aCCodeGenerator selectorsAndMethodsDo: [:s :m| (m export or: [publicMethodNames includes: s]) ifTrue: [m static: false]]! Item was removed: - ----- Method: NewspeakInterpreter class>>requiredMethodNames (in category 'translation') ----- - requiredMethodNames - "return the list of method names that should be retained for export or other support reasons" - | requiredList | - requiredList := self exportAPISelectors.. - "A number of methods required by VM support code, jitter, specific platforms etc" - requiredList addAll: #(fullDisplayUpdate interpret printCallStack printAllStacks printOop: readImageFromFile:HeapSize:StartingAt: success: readableFormat: getCurrentBytecode characterForAscii: findClassOfMethod:forReceiver: findSelectorOfMethod:forReceiver: loadInitialContext primitiveFlushExternalPrimitives getFullScreenFlag getInterruptCheckCounter getInterruptKeycode getInterruptPending getNextWakeupTick getSavedWindowSize setFullScreenFlag: setInterruptCheckCounter: setInterruptKeycode: setInterruptPending: setNextWakeupTick: setSavedWindowSize: forceInterruptCheck getThisSessionID getDeferDisplayUpdates validInstructionPointer:inMethod:). - - "Nice to actually have all the primitives available" - requiredList addAll: self primitiveTable. - - "InterpreterProxy is the internal analogue of sqVirtualMachine.c, so make sure to keep all those" - InterpreterProxy organization categories do: [:cat | - ((cat ~= 'initialize') and: [cat ~= 'private']) ifTrue: [ - requiredList addAll: (InterpreterProxy organization listAtCategoryNamed: cat)]]. - - ^requiredList! Item was added: + ----- Method: NewspeakInterpreter class>>requiredMethodNames: (in category 'translation') ----- + requiredMethodNames: options + "return the list of method names that should be retained for export or other support reasons" + | requiredList | + requiredList := self exportAPISelectors: options. + "A number of methods required by VM support code, jitter, specific platforms etc" + requiredList addAll: #(fullDisplayUpdate interpret printCallStack printAllStacks printOop: readImageFromFile:HeapSize:StartingAt: success: readableFormat: getCurrentBytecode characterForAscii: findClassOfMethod:forReceiver: findSelectorOfMethod:forReceiver: loadInitialContext primitiveFlushExternalPrimitives getFullScreenFlag getInterruptCheckCounter getInterruptKeycode getInterruptPending getNextWakeupTick getSavedWindowSize setFullScreenFlag: setInterruptCheckCounter: setInterruptKeycode: setInterruptPending: setNextWakeupTick: setSavedWindowSize: forceInterruptCheck getThisSessionID getDeferDisplayUpdates validInstructionPointer:inMethod:). + + "Nice to actually have all the primitives available" + requiredList addAll: self primitiveTable. + + "InterpreterProxy is the internal analogue of sqVirtualMachine.c, so make sure to keep all those" + InterpreterProxy organization categories do: [:cat | + ((cat ~= 'initialize') and: [cat ~= 'private']) ifTrue: [ + requiredList addAll: (InterpreterProxy organization listAtCategoryNamed: cat)]]. + + ^requiredList! Item was added: + ----- Method: NewsqueakIA32ABIPlugin class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + ^{ VMCallbackContext. VMCallbackReturnValue }! Item was removed: - ----- Method: NewsqueakIA32ABIPlugin class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - ^{ VMCallbackContext. VMCallbackReturnValue }! Item was removed: - ----- Method: ObjectMemory class>>requiredMethodNames (in category 'translation') ----- - requiredMethodNames - "return the list of method names that should be retained for export or other support reasons" - ^self exportAPISelectors! Item was added: + ----- Method: ObjectMemory class>>requiredMethodNames: (in category 'translation') ----- + requiredMethodNames: options + "return the list of method names that should be retained for export or other support reasons" + ^self exportAPISelectors: options! Item was changed: ----- Method: ObjectMemory>>classHeader: (in category 'header access') ----- classHeader: oop + <api> + ^self longAt: oop - BaseHeaderSize! - - ^ self longAt: oop - BaseHeaderSize! Item was changed: ----- Method: ObjectMemory>>compactClassIndexOf: (in category 'header access') ----- compactClassIndexOf: oop + <api> <inline: true> ^((self baseHeader: oop) >> 12) bitAnd: 16r1F! Item was changed: ----- Method: ObjectMemory>>fetchByte:ofObject: (in category 'interpreter access') ----- fetchByte: byteIndex ofObject: oop + <api> + ^self byteAt: oop + BaseHeaderSize + byteIndex! - - ^ self byteAt: oop + BaseHeaderSize + byteIndex! Item was changed: ----- Method: ObjectMemory>>isNonIntegerObject: (in category 'interpreter access') ----- isNonIntegerObject: objectPointer + <api> + ^(objectPointer bitAnd: 1) = 0! - - ^ (objectPointer bitAnd: 1) = 0! Item was changed: ----- Method: ObjectMemory>>lastPointerOf: (in category 'object enumeration') ----- lastPointerOf: oop "Return the byte offset of the last pointer field of the given object. Works with CompiledMethods, as well as ordinary objects. Can be used even when the type bits are not correct." + <api> - | fmt sz methodHeader header contextSize | <inline: true> <asmLabel: false> + | fmt sz methodHeader header contextSize | header := self baseHeader: oop. fmt := self formatOfHeader: header. fmt <= 4 ifTrue: [(fmt = 3 and: [self isContextHeader: header]) ifTrue: ["contexts end at the stack pointer" contextSize := self fetchStackPointerOf: oop. ^ CtxtTempFrameStart + contextSize * BytesPerWord]. sz := self sizeBitsOfSafe: oop. ^ sz - BaseHeaderSize "all pointers"]. fmt < 12 ifTrue: [^ 0]. "no pointers" "CompiledMethod: contains both pointers and bytes:" methodHeader := self longAt: oop + BaseHeaderSize. ^ (methodHeader >> 10 bitAnd: 255) + LiteralStart * BytesPerWord! Item was removed: - ----- Method: SimpleStackBasedCogit class>>ancilliaryClasses (in category 'translation') ----- - ancilliaryClasses - ^super ancilliaryClasses, { CogObjectRepresentationForSqueakV3 }! Item was added: + ----- Method: SimpleStackBasedCogit class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + "hard-wired for now" + ^(super ancilliaryClasses: options), { CogObjectRepresentationForSqueakV3 }! Item was changed: ----- Method: SimpleStackBasedCogit>>compileFrameBuild (in category 'compile abstract instructions') ----- compileFrameBuild "Build a frame for a CogMethod activation. See CoInterpreter class>>initializeFrameIndices. receiver (in ReceiverResultReg) arg0 ... argN caller's saved ip/this stackPage (for a base frame) fp-> saved fp method context (uninitialized?) receiver first temp ... sp-> Nth temp If there is a primitive and an error code the Nth temp is the error code. Ensure SendNumArgsReg is set early on (incidentally to nilObj) because it is the flag determining whether context switch is allowed on stack-overflow." | methodHeader jumpSkip | <inline: false> <var: #jumpSkip type: #'AbstractInstruction *'> needsFrame ifFalse: [^0]. methodHeader := coInterpreter headerOf: methodObj. backEnd hasLinkRegister ifTrue: [self PushR: LinkReg]. self PushR: FPReg. self MoveR: SPReg R: FPReg. methodLabel addDependent: (self annotateAbsolutePCRef: (self PushCw: methodLabel asInteger)). "method" self annotate: (self MoveCw: objectMemory nilObject R: SendNumArgsReg) objRef: objectMemory nilObject. self PushR: SendNumArgsReg. "context" self PushR: ReceiverResultReg. + methodOrBlockNumArgs + 1 to: (coInterpreter temporaryCountOfMethodHeader: methodHeader) do: - methodOrBlockNumArgs + 1 to: (coInterpreter tempCountOf: methodObj) do: [:i| self PushR: SendNumArgsReg]. (primitiveIndex > 0 and: [(coInterpreter longStoreBytecodeForHeader: methodHeader) = (objectMemory fetchByte: initialPC + (coInterpreter sizeOfCallPrimitiveBytecode: methodHeader) ofObject: methodObj)]) ifTrue: [self compileGetErrorCode. initialPC := initialPC + (coInterpreter sizeOfCallPrimitiveBytecode: methodHeader) + (coInterpreter sizeOfLongStoreTempBytecode: methodHeader)]. self MoveAw: coInterpreter stackLimitAddress R: TempReg. self CmpR: TempReg R: SPReg. "N.B. FLAGS := SPReg - TempReg" "If we can't context switch for this method, use a slightly slower overflow check that clears SendNumArgsReg." (coInterpreter canContextSwitchIfActivating: methodObj header: methodHeader) ifTrue: [self JumpBelow: stackOverflowCall. stackCheckLabel := self Label] ifFalse: [jumpSkip := self JumpAboveOrEqual: 0. self MoveCq: 0 R: SendNumArgsReg. self Jump: stackOverflowCall. jumpSkip jmpTarget: (stackCheckLabel := self Label)]. self annotateBytecode: stackCheckLabel! Item was added: + ----- Method: SistaStackToRegisterMappingCogit class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + ^(super ancilliaryClasses: options) copyWith: SistaCogMethod! Item was removed: - ----- Method: SistaStackToRegisterMappingCogit class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - "self ancilliaryStructClasses" - ^super ancilliaryStructClasses copyWith: SistaCogMethod! Item was removed: - ----- Method: StackInterpreter class>>ancilliaryClasses (in category 'translation') ----- - ancilliaryClasses - "Answer any extra classes to be included in the translation." - ^{ self objectMemoryClass. InterpreterStackPages }! Item was added: + ----- Method: StackInterpreter class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + "Answer any extra classes to be included in the translation." + ^{ self objectMemoryClass. + VMCallbackContext. + InterpreterStackPages. + InterpreterStackPage }! Item was removed: - ----- Method: StackInterpreter class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - ^{ InterpreterStackPage. VMCallbackContext }! Item was removed: - ----- Method: StackInterpreter class>>exportAPISelectors (in category 'translation') ----- - exportAPISelectors - | omExports | - omExports := (self objectMemoryClass withAllSuperclasses copyUpTo: VMClass) - inject: Set new - into: [:api :c| api addAll: c exportAPISelectors; yourself]. - ^(self withAllSuperclasses copyUpTo: VMClass), self ancilliaryClasses - inject: omExports - into: [:set :class| set addAll: (self exportAPISelectorsFor: class); yourself]! Item was added: + ----- Method: StackInterpreter class>>exportAPISelectors: (in category 'translation') ----- + exportAPISelectors: options + | omExports | + omExports := (self objectMemoryClass withAllSuperclasses copyUpTo: VMClass) + inject: Set new + into: [:api :c| api addAll: (c exportAPISelectors: options); yourself]. + ^(self withAllSuperclasses copyUpTo: VMClass), (self ancilliaryClasses: options) + inject: omExports + into: [:set :class| set addAll: (self exportAPISelectorsFor: class); yourself]! Item was changed: ----- Method: StackInterpreter class>>preGenerationHook: (in category 'translation') ----- preGenerationHook: aCCodeGenerator "Perform any last-minute changes to the code generator immediately before it performs code analysis and generation. In this case, make all non-exported methods private." | publicMethodNames | + publicMethodNames := (self requiredMethodNames: aCCodeGenerator options) - publicMethodNames := self requiredMethodNames copyWithoutAll: (self primitiveTable copyWithout: #primitiveFail). aCCodeGenerator selectorsAndMethodsDo: [:s :m| (m export or: [publicMethodNames includes: s]) ifTrue: [m static: false]]! Item was removed: - ----- Method: StackInterpreter class>>requiredMethodNames (in category 'translation') ----- - requiredMethodNames - "return the list of method names that should be retained for export or other support reasons" - | requiredList | - requiredList := self exportAPISelectors. - requiredList addAll: NewObjectMemory requiredMethodNames. - "A number of methods required by VM support code, jitter, specific platforms etc" - requiredList addAll: #( - assertValidExecutionPointe:r:s: - characterForAscii: checkedLongAt: - delayExpired - findClassOfMethod:forReceiver: findSelectorOfMethod: - forceInterruptCheck forceInterruptCheckFromHeartbeat fullDisplayUpdate - getCurrentBytecode getFullScreenFlag getInterruptKeycode getInterruptPending - getSavedWindowSize getThisSessionID - highBit: - interpret - loadInitialContext - oopFromChunk: - primitiveFail primitiveFailFor: primitiveFlushExternalPrimitives printAllStacks printCallStack printContext: - printExternalHeadFrame printFramesInPage: printFrame: printHeadFrame printMemory printOop: - printStackPages printStackPageList printStackPagesInUse printStackPageListInUse - readableFormat: readImageFromFile:HeapSize:StartingAt: - setFullScreenFlag: setInterruptKeycode: setInterruptPending: setInterruptCheckChain: - setSavedWindowSize: success: - validInstructionPointer:inMethod:framePointer:). - - "Nice to actually have all the primitives available" - requiredList addAll: (self primitiveTable select: [:each| each isSymbol]). - - "InterpreterProxy is the internal analogue of sqVirtualMachine.c, so make sure to keep all those" - InterpreterProxy organization categories do: - [:cat | - ((cat ~= 'initialize') and: [cat ~= 'private']) ifTrue: - [requiredList addAll: (InterpreterProxy organization listAtCategoryNamed: cat)]]. - - ^requiredList! Item was added: + ----- Method: StackInterpreter class>>requiredMethodNames: (in category 'translation') ----- + requiredMethodNames: options + "return the list of method names that should be retained for export or other support reasons" + | requiredList | + requiredList := self exportAPISelectors: options. + requiredList addAll: (NewObjectMemory requiredMethodNames: options). + "A number of methods required by VM support code, jitter, specific platforms etc" + requiredList addAll: #( + assertValidExecutionPointe:r:s: + characterForAscii: + findClassOfMethod:forReceiver: findSelectorOfMethod: + forceInterruptCheck forceInterruptCheckFromHeartbeat fullDisplayUpdate + getCurrentBytecode getFullScreenFlag getInterruptKeycode getInterruptPending + getSavedWindowSize getThisSessionID + interpret + loadInitialContext + oopFromChunk: + primitiveFail primitiveFailFor: primitiveFlushExternalPrimitives printAllStacks printCallStack printContext: + printExternalHeadFrame printFramesInPage: printFrame: printHeadFrame printMemory printOop: + printStackPages printStackPageList printStackPagesInUse printStackPageListInUse + readableFormat: readImageFromFile:HeapSize:StartingAt: + setFullScreenFlag: setInterruptKeycode: setInterruptPending: setInterruptCheckChain: + setSavedWindowSize: success: + validInstructionPointer:inMethod:framePointer:). + + "Nice to actually have all the primitives available" + requiredList addAll: (self primitiveTable select: [:each| each isSymbol]). + + "InterpreterProxy is the internal analogue of sqVirtualMachine.c, so make sure to keep all those" + InterpreterProxy organization categories do: + [:cat | + ((cat ~= 'initialize') and: [cat ~= 'private']) ifTrue: + [requiredList addAll: (InterpreterProxy organization listAtCategoryNamed: cat)]]. + + ^requiredList! Item was changed: ----- Method: StackInterpreter>>computeStackZoneSize (in category 'initialization') ----- computeStackZoneSize "In C the StackPage structs live next to the actual stack pages in the alloca'ed stack zone. In simulation these live in some dictionary and don't exist in the memory." + ^numStackPages * ((self cCode: [self sizeof: InterpreterStackPage] inSmalltalk: [0]) - ^numStackPages * ((self cCode: 'sizeof(StackPage)' inSmalltalk: [0]) + self stackPageByteSize) + stackPages extraStackBytes! Item was changed: ----- Method: StackInterpreter>>functionPointerFor:inClass: (in category 'method lookup cache') ----- functionPointerFor: primIdx inClass: theClass "Find an actual function pointer for this primitiveIndex. This is an opportunity to specialise the prim for the relevant class (format for example). Default for now is simply the entry in the base primitiveTable." + <api> - <returnTypeC: 'void (*functionPointerForinClass(sqInt primIdx,sqInt theClass))(void)'> ^primIdx > MaxPrimitiveIndex ifTrue: [0] ifFalse: [primitiveTable at: primIdx]! Item was changed: ----- Method: StackInterpreter>>literal:ofMethod: (in category 'compiled methods') ----- literal: offset ofMethod: methodPointer + <api> + ^objectMemory fetchPointer: offset + LiteralStart ofObject: methodPointer - - ^ objectMemory fetchPointer: offset + LiteralStart ofObject: methodPointer ! Item was changed: ----- Method: StackInterpreter>>popStack (in category 'internal interpreter access') ----- popStack "In the StackInterpreter stacks grow down." + <api> | top | <inline: true> top := stackPages longAt: stackPointer. stackPointer := stackPointer + BytesPerWord. ^top! Item was changed: ----- Method: StackInterpreter>>specialSelector: (in category 'message sending') ----- specialSelector: index + <api> + ^objectMemory fetchPointer: (index * 2) ofObject: (objectMemory splObj: SpecialSelectors)! - - ^ objectMemory fetchPointer: (index * 2) ofObject: (objectMemory splObj: SpecialSelectors)! Item was changed: ----- Method: StackInterpreter>>stackTop (in category 'internal interpreter access') ----- stackTop + <api> ^stackPages longAt: stackPointer! Item was changed: ----- Method: StackInterpreter>>tempCountOf: (in category 'compiled methods') ----- tempCountOf: methodPointer + <api> ^self temporaryCountOfMethodHeader: (self headerOf: methodPointer)! Item was added: + ----- Method: StackToRegisterMappingCogit class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + ^((super ancilliaryClasses: options) copyWithout: CogBytecodeFixup), + { CogSSBytecodeFixup. CogSimStackEntry. CogSSOptStatus }! Item was removed: - ----- Method: StackToRegisterMappingCogit class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - "self ancilliaryStructClasses" - ^(super ancilliaryStructClasses copyWithout: CogBytecodeFixup), - { CogSSBytecodeFixup. CogSimStackEntry. CogSSOptStatus }! Item was removed: - ----- Method: StackToRegisterMappingCogit class>>requiredMethodNames (in category 'translation') ----- - requiredMethodNames - "self requiredMethodNames" - ^super requiredMethodNames - add: self isPushNilFunction; - add: self pushNilSizeFunction; - yourself! Item was added: + ----- Method: StackToRegisterMappingCogit class>>requiredMethodNames: (in category 'translation') ----- + requiredMethodNames: options + ^(super requiredMethodNames: options) + add: self isPushNilFunction; + add: self pushNilSizeFunction; + yourself! Item was added: + ----- Method: ThreadedFFIPlugin class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: options + ^{ self calloutStateClass }! Item was removed: - ----- Method: ThreadedFFIPlugin class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - ^{ self calloutStateClass }! Item was removed: - ----- Method: VMClass class>>ancilliaryClasses (in category 'translation') ----- - ancilliaryClasses - "Answer any extra classes to be included in the translation." - ^#()! Item was added: + ----- Method: VMClass class>>ancilliaryClasses: (in category 'translation') ----- + ancilliaryClasses: optionsDictionary + "Answer any extra classes to be included in the translation." + ^{}! Item was removed: - ----- Method: VMClass class>>ancilliaryStructClasses (in category 'translation') ----- - ancilliaryStructClasses - ^#()! Item was removed: - ----- Method: VMClass class>>exportAPISelectors (in category 'translation') ----- - exportAPISelectors - ^self exportAPISelectorsFor: self! Item was added: + ----- Method: VMClass class>>exportAPISelectors: (in category 'translation') ----- + exportAPISelectors: options + ^self exportAPISelectorsFor: self! Item was removed: - ----- Method: VMClass class>>requiredMethodNames (in category 'translation') ----- - requiredMethodNames - "Answer a list of method names that should be retained for export or other - support reasons. These are typically entry-points that unless explicitly noted - will be deleted by the code generator since it will assume these are not used." - ^#()! Item was added: + ----- Method: VMClass class>>requiredMethodNames: (in category 'translation') ----- + requiredMethodNames: options + "Answer a list of method names that should be retained for export or other + support reasons. These are typically entry-points that unless explicitly noted + will be deleted by the code generator since it will assume these are not used." + ^#()! Item was changed: ----- Method: VMMaker>>buildCodeGeneratorForCogit: (in category 'generate sources') ----- buildCodeGeneratorForCogit: getAPIMethods "Answer the code generator for translating the cogit." | cg cogitClass cogitClasses apicg | cg := self createCogitCodeGenerator. cg vmClass: (cogitClass := self cogitClass). { cogitClass. self interpreterClass } do: [:cgc| (cgc respondsTo: #initializeWithOptions:) ifTrue: [cgc initializeWithOptions: optionsDictionary] ifFalse: [cgc initialize]]. cogitClasses := OrderedCollection new. [cogitClasses addFirst: cogitClass. cogitClass ~~ Cogit and: [cogitClass inheritsFrom: Cogit]] whileTrue: [cogitClass := cogitClass superclass]. cogitClasses addFirst: VMClass. + cogitClasses addAllLast: ((self cogitClass ancilliaryClasses: optionsDictionary) reject: [:class| class isStructClass]). - cogitClasses addAllLast: self cogitClass ancilliaryClasses. cogitClasses do: [:cgc| cg addClass: cgc]. (cg structClassesForTranslationClasses: cogitClasses) do: [:structClass| cg addStructClass: structClass]. getAPIMethods ifTrue: [apicg := self buildCodeGeneratorForInterpreter: false. cg apiMethods: apicg selectAPIMethods]. ^cg! Item was changed: ----- Method: VMMaker>>buildCodeGeneratorForInterpreter: (in category 'generate sources') ----- buildCodeGeneratorForInterpreter: getAPIMethods "Answer the code generator for translating the interpreter." + | cg interpreterClass interpreterClasses apicg | - | cg interpreterClass interpreterClasses structClasses apicg | interpreterClasses := OrderedCollection new. (cg := self createCodeGenerator) vmClass: (interpreterClass := self interpreterClass). [interpreterClass ~~ VMClass] whileTrue: [interpreterClasses addFirst: interpreterClass. interpreterClass := interpreterClass superclass]. cg vmClass objectMemoryClass ifNotNil: [:objectMemoryClass| interpreterClass := objectMemoryClass. [interpreterClass ~~ VMClass] whileTrue: [interpreterClasses addFirst: interpreterClass. interpreterClass := interpreterClass superclass]]. interpreterClasses addFirst: VMClass. + interpreterClasses addAllLast: (((self interpreterClass ancilliaryClasses: optionsDictionary) reject: [:class| class isStructClass]) copyWithout: cg vmClass objectMemoryClass). + (cg structClassesForTranslationClasses: interpreterClasses) do: - interpreterClasses addAllLast: (self interpreterClass ancilliaryClasses copyWithout: cg vmClass objectMemoryClass). - structClasses := Set new. - interpreterClasses do: [:class| structClasses addAll: class ancilliaryStructClasses]. - (ChangeSet superclassOrder: structClasses asArray) do: [:structClass| structClass initialize. cg addStructClass: structClass]. interpreterClasses do: [:ic| (ic respondsTo: #initializeWithOptions:) ifTrue: [ic initializeWithOptions: optionsDictionary] ifFalse: [ic initialize]]. interpreterClasses do: [:ic| cg addClass: ic]. (getAPIMethods and: [self interpreterClass needsCogit]) ifTrue: [apicg := self buildCodeGeneratorForCogit: false. cg apiMethods: apicg selectAPIMethods]. ^cg! Item was changed: ----- Method: VMMaker>>needsToRegenerateCogitFile (in category 'generate sources') ----- needsToRegenerateCogitFile + "Check the timestamp for the relevant classes and then the timestamp for the main source file (e.g. interp.c) + file if it already exists. Answer if the file needs regenerating." - "check the timestamp for the relevant classes and then the timestamp for the interp.c file if it already exists. Return true if the file needs regenerating, false if not" + | cogitClass cogitClasses tStamp | + cogitClasses := (cogitClass := self cogitClass) withAllSuperclasses copyUpThrough: Cogit. + cogitClasses addAllLast: (cogitClass ancilliaryClasses: self options). - | cogitClass cogitClasses tStamp fstat | - cogitClass := self cogitClass. - cogitClasses := cogitClass withAllSuperclasses copyUpThrough: Cogit. - cogitClasses addAllLast: cogitClass ancilliaryClasses. tStamp := cogitClasses inject: 0 into: [:tS :cl| tS max: cl timeStamp]. - cogitClasses do: - [:c| - tStamp := c ancilliaryStructClasses inject: tStamp into: [:tS :cl| tS max: cl timeStamp]]. "don't translate if the file is newer than my timeStamp" + (self coreVMDirectory entryAt: cogitClass sourceFileName ifAbsent: [nil]) ifNotNil: + [:fstat| + tStamp < fstat modificationTime ifTrue: + [^self confirm: 'The ', cogitClass printString, ' classes have not been modified since\ the source file was last generated.\Do you still want to regenerate it?' withCRs]]. - fstat := self coreVMDirectory entryAt: cogitClass sourceFileName ifAbsent:[nil]. - fstat ifNotNil:[tStamp < fstat modificationTime ifTrue: - [^self confirm: 'The ', cogitClass printString, ' classes have not been modified since\ the source file was last generated.\Do you still want to regenerate it?' withCRs]]. ^true ! Item was changed: ----- Method: VMMaker>>needsToRegenerateInterpreterFile (in category 'initialize') ----- needsToRegenerateInterpreterFile + "Check the timestamp for the relevant classes and then the timestamp for the main + source file (e.g. interp.c) if it already exists. Answer if the file needs regenerating." - "check the timestamp for the relevant classes and then the timestamp for the interp.c file if it already exists. Return true if the file needs regenerating, false if not" + | classes tStamp | - | classes tStamp fstat | classes := self interpreterClass withAllSuperclasses copyUpTo: VMClass. self interpreterClass objectMemoryClass ifNotNil: [:objectMemoryClass| classes addAllLast: (objectMemoryClass withAllSuperclasses copyUpTo: VMClass)]. classes copy do: + [:class| classes addAllLast: (class ancilliaryClasses: self options)]. - [:class| classes addAllLast: class ancilliaryClasses]. - classes copy do: - [:class| classes addAllLast: class ancilliaryStructClasses]. tStamp := classes inject: 0 into: [:tS :cl| tS max: cl timeStamp]. "don't translate if the file is newer than my timeStamp" + (self coreVMDirectory entryAt: self interpreterFilename ifAbsent: [nil]) ifNotNil: + [:fstat| + tStamp < fstat modificationTime ifTrue: + [^self confirm: 'The interpreter classes have not been modified since\ the interpreter file was last generated.\Do you still want to regenerate their source file?' withCRs]]. - fstat := self coreVMDirectory entryAt: self interpreterFilename ifAbsent:[nil]. - fstat ifNotNil:[tStamp < fstat modificationTime ifTrue: - [^self confirm: 'The interpreter classes have not been modified since\ the interpreter file was last generated.\Do you still want to regenerate their source file?' withCRs]]. ^true ! Item was changed: ----- Method: VMPluginCodeGenerator>>emitCTypesOn: (in category 'C code generator') ----- + emitCTypesOn: aStream - emitCTypesOn: aStream "Store local type declarations on the given stream." + (self structClassesForTranslationClasses: { pluginClass }) do: + [:structClass| + (structClass isAbstract not + and: [vmClass shouldGenerateTypedefFor: structClass]) ifTrue: + [structClass printTypedefOn: aStream. + aStream cr; cr]]! - ([pluginClass ancilliaryStructClasses] - on: MessageNotUnderstood - do: [:ex| ex message selector == #ancilliaryStructClasses ifTrue: [^self]. - ex pass]) do: - [:structClass| - (pluginClass shouldGenerateTypedefFor: structClass) ifTrue: - [structClass printTypedefOn: aStream. - aStream cr; cr]]!

1 0

Fwd: [Pharo-dev] The future of SqueakSource
by Frank Shearar 21 Aug '13

21 Aug '13

---------- Forwarded message ---------- From: Andrei Vasile Chis <chisvasileandrei(a)gmail.com> Date: 21 August 2013 18:00 Subject: [Pharo-dev] The future of SqueakSource To: Discusses Development of Pharo <pharo-dev(a)lists.pharo.org>, Any question about pharo is welcome <pharo-users(a)lists.pharo.org> Cc: Oscar Nierstrasz <oscar(a)iam.unibe.ch>, Andrea CARACCIOLO <caracciolo(a)iam.unibe.ch> Hi all, We will shut down the SqueakSource image at the end of next week (30 August 2013). The current system will be replaced by a simple view of the file system containing just the publicly visible projects. As meta-data, each project will have it's overview page attached (showing the licence and its author). Please forward this email to other mailing lists. Cheers, The SCG Team

1 0

SystemTracing: SystemTracing-dtl.25.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 21 Aug '13

21 Aug '13

Dave Lewis uploaded a new version of SystemTracing to project SystemTracing: http://www.squeaksource.com/SystemTracing/SystemTracing-dtl.25.mcz ==================== Summary ==================== Name: SystemTracing-dtl.25 Author: dtl Time: 4 December 2012, 8:05:17 am UUID: 84fb9f54-d512-4ef1-83d4-e2944b3239be Ancestors: SystemTracing-dtl.24 Add SystemTracer64 class>>traceTo64Script to provide an executable start script that documents the process of tracing a 32-bit image to 64-bit format.

1 0

[Vm-dev] OSProcessPlugin: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.38.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 21 Aug '13

21 Aug '13

Eliot Miranda uploaded a new version of VMConstruction-Plugins-OSProcessPlugin to project OSProcessPlugin: http://www.squeaksource.com/OSProcessPlugin/VMConstruction-Plugins-OSProces… ==================== Summary ==================== Name: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.38 Author: eem Time: 12 December 2012, 1:34:04 am UUID: 79420af3-4595-4d68-8de0-e27fdd576dd4 Ancestors: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.37 Get plugin to use SA_ONSTACK/sigaltstack for signal handlers if loaded in the JIT. Correct some of the signal numbers. Depends on VMMaker.oscog-eem.233 as it no longer uses asSymbol.

1 0

[Vm-dev] OSProcessPlugin: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.39.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 21 Aug '13

21 Aug '13

Eliot Miranda uploaded a new version of VMConstruction-Plugins-OSProcessPlugin to project OSProcessPlugin: http://www.squeaksource.com/OSProcessPlugin/VMConstruction-Plugins-OSProces… ==================== Summary ==================== Name: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.39 Author: eem Time: 14 December 2012, 12:44:27 pm UUID: 75e5df6e-e4bd-4617-926c-cfc9191a71ab Ancestors: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.38 Eschew using egregious hacks to generate FILEHANDLETYPE def et al. This requires VMMaker.oscog-eem.235.

1 0

[Vm-dev] OSProcessPlugin: VMConstruction-Plugins-OSProcessPlugin-dtl.38.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 21 Aug '13

21 Aug '13

Dave Lewis uploaded a new version of VMConstruction-Plugins-OSProcessPlugin to project OSProcessPlugin: http://www.squeaksource.com/OSProcessPlugin/VMConstruction-Plugins-OSProces… ==================== Summary ==================== Name: VMConstruction-Plugins-OSProcessPlugin-dtl.38 Author: dtl Time: 3 June 2013, 11:19:13 am UUID: a0bb6a88-de9e-41ab-a63a-68fe9bcb2bb4 Ancestors: VMConstruction-Plugins-OSProcessPlugin-dtl.37 OSProcessPlugin 4.5.2 Add primitives for creating temporary files and directories primitiveMktemp primitiveMkstemp primitiveMkdtemp

1 0

[Vm-dev] OSProcessPlugin: VMConstruction-Plugins-OSProcessPlugin-dtl.36.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 21 Aug '13

21 Aug '13

Dave Lewis uploaded a new version of VMConstruction-Plugins-OSProcessPlugin to project OSProcessPlugin: http://www.squeaksource.com/OSProcessPlugin/VMConstruction-Plugins-OSProces… ==================== Summary ==================== Name: VMConstruction-Plugins-OSProcessPlugin-dtl.36 Author: dtl Time: 16 December 2012, 5:15:09 am UUID: 302fb270-ff80-4566-bcdd-66d29f666b42 Ancestors: VMConstruction-Plugins-OSProcessPlugin-dtl.35 OSProcessPlugin 4.4.12 Fix signal number assignments. These affect the following primitives (all currently unreferenced by OSProcess/CommandShell): primitiveSendSigabrtTo: primitiveSendSigalrmTo: primitiveSendSigcontTo: primitiveSendSigstopTo: Also fix some typos in comments.

1 0

[Vm-dev] OSProcessPlugin: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.41.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 21 Aug '13

21 Aug '13

Eliot Miranda uploaded a new version of VMConstruction-Plugins-OSProcessPlugin to project OSProcessPlugin: http://www.squeaksource.com/OSProcessPlugin/VMConstruction-Plugins-OSProces… ==================== Summary ==================== Name: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.41 Author: eem Time: 14 December 2012, 4:42:40 am UUID: 0406d3fc-7b8b-4b72-b20a-f254eeb1b893 Ancestors: VMConstruction-Plugins-OSProcessPlugin.oscog-eem.40 Check for needing sigaltstack properly in setSignalNumber:handler:

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev August 2013