Vm-dev January 2018

vm-dev@lists.squeakfoundation.org

29 participants
255 discussions

VM Maker: VMMaker.oscog-eem.2324.mcz
by commits＠source.squeak.org 23 Jan '18

23 Jan '18

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2324.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2324 Author: eem Time: 23 January 2018, 1:15:42.643009 pm UUID: 904abc56-e5a8-467e-a337-880211e33805 Ancestors: VMMaker.oscog-cb.2323 Fix store check call in genPrimitiveStringReplace on RISCs (i.e. on ARM save & restore LinkReg around call). Fix code generation for RegisterAllocatingCogit>>genJumpBackTo: (must use addressOf: simSelf). Fix typos in CogSimStackEntry's class comment. =============== Diff against VMMaker.oscog-cb.2323 =============== Item was changed: ----- Method: CogObjectRepresentationForSpur>>genPrimitiveStringReplace (in category 'primitive generators') ----- genPrimitiveStringReplace "replaceFrom: start to: stop with: replacement startingAt: repStart. The primitive in the JIT tries to deal with two pathological cases, copy of arrays and byteStrings, which often copies only a dozen of fields and where switching to the C runtime cost a lot. Based on heuristics on the method class, I generate a quick array path (typically for Array), a quick byteString path (typically for ByteString, ByteArray and LargeInteger) or no quick path at all (Typically for Bitmap). The many tests to ensure that the primitive won't fail are not super optimised (multiple reloading or stack arguments in registers) but this is still good enough and worth it since we're avoiding the Smalltalk to C stack switch. The tight copying loops are optimised. It is possible to build a bigger version with the 2 different paths but I (Clement) believe this is too big machine code wise to be worth it." |arrayReg startReg stopReg replReg repStartReg jumpNotSmi1 jumpNotSmi2 jumpNotSmi3 jumpImm jumpEmpty jumpImmutable jumpOutOfBounds1 jumpOutOfBounds2 jumpOutOfBounds3 jumpOutOfBounds4 jumpIncorrectFormat1 jumpIncorrectFormat2 jumpIncorrectFormat3 jumpIncorrectFormat4 result jmpDestYoung jmpAlreadyRemembered instr adjust| <var: #jumpImm type: #'AbstractInstruction *'> <var: #jumpEmpty type: #'AbstractInstruction *'> <var: #jumpFinished type: #'AbstractInstruction *'> <var: #jumpNotSmi1 type: #'AbstractInstruction *'> <var: #jumpNotSmi2 type: #'AbstractInstruction *'> <var: #jumpNotSmi3 type: #'AbstractInstruction *'> <var: #jmpDestYoung type: #'AbstractInstruction *'> <var: #jumpImmutable type: #'AbstractInstruction *'> <var: #jumpOutOfBounds1 type: #'AbstractInstruction *'> <var: #jumpOutOfBounds2 type: #'AbstractInstruction *'> <var: #jumpOutOfBounds3 type: #'AbstractInstruction *'> <var: #jumpOutOfBounds4 type: #'AbstractInstruction *'> <var: #jumpIncorrectFormat1 type: #'AbstractInstruction *'> <var: #jumpIncorrectFormat2 type: #'AbstractInstruction *'> <var: #jumpIncorrectFormat3 type: #'AbstractInstruction *'> <var: #jumpIncorrectFormat4 type: #'AbstractInstruction *'> <var: #jmpAlreadyRemembered type: #'AbstractInstruction *'> "Can I generate a quick path for this method ?" ((cogit seemsToBeInstantiating: objectMemory arrayFormat) or: [cogit seemsToBeInstantiating: objectMemory firstByteFormat]) ifFalse: [^UnimplementedPrimitive]. "I redefine those name to ease program comprehension" arrayReg := ReceiverResultReg. startReg := Arg0Reg. stopReg := Arg1Reg. replReg := ClassReg. repStartReg := SendNumArgsReg. "Load arguments in reg" cogit genStackArgAt: 0 into: repStartReg. cogit genStackArgAt: 1 into: replReg. cogit genStackArgAt: 2 into: stopReg. cogit genStackArgAt: 3 into: startReg. "start,stop,repStart Smis or fail the primitive" jumpNotSmi1 := self genJumpNotSmallInteger: repStartReg scratchReg: TempReg. jumpNotSmi2 := self genJumpNotSmallInteger: stopReg scratchReg: TempReg. jumpNotSmi3 := self genJumpNotSmallInteger: startReg scratchReg: TempReg. "repl non immediate or fail the primitive" jumpImm := self genJumpImmediate: replReg. "if start>stop primitive success" cogit CmpR: startReg R: stopReg. jumpEmpty := cogit JumpLess: 0. "If receiver immutable fail the primitive " self cppIf: IMMUTABILITY ifTrue: [jumpImmutable := self genJumpImmutable: ReceiverResultReg scratchReg: TempReg]. "0 >= start, fail" cogit CmpCq: (objectMemory integerObjectOf: 0) R: startReg. jumpOutOfBounds1 := cogit JumpLessOrEqual: 0. "0 >= replStart, fail" cogit CmpCq: (objectMemory integerObjectOf: 0) R: repStartReg. jumpOutOfBounds2 := cogit JumpLessOrEqual: 0. "--- Pointer object version ---" (cogit seemsToBeInstantiating: objectMemory arrayFormat) ifTrue: ["Are they both array format ?" self genGetFormatOf: arrayReg into: TempReg. self genGetFormatOf: replReg into: startReg. cogit CmpCq: objectMemory arrayFormat R: startReg. jumpIncorrectFormat1 := cogit JumpNonZero: 0. cogit CmpCq: objectMemory arrayFormat R: TempReg. jumpIncorrectFormat2 := cogit JumpNonZero: 0. "Both objects are arrays," self genGetNumSlotsOf: arrayReg into: TempReg. self genConvertSmallIntegerToIntegerInReg: stopReg. "arr size < stop" cogit CmpR: TempReg R: stopReg. jumpOutOfBounds3 := cogit JumpGreater: 0. "rep size < repStart - start + stop" self genGetNumSlotsOf: replReg into: TempReg. cogit genStackArgAt: 3 into: startReg. self genConvertSmallIntegerToIntegerInReg: startReg. self genConvertSmallIntegerToIntegerInReg: repStartReg. cogit SubR: startReg R: stopReg. cogit AddR: repStartReg R: stopReg. "stopReg: stop - start + repStart" cogit CmpR: TempReg R: stopReg. jumpOutOfBounds4 := cogit JumpGreater: 0. "Everything in bounds" "PossibleRemembered object" cogit MoveCw: objectMemory storeCheckBoundary R: TempReg. cogit CmpR: TempReg R: arrayReg. jmpDestYoung := cogit JumpBelow: 0. self checkRememberedInTrampoline ifFalse: [jmpAlreadyRemembered := self genCheckRememberedBitOf: arrayReg scratch: TempReg]. + cogit backEnd saveAndRestoreLinkRegAround: + [self callStoreCheckTrampoline]. - self callStoreCheckTrampoline. jmpDestYoung jmpTarget: cogit Label. self checkRememberedInTrampoline ifFalse: [jmpAlreadyRemembered jmpTarget: cogit Label]. "Copy the array" cogit genStackArgAt: 2 into: stopReg. self genConvertSmallIntegerToIntegerInReg: stopReg. "Shift replReg to read it with startReg offset" cogit SubR: startReg R: repStartReg. cogit LogicalShiftLeftCq: objectMemory shiftForWord R: repStartReg. cogit AddR: repStartReg R: replReg. "shift by baseHeaderSize and then move from 1 relative to zero relative" adjust := (objectMemory baseHeaderSize >> objectMemory shiftForWord) - 1. adjust ~= 0 ifTrue: [ cogit AddCq: adjust R: startReg. cogit AddCq: adjust R: stopReg ]. "Tight copying loop" instr := cogit MoveXwr: startReg R: replReg R: TempReg. cogit MoveR: TempReg Xwr: startReg R: arrayReg. cogit AddCq: 1 R: startReg. cogit CmpR: startReg R: stopReg. cogit JumpAboveOrEqual: instr. jumpEmpty jmpTarget: cogit genPrimReturn. "CANNOT REACH by falling though" jumpIncorrectFormat1 jmpTarget: (jumpIncorrectFormat2 jmpTarget: cogit Label)]. "--- Byte object version ---" (cogit seemsToBeInstantiating: objectMemory firstByteFormat) ifTrue: ["Are they both byte array format ? CompiledMethod excluded" self genGetFormatOf: arrayReg into: TempReg. self genGetFormatOf: replReg into: repStartReg. cogit CmpCq: objectMemory firstByteFormat R: repStartReg. jumpIncorrectFormat1 := cogit JumpLess: 0. cogit CmpCq: objectMemory firstCompiledMethodFormat R: repStartReg. jumpIncorrectFormat2 := cogit JumpGreaterOrEqual: 0. cogit CmpCq: objectMemory firstByteFormat R: TempReg. jumpIncorrectFormat3 := cogit JumpLess: 0. cogit CmpCq: objectMemory firstCompiledMethodFormat R: TempReg. jumpIncorrectFormat4 := cogit JumpGreaterOrEqual: 0. "Both objects are byte arrays" self genGetNumSlotsOf: arrayReg into: startReg. (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: startReg). cogit AndCq: objectMemory wordSize - 1 R: TempReg R: TempReg. cogit SubR: TempReg R: startReg. self genConvertSmallIntegerToIntegerInReg: stopReg. "arr size < stop" cogit CmpR: startReg R: stopReg. jumpOutOfBounds3 := cogit JumpGreater: 0. "rep size < repStart - start + stop" cogit MoveR: repStartReg R: TempReg. "TempReg holds repl format" cogit genStackArgAt: 0 into: repStartReg. cogit genStackArgAt: 3 into: startReg. self genConvertSmallIntegerToIntegerInReg: startReg. self genConvertSmallIntegerToIntegerInReg: repStartReg. cogit SubR: startReg R: stopReg. cogit AddR: repStartReg R: stopReg. self genGetNumSlotsOf: replReg into: startReg. (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: startReg). cogit AndCq: objectMemory wordSize - 1 R: TempReg R: TempReg. cogit SubR: TempReg R: startReg. "stopReg: stop - start + repStart" cogit CmpR: startReg R: stopReg. jumpOutOfBounds4 := cogit JumpGreater: 0. "Everything in bounds" "Copy the bytes" cogit genStackArgAt: 3 into: startReg. self genConvertSmallIntegerToIntegerInReg: startReg. cogit genStackArgAt: 2 into: stopReg. self genConvertSmallIntegerToIntegerInReg: stopReg. "Shift replReg to read it with startReg offset" cogit SubR: startReg R: repStartReg. cogit AddR: repStartReg R: replReg. "shift by baseHeaderSize and then move from 1 relative to zero relative" adjust := objectMemory baseHeaderSize - 1. adjust ~= 0 ifTrue: [ cogit AddCq: adjust R: startReg. cogit AddCq: adjust R: stopReg. ]. "Tight copying loop" instr := cogit MoveXbr: startReg R: replReg R: TempReg. cogit MoveR: TempReg Xbr: startReg R: arrayReg. cogit AddCq: 1 R: startReg. cogit CmpR: startReg R: stopReg. cogit JumpAboveOrEqual: instr. jumpEmpty jmpTarget: cogit genPrimReturn. "CANNOT REACH by falling though" jumpIncorrectFormat4 jmpTarget: (jumpIncorrectFormat3 jmpTarget: (jumpIncorrectFormat2 jmpTarget: (jumpIncorrectFormat1 jmpTarget: cogit Label)))]. (result := cogit compileInterpreterPrimitive) < 0 ifTrue: [^result]. jumpImm jmpTarget: (jumpNotSmi1 jmpTarget: (jumpNotSmi2 jmpTarget: (jumpNotSmi3 jmpTarget: cogit Label))). jumpOutOfBounds1 jmpTarget: (jumpOutOfBounds2 jmpTarget: (jumpOutOfBounds3 jmpTarget: (jumpOutOfBounds4 jmpTarget: jumpImm getJmpTarget))). self cppIf: IMMUTABILITY ifTrue: [jumpImmutable jmpTarget: jumpImm getJmpTarget]. ^ CompletePrimitive! Item was changed: VMStructType subclass: #CogSimStackEntry instanceVariableNames: 'cogit objectRepresentation type spilled liveRegister register offset constant bcptr' classVariableNames: '' poolDictionaries: 'CogAbstractRegisters CogCompilationConstants CogRTLOpcodes' category: 'VMMaker-JIT'! + !CogSimStackEntry commentStamp: 'eem 1/22/2018 17:13' prior: 0! + A CogSimStackEntry represents an object pushed on the stack, but during the partial evaluation that occurs as part of the StackToRegisterMappingCogit's compilation. Bytecodes that produce operands (push items onto the stack) push suitably descriptive instances of CogSimStackEntry onto the simStack (simulation stack). Bytecodes that consume operands (sends, assignments, returns, etc) take items off the simStack. Hence the generated code avoids pushing items onto the real stack, and the StackToRegisterMappngCogit can put the operands found on the simStack in registers, etc. Hence actual stack traffic is much reduced, a much more efficient calling convention is enabled, and so overall performance is increased. This scheme is due to L. Peter Deutsch and extended here. - !CogSimStackEntry commentStamp: 'eem 2/25/2017 11:14' prior: 0! - A CogSimStackEntry represents an object pushed on the stack, but during the partial evaluation that occurs as part of the StackToRegisterMappingCogit's compilation. Bytecodes that produce operands (push items onto the stack) push suitably descriptive instances of CogSimStackEntry onto the simStack (simulation stack). Bytecodes that cnsume operands (sends, assignments, returns, etc) take items off the simStack. Hence teh generated code avoids pushing items onto the real stack, and the StackToRegisterMappngCogit can put the operands found on the simSTack in registers, etc. Hence actual stack raffic is much reduced, a much more efficient calling convention is enabled, and so overall performance is increased. This scheme is due to L. Peter Deutsch and extended here. Instance Variables bcptr: <Integer> cogit: <StackToRegisterMappingCogit> constant: <Oop> liveRegister: <Integer> objectRepresentation: <CogObjectRepresentation> offset: <Integer> register: <Integer> spilled: <Boolean> type: <Integer from SSBaseOffset, SSConstant, SSRegister or SSSpill> bcptr - the bytecode PC at which this particular entry was created (pushed onto the stack). cogit - the StackToRegisterMappingCogit using this instance constant - if type = SSConstant then this is the constant's oop liveRegister - unused other than for simSelf. This is here for simSelf and for the subclass CogRegisterAllocatingSimStackEntry objectRepresentation - the CogObjectRepresentation in use for the current object model offset - if type = SSBaseOffset or type = SSSpill then this is the offset from register register - type = SSBaseOffset or type = SSSpill or type = SSRegister then this is the register's code (NoReg, TempReg, ReceiverResultReg et al) spilled - if true, then this entry has been spilled onto the actual stack (or rather code has been generated to push the entry onto the real stack) type - SSBaseOffset, SSConstant, SSRegister or SSSpill! Item was changed: ----- Method: RegisterAllocatingCogit>>genJumpBackTo: (in category 'bytecode generator support') ----- genJumpBackTo: targetPC | target | "On first pass install register allocations (if any) as of the end of the loop and back up to recompile. One the second pass generate (any merge other than self elided because register assignments copied to loop head in first pass) cmp stackLimit maybe reload self jumpAboveOrEqual target flush checkForInterrupts merge from flushed (N.B. If stack was flushed before loop we could conceivably jump to the pre-loop merge code) jmp target self printSimStack; printSimStack: target mergeSimStack" self assert: targetPC < bytecodePC. target := self fixupAt: targetPC. self ensureRegisterAssignmentsAreAtHeadOfLoop: target. self MoveAw: coInterpreter stackLimitAddress R: TempReg. (target isReceiverResultRegSelf and: [simSelf liveRegister = NoReg]) ifTrue: + [(self addressOf: simSelf) storeToReg: ReceiverResultReg]. - [simSelf storeToReg: ReceiverResultReg]. self CmpR: TempReg R: SPReg. "N.B. FLAGS := SPReg - TempReg" self JumpAboveOrEqual: target. self ssFlushTo: simStackPtr. self CallRT: ceCheckForInterruptTrampoline. self annotateBytecode: self Label. self flushLiveRegistersForSuspensionPoint. self mergeCurrentSimStackWith: target forwards: false. self Jump: target. deadCode := true. "can't fall through" ^0!

1 0

VM Maker: Cog-eem.346.mcz
by commits＠source.squeak.org 23 Jan '18

23 Jan '18

Eliot Miranda uploaded a new version of Cog to project VM Maker: http://source.squeak.org/VMMaker/Cog-eem.346.mcz ==================== Summary ==================== Name: Cog-eem.346 Author: eem Time: 23 January 2018, 11:56:03.060715 am UUID: 73f848ee-01d3-4d2f-b5be-d869a12f7421 Ancestors: Cog-eem.345 Add the missing control register accessiors for GdbARMAlien64 and delete subclass accessors that are the same as the superclass's. =============== Diff against Cog-eem.345 =============== Item was added: + ----- Method: GdbARMAlien64>>cflag (in category 'accessing') ----- + cflag + ^self unsignedLongAt: 577! Item was added: + ----- Method: GdbARMAlien64>>cflag: (in category 'accessing') ----- + cflag: anUnsignedInteger + ^self unsignedLongAt: 577 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>fpCPSR (in category 'accessing') ----- + fpCPSR + "The VFP cpsr flags are kept as a single word in the Alien structure. Return just the top 4 bits, the actual flags" + ^(self unsignedLongAt: 2569) >>28! Item was added: + ----- Method: GdbARMAlien64>>ifflags (in category 'accessing') ----- + ifflags + ^self unsignedLongAt: 585! Item was added: + ----- Method: GdbARMAlien64>>ifflags: (in category 'accessing') ----- + ifflags: anUnsignedInteger + ^self unsignedLongAt: 585 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>lr (in category 'accessing') ----- - lr - ^self unsignedLongAt: 69! Item was removed: - ----- Method: GdbARMAlien64>>lr: (in category 'accessing') ----- - lr: anUnsignedInteger - ^self unsignedLongAt: 69 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>nflag (in category 'accessing') ----- + nflag + ^self unsignedLongAt: 569! Item was added: + ----- Method: GdbARMAlien64>>nflag: (in category 'accessing') ----- + nflag: anUnsignedInteger + ^self unsignedLongAt: 569 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>pc (in category 'accessing') ----- - pc - ^self unsignedLongAt: 73! Item was removed: - ----- Method: GdbARMAlien64>>pc: (in category 'accessing') ----- - pc: anUnsignedInteger - ^self unsignedLongAt: 73 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>priorPc (in category 'accessing') ----- + priorPc + ^self unsignedLongAt: 613! Item was added: + ----- Method: GdbARMAlien64>>priorPc: (in category 'accessing') ----- + priorPc: anUnsignedInteger + ^self unsignedLongAt: 613 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r0 (in category 'accessing') ----- - r0 - ^self unsignedLongAt: 13! Item was removed: - ----- Method: GdbARMAlien64>>r0: (in category 'accessing') ----- - r0: anUnsignedInteger - ^self unsignedLongAt: 13 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r1 (in category 'accessing') ----- - r1 - ^self unsignedLongAt: 17! Item was removed: - ----- Method: GdbARMAlien64>>r10 (in category 'accessing') ----- - r10 - ^self unsignedLongAt: 53! Item was removed: - ----- Method: GdbARMAlien64>>r10: (in category 'accessing') ----- - r10: anUnsignedInteger - ^self unsignedLongAt: 53 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r11 (in category 'accessing') ----- - r11 - ^self unsignedLongAt: 57! Item was removed: - ----- Method: GdbARMAlien64>>r11: (in category 'accessing') ----- - r11: anUnsignedInteger - ^self unsignedLongAt: 57 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r12 (in category 'accessing') ----- - r12 - ^self unsignedLongAt: 61! Item was removed: - ----- Method: GdbARMAlien64>>r12: (in category 'accessing') ----- - r12: anUnsignedInteger - ^self unsignedLongAt: 61 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r1: (in category 'accessing') ----- - r1: anUnsignedInteger - ^self unsignedLongAt: 17 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r2 (in category 'accessing') ----- - r2 - ^self unsignedLongAt: 21! Item was removed: - ----- Method: GdbARMAlien64>>r2: (in category 'accessing') ----- - r2: anUnsignedInteger - ^self unsignedLongAt: 21 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r3 (in category 'accessing') ----- - r3 - ^self unsignedLongAt: 25! Item was removed: - ----- Method: GdbARMAlien64>>r3: (in category 'accessing') ----- - r3: anUnsignedInteger - ^self unsignedLongAt: 25 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r4 (in category 'accessing') ----- - r4 - ^self unsignedLongAt: 29! Item was removed: - ----- Method: GdbARMAlien64>>r4: (in category 'accessing') ----- - r4: anUnsignedInteger - ^self unsignedLongAt: 29 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r5 (in category 'accessing') ----- - r5 - ^self unsignedLongAt: 33! Item was removed: - ----- Method: GdbARMAlien64>>r5: (in category 'accessing') ----- - r5: anUnsignedInteger - ^self unsignedLongAt: 33 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r6 (in category 'accessing') ----- - r6 - ^self unsignedLongAt: 37! Item was removed: - ----- Method: GdbARMAlien64>>r6: (in category 'accessing') ----- - r6: anUnsignedInteger - ^self unsignedLongAt: 37 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r7 (in category 'accessing') ----- - r7 - ^self unsignedLongAt: 41! Item was removed: - ----- Method: GdbARMAlien64>>r7: (in category 'accessing') ----- - r7: anUnsignedInteger - ^self unsignedLongAt: 41 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r8 (in category 'accessing') ----- - r8 - ^self unsignedLongAt: 45! Item was removed: - ----- Method: GdbARMAlien64>>r8: (in category 'accessing') ----- - r8: anUnsignedInteger - ^self unsignedLongAt: 45 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>r9 (in category 'accessing') ----- - r9 - ^self unsignedLongAt: 49! Item was removed: - ----- Method: GdbARMAlien64>>r9: (in category 'accessing') ----- - r9: anUnsignedInteger - ^self unsignedLongAt: 49 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>rawCPSR (in category 'accessing') ----- + rawCPSR + ^self unsignedLongAt: 537! Item was added: + ----- Method: GdbARMAlien64>>sflag (in category 'accessing') ----- + sflag + ^self unsignedLongAt: 589! Item was added: + ----- Method: GdbARMAlien64>>sflag: (in category 'accessing') ----- + sflag: anUnsignedInteger + ^self unsignedLongAt: 589 put: anUnsignedInteger! Item was removed: - ----- Method: GdbARMAlien64>>sp (in category 'accessing') ----- - sp - ^self unsignedLongAt: 65! Item was removed: - ----- Method: GdbARMAlien64>>sp: (in category 'accessing') ----- - sp: anUnsignedInteger - ^self unsignedLongAt: 65 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>tflag (in category 'accessing') ----- + tflag + ^self unsignedLongAt: 593! Item was added: + ----- Method: GdbARMAlien64>>tflag: (in category 'accessing') ----- + tflag: anUnsignedInteger + ^self unsignedLongAt: 593 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>vflag (in category 'accessing') ----- + vflag + ^self unsignedLongAt: 581! Item was added: + ----- Method: GdbARMAlien64>>vflag: (in category 'accessing') ----- + vflag: anUnsignedInteger + ^self unsignedLongAt: 581 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>zflag (in category 'accessing') ----- + zflag + ^self unsignedLongAt: 573! Item was added: + ----- Method: GdbARMAlien64>>zflag: (in category 'accessing') ----- + zflag: anUnsignedInteger + ^self unsignedLongAt: 573 put: anUnsignedInteger!

1 0

[OpenSmalltalk/opensmalltalk-vm] 825073: Also generate required control register accessors ...
by GitHub 23 Jan '18

23 Jan '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 825073b18ca67885857d915d9b5ee5f29e8db944 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/825073b18ca6788585… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2018-01-23 (Tue, 23 Jan 2018) Changed paths: M processors/ARM/exploration/Makefile M processors/ARM/exploration/Makefile64 A processors/ARM/exploration/printcpuctrl.c Log Message: ----------- Also generate required control register accessors for the GdbARMAlien[64].

1 0

VM Maker: Cog-eem.345.mcz
by commits＠source.squeak.org 23 Jan '18

23 Jan '18

Eliot Miranda uploaded a new version of Cog to project VM Maker: http://source.squeak.org/VMMaker/Cog-eem.345.mcz ==================== Summary ==================== Name: Cog-eem.345 Author: eem Time: 23 January 2018, 9:10:01.471303 am UUID: b92c0ca1-65d9-4de7-8c50-52b425f75ba5 Ancestors: Cog-eem.344 Add the processor aliens when compiled in 64-bits for running on 64-bit Squeak Add a means for setting the name of the processor-specific ReceiverResultReg for decorating assembly with inst var names. =============== Diff against Cog-eem.344 =============== Item was added: + ----- Method: BochsIA32Alien class>>implementationClass (in category 'instance creation') ----- + implementationClass + ^Smalltalk wordSize = 8 ifTrue: [BochsIA32Alien64] ifFalse: [self]! Item was added: + BochsIA32Alien variableByteSubclass: #BochsIA32Alien64 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Cog-Processors'! + + !BochsIA32Alien64 commentStamp: 'eem 12/5/2017 14:19' prior: 0! + I am a wrapper around the Bochs C++ IA32 CPU emulator when compiled in 64 bits. My superclass is the same but for 32 bits.! Item was added: + ----- Method: BochsIA32Alien64 class>>dataSize (in category 'instance creation') ----- + dataSize + ^26384! Item was added: + ----- Method: BochsIA32Alien64>>al (in category 'accessing') ----- + al + ^self unsignedByteAt: 477! Item was added: + ----- Method: BochsIA32Alien64>>al: (in category 'accessing') ----- + al: anUnsignedInteger + ^self unsignedByteAt: 477 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>bl (in category 'accessing') ----- + bl + ^self unsignedByteAt: 489! Item was added: + ----- Method: BochsIA32Alien64>>bl: (in category 'accessing') ----- + bl: anUnsignedInteger + ^self unsignedByteAt: 489 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>bpl (in category 'accessing') ----- + bpl + ^self unsignedByteAt: 497! Item was added: + ----- Method: BochsIA32Alien64>>bpl: (in category 'accessing') ----- + bpl: anUnsignedInteger + ^self unsignedByteAt: 497 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>cl (in category 'accessing') ----- + cl + ^self unsignedByteAt: 481! Item was added: + ----- Method: BochsIA32Alien64>>cl: (in category 'accessing') ----- + cl: anUnsignedInteger + ^self unsignedByteAt: 481 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>cr0 (in category 'accessing') ----- + cr0 + ^self unsignedLongLongAt: 1017! Item was added: + ----- Method: BochsIA32Alien64>>cr0: (in category 'accessing') ----- + cr0: anUnsignedInteger + ^self unsignedLongLongAt: 1017 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>cr1 (in category 'accessing') ----- + cr1 + ^self unsignedLongLongAt: 1021! Item was added: + ----- Method: BochsIA32Alien64>>cr1: (in category 'accessing') ----- + cr1: anUnsignedInteger + ^self unsignedLongLongAt: 1021 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>cr2 (in category 'accessing') ----- + cr2 + ^self unsignedLongLongAt: 1025! Item was added: + ----- Method: BochsIA32Alien64>>cr2: (in category 'accessing') ----- + cr2: anUnsignedInteger + ^self unsignedLongLongAt: 1025 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>cr3 (in category 'accessing') ----- + cr3 + ^self unsignedLongLongAt: 1029! Item was added: + ----- Method: BochsIA32Alien64>>cr3: (in category 'accessing') ----- + cr3: anUnsignedInteger + ^self unsignedLongLongAt: 1029 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>cr4 (in category 'accessing') ----- + cr4 + ^self unsignedLongLongAt: 1037! Item was added: + ----- Method: BochsIA32Alien64>>cr4: (in category 'accessing') ----- + cr4: anUnsignedInteger + ^self unsignedLongLongAt: 1037 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>dil (in category 'accessing') ----- + dil + ^self unsignedByteAt: 505! Item was added: + ----- Method: BochsIA32Alien64>>dil: (in category 'accessing') ----- + dil: anUnsignedInteger + ^self unsignedByteAt: 505 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>dl (in category 'accessing') ----- + dl + ^self unsignedByteAt: 485! Item was added: + ----- Method: BochsIA32Alien64>>dl: (in category 'accessing') ----- + dl: anUnsignedInteger + ^self unsignedByteAt: 485 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>eax (in category 'accessing') ----- + eax + ^self unsignedLongAt: 477! Item was added: + ----- Method: BochsIA32Alien64>>eax: (in category 'accessing') ----- + eax: anUnsignedInteger + ^self unsignedLongAt: 477 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>ebp (in category 'accessing') ----- + ebp + ^self unsignedLongAt: 497! Item was added: + ----- Method: BochsIA32Alien64>>ebp: (in category 'accessing') ----- + ebp: anUnsignedInteger + ^self unsignedLongAt: 497 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>ebx (in category 'accessing') ----- + ebx + ^self unsignedLongAt: 489! Item was added: + ----- Method: BochsIA32Alien64>>ebx: (in category 'accessing') ----- + ebx: anUnsignedInteger + ^self unsignedLongAt: 489 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>ecx (in category 'accessing') ----- + ecx + ^self unsignedLongAt: 481! Item was added: + ----- Method: BochsIA32Alien64>>ecx: (in category 'accessing') ----- + ecx: anUnsignedInteger + ^self unsignedLongAt: 481 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>edi (in category 'accessing') ----- + edi + ^self unsignedLongAt: 505! Item was added: + ----- Method: BochsIA32Alien64>>edi: (in category 'accessing') ----- + edi: anUnsignedInteger + ^self unsignedLongAt: 505 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>edx (in category 'accessing') ----- + edx + ^self unsignedLongAt: 485! Item was added: + ----- Method: BochsIA32Alien64>>edx: (in category 'accessing') ----- + edx: anUnsignedInteger + ^self unsignedLongAt: 485 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>eflags (in category 'accessing') ----- + eflags + ^self unsignedLongAt: 521! Item was added: + ----- Method: BochsIA32Alien64>>eip (in category 'accessing') ----- + eip + ^self unsignedLongAt: 509! Item was added: + ----- Method: BochsIA32Alien64>>eip: (in category 'accessing') ----- + eip: anUnsignedInteger + ^self unsignedLongAt: 509 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>esi (in category 'accessing') ----- + esi + ^self unsignedLongAt: 501! Item was added: + ----- Method: BochsIA32Alien64>>esi: (in category 'accessing') ----- + esi: anUnsignedInteger + ^self unsignedLongAt: 501 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>esp (in category 'accessing') ----- + esp + ^self unsignedLongAt: 493! Item was added: + ----- Method: BochsIA32Alien64>>esp: (in category 'accessing') ----- + esp: anUnsignedInteger + ^self unsignedLongAt: 493 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>ipl (in category 'accessing') ----- + ipl + ^self unsignedByteAt: 509! Item was added: + ----- Method: BochsIA32Alien64>>ipl: (in category 'accessing') ----- + ipl: anUnsignedInteger + ^self unsignedByteAt: 509 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>saveEip (in category 'accessing') ----- + saveEip + ^self unsignedLongAt: 1541! Item was added: + ----- Method: BochsIA32Alien64>>saveEip: (in category 'accessing') ----- + saveEip: anUnsignedInteger + ^self unsignedLongAt: 1541 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>saveEsp (in category 'accessing') ----- + saveEsp + ^self unsignedLongAt: 1545! Item was added: + ----- Method: BochsIA32Alien64>>saveEsp: (in category 'accessing') ----- + saveEsp: anUnsignedInteger + ^self unsignedLongAt: 1545 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>sil (in category 'accessing') ----- + sil + ^self unsignedByteAt: 501! Item was added: + ----- Method: BochsIA32Alien64>>sil: (in category 'accessing') ----- + sil: anUnsignedInteger + ^self unsignedByteAt: 501 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>spl (in category 'accessing') ----- + spl + ^self unsignedByteAt: 493! Item was added: + ----- Method: BochsIA32Alien64>>spl: (in category 'accessing') ----- + spl: anUnsignedInteger + ^self unsignedByteAt: 493 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>stopReason (in category 'accessing') ----- + stopReason + ^self unsignedByteAt: 1593! Item was added: + ----- Method: BochsIA32Alien64>>stopReason: (in category 'accessing') ----- + stopReason: anUnsignedInteger + ^self unsignedByteAt: 1593 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm0high (in category 'accessing') ----- + xmm0high + ^self unsignedLongLongAt: 1193! Item was added: + ----- Method: BochsIA32Alien64>>xmm0high: (in category 'accessing') ----- + xmm0high: anUnsignedInteger + ^self unsignedLongLongAt: 1193 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm0low (in category 'accessing') ----- + xmm0low + ^self unsignedLongLongAt: 1185! Item was added: + ----- Method: BochsIA32Alien64>>xmm0low: (in category 'accessing') ----- + xmm0low: anUnsignedInteger + ^self unsignedLongLongAt: 1185 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm1high (in category 'accessing') ----- + xmm1high + ^self unsignedLongLongAt: 1209! Item was added: + ----- Method: BochsIA32Alien64>>xmm1high: (in category 'accessing') ----- + xmm1high: anUnsignedInteger + ^self unsignedLongLongAt: 1209 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm1low (in category 'accessing') ----- + xmm1low + ^self unsignedLongLongAt: 1201! Item was added: + ----- Method: BochsIA32Alien64>>xmm1low: (in category 'accessing') ----- + xmm1low: anUnsignedInteger + ^self unsignedLongLongAt: 1201 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm2high (in category 'accessing') ----- + xmm2high + ^self unsignedLongLongAt: 1225! Item was added: + ----- Method: BochsIA32Alien64>>xmm2high: (in category 'accessing') ----- + xmm2high: anUnsignedInteger + ^self unsignedLongLongAt: 1225 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm2low (in category 'accessing') ----- + xmm2low + ^self unsignedLongLongAt: 1217! Item was added: + ----- Method: BochsIA32Alien64>>xmm2low: (in category 'accessing') ----- + xmm2low: anUnsignedInteger + ^self unsignedLongLongAt: 1217 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm3high (in category 'accessing') ----- + xmm3high + ^self unsignedLongLongAt: 1241! Item was added: + ----- Method: BochsIA32Alien64>>xmm3high: (in category 'accessing') ----- + xmm3high: anUnsignedInteger + ^self unsignedLongLongAt: 1241 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm3low (in category 'accessing') ----- + xmm3low + ^self unsignedLongLongAt: 1233! Item was added: + ----- Method: BochsIA32Alien64>>xmm3low: (in category 'accessing') ----- + xmm3low: anUnsignedInteger + ^self unsignedLongLongAt: 1233 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm4high (in category 'accessing') ----- + xmm4high + ^self unsignedLongLongAt: 1257! Item was added: + ----- Method: BochsIA32Alien64>>xmm4high: (in category 'accessing') ----- + xmm4high: anUnsignedInteger + ^self unsignedLongLongAt: 1257 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm4low (in category 'accessing') ----- + xmm4low + ^self unsignedLongLongAt: 1249! Item was added: + ----- Method: BochsIA32Alien64>>xmm4low: (in category 'accessing') ----- + xmm4low: anUnsignedInteger + ^self unsignedLongLongAt: 1249 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm5high (in category 'accessing') ----- + xmm5high + ^self unsignedLongLongAt: 1273! Item was added: + ----- Method: BochsIA32Alien64>>xmm5high: (in category 'accessing') ----- + xmm5high: anUnsignedInteger + ^self unsignedLongLongAt: 1273 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm5low (in category 'accessing') ----- + xmm5low + ^self unsignedLongLongAt: 1265! Item was added: + ----- Method: BochsIA32Alien64>>xmm5low: (in category 'accessing') ----- + xmm5low: anUnsignedInteger + ^self unsignedLongLongAt: 1265 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm6high (in category 'accessing') ----- + xmm6high + ^self unsignedLongLongAt: 1289! Item was added: + ----- Method: BochsIA32Alien64>>xmm6high: (in category 'accessing') ----- + xmm6high: anUnsignedInteger + ^self unsignedLongLongAt: 1289 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm6low (in category 'accessing') ----- + xmm6low + ^self unsignedLongLongAt: 1281! Item was added: + ----- Method: BochsIA32Alien64>>xmm6low: (in category 'accessing') ----- + xmm6low: anUnsignedInteger + ^self unsignedLongLongAt: 1281 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm7high (in category 'accessing') ----- + xmm7high + ^self unsignedLongLongAt: 1305! Item was added: + ----- Method: BochsIA32Alien64>>xmm7high: (in category 'accessing') ----- + xmm7high: anUnsignedInteger + ^self unsignedLongLongAt: 1305 put: anUnsignedInteger! Item was added: + ----- Method: BochsIA32Alien64>>xmm7low (in category 'accessing') ----- + xmm7low + ^self unsignedLongLongAt: 1297! Item was added: + ----- Method: BochsIA32Alien64>>xmm7low: (in category 'accessing') ----- + xmm7low: anUnsignedInteger + ^self unsignedLongLongAt: 1297 put: anUnsignedInteger! Item was changed: CogProcessorAlien variableByteSubclass: #BochsX64Alien instanceVariableNames: '' classVariableNames: 'ExtendedOpcodeExceptionMap OpcodeExceptionMap PostBuildStackDelta' poolDictionaries: '' category: 'Cog-Processors'! + + !BochsX64Alien commentStamp: 'eem 12/5/2017 14:27' prior: 0! + I am a wrapper around the Bochs C++ x86_64 CPU emulator.! Item was added: + ----- Method: BochsX64Alien class>>implementationClass (in category 'instance creation') ----- + implementationClass + ^Smalltalk wordSize = 8 ifTrue: [BochsX64Alien64] ifFalse: [self]! Item was changed: ----- Method: BochsX64Alien>>decorateDisassembly:for:fromAddress: (in category 'disassembly') ----- decorateDisassembly: anInstructionString for: aSymbolManager "<Cogit>" fromAddress: address + | string i1 i2 v o extra | - | string i1 i2 v extra | string := PrintCodeBytes ifTrue: [anInstructionString] ifFalse: [anInstructionString copyFrom: 1 to: (anInstructionString lastIndexOf: $:) - 1]. "trailing space useful for parsing numbers" aSymbolManager relativeBaseForDisassemblyInto: [:baseAddress :baseName| string := baseName, '+', (address - baseAddress printStringBase: 16 length: 4 padded: true), (string copyFrom: (string indexOf: $:) + 1 to: string size)]. ((i1 := string indexOfSubCollection: '%ds:(') > 0 or: [(i1 := string indexOfSubCollection: '%ss:(') > 0]) ifTrue: [string := string copyReplaceFrom: i1 to: i1 + 3 with: '']. (i1 := string indexOfSubCollection: '%ds:0x') > 0 ifTrue: [i2 := i1 + 6. ['0123456789abcdef' includes: (string at: i2)] whileTrue: [i2 := i2 + 1]. (v := string copyFrom: i2 to: (i2 + 5 min: string size)) = '(%rbx)' ifTrue: + [o := Integer readFrom: (ReadStream on: string from: i1 + 6 to: i2 - 1) base: 16. + (aSymbolManager lookupAddress: aSymbolManager varBaseAddress + o) ifNotNil: - [v := Integer readFrom: (ReadStream on: string from: i1 + 6 to: i2 - 1) base: 16. - (aSymbolManager lookupAddress: aSymbolManager varBaseAddress + v) ifNotNil: [:varName| extra := ' = ', varName]]. v = '(%rip)' ifTrue: + [o := anInstructionString size - (anInstructionString lastIndexOf: $:) - 1 / 3. "Count number of instruction bytes to find size of instruction" + o := o + address. "Add address of instruction" + o := o + (Integer readFrom: (ReadStream on: string from: i1 + 6 to: i2 - 1) base: 16) signedIntFromLong64. "Add offset to yield pc-relative address" + (aSymbolManager lookupAddress: o) ifNotNil: - [v := anInstructionString size - (anInstructionString lastIndexOf: $:) - 1 / 3. "Count number of instruction bytes to find size of instruction" - v := v + address. "Add address of instruction" - v := v + (Integer readFrom: (ReadStream on: string from: i1 + 6 to: i2 - 1) base: 16) signedIntFromLong64. "Add offset to yield pc-relative address" - (aSymbolManager lookupAddress: v) ifNotNil: [:methodName| extra := ' = ', methodName]]. + v = ReceiverResultRegDereference ifTrue: + [o := Integer readFrom: (ReadStream on: string from: i1 + 6 to: i2 - 1) base: 16. + (aSymbolManager lookupInstVarOffset: o) ifNotNil: + [:varName| string := string copyReplaceFrom: i1 to: i2 - 1 with: varName,'@',o printString. i2 := 0]]. + i2 ~= 0 ifTrue: + [string := string + copyReplaceFrom: i1 + to: i2 - 1 + with: (aSymbolManager lookupCHexString: (string copyFrom: i1 + 4 to: i2 - 1))]]. - string := string - copyReplaceFrom: i1 - to: i2 - 1 - with: (aSymbolManager lookupCHexString: (string copyFrom: i1 + 4 to: i2 - 1))]. (i1 := string indexOfSubCollection: '%ss:0x') > 0 ifTrue: [i2 := i1 + 6. ['0123456789abcdef' includes: (string at: i2)] whileTrue: [i2 := i2 + 1]. ((string at: i2) = $( and: [(string at: i2 + 1) = $%]) ifTrue: + [o := Integer readFrom: (ReadStream on: string from: i1 + 6 to: i2 - 1) base: 16. + o := (o bitAnd: (1 bitShift: 31) - 1) - (o bitAnd: (1 bitShift: 31)). - [v := Integer readFrom: (ReadStream on: string from: i1 + 6 to: i2 - 1) base: 16. - v := (v bitAnd: (1 bitShift: 31) - 1) - (v bitAnd: (1 bitShift: 31)). ((string copyFrom: i2 to: (i2 + 5 min: string size)) = '(%rbp)' and: [PrintTempNames]) ifTrue: + [(aSymbolManager lookupFrameOffset: o) ifNotNil: + [:varName| string := string copyReplaceFrom: i1 to: i2 - 1 with: varName,'@',o printString. i2 := 0]. + i2 ~= 0 ifTrue: [string := string copyReplaceFrom: i1 to: i2 - 1 with: o printString]]]]. - [(aSymbolManager lookupFrameOffset: v) ifNotNil: - [:varName| string := string copyReplaceFrom: i1 to: i2 - 1 with: varName. i2 := 0]. - i2 ~= 0 ifTrue: [string := string copyReplaceFrom: i1 to: i2 - 1 with: v printString]]]]. (i1 := string indexOfSubCollection: '$0x') > 0 ifTrue: [i2 := i1 + 3. ['0123456789abcdef' includes: (string at: i2)] whileTrue: [i2 := i2 + 1]. string := string copyReplaceFrom: i1 + 1 to: i2 - 1 with: (aSymbolManager lookupCHexString: (string copyFrom: i1 + 1 to: i2 - 1))]. ((i1 := string indexOf: $() > 1 and: [(string at: i1 + 1) isDigit and: [i1 < (i2 := string indexOf: $))]]) ifTrue: [string := string copyReplaceFrom: i1 + 1 to: i2 - 1 with: (aSymbolManager lookupCHexString: (string copyFrom: i1 + 1 to: i2 - 1)). i1 := string indexOfSubCollection: '+0x'. "calls & jumps" i1 > 0 ifTrue: + [o := Integer readFrom: (i2 := ReadStream on: string from: i1 + 3 to: string size) base: 16. + o := ((o bitAnd: (1 bitShift: 63) - 1) - (o bitAnd: (1 bitShift: 63))) printStringRadix: 16. + o := o first = $1 + ifTrue: [o copyReplaceFrom: 1 to: 3 with: '+0x'] + ifFalse: [o copyReplaceFrom: 2 to: 4 with: '0x']. + string := string copyReplaceFrom: i1 to: i2 position with: o]]. - [v := Integer readFrom: (i2 := ReadStream on: string from: i1 + 3 to: string size) base: 16. - v := ((v bitAnd: (1 bitShift: 63) - 1) - (v bitAnd: (1 bitShift: 63))) printStringRadix: 16. - v := v first = $1 - ifTrue: [v copyReplaceFrom: 1 to: 3 with: '+0x'] - ifFalse: [v copyReplaceFrom: 2 to: 4 with: '0x']. - string := string copyReplaceFrom: i1 to: i2 position with: v]]. ^extra ifNil: [string] ifNotNil: [PrintCodeBytes ifTrue: [i1 := string lastIndexOf: $:. string copyReplaceFrom: i1 - 1 to: i1 - 2 with: extra] ifFalse: [string, ';', extra]]! Item was added: + BochsX64Alien variableByteSubclass: #BochsX64Alien64 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Cog-Processors'! + + !BochsX64Alien64 commentStamp: 'eem 12/5/2017 14:27' prior: 0! + I am a wrapper around the Bochs C++ x86_64 CPU emulator when compiled in 64 bits. My superclass is the same but for 32 bits.! Item was added: + ----- Method: BochsX64Alien64 class>>dataSize (in category 'instance creation') ----- + dataSize + ^26960! Item was added: + ----- Method: BochsX64Alien64>>al (in category 'accessing') ----- + al + ^self unsignedByteAt: 481! Item was added: + ----- Method: BochsX64Alien64>>al: (in category 'accessing') ----- + al: anUnsignedInteger + ^self unsignedByteAt: 481 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>bl (in category 'accessing') ----- + bl + ^self unsignedByteAt: 505! Item was added: + ----- Method: BochsX64Alien64>>bl: (in category 'accessing') ----- + bl: anUnsignedInteger + ^self unsignedByteAt: 505 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>bpl (in category 'accessing') ----- + bpl + ^self unsignedByteAt: 521! Item was added: + ----- Method: BochsX64Alien64>>bpl: (in category 'accessing') ----- + bpl: anUnsignedInteger + ^self unsignedByteAt: 521 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>cl (in category 'accessing') ----- + cl + ^self unsignedByteAt: 489! Item was added: + ----- Method: BochsX64Alien64>>cl: (in category 'accessing') ----- + cl: anUnsignedInteger + ^self unsignedByteAt: 489 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>cr0 (in category 'accessing') ----- + cr0 + ^self unsignedLongLongAt: 1281! Item was added: + ----- Method: BochsX64Alien64>>cr0: (in category 'accessing') ----- + cr0: anUnsignedInteger + ^self unsignedLongLongAt: 1281 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>cr1 (in category 'accessing') ----- + cr1 + ^self unsignedLongLongAt: 1285! Item was added: + ----- Method: BochsX64Alien64>>cr1: (in category 'accessing') ----- + cr1: anUnsignedInteger + ^self unsignedLongLongAt: 1285 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>cr2 (in category 'accessing') ----- + cr2 + ^self unsignedLongLongAt: 1289! Item was added: + ----- Method: BochsX64Alien64>>cr2: (in category 'accessing') ----- + cr2: anUnsignedInteger + ^self unsignedLongLongAt: 1289 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>cr3 (in category 'accessing') ----- + cr3 + ^self unsignedLongLongAt: 1297! Item was added: + ----- Method: BochsX64Alien64>>cr3: (in category 'accessing') ----- + cr3: anUnsignedInteger + ^self unsignedLongLongAt: 1297 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>cr4 (in category 'accessing') ----- + cr4 + ^self unsignedLongLongAt: 1309! Item was added: + ----- Method: BochsX64Alien64>>cr4: (in category 'accessing') ----- + cr4: anUnsignedInteger + ^self unsignedLongLongAt: 1309 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>dil (in category 'accessing') ----- + dil + ^self unsignedByteAt: 537! Item was added: + ----- Method: BochsX64Alien64>>dil: (in category 'accessing') ----- + dil: anUnsignedInteger + ^self unsignedByteAt: 537 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>dl (in category 'accessing') ----- + dl + ^self unsignedByteAt: 497! Item was added: + ----- Method: BochsX64Alien64>>dl: (in category 'accessing') ----- + dl: anUnsignedInteger + ^self unsignedByteAt: 497 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>ipl (in category 'accessing') ----- + ipl + ^self unsignedByteAt: 609! Item was added: + ----- Method: BochsX64Alien64>>ipl: (in category 'accessing') ----- + ipl: anUnsignedInteger + ^self unsignedByteAt: 609 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r10 (in category 'accessing') ----- + r10 + ^self unsignedLongLongAt: 561! Item was added: + ----- Method: BochsX64Alien64>>r10: (in category 'accessing') ----- + r10: anUnsignedInteger + ^self unsignedLongLongAt: 561 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r10l (in category 'accessing') ----- + r10l + ^self unsignedByteAt: 561! Item was added: + ----- Method: BochsX64Alien64>>r10l: (in category 'accessing') ----- + r10l: anUnsignedInteger + ^self unsignedByteAt: 561 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r11 (in category 'accessing') ----- + r11 + ^self unsignedLongLongAt: 569! Item was added: + ----- Method: BochsX64Alien64>>r11: (in category 'accessing') ----- + r11: anUnsignedInteger + ^self unsignedLongLongAt: 569 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r11l (in category 'accessing') ----- + r11l + ^self unsignedByteAt: 569! Item was added: + ----- Method: BochsX64Alien64>>r11l: (in category 'accessing') ----- + r11l: anUnsignedInteger + ^self unsignedByteAt: 569 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r12 (in category 'accessing') ----- + r12 + ^self unsignedLongLongAt: 577! Item was added: + ----- Method: BochsX64Alien64>>r12: (in category 'accessing') ----- + r12: anUnsignedInteger + ^self unsignedLongLongAt: 577 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r12l (in category 'accessing') ----- + r12l + ^self unsignedByteAt: 577! Item was added: + ----- Method: BochsX64Alien64>>r12l: (in category 'accessing') ----- + r12l: anUnsignedInteger + ^self unsignedByteAt: 577 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r13 (in category 'accessing') ----- + r13 + ^self unsignedLongLongAt: 585! Item was added: + ----- Method: BochsX64Alien64>>r13: (in category 'accessing') ----- + r13: anUnsignedInteger + ^self unsignedLongLongAt: 585 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r13l (in category 'accessing') ----- + r13l + ^self unsignedByteAt: 585! Item was added: + ----- Method: BochsX64Alien64>>r13l: (in category 'accessing') ----- + r13l: anUnsignedInteger + ^self unsignedByteAt: 585 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r14 (in category 'accessing') ----- + r14 + ^self unsignedLongLongAt: 593! Item was added: + ----- Method: BochsX64Alien64>>r14: (in category 'accessing') ----- + r14: anUnsignedInteger + ^self unsignedLongLongAt: 593 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r14l (in category 'accessing') ----- + r14l + ^self unsignedByteAt: 593! Item was added: + ----- Method: BochsX64Alien64>>r14l: (in category 'accessing') ----- + r14l: anUnsignedInteger + ^self unsignedByteAt: 593 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r15 (in category 'accessing') ----- + r15 + ^self unsignedLongLongAt: 601! Item was added: + ----- Method: BochsX64Alien64>>r15: (in category 'accessing') ----- + r15: anUnsignedInteger + ^self unsignedLongLongAt: 601 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r15l (in category 'accessing') ----- + r15l + ^self unsignedByteAt: 601! Item was added: + ----- Method: BochsX64Alien64>>r15l: (in category 'accessing') ----- + r15l: anUnsignedInteger + ^self unsignedByteAt: 601 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r8 (in category 'accessing') ----- + r8 + ^self unsignedLongLongAt: 545! Item was added: + ----- Method: BochsX64Alien64>>r8: (in category 'accessing') ----- + r8: anUnsignedInteger + ^self unsignedLongLongAt: 545 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r8l (in category 'accessing') ----- + r8l + ^self unsignedByteAt: 545! Item was added: + ----- Method: BochsX64Alien64>>r8l: (in category 'accessing') ----- + r8l: anUnsignedInteger + ^self unsignedByteAt: 545 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r9 (in category 'accessing') ----- + r9 + ^self unsignedLongLongAt: 553! Item was added: + ----- Method: BochsX64Alien64>>r9: (in category 'accessing') ----- + r9: anUnsignedInteger + ^self unsignedLongLongAt: 553 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>r9l (in category 'accessing') ----- + r9l + ^self unsignedByteAt: 553! Item was added: + ----- Method: BochsX64Alien64>>r9l: (in category 'accessing') ----- + r9l: anUnsignedInteger + ^self unsignedByteAt: 553 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>rax (in category 'accessing') ----- + rax + ^self unsignedLongLongAt: 481! Item was added: + ----- Method: BochsX64Alien64>>rax: (in category 'accessing') ----- + rax: anUnsignedInteger + ^self unsignedLongLongAt: 481 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>rbp (in category 'accessing') ----- + rbp + ^self unsignedLongLongAt: 521! Item was added: + ----- Method: BochsX64Alien64>>rbp: (in category 'accessing') ----- + rbp: anUnsignedInteger + ^self unsignedLongLongAt: 521 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>rbx (in category 'accessing') ----- + rbx + ^self unsignedLongLongAt: 505! Item was added: + ----- Method: BochsX64Alien64>>rbx: (in category 'accessing') ----- + rbx: anUnsignedInteger + ^self unsignedLongLongAt: 505 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>rcx (in category 'accessing') ----- + rcx + ^self unsignedLongLongAt: 489! Item was added: + ----- Method: BochsX64Alien64>>rcx: (in category 'accessing') ----- + rcx: anUnsignedInteger + ^self unsignedLongLongAt: 489 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>rdi (in category 'accessing') ----- + rdi + ^self unsignedLongLongAt: 537! Item was added: + ----- Method: BochsX64Alien64>>rdi: (in category 'accessing') ----- + rdi: anUnsignedInteger + ^self unsignedLongLongAt: 537 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>rdx (in category 'accessing') ----- + rdx + ^self unsignedLongLongAt: 497! Item was added: + ----- Method: BochsX64Alien64>>rdx: (in category 'accessing') ----- + rdx: anUnsignedInteger + ^self unsignedLongLongAt: 497 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>rflags (in category 'accessing') ----- + rflags + ^self unsignedLongLongAt: 633! Item was added: + ----- Method: BochsX64Alien64>>rip (in category 'accessing') ----- + rip + ^self unsignedLongLongAt: 609! Item was added: + ----- Method: BochsX64Alien64>>rip: (in category 'accessing') ----- + rip: anUnsignedInteger + ^self unsignedLongLongAt: 609 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>rsi (in category 'accessing') ----- + rsi + ^self unsignedLongLongAt: 529! Item was added: + ----- Method: BochsX64Alien64>>rsi: (in category 'accessing') ----- + rsi: anUnsignedInteger + ^self unsignedLongLongAt: 529 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>rsp (in category 'accessing') ----- + rsp + ^self unsignedLongLongAt: 513! Item was added: + ----- Method: BochsX64Alien64>>rsp: (in category 'accessing') ----- + rsp: anUnsignedInteger + ^self unsignedLongLongAt: 513 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>saveEip (in category 'accessing') ----- + saveEip + ^self unsignedLongAt: 1985! Item was added: + ----- Method: BochsX64Alien64>>saveEip: (in category 'accessing') ----- + saveEip: anUnsignedInteger + ^self unsignedLongAt: 1985 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>saveEsp (in category 'accessing') ----- + saveEsp + ^self unsignedLongAt: 1993! Item was added: + ----- Method: BochsX64Alien64>>saveEsp: (in category 'accessing') ----- + saveEsp: anUnsignedInteger + ^self unsignedLongAt: 1993 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>sil (in category 'accessing') ----- + sil + ^self unsignedByteAt: 529! Item was added: + ----- Method: BochsX64Alien64>>sil: (in category 'accessing') ----- + sil: anUnsignedInteger + ^self unsignedByteAt: 529 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>spl (in category 'accessing') ----- + spl + ^self unsignedByteAt: 513! Item was added: + ----- Method: BochsX64Alien64>>spl: (in category 'accessing') ----- + spl: anUnsignedInteger + ^self unsignedByteAt: 513 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>stopReason (in category 'accessing') ----- + stopReason + ^self unsignedByteAt: 2057! Item was added: + ----- Method: BochsX64Alien64>>stopReason: (in category 'accessing') ----- + stopReason: anUnsignedInteger + ^self unsignedByteAt: 2057 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm0high (in category 'accessing') ----- + xmm0high + ^self unsignedLongLongAt: 1481! Item was added: + ----- Method: BochsX64Alien64>>xmm0high: (in category 'accessing') ----- + xmm0high: anUnsignedInteger + ^self unsignedLongLongAt: 1481 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm0low (in category 'accessing') ----- + xmm0low + ^self unsignedLongLongAt: 1473! Item was added: + ----- Method: BochsX64Alien64>>xmm0low: (in category 'accessing') ----- + xmm0low: anUnsignedInteger + ^self unsignedLongLongAt: 1473 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm10high (in category 'accessing') ----- + xmm10high + ^self unsignedLongLongAt: 1641! Item was added: + ----- Method: BochsX64Alien64>>xmm10high: (in category 'accessing') ----- + xmm10high: anUnsignedInteger + ^self unsignedLongLongAt: 1641 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm10low (in category 'accessing') ----- + xmm10low + ^self unsignedLongLongAt: 1633! Item was added: + ----- Method: BochsX64Alien64>>xmm10low: (in category 'accessing') ----- + xmm10low: anUnsignedInteger + ^self unsignedLongLongAt: 1633 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm11high (in category 'accessing') ----- + xmm11high + ^self unsignedLongLongAt: 1657! Item was added: + ----- Method: BochsX64Alien64>>xmm11high: (in category 'accessing') ----- + xmm11high: anUnsignedInteger + ^self unsignedLongLongAt: 1657 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm11low (in category 'accessing') ----- + xmm11low + ^self unsignedLongLongAt: 1649! Item was added: + ----- Method: BochsX64Alien64>>xmm11low: (in category 'accessing') ----- + xmm11low: anUnsignedInteger + ^self unsignedLongLongAt: 1649 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm12high (in category 'accessing') ----- + xmm12high + ^self unsignedLongLongAt: 1673! Item was added: + ----- Method: BochsX64Alien64>>xmm12high: (in category 'accessing') ----- + xmm12high: anUnsignedInteger + ^self unsignedLongLongAt: 1673 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm12low (in category 'accessing') ----- + xmm12low + ^self unsignedLongLongAt: 1665! Item was added: + ----- Method: BochsX64Alien64>>xmm12low: (in category 'accessing') ----- + xmm12low: anUnsignedInteger + ^self unsignedLongLongAt: 1665 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm13high (in category 'accessing') ----- + xmm13high + ^self unsignedLongLongAt: 1689! Item was added: + ----- Method: BochsX64Alien64>>xmm13high: (in category 'accessing') ----- + xmm13high: anUnsignedInteger + ^self unsignedLongLongAt: 1689 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm13low (in category 'accessing') ----- + xmm13low + ^self unsignedLongLongAt: 1681! Item was added: + ----- Method: BochsX64Alien64>>xmm13low: (in category 'accessing') ----- + xmm13low: anUnsignedInteger + ^self unsignedLongLongAt: 1681 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm14high (in category 'accessing') ----- + xmm14high + ^self unsignedLongLongAt: 1705! Item was added: + ----- Method: BochsX64Alien64>>xmm14high: (in category 'accessing') ----- + xmm14high: anUnsignedInteger + ^self unsignedLongLongAt: 1705 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm14low (in category 'accessing') ----- + xmm14low + ^self unsignedLongLongAt: 1697! Item was added: + ----- Method: BochsX64Alien64>>xmm14low: (in category 'accessing') ----- + xmm14low: anUnsignedInteger + ^self unsignedLongLongAt: 1697 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm15high (in category 'accessing') ----- + xmm15high + ^self unsignedLongLongAt: 1721! Item was added: + ----- Method: BochsX64Alien64>>xmm15high: (in category 'accessing') ----- + xmm15high: anUnsignedInteger + ^self unsignedLongLongAt: 1721 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm15low (in category 'accessing') ----- + xmm15low + ^self unsignedLongLongAt: 1713! Item was added: + ----- Method: BochsX64Alien64>>xmm15low: (in category 'accessing') ----- + xmm15low: anUnsignedInteger + ^self unsignedLongLongAt: 1713 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm1high (in category 'accessing') ----- + xmm1high + ^self unsignedLongLongAt: 1497! Item was added: + ----- Method: BochsX64Alien64>>xmm1high: (in category 'accessing') ----- + xmm1high: anUnsignedInteger + ^self unsignedLongLongAt: 1497 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm1low (in category 'accessing') ----- + xmm1low + ^self unsignedLongLongAt: 1489! Item was added: + ----- Method: BochsX64Alien64>>xmm1low: (in category 'accessing') ----- + xmm1low: anUnsignedInteger + ^self unsignedLongLongAt: 1489 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm2high (in category 'accessing') ----- + xmm2high + ^self unsignedLongLongAt: 1513! Item was added: + ----- Method: BochsX64Alien64>>xmm2high: (in category 'accessing') ----- + xmm2high: anUnsignedInteger + ^self unsignedLongLongAt: 1513 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm2low (in category 'accessing') ----- + xmm2low + ^self unsignedLongLongAt: 1505! Item was added: + ----- Method: BochsX64Alien64>>xmm2low: (in category 'accessing') ----- + xmm2low: anUnsignedInteger + ^self unsignedLongLongAt: 1505 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm3high (in category 'accessing') ----- + xmm3high + ^self unsignedLongLongAt: 1529! Item was added: + ----- Method: BochsX64Alien64>>xmm3high: (in category 'accessing') ----- + xmm3high: anUnsignedInteger + ^self unsignedLongLongAt: 1529 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm3low (in category 'accessing') ----- + xmm3low + ^self unsignedLongLongAt: 1521! Item was added: + ----- Method: BochsX64Alien64>>xmm3low: (in category 'accessing') ----- + xmm3low: anUnsignedInteger + ^self unsignedLongLongAt: 1521 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm4high (in category 'accessing') ----- + xmm4high + ^self unsignedLongLongAt: 1545! Item was added: + ----- Method: BochsX64Alien64>>xmm4high: (in category 'accessing') ----- + xmm4high: anUnsignedInteger + ^self unsignedLongLongAt: 1545 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm4low (in category 'accessing') ----- + xmm4low + ^self unsignedLongLongAt: 1537! Item was added: + ----- Method: BochsX64Alien64>>xmm4low: (in category 'accessing') ----- + xmm4low: anUnsignedInteger + ^self unsignedLongLongAt: 1537 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm5high (in category 'accessing') ----- + xmm5high + ^self unsignedLongLongAt: 1561! Item was added: + ----- Method: BochsX64Alien64>>xmm5high: (in category 'accessing') ----- + xmm5high: anUnsignedInteger + ^self unsignedLongLongAt: 1561 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm5low (in category 'accessing') ----- + xmm5low + ^self unsignedLongLongAt: 1553! Item was added: + ----- Method: BochsX64Alien64>>xmm5low: (in category 'accessing') ----- + xmm5low: anUnsignedInteger + ^self unsignedLongLongAt: 1553 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm6high (in category 'accessing') ----- + xmm6high + ^self unsignedLongLongAt: 1577! Item was added: + ----- Method: BochsX64Alien64>>xmm6high: (in category 'accessing') ----- + xmm6high: anUnsignedInteger + ^self unsignedLongLongAt: 1577 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm6low (in category 'accessing') ----- + xmm6low + ^self unsignedLongLongAt: 1569! Item was added: + ----- Method: BochsX64Alien64>>xmm6low: (in category 'accessing') ----- + xmm6low: anUnsignedInteger + ^self unsignedLongLongAt: 1569 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm7high (in category 'accessing') ----- + xmm7high + ^self unsignedLongLongAt: 1593! Item was added: + ----- Method: BochsX64Alien64>>xmm7high: (in category 'accessing') ----- + xmm7high: anUnsignedInteger + ^self unsignedLongLongAt: 1593 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm7low (in category 'accessing') ----- + xmm7low + ^self unsignedLongLongAt: 1585! Item was added: + ----- Method: BochsX64Alien64>>xmm7low: (in category 'accessing') ----- + xmm7low: anUnsignedInteger + ^self unsignedLongLongAt: 1585 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm8high (in category 'accessing') ----- + xmm8high + ^self unsignedLongLongAt: 1609! Item was added: + ----- Method: BochsX64Alien64>>xmm8high: (in category 'accessing') ----- + xmm8high: anUnsignedInteger + ^self unsignedLongLongAt: 1609 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm8low (in category 'accessing') ----- + xmm8low + ^self unsignedLongLongAt: 1601! Item was added: + ----- Method: BochsX64Alien64>>xmm8low: (in category 'accessing') ----- + xmm8low: anUnsignedInteger + ^self unsignedLongLongAt: 1601 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm9high (in category 'accessing') ----- + xmm9high + ^self unsignedLongLongAt: 1625! Item was added: + ----- Method: BochsX64Alien64>>xmm9high: (in category 'accessing') ----- + xmm9high: anUnsignedInteger + ^self unsignedLongLongAt: 1625 put: anUnsignedInteger! Item was added: + ----- Method: BochsX64Alien64>>xmm9low (in category 'accessing') ----- + xmm9low + ^self unsignedLongLongAt: 1617! Item was added: + ----- Method: BochsX64Alien64>>xmm9low: (in category 'accessing') ----- + xmm9low: anUnsignedInteger + ^self unsignedLongLongAt: 1617 put: anUnsignedInteger! Item was changed: Alien variableByteSubclass: #CogProcessorAlien instanceVariableNames: '' + classVariableNames: 'PrintCodeBytes PrintTempNames ReceiverResultRegDereference SavedState' - classVariableNames: 'PrintCodeBytes PrintTempNames SavedState' poolDictionaries: '' category: 'Cog-Processors'! !CogProcessorAlien commentStamp: 'lw 8/23/2012 19:15' prior: 0! I am the superclass for the Simulation CPU instance wrappers. I ensure that methods used in both/all of them need not be copied.! Item was added: + ----- Method: CogProcessorAlien class>>implementationClass (in category 'instance creation') ----- + implementationClass + ^self subclassResponsibility! Item was changed: ----- Method: CogProcessorAlien class>>new (in category 'instance creation') ----- new + ^(self implementationClass atAddress: self primitiveNewCPU) reset! - ^(self atAddress: self primitiveNewCPU) reset! Item was added: + ----- Method: CogProcessorAlien class>>setReceiverResultReg: (in category 'accessing') ----- + setReceiverResultReg: integerOrNil + ReceiverResultRegDereference := integerOrNil ifNotNil: ['(%', (self basicNew registerStateGetters at: integerOrNil + 1), ')']! Item was added: + ----- Method: GdbARMAlien class>>implementationClass (in category 'instance creation') ----- + implementationClass + ^Smalltalk wordSize = 8 ifTrue: [GdbARMAlien64] ifFalse: [self]! Item was added: + GdbARMAlien variableByteSubclass: #GdbARMAlien64 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Cog-Processors'! + + !GdbARMAlien64 commentStamp: 'eem 1/23/2018 08:47' prior: 0! + I a wrapper around the ARMulator ARMv6 CPU emulator when compiled in 64 bits. My superclass is the same but for 32 bits.! Item was added: + ----- Method: GdbARMAlien64 class>>dataSize (in category 'instance creation') ----- + dataSize + ^2576! Item was added: + ----- Method: GdbARMAlien64>>d0 (in category 'accessing') ----- + d0 + ^self unsignedLongLongAt: 2313! Item was added: + ----- Method: GdbARMAlien64>>d0: (in category 'accessing') ----- + d0: anUnsignedInteger + ^self unsignedLongLongAt: 2313 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d1 (in category 'accessing') ----- + d1 + ^self unsignedLongLongAt: 2321! Item was added: + ----- Method: GdbARMAlien64>>d10 (in category 'accessing') ----- + d10 + ^self unsignedLongLongAt: 2393! Item was added: + ----- Method: GdbARMAlien64>>d10: (in category 'accessing') ----- + d10: anUnsignedInteger + ^self unsignedLongLongAt: 2393 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d11 (in category 'accessing') ----- + d11 + ^self unsignedLongLongAt: 2401! Item was added: + ----- Method: GdbARMAlien64>>d11: (in category 'accessing') ----- + d11: anUnsignedInteger + ^self unsignedLongLongAt: 2401 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d12 (in category 'accessing') ----- + d12 + ^self unsignedLongLongAt: 2409! Item was added: + ----- Method: GdbARMAlien64>>d12: (in category 'accessing') ----- + d12: anUnsignedInteger + ^self unsignedLongLongAt: 2409 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d13 (in category 'accessing') ----- + d13 + ^self unsignedLongLongAt: 2417! Item was added: + ----- Method: GdbARMAlien64>>d13: (in category 'accessing') ----- + d13: anUnsignedInteger + ^self unsignedLongLongAt: 2417 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d14 (in category 'accessing') ----- + d14 + ^self unsignedLongLongAt: 2425! Item was added: + ----- Method: GdbARMAlien64>>d14: (in category 'accessing') ----- + d14: anUnsignedInteger + ^self unsignedLongLongAt: 2425 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d15 (in category 'accessing') ----- + d15 + ^self unsignedLongLongAt: 2433! Item was added: + ----- Method: GdbARMAlien64>>d15: (in category 'accessing') ----- + d15: anUnsignedInteger + ^self unsignedLongLongAt: 2433 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d16 (in category 'accessing') ----- + d16 + ^self unsignedLongLongAt: 2441! Item was added: + ----- Method: GdbARMAlien64>>d16: (in category 'accessing') ----- + d16: anUnsignedInteger + ^self unsignedLongLongAt: 2441 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d17 (in category 'accessing') ----- + d17 + ^self unsignedLongLongAt: 2449! Item was added: + ----- Method: GdbARMAlien64>>d17: (in category 'accessing') ----- + d17: anUnsignedInteger + ^self unsignedLongLongAt: 2449 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d18 (in category 'accessing') ----- + d18 + ^self unsignedLongLongAt: 2457! Item was added: + ----- Method: GdbARMAlien64>>d18: (in category 'accessing') ----- + d18: anUnsignedInteger + ^self unsignedLongLongAt: 2457 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d19 (in category 'accessing') ----- + d19 + ^self unsignedLongLongAt: 2465! Item was added: + ----- Method: GdbARMAlien64>>d19: (in category 'accessing') ----- + d19: anUnsignedInteger + ^self unsignedLongLongAt: 2465 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d1: (in category 'accessing') ----- + d1: anUnsignedInteger + ^self unsignedLongLongAt: 2321 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d2 (in category 'accessing') ----- + d2 + ^self unsignedLongLongAt: 2329! Item was added: + ----- Method: GdbARMAlien64>>d20 (in category 'accessing') ----- + d20 + ^self unsignedLongLongAt: 2473! Item was added: + ----- Method: GdbARMAlien64>>d20: (in category 'accessing') ----- + d20: anUnsignedInteger + ^self unsignedLongLongAt: 2473 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d21 (in category 'accessing') ----- + d21 + ^self unsignedLongLongAt: 2481! Item was added: + ----- Method: GdbARMAlien64>>d21: (in category 'accessing') ----- + d21: anUnsignedInteger + ^self unsignedLongLongAt: 2481 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d22 (in category 'accessing') ----- + d22 + ^self unsignedLongLongAt: 2489! Item was added: + ----- Method: GdbARMAlien64>>d22: (in category 'accessing') ----- + d22: anUnsignedInteger + ^self unsignedLongLongAt: 2489 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d23 (in category 'accessing') ----- + d23 + ^self unsignedLongLongAt: 2497! Item was added: + ----- Method: GdbARMAlien64>>d23: (in category 'accessing') ----- + d23: anUnsignedInteger + ^self unsignedLongLongAt: 2497 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d24 (in category 'accessing') ----- + d24 + ^self unsignedLongLongAt: 2505! Item was added: + ----- Method: GdbARMAlien64>>d24: (in category 'accessing') ----- + d24: anUnsignedInteger + ^self unsignedLongLongAt: 2505 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d25 (in category 'accessing') ----- + d25 + ^self unsignedLongLongAt: 2513! Item was added: + ----- Method: GdbARMAlien64>>d25: (in category 'accessing') ----- + d25: anUnsignedInteger + ^self unsignedLongLongAt: 2513 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d26 (in category 'accessing') ----- + d26 + ^self unsignedLongLongAt: 2521! Item was added: + ----- Method: GdbARMAlien64>>d26: (in category 'accessing') ----- + d26: anUnsignedInteger + ^self unsignedLongLongAt: 2521 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d27 (in category 'accessing') ----- + d27 + ^self unsignedLongLongAt: 2529! Item was added: + ----- Method: GdbARMAlien64>>d27: (in category 'accessing') ----- + d27: anUnsignedInteger + ^self unsignedLongLongAt: 2529 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d28 (in category 'accessing') ----- + d28 + ^self unsignedLongLongAt: 2537! Item was added: + ----- Method: GdbARMAlien64>>d28: (in category 'accessing') ----- + d28: anUnsignedInteger + ^self unsignedLongLongAt: 2537 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d29 (in category 'accessing') ----- + d29 + ^self unsignedLongLongAt: 2545! Item was added: + ----- Method: GdbARMAlien64>>d29: (in category 'accessing') ----- + d29: anUnsignedInteger + ^self unsignedLongLongAt: 2545 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d2: (in category 'accessing') ----- + d2: anUnsignedInteger + ^self unsignedLongLongAt: 2329 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d3 (in category 'accessing') ----- + d3 + ^self unsignedLongLongAt: 2337! Item was added: + ----- Method: GdbARMAlien64>>d30 (in category 'accessing') ----- + d30 + ^self unsignedLongLongAt: 2553! Item was added: + ----- Method: GdbARMAlien64>>d30: (in category 'accessing') ----- + d30: anUnsignedInteger + ^self unsignedLongLongAt: 2553 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d31 (in category 'accessing') ----- + d31 + ^self unsignedLongLongAt: 2561! Item was added: + ----- Method: GdbARMAlien64>>d31: (in category 'accessing') ----- + d31: anUnsignedInteger + ^self unsignedLongLongAt: 2561 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d3: (in category 'accessing') ----- + d3: anUnsignedInteger + ^self unsignedLongLongAt: 2337 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d4 (in category 'accessing') ----- + d4 + ^self unsignedLongLongAt: 2345! Item was added: + ----- Method: GdbARMAlien64>>d4: (in category 'accessing') ----- + d4: anUnsignedInteger + ^self unsignedLongLongAt: 2345 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d5 (in category 'accessing') ----- + d5 + ^self unsignedLongLongAt: 2353! Item was added: + ----- Method: GdbARMAlien64>>d5: (in category 'accessing') ----- + d5: anUnsignedInteger + ^self unsignedLongLongAt: 2353 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d6 (in category 'accessing') ----- + d6 + ^self unsignedLongLongAt: 2361! Item was added: + ----- Method: GdbARMAlien64>>d6: (in category 'accessing') ----- + d6: anUnsignedInteger + ^self unsignedLongLongAt: 2361 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d7 (in category 'accessing') ----- + d7 + ^self unsignedLongLongAt: 2369! Item was added: + ----- Method: GdbARMAlien64>>d7: (in category 'accessing') ----- + d7: anUnsignedInteger + ^self unsignedLongLongAt: 2369 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d8 (in category 'accessing') ----- + d8 + ^self unsignedLongLongAt: 2377! Item was added: + ----- Method: GdbARMAlien64>>d8: (in category 'accessing') ----- + d8: anUnsignedInteger + ^self unsignedLongLongAt: 2377 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>d9 (in category 'accessing') ----- + d9 + ^self unsignedLongLongAt: 2385! Item was added: + ----- Method: GdbARMAlien64>>d9: (in category 'accessing') ----- + d9: anUnsignedInteger + ^self unsignedLongLongAt: 2385 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>lr (in category 'accessing') ----- + lr + ^self unsignedLongAt: 69! Item was added: + ----- Method: GdbARMAlien64>>lr: (in category 'accessing') ----- + lr: anUnsignedInteger + ^self unsignedLongAt: 69 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>pc (in category 'accessing') ----- + pc + ^self unsignedLongAt: 73! Item was added: + ----- Method: GdbARMAlien64>>pc: (in category 'accessing') ----- + pc: anUnsignedInteger + ^self unsignedLongAt: 73 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r0 (in category 'accessing') ----- + r0 + ^self unsignedLongAt: 13! Item was added: + ----- Method: GdbARMAlien64>>r0: (in category 'accessing') ----- + r0: anUnsignedInteger + ^self unsignedLongAt: 13 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r1 (in category 'accessing') ----- + r1 + ^self unsignedLongAt: 17! Item was added: + ----- Method: GdbARMAlien64>>r10 (in category 'accessing') ----- + r10 + ^self unsignedLongAt: 53! Item was added: + ----- Method: GdbARMAlien64>>r10: (in category 'accessing') ----- + r10: anUnsignedInteger + ^self unsignedLongAt: 53 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r11 (in category 'accessing') ----- + r11 + ^self unsignedLongAt: 57! Item was added: + ----- Method: GdbARMAlien64>>r11: (in category 'accessing') ----- + r11: anUnsignedInteger + ^self unsignedLongAt: 57 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r12 (in category 'accessing') ----- + r12 + ^self unsignedLongAt: 61! Item was added: + ----- Method: GdbARMAlien64>>r12: (in category 'accessing') ----- + r12: anUnsignedInteger + ^self unsignedLongAt: 61 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r1: (in category 'accessing') ----- + r1: anUnsignedInteger + ^self unsignedLongAt: 17 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r2 (in category 'accessing') ----- + r2 + ^self unsignedLongAt: 21! Item was added: + ----- Method: GdbARMAlien64>>r2: (in category 'accessing') ----- + r2: anUnsignedInteger + ^self unsignedLongAt: 21 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r3 (in category 'accessing') ----- + r3 + ^self unsignedLongAt: 25! Item was added: + ----- Method: GdbARMAlien64>>r3: (in category 'accessing') ----- + r3: anUnsignedInteger + ^self unsignedLongAt: 25 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r4 (in category 'accessing') ----- + r4 + ^self unsignedLongAt: 29! Item was added: + ----- Method: GdbARMAlien64>>r4: (in category 'accessing') ----- + r4: anUnsignedInteger + ^self unsignedLongAt: 29 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r5 (in category 'accessing') ----- + r5 + ^self unsignedLongAt: 33! Item was added: + ----- Method: GdbARMAlien64>>r5: (in category 'accessing') ----- + r5: anUnsignedInteger + ^self unsignedLongAt: 33 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r6 (in category 'accessing') ----- + r6 + ^self unsignedLongAt: 37! Item was added: + ----- Method: GdbARMAlien64>>r6: (in category 'accessing') ----- + r6: anUnsignedInteger + ^self unsignedLongAt: 37 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r7 (in category 'accessing') ----- + r7 + ^self unsignedLongAt: 41! Item was added: + ----- Method: GdbARMAlien64>>r7: (in category 'accessing') ----- + r7: anUnsignedInteger + ^self unsignedLongAt: 41 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r8 (in category 'accessing') ----- + r8 + ^self unsignedLongAt: 45! Item was added: + ----- Method: GdbARMAlien64>>r8: (in category 'accessing') ----- + r8: anUnsignedInteger + ^self unsignedLongAt: 45 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>r9 (in category 'accessing') ----- + r9 + ^self unsignedLongAt: 49! Item was added: + ----- Method: GdbARMAlien64>>r9: (in category 'accessing') ----- + r9: anUnsignedInteger + ^self unsignedLongAt: 49 put: anUnsignedInteger! Item was added: + ----- Method: GdbARMAlien64>>sp (in category 'accessing') ----- + sp + ^self unsignedLongAt: 65! Item was added: + ----- Method: GdbARMAlien64>>sp: (in category 'accessing') ----- + sp: anUnsignedInteger + ^self unsignedLongAt: 65 put: anUnsignedInteger!

1 0

[OpenSmalltalk/opensmalltalk-vm] 32e860: GdbARMAlien64 generation
by GitHub 23 Jan '18

23 Jan '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 32e860ac4b7c7183279982282438157077731604 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/32e860ac4b7c718327… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2018-01-23 (Tue, 23 Jan 2018) Changed paths: A processors/ARM/exploration/Makefile64 M processors/ARM/exploration/printcpu.c M processors/ARM/exploration/printcpuvfp.c Log Message: ----------- GdbARMAlien64 generation

1 0

Re: [Vm-dev] Primitive replaceFrom:to:with:startingAt: in the JIT
by Levente Uzonyi 23 Jan '18

23 Jan '18

Hi Clémont, I finally found the time to write some benchmarks. I compared the output of the script below on sqcogspur64linuxht vm 201710061559 and 201712221331 avaiable on bintray. result := { ByteArray. DoubleByteArray. WordArray. DoubleWordArray. ByteString. WideString. FloatArray. Array } collect: [ :class | | collection | Smalltalk garbageCollect. collection := class basicNew: 10000. class -> (#(0 1 2 5 10 20 50 100 200 500 1000 2000 5000 10000) collect: [ :size | | iterations time overhead | iterations := (40000000 // (size max: 1) sqrt) floor. overhead := [ 1 to: iterations do: [ :i | ] ] timeToRun. time := [ 1 to: iterations do: [ :i | collection replaceFrom: 1 to: size with: collection startingAt: 1 ] ] timeToRun. { size. iterations. time - overhead } ]) ]. I found that the quick paths are probably only implented for bytes and pointers collections, because there was no significant difference for DoubleByteArray, WordArray, DoubleWordArray, WideString and FloatArray. For pointers and bytes collections, there's significant speedup when the copied portion is small. However, somewhere between 50 and 100 copied elements, the copying of bytes collections becomes slower (up to 1.5x @ 100k elements) with the newer VM. It's interesting that this doesn't happen to pointers classes. Instead of slowdown there's still 1.5x speedup even at 100k elements. Levente On Mon, 23 Oct 2017, Clément Bera wrote: > Hi all, > For a long time I was willing to add primitive #replaceFrom:to:with:startingAt: in the JIT but did not take time to do it. These days I am showing the JIT to one of my students and as an example of how one would write code in the JIT we implemented this primitive > together, Spur-only. This is part of commit 2273. > > I implemented quick paths for byte objects and array-like objects only. The rationale behind this is that the most common cases I see in Pharo user benchmarks in the profiler is copy of arrays and byteStrings. Typically some application benchmarks would show 3-5% of > time spent in copying small things, and switching from the JIT runtime to C runtime is an important part of the cost. > > First evaluation shows the following speed-ups, but I've just done that quickly in my machine: > > Copy of size 0 > Array 2.85x > ByteString 2.7x > Copy of size 1 > Array 2.1x > ByteString 2x > Copy of size 3 > Array 2x > ByteString 1.9x > Copy of size 8 > Array 1.8x > ByteString 1.8x > Copy of size 64 > Array 1.1x > ByteString 1.1x > Copy of size 1000 > Array 1x > ByteString 1x > > So I would expect some macro benchmarks to get 1 to 3% percent speed-up. Not as much as I expected but it's there. > > Can someone who is good at benchmarks such as Levente have a look and provide us with a better evaluation of the performance difference ? > > Thanks. > > -- > Clément BéraPharo consortium engineer > https://clementbera.wordpress.com/ > Bâtiment B 40, avenue Halley 59650 Villeneuve d'Ascq > >

2 1

VM Maker: VMMaker.oscog-cb.2323.mcz
by commits＠source.squeak.org 23 Jan '18

23 Jan '18

ClementBera uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-cb.2323.mcz ==================== Summary ==================== Name: VMMaker.oscog-cb.2323 Author: cb Time: 23 January 2018, 5:12:30.221182 pm UUID: a8d71a66-ed4a-481b-92fd-74c35f536d1c Ancestors: VMMaker.oscog-eem.2322 Based on discussions decreased from 7 to 5 the number of instructions on Intel in primStringReplace copying loops =============== Diff against VMMaker.oscog-eem.2322 =============== Item was changed: ----- Method: CogObjectRepresentationForSpur>>genPrimitiveStringReplace (in category 'primitive generators') ----- genPrimitiveStringReplace "replaceFrom: start to: stop with: replacement startingAt: repStart. The primitive in the JIT tries to deal with two pathological cases, copy of arrays and byteStrings, which often copies only a dozen of fields and where switching to the C runtime cost a lot. Based on heuristics on the method class, I generate a quick array path (typically for Array), a quick byteString path (typically for ByteString, ByteArray and LargeInteger) or no quick path at all (Typically for Bitmap). The many tests to ensure that the primitive won't fail are not super optimised (multiple reloading or stack arguments in registers) but this is still good enough and worth it since we're avoiding the Smalltalk to C stack switch. The tight copying loops are optimised. It is possible to build a bigger version with the 2 different paths but I (Clement) believe this is too big machine code wise to be worth it." + |arrayReg startReg stopReg replReg repStartReg jumpNotSmi1 jumpNotSmi2 jumpNotSmi3 jumpImm jumpEmpty jumpImmutable jumpOutOfBounds1 jumpOutOfBounds2 jumpOutOfBounds3 jumpOutOfBounds4 jumpIncorrectFormat1 jumpIncorrectFormat2 jumpIncorrectFormat3 jumpIncorrectFormat4 result jmpDestYoung jmpAlreadyRemembered instr adjust| - |arrayReg startReg stopReg replReg repStartReg jumpNotSmi1 jumpNotSmi2 jumpNotSmi3 jumpImm jumpEmpty jumpImmutable jumpOutOfBounds1 jumpOutOfBounds2 jumpOutOfBounds3 jumpOutOfBounds4 jumpIncorrectFormat1 jumpIncorrectFormat2 jumpIncorrectFormat3 jumpIncorrectFormat4 result jmpDestYoung jmpAlreadyRemembered instr jumpFinished adjust| <var: #jumpImm type: #'AbstractInstruction *'> <var: #jumpEmpty type: #'AbstractInstruction *'> <var: #jumpFinished type: #'AbstractInstruction *'> <var: #jumpNotSmi1 type: #'AbstractInstruction *'> <var: #jumpNotSmi2 type: #'AbstractInstruction *'> <var: #jumpNotSmi3 type: #'AbstractInstruction *'> <var: #jmpDestYoung type: #'AbstractInstruction *'> <var: #jumpImmutable type: #'AbstractInstruction *'> <var: #jumpOutOfBounds1 type: #'AbstractInstruction *'> <var: #jumpOutOfBounds2 type: #'AbstractInstruction *'> <var: #jumpOutOfBounds3 type: #'AbstractInstruction *'> <var: #jumpOutOfBounds4 type: #'AbstractInstruction *'> <var: #jumpIncorrectFormat1 type: #'AbstractInstruction *'> <var: #jumpIncorrectFormat2 type: #'AbstractInstruction *'> <var: #jumpIncorrectFormat3 type: #'AbstractInstruction *'> <var: #jumpIncorrectFormat4 type: #'AbstractInstruction *'> <var: #jmpAlreadyRemembered type: #'AbstractInstruction *'> + - "Can I generate a quick path for this method ?" ((cogit seemsToBeInstantiating: objectMemory arrayFormat) or: [cogit seemsToBeInstantiating: objectMemory firstByteFormat]) ifFalse: [^UnimplementedPrimitive]. + - "I redefine those name to ease program comprehension" arrayReg := ReceiverResultReg. startReg := Arg0Reg. stopReg := Arg1Reg. replReg := ClassReg. repStartReg := SendNumArgsReg. "Load arguments in reg" cogit genStackArgAt: 0 into: repStartReg. cogit genStackArgAt: 1 into: replReg. cogit genStackArgAt: 2 into: stopReg. cogit genStackArgAt: 3 into: startReg. "start,stop,repStart Smis or fail the primitive" jumpNotSmi1 := self genJumpNotSmallInteger: repStartReg scratchReg: TempReg. jumpNotSmi2 := self genJumpNotSmallInteger: stopReg scratchReg: TempReg. jumpNotSmi3 := self genJumpNotSmallInteger: startReg scratchReg: TempReg. "repl non immediate or fail the primitive" jumpImm := self genJumpImmediate: replReg. "if start>stop primitive success" cogit CmpR: startReg R: stopReg. jumpEmpty := cogit JumpLess: 0. "If receiver immutable fail the primitive " self cppIf: IMMUTABILITY ifTrue: [jumpImmutable := self genJumpImmutable: ReceiverResultReg scratchReg: TempReg]. "0 >= start, fail" cogit CmpCq: (objectMemory integerObjectOf: 0) R: startReg. jumpOutOfBounds1 := cogit JumpLessOrEqual: 0. "0 >= replStart, fail" cogit CmpCq: (objectMemory integerObjectOf: 0) R: repStartReg. jumpOutOfBounds2 := cogit JumpLessOrEqual: 0. "--- Pointer object version ---" (cogit seemsToBeInstantiating: objectMemory arrayFormat) ifTrue: ["Are they both array format ?" self genGetFormatOf: arrayReg into: TempReg. self genGetFormatOf: replReg into: startReg. cogit CmpCq: objectMemory arrayFormat R: startReg. jumpIncorrectFormat1 := cogit JumpNonZero: 0. cogit CmpCq: objectMemory arrayFormat R: TempReg. jumpIncorrectFormat2 := cogit JumpNonZero: 0. "Both objects are arrays," self genGetNumSlotsOf: arrayReg into: TempReg. self genConvertSmallIntegerToIntegerInReg: stopReg. "arr size < stop" cogit CmpR: TempReg R: stopReg. jumpOutOfBounds3 := cogit JumpGreater: 0. "rep size < repStart - start + stop" self genGetNumSlotsOf: replReg into: TempReg. cogit genStackArgAt: 3 into: startReg. self genConvertSmallIntegerToIntegerInReg: startReg. self genConvertSmallIntegerToIntegerInReg: repStartReg. cogit SubR: startReg R: stopReg. cogit AddR: repStartReg R: stopReg. "stopReg: stop - start + repStart" cogit CmpR: TempReg R: stopReg. jumpOutOfBounds4 := cogit JumpGreater: 0. "Everything in bounds" "PossibleRemembered object" cogit MoveCw: objectMemory storeCheckBoundary R: TempReg. cogit CmpR: TempReg R: arrayReg. jmpDestYoung := cogit JumpBelow: 0. self checkRememberedInTrampoline ifFalse: [jmpAlreadyRemembered := self genCheckRememberedBitOf: arrayReg scratch: TempReg]. self callStoreCheckTrampoline. jmpDestYoung jmpTarget: cogit Label. self checkRememberedInTrampoline ifFalse: [jmpAlreadyRemembered jmpTarget: cogit Label]. "Copy the array" cogit genStackArgAt: 2 into: stopReg. self genConvertSmallIntegerToIntegerInReg: stopReg. + "Shift replReg to read it with startReg offset" + cogit SubR: startReg R: repStartReg. + cogit LogicalShiftLeftCq: objectMemory shiftForWord R: repStartReg. + cogit AddR: repStartReg R: replReg. "shift by baseHeaderSize and then move from 1 relative to zero relative" adjust := (objectMemory baseHeaderSize >> objectMemory shiftForWord) - 1. adjust ~= 0 ifTrue: [ cogit AddCq: adjust R: startReg. + cogit AddCq: adjust R: stopReg ]. - cogit AddCq: adjust R: stopReg. - cogit AddCq: adjust R: repStartReg. ]. + "Tight copying loop" + instr := cogit MoveXwr: startReg R: replReg R: TempReg. - instr := cogit CmpR: startReg R: stopReg. - jumpFinished := cogit JumpBelow: 0. - cogit MoveXwr: repStartReg R: replReg R: TempReg. cogit MoveR: TempReg Xwr: startReg R: arrayReg. cogit AddCq: 1 R: startReg. + cogit CmpR: startReg R: stopReg. + cogit JumpAboveOrEqual: instr. + + jumpEmpty jmpTarget: cogit genPrimReturn. - cogit AddCq: 1 R: repStartReg. - cogit Jump: instr. - jumpFinished jmpTarget: (jumpEmpty jmpTarget: cogit genPrimReturn). "CANNOT REACH by falling though" jumpIncorrectFormat1 jmpTarget: (jumpIncorrectFormat2 jmpTarget: cogit Label)]. "--- Byte object version ---" (cogit seemsToBeInstantiating: objectMemory firstByteFormat) ifTrue: ["Are they both byte array format ? CompiledMethod excluded" self genGetFormatOf: arrayReg into: TempReg. self genGetFormatOf: replReg into: repStartReg. cogit CmpCq: objectMemory firstByteFormat R: repStartReg. jumpIncorrectFormat1 := cogit JumpLess: 0. cogit CmpCq: objectMemory firstCompiledMethodFormat R: repStartReg. jumpIncorrectFormat2 := cogit JumpGreaterOrEqual: 0. cogit CmpCq: objectMemory firstByteFormat R: TempReg. jumpIncorrectFormat3 := cogit JumpLess: 0. cogit CmpCq: objectMemory firstCompiledMethodFormat R: TempReg. jumpIncorrectFormat4 := cogit JumpGreaterOrEqual: 0. "Both objects are byte arrays" self genGetNumSlotsOf: arrayReg into: startReg. (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: startReg). cogit AndCq: objectMemory wordSize - 1 R: TempReg R: TempReg. cogit SubR: TempReg R: startReg. self genConvertSmallIntegerToIntegerInReg: stopReg. "arr size < stop" cogit CmpR: startReg R: stopReg. jumpOutOfBounds3 := cogit JumpGreater: 0. "rep size < repStart - start + stop" cogit MoveR: repStartReg R: TempReg. "TempReg holds repl format" cogit genStackArgAt: 0 into: repStartReg. cogit genStackArgAt: 3 into: startReg. self genConvertSmallIntegerToIntegerInReg: startReg. self genConvertSmallIntegerToIntegerInReg: repStartReg. cogit SubR: startReg R: stopReg. cogit AddR: repStartReg R: stopReg. self genGetNumSlotsOf: replReg into: startReg. (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: startReg). cogit AndCq: objectMemory wordSize - 1 R: TempReg R: TempReg. cogit SubR: TempReg R: startReg. "stopReg: stop - start + repStart" cogit CmpR: startReg R: stopReg. jumpOutOfBounds4 := cogit JumpGreater: 0. "Everything in bounds" "Copy the bytes" cogit genStackArgAt: 3 into: startReg. self genConvertSmallIntegerToIntegerInReg: startReg. cogit genStackArgAt: 2 into: stopReg. self genConvertSmallIntegerToIntegerInReg: stopReg. + "Shift replReg to read it with startReg offset" + cogit SubR: startReg R: repStartReg. + cogit AddR: repStartReg R: replReg. "shift by baseHeaderSize and then move from 1 relative to zero relative" adjust := objectMemory baseHeaderSize - 1. adjust ~= 0 ifTrue: [ cogit AddCq: adjust R: startReg. + cogit AddCq: adjust R: stopReg. ]. - cogit AddCq: adjust R: stopReg. - cogit AddCq: adjust R: repStartReg. ]. + "Tight copying loop" + instr := cogit MoveXbr: startReg R: replReg R: TempReg. - instr := cogit CmpR: startReg R: stopReg. - jumpFinished := cogit JumpBelow: 0. - cogit MoveXbr: repStartReg R: replReg R: TempReg. cogit MoveR: TempReg Xbr: startReg R: arrayReg. cogit AddCq: 1 R: startReg. + cogit CmpR: startReg R: stopReg. + cogit JumpAboveOrEqual: instr. + + jumpEmpty jmpTarget: cogit genPrimReturn. - cogit AddCq: 1 R: repStartReg. - cogit Jump: instr. - jumpFinished jmpTarget: (jumpEmpty jmpTarget: cogit genPrimReturn). "CANNOT REACH by falling though" jumpIncorrectFormat4 jmpTarget: (jumpIncorrectFormat3 jmpTarget: (jumpIncorrectFormat2 jmpTarget: (jumpIncorrectFormat1 jmpTarget: cogit Label)))]. (result := cogit compileInterpreterPrimitive) < 0 ifTrue: [^result]. jumpImm jmpTarget: (jumpNotSmi1 jmpTarget: (jumpNotSmi2 jmpTarget: (jumpNotSmi3 jmpTarget: cogit Label))). jumpOutOfBounds1 jmpTarget: (jumpOutOfBounds2 jmpTarget: (jumpOutOfBounds3 jmpTarget: (jumpOutOfBounds4 jmpTarget: jumpImm getJmpTarget))). self cppIf: IMMUTABILITY ifTrue: [jumpImmutable jmpTarget: jumpImm getJmpTarget]. ^ CompletePrimitive!

1 0

[OpenSmalltalk/opensmalltalk-vm] 4ce3b5: Use APP_DIR when signing the app bundle
by GitHub 23 Jan '18

23 Jan '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 4ce3b5d2ad9c64fac1f26e67c5ba7948bf70e990 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/4ce3b5d2ad9c64fac1… Author: Fabio Niephaus <code(a)fniephaus.com> Date: 2018-01-23 (Tue, 23 Jan 2018) Changed paths: M deploy/generate-artifacts.sh Log Message: ----------- Use APP_DIR when signing the app bundle codesign does not seem to like a pattern Commit: 988252feebf7cd795843ea47aa3feb68619ba997 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/988252feebf7cd7958… Author: Fabio Niephaus <code(a)fniephaus.com> Date: 2018-01-23 (Tue, 23 Jan 2018) Changed paths: M .travis_build.sh Log Message: ----------- Ensure products directory exists Then, an app bundle can correctly be moved to it. Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/518929c1bd21...98…

1 0

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

22 Jan '18

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2322.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2322 Author: eem Time: 22 January 2018, 11:23:26.827661 am UUID: 3bf03f98-466c-41eb-9346-97c7b5567559 Ancestors: VMMaker.oscog-eem.2321 RegisterAllocatingCogit: Make sure the receiverResultReg state is valid on backwards jump when the stackLimit is not exceeded. Implement branch following as per StackToRegisterMappingCogit>>#genJumpTo:. Avoid duplicating send of moveVolatileSimStackEntriesToRegisters in ensureFixupAt:. Cogit: Implement inst var name decoration in x64 disassembly. =============== Diff against VMMaker.oscog-eem.2321 =============== Item was added: + ----- Method: Cogit class>>attemptToComputeInstVarNamesFor: (in category 'in-image compilation support') ----- + attemptToComputeInstVarNamesFor: aCompiledMethod + (aCompiledMethod methodClass instSize > 0) ifTrue: + [initializationOptions + at: #instVarNames + put: (aCompiledMethod methodClass allInstVarNames)]! Item was changed: ----- Method: Cogit class>>cog:selectorOrNumCopied:options: (in category 'in-image compilation') ----- cog: aCompiledMethod selectorOrNumCopied: selectorOrNumCopied options: optionsDictionaryOrArray "StackToRegisterMappingCogit cog: (Integer >> #benchFib) selector: #benchFib options: #(COGMTVM false)" | cogit coInterpreter | cogit := self instanceForTests: optionsDictionaryOrArray. self attemptToComputeTempNamesFor: aCompiledMethod. + self attemptToComputeInstVarNamesFor: aCompiledMethod. coInterpreter := CurrentImageCoInterpreterFacade forCogit: cogit. [cogit setInterpreter: coInterpreter; singleStep: true; initializeCodeZoneFrom: 1024 upTo: coInterpreter memory size / 2. "leave space for rump C stack" cogit methodZone freeStart: (cogit methodZone freeStart roundUpTo: 1024)] on: Notification do: [:ex| (ex messageText beginsWith: 'cannot find receiver for') ifTrue: [ex resume: coInterpreter]. ex pass]. ^{ coInterpreter. cogit. selectorOrNumCopied isInteger ifTrue: [ cogit cogFullBlockMethod: (coInterpreter oopForObject: aCompiledMethod) numCopied: selectorOrNumCopied ] ifFalse: [ cogit cog: (coInterpreter oopForObject: aCompiledMethod) selector: (coInterpreter oopForObject: selectorOrNumCopied) ] }! Item was changed: ----- Method: Cogit>>disassembleFrom:to:labels:on: (in category 'disassembly') ----- disassembleFrom: startAddress to: endAddress labels: labelDictionary on: aStream <doNotGenerate> + | previousTVP | aStream ensureCr. + previousTVP := processor class printTempNames. + processor class + printTempNames: (self class initializationOptions includesKey: #tempNames); + setReceiverResultReg: ((self class initializationOptions includesKey: #instVarNames) ifTrue: + [ReceiverResultReg]). + [processor + disassembleFrom: startAddress + to: endAddress + in: coInterpreter memory + for: self + labels: labelDictionary + on: aStream] ensure: + [processor class + printTempNames: previousTVP; + setReceiverResultReg: nil]. - processor disassembleFrom: startAddress to: endAddress in: coInterpreter memory for: self labels: labelDictionary on: aStream. aStream flush! Item was added: + ----- Method: Cogit>>lookupInstVarOffset: (in category 'disassembly') ----- + lookupInstVarOffset: offset + ^offset \\ objectMemory bytesPerOop = 0 ifTrue: + [(self class initializationOptions at: #instVarNames ifAbsent: nil) ifNotNil: + [:array| + array + at: offset - objectMemory baseHeaderSize / objectMemory bytesPerOop + 1 + ifAbsent: nil]]! Item was changed: ----- Method: RegisterAllocatingCogit>>ensureFixupAt: (in category 'bytecode generator support') ----- ensureFixupAt: targetPC "Make sure there's a flagged fixup at the target pc in fixups. Initially a fixup's target is just a flag. Later on it is replaced with a proper instruction. Override to generate stack merging code if required." | fixup | <var: #fixup type: #'BytecodeFixup *'> self assert: targetPC > bytecodePC. fixup := self fixupAt: targetPC. "If a non-merge fixup has already been defined then where-ever that was done didn't realise there needed to be a merge and forgot to save the stack state for that merge." self deny: fixup isNonMergeFixup. fixup needsFixup ifTrue: [fixup mergeSimStack ifNil: [self setMergeSimStackOf: fixup] ifNotNil: [self copySimStackToScratch: simSpillBase. self mergeCurrentSimStackWith: fixup forwards: true. self restoreSimStackFromScratch]] ifFalse: [self assert: (fixup mergeSimStack isNil or: [compilationPass = 2]). - self moveVolatileSimStackEntriesToRegisters. "Is this needed here? It is sent immediately in setMergeSimStackOf:; maybe it should be in the ifNotNil: branch only?" fixup mergeSimStack ifNil: [self setMergeSimStackOf: fixup] + ifNotNil: + [self moveVolatileSimStackEntriesToRegisters. + self assert: (self simStack: simStack isIdenticalTo: fixup mergeSimStack)]]. - ifNotNil: [self assert: (self simStack: simStack isIdenticalTo: fixup mergeSimStack)]]. ^super ensureFixupAt: targetPC! Item was changed: ----- Method: RegisterAllocatingCogit>>genJumpBackTo: (in category 'bytecode generator support') ----- genJumpBackTo: targetPC | target | "On first pass install register allocations (if any) as of the end of the loop and back up to recompile. One the second pass generate + (any merge other than self elided because register assignments copied to loop head in first pass) - (any merge elided because register assignments copied to loop head in first pass) cmp stackLimit + maybe reload self jumpAboveOrEqual target flush checkForInterrupts merge from flushed (N.B. If stack was flushed before loop we could conceivably jump to the pre-loop merge code) jmp target self printSimStack; printSimStack: target mergeSimStack" self assert: targetPC < bytecodePC. target := self fixupAt: targetPC. self ensureRegisterAssignmentsAreAtHeadOfLoop: target. self MoveAw: coInterpreter stackLimitAddress R: TempReg. + (target isReceiverResultRegSelf + and: [simSelf liveRegister = NoReg]) ifTrue: + [simSelf storeToReg: ReceiverResultReg]. self CmpR: TempReg R: SPReg. "N.B. FLAGS := SPReg - TempReg" self JumpAboveOrEqual: target. self ssFlushTo: simStackPtr. self CallRT: ceCheckForInterruptTrampoline. self annotateBytecode: self Label. self flushLiveRegistersForSuspensionPoint. self mergeCurrentSimStackWith: target forwards: false. self Jump: target. deadCode := true. "can't fall through" ^0! Item was changed: ----- Method: RegisterAllocatingCogit>>genJumpTo: (in category 'bytecode generator support') ----- genJumpTo: targetBytecodePC "Overriden to avoid the flush because in this cogit stack state is merged at merge point." + | eventualTarget generator fixup | + eventualTarget := self eventualTargetOf: targetBytecodePC. + (eventualTarget > bytecodePC + and: [self stackTopIsBoolean + and: [(generator := self generatorForPC: eventualTarget) isConditionalBranch]]) + ifTrue: + [eventualTarget := eventualTarget + + generator numBytes + + (generator isBranchTrue == (self ssTop constant = objectMemory trueObject) + ifTrue: [self spanFor: generator at: eventualTarget exts: 0 in: methodObj] + ifFalse: [0]). + self ssPop: 1. + fixup := self ensureFixupAt: eventualTarget. + self ssPop: -1] + ifFalse: + [fixup := self ensureFixupAt: eventualTarget]. deadCode := true. "can't fall through" + self Jump: fixup. + ^0! - self Jump: (self ensureFixupAt: (self eventualTargetOf: targetBytecodePC)). - ^ 0! Item was changed: ----- Method: VMClass class>>initialize (in category 'initialization') ----- initialize (Utilities classPool at: #CommonRequestStrings ifAbsent: []) ifNotNil: [:commonRequestStringHolder| (commonRequestStringHolder contents asString includesSubstring: 'VMClass open') ifFalse: + [Utilities appendToCommonRequests: '-\VMMaker generateConfiguration\VMMaker generateAllConfigurationsUnderVersionControl\VMMaker generateAllSpurConfigurations\VMClass openCogMultiWindowBrowser\VMClass openObjectMemoriesInterpretersBrowser\VMClass openSpurMultiWindowBrowser\VMClass openCogSpurMultiWindowBrowser\VMClass openCogitMultiWindowBrowser' withCRs]]. - [Utilities appendToCommonRequests: '-\VMMaker generateConfiguration\VMMaker generateAllConfigurationsUnderVersionControl\VMMaker generateAllSpurConfigurations\VMClass openCogMultiWindowBrowser\VMClass openObjectMemoriesInterpretersBrowser\VMClass openSpurMultiWindowBrowser\VMClass openCogSpurMultiWindowBrowser' withCRs]]. ExpensiveAsserts := false! Item was changed: ----- Method: VMClass class>>openCogitMultiWindowBrowser (in category 'utilities') ----- openCogitMultiWindowBrowser "Answer a new multi-window browser on the ObjectMemory classes, the Cog Interpreter classes, and the main JIT classes" "self openCogitMultiWindowBrowser" | b | b := Browser open. Cogit withAllSubclasses, CogObjectRepresentation withAllSubclasses, {CogMethodZone. CogRTLOpcodes }, (CogAbstractInstruction withAllSubclasses reject: [:c| c name endsWith: 'Tests']), + CogBytecodeFixup withAllSubclasses, + CogSimStackEntry withAllSubclasses, {VMStructType. VMMaker. CCodeGenerator. TMethod} do: [:class| b selectCategoryForClass: class; selectClass: class] separatedBy: [b multiWindowState addNewWindow]. b multiWindowState selectWindowIndex: 1!

1 0

[OpenSmalltalk/opensmalltalk-vm] 6d36d0: Move pharo-deploy to other deploy providers
by GitHub 22 Jan '18

22 Jan '18

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 6d36d043ce3500bd5842e7586cf2465aa732b106 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/6d36d043ce3500bd58… Author: Fabio Niephaus <code(a)fniephaus.com> Date: 2018-01-22 (Mon, 22 Jan 2018) Changed paths: M .travis.yml A deploy/pharo/deploy.sh Log Message: ----------- Move pharo-deploy to other deploy providers Commit: 518929c1bd218267e3693da75e4c33294c6f1602 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/518929c1bd218267e3… Author: Fabio Niephaus <code(a)fniephaus.com> Date: 2018-01-22 (Mon, 22 Jan 2018) Changed paths: M .gitignore M deploy/generate-artifacts.sh A deploy/squeak/sign.cer.enc R deploy/squeak/sign.enc A deploy/squeak/sign.p12.enc Log Message: ----------- Add .cer file for codesigning Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/7f0e0d680e85...51…

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
26
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 January 2018