Vm-dev February 2018

vm-dev@lists.squeakfoundation.org

27 participants
131 discussions

Re: [Vm-dev] [OpenSmalltalk/opensmalltalk-vm] fix the preparation of windows paths for dir_EntryLookup (#161)
by CyrilFerlicot 23 Feb '18

23 Feb '18

@nicolas-cellier-aka-nice Was your version implemented/integrated? Since there is no reference to this PR it's hard to know if it was redone. -- You are receiving this because you are subscribed to this thread. Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/161#issuecomment-368…

1 0

[OpenSmalltalk/opensmalltalk-vm] 8d6848: Well
by GitHub 23 Feb '18

23 Feb '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 8d684862cac7eacd6b4794186212a278bc151147 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/8d684862cac7eacd6b… Author: Tobias Pape <tobias(a)netshed.de> Date: 2018-02-23 (Fri, 23 Feb 2018) Changed paths: M platforms/unix/plugins/SqueakSSL/Makefile.inc Log Message: ----------- Well

1 0

[OpenSmalltalk/opensmalltalk-vm] 2d734d: [SqueakSSL] make older gcc/openssl more happy
by GitHub 23 Feb '18

23 Feb '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 2d734de2f934638b6cd5b4f51061c13aca6f5cf7 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/2d734de2f934638b6c… Author: Tobias Pape <tobias(a)netshed.de> Date: 2018-02-23 (Fri, 23 Feb 2018) Changed paths: M platforms/unix/plugins/SqueakSSL/Makefile.inc M platforms/unix/plugins/SqueakSSL/openssl_overlay.h Log Message: ----------- [SqueakSSL] make older gcc/openssl more happy also: fix a typo

1 0

[OpenSmalltalk/opensmalltalk-vm] 3ba9da: [SqueakSSL] improve OpenSSL overlay
by GitHub 23 Feb '18

23 Feb '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 3ba9dab9c3e52d1507d4d4133f67931b90b579a7 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/3ba9dab9c3e52d1507… Author: Tobias Pape <tobias(a)netshed.de> Date: 2018-02-23 (Fri, 23 Feb 2018) Changed paths: M platforms/unix/plugins/SqueakSSL/openssl_overlay.h M platforms/unix/plugins/SqueakSSL/sqUnixOpenSSL.c Log Message: ----------- [SqueakSSL] improve OpenSSL overlay Compiles against AND may runtime-load from 0.9.8 to 1.1.

1 0

Alistair Grant
by Eliot Miranda 23 Feb '18

23 Feb '18

Hi All, I'd like Alistair to become a full committer to the VMMaker repository. Any objections? _,,,^..^,,,_ best, Eliot

3 2

Raspberry Pi build issues with old friend 'gl.h'
by tim Rowledge 23 Feb '18

23 Feb '18

After successfully getting the git repository downloaded and initialised with updateSCCSVersions I tried the build. It was more than a bit confusing to work out what was happening but it seems that there is (again, oh joy) an issue with gl.h The config log found that my Pi lacks GL/gl.h and correctly appears to mark it as missing. The actual build nonetheless tries and fails to build B3DAcceleratorPlugin, which turns out to break the rest of the build for some reason. I feel sure that it didn't used to completely stop the process, but maybe I'm forgetting. I know we've had related problems with gl.h plenty of times before and I can only imagine that the setup used for the auto build process must have a suitable installed development package. If that's so, I'd appreciate knowing what package that might be. I always load up i2c-tools, netatalk, libnss-mdns, libx11-dev, uuid-dev, libcairo2-dev, libpango1.0-dev, autoconf, libasound2-dev & libssl-dev when I put together a new Raspbian disk; I used to include mesa-common-dev but stopped that some time ago since it seemed to cause the vm to not find the X11 display stuff. Somewhere in the config/build cycle I'd say the evidence suggests that a better connection could be made between the test and the decision to build the B3DAccelleratorPlugin - but that's something I know squat about. The relevant section in the configure script seems to be around line 27495 and involve things like `ac_cv_lib_GL_glIsEnabled=no`. I had always thought that the config test were meant to prevent the later build from trying to make components that couldn't be made successfully? For now, simply removing the problem plugin from the plugins.ext list lets me make a working vm but this isn't a happy state for us to be in. We've had several pushes at re-writing the config stuff in the past and I really thought some progress had been made. Is anybody an aficionado of unix config systems? We have the example of the interpreter vm tree using the (apparently) improved cmake (?) system to prove that it can be a little less nasty. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Fractured Idiom:- MONAGE A TROIS - I am three years old

2 2

VM Maker: VMMaker.oscog-eem.2337.mcz
by commits＠source.squeak.org 22 Feb '18

22 Feb '18

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2337.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2337 Author: eem Time: 22 February 2018, 9:59:40.712043 am UUID: 55415486-38fa-40cf-8711-f9837d42a8b0 Ancestors: VMMaker.oscog-eem.2336 Rewrite the primitives in MiscPrimitivePlugin using conventional Slang, avoiding the translatedPrimitives ineffiicencies and dependence on methods in the image. Volunteers are invited to do the same for the ADPCMCodecPlugin and SoundGenerationPlugin. Simulator: Make sizeOfSTArrayFromCPrimitive: simulate. Add safety to CObjectAccessor>>coerceTo:sim:. Have Integer>>coerceTo:sim: use the type symbols. Make freeOlderMethodsForCompaction report it is doing a code compaction. =============== Diff against VMMaker.oscog-eem.2336 =============== Item was changed: ----- Method: CObjectAccessor>>coerceTo:sim: (in category 'converting') ----- coerceTo: cTypeString sim: interpreterSimulator + cTypeString caseOf: { + [#'float *'] -> [^self asFloatAccessor]. + [#'int *'] -> [^self asIntAccessor]. + ['sqInputEvent*'] -> [^self] } + otherwise: [self halt]. - cTypeString = 'float *' ifTrue: [^ self asFloatAccessor]. - cTypeString = 'int *' ifTrue: [^ self asIntAccessor]. ^ self! Item was changed: ----- Method: CogMethodZone>>freeOlderMethodsForCompaction (in category 'compaction') ----- freeOlderMethodsForCompaction "Free methods, preferring older methods for compaction, up to some fraction, currently a quarter." | zoneSize amountToFree initialFreeSpace freedSoFar freeableUsage cogMethod | <var: #cogMethod type: #'CogMethod *'> zoneSize := self effectiveLimit - baseAddress. initialFreeSpace := self effectiveLimit - mzFreeStart + methodBytesFreedSinceLastCompaction. freedSoFar := initialFreeSpace. amountToFree := zoneSize // 4. "4 needs to be e.g. a start-up parameter" freeableUsage := 0. [self cCode: '' inSmalltalk: [coInterpreter transcript nextPutAll: 'freeing methods with usage '; print: freeableUsage; cr; flush]. cogMethod := cogit cCoerceSimple: baseAddress to: #'CogMethod *'. [cogMethod asUnsignedInteger < mzFreeStart and: [freedSoFar < amountToFree]] whileTrue: [(self shouldFreeMethod: cogMethod given: freeableUsage) ifTrue: [self freeMethod: cogMethod. freedSoFar := freedSoFar + cogMethod blockSize]. cogMethod := self methodAfter: cogMethod]. freedSoFar < amountToFree and: [(freeableUsage := freeableUsage + 1) < CMMaxUsageCount]] whileTrue. self cCode: '' inSmalltalk: [coInterpreter transcript + nextPutAll: 'Code Compaction freeing '; print: freedSoFar; - nextPutAll: 'Compaction freeing '; print: freedSoFar; nextPutAll: ' of '; print: zoneSize; nextPutAll: ' (target: '; print: amountToFree; nextPutAll: ' (newly freed: '; print: freedSoFar - initialFreeSpace; cr; flush]! Item was changed: ----- Method: Integer>>coerceTo:sim: (in category '*VMMaker-interpreter simulator') ----- coerceTo: cTypeString sim: interpreter | unitSize | cTypeString last = $* ifTrue: "C pointer" [unitSize := cTypeString caseOf: { + [#'char *'] -> [1]. + [#'short *'] -> [2]. + [#'int *'] -> [4]. + [#'long long *'] -> [8]. + [#'float *'] -> [^CFloatArray basicNew interpreter: interpreter address: self unitSize: 4; yourself]. + [#'double *'] -> [^CFloatArray basicNew interpreter: interpreter address: self unitSize: 8; yourself]. + [#'unsigned *'] -> [4]. + [#'unsigned int *'] -> [4]. + [#'unsigned char *'] -> [1]. + [#'signed char *'] -> [1]. + [#'unsigned short *'] -> [2]. + [#'unsigned long long *'] -> [8]. + [#'oop *'] -> [interpreter bytesPerOop]. - ['char *'] -> [1]. - ['short *'] -> [2]. - ['int *'] -> [4]. - ['long long *'] -> [8]. - ['float *'] -> [^CFloatArray basicNew interpreter: interpreter address: self unitSize: 4; yourself]. - ['double *'] -> [^CFloatArray basicNew interpreter: interpreter address: self unitSize: 8; yourself]. - ['unsigned *'] -> [4]. - ['unsigned int *'] -> [4]. - ['unsigned char *'] -> [1]. - ['signed char *'] -> [1]. - ['unsigned short *'] -> [2]. - ['unsigned long long *'] -> [8]. - ['oop *'] -> [interpreter bytesPerOop]. } otherwise: [interpreter wordSize]. ^CArray basicNew interpreter: interpreter address: self unitSize: unitSize; yourself]. ^self "C number (int, char, float, etc)"! Item was changed: InterpreterPlugin subclass: #MiscPrimitivePlugin instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'VMMaker-Plugins'! + !MiscPrimitivePlugin commentStamp: 'eem 2/21/2018 15:10' prior: 0! + This plugin pulls together a number of string and array related primitives. In the olden days these primitives were generated as "translated primitives", which generated the primitive versions form methods in the image. In 2018 they were rewritten to use conventional Slang.! - !MiscPrimitivePlugin commentStamp: 'tpr 5/5/2003 12:18' prior: 0! - This plugin pulls together a number of translatable methods with no particularly meaningful home. See class>translatedPrimitives for the list! Item was removed: - ----- Method: MiscPrimitivePlugin class>>monticelloDescription (in category 'translation') ----- - monticelloDescription - "Override to include the primitive-supplying classes." - "self monticelloDescription" - ^super monticelloDescription, '\' withCRs, - ((self translatedPrimitives - collect: [:pair| CCodeGenerator monticelloDescriptionFor: (Smalltalk classNamed: pair first)]) - asSet asArray sort reduce: [:a :b| a, '\' withCRs, b])! Item was removed: - ----- Method: MiscPrimitivePlugin class>>translatedPrimitives (in category 'translation') ----- - translatedPrimitives - "an assorted list of various primitives" - "MiscPrimitivePlugin browseTranslatedPrimitives" - ^#((Bitmap compress:toByteArray:) - (Bitmap decompress:fromByteArray:at:) - (Bitmap encodeBytesOf:in:at:) "merely a support function" - (Bitmap encodeInt:in:at:) "merely a support function" - (ByteString compare:with:collated:) - (ByteString translate:from:to:table:) - (ByteString findFirstInString:inSet:startingAt:) - (ByteString indexOfAscii:inString:startingAt:) - (ByteString findSubstring:in:startingAt:matchTable:) - (ByteArray hashBytes:startingWith:) - (SampledSound convert8bitSignedFrom:to16Bit:))! Item was removed: - ----- Method: MiscPrimitivePlugin>>asciiValue: (in category 'helper functions') ----- - asciiValue: aCharacter - <cmacro: '(aCharacter) aCharacter'> - ^aCharacter asciiValue! Item was added: + ----- Method: MiscPrimitivePlugin>>encodeBytesOf:in:at: (in category 'helper functions') ----- + encodeBytesOf: anInt in: ba at: i + "Copy the integer anInt into byteArray ba at index i, and answer the next index" + <inline: #always> + <var: #ba type: #'unsigned char *'> + 0 to: 3 do: + [:j | ba at: i + j put: (anInt >> (3 - j * 8) bitAnd: 16rFF)]. + ^i + 4! Item was added: + ----- Method: MiscPrimitivePlugin>>encodeInt:in:at: (in category 'helper functions') ----- + encodeInt: anInt in: ba at: i + "Encode the integer anInt in byteArray ba at index i, and answer the next index. + The encoding is as follows... + 0-223 0-223 + 224-254 (0-30) * 256 + next byte (0-7935) + 255 next 4 bytes" + + <inline: #always> + <var: #ba declareC: 'unsigned char *ba'> + anInt <= 223 ifTrue: [ba at: i put: anInt. ^i + 1]. + anInt <= 7935 ifTrue: [ba at: i put: anInt // 256 + 224. ba at: i + 1 put: anInt \\ 256. ^i + 2]. + ba at: i put: 255. + ^self encodeBytesOf: anInt in: ba at: i + 1! Item was added: + ----- Method: MiscPrimitivePlugin>>primitiveCompareString (in category 'primitives') ----- + primitiveCompareString + "ByteString (class) compare: string1 with: string2 collated: order" + <export: true> + | len1 len2 order string1 string2 | + + <var: 'order' type: #'unsigned char *'> + <var: 'string1' type: #'unsigned char *'> + <var: 'string2' type: #'unsigned char *'> + ((interpreterProxy isBytes: (interpreterProxy stackValue: 0)) + and: [(interpreterProxy isBytes: (interpreterProxy stackValue: 1)) + and: [interpreterProxy isBytes: (interpreterProxy stackValue: 2)]]) ifFalse: + [^interpreterProxy primitiveFail]. + string1 := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 2). + string2 := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 1). + order := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 0). + len1 := interpreterProxy sizeOfSTArrayFromCPrimitive: string1. + len2 := interpreterProxy sizeOfSTArrayFromCPrimitive: string2. + 0 to: (len1 min: len2) - 1 do: + [ :i | | c1 c2 | + c1 := order at: (string1 at: i). + c2 := order at: (string2 at: i). + c1 = c2 ifFalse: + [^interpreterProxy methodReturnValue: + (interpreterProxy integerObjectOf: + (c1 < c2 ifTrue: [1] ifFalse: [3]))]]. + interpreterProxy methodReturnValue: + (interpreterProxy integerObjectOf: + (len1 = len2 ifTrue: [2] ifFalse: [len1 < len2 ifTrue: [1] ifFalse: [3]]))! Item was added: + ----- Method: MiscPrimitivePlugin>>primitiveCompressToByteArray (in category 'primitives') ----- + primitiveCompressToByteArray + "Bitmap compress: bm toByteArray: ba" + <export: true> + | bm ba eqBytes i j k lowByte size word | + <var: 'ba' type: #'unsigned char *'> + <var: 'bm' type: #'int *'> + bm := self cCode: [interpreterProxy arrayValueOf: (interpreterProxy stackValue: 1)] + inSmalltalk: [interpreterProxy + cCoerce: (interpreterProxy arrayValueOf: (interpreterProxy stackValue: 1)) + to: #'int *']. + interpreterProxy failed ifTrue: [^nil]. + (interpreterProxy isBytes: (interpreterProxy stackValue: 0)) ifFalse: [^interpreterProxy primitiveFail]. + (interpreterProxy isOopImmutable: (interpreterProxy stackValue: 0)) ifTrue: + [^interpreterProxy primitiveFailFor: PrimErrNoModification]. + ba := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 0). + size := interpreterProxy sizeOfSTArrayFromCPrimitive: bm. + i := self encodeInt: size in: ba at: 0. + k := 0. + [k < size] whileTrue: + [word := bm at: k. + lowByte := word bitAnd: 255. + eqBytes := (word >> 8 bitAnd: 255) = lowByte and: [(word >> 16 bitAnd: 255) = lowByte and: [(word >> 24 bitAnd: 255) = lowByte]]. + j := k. + [j + 1 < size and: [word = (bm at: j + 1)]] whileTrue: [j := j + 1]. + j > k + ifTrue: + [eqBytes + ifTrue: + [i := self encodeInt: j - k + 1 * 4 + 1 in: ba at: i. + ba at: i put: lowByte. + i := i + 1] + ifFalse: + [i := self encodeInt: j - k + 1 * 4 + 2 in: ba at: i. + i := self encodeBytesOf: word in: ba at: i]. + k := j + 1] + ifFalse: + [eqBytes + ifTrue: + [i := self encodeInt: 1 * 4 + 1 in: ba at: i. + ba at: i put: lowByte. + i := i + 1. + k := k + 1] + ifFalse: + [[j + 1 < size and: [(bm at: j) ~= (bm at: j + 1)]] whileTrue: [j := j + 1]. + j + 1 = size ifTrue: [j := j + 1]. + i := self encodeInt: j - k * 4 + 3 in: ba at: i. + k to: j - 1 by: 1 do: [ :m | i := self encodeBytesOf: (bm at: m) in: ba at: i]. + k := j]]]. + interpreterProxy methodReturnValue: (interpreterProxy integerObjectOf: i)! Item was added: + ----- Method: MiscPrimitivePlugin>>primitiveConvert8BitSigned (in category 'primitives') ----- + primitiveConvert8BitSigned + "SampledSound (class) convert8bitSignedFrom: aByteArray to16Bit: aSoundBuffer" + <export: true> + | aByteArray aSoundBuffer arraySize | + <var: 'aByteArray' type: #'unsigned char *'> + <var: 'aSoundBuffer' type: #'unsigned short *'> + (interpreterProxy isBytes: (interpreterProxy stackValue: 1)) ifFalse: + [^interpreterProxy primitiveFail]. + aByteArray := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 1). + aSoundBuffer := self + cCode: [interpreterProxy arrayValueOf: (interpreterProxy stackValue: 0)] + inSmalltalk: [interpreterProxy + cCoerce: (interpreterProxy arrayValueOf: (interpreterProxy stackValue: 0)) + to: #'unsigned short *']. + interpreterProxy failed ifTrue: [^nil]. + (interpreterProxy isOopImmutable: (interpreterProxy stackValue: 0)) ifTrue: + [^interpreterProxy primitiveFailFor: PrimErrNoModification]. + arraySize := interpreterProxy sizeOfSTArrayFromCPrimitive: aByteArray. + (interpreterProxy byteSizeOf: (interpreterProxy stackValue: 0)) < (2 * arraySize) ifTrue: + [^interpreterProxy primitiveFail]. + 0 to: arraySize - 1 do: + [ :i | | s | + s := aByteArray at: i. + aSoundBuffer + at: i + put: (s > 127 + ifTrue: [s - 256 bitShift: 8] + ifFalse: [s bitShift: 8])]. + interpreterProxy pop: interpreterProxy methodArgumentCount! Item was added: + ----- Method: MiscPrimitivePlugin>>primitiveDecompressFromByteArray (in category 'primitives') ----- + primitiveDecompressFromByteArray + "Bitmap decompress: bm fromByteArray: ba at: index" + <export: true> + | bm ba index i anInt code data end k n pastEnd | + <var: 'ba' type: #'unsigned char *'> + <var: 'bm' type: #'int *'> + <var: 'anInt' type: #'unsigned int'> + <var: 'code' type: #'unsigned int'> + <var: 'data' type: #'unsigned int'> + <var: 'n' type: #'unsigned int'> + bm := self cCode: [interpreterProxy arrayValueOf: (interpreterProxy stackValue: 2)] + inSmalltalk: [interpreterProxy + cCoerce: (interpreterProxy arrayValueOf: (interpreterProxy stackValue: 2)) + to: #'int *']. + (interpreterProxy isOopImmutable: (interpreterProxy stackValue: 2)) ifTrue: + [^interpreterProxy primitiveFailFor: PrimErrNoModification]. + (interpreterProxy isBytes: (interpreterProxy stackValue: 1)) ifFalse: [^interpreterProxy primitiveFail]. + ba := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 1). + index := interpreterProxy stackIntegerValue: 0. + interpreterProxy failed ifTrue: [^nil]. + i := index - 1. + k := 0. + end := interpreterProxy sizeOfSTArrayFromCPrimitive: ba. + pastEnd := interpreterProxy sizeOfSTArrayFromCPrimitive: bm. + [i < end] whileTrue: + [anInt := ba at: i. + i := i + 1. + anInt <= 223 ifFalse: + [anInt <= 254 + ifTrue: + [anInt := anInt - 224 * 256 + (ba at: i). + i := i + 1] + ifFalse: + [anInt := 0. + 1 to: 4 by: 1 do: + [ :j | anInt := (anInt bitShift: 8) + (ba at: i). + i := i + 1]]]. + n := anInt >> 2. + k + n >= pastEnd ifTrue: [^interpreterProxy primitiveFail]. + code := anInt bitAnd: 3. + "code = 0 ifTrue: [nil]." + code = 1 ifTrue: + [data := ba at: i. + i := i + 1. + data := data bitOr: (data bitShift: 8). + data := data bitOr: (data bitShift: 16). + 1 to: n do: + [ :j | + bm at: k put: data. + k := k + 1]]. + code = 2 ifTrue: + [data := 0. + 1 to: 4 do: + [ :j | + data := (data bitShift: 8) bitOr: (ba at: i). + i := i + 1]. + 1 to: n do: + [ :j | + bm at: k put: data. + k := k + 1]]. + code = 3 ifTrue: + [1 to: n do: + [ :m | + data := 0. + 1 to: 4 do: + [ :j | + data := (data bitShift: 8) bitOr: (ba at: i). + i := i + 1]. + bm at: k put: data. + k := k + 1]]]. + interpreterProxy pop: interpreterProxy methodArgumentCount! Item was added: + ----- Method: MiscPrimitivePlugin>>primitiveFindFirstInString (in category 'primitives') ----- + primitiveFindFirstInString + "ByteString (class) findFirstInString: aString inSet: inclusionMap startingAt: start" + <export: true> + | aString i inclusionMap start stringSize | + <var: 'aString' type: #'unsigned char *'> + <var: 'inclusionMap' type: #'char *'> + ((interpreterProxy isIntegerObject: (interpreterProxy stackValue: 0)) + and: [(interpreterProxy isBytes: (interpreterProxy stackValue: 1)) + and: [interpreterProxy isBytes: (interpreterProxy stackValue: 2)]]) ifFalse: + [^interpreterProxy primitiveFail]. + aString := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 2). + inclusionMap := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 1). + start := interpreterProxy integerValueOf: (interpreterProxy stackValue: 0). + (interpreterProxy sizeOfSTArrayFromCPrimitive: inclusionMap) ~= 256 ifTrue: + [^interpreterProxy methodReturnValue: (interpreterProxy integerObjectOf: 0)]. + i := start - 1. + stringSize := interpreterProxy sizeOfSTArrayFromCPrimitive: aString. + [i < stringSize and: [(inclusionMap at: (aString at: i)) = 0]] whileTrue: + [i := i + 1]. + interpreterProxy methodReturnValue: (interpreterProxy integerObjectOf: (i >= stringSize ifTrue: [0] ifFalse: [i + 1]))! Item was added: + ----- Method: MiscPrimitivePlugin>>primitiveFindSubstring (in category 'primitives') ----- + primitiveFindSubstring + "ByteString findSubstring: key in: body startingAt: start matchTable: matchTable" + <export: true> + | body key keySize matchTable start | + <var: #key type: #'unsigned char *'> + <var: #body type: #'unsigned char *'> + <var: #matchTable type: #'unsigned char *'> + ((interpreterProxy isBytes: (interpreterProxy stackValue: 0)) + and: [(interpreterProxy isIntegerObject: (interpreterProxy stackValue: 1)) + and: [(interpreterProxy isBytes: (interpreterProxy stackValue: 2)) + and: [interpreterProxy isBytes: (interpreterProxy stackValue: 3)]]]) ifFalse: + [^interpreterProxy primitiveFail]. + key := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 3). + body := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 2). + start := interpreterProxy integerValueOf: (interpreterProxy stackValue: 1). + matchTable := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 0). + (keySize := interpreterProxy sizeOfSTArrayFromCPrimitive: key) > 0 ifTrue: + [keySize := keySize - 1. "adjust for zero relative indxes" + (start max: 1) to: (interpreterProxy sizeOfSTArrayFromCPrimitive: body) - keySize do: + [ :startIndex | | index | + index := 0. + [(matchTable at: (body at: startIndex + index - 1)) = (matchTable at: (key at: index))] whileTrue: + [index = keySize ifTrue: + [^interpreterProxy methodReturnValue: (interpreterProxy integerObjectOf: startIndex)]. + index := index + 1]]]. + ^interpreterProxy methodReturnValue: (interpreterProxy integerObjectOf: 0)! Item was added: + ----- Method: MiscPrimitivePlugin>>primitiveIndexOfAsciiInString (in category 'primitives') ----- + primitiveIndexOfAsciiInString + "ByteString indexOfAscii: anInteger inString: aString startingAt: start" + <export: true> + | anInteger aString start stringSize | + <var: #aString type: #'unsigned char *'> + ((interpreterProxy isIntegerObject: (interpreterProxy stackValue: 0)) + and: [(interpreterProxy isBytes: (interpreterProxy stackValue: 1)) + and: [(interpreterProxy isIntegerObject: (interpreterProxy stackValue: 2))]]) ifFalse: + [^interpreterProxy primitiveFail]. + anInteger := interpreterProxy integerValueOf: (interpreterProxy stackValue: 2). + aString := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 1). + start := interpreterProxy integerValueOf: (interpreterProxy stackValue: 0). + stringSize := interpreterProxy sizeOfSTArrayFromCPrimitive: aString. + start - 1 to: stringSize - 1 do: + [ :pos | + (aString at: pos) = anInteger ifTrue: + [^interpreterProxy methodReturnValue: (interpreterProxy integerObjectOf: pos + 1)]]. + ^interpreterProxy methodReturnValue: (interpreterProxy integerObjectOf: 0)! Item was added: + ----- Method: MiscPrimitivePlugin>>primitiveStringHash (in category 'primitives') ----- + primitiveStringHash + "ByteArray (class) hashBytes: aByteArray startingWith: speciesHash" + <export: true> + | aByteArray speciesHash byteArraySize hash | + <var: 'aByteArray' type: #'unsigned char *'> + <var: 'speciesHash' type: #int> + ((interpreterProxy isIntegerObject: (interpreterProxy stackValue: 0)) + and: [interpreterProxy isBytes: (interpreterProxy stackValue: 1)]) ifFalse: + [^interpreterProxy primitiveFail]. + aByteArray := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 1). + speciesHash := interpreterProxy integerValueOf: (interpreterProxy stackValue: 0). + byteArraySize := interpreterProxy sizeOfSTArrayFromCPrimitive: aByteArray. + hash := speciesHash bitAnd: 16r0FFFFFFF. + 0 to: byteArraySize - 1 do: + [ :pos | + hash := hash + (aByteArray at: pos). + hash := hash * 16r19660D bitAnd: 16r0FFFFFFF]. + interpreterProxy methodReturnValue: + (interpreterProxy integerObjectOf: hash)! Item was added: + ----- Method: MiscPrimitivePlugin>>primitiveTranslateStringWithTable (in category 'primitives') ----- + primitiveTranslateStringWithTable + "ByteString (class) translate: aString from: start to: stop table: table" + <export: true> + | aString start stop table | + <var: #table type: #'unsigned char *'> + <var: #aString type: #'unsigned char *'> + ((interpreterProxy isBytes: (interpreterProxy stackValue: 0)) + and: [(interpreterProxy isIntegerObject: (interpreterProxy stackValue: 1)) + and: [(interpreterProxy isIntegerObject: (interpreterProxy stackValue: 2)) + and: [interpreterProxy isBytes: (interpreterProxy stackValue: 3)]]]) ifFalse: + [^interpreterProxy primitiveFail]. + (interpreterProxy isOopImmutable: (interpreterProxy stackValue: 3)) ifTrue: + [^interpreterProxy primitiveFailFor: PrimErrNoModification]. + aString := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 3). + start := interpreterProxy integerValueOf: (interpreterProxy stackValue: 2). + stop := interpreterProxy integerValueOf: (interpreterProxy stackValue: 1). + table := interpreterProxy firstIndexableField: (interpreterProxy stackValue: 0). + start - 1 to: stop - 1 do: [ :i | aString at: i put: (table at: (aString at: i))]. + interpreterProxy pop: interpreterProxy methodArgumentCount! Item was added: + ----- Method: NewCoObjectMemorySimulator>>sizeOfSTArrayFromCPrimitive: (in category 'simulation only') ----- + sizeOfSTArrayFromCPrimitive: cPtr + "hack around the CoInterpreter/ObjectMemory split refactoring" + ^coInterpreter sizeOfSTArrayFromCPrimitive: cPtr! Item was added: + ----- Method: NewObjectMemorySimulator>>sizeOfSTArrayFromCPrimitive: (in category 'simulation only') ----- + sizeOfSTArrayFromCPrimitive: cPtr + "hack around the CoInterpreter/ObjectMemory split refactoring" + ^coInterpreter sizeOfSTArrayFromCPrimitive: cPtr! Item was added: + ----- Method: SpurMemoryManager>>sizeOfSTArrayFromCPrimitive: (in category 'simulation only') ----- + sizeOfSTArrayFromCPrimitive: cPtr + "hack around the CoInterpreter/ObjectMemory split refactoring" + <doNotGenerate> + ^coInterpreter sizeOfSTArrayFromCPrimitive: cPtr!

1 0

Can folks please review carefully the replacement MiscPrimitivePlugin?
by Eliot Miranda 22 Feb '18

22 Feb '18

Hi All, find the first candidate replacement for MiscPrimitivePlugin's translated primitives. The changes here are not simply cosmetic since the 1-relative indexing in the translated primitives version is clumsy, so I've rewritten to use 0-relative indexing. _,,,^..^,,,_ best, Eliot

2 3

FFI callback for interrupts in Raspberry
by Denis Kudriashov 22 Feb '18

22 Feb '18

Hi. I am experimenting with interrupt callbacks on Rasperry. I am using WiringPi library which allows to set the function which should be called when value of particular pin is changed. But instead of callback execution I got following message in the console: Warning; callback failed to own the VM So VM is not crashed. But every interrupt produces such message. Is it related to the fact that callback is triggered from the thread different from VM? (I not sure about such detail, just guessing) Best regards Denis

5 7

git bites again
by tim Rowledge 21 Feb '18

21 Feb '18

OK, I know that the entire point of git is to drive people insane but this is an especially silly problem. clone the repository with git clone https://github.com/OpenSmalltalk/opensmalltalk-vm.git wait... cd opensmalltalk-vm/ ./scripts/updateSCCSVersions -> fatal: Not a git repository: '.git' fatal: unrecognized input What? The annoying part is that it worked (at least, so far as I remember) last time I loaded up a clone of the vm repo. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim The theoreticians have proven that this is unsolvable, but there's three of us, and we're smart...

5 5

← Newer
1
2
3
4
5
6
7
8
...
14
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 February 2018