Vm-dev July 2021

vm-dev@lists.squeakfoundation.org

22 participants
176 discussions

[OpenSmalltalk/opensmalltalk-vm] fde4fd: CogVM source as per VMMaker.oscog-eem.3002
by Eliot Miranda 27 Jul '21

27 Jul '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: fde4fd081de3fd30d62c58f48973afc01d251abc https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/fde4fd081de3fd30d6… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-07-27 (Tue, 27 Jul 2021) Changed paths: M spur64src/vm/cogit.h M spur64src/vm/cogitARMv8.c M spur64src/vm/cogitX64SysV.c M spur64src/vm/cogitX64WIN64.c M spurlowcode64src/vm/cogit.h M spurlowcode64src/vm/cogitARMv8.c M spurlowcode64src/vm/cogitX64SysV.c M spurlowcode64src/vm/cogitX64WIN64.c M spurlowcodesrc/vm/cogit.h M spurlowcodesrc/vm/cogitARMv5.c M spurlowcodesrc/vm/cogitIA32.c M spurlowcodesrc/vm/cogitMIPSEL.c M spursista64src/vm/cogit.h M spursista64src/vm/cogitARMv8.c M spursista64src/vm/cogitX64SysV.c M spursista64src/vm/cogitX64WIN64.c M spursistasrc/vm/cogit.h M spursistasrc/vm/cogitARMv5.c M spursistasrc/vm/cogitIA32.c M spursistasrc/vm/cogitMIPSEL.c M spursrc/vm/cogit.h M spursrc/vm/cogitARMv5.c M spursrc/vm/cogitIA32.c M spursrc/vm/cogitMIPSEL.c M src/plugins/AsynchFilePlugin/AsynchFilePlugin.c M src/plugins/BitBltPlugin/BitBltPlugin.c M src/plugins/BochsIA32Plugin/BochsIA32Plugin.c M src/plugins/BochsX64Plugin/BochsX64Plugin.c M src/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c M src/plugins/FileCopyPlugin/FileCopyPlugin.c M src/plugins/GdbARMPlugin/GdbARMPlugin.c M src/plugins/GdbARMv8Plugin/GdbARMv8Plugin.c M src/plugins/GeniePlugin/GeniePlugin.c M src/plugins/HostWindowPlugin/HostWindowPlugin.c M src/plugins/ImmX11Plugin/ImmX11Plugin.c M src/plugins/InternetConfigPlugin/InternetConfigPlugin.c M src/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c M src/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c M src/plugins/LargeIntegers/LargeIntegers.c M src/plugins/MIDIPlugin/MIDIPlugin.c M src/plugins/MacMenubarPlugin/MacMenubarPlugin.c M src/plugins/Mpeg3Plugin/Mpeg3Plugin.c M src/plugins/QuicktimePlugin/QuicktimePlugin.c M src/plugins/SerialPlugin/SerialPlugin.c M src/plugins/SocketPlugin/SocketPlugin.c M src/plugins/SoundPlugin/SoundPlugin.c M src/vm/cogit.h M src/vm/cogitARMv5.c M src/vm/cogitIA32.c M src/vm/cogitMIPSEL.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.3002 - remember to zero primFailCode before retrying a primitive after encountering forwarders - reload the stack pointer correctly on CISCs. The retpc of the send is on top of stack, below the last primitive argument. SmartSyntaxPlugins: generate better code for prologues, avoiding all use of success: and failed. LargeIntegersPlugin: use byteSizeOf: instead of slotSizeOf:; it is simpler and faster, and allows e.g. LargeIntegers to use what ever unit size they want. Fix "implicit declaration of function" warnings in FileCopyPlugin.

1 0

VM Maker: VMMaker.oscog-eem.3002.mcz
by commits＠source.squeak.org 27 Jul '21

27 Jul '21

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.3002.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.3002 Author: eem Time: 27 July 2021, 12:19:43.47378 pm UUID: 618f5960-8dbf-452c-8709-f8201ee6433b Ancestors: VMMaker.oscog-eem.3001 SmartSyntaxPlugins: generate better code for prologues, avoiding all use of success: and failed. Eliminate unnecessary failed sends. LargeIntegersPlugin: use byteSizeOf: instead of slotSizeOf:; it is simpler and faster, and allows e.g. LargeIntegers to use what ever unit size they want. Slang: provide buildCodeGeneratorInto: and a breakpoint in compileToTMethodSelector:in: so we can catch translation of a specific SmartSyntaxPlugin method; all the transformations occur in compileToTMethodSelector:in:. =============== Diff against VMMaker.oscog-eem.3001 =============== Item was changed: ----- Method: CCodeGenerator>>compileToTMethodSelector:in: (in category 'utilities') ----- compileToTMethodSelector: selector in: aClass "Compile a method to a TMethod" + (breakSrcInlineSelectors notNil + and: [(breakSrcInlineSelectors includes: selector) + and: [breakOnInline ~~ true]]) ifTrue: + [self halt]. + ^(aClass >> selector) asTranslationMethodOfClass: self translationMethodClass "was: | implementingClass | implementingClass := aClass. ^(Compiler new parse: ([aClass sourceCodeAt: selector] on: KeyNotFound do: [:ex| ""Quick hack for simulating Pharo images..."" (PharoVM and: [aClass == String class and: [selector == #findSubstringViaPrimitive:in:startingAt:matchTable:]]) ifFalse: [ex pass]. (implementingClass := ByteString) sourceCodeAt: #findSubstring:in:startingAt:matchTable:]) in: implementingClass notifying: nil) asTranslationMethodOfClass: self translationMethodClass"! Item was changed: ----- Method: InterpreterPlugin class>>buildCodeGenerator (in category 'translation') ----- buildCodeGenerator "Build a CCodeGenerator for the plugin" + ^self buildCodeGeneratorInto: nil! - | cg pluginClasses | - cg := self codeGeneratorClass new initialize. - cg pluginClass: self. - (pluginClasses := self pluginClassesUpToRoot) do: - [:aClass| cg addClass: aClass]. - (cg structClassesForTranslationClasses: pluginClasses) do: - [:structClasss| cg addStructClass: structClasss]. - cg addMethodsForTranslatedPrimitives: self translatedPrimitives. - ^cg! Item was added: + ----- Method: InterpreterPlugin class>>buildCodeGeneratorInto: (in category 'translation') ----- + buildCodeGeneratorInto: aBlockOrNil + "Build a CCodeGenerator for the plugin" + | cg pluginClasses | + cg := self codeGeneratorClass new initialize. + cg pluginClass: self. + aBlockOrNil ifNotNil: [aBlockOrNil value: cg]. + (pluginClasses := self pluginClassesUpToRoot) do: + [:aClass| cg addClass: aClass]. + (cg structClassesForTranslationClasses: pluginClasses) do: + [:structClasss| cg addStructClass: structClasss]. + cg addMethodsForTranslatedPrimitives: self translatedPrimitives. + ^cg! Item was added: + ----- Method: InterpreterProxy class>>checkingStackLoads (in category 'translation') ----- + checkingStackLoads + "Answer the checking stack loads that set the primitive failure flag if validation fails. + Used by a SmartSyntaxPluginTMethod to generate minimal prologue code." + + ^#(stackFloatValue: stackIntegerValue: stackObjectValue: stackPositiveMachineIntegerValue: stackSignedMachineIntegerValue:) ! Item was removed: - ----- Method: LargeIntegersPlugin>>byteSizeOfLargeInt: (in category 'util') ----- - byteSizeOfLargeInt: bytesOop - "Answer the number of bytes required to represent a LargeInteger. - Precondition: bytesOop is not a small integer." - <inline: #always> - ^ interpreterProxy slotSizeOf: bytesOop! Item was changed: ----- Method: LargeIntegersPlugin>>digitBitLogic:with:opIndex: (in category 'oop functions') ----- digitBitLogic: firstInteger with: secondInteger opIndex: opIx "Bit logic here is only implemented for positive integers or Zero; if rec or arg is negative, it fails." | firstLarge secondLarge firstLen secondLen shortLen shortLarge longLen longLarge result | (interpreterProxy isIntegerObject: firstInteger) ifTrue: [(interpreterProxy integerValueOf: firstInteger) < 0 ifTrue: + [^interpreterProxy primitiveFail]. - [^ interpreterProxy primitiveFail]. "convert it to a not normalized LargeInteger" + self remapOop: secondInteger in: + [firstLarge := self createLargeFromSmallInteger: firstInteger]] - self remapOop: secondInteger in: [firstLarge := self createLargeFromSmallInteger: firstInteger]] ifFalse: + [(interpreterProxy isLargePositiveIntegerObject: firstInteger) ifFalse: + [^interpreterProxy primitiveFail]. - [(interpreterProxy isLargePositiveIntegerObject: firstInteger) ifFalse: [^ interpreterProxy primitiveFail]. firstLarge := firstInteger]. (interpreterProxy isIntegerObject: secondInteger) ifTrue: [(interpreterProxy integerValueOf: secondInteger) < 0 ifTrue: + [^interpreterProxy primitiveFail]. - [^ interpreterProxy primitiveFail]. "convert it to a not normalized LargeInteger" + self remapOop: firstLarge in: + [secondLarge := self createLargeFromSmallInteger: secondInteger]] - self remapOop: firstLarge in: [secondLarge := self createLargeFromSmallInteger: secondInteger]] ifFalse: + [(interpreterProxy isLargePositiveIntegerObject: secondInteger) ifFalse: + [^interpreterProxy primitiveFail]. - [(interpreterProxy isLargePositiveIntegerObject: secondInteger) ifFalse: [^ interpreterProxy primitiveFail]. secondLarge := secondInteger]. + firstLen := interpreterProxy byteSizeOf: firstLarge. + secondLen := interpreterProxy byteSizeOf: secondLarge. - firstLen := self byteSizeOfLargeInt: firstLarge. - secondLen := self byteSizeOfLargeInt: secondLarge. firstLen < secondLen ifTrue: [shortLen := firstLen. shortLarge := firstLarge. longLen := secondLen. longLarge := secondLarge] ifFalse: [shortLen := secondLen. shortLarge := secondLarge. longLen := firstLen. longLarge := firstLarge]. self remapOop: #(shortLarge longLarge) in: [result := interpreterProxy instantiateClass: interpreterProxy classLargePositiveInteger indexableSize: longLen]. result ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory]. self cDigitOp: opIx short: (self pointerToFirstDigitOfLargeInt: shortLarge) len: shortLen + 3 // 4 long: (self pointerToFirstDigitOfLargeInt: longLarge) len: longLen + 3 // 4 into: (self pointerToFirstDigitOfLargeInt: result). interpreterProxy failed ifTrue: [^ 0]. ^self normalizePositive: result! Item was changed: ----- Method: LargeIntegersPlugin>>digitMultiplyLarge:with:negative: (in category 'oop functions') ----- digitMultiplyLarge: firstInteger with: secondInteger negative: neg "Normalizes." | firstLen secondLen shortInt shortLen longInt longLen prod | + firstLen := interpreterProxy byteSizeOf: firstInteger. + secondLen := interpreterProxy byteSizeOf: secondInteger. - firstLen := self byteSizeOfLargeInt: firstInteger. - secondLen := self byteSizeOfLargeInt: secondInteger. firstLen <= secondLen ifTrue: [shortInt := firstInteger. shortLen := firstLen. longInt := secondInteger. longLen := secondLen] ifFalse: [shortInt := secondInteger. shortLen := secondLen. longInt := firstInteger. longLen := firstLen]. + self remapOop: #(shortInt longInt) in: + [prod := self createLargeIntegerNeg: neg byteLength: longLen + shortLen]. - self remapOop: #(shortInt longInt) in: [prod := self createLargeIntegerNeg: neg byteLength: longLen + shortLen]. prod ifNil: [^interpreterProxy primitiveFailFor: PrimErrNoMemory]. self cDigitMultiply: (self pointerToFirstDigitOfLargeInt: shortInt) len: shortLen + 3 // 4 with: (self pointerToFirstDigitOfLargeInt: longInt) len: longLen + 3 // 4 into: (self pointerToFirstDigitOfLargeInt: prod) len: longLen + shortLen + 3 // 4. ^neg ifTrue: [self normalizeNegative: prod] ifFalse: [self normalizePositive: prod]! Item was changed: ----- Method: LargeIntegersPlugin>>digitSizeOfLargeInt: (in category 'util') ----- digitSizeOfLargeInt: anOop "answer number of 32 bits digits of a Large Integer" <inline: true> + ^(interpreterProxy byteSizeOf: anOop) + 3 // 4! - ^(self byteSizeOfLargeInt: anOop) + 3 // 4! Item was changed: ----- Method: LargeIntegersPlugin>>isNormalized: (in category 'oop functions') ----- isNormalized: aLargeInteger | len | "Check for leading zero of LargeInteger" + len := interpreterProxy byteSizeOf: aLargeInteger. - len := self byteSizeOfLargeInt: aLargeInteger. len = 0 ifTrue: [^ false]. (self unsafeByteOfLargeInt: aLargeInteger at: len) = 0 ifTrue: [^ false]. ^true! Item was changed: ----- Method: LargeIntegersPlugin>>normalizeNegative: (in category 'oop functions') ----- normalizeNegative: aLargeNegativeInteger "Check for leading zeroes and return shortened copy if so." "First establish len = significant length." | val val2 sLen digitLen byteLen oldByteLen minVal | <var: #val type: #usqInt> <var: #val2 type: #usqInt> <var: #minVal type: #usqInt> digitLen := self digitSizeOfLargeInt: aLargeNegativeInteger. [digitLen ~= 0 and: [(self unsafeDigitOfLargeInt: aLargeNegativeInteger at: digitLen) = 0]] whileTrue: [digitLen := digitLen - 1]. digitLen = 0 ifTrue: [^ 0 asOop: SmallInteger]. "Now check if in SmallInteger range" val := self unsafeDigitOfLargeInt: aLargeNegativeInteger at: digitLen. sLen := interpreterProxy minSmallInteger < -16r40000000 ifTrue: [2] ifFalse: [1]. "SmallInteger minVal digitLength" digitLen <= sLen ifTrue: [minVal := 0 - interpreterProxy minSmallInteger. val2 := val. digitLen > 1 ifTrue: [val2 := val2 << 32 + (self unsafeDigitOfLargeInt: aLargeNegativeInteger at: 1)]. val2 <= minVal ifTrue: [^0 - val2 asOop: SmallInteger]]. "Return self, or a shortened copy" byteLen := digitLen * 4. val <= 16rFFFF ifTrue: [byteLen := byteLen - 2] ifFalse: [val := val >> 16]. val <= 16rFF ifTrue: [byteLen := byteLen - 1]. + oldByteLen := interpreterProxy byteSizeOf: aLargeNegativeInteger. - oldByteLen := self byteSizeOfLargeInt: aLargeNegativeInteger. byteLen < oldByteLen ifTrue: [^ self largeInt: aLargeNegativeInteger growTo: byteLen] ifFalse: [^ aLargeNegativeInteger]! Item was changed: ----- Method: LargeIntegersPlugin>>normalizePositive: (in category 'oop functions') ----- normalizePositive: aLargePositiveInteger "Check for leading zeroes and return shortened copy if so." "First establish len = significant length." | val val2 sLen digitLen byteLen oldByteLen maxVal | <var: #val type: #usqInt> <var: #val2 type: #usqInt> <var: #maxVal type: #usqInt> digitLen := self digitSizeOfLargeInt: aLargePositiveInteger. [digitLen ~= 0 and: [(self unsafeDigitOfLargeInt: aLargePositiveInteger at: digitLen) = 0]] whileTrue: [digitLen := digitLen - 1]. digitLen = 0 ifTrue: [^ 0 asOop: SmallInteger]. "Now check if in SmallInteger range" val := self unsafeDigitOfLargeInt: aLargePositiveInteger at: digitLen. sLen := interpreterProxy maxSmallInteger > 16r3FFFFFFF ifTrue: [2] ifFalse: [1]. "SmallInteger maxVal digitLength" digitLen <= sLen ifTrue: [maxVal := interpreterProxy maxSmallInteger. val2 := val. digitLen > 1 ifTrue: ["Note: asUnsignedLongLong is not necessary because this branch is for 64 bits only. but we want to avoid a C Compiler warning on 32 bits" val2 := val2 asUnsignedLongLong << 32 + (self unsafeDigitOfLargeInt: aLargePositiveInteger at: 1)]. val2 <= maxVal ifTrue: [^val2 asOop: SmallInteger]]. "Return self, or a shortened copy" byteLen := digitLen * 4. val <= 16rFFFF ifTrue: [byteLen := byteLen - 2] ifFalse: [val := val >> 16]. val <= 16rFF ifTrue: [byteLen := byteLen - 1]. + oldByteLen := interpreterProxy byteSizeOf: aLargePositiveInteger. - oldByteLen := self byteSizeOfLargeInt: aLargePositiveInteger. byteLen < oldByteLen ifTrue: [^ self largeInt: aLargePositiveInteger growTo: byteLen] ifFalse: [^ aLargePositiveInteger]! Item was changed: ----- Method: SmartSyntaxPluginCodeGenerator>>ccgLoad:expr:asKindOf:from: (in category 'coercing') ----- + ccgLoad: aBlock expr: variableName asKindOf: aClass from: stackIndex + ^self + load: (self ccgLoad: aBlock expr: variableName asRawOopFrom: stackIndex) + validatingWith: #is:KindOf: + on: { variableName. aClass asString } + from: stackIndex! - ccgLoad: aBlock expr: aString asKindOf: aClass from: anInteger - - ^String streamContents: [:aStream | aStream - nextPutAll: 'interpreterProxy success: (interpreterProxy'; - crtab: 2; - nextPutAll: 'is: (interpreterProxy stackValue: '; - nextPutAll: anInteger asString; - nextPutAll: ')'; - crtab: 2; - nextPutAll: 'KindOf: '''; - nextPutAll: aClass asString; - nextPutAll: ''').'; - crtab; - nextPutAll: (self - ccgLoad: aBlock - expr: aString - asRawOopFrom: anInteger)]! Item was changed: ----- Method: SmartSyntaxPluginCodeGenerator>>ccgLoad:expr:asKindOfIntegerFrom: (in category 'coercing') ----- + ccgLoad: aBlock expr: variableName asKindOfIntegerFrom: stackIndex + ^self + load: (self ccgLoad: aBlock expr: variableName asRawOopFrom: stackIndex) + validatingWith: #isKindOfInteger: + on: variableName + from: stackIndex! - ccgLoad: aBlock expr: aString asKindOfIntegerFrom: anInteger - - ^String streamContents: [:aStream | aStream - nextPutAll: 'interpreterProxy success: (interpreterProxy isKindOfInteger: (interpreterProxy stackValue: '; - nextPutAll: anInteger asString; - nextPutAll: ')).'; - crtab; - nextPutAll: (self - ccgLoad: aBlock - expr: aString - asRawOopFrom: anInteger)]! Item was changed: ----- Method: SmartSyntaxPluginCodeGenerator>>ccgLoad:expr:asMemberOf:from: (in category 'coercing') ----- + ccgLoad: aBlock expr: variableName asMemberOf: aClass from: stackIndex + ^self + load: (self ccgLoad: aBlock expr: variableName asRawOopFrom: stackIndex) + validatingWith: #is:MemberOf: + on: { variableName. aClass asString } + from: stackIndex! - ccgLoad: aBlock expr: aString asMemberOf: aClass from: anInteger - - ^String streamContents: [:aStream | aStream - nextPutAll: 'interpreterProxy success: (interpreterProxy'; - crtab: 2; - nextPutAll: 'is: (interpreterProxy stackValue: '; - nextPutAll: anInteger asString; - nextPutAll: ')'; - crtab: 2; - nextPutAll: 'MemberOf: '''; - nextPutAll: aClass asString; - nextPutAll: ''').'; - crtab; - nextPutAll: (self - ccgLoad: aBlock - expr: aString - asRawOopFrom: anInteger)]! Item was changed: ----- Method: SmartSyntaxPluginCodeGenerator>>ccgLoad:expr:asMemberOfLargeNegativeIntegerFrom: (in category 'coercing') ----- + ccgLoad: aBlock expr: variableName asMemberOfLargeNegativeIntegerFrom: stackIndex + ^self + load: (self ccgLoad: aBlock expr: variableName asRawOopFrom: stackIndex) + validatingWith: #isLargeNegativeIntegerObject: + on: variableName + from: stackIndex! - ccgLoad: aBlock expr: aString asMemberOfLargeNegativeIntegerFrom: anInteger - - ^String streamContents: [:aStream | aStream - nextPutAll: 'interpreterProxy success: (interpreterProxy isLargeNegativeIntegerObject: (interpreterProxy stackValue: '; - nextPutAll: anInteger asString; - nextPutAll: ')).'; - crtab; - nextPutAll: (self - ccgLoad: aBlock - expr: aString - asRawOopFrom: anInteger)]! Item was changed: ----- Method: SmartSyntaxPluginCodeGenerator>>ccgLoad:expr:asMemberOfLargePositiveIntegerFrom: (in category 'coercing') ----- + ccgLoad: aBlock expr: variableName asMemberOfLargePositiveIntegerFrom: stackIndex + ^self + load: (self ccgLoad: aBlock expr: variableName asRawOopFrom: stackIndex) + validatingWith: #isLargePositiveIntegerObject: + on: variableName + from: stackIndex! - ccgLoad: aBlock expr: aString asMemberOfLargePositiveIntegerFrom: anInteger - - ^String streamContents: [:aStream | aStream - nextPutAll: 'interpreterProxy success: (interpreterProxy isLargePositiveIntegerObject: (interpreterProxy stackValue: '; - nextPutAll: anInteger asString; - nextPutAll: ')).'; - crtab; - nextPutAll: (self - ccgLoad: aBlock - expr: aString - asRawOopFrom: anInteger)]! Item was added: + ----- Method: SmartSyntaxPluginCodeGenerator>>load:validatingWith:on:from: (in category 'coercing') ----- + load: loadExpr validatingWith: testSelector on: variableOrVariables from: stackIndex + + ^String streamContents: + [:aStream | + aStream + nextPutAll: loadExpr; + nextPut: $.; cr; + nextPutAll: '(interpreterProxy '. + testSelector numArgs = 1 + ifTrue: + [aStream nextPutAll: testSelector; nextPutAll: variableOrVariables] + ifFalse: + [testSelector keywords with: variableOrVariables do: + [:keyword :variable| + aStream nextPutAll: keyword; nextPutAll: variable; space]]. + aStream nextPutAll: ') ifFalse: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]']! Item was changed: ----- Method: SmartSyntaxPluginSimulator>>doesNotUnderstand: (in category 'message forwarding') ----- doesNotUnderstand: aMessage | signature selector parameters result sp | signature := signatureMap at: aMessage selector ifAbsent: [^super doesNotUnderstand: aMessage]. self log: [interpreterProxy coInterpreter printExternalHeadFrame; print: aMessage selector; cr]. "record the stack pointer to avoid cutting back the stack twice in plugins that mix smart syntax and traditional style." sp := interpreterProxy getStackPointer. selector := signature first. parameters := signature second. signature third "receiver block" value: (interpreterProxy stackValue: parameters size). interpreterProxy failed ifTrue: + [self log: 'failed in receiver marshalling'. - [self log: 'failed in marshalling'. ^nil]. + result := [| pluginArgs | + pluginArgs := parameters withIndexCollect: - result := [actualPlugin - perform: selector - withArguments: (parameters withIndexCollect: [:block :index| + block value: (interpreterProxy stackValue: parameters size - index)]. + interpreterProxy failed ifTrue: + [self log: 'failed in argument marshalling'. + ^nil]. + actualPlugin perform: selector withArguments: pluginArgs] - block value: (interpreterProxy stackValue: parameters size - index)])] on: Notification do: [:ex| ex tag == #getInterpreter ifTrue: [ex resume: interpreterProxy] ifFalse: [ex tag == #getSimulator ifTrue: [ex resume: self] ifFalse: [ex pass]]]. interpreterProxy failed ifTrue: [self log: 'failed in execution'. ^nil]. result == actualPlugin ifTrue: [self log: '^self'. "For methods in BitBltSimulator that do their own marshalling, don't double pop" sp = interpreterProxy getStackPointer ifTrue: [interpreterProxy pop: interpreterProxy methodArgumentCount]. ^nil]. self log: [interpreterProxy coInterpreter print: '^'; shortPrintOop: result; flush]. "For methods in BitBltSimulator that do their own marshalling, don't double pop" sp = interpreterProxy getStackPointer ifTrue: [interpreterProxy pop: interpreterProxy methodArgumentCount + 1 thenPush: result]. ^nil "SmartSyntaxPluginPrimitives return null"! Item was changed: ----- Method: SmartSyntaxPluginTMethod>>handlePrimitiveDirective:on: (in category 'specifying primitives') ----- handlePrimitiveDirective: aStmt on: sStream + | needsCheckSuccessExpr loadExpressionSource | - isPrimitive := true. fullArgs := args. locals addAll: args. args := OrderedCollection new. fullArgs with: parmSpecs do: [:argName :spec | self declarationAt: argName put: (spec ccgDeclareCForVar: argName)]. + needsCheckSuccessExpr := false. aStmt isAssignment ifTrue: [self declarationAt: aStmt variable name put: (rcvrSpec ccgDeclareCForVar: aStmt variable name). + loadExpressionSource := rcvrSpec + ccg: SmartSyntaxPluginCodeGenerator new + prolog: [:expr | aStmt variable name, ' := ', expr] + expr: aStmt variable name + index: fullArgs size. + needsCheckSuccessExpr := (loadExpressionSource includesSubstring: ' success:') + or: [InterpreterProxy checkingStackLoads anySatisfy: + [:checkingSelector| + loadExpressionSource includesSubstring: checkingSelector]]. + sStream nextPutAll: (self statementsFor: loadExpressionSource varName: '')]. - sStream nextPutAll: (self - statementsFor: - (rcvrSpec - ccg: SmartSyntaxPluginCodeGenerator new - prolog: [:expr | aStmt variable name, ' := ', expr] - expr: aStmt variable name - index: fullArgs size) - varName: '')]. + "only add the failure guard if required" + needsCheckSuccessExpr ifTrue: - "only add the failure guard if there are args or it is an assignment" - (fullArgs isEmpty not or: [aStmt isAssignment]) ifTrue: [sStream nextPutAll: self checkSuccessExpr]. + ^true! - ^true. - ! Item was changed: ----- Method: SmartSyntaxPluginTMethod>>namedPrimitiveProlog (in category 'specifying primitives') ----- namedPrimitiveProlog "Generate the code for a primitive:parameters:... send. This is in two parts. The first is validation; the second is coercing assignment." | statements validator validations assigner | fullArgs isEmpty ifTrue: [^#()]. validator := SmartSyntaxPluginValidationCodeGenerator new. statements := OrderedCollection new. validations := fullArgs withIndexCollect: [:arg :i| (parmSpecs at: i) ccg: validator prolog: nil expr: arg index: (fullArgs size - i)]. validations := validations reject: [:validation| validation isNil]. validations isEmpty ifFalse: [statements addAllLast: (self statementsFor: (String streamContents: [:s| s nextPut: $(. validations do: [:validation| s nextPut: $(; nextPutAll: validation; nextPut: $)] separatedBy: [s crtab; nextPutAll: 'and: [']. s next: validations size - 1 put: $]. + s nextPutAll: ') ifFalse: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]']) - s nextPutAll: ') ifFalse:'; - crtab: 2; - nextPutAll: '[interpreterProxy primitiveFailFor: PrimErrBadArgument.'; - crtab: 2; - nextPutAll: '^nil'; - crtab: 2; - nextPut: $]]) varName: '')]. assigner := SmartSyntaxPluginAssignmentCodeGenerator new. fullArgs withIndexDo: [:arg :i| statements addAllLast: (self statementsFor: ((parmSpecs at: i) ccg: assigner prolog: nil + expr: arg + index: (fullArgs size - i)) - expr: arg - index: (fullArgs size - i)) varName: '')]. ^statements!

1 0

VM Maker: VMMaker.oscog-eem.3001.mcz
by commits＠source.squeak.org 27 Jul '21

27 Jul '21

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.3001.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.3001 Author: eem Time: 27 July 2021, 12:15:10.344248 pm UUID: 36517924-4356-4398-91f4-383c14d4c0d0 Ancestors: VMMaker.oscog-mt.3000 Fix two errors in the new compileInterpreterPrimitive:flags: : - remember to zero primFailCode before retrying a primitive after encountering forwarders - reload the stack pointer correctly on CISCs. The retpc of the send is on top of stack, below the last primitive argument. =============== Diff against VMMaker.oscog-mt.3000 =============== Item was added: + ----- Method: CogAbstractInstruction>>genLoadStackPointersForFastPrimCall: (in category 'smalltalk calling convention') ----- + genLoadStackPointersForFastPrimCall: spareReg + "Switch back to the Smalltalk stack where there may be a C return address on top of stack below + the last primitive argument. Assign SPReg first because typically it is used immediately afterwards." + self hasLinkRegister + ifTrue: [self genLoadStackPointers] + ifFalse: + [cogit + MoveAw: cogit stackPointerAddress R: spareReg; + "N.B. dont use SubCq:R:R: since it may generate MoveR:spareRegR:SPReg;SubCq:wordSize R:SPReg + which allows for the ret addr to be smashed by an interrupt between the two insructions." + SubCq: objectMemory wordSize R: spareReg; + MoveR: spareReg R: SPReg; + MoveAw: cogit framePointerAddress R: FPReg]. + ^0! Item was changed: ----- Method: Cogit>>handleCallOrJumpSimulationTrap: (in category 'simulation only') ----- handleCallOrJumpSimulationTrap: aProcessorSimulationTrap <doNotGenerate> | evaluable function memory result savedFramePointer savedStackPointer savedArgumentCount retpc invalidStackPointersExpected | "Execution of a single instruction must be within the processorLock critical section to ensure simulation traps are executed atomically. However, at this point control is leaving machine code and entering the run-time and hence the lock must be released." processorLock primitiveExitCriticalSection. "This is a hack fix before we revise the simulators. When a jump call is made, the next pc is effectively the return address on the stack, not the instruction following the jump." aProcessorSimulationTrap type == #jump ifTrue: [processor hackFixNextPCOfJumpFor: aProcessorSimulationTrap using: objectMemory]. evaluable := simulatedTrampolines at: aProcessorSimulationTrap address ifAbsent: [self errorProcessingSimulationTrap: aProcessorSimulationTrap in: simulatedTrampolines]. function := evaluable isBlock ifTrue: ['aBlock; probably some plugin primitive'] ifFalse: [evaluable receiver == backEnd ifTrue: "this is for invoking ARMv5 floating-point intrinsics, and for the short-cut tracing trampolines" [^self handleABICallOrJumpSimulationTrap: aProcessorSimulationTrap evaluable: evaluable]. evaluable selector]. memory := coInterpreter memory. function == #interpret ifTrue: "i.e. we're here via ceInvokeInterpret/ceReturnToInterpreterTrampoline and should discard all state back to enterSmalltalkExecutiveImplementation" [self recordInstruction: {'(simulated jump call of '. aProcessorSimulationTrap address. '/'. function. ')'}. "self halt: evaluable selector." clickConfirm ifTrue: [(self confirm: 'skip jump to interpret?') ifFalse: [clickConfirm := false. self halt]]. processor simulateJumpCallOf: aProcessorSimulationTrap address memory: memory. coInterpreter reenterInterpreter. "NOTREACHED" self halt]. invalidStackPointersExpected := false. function ~~ #ceBaseFrameReturn: ifTrue: [evaluable isBlock ifTrue: "external primitives..." ["The only acceptable exception to the rule are fast C primitive calls..." (methodZone cogMethodContaining: (self mostLikelyPrimInvocationPC: processor pc or: (processor leafRetpcIn: memory))) ifNil: [self assertf: 'call to block evaluable from non-external method'] ifNotNil: [:cogMethod| self assert: (self cogMethodHasExternalPrim: cogMethod). (coInterpreter hasFastCLinkage: cogMethod methodObject) ifTrue: [invalidStackPointersExpected := true. coInterpreter nilLocalFP] ifFalse: [coInterpreter assertValidExternalStackPointers]]] ifFalse: [coInterpreter assertValidExternalStackPointers]]. processor simulateCallOf: aProcessorSimulationTrap address nextpc: aProcessorSimulationTrap nextpc memory: memory. retpc := processor retpcIn: memory. self recordInstruction: {'(simulated call of '. aProcessorSimulationTrap address. '/'. function. ')'}. savedFramePointer := coInterpreter framePointer. savedStackPointer := coInterpreter stackPointer. savedArgumentCount := coInterpreter argumentCount. result := ["self halt: evaluable selector." clickConfirm ifTrue: [(self confirm: 'skip run-time call?') ifFalse: [clickConfirm := false. self halt]]. evaluable valueWithArguments: (processor postCallArgumentsNumArgs: evaluable numArgs in: memory)] on: ReenterMachineCode do: [:ex| ex return: #continueNoReturn]. invalidStackPointersExpected ifFalse: [coInterpreter assertValidExternalStackPointers]. "Verify the stack layout assumption compileInterpreterPrimitive: makes, provided we've not called something that has built a frame, such as closure value or evaluate method, or switched frames, such as primitiveSignal, primitiveWait, primitiveResume, primitiveSuspend et al." (function beginsWith: 'primitive') ifTrue: [coInterpreter primFailCode = 0 ifTrue: [(CogVMSimulator stackAlteringPrimitives includes: function) ifFalse: ["This is a rare case (e.g. in Scorch where a married context's sender is set to nil on trapTrpped and hence the stack layout is altered." (function == #primitiveSlotAtPut and: [objectMemory isContext: (coInterpreter frameReceiver: coInterpreter framePointer)]) ifFalse: [self assert: savedFramePointer = coInterpreter framePointer. self assert: savedStackPointer + (savedArgumentCount * objectMemory wordSize) = coInterpreter stackPointer]]] ifFalse: [self assert: savedFramePointer = coInterpreter framePointer. self assert: savedStackPointer = coInterpreter stackPointer]]. result ~~ #continueNoReturn ifTrue: [self recordInstruction: {'(simulated return to '. processor retpcIn: memory. ')'}. processor simulateReturnIn: memory. self assert: processor pc = retpc. processor smashCallerSavedRegistersWithValuesFrom: 16r80000000 by: objectMemory wordSize]. self assert: (result isInteger "an oop result" or: [result == coInterpreter or: [result == objectMemory + or: [#(nil true false continueNoReturn) includes: result]]]). - or: [result == nil - or: [result == #continueNoReturn]]]]). processor cResultRegister: (result ifNil: [0] ifNotNil: [result isInteger ifTrue: [result] ifFalse: [16rF00BA222]])! Item was changed: ----- Method: Integer>>asUnsignedInteger (in category '*VMMaker-interpreter simulator') ----- asUnsignedInteger + "Since the simulator deals with positive integers most of the time we assert that the receiver is greater than + zero. One exception is stack pointers in the StackInterpreterSimulator, which are negative. Another is the fast + isLargeIntegerInstance: test in SpurMemoryManager. So don't fail in these cases." - "Since the simulator deals with positive integers most of the time we assert that the receiver is greater than zero. - But one major exception is stack pointers in the StackInterpreterSimulator, which are negative. So don't fail - if the sender is a StackInterpreter and the receiver could be a stack pointer." self >= 0 ifFalse: + [thisContext sender selector == #isLargeIntegerInstance: ifTrue: + [^self bitAnd: (1 bitShift: thisContext sender receiver wordSize * 8) - 1]. + self assert: (((thisContext sender methodClass includesBehavior: CoInterpreter) - [self assert: (((thisContext sender methodClass includesBehavior: CoInterpreter) and: [self between: Cogit maxNegativeErrorCode and: -1]) or: [(thisContext sender methodClass includesBehavior: StackInterpreter) and: [thisContext sender receiver stackPages couldBeFramePointer: self]])]. + ^self! Item was changed: Cogit subclass: #SimpleStackBasedCogit + instanceVariableNames: 'primitiveGeneratorTable introspectionDataIndex introspectionData' - instanceVariableNames: 'primitiveGeneratorTable primSetFunctionLabel primInvokeInstruction introspectionDataIndex introspectionData' classVariableNames: '' poolDictionaries: 'VMMethodCacheConstants VMObjectIndices VMSqueakClassIndices' category: 'VMMaker-JIT'! !SimpleStackBasedCogit commentStamp: '<historical>' prior: 0! I am the stage one JIT for Cog that does not attempt to eliminate the stack via deferred code generation.! Item was changed: ----- Method: SimpleStackBasedCogit>>compileInterpreterPrimitive:flags: (in category 'primitive generators') ----- compileInterpreterPrimitive: primitiveRoutine flags: flags "Compile a call to an interpreter primitive. Call the C routine with the usual stack-switching dance, test the primFailCode and then either return on success or continue to the method body." <var: #primitiveRoutine declareC: 'void (*primitiveRoutine)(void)'> | jmp jmpSamplePrim continuePostSamplePrim jmpSampleNonPrim continuePostSampleNonPrim | "Save processor fp, sp and return pc in the interpreter's frame stack and instruction pointers" self genExternalizePointersForPrimitiveCall. "Switch to the C stack." self genLoadCStackPointersForPrimCall. (flags anyMask: PrimCallCollectsProfileSamples) ifTrue: ["Test nextProfileTick for being non-zero and call checkProfileTick if so" objectMemory wordSize = 4 ifTrue: [self MoveAw: coInterpreter nextProfileTickAddress R: TempReg. self MoveAw: coInterpreter nextProfileTickAddress + objectMemory wordSize R: ClassReg. self OrR: TempReg R: ClassReg] ifFalse: [self MoveAw: coInterpreter nextProfileTickAddress R: TempReg. self CmpCq: 0 R: TempReg]. "If set, jump to record sample call." jmpSampleNonPrim := self JumpNonZero: 0. continuePostSampleNonPrim := self Label]. "Old old full prim trace is in VMMaker-eem.550 and prior. Old simpler full prim trace is in VMMaker-eem.2969 and prior." (coInterpreter recordPrimTraceForMethod: methodObj) ifTrue: [self genFastPrimTraceUsing: ClassReg and: SendNumArgsReg]. "Clear the primFailCode and set argumentCount" self MoveCq: 0 R: TempReg. self MoveR: TempReg Aw: coInterpreter primFailCodeAddress. methodOrBlockNumArgs ~= 0 ifTrue: [self MoveCq: methodOrBlockNumArgs R: TempReg]. self MoveR: TempReg Aw: coInterpreter argumentCountAddress. "If required, set primitiveFunctionPointer and newMethod" (flags anyMask: PrimCallNeedsPrimitiveFunction) ifTrue: [self MoveCw: primitiveRoutine asInteger R: TempReg. - primSetFunctionLabel := self MoveR: TempReg Aw: coInterpreter primitiveFunctionPointerAddress]. (flags anyMask: PrimCallNeedsNewMethod+PrimCallMayEndureCodeCompaction) ifTrue: ["The ceActivateFailingPrimitiveMethod: machinery can't handle framelessness." (flags anyMask: PrimCallMayEndureCodeCompaction) ifTrue: [needsFrame := true]. methodLabel addDependent: (self annotateAbsolutePCRef: (self MoveCw: methodLabel asInteger R: ClassReg)). self MoveMw: (self offset: CogMethod of: #methodObject) r: ClassReg R: TempReg. self MoveR: TempReg Aw: coInterpreter newMethodAddress]. "Invoke the primitive" self PrefetchAw: coInterpreter primFailCodeAddress. (flags anyMask: PrimCallMayEndureCodeCompaction) ifTrue: "Sideways call the C primitive routine so that we return through cePrimReturnEnterCogCode." ["On Spur ceActivateFailingPrimitiveMethod: would like to retry if forwarders are found. So insist on PrimCallNeedsPrimitiveFunction being set too." objectMemory hasSpurMemoryManagerAPI ifTrue: [self assert: (flags anyMask: PrimCallNeedsPrimitiveFunction)]. backEnd genMarshallNArgs: 0 arg: nil arg: nil arg: nil arg: nil; genSubstituteReturnAddress: ((flags anyMask: PrimCallCollectsProfileSamples) ifTrue: [cePrimReturnEnterCogCodeProfiling] ifFalse: [cePrimReturnEnterCogCode]). + self JumpFullRT: primitiveRoutine asInteger. - primInvokeInstruction := self JumpFullRT: primitiveRoutine asInteger. jmp := jmpSamplePrim := continuePostSamplePrim := nil] ifFalse: ["Call the C primitive routine." backEnd genMarshallNArgs: 0 arg: 0 arg: 0 arg: 0 arg: 0. + self CallFullRT: primitiveRoutine asInteger. - primInvokeInstruction := self CallFullRT: primitiveRoutine asInteger. backEnd genRemoveNArgsFromStack: 0. (flags anyMask: PrimCallCollectsProfileSamples) ifTrue: [self assert: (flags anyMask: PrimCallNeedsNewMethod). "Test nextProfileTick for being non-zero and call checkProfileTick if so" objectMemory wordSize = 4 ifTrue: [self MoveAw: coInterpreter nextProfileTickAddress R: TempReg. self MoveAw: coInterpreter nextProfileTickAddress + objectMemory wordSize R: ClassReg. self OrR: TempReg R: ClassReg] ifFalse: [self MoveAw: coInterpreter nextProfileTickAddress R: TempReg. self CmpCq: 0 R: TempReg]. "If set, jump to record sample call." jmpSamplePrim := self JumpNonZero: 0. continuePostSamplePrim := self Label]. objectRepresentation maybeCompileRetryOnPrimitiveFail: primitiveIndex. "Switch back to the Smalltalk stack. Stack better be in either of these two states: success: stackPointer -> result (was receiver) arg1 ... argN return pc failure: receiver arg1 ... stackPointer -> argN return pc In either case we can push the instructionPointer or load it into the LinkRegister to reestablish the return pc" self MoveAw: coInterpreter instructionPointerAddress R: (backEnd hasLinkRegister ifTrue: [LinkReg] ifFalse: [ClassReg]). backEnd genLoadStackPointers. "Test primitive failure" self MoveAw: coInterpreter primFailCodeAddress R: TempReg. backEnd hasLinkRegister ifFalse: [self PushR: ClassReg]. "Restore return pc on CISCs" self flag: 'ask concrete code gen if move sets condition codes?'. self CmpCq: 0 R: TempReg. jmp := self JumpNonZero: 0. "Fetch result from stack" self MoveMw: (backEnd hasLinkRegister ifTrue: [0] ifFalse: [objectMemory wordSize]) r: SPReg R: ReceiverResultReg. self RetN: objectMemory wordSize]. "return to caller, popping receiver" (flags anyMask: PrimCallCollectsProfileSamples) ifTrue: ["The sample is collected by cePrimReturnEnterCogCode for external calls" jmpSamplePrim ifNotNil: ["Call ceCheckProfileTick: to record sample and then continue." jmpSamplePrim jmpTarget: self Label. self assert: (flags anyMask: PrimCallNeedsNewMethod). self CallFullRT: (self cCode: [#ceCheckProfileTick asUnsignedIntegerPtr] inSmalltalk: [self simulatedTrampolineFor: #ceCheckProfileTick]). "reenter the post-primitive call flow" self Jump: continuePostSamplePrim]. "Null newMethod and call ceCheckProfileTick: to record sample and then continue. ceCheckProfileTick will map null/0 to coInterpreter nilObject" jmpSampleNonPrim jmpTarget: self Label. self MoveCq: 0 R: TempReg. self MoveR: TempReg Aw: coInterpreter newMethodAddress. self CallFullRT: (self cCode: [#ceCheckProfileTick asUnsignedIntegerPtr] inSmalltalk: [self simulatedTrampolineFor: #ceCheckProfileTick]). "reenter the post-primitive call flow" self Jump: continuePostSampleNonPrim]. jmp ifNotNil: ["Jump to restore of receiver reg and proceed to frame build for failure." jmp jmpTarget: self Label. "Restore receiver reg from stack. If on RISCs ret pc is in LinkReg, if on CISCs ret pc is on stack." self MoveMw: objectMemory wordSize * (methodOrBlockNumArgs + (backEnd hasLinkRegister ifTrue: [0] ifFalse: [1])) r: SPReg R: ReceiverResultReg]. ^0! Item was changed: ----- Method: SimpleStackBasedCogit>>compileOnStackExternalPrimitive: (in category 'primitive generators') ----- compileOnStackExternalPrimitive: primitiveRoutine "Compile a fast call of a C primitive using the current stack page, avoiding the stack switch except on failure. This convention still uses stackPointer and argumentCount to access operands. Push all operands to the stack, assign stackPointer, argumentCount, and zero primFailCode. Make the call (saving a LinkReg if required). Test for failure and return. On failure on Spur, if there is an accessor depth, assign framePointer and newMethod, do the stack switch, call checkForAndFollowForwardedPrimitiveState, and loop back if forwarders are found. + Fall through to frame build." - Fall throguh tio frame build." <var: #primitiveRoutine declareC: 'void (*primitiveRoutine)(void)'> | jmp retry calleeSavedReg | "Clear the primFailCode and set argumentCount" self MoveCq: 0 R: TempReg. self MoveR: TempReg Aw: coInterpreter primFailCodeAddress. methodOrBlockNumArgs ~= 0 ifTrue: [self MoveCq: methodOrBlockNumArgs R: TempReg]. self MoveR: TempReg Aw: coInterpreter argumentCountAddress. self genExternalizeStackPointerForFastPrimitiveCall. backEnd hasLinkRegister ifTrue: [self PushR: LinkReg]. retry := self Label. calleeSavedReg := NoReg. (SPReg ~= NativeSPReg and: [(self isCalleeSavedReg: SPReg) not]) ifTrue: [calleeSavedReg := self availableRegisterOrNoneIn: ABICalleeSavedRegisterMask. self deny: calleeSavedReg = NoReg. self MoveR: SPReg R: calleeSavedReg]. self CallFullRT: primitiveRoutine. self MoveAw: coInterpreter primFailCodeAddress R: TempReg. calleeSavedReg ~= NoReg ifTrue: [self MoveR: calleeSavedReg R: SPReg]. self CmpCq: 0 R: TempReg. jmp := self JumpNonZero: 0. backEnd hasLinkRegister ifTrue: [self PopR: LinkReg] ifFalse: [self PopR: TempReg]. "i.e. save retpc" self MoveAw: coInterpreter stackPointerAddress R: SPReg. self PopR: ReceiverResultReg. backEnd hasLinkRegister ifFalse: [self PushR: TempReg]. "i.e. restore retpc" self RetN: 0. jmp jmpTarget: self Label. (objectRepresentation hasSpurMemoryManagerAPI and: [(coInterpreter accessorDepthForExternalPrimitiveMethod: methodObj) >= 0]) ifTrue: + [| skip | + "Given that following primitive state to the accessor depth is recursive, we're asking for - ["Given that following primitive state to the accessor depth is recursive, we're asking for trouble if we run the fixup on the Smalltalk stack page. Run it on the full C stack instead. This won't be a performance issue since primitive failure should be very rare." self MoveR: FPReg Aw: coInterpreter framePointerAddress. + self MoveCw: primitiveRoutine asInteger R: TempReg. + self MoveR: TempReg Aw: coInterpreter primitiveFunctionPointerAddress. self genLoadCStackPointersForPrimCall. + methodLabel addDependent: - methodLabel addDependent: (self annotateAbsolutePCRef: (self MoveCw: methodLabel asInteger R: ClassReg)). self MoveMw: (self offset: CogMethod of: #methodObject) r: ClassReg R: TempReg. self MoveR: TempReg Aw: coInterpreter newMethodAddress. self CallFullRT: (self cCode: [#checkForAndFollowForwardedPrimitiveState asUnsignedIntegerPtr] inSmalltalk: [self simulatedTrampolineFor: #checkForAndFollowForwardedPrimitiveState]). + backEnd genLoadStackPointersForFastPrimCall: ClassReg. - backEnd genLoadStackPointers. self CmpCq: 0 R: ABIResultReg. + skip := self JumpZero: 0. + self MoveCq: 0 R: TempReg. + self MoveR: TempReg Aw: coInterpreter primFailCodeAddress. + self Jump: retry. + skip jmpTarget: self Label]. - self JumpNonZero: retry]. ^0!

1 0

SqueakSSL plugin issue
by Levente Uzonyi 27 Jul '21

27 Jul '21

Hi All, I ran into a case where primitiveEncrypt of the SqueakSSL plugin returns -1. On the image side, SqueakSSL >> #primitiveSSL:encrypt:startingAt:count:into: is sent with srcBuf and dstBuf being two 4096 long ByteArrays, start is 1 and length is 4096, so the input has the same size as the output, and all the bytes are to be encrypted. I enabled logging, and the following two lines were produced: sqEncryptSSL: Encrypting 4096 bytes sqCopyBioSSL: 4125 bytes pending; buffer size 4096 Somehow, the 4096 bytes became 4125 bytes, which may be normal, but the code clearly expects no more than 4096 bytes to be there[1]. The hardcoded -1 is fishy on its own, and perhaps BIO_read is able to handle the situation and read only as many bytes that fit into the output buffer. If so, the guard is unnecessary, but I'm not familiar with the code at all, so I don't know what's the correct thing to do. I can work it around by providing smaller chunks or larger buffers but I think it would be forth fixing this. Any ideas? Levente [1] https://github.com/OpenSmalltalk/opensmalltalk-vm/blob/d494240736f7c0309e3e…

3 2

CogVM source as per VMMaker.oscog-eem.2998 - Linux32 ARMv6
by Bruce O'Neel 27 Jul '21

27 Jul '21

Hi, This builds with the attached diffs to fix a few file include orders and runs. Thanks very very very much for the recent fixes! cheers bruce

3 3

VM Maker: VMMaker.oscog-mt.3000.mcz
by commits＠source.squeak.org 27 Jul '21

27 Jul '21

Marcel Taeumel uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-mt.3000.mcz ==================== Summary ==================== Name: VMMaker.oscog-mt.3000 Author: mt Time: 27 July 2021, 1:57:54.283308 pm UUID: 36b6a322-01ac-0e4b-b480-df520aed8c26 Ancestors: VMMaker.oscog-eem.2999 Fixes "implicit declaration of function" warnings in FileCopyPlugin. (I suspect that there are more plugins omitting to truthfully answer to #hasHeaderFile.) =============== Diff against VMMaker.oscog-eem.2999 =============== Item was added: + ----- Method: FileCopyPlugin class>>hasHeaderFile (in category 'translation') ----- + hasHeaderFile + + ^ true!

2 1

[OpenSmalltalk/opensmalltalk-vm] 4dc0c7: Fixes Newspeak builds. (CogVM sources as per VMMak...
by Marcel Taeumel 27 Jul '21

27 Jul '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 4dc0c70c37ff9f1722f87c8f4c5f9da2b8375bcc https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/4dc0c70c37ff9f1722… Author: Marcel Taeumel <marcel.taeumel(a)hpi.de> Date: 2021-07-27 (Tue, 27 Jul 2021) Changed paths: A nsspur64src/vm/_variable_order M nsspur64src/vm/cogit.h M nsspur64src/vm/cogitARMv8.c M nsspur64src/vm/cogitX64SysV.c M nsspur64src/vm/cogitX64WIN64.c M nsspur64src/vm/cointerp.c M nsspur64src/vm/cointerp.h M nsspur64src/vm/gcc3x-cointerp.c A nsspur64src/vm/variable_order A nsspursrc/vm/_variable_order M nsspursrc/vm/cogit.h M nsspursrc/vm/cogitARMv5.c M nsspursrc/vm/cogitIA32.c M nsspursrc/vm/cogitMIPSEL.c M nsspursrc/vm/cointerp.c M nsspursrc/vm/cointerp.h M nsspursrc/vm/gcc3x-cointerp.c A nsspursrc/vm/variable_order M nsspurstack64src/vm/gcc3x-interp.c M nsspurstack64src/vm/interp.c M nsspurstacksrc/vm/gcc3x-interp.c M nsspurstacksrc/vm/interp.c Log Message: ----------- Fixes Newspeak builds. (CogVM sources as per VMMaker.oscog-eem.2997)

1 0

[OpenSmalltalk/opensmalltalk-vm] 06d1b2: Fixes include order for ARM32 builds. Thanks to Br...
by Marcel Taeumel 27 Jul '21

27 Jul '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 06d1b2d208b64b534eff81d8bb51a4abd8c2146d https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/06d1b2d208b64b534e… Author: Marcel Taeumel <marcel.taeumel(a)hpi.de> Date: 2021-07-27 (Tue, 27 Jul 2021) Changed paths: M build.linux32ARMv6/squeak.cog.spur/build/mvm M platforms/Cross/plugins/BitBltPlugin/BitBltArmSimd.c M platforms/Cross/plugins/BitBltPlugin/BitBltDispatch.c M platforms/Cross/plugins/BitBltPlugin/BitBltGeneric.c M platforms/Cross/plugins/BitBltPlugin/BitBltInternal.h Log Message: ----------- Fixes include order for ARM32 builds. Thanks to Bruce O'Neel! Commit: 4fc7ec0e773cf823ef0ef44d5199d646a1100481 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/4fc7ec0e773cf823ef… Author: Marcel Taeumel <marcel.taeumel(a)hpi.de> Date: 2021-07-27 (Tue, 27 Jul 2021) Changed paths: M build.linux32ARMv6/squeak.cog.spur/build/mvm M platforms/Cross/plugins/BitBltPlugin/BitBltArmSimd.c M platforms/Cross/plugins/BitBltPlugin/BitBltDispatch.c M platforms/Cross/plugins/BitBltPlugin/BitBltGeneric.c M platforms/Cross/plugins/BitBltPlugin/BitBltInternal.h Log Message: ----------- Merge pull request #577 from marceltaeumel/marceltaeumel/arm32_include_order Fixes include order for ARM32 builds. Thanks to Bruce O'Neel! Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/425d73f29350...4f…

1 0

CogVM source as per VMMaker.oscog-eem.2998 - Linux64 ARMv8
by Bruce O'Neel 27 Jul '21

27 Jul '21

Hi, Like linux64x64 this builds. And starts. But then crashes. I'll spend some time looking at this later today. Segmentation fault Tue Jul 27 08:06:57 2021 /home/edoneel/tmp/opensmalltalk-vm/build.linux64ARMv8/squeak.cog.spur/build/squeak [http://squeak.cog.spur/build/squeak] Squeak VM version: 5.0-202107261855 Mon Jul 26 22:07:39 CEST 2021 gcc 7 [Production Spur 64-bit VM] Built from: CoInterpreter VMMaker.oscog-eem.2997 uuid: 2d21044e-f2db-40ea-91da-ba273faf9093 Jul 26 2021 With: StackToRegisterMappingCogit VMMaker.oscog-eem.2995 uuid: d5fbffa6-5db7-4c4d-8937-a45036ab3015 Jul 26 2021 Revision: VM: 202107261855 edoneel@glace:tmp/opensmalltalk-vm Date: Mon Jul 26 11:55:05 2021 CommitHash: 425d73f29 Plugins: 202107261855 edoneel@glace:tmp/opensmalltalk-vm Build host: Linux glace 4.9.140-tegra #1 SMP PREEMPT Tue Oct 27 21:02:37 PDT 2020 aarch64 aarch64 aarch64 GNU/Linux plugin path: /home/edoneel/tmp/opensmalltalk-vm/build.linux64ARMv8/squeak.cog.spur/build/ [http://squeak.cog.spur/build/] [default: /home/edoneel/tmp/opensmalltalk-vm/build.linux64ARMv8/squeak.cog.spur/build/ [http://squeak.cog.spur/build/]] C stack backtrace & registers: x0 0x558fdefdf0 x1 0x558ff8e000 x2 0x558ff8e000 x3 0xd4400000 x4 0x2a13641000 x5 0x2a13641004 x6 0xf840861daa1d03f0 x7 0x91002210f840861e x8 0xd503201fd65f03c0 x9 0x2a13641000 x10 0xd4400000d4400000 x11 0x66a688a0e2eae200 x12 0xf85e83a500000001 x13 0x97fb9e1598000184 x14 (nil) x15 0x558ff85230 x16 0x556b83adf8 x17 0x7fa3df5f80 x18 0x7fe6febe58 x19 0x556b853000 x20 0xd84766a104220 x21 0x1 x22 0x55903cf1b8 x23 0x558fe6ac30 x24 0x1 x25 0x556b853000 x26 0x556b8fe0e0 x27 0x1 x29 0x556b8534f8 fp 0x7fe6febec0 lr 0x556b7158a8 sp 0x7fe6febec0 *[0x558fdee004] ./opensmalltalk-vm/build.linux64ARMv8/squeak.cog.spur/build/squeak(+0x36834)[0x556b70b834 [http://squeak.cog.spur/build/squeak(+0x36834)[0x556b70b834]] [0x8400000000] Smalltalk stack dump: 0x7fe7003d70 I MenuItemMorph>drawSubMenuMarkerOn: 0x55903cf1b8: a(n) MenuItemMorph 0x7fe7003da8 M MenuItemMorph>drawOn: 0x55903cf1b8: a(n) MenuItemMorph 0x7fe7003de0 M FormCanvas(Canvas)>draw: 0x559051da60: a(n) FormCanvas 0x7fe7003e18 M FormCanvas(Canvas)>drawMorph: 0x559051da60: a(n) FormCanvas 0x7fe7003e50 M MenuItemMorph(Morph)>fullDrawOn: 0x55903cf1b8: a(n) MenuItemMorph 0x7fe7003e88 M FormCanvas(Canvas)>fullDraw: 0x559051da60: a(n) FormCanvas 0x7fe7003ec0 M FormCanvas(Canvas)>fullDrawMorph: 0x559051da60: a(n) FormCanvas 0x7fe7003f00 M [] in MenuMorph>drawSubmorphsOn: 0x559036ab68: a(n) MenuMorph 0x7fe7003f40 M Array(SequenceableCollection)>reverseDo: 0x55903e6e58: a(n) Array 0x7fe7003f78 M [] in MenuMorph>drawSubmorphsOn: 0x559036ab68: a(n) MenuMorph 0x7fe6fef9e8 M MenuMorph(Morph)>drawSubmorphsOn: 0x559036ab68: a(n) MenuMorph 0x7fe6fefa20 M MenuMorph(Morph)>fullDrawOn: 0x559036ab68: a(n) MenuMorph 0x7fe6fefa58 M FormCanvas(Canvas)>fullDraw: 0x559051da60: a(n) FormCanvas 0x7fe6fefa90 M FormCanvas(Canvas)>fullDrawMorph: 0x559051da60: a(n) FormCanvas 0x7fe6fefb30 M [] in WorldState>drawWorld:submorphs:invalidAreasOn: 0x5591aee3e0: a(n) WorldState 0x7fe6fefb90 M Rectangle>allAreasOutsideList:startingAt:do: 0x55904ef918: a(n) Rectangle 0x7fe6fefbd8 M Rectangle>allAreasOutsideList:do: 0x55904ef918: a(n) Rectangle 0x7fe6fefc50 M [] in WorldState>drawWorld:submorphs:invalidAreasOn: 0x5591aee3e0: a(n) WorldState 0x7fe6fefc98 M Array(SequenceableCollection)>do: 0x559051ca70: a(n) Array 0x7fe6fefcf8 M WorldState>drawWorld:submorphs:invalidAreasOn: 0x5591aee3e0: a(n) WorldState 0x7fe6fefd68 M WorldState>displayWorld:submorphs: 0x5591aee3e0: a(n) WorldState 0x7fe6fefda8 M PasteUpMorph>privateOuterDisplayWorld 0x5591b10a88: a(n) PasteUpMorph 0x7fe6fefdd8 M PasteUpMorph>displayWorld 0x5591b10a88: a(n) PasteUpMorph 0x7fe6fefe18 M [] in WorldState>displayWorldSafely: 0x5591aee3e0: a(n) WorldState 0x7fe6fefe58 M FullBlockClosure(BlockClosure)>on:do: 0x5590515508: a(n) FullBlockClosure 0x7fe6fefea0 M WorldState>displayWorldSafely: 0x5591aee3e0: a(n) WorldState 0x7fe6fefee0 M WorldState>doOneCycleNowFor: 0x5591aee3e0: a(n) WorldState 0x7fe6feff18 M WorldState>doOneCycleFor: 0x5591aee3e0: a(n) WorldState 0x7fe6feff50 M PasteUpMorph>doOneCycle 0x5591b10a88: a(n) PasteUpMorph 0x7fe6feff80 M [] in MorphicProject>spawnNewProcess 0x5590fd08b0: a(n) MorphicProject 0x559395fa98 s [] in FullBlockClosure(BlockClosure)>newProcess Most recent primitives copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits basicNew: **StackOverflow** copyBits basicNew copyBits basicNew copyBits **StackOverflow** copyBits copyBits copyBits copyBits copyBits **StackOverflow** - // + @ copyBits **PrimitiveFailure** basicNew decompress:fromByteArray:at: copyBits width bottom height height primDisplayString:from:to:map:xTable:kern: primDisplayString:from:to:map:xTable:kern: **CompactCode** stack page bytes 8192 available headroom 5652 minimum unused headroom 6104 (Segmentation fault) Segmentation fault Tue Jul 27 08:06:57 2021 /home/edoneel/tmp/opensmalltalk-vm/build.linux64ARMv8/squeak.cog.spur/build/squeak [http://squeak.cog.spur/build/squeak] Squeak VM version: 5.0-202107261855 Mon Jul 26 22:07:39 CEST 2021 gcc 7 [Production Spur 64-bit VM] Built from: CoInterpreter VMMaker.oscog-eem.2997 uuid: 2d21044e-f2db-40ea-91da-ba273faf9093 Jul 26 2021 With: StackToRegisterMappingCogit VMMaker.oscog-eem.2995 uuid: d5fbffa6-5db7-4c4d-8937-a45036ab3015 Jul 26 2021 Revision: VM: 202107261855 edoneel@glace:tmp/opensmalltalk-vm Date: Mon Jul 26 11:55:05 2021 CommitHash: 425d73f29 Plugins: 202107261855 edoneel@glace:tmp/opensmalltalk-vm Build host: Linux glace 4.9.140-tegra #1 SMP PREEMPT Tue Oct 27 21:02:37 PDT 2020 aarch64 aarch64 aarch64 GNU/Linux plugin path: /home/edoneel/tmp/opensmalltalk-vm/build.linux64ARMv8/squeak.cog.spur/build/ [http://squeak.cog.spur/build/] [default: /home/edoneel/tmp/opensmalltalk-vm/build.linux64ARMv8/squeak.cog.spur/build/ [http://squeak.cog.spur/build/]] C stack backtrace & registers: x0 0x558fdefdf0 x1 0x558ff8e000 x2 0x558ff8e000 x3 0xd4400000 x4 0x2a13641000 x5 0x2a13641004 x6 0xf840861daa1d03f0 x7 0x91002210f840861e x8 0xd503201fd65f03c0 x9 0x2a13641000 x10 0xd4400000d4400000 x11 0x66a688a0e2eae200 x12 0xf85e83a500000001 x13 0x97fb9e1598000184 x14 (nil) x15 0x558ff85230 x16 0x556b83adf8 x17 0x7fa3df5f80 x18 0x7fe6febe58 x19 0x556b853000 x20 0xd84766a104220 x21 0x1 x22 0x55903cf1b8 x23 0x558fe6ac30 x24 0x1 x25 0x556b853000 x26 0x556b8fe0e0 x27 0x1 x29 0x556b8534f8 fp 0x7fe6febec0 lr 0x556b7158a8 sp 0x7fe6febec0 *[0x558fdee004] ./opensmalltalk-vm/build.linux64ARMv8/squeak.cog.spur/build/squeak(+0x36834)[0x556b70b834 [http://squeak.cog.spur/build/squeak(+0x36834)[0x556b70b834]] [0x8400000000] Smalltalk stack dump: 0x7fe7003d70 I MenuItemMorph>drawSubMenuMarkerOn: 0x55903cf1b8: a(n) MenuItemMorph 0x7fe7003da8 M MenuItemMorph>drawOn: 0x55903cf1b8: a(n) MenuItemMorph 0x7fe7003de0 M FormCanvas(Canvas)>draw: 0x559051da60: a(n) FormCanvas 0x7fe7003e18 M FormCanvas(Canvas)>drawMorph: 0x559051da60: a(n) FormCanvas 0x7fe7003e50 M MenuItemMorph(Morph)>fullDrawOn: 0x55903cf1b8: a(n) MenuItemMorph 0x7fe7003e88 M FormCanvas(Canvas)>fullDraw: 0x559051da60: a(n) FormCanvas 0x7fe7003ec0 M FormCanvas(Canvas)>fullDrawMorph: 0x559051da60: a(n) FormCanvas 0x7fe7003f00 M [] in MenuMorph>drawSubmorphsOn: 0x559036ab68: a(n) MenuMorph 0x7fe7003f40 M Array(SequenceableCollection)>reverseDo: 0x55903e6e58: a(n) Array 0x7fe7003f78 M [] in MenuMorph>drawSubmorphsOn: 0x559036ab68: a(n) MenuMorph 0x7fe6fef9e8 M MenuMorph(Morph)>drawSubmorphsOn: 0x559036ab68: a(n) MenuMorph 0x7fe6fefa20 M MenuMorph(Morph)>fullDrawOn: 0x559036ab68: a(n) MenuMorph 0x7fe6fefa58 M FormCanvas(Canvas)>fullDraw: 0x559051da60: a(n) FormCanvas 0x7fe6fefa90 M FormCanvas(Canvas)>fullDrawMorph: 0x559051da60: a(n) FormCanvas 0x7fe6fefb30 M [] in WorldState>drawWorld:submorphs:invalidAreasOn: 0x5591aee3e0: a(n) WorldState 0x7fe6fefb90 M Rectangle>allAreasOutsideList:startingAt:do: 0x55904ef918: a(n) Rectangle 0x7fe6fefbd8 M Rectangle>allAreasOutsideList:do: 0x55904ef918: a(n) Rectangle 0x7fe6fefc50 M [] in WorldState>drawWorld:submorphs:invalidAreasOn: 0x5591aee3e0: a(n) WorldState 0x7fe6fefc98 M Array(SequenceableCollection)>do: 0x559051ca70: a(n) Array 0x7fe6fefcf8 M WorldState>drawWorld:submorphs:invalidAreasOn: 0x5591aee3e0: a(n) WorldState 0x7fe6fefd68 M WorldState>displayWorld:submorphs: 0x5591aee3e0: a(n) WorldState 0x7fe6fefda8 M PasteUpMorph>privateOuterDisplayWorld 0x5591b10a88: a(n) PasteUpMorph 0x7fe6fefdd8 M PasteUpMorph>displayWorld 0x5591b10a88: a(n) PasteUpMorph 0x7fe6fefe18 M [] in WorldState>displayWorldSafely: 0x5591aee3e0: a(n) WorldState 0x7fe6fefe58 M FullBlockClosure(BlockClosure)>on:do: 0x5590515508: a(n) FullBlockClosure 0x7fe6fefea0 M WorldState>displayWorldSafely: 0x5591aee3e0: a(n) WorldState 0x7fe6fefee0 M WorldState>doOneCycleNowFor: 0x5591aee3e0: a(n) WorldState 0x7fe6feff18 M WorldState>doOneCycleFor: 0x5591aee3e0: a(n) WorldState 0x7fe6feff50 M PasteUpMorph>doOneCycle 0x5591b10a88: a(n) PasteUpMorph 0x7fe6feff80 M [] in MorphicProject>spawnNewProcess 0x5590fd08b0: a(n) MorphicProject 0x559395fa98 s [] in FullBlockClosure(BlockClosure)>newProcess Most recent primitives copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits truncated copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits copyBits basicNew: **StackOverflow** copyBits basicNew copyBits basicNew copyBits **StackOverflow** copyBits copyBits copyBits copyBits copyBits **StackOverflow** - // + @ copyBits **PrimitiveFailure** basicNew decompress:fromByteArray:at: copyBits width bottom height height primDisplayString:from:to:map:xTable:kern: primDisplayString:from:to:map:xTable:kern: **CompactCode** stack page bytes 8192 available headroom 5652 minimum unused headroom 6104 (Segmentation fault) Aborted (core dumped) edoneel@glace:~/tmp$

1 0

CogVM source as per VMMaker.oscog-eem.2998 - Linux64 x86-64
by Bruce O'Neel 27 Jul '21

27 Jul '21

Hi, Thanks for the changes! Now linux x86-64 builds! Very very very happy. cheers bruce

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
18
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev July 2021