Vm-dev October 2021

vm-dev@lists.squeakfoundation.org

9 participants
59 discussions

[OpenSmalltalk/opensmalltalk-vm] 7ede11: Fixes monthly builds of 32-bit pharo.*.lowcode fla...
by Marcel Taeumel 01 Oct '21

01 Oct '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 7ede113ffe5b488f5974819a16a2aeb76ab97eb6 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/7ede113ffe5b488f59… Author: Marcel Taeumel <marcel.taeumel(a)hpi.de> Date: 2021-10-01 (Fri, 01 Oct 2021) Changed paths: M building/linux32x86/pharo.cog.spur.lowcode/build.itimerheartbeat/mvm M building/linux32x86/pharo.cog.spur.lowcode/build/mvm M building/linux32x86/pharo.stack.spur.lowcode/build.itimerheartbeat/mvm M building/linux32x86/pharo.stack.spur.lowcode/build/mvm Log Message: ----------- Fixes monthly builds of 32-bit pharo.*.lowcode flavors. [ci skip]

1 0

[OpenSmalltalk/opensmalltalk-vm] ddeec6: v3 source as per VMMaker.oscog-mt.3083 [ci skip]
by Marcel Taeumel 01 Oct '21

01 Oct '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: ddeec61756cdb3fd2e9ba968429560e3fda6b11f https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/ddeec61756cdb3fd2e… Author: Marcel Taeumel <marcel.taeumel(a)hpi.de> Date: 2021-10-01 (Fri, 01 Oct 2021) Changed paths: M src/v3.cog/cointerp.c M src/v3.cog/gcc3x-cointerp.c M src/v3.stack/gcc3x-interp.c M src/v3.stack/interp.c Log Message: ----------- v3 source as per VMMaker.oscog-mt.3083 [ci skip] Commit: e9e8531ada7af1efe7a36157343b23a3395ff322 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/e9e8531ada7af1efe7… Author: Marcel Taeumel <marcel.taeumel(a)hpi.de> Date: 2021-10-01 (Fri, 01 Oct 2021) Changed paths: M src/spur32.cog.newspeak/cogit.c M src/spur32.cog.newspeak/cogit.h M src/spur32.cog.newspeak/cogitARMv5.c M src/spur32.cog.newspeak/cogitIA32.c M src/spur32.cog.newspeak/cointerp.c M src/spur32.cog.newspeak/cointerp.h M src/spur32.cog.newspeak/gcc3x-cointerp.c M src/spur32.cog.newspeak/interp.h M src/spur32.stack.newspeak/gcc3x-interp.c M src/spur32.stack.newspeak/interp.c M src/spur32.stack.newspeak/interp.h M src/spur64.cog.newspeak/cogit.h M src/spur64.cog.newspeak/cogitARMv8.c M src/spur64.cog.newspeak/cogitX64SysV.c M src/spur64.cog.newspeak/cogitX64WIN64.c M src/spur64.cog.newspeak/cointerp.c M src/spur64.cog.newspeak/cointerp.h M src/spur64.cog.newspeak/gcc3x-cointerp.c M src/spur64.cog.newspeak/interp.h M src/spur64.stack.newspeak/gcc3x-interp.c M src/spur64.stack.newspeak/interp.c M src/spur64.stack.newspeak/interp.h Log Message: ----------- Newspeak source as per VMMaker.oscog-mt.3083 [ci skip] Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/740244d2d32d...e9…

1 0

VM Maker: VMMaker.oscog-mt.3083.mcz
by commits＠source.squeak.org 01 Oct '21

01 Oct '21

Marcel Taeumel uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-mt.3083.mcz ==================== Summary ==================== Name: VMMaker.oscog-mt.3083 Author: mt Time: 1 October 2021, 10:10:01.539336 am UUID: 0d345f2b-f29d-7148-b84c-cb4ed3775bb1 Ancestors: VMMaker.oscog-mt.3082 Adds missing #lengthOf:format: to fix v3.stack and v3.cog builds. =============== Diff against VMMaker.oscog-mt.3082 =============== Item was added: + ----- Method: ObjectMemory>>lengthOf:format: (in category 'object access') ----- + lengthOf: oop format: fmt + "Answer the number of indexable units in the given object. + For a CompiledMethod, the size of the method header (in bytes) + should be subtracted from the result of this method." + + <inline: true> + ^ self lengthOf: oop baseHeader: (self baseHeader: oop) format: fmt!

1 0

VM Maker: VMMaker.oscog-mt.3082.mcz
by commits＠source.squeak.org 01 Oct '21

01 Oct '21

Marcel Taeumel uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-mt.3082.mcz ==================== Summary ==================== Name: VMMaker.oscog-mt.3082 Author: mt Time: 1 October 2021, 9:55:59.824336 am UUID: 97721c27-8230-1e41-81fb-11b5180cef10 Ancestors: VMMaker.oscog-eem.3081 Fixes generated code for v3.stack and v3.cog by adding missing type info to new method #printStringDataOf:on:. =============== Diff against VMMaker.oscog-eem.3081 =============== Item was changed: ----- Method: ObjectMemory>>printStringDataOf:on: (in category 'debug printing interpreter support') ----- printStringDataOf: oop on: aStream <var: 'aStream' type: #'FILE *'> | i limit n | + <var: 'buffer' type: #'char *'> + <var: 'wideBuffer' type: #'unsigned int *'> (self isBytesNonImm: oop) ifTrue: [| buffer byte | buffer := self alloca: 256 * 4. n := i := 0. limit := (self numBytesOfBytes: oop) min: 256. [i < limit] whileTrue: [byte := self fetchByte: i ofObject: oop. (byte < 32 "space" and: [byte ~= 9 "tab"]) ifTrue: [buffer at: n put: $<. n := n + 1. (byte = 10 or: [byte = 13]) ifTrue: [byte = 10 ifTrue: [buffer at: n put: $L; at: n + 1 put: $F] ifFalse: [buffer at: n put: $C; at: n + 1 put: $R]. n := n + 2] ifFalse: [byte >= 10 ifTrue: [buffer at: n put: byte // 10 + $0 asInteger. n := n + 1]. buffer at: n put: byte \\ 10 + $0 asInteger. n := n + 1]. buffer at: n put: $>. n := n + 1] ifFalse: [buffer at: n put: byte. n := n + 1]]. '%.*s%s\n' f: aStream printf: { n. buffer. (self numBytesOfBytes: oop) > limit ifTrue: ['...'] ifFalse: [''] }] ifFalse: [| wideBuffer word | self assert: (self isWordsNonImm: oop). wideBuffer := self cCoerce: (self alloca: 1024 * 4) to: 'int *'. n := i := 0. limit := (self lengthOf: oop) min: 256. [i < limit] whileTrue: [word := self fetchLong32: i ofObject: oop. (word < 32 "space" and: [word ~= 9 "tab"]) ifTrue: [wideBuffer at: n put: $<. n := n + 1. (word = 10 or: [word = 13]) ifTrue: [word = 10 ifTrue: [wideBuffer at: n put: $L; at: n + 1 put: $F] ifFalse: [wideBuffer at: n put: $C; at: n + 1 put: $R]. n := n + 2] ifFalse: [word >= 10 ifTrue: [wideBuffer at: n put: word // 10 + $0 asInteger. n := n + 1]. wideBuffer at: n put: word \\ 10 + $0 asInteger. n := n + 1]. wideBuffer at: n put: $>. n := n + 1] ifFalse: [wideBuffer at: n put: word. n := n + 1]]. '%.*s%s\n' f: aStream wprintf: { n. wideBuffer. (self lengthOf: oop) > limit ifTrue: ['...'] ifFalse: [''] }]!

1 0

New unicode plugin
by Bruce O'Neel 01 Oct '21

01 Oct '21

HI, On my arm64 system the unicode plugin is disabled. But on my two Raspberry PI Arm 32 systems, one old and one new, the unicode plugin tries to build but fails because @UNICODE_PLUGIN_CFLAGS@ is not substituted. What debian package is it trying to find the cflags for? Thanks. bruce

4 9

[OpenSmalltalk/opensmalltalk-vm] 740244: Fixes 32-bit Windows builds.
by Marcel Taeumel 01 Oct '21

01 Oct '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 740244d2d32d2b7630f3d4f56366019fdc8054fb https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/740244d2d32d2b7630… Author: Marcel Taeumel <marcel.taeumel(a)hpi.de> Date: 2021-10-01 (Fri, 01 Oct 2021) Changed paths: M platforms/win32/vm/sqWin32Backtrace.c Log Message: ----------- Fixes 32-bit Windows builds.

1 0

Re: [Vm-dev] [OpenSmalltalk/opensmalltalk-vm] Fix symbolic C stack backtrace in WIN64 builds. (65d9d81)
by Marcel Taeumel 01 Oct '21

01 Oct '21

> N.B. As of cygwin 1.5.25 fopen("crash.dmp","a") DOES NOT WORK! crash.dmp > contains garbled output as if the file pointer gets set to the start of the > file, not the end. So we synthesize our own append mode. Hi Eliot. Please update your Cygwin ASAP! It's hardly believeable that the append-mode in `fopen` is broken in a fairly recent Cygwin installation. ``` $ cygcheck -c cygwin Cygwin Package Information Package Version Status cygwin 3.2.0-1 OK ``` ``` $ cygcheck -f /usr/include/stdio.h cygwin-devel-3.2.0-1 ``` This works like a charm and as expected: ``` /* File name is hello_world.c */ #include <stdio.h> int main(void) { FILE *pFile; pFile = fopen("crash.dmp","a+t"); fprintf(pFile, "%s", "Hello!"); fclose(pFile); } ``` PLEASE! Update your Cygwin installation. :-) -- 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/commit/65d9d814015f68f472…

1 0

[OpenSmalltalk/opensmalltalk-vm] ce556d: CogVM source as per VMMaker.oscog-eem.3081
by Eliot Miranda 01 Oct '21

01 Oct '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: ce556d53b38c750f0acccd9c26ab1f1f82d15591 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/ce556d53b38c750f0a… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-09-30 (Thu, 30 Sep 2021) Changed paths: M src/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.3081 Cog: Insist on alignment for some MiscPrimitivePlugin primitives since e.g.Clang is smart enough to use SE3 instructions for what are floating-point-free primitives.

1 0

VM Maker: VMMaker.oscog-eem.3081.mcz
by commits＠source.squeak.org 01 Oct '21

01 Oct '21

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.3081.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.3081 Author: eem Time: 30 September 2021, 6:05:02.20738 pm UUID: cdb6421d-dd12-4068-9e4c-c9b93e7eb606 Ancestors: VMMaker.oscog-eem.3080 Cog: Insist on alignment for some MiscPrimitivePlugin primitives since Clang is smart enough to use SE3 instructions for what are floating-point-free primtiives. =============== Diff against VMMaker.oscog-eem.3080 =============== Item was changed: ----- Method: MiscPrimitivePlugin>>primitiveCompressToByteArray (in category 'primitives') ----- primitiveCompressToByteArray "Bitmap compress: bm toByteArray: ba" + <export: true flags: #(FastCPrimitiveFlag FastCPrimitiveAlignForFloatsFlag)> "optimizing compilers require this; e.g. Clang/MSVC uses xmm/SE3" - <export: true flags: #FastCPrimitiveFlag> | bmOop baOop bm ba eqBytes i j k lowByte size destSize word | <var: 'ba' type: #'unsigned char *'> <var: 'bm' type: #'int *'> bmOop := interpreterProxy stackValue: 1. baOop := interpreterProxy stackValue: 0. bm := self cCode: [interpreterProxy arrayValueOf: bmOop] inSmalltalk: [interpreterProxy cCoerce: (interpreterProxy arrayValueOf: bmOop) to: #'int *']. interpreterProxy failed ifTrue: [^nil]. (interpreterProxy isBytes: baOop) ifFalse: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. (interpreterProxy isOopImmutable: baOop) ifTrue: [^interpreterProxy primitiveFailFor: PrimErrNoModification]. ba := interpreterProxy firstIndexableField: baOop. size := interpreterProxy sizeOfSTArrayFromCPrimitive: bm. destSize := interpreterProxy sizeOfSTArrayFromCPrimitive: ba. interpreterProxy failed ifTrue: "the sizeOfSTArrayFromCPrimitive:'s fail for e.g. CompiledMethod" [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. destSize < ((size * 4) + 7 + (size // 1984 * 3)) ifTrue: [^interpreterProxy primitiveFailFor: PrimErrUnsupported]. "Size may be OK but we don't know, hence fail with unsupported" 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 methodReturnInteger: i! Item was changed: ----- Method: MiscPrimitivePlugin>>primitiveConvert8BitSigned (in category 'primitives') ----- primitiveConvert8BitSigned "SampledSound (class) convert8bitSignedFrom: aByteArray to16Bit: aSoundBuffer" + <export: true flags: #(FastCPrimitiveFlag FastCPrimitiveAlignForFloatsFlag)> "optimizing compilers require this; e.g. Clang/MSVC uses xmm/SE3" - <export: true flags: #FastCPrimitiveFlag> | aByteArray aSoundBuffer arraySize byteArrayOop soundBufferOop | <var: 'aByteArray' type: #'unsigned char *'> <var: 'aSoundBuffer' type: #'unsigned short *'> byteArrayOop := interpreterProxy stackValue: 1. (interpreterProxy isBytes: byteArrayOop) ifFalse: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. aByteArray := interpreterProxy firstIndexableField: byteArrayOop. soundBufferOop := interpreterProxy stackValue: 0. (interpreterProxy isOopImmutable: soundBufferOop) ifTrue: [^interpreterProxy primitiveFailFor: PrimErrNoModification]. aSoundBuffer := self cCode: [interpreterProxy arrayValueOf: soundBufferOop] inSmalltalk: [interpreterProxy cCoerce: (interpreterProxy arrayValueOf: soundBufferOop) to: #'unsigned short *']. arraySize := interpreterProxy sizeOfSTArrayFromCPrimitive: aByteArray. interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. (interpreterProxy byteSizeOf: soundBufferOop) < (2 * arraySize) ifTrue: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. 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 methodReturnReceiver! Item was changed: ----- Method: MiscPrimitivePlugin>>primitiveDecompressFromByteArray (in category 'primitives') ----- primitiveDecompressFromByteArray "Bitmap decompress: bm fromByteArray: ba at: index" + <export: true flags: #(FastCPrimitiveFlag FastCPrimitiveAlignForFloatsFlag)> "optimizing compilers require this; e.g. Clang/MSVC uses xmm/SE3" - <export: true flags: #FastCPrimitiveFlag> | bmOop baOop 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'> bmOop := interpreterProxy stackValue: 2. baOop := interpreterProxy stackValue: 1. bm := self cCode: [interpreterProxy arrayValueOf: bmOop] inSmalltalk: [interpreterProxy cCoerce: (interpreterProxy arrayValueOf: bmOop) to: #'int *']. (interpreterProxy isOopImmutable: bmOop) ifTrue: [^interpreterProxy primitiveFailFor: PrimErrNoModification]. (interpreterProxy isBytes: baOop) ifFalse: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. ba := interpreterProxy firstIndexableField: baOop. index := interpreterProxy stackIntegerValue: 0. end := interpreterProxy sizeOfSTArrayFromCPrimitive: ba. pastEnd := interpreterProxy sizeOfSTArrayFromCPrimitive: bm. interpreterProxy failed ifTrue: [^interpreterProxy primitiveFailFor: PrimErrBadArgument]. i := index - 1. k := 0. [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 primitiveFailFor: PrimErrBadIndex]. 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 methodReturnReceiver! - interpreterProxy pop: interpreterProxy methodArgumentCount!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev October 2021