Vm-dev October 2022

vm-dev@lists.squeakfoundation.org

15 participants
53 discussions

[OpenSmalltalk/opensmalltalk-vm] BitBlt rgbMul is broken for depth 1 and not correctly rounded above depth 4 (Issue #651)
by Nicolas Cellier 24 Nov '23

24 Nov '23

In depth 1, the resulting bits will always be 0. It's not a big problem because rgbMul is just a bitAnd operation at this depth. So a quick workaround would be to detect the case in BitBltSimulation destDepth = 1 ifTrue: [^self bitAnd: sourceWord with: destinationWord]. That would also accelerate the Bit BLock Transfer operation, so it's a good hack. But there is more. What we want is multiply ratios in interval [0,1]. dstRatio * srcRatio Our implementation is scaled ratio (scaled by `1 << nBits - 1`): src := (srcRatio * scale) rounded. dst := (dstRatio * scale) rounded. So what we want is: ((dst/scale) * (src/scale) * scale) rounded that is: (dst*src / (1<<nBits-1)) rounded Unfortunately, that's the other grief with the current implementation used for rounding: (dst+1)*(src+1) - 1 >> nBits It only equals correctly rounded operation for depths 2 and 4. For rounding we might use: (((dst/scale) * (src/scale) + 0.5) * scale) truncated. that is expressed with truncated division: dst*src + (scale+1//2) // scale So here is a nicer formulation for doing the job at any depth (including 5bits rgb channels for 16 bits depth) with correctly rounded division: aux := src * dst + (1 << (nBits - 1)). "add mid-scale for rounding" result := aux << (nBits - 1) + aux << (nBits -1). "divide by scale" This is because instead of dividing by scale, we can multiply by shifted inverse (sort of double precision), then shift right. (2 to: 32) allSatisfy: [:nBits | (1 << (nBits * 2) / (1 << nBits - 1)) rounded = (1 << nBits + 1)]. Multiplying by this inverse is easy and cheap: x * (1 << nBits + 1) = (x << nBits + x). And then applying the right shift `>> (2 * nBits)` is equivalent to: x >> nBits + x >> nBits. We must first add 0.5 (scaled), that is `src * dst + (1 << (nBits -1))` - our formulation of aux, and we're done. We verify: { (0 to: 1<<20-1) allSatisfy: [:i | (1<<9+i)>>10+ (1<<9+i)>>10 = (i/1023) rounded]. (0 to: 1<<18-1) allSatisfy: [:i | (1<<8+i)>>9+ (1<<8+i)>>9 = (i/511) rounded]. (0 to: 1<<16-1) allSatisfy: [:i | (1<<7+i)>>8+ (1<<7+i)>>8 = (i/255) rounded]. (0 to: 1<<14-1) allSatisfy: [:i | (1<<6+i)>>7+ (1<<6+i)>>7 = (i/127) rounded]. (0 to: 1<<12-1) allSatisfy: [:i | (1<<5+i)>>6+ (1<<5+i)>>6 = (i/63) rounded]. (0 to: 1<<10-1) allSatisfy: [:i | (1<<4+i)>>5+ (1<<4+i)>>5 = (i/31) rounded]. (0 to: 1<<8-1) allSatisfy: [:i | (1<<3+i)>>4+ (1<<3+i)>>4 = (i/15) rounded]. (0 to: 1<<6-1) allSatisfy: [:i | (1<<2+i)>>3+ (1<<2+i)>>3 = (i/7) rounded]. (0 to: 1<<4-1) allSatisfy: [:i | (1<<1+i)>>2+ (1<<1+i)>>2 = (i/3) rounded]. } allSatisfy: #yourself. The nice thing is that above down-scaling operation can be multiplexed. Suppose that we have p groups of 2*nBits `M` holding square-scale multiplication of each channel concatenated in a double-Word-Mul. doubleWordMul = Mp .... M5 M3 M1 Note we arrange to have odd channels in low word, and even channels in high word. We first form a `groupMask` on a word with (p+1)/2 groups of nBits alternating all one `i` and all zero `o`, `oioi...ioi`. channelMask := 1 << nBits - 1. groupMask := 0. 0 to: wordBits // (2 * nBits) do: [:i | groupMask = groupMask << (2 * nBits) + channelMask]. Where wordBits is the number of bits in a word (usually we want to operate on 32 bits words in BitBlt). We form the `doubleGroupMask` on a double-word with p groups of 2*nBits `oi`: doubleGroupMask := groupMask >> nBits. doubleGroupMask := doubleGroupMask << wordBits + groupMask. And we perform the division by scale: doubleWordMul := (doubleWordMul >> nBits bitAnd: doubleGroupMask) + doubleWord >> nBits bitAnd: doubleGroupMask. At this stage we obtain a double word containing scaled multiplicands interleaved with groups of nBits zeros: o mp ... o m3 o m1 Now the final result can be obtained by shifting back: doubleWordMul >> (wordBits - nBits) + (doubleWordMul bitAnd: groupMask) The only problem remaining is how to obtain the squared-scale multiplicands. It would be easy to form the alternate even-odd channels for each src and dst operands: doubleWordSrc := src >> nBits bitAnd: groupMask. doubleWordSrc := doubleWordSrc << wordBits + (src bitAnd: groupMask). doubleWordDst := dst >> nBits bitAnd: groupMask. doubleWordDst := doubleWordDst << wordBits + (dst bitAnd: groupMask). we now get `o sp ... o s3 o s1` and `0 dp ... o d3 o d1`, but we would now need a SIMD integer multiplication operating on groups of 2*nBits in parallel... We don't have that, at least in portable C code. So we still have to emulate it with a loop. half := 1 << (nBits - 1). shift := 0. doubleWordMul := 0 0 to: nChannels - 1 do: [:i | doubleWordMul := doubleWordMul + (((doubleWordSrc >> shift bitAnd: channelMask) * (doubleWordSrc >> shift bitAnd: channelMask) + half) << shift). shift := shift + nBits + nBits]. We know that each operation cannot overflow on upper neighbour group of 2*nBits, because the maximum value is: (1<<nBits-1) squared + (1 << (nBits-1)) = 1 << (2*nBits) - (2*(1<<nBits)) + (1 << (nBits-1)) - 1 < (1 << (2*nBits) - 1) It remains the odd case of 16 bits depth, which has 3 groups of 5 bits and a leading zero. I believe that above algorithm works without splitting in two half-words... To be tested. We have gathered the pieces for a correctly rounded almost-multiplexed rgbMul. Somehow have our cake and eat it too. -- Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/651 You are receiving this because you are subscribed to this thread. Message ID: <OpenSmalltalk/opensmalltalk-vm/issues/651(a)github.com>

2 4

[OpenSmalltalk/opensmalltalk-vm] Allow choosing an image via zenity when no arguments are provided (#408)
by Leon Matthes 05 Jun '23

05 Jun '23

You can view, comment on, or merge this pull request online at: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/408 -- Commit Summary -- * Add file chooser dialog to squeak.sh.in * Add file chooser dialog to bin.squeak.sh.in -- File Changes -- M platforms/unix/config/bin.squeak.sh.in (13) M platforms/unix/config/squeak.sh.in (13) -- Patch Links -- https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/408.patch https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/408.diff -- 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/408

4 8

[OpenSmalltalk/opensmalltalk-vm] Proposed Document Addition: riscv64 porting notes (PR #650)
by Ken Dickey 23 Jan '23

23 Jan '23

A slightly cleaned up version of what I poster earlier. Just a schematic description which may be of use down the line. [Doc only; no code changes] You can view, comment on, or merge this pull request online at: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/650 -- Commit Summary -- * proposed doc * nits * added ref -- File Changes -- A PortingNotesRISCV64.md (322) -- Patch Links -- https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/650.patch https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/650.diff -- Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/650 You are receiving this because you are subscribed to this thread. Message ID: <OpenSmalltalk/opensmalltalk-vm/pull/650(a)github.com>

1 3

Polyphemus, a
by Pierre Misse 28 Dec '22

28 Dec '22

Hello, My name is Pierre Misse-Chanabier. I'm finishing my PhD in the RMOD team on testing Virtual Machines soon. I wanted to share with you a project I did with Theo Rogliano on the Pharo VM, which should be straightforward to use on the OpenSmalltalk-VM as well. Except for the UI, of course ! In a nutshell, Polyphemus [1] reifies OOPs in the memory to propose a representation that is closer to the language level. Therefore, it provides a layer that is easier to work with. For example, if an OOP is pointing to a class, I can ask for its name, inspect it as I would at the language level, or send message special to a class that shouldn't work on a string OOP for example. We have develop a few visualizations and basic tools for the Pharo VM. Particularly, we have been able to fix error containing meta-errors and memory corruptions. You may have encounter a video of this at the Technological Innovation award at ESUG 2022 [2]. We have also wrote a paper that will be published soon at VMIL 2022 [3]. I haven't checked in quite a long time, but I think that most (or all) of the simulator features we use in Polyphemus are available in the OpenSmalltal-VM as well. I hope it'll be useful to someone else, or at least interesting to some of you :) Pierre [1] Github Repository: https://github.com/hogoww/Polyphemus/ [2] Video Presentation for Esug Innovation award (I was unable to present it myself): https://www.youtube.com/watch?v=zf3cCtNW830 [3] VMIL'22: Ease VM Level Tooling with Language Level Ordinary Object Pointers https://hal.inria.fr/hal-03827632 (preprint)

1 1

[OpenSmalltalk/opensmalltalk-vm] Document VM release process (Issue #637)
by Marcel Taeumel 05 Nov '22

05 Nov '22

Here is a draft. ----------- How to make a new RC of the OSVM: 1. Tag specific commit with its UTC timestamp, e.g., 202205110711 for May 11, 2022 at 7:11 2. Run all "Build for*" workflows manually for that tag 3. Verify that a pre-release was created for that tag, containing all build artifacts How to make a new release of the OSVM: 1. Do a new RC (see above) 2. Edit that GitHub pre-release to be an actual release 3. Change the description to have some release notes on the changes How to make use of OSVM-RC in squeak-app bundles: 1. Maybe do a new RC (see above) 2. In any branch's bundle.yml, set VM_RC_TAG in prepare-bundles job to the RC tag How to make use of a new OSVM release in squeak-app bundles: 1. Maybe make a new VM release (see above) 2. Update the files in http://files.squeak.org/base/ for the Squeak versions of your choice 3. :warning: Watch out for minor differences between OSVM packaging and what vm-*.zip expects. For example, Linux has an extra indirection that needs to be removed. And those macOS .dmg packages have to be converted to .zip for squeak-app. -- Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/637 You are receiving this because you are subscribed to this thread. Message ID: <OpenSmalltalk/opensmalltalk-vm/issues/637(a)github.com>

2 1

Something weird with prim 83/84/100
by Boris Shingarov 29 Oct '22

29 Oct '22

Dear fellow VM hackers: There is something about the #perform: prims I do not understand. If I send #perform: not giving it enough arguments, I would expect the primitive to fail through to the Smalltalk code in Object>>perform:withArguments:inSuperclass:. But, sometimes it's indeed what happens and sometimes it's not what happens. In the attached test , if you run testDirect (in this morning's Squeak6) you will end up in the debugger (expected), but if you wrap in an extra send such as testIndirect, the prim will pass nil for the missing argument (to me this is unexpected). I also tested in last night's build of Cuis, and in Pharo8 (in the latter, the behavior is even weirder: if you replace the fail code to answer #somethingElse, you get #(somethingElse false false) instead of the #(false false false) in Squeak). Anyone has any thoughts on this?

2 2

error building linux32x86/squeak.cog.spur on FreeBSD 13.1-RELEASE-p2
by Vaidotas Didžbalis 28 Oct '22

28 Oct '22

Hello, Building squeak VM on FreeBSD failed, though it used to work for both 32 and 64 bit. Could someone comment on what is missing here? Thank you in advance Vaidotas vaidas@NomadBSD ~/o/b/l/s/build (Cog)> pwd /home/vaidas/opensmalltalk-vm/building/linux32x86/squeak.cog.spur/build vaidas@NomadBSD ~/o/b/l/s/build (Cog)> ./mvm static char SvnRawRevisionString[] = "$Rev$"; static char GitRawRevisionString[] = "$Rev$"; platforms/Cross/vm/sqSCCSVersion.h not up-to-date. You must run ../../../../scripts/updateSCCSVersions vaidas@NomadBSD ~/o/b/l/s/build (Cog) [1]> ../../../../scripts/updateSCCSVersions vaidas@NomadBSD ~/o/b/l/s/build (Cog)> ./mvm clean? y checking for gcc... no checking for cc... cc checking whether the C compiler works... yes checking for C compiler default output file name... a.out checking for suffix of executables... .... snip .... /home/vaidas/opensmalltalk-vm/platforms/unix/vm/sqUnixMain.c /home/vaidas/opensmalltalk-vm/platforms/unix/vm/sqUnixMain.c:979:19: warning: incompatible pointer types initializing 'struct mcontext *' with an expression of type 'mcontext_t *' (aka 'struct __mcontext *') [-Wincompatible-pointer-types] struct mcontext *regs = &uap->uc_mcontext; ^ ~~~~~~~~~~~~~~~~~ /home/vaidas/opensmalltalk-vm/platforms/unix/vm/sqUnixMain.c:984:8: error: incomplete definition of type 'struct mcontext' regs->mc_eax, regs->mc_ebx, regs->mc_ecx, regs->mc_edx, ~~~~^

4 6

[OpenSmalltalk/opensmalltalk-vm] 638a34: SistaVM source as per VMMaker.oscog-mt.3259
by Marcel Taeumel 27 Oct '22

27 Oct '22

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 638a348d4b1a5d9f3abdc6e9a6638b6b04fd5d07 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/638a348d4b1a5d9f3a… Author: Marcel Taeumel <marcel.taeumel(a)hpi.de> Date: 2022-10-27 (Thu, 27 Oct 2022) Changed paths: M src/spur32.sista/cogitARMv5.c M src/spur32.sista/cogitIA32.c M src/spur64.sista/cogitARMv8.c M src/spur64.sista/cogitX64SysV.c M src/spur64.sista/cogitX64WIN64.c Log Message: ----------- SistaVM source as per VMMaker.oscog-mt.3259 Fixes "-Wint-conversion" error for SistaVM builds.

1 0

VM Maker: VMMaker.oscog-mt.3259.mcz
by commits＠source.squeak.org 27 Oct '22

27 Oct '22

Marcel Taeumel uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-mt.3259.mcz ==================== Summary ==================== Name: VMMaker.oscog-mt.3259 Author: mt Time: 27 October 2022, 3:45:00.324984 pm UUID: bfaad400-d7ee-f74e-99f6-853fc646b4f3 Ancestors: VMMaker.oscog-mt.3258 Fixes "-Wint-conversion" error for SistaVM builds. =============== Diff against VMMaker.oscog-mt.3258 =============== Item was changed: ----- Method: SistaCogit>>genByteEqualsInlinePrimitiveResult:returnReg: (in category 'inline primitive generators') ----- genByteEqualsInlinePrimitiveResult: jmp returnReg: reg "Byte equal is falling through if the result is true, or jumping using jmp if the result is false. The method is required to set the jump target of jmp. We look ahead for a branch and pipeline the jumps if possible.. ReturnReg is used only if not followed immediately by a branch." | branchDescriptor nextPC postBranchPC targetBytecodePC localJump canElide | + <var: #jmp type: #'AbstractInstruction *'> <var: #localJump type: #'AbstractInstruction *'> <var: #branchDescriptor type: #'BytecodeDescriptor *'> self extractMaybeBranchDescriptorInto: [ :descr :next :postBranch :target | branchDescriptor := descr. nextPC := next. postBranchPC := postBranch. targetBytecodePC := target ]. "Case 1 - not followed by a branch" (branchDescriptor isBranchTrue or: [branchDescriptor isBranchFalse]) ifFalse: [self genMoveTrueR: reg. localJump := self Jump: 0. jmp jmpTarget: (self genMoveFalseR: reg). localJump jmpTarget: self Label. self ssPushRegister: reg. ^ 0]. "Case 2 - followed by a branch" (self fixupAt: nextPC) notAFixup ifTrue: "The next instruction is dead. we can skip it." [deadCode := true. self ensureFixupAt: targetBytecodePC. self ensureFixupAt: postBranchPC ] ifFalse: [self ssPushConstant: objectMemory trueObject]. "dummy value" "We can only elide the jump if the pc after nextPC is the same as postBranchPC. Branch following means it may not be." self nextDescriptorExtensionsAndNextPCInto: [:iguana1 :iguana2 :iguana3 :followingPC| nextPC := followingPC]. canElide := deadCode and: [nextPC = postBranchPC]. branchDescriptor isBranchTrue ifTrue: [ self Jump: (self ensureNonMergeFixupAt: targetBytecodePC). canElide ifFalse: [ jmp jmpTarget: (self ensureNonMergeFixupAt: postBranchPC) ] ifTrue: [ jmp jmpTarget: self Label ] ] ifFalse: [ canElide ifFalse: [ self Jump: (self ensureNonMergeFixupAt: postBranchPC). jmp jmpTarget: (self ensureNonMergeFixupAt: targetBytecodePC) ] ]. ^0! Item was changed: ----- Method: SistaCogit>>genForwardersInlinedIdenticalOrNotIf: (in category 'bytecode generators') ----- genForwardersInlinedIdenticalOrNotIf: orNot "Override to count inlined branches if followed by a conditional branch. We borrow the following conditional branch's counter and when about to inline the comparison we decrement the counter (without writing it back) and if it trips simply abort the inlining, falling back to the normal send which will then continue to the conditional branch which will trip and enter the abort." | nextPC postBranchPC targetBytecodePC branchDescriptor counterReg fixup jumpEqual jumpNotEqual counterAddress countTripped unforwardArg unforwardRcvr argReg rcvrReg regMask rcvrConstant argConstant | <var: #fixup type: #'BytecodeFixup *'> <var: #countTripped type: #'AbstractInstruction *'> <var: #label type: #'AbstractInstruction *'> <var: #branchDescriptor type: #'BytecodeDescriptor *'> <var: #jumpEqual type: #'AbstractInstruction *'> <var: #jumpNotEqual type: #'AbstractInstruction *'> ((coInterpreter isOptimizedMethod: methodObj) or: [needsFrame not]) ifTrue: [^super genForwardersInlinedIdenticalOrNotIf: orNot]. regMask := 0. unforwardRcvr := (self ssValue: 1) mayBeAForwarder. unforwardArg := self ssTop mayBeAForwarder. (unforwardRcvr not and: [unforwardArg not]) ifTrue: [unforwardRcvr := true. "TODO: use genVanilla with profiling counters (not implemented). ^self genVanillaInlinedIdenticalOrNotIf: orNot"]. self assert: (unforwardArg or: [unforwardRcvr]). "We use reg for non annotable constants to avoid duplicating objRef." rcvrConstant := objectRepresentation isUnannotatableConstant: (self ssValue: 1). argConstant := objectRepresentation isUnannotatableConstant: self ssTop. self extractMaybeBranchDescriptorInto: [ :descr :next :postBranch :target | branchDescriptor := descr. nextPC := next. postBranchPC := postBranch. targetBytecodePC := target ]. "If an operand is an annotable constant, it may be forwarded, so we need to store it into a register so the forwarder check can jump back to the comparison after unforwarding the constant. However, if one of the operand is an unnanotable constant, does not allocate a register for it (machine code will use operations on constants)." self allocateEqualsEqualsRegistersArgNeedsReg: argConstant not rcvrNeedsReg: rcvrConstant not into: [ :rcvr :arg | rcvrReg:= rcvr. argReg := arg ]. "Only interested in inlining if followed by a conditional branch." (branchDescriptor isBranchTrue or: [branchDescriptor isBranchFalse]) ifFalse: [^ self genIdenticalNoBranchArgIsConstant: argConstant rcvrIsConstant: rcvrConstant argReg: argReg rcvrReg: rcvrReg orNotIf: orNot]. "If branching the stack must be flushed for the merge" self ssFlushTo: simStackPtr - 2. unforwardArg ifTrue: [ objectRepresentation genEnsureOopInRegNotForwarded: argReg scratchReg: TempReg ]. unforwardRcvr ifTrue: [ objectRepresentation genEnsureOopInRegNotForwarded: rcvrReg scratchReg: TempReg ]. regMask := argReg = NoReg ifTrue: [self registerMaskFor: rcvrReg] ifFalse: [rcvrReg = NoReg ifTrue: [self registerMaskFor: argReg] ifFalse: [self registerMaskFor: rcvrReg and: argReg]]. counterReg := self allocateRegNotConflictingWith: regMask. self genExecutionCountLogicInto: [ :cAddress :countTripBranch | counterAddress := cAddress. countTripped := countTripBranch ] counterReg: counterReg. self genCmpArgIsConstant: argConstant rcvrIsConstant: rcvrConstant argReg: argReg rcvrReg: rcvrReg. self ssPop: 2. orNot == branchDescriptor isBranchTrue "orNot is true for ~~" ifFalse: + [ fixup := self ensureNonMergeFixupAt: postBranchPC. + self JumpZero: (self ensureNonMergeFixupAt: targetBytecodePC) ] - [ fixup := (self ensureNonMergeFixupAt: postBranchPC) asUnsignedInteger. - self JumpZero: (self ensureNonMergeFixupAt: targetBytecodePC) asUnsignedInteger ] ifTrue: + [ fixup := self ensureNonMergeFixupAt: targetBytecodePC. + self JumpZero: (self ensureNonMergeFixupAt: postBranchPC) ]. - [ fixup := (self ensureNonMergeFixupAt: targetBytecodePC) asUnsignedInteger. - self JumpZero: (self ensureNonMergeFixupAt: postBranchPC) asUnsignedInteger ]. self genFallsThroughCountLogicCounterReg: counterReg counterAddress: counterAddress. self Jump: fixup. countTripped jmpTarget: self Label. "inlined version of #== ignoring the branchDescriptor if the counter trips to have normal state for the optimizer" self ssPop: -2. self genCmpArgIsConstant: unforwardArg not rcvrIsConstant: unforwardRcvr not argReg: argReg rcvrReg: rcvrReg. self ssPop: 2. "This code necessarily directly falls through the jumpIf: code which pops the top of the stack into TempReg. We therefore directly assign the result to TempReg to save one move instruction" jumpEqual := orNot ifFalse: [self JumpZero: 0] ifTrue: [self JumpNonZero: 0]. self genMoveFalseR: TempReg. jumpNotEqual := self Jump: 0. jumpEqual jmpTarget: (self genMoveTrueR: TempReg). jumpNotEqual jmpTarget: self Label. self ssPushRegister: TempReg. (self fixupAt: nextPC) notAFixup ifTrue: [ branchReachedOnlyForCounterTrip := true ]. ^ 0!

1 0

[OpenSmalltalk/opensmalltalk-vm] fb126d: CogVM source as per VMMaker.oscog-mt.3258
by Marcel Taeumel 27 Oct '22

27 Oct '22

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: fb126da044f265b77bda14b113ac0539d3d9ec01 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/fb126da044f265b77b… Author: Marcel Taeumel <marcel.taeumel(a)hpi.de> Date: 2022-10-27 (Thu, 27 Oct 2022) Changed paths: M src/spur32.cog.lowcode/cogitARMv5.c M src/spur32.cog.lowcode/cogitIA32.c M src/spur32.cog/cogitARMv5.c M src/spur32.cog/cogitIA32.c M src/spur32.sista/cogitARMv5.c M src/spur32.sista/cogitIA32.c M src/spur64.cog.lowcode/cogitARMv8.c M src/spur64.cog.lowcode/cogitX64SysV.c M src/spur64.cog.lowcode/cogitX64WIN64.c M src/spur64.cog/cogitARMv8.c M src/spur64.cog/cogitX64SysV.c M src/spur64.cog/cogitX64WIN64.c M src/spur64.sista/cogitARMv8.c M src/spur64.sista/cogitX64SysV.c M src/spur64.sista/cogitX64WIN64.c M src/v3.cog/cogitARMv5.c M src/v3.cog/cogitIA32.c Log Message: ----------- CogVM source as per VMMaker.oscog-mt.3258 Fixes "-Wint-conversion" error for CogVM builds. Note that there seem to be several ways to convert "mcpc": mcpc asInteger objectMemory integerObjectOf: mcpc self cCoerce: mcpc to: #sqInt I chose the one that is already used a few lines above.

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 2022