Vm-dev December 2017

vm-dev@lists.squeakfoundation.org

22 participants
79 discussions

[OpenSmalltalk/opensmalltalk-vm] 0fa6ef: use new files.pharo.org server
by GitHub 22 Dec '17

22 Dec '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 0fa6ef324b2eb50d93150dd92f7c7fe15a2f2d1d https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/0fa6ef324b2eb50d93… Author: demarey <christophe.demarey(a)inria.fr> Date: 2017-12-22 (Fri, 22 Dec 2017) Changed paths: M deploy/pharo/deploy-files.pharo.org.sh Log Message: ----------- use new files.pharo.org server Commit: 7bd09e4b1bc47891729adb1184d37fe2f7d4b5d6 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/7bd09e4b1bc4789172… Author: demarey <christophe.demarey(a)inria.fr> Date: 2017-12-22 (Fri, 22 Dec 2017) Changed paths: M deploy/pharo/deploy-key.sh Log Message: ----------- update ssh config to use new files.pharo.org server Commit: 02a100f7f547f4c0f96587c4858eab1c8f8b2646 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/02a100f7f547f4c0f9… Author: demarey <christophe.demarey(a)inria.fr> Date: 2017-12-22 (Fri, 22 Dec 2017) Changed paths: M deploy/pharo/deploy-key.sh Log Message: ----------- fix hostname Commit: a04e0a7862a3c269f3f75f22688dbe0d90e54fea https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/a04e0a7862a3c269f3… Author: demarey <christophe.demarey(a)inria.fr> Date: 2017-12-22 (Fri, 22 Dec 2017) Changed paths: M deploy/pharo/deploy-files.pharo.org.sh Log Message: ----------- Use alias instead of direct ssh gateway Commit: b35188591633b838196a752a57cd0768fb64c788 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/b35188591633b83819… Author: Clement Bera <bera.clement(a)gmail.com> Date: 2017-12-22 (Fri, 22 Dec 2017) Changed paths: M deploy/pharo/deploy-files.pharo.org.sh M deploy/pharo/deploy-key.sh Log Message: ----------- Merge pull request #176 from demarey/Cog Use the new files.pharo.org server to deploy Pharo VMs Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/59455f265f9e...b3…

1 0

[OpenSmalltalk/opensmalltalk-vm] 59455f: CogVM source as per VMMaker.oscog-eem.2302
by GitHub 22 Dec '17

22 Dec '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 59455f265f9ed9dfe324039b2999cd2c03770b9c https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/59455f265f9ed9dfe3… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2017-12-21 (Thu, 21 Dec 2017) Changed paths: M nsspur64src/vm/cogit.h M nsspur64src/vm/cogitX64SysV.c M nsspur64src/vm/cogitX64WIN64.c M nsspur64src/vm/cointerp.c M nsspur64src/vm/cointerp.h M nsspur64src/vm/gcc3x-cointerp.c M nsspursrc/vm/cogit.h M nsspursrc/vm/cogitARMv5.c M nsspursrc/vm/cogitIA32.c M nsspursrc/vm/cogitMIPSEL.c M nsspursrc/vm/cointerp.c M nsspursrc/vm/cointerp.h M nsspursrc/vm/gcc3x-cointerp.c M nsspurstack64src/vm/gcc3x-interp.c M nsspurstack64src/vm/interp.c M nsspurstacksrc/vm/gcc3x-interp.c M nsspurstacksrc/vm/interp.c M spur64src/vm/cogit.h M spur64src/vm/cogitX64SysV.c M spur64src/vm/cogitX64WIN64.c M spur64src/vm/cointerp.c M spur64src/vm/cointerp.h M spur64src/vm/gcc3x-cointerp.c M spurlowcode64src/vm/cogit.h M spurlowcode64src/vm/cogitX64SysV.c M spurlowcode64src/vm/cogitX64WIN64.c M spurlowcode64src/vm/cointerp.c M spurlowcode64src/vm/cointerp.h M spurlowcode64src/vm/gcc3x-cointerp.c M spurlowcodesrc/vm/cogit.h M spurlowcodesrc/vm/cogitARMv5.c M spurlowcodesrc/vm/cogitIA32.c M spurlowcodesrc/vm/cogitMIPSEL.c M spurlowcodesrc/vm/cointerp.c M spurlowcodesrc/vm/cointerp.h M spurlowcodesrc/vm/gcc3x-cointerp.c M spurlowcodestack64src/vm/gcc3x-interp.c M spurlowcodestack64src/vm/interp.c M spurlowcodestacksrc/vm/gcc3x-interp.c M spurlowcodestacksrc/vm/interp.c M spursista64src/vm/cogit.h M spursista64src/vm/cogitX64SysV.c M spursista64src/vm/cogitX64WIN64.c M spursista64src/vm/cointerp.c M spursista64src/vm/cointerp.h M spursista64src/vm/gcc3x-cointerp.c M spursistasrc/vm/cogit.h M spursistasrc/vm/cogitARMv5.c M spursistasrc/vm/cogitIA32.c M spursistasrc/vm/cogitMIPSEL.c M spursistasrc/vm/cointerp.c M spursistasrc/vm/cointerp.h M spursistasrc/vm/gcc3x-cointerp.c M spursrc/vm/cogit.h M spursrc/vm/cogitARMv5.c M spursrc/vm/cogitIA32.c M spursrc/vm/cogitMIPSEL.c M spursrc/vm/cointerp.c M spursrc/vm/cointerp.h M spursrc/vm/gcc3x-cointerp.c M spurstack64src/vm/gcc3x-interp.c M spurstack64src/vm/interp.c M spurstacksrc/vm/gcc3x-interp.c M spurstacksrc/vm/interp.c M src/plugins/SqueakFFIPrims/ARM32FFIPlugin.c M src/plugins/SqueakFFIPrims/IA32FFIPlugin.c M src/plugins/SqueakFFIPrims/X64SysVFFIPlugin.c M src/plugins/SqueakFFIPrims/X64Win64FFIPlugin.c M src/vm/cogit.h M src/vm/cogitARMv5.c M src/vm/cogitIA32.c M src/vm/cogitMIPSEL.c M src/vm/cointerp.c M src/vm/cointerp.h M src/vm/cointerpmt.c M src/vm/cointerpmt.h M src/vm/gcc3x-cointerp.c M src/vm/gcc3x-cointerpmt.c M stacksrc/vm/gcc3x-interp.c M stacksrc/vm/interp.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2302 Cogit: Extend Spur 64-bit primitiveAt with full support for 64-bit longs. Correct 16-bit bounds check in at:. Fix some typos and comment out unused C64 & Xowr opcodes. SqueakFFIPrims: Change the contract of ThreadedFFIPlugin>>ffiAddressOf:startingAt:size:, moving the primitive fails to the callers for equivalent but more compact code. Change primitiveFFIIntegerAt[Put] to use unalignedShortAt:[put:], unalignedLong32At:[put:] & unalignedLong64At:[put:] and implement these for simulation in SpurMemoryManager (ObjectMemory can wait) and have the preambleCCode map these to the original shortAt[put], long32At[put] & long32At[put] C functions/macros.

1 0

VM Maker: VMMaker.oscog-eem.2299.mcz
by commits＠source.squeak.org 22 Dec '17

22 Dec '17

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2299.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2299 Author: eem Time: 21 December 2017, 9:17:52.747344 pm UUID: 53b6a352-dbde-430a-9ec1-cb56154fe2c5 Ancestors: VMMaker.oscog-eem.2298 Get the StackInterpreterSimulator to a state where it can correctly simulate the DoubleByteArray, WordArray, DoubleWordArray and MemoryTests. Principally allow the SqueakFFIPrims plugin (ThreadedFFIPlugin) to load and make primitiveFFIIntegerAt[Put] function correctly in simulation. Change the two primitives to use unalignedShortAt:[put:], unalignedLong32At:[put:] & unalignedLong64At:[put:] and implement these in SpurMemoryManager (ObjectMemory can wait) and have the preambleCCode map these to the original shortAt[put], long32At[put] & long32At[put] C functions/macros. Fix a bug in the simulation of LargeIntegersPlugin>>cDigitSub:len:with:len:into: (Nicolas, there may be similar signedness issues in other functions. If you have time and energy please consider taking a look at the code in the simulator). Fix a slip in the range comparison for 64-bit integer arguments in genPrimitiveAtPut. =============== Diff against VMMaker.oscog-eem.2298 =============== Item was added: + ----- Method: CoInterpreter>>ISA (in category 'simulation') ----- + ISA + <doNotGenerate> + ^cogit backEnd class ISA! Item was changed: ----- Method: CogClass>>cCoerceSimple:to: (in category 'translation support') ----- cCoerceSimple: value to: cTypeString <doNotGenerate> "Type coercion for translation and simulation. For simulation answer a suitable surrogate for the struct types" ^cTypeString caseOf: { [#'unsigned long'] -> [value]. [#'unsigned int'] -> [value]. + [#'unsigned short'] -> [value]. + [#sqInt] -> [value]. - [#sqInt] -> [value]. [#'sqIntptr_t'] -> [value]. [#'usqIntptr_t'] -> [value]. [#usqInt] -> [value]. [#sqLong] -> [value]. + [#usqLong] -> [value]. - [#usqLong] -> [value]. [#'AbstractInstruction *'] -> [value]. [#'BytecodeFixup *'] -> [value]. [#'CogMethod *'] -> [value]. [#'char *'] -> [value]. [#'sqInt *'] -> [value]. [#'void *'] -> [value]. [#void] -> [value]. [#'void (*)()'] -> [value]. [#'void (*)(void)'] -> [value]. [#'unsigned long (*)(void)'] -> [value]. [#'void (*)(unsigned long,unsigned long)'] -> [value]. [#'usqIntptr_t (*)(void)'] -> [value] }! Item was changed: ----- Method: CogObjectRepresentationFor64BitSpur>>genPrimitiveAtPut (in category 'primitive generators') ----- (excessive size, no diff calculated) Item was changed: ----- Method: FFIPlugin class>>moduleName (in category 'translation') ----- moduleName "FFIPlugin translate" "IMPORTANT: IF YOU CHANGE THE NAME OF THIS PLUGIN YOU MUST CHANGE Interpreter>>primitiveCalloutToFFI TO REFLECT THE CHANGE." + ^'SqueakFFIPrims (Obsolete)'! - ^'SqueakFFIPrims'! Item was changed: ----- Method: FilePluginSimulator>>sqFileDeleteName:Size: (in category 'simulation') ----- sqFileDeleteName: nameIndex Size: nameSize | path | + path := interpreterProxy asString: nameIndex size: nameSize. - path := interpreterProxy interpreter asString: nameIndex size: nameSize. (StandardFileStream isAFileNamed: path) ifFalse: [^interpreterProxy primitiveFail]. [FileDirectory deleteFilePath: path] on: Error do: [:ex| interpreterProxy primitiveFail]! Item was changed: ----- Method: LargeIntegersPlugin>>cDigitSub:len:with:len:into: (in category 'C core') ----- cDigitSub: pWordSmall len: smallLen with: pWordLarge len: largeLen into: pWordRes | z | <var: #pWordSmall type: #'unsigned int *'> <var: #pWordLarge type: #'unsigned int *'> <var: #pWordRes type: #'unsigned int *'> <var: #z type: #'unsigned long long'> z := 0. 0 to: smallLen - 1 do: [:i | z := z + (self cDigitOf: pWordLarge at: i) - (self cDigitOf: pWordSmall at: i). self cDigitOf: pWordRes at: i put: (z bitAnd: 16rFFFFFFFF). + z := 0 - (self cCode: [z >> 63] inSmalltalk: [z >> 63 bitAnd: 1])]. - z := 0 - (z >> 63)]. smallLen to: largeLen - 1 do: [:i | z := z + (self cDigitOf: pWordLarge at: i) . self cDigitOf: pWordRes at: i put: (z bitAnd: 16rFFFFFFFF). + z := 0 - (self cCode: [z >> 63] inSmalltalk: [z >> 63 bitAnd: 1])]. - z := 0 - (z >> 63)]. ^0! Item was changed: ----- Method: Spur64BitMMLECoSimulatorFor64Bits>>long64At: (in category 'memory access') ----- long64At: byteAddress + "memory is a DoubleWordArray, a 64-bit indexable array of bits" - "memory is a DobleWordArray, a 64-bit indexable array of bits" byteAddress \\ 8 ~= 0 ifTrue: [self unalignedAccessError]. ^memory at: byteAddress // 8 + 1! Item was changed: ----- Method: Spur64BitMMLECoSimulatorFor64Bits>>long64At:put: (in category 'memory access') ----- long64At: byteAddress put: a64BitValue + "memory is a DoubleWordArray, a 64-bit indexable array of bits" - "memory is a DobleWordArray, a 64-bit indexable array of bits" byteAddress \\ 8 ~= 0 ifTrue: [self unalignedAccessError]. ^memory at: byteAddress // 8 + 1 put: a64BitValue! Item was changed: ----- Method: Spur64BitMMLESimulatorFor64Bits>>long32At:put: (in category 'memory access') ----- long32At: byteAddress put: a32BitValue "Store the 32-bit word at byteAddress which must be a multiple of four." | lowBits long longAddress | + a32BitValue < 0 ifTrue: + [self long32At: byteAddress put: (a32BitValue bitAnd: 16rFFFFFFFF). + ^a32BitValue]. lowBits := byteAddress bitAnd: 4. lowBits = 0 ifTrue: "storing into LS word" [long := self long64At: byteAddress. self long64At: byteAddress put: ((long bitAnd: 16rFFFFFFFF00000000) bitOr: a32BitValue)] ifFalse: "storing into MS word" [longAddress := byteAddress - 4. long := self long64At: longAddress. self long64At: longAddress put: ((long bitAnd: 16rFFFFFFFF) bitOr: (a32BitValue bitShift: 32))]. ^a32BitValue! Item was changed: ----- Method: Spur64BitMMLESimulatorFor64Bits>>long64At:put: (in category 'memory access') ----- long64At: byteAddress put: a64BitValue + "memory is a DoubleWordArray, a 64-bit indexable array of bits" - "memory is a DobleWordArray, a 64-bit indexable array of bits" byteAddress \\ 8 ~= 0 ifTrue: [self unalignedAccessError]. ^memory at: byteAddress // 8 + 1 put: a64BitValue! Item was added: + ----- Method: SpurMemoryManager>>ISA (in category 'simulation only') ----- + ISA + "hack around the CoInterpreter/ObjectMemory split refactoring" + <doNotGenerate> + ^coInterpreter ISA! Item was added: + ----- Method: SpurMemoryManager>>signed64BitIntegerFor: (in category 'simulation only') ----- + signed64BitIntegerFor: integerValue + "hack around the CoInterpreter/ObjectMemory split refactoring" + <doNotGenerate> + ^coInterpreter signed64BitIntegerFor: integerValue! Item was added: + ----- Method: SpurMemoryManager>>signed64BitValueOf: (in category 'simulation only') ----- + signed64BitValueOf: oop + "hack around the CoInterpreter/ObjectMemory split refactoring" + <doNotGenerate> + ^coInterpreter signed64BitValueOf: oop! Item was added: + ----- Method: SpurMemoryManager>>unalignedLong32At: (in category 'simulation') ----- + unalignedLong32At: index + "Support for primitiveFFIIntegerAt[Put]" + <doNotGenerate> + | odd hi lo | + (odd := index bitAnd: 3) = 0 ifTrue: + [^self long32At: index]. + lo := self long32At: index - odd. + hi := self long32At: index + 4 - odd. + ^lo >> (odd * 8) + ((hi bitAnd: 1 << (odd * 8) - 1) << (4 - odd * 8))! Item was added: + ----- Method: SpurMemoryManager>>unalignedLong32At:put: (in category 'simulation') ----- + unalignedLong32At: index put: aValue + "Support for primitiveFFIIntegerAt[Put]" + <doNotGenerate> + | odd hi lo mask | + aValue < 0 ifTrue: + [self unalignedLong64At: index put: (aValue bitAnd: 16rFFFFFFFF). + ^aValue]. + (odd := index bitAnd: 3) = 0 ifTrue: + [^self long32At: index put: aValue]. + mask := 1 << (odd * 8) - 1. + lo := self long32At: index - odd. + self long32At: index - odd + put: (lo bitAnd: mask) + + ((aValue bitAnd: 1 << (4 - odd * 8) - 1) << (odd * 8)). + hi := self long32At: index + 4 - odd. + self long32At: index + 4 - odd + put: (hi bitClear: mask) + (aValue >> (4 - odd * 8) bitAnd: mask). + ^aValue! Item was added: + ----- Method: SpurMemoryManager>>unalignedLong64At: (in category 'simulation') ----- + unalignedLong64At: index + "Support for primitiveFFIIntegerAt[Put]" + <doNotGenerate> + | odd hi lo | + (odd := index bitAnd: 7) = 0 ifTrue: + [^self long64At: index]. + lo := self long64At: index - odd. + hi := self long64At: index + 8 - odd. + ^lo >> (odd * 8) + ((hi bitAnd: 1 << (odd * 8) - 1) << (8 - odd * 8))! Item was added: + ----- Method: SpurMemoryManager>>unalignedLong64At:put: (in category 'simulation') ----- + unalignedLong64At: index put: aValue + "Support for primitiveFFIIntegerAt[Put]" + <doNotGenerate> + | odd hi lo mask | + aValue < 0 ifTrue: + [self unalignedLong64At: index put: (aValue bitAnd: 16rFFFFFFFFFFFFFFFF). + ^aValue]. + (odd := index bitAnd: 7) = 0 ifTrue: + [^self long64At: index put: aValue]. + mask := 1 << (odd * 8) - 1. + lo := self long64At: index - odd. + self long64At: index - odd + put: (lo bitAnd: mask) + + ((aValue bitAnd: 1 << (8 - odd * 8) - 1) << (odd * 8)). + hi := self long64At: index + 8 - odd. + self long64At: index + 8 - odd + put: (hi bitClear: mask) + (aValue >> (8 - odd * 8) bitAnd: mask). + ^aValue! Item was added: + ----- Method: SpurMemoryManager>>unalignedShortAt: (in category 'simulation') ----- + unalignedShortAt: index + "Support for primitiveFFIIntegerAt[Put]" + <doNotGenerate> + | hi lo | + (index bitAnd: 1) = 0 ifTrue: + [^self shortAt: index]. + lo := self shortAt: index - 1. + hi := self shortAt: index + 1. + ^lo >> 8 + ((hi bitAnd: 16rFF) << 8)! Item was added: + ----- Method: SpurMemoryManager>>unalignedShortAt:put: (in category 'simulation') ----- + unalignedShortAt: index put: aValue + "Support for primitiveFFIIntegerAt[Put]" + <doNotGenerate> + (index bitAnd: 1) = 0 ifTrue: + [^self shortAt: index put: aValue]. + self shouldBeImplemented. + ^aValue! Item was added: + ----- Method: StackInterpreter>>ISA (in category 'simulation') ----- + ISA + <doNotGenerate> + ^self class initializationOptions + at: #ISA + ifAbsent: [Smalltalk wordSize = 8 + ifTrue: [#X64] + ifFalse: [#IA32]]! Item was changed: ----- Method: StackInterpreter>>ioLoadExternalFunction:OfLength:FromModule:OfLength:AccessorDepthInto: (in category 'primitive support') ----- ioLoadExternalFunction: functionName OfLength: functionLength FromModule: moduleName OfLength: moduleLength AccessorDepthInto: accessorDepthPtr "Load and return the requested function from a module. Assign the accessor depth through accessorDepthPtr. N.B. The actual code lives in platforms/Cross/vm/sqNamedPrims.h" <doNotGenerate> | pluginString functionString | pluginString := String new: moduleLength. + (1 to: moduleLength) do:[:i| pluginString byteAt: i put: (objectMemory byteAt: moduleName+i-1)]. - 1 to: moduleLength do:[:i| pluginString byteAt: i put: (objectMemory byteAt: moduleName+i-1)]. functionString := String new: functionLength. + (1 to: functionLength) do:[:i| functionString byteAt: i put: (objectMemory byteAt: functionName+i-1)]. + "We used to ignore loads of the SqueakFFIPrims plugin, but that means doing without integerAt:[put:]size:signed: + which is too much of a limitation (not that these simulate unaligned accesses yet)." - 1 to: functionLength do:[:i| functionString byteAt: i put: (objectMemory byteAt: functionName+i-1)]. - "Pharo images as of 2016 use the FFI plugin (for getenv:?). We can't simulate such function loads. So ignore" - pluginString = 'SqueakFFIPrims' ifTrue: - ["self halt." - true ifTrue: - [self transcript cr; show: 'ignoring function load from SqueakFFIPrims'. - ^0]]. ^self ioLoadFunction: functionString From: pluginString AccessorDepthInto: accessorDepthPtr! Item was changed: ----- Method: ThreadedFFIPlugin class>>preambleCCode (in category 'translation') ----- preambleCCode "For a source of builtin defines grep for builtin_define in a gcc release config directory." ^' #include "sqAssert.h" /* for assert */ #define ThreadedFFIPlugin 1 /* to filter-out unwanted declarations from sqFFI.h */ #include "sqFFI.h" /* for logging and surface functions */ #include "sqCogStackAlignment.h" /* for STACK_ALIGN_BYTES and getsp() */ #ifdef _MSC_VER # define alloca _alloca #endif #if defined(__GNUC__) && (defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__)) # define setsp(sp) asm volatile ("movl %0,%%esp" : : "m"(sp)) # elif defined(__GNUC__) && (defined(__amd64__) || defined(__x86_64__) || defined(__amd64) || defined(__x86_64)) # define setsp(sp) asm volatile ("movq %0,%%rsp" : : "m"(sp)) # elif defined(__GNUC__) && (defined(__arm__)) # define setsp(sp) asm volatile ("ldr %%sp, %0" : : "m"(sp)) #endif #if !!defined(getsp) # define getsp() 0 #endif #if !!defined(setsp) # define setsp(ignored) 0 #endif #if !!defined(STACK_ALIGN_BYTES) # define STACK_ALIGN_BYTES 0 #endif /* !!defined(STACK_ALIGN_BYTES) */ /* For ABI that require stack alignment greater than natural word size */ #define MUST_ALIGN_STACK (STACK_ALIGN_BYTES > sizeof(void*)) #if defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__) /* Both Mac OS X x86 and Win32 x86 return structs of a power of two in size * less than or equal to eight bytes in length in registers. Linux never does so. */ # if __linux__ # define WIN32_X86_STRUCT_RETURN 0 # else # define WIN32_X86_STRUCT_RETURN 1 # endif # if _WIN32 # define PLATFORM_API_USES_CALLEE_POPS_CONVENTION 1 # endif # elif defined(__amd64__) || defined(__x86_64__) || defined(__amd64) || defined(__x86_64) # if _WIN32 | _WIN64 # define PLATFORM_API_USES_CALLEE_POPS_CONVENTION 1 # endif #endif /* defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__) */ #if !!defined(ALLOCA_LIES_SO_SETSP_BEFORE_CALL) # if defined(__MINGW32__) && !!defined(__clang__) && (__GNUC__ >= 3) && (defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__)) /* * cygwin -mno-cygwin (MinGW) gcc 3.4.x''s alloca is a library routine that answers * %esp + xx, so the outgoing stack is offset by one or more word if uncorrected. * Grab the actual stack pointer to correct. */ # define ALLOCA_LIES_SO_SETSP_BEFORE_CALL 1 # else # define ALLOCA_LIES_SO_SETSP_BEFORE_CALL 0 # endif #endif /* !!defined(ALLOCA_LIES_SO_SETSP_BEFORE_CALL) */ #if !!defined(PLATFORM_API_USES_CALLEE_POPS_CONVENTION) # define PLATFORM_API_USES_CALLEE_POPS_CONVENTION 0 #endif + /* This alignment stuff is a hack for integerAt:put:size:signed:/primitiveFFIIntegerAt[Put]. + * The assumption right now is that all processors suppoprt unaligned access. That only + * holds true for x86, x86-64 & ARMv6 & later. But this keeps us going until we can addresws it properly. + */ + #define unalignedShortAt(a) shortAt(a) + #define unalignedShortAtput(a) shortAtput(a) + #define unalignedLong32At(a) long32At(a) + #define unalignedLong32Atput(a) long32Atput(a) + #define unalignedLong64At(a) long64At(a) + #define unalignedLong64Atput(a) long64Atput(a) + /* The dispatchOn:in:with:with: generates an unwanted call on error. Just squash it. */ #define error(foo) 0 #ifndef SQUEAK_BUILTIN_PLUGIN /* but print assert failures. */ void warning(char *s) { /* Print an error message but don''t exit. */ printf("\n%s\n", s); } #endif /* sanitize */ #ifdef SQUEAK_BUILTIN_PLUGIN # define EXTERN #else # define EXTERN extern #endif '! Item was added: + ----- Method: ThreadedFFIPlugin>>initSurfacePluginFunctionPointers (in category 'simulation') ----- + initSurfacePluginFunctionPointers + "This is a simulation-only stub. The real code is in + platforms/Cross/plugins/SqueakFFIPrims/sqManualSurface.c" + <doNotGenerate>! Item was changed: ----- Method: ThreadedFFIPlugin>>initialiseModule (in category 'initialize') ----- initialiseModule <export: true> "By default, disable logging" ffiLogEnabled := false. "Get the instSize of ExternalFunction to know whether it contains a cache of the stackSize, and what the offset of ExternalLibraryFunction's functionName and moduleName slots are." externalFunctionInstSize := interpreterProxy instanceSizeOf: interpreterProxy classExternalFunction. self initSurfacePluginFunctionPointers. + ^true! - ^1! Item was added: + ----- Method: ThreadedFFIPlugin>>morphIntoConcreteSubclass: (in category 'simulation') ----- + morphIntoConcreteSubclass: aCoInterpreter + <doNotGenerate> + | concreteClass | + concreteClass := + aCoInterpreter ISA caseOf: { + [#X64] -> [(Smalltalk platformName beginsWith: 'Win') + ifTrue: [ThreadedX64Win64FFIPlugin] + ifFalse: [ThreadedX64SysVFFIPlugin]]. + [#IA32] -> [ThreadedIA32FFIPlugin]. + [#ARMv5] -> [ThreadedARMFFIPlugin] } + otherwise: [self error: 'simulation not set up for this ISA']. + self changeClassTo: concreteClass! Item was changed: ----- Method: ThreadedFFIPlugin>>primitiveFFIIntegerAt (in category 'primitives') ----- primitiveFFIIntegerAt "Answer a (signed or unsigned) n byte integer from the given byte offset in the receiver, using the platform's endianness." | isSigned byteSize byteOffset rcvr addr value mask valueOop | <var: 'value' type: #usqLong> <var: 'mask' type: #usqLong> <export: true> <inline: false> isSigned := interpreterProxy booleanValueOf: (interpreterProxy stackValue: 0). byteSize := interpreterProxy stackIntegerValue: 1. byteOffset := interpreterProxy stackIntegerValue: 2. rcvr := interpreterProxy stackObjectValue: 3. interpreterProxy failed ifTrue:[^0]. (byteOffset > 0 and: [(byteSize between: 1 and: 8) and: [(byteSize bitAnd: byteSize - 1) = 0 "a.k.a. isPowerOfTwo"]]) ifFalse: [^interpreterProxy primitiveFail]. addr := self ffiAddressOf: rcvr startingAt: byteOffset size: byteSize. interpreterProxy failed ifTrue:[^0]. byteSize <= 2 ifTrue: [byteSize = 1 ifTrue: [value := self cCoerceSimple: (interpreterProxy byteAt: addr) to: #'unsigned char'] + ifFalse: [value := self cCoerceSimple: (interpreterProxy unalignedShortAt: addr) to: #'unsigned short']] - ifFalse: [value := self cCoerceSimple: (interpreterProxy shortAt: addr) to: #'unsigned short']] ifFalse: [byteSize = 4 + ifTrue: [value := self cCoerceSimple: (interpreterProxy unalignedLong32At: addr) to: #'unsigned int'] + ifFalse: [value := interpreterProxy unalignedLong64At: addr]]. - ifTrue: [value := self cCoerceSimple: (interpreterProxy long32At: addr) to: #'unsigned int'] - ifFalse: [value := interpreterProxy long64At: addr]]. byteSize < BytesPerWord ifTrue: [isSigned ifTrue: "sign extend value" [mask := 1 asUnsignedLongLong << (byteSize * 8 - 1). value := (value bitAnd: mask-1) - (value bitAnd: mask)]. "note: byte/short (&long if BytesPerWord=8) never exceed SmallInteger range" valueOop := interpreterProxy integerObjectOf: value] ifFalse: "general 64 bit integer; note these never fail" [isSigned ifTrue: [byteSize < 8 ifTrue: "sign extend value" [mask := 1 asUnsignedLongLong << (byteSize * 8 - 1). value := (value bitAnd: mask-1) - (value bitAnd: mask)]. + self cCode: [] inSmalltalk: + [(byteSize = 8 and: [(value bitShift: -56) >= 128]) ifTrue: + [value := value - (1 bitShift: 64)]]. valueOop := interpreterProxy signed64BitIntegerFor: value] ifFalse:[valueOop := interpreterProxy positive64BitIntegerFor: value]]. ^interpreterProxy pop: 4 thenPush: valueOop! Item was changed: ----- Method: ThreadedFFIPlugin>>primitiveFFIIntegerAtPut (in category 'primitives') ----- primitiveFFIIntegerAtPut "Store a (signed or unsigned) n byte integer at the given byte offset in the receiver, using the platform's endianness." | isSigned byteSize byteOffset rcvr addr value max valueOop | <var: 'value' type: #sqLong> <var: 'max' type: #sqLong> <export: true> <inline: false> isSigned := interpreterProxy booleanValueOf: (interpreterProxy stackValue: 0). byteSize := interpreterProxy stackIntegerValue: 1. valueOop := interpreterProxy stackValue: 2. byteOffset := interpreterProxy stackIntegerValue: 3. rcvr := interpreterProxy stackObjectValue: 4. interpreterProxy failed ifTrue:[^0]. (byteOffset > 0 and: [(byteSize between: 1 and: 8) and: [(byteSize bitAnd: byteSize - 1) = 0 "a.k.a. isPowerOfTwo"]]) ifFalse: [^interpreterProxy primitiveFail]. addr := self ffiAddressOf: rcvr startingAt: byteOffset size: byteSize. interpreterProxy failed ifTrue:[^0]. isSigned ifTrue:[value := interpreterProxy signed64BitValueOf: valueOop] ifFalse:[value := interpreterProxy positive64BitValueOf: valueOop]. interpreterProxy failed ifTrue:[^0]. byteSize < 8 ifTrue: [isSigned ifTrue: [max := 1 asUnsignedLongLong << (8 * byteSize - 1). (value >= (0 - max) and: [value < max]) ifFalse: [^interpreterProxy primitiveFail]] ifFalse: [value asUnsignedLongLong < (1 asUnsignedLongLong << (8 * byteSize)) ifFalse: [^interpreterProxy primitiveFail]]]. byteSize <= 2 ifTrue: [byteSize = 1 ifTrue: [interpreterProxy byteAt: addr put: value] + ifFalse: [interpreterProxy unalignedShortAt: addr put: value]] - ifFalse: [interpreterProxy shortAt: addr put: value]] ifFalse: [byteSize = 4 + ifTrue: [interpreterProxy unalignedLong32At: addr put: value] + ifFalse: [interpreterProxy unalignedLong64At: addr put: value]]. - ifTrue: [interpreterProxy long32At: addr put: value] - ifFalse: [interpreterProxy long64At: addr put: value]]. ^interpreterProxy pop: 5 thenPush: valueOop! Item was added: + ----- Method: ThreadedFFIPlugin>>setInterpreter: (in category 'simulation') ----- + setInterpreter: anInterpreter + "Initialization of the plugin in the simulator. + The real routine is in the superclass." + self cCode: [] + inSmalltalk: [self class == thisContext method methodClass ifTrue: + [self morphIntoConcreteSubclass: anInterpreter]]. + ^super setInterpreter: anInterpreter!

2 1

VM Maker: VMMaker.oscog-eem.2302.mcz
by commits＠source.squeak.org 22 Dec '17

22 Dec '17

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2302.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2302 Author: eem Time: 21 December 2017, 10:26:07.699491 pm UUID: 55ec8f63-cdbe-4e79-8f22-48fdea585b88 Ancestors: VMMaker.oscog-eem.2301 Fix a slip in the new ThreadedFFIPlugin preambleCCode (the atput's need an extra parameter). Comment the reason genPrimitiveAt can't be a CompletePrimitive (the same reason genPrimitiveAtPut can't be). =============== Diff against VMMaker.oscog-eem.2301 =============== Item was changed: ----- Method: CogObjectRepresentationFor64BitSpur>>genPrimitiveAt (in category 'primitive generators') ----- genPrimitiveAt | formatReg nSlotsOrElementsReg convertToIntAndReturn methodInBounds jumpNotIndexable jumpImmediate jumpBadIndex jumpIsBytes jumpIsShorts jumpIsWords jumpIsLongs jumpIsMethod jumpIsArray jumpIsContext jumpHasFixedFields jumpArrayOutOfBounds jumpFixedFieldsOutOfBounds jumpBytesOutOfBounds jumpShortsOutOfBounds jumpWordsOutOfBounds jumpLongsOutOfBounds jumpFailAlloc jumpNotSmallInteger | "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" <var: #jumpIsBytes type: #'AbstractInstruction *'> <var: #jumpIsLongs type: #'AbstractInstruction *'> <var: #jumpFailAlloc type: #'AbstractInstruction *'> <var: #jumpIsShorts type: #'AbstractInstruction *'> <var: #jumpIsMethod type: #'AbstractInstruction *'> <var: #jumpBadIndex type: #'AbstractInstruction *'> <var: #jumpIsContext type: #'AbstractInstruction *'> <var: #jumpImmediate type: #'AbstractInstruction *'> <var: #methodInBounds type: #'AbstractInstruction *'> <var: #jumpNotIndexable type: #'AbstractInstruction *'> <var: #jumpHasFixedFields type: #'AbstractInstruction *'> <var: #jumpNotSmallInteger type: #'AbstractInstruction *'> <var: #convertToIntAndReturn type: #'AbstractInstruction *'> <var: #jumpArrayOutOfBounds type: #'AbstractInstruction *'> <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> <var: #jumpLongsOutOfBounds type: #'AbstractInstruction *'> <var: #jumpShortsOutOfBounds type: #'AbstractInstruction *'> <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> <var: #jumpFixedFieldsOutOfBounds type: #'AbstractInstruction *'> nSlotsOrElementsReg := ClassReg. cogit genLoadArgAtDepth: 0 into: Arg0Reg. jumpImmediate := self genJumpImmediate: ReceiverResultReg. cogit MoveR: Arg0Reg R: Arg1Reg. jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. self genConvertSmallIntegerToIntegerInReg: Arg1Reg. cogit SubCq: 1 R: Arg1Reg. "1-rel => 0-rel" "formatReg := self formatOf: ReceiverResultReg" self genGetFormatOf: ReceiverResultReg into: (formatReg := SendNumArgsReg) leastSignificantHalfOfBaseHeaderIntoScratch: TempReg. self genGetNumSlotsOf: ReceiverResultReg into: nSlotsOrElementsReg. "dispatch on format in a combination of highest dynamic frequency order first and convenience. 0 = 0 sized objects (UndefinedObject True False et al) 1 = non-indexable objects with inst vars (Point et al) 2 = indexable objects with no inst vars (Array et al) 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) 4 = weak indexable objects with inst vars (WeakArray et al) 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) 6 unused, reserved for exotic pointer objects? 7 Forwarded Object, 1st field is pointer, rest of fields are ignored 8 unused, reserved for exotic non-pointer objects? 9 64-bit indexable 10 - 11 32-bit indexable 12 - 15 16-bit indexable 16 - 23 byte indexable 24 - 31 compiled method" cogit CmpCq: objectMemory firstByteFormat R: formatReg. jumpIsBytes := cogit JumpAboveOrEqual: 0. cogit CmpCq: objectMemory arrayFormat R: formatReg. jumpIsArray := cogit JumpZero: 0. jumpNotIndexable := cogit JumpBelow: 0. cogit CmpCq: objectMemory weakArrayFormat R: formatReg. jumpHasFixedFields := cogit JumpBelowOrEqual: 0. cogit CmpCq: objectMemory firstShortFormat R: formatReg. jumpIsShorts := cogit JumpAboveOrEqual: 0. cogit CmpCq: objectMemory firstLongFormat R: formatReg. jumpIsWords := cogit JumpAboveOrEqual: 0. cogit CmpCq: objectMemory sixtyFourBitIndexableFormat R: formatReg. jumpIsLongs := cogit JumpZero: 0. jumpNotIndexable jmpTarget: cogit Label. jumpNotIndexable := cogit Jump: 0. jumpIsArray jmpTarget: (cogit CmpR: Arg1Reg R: nSlotsOrElementsReg). jumpArrayOutOfBounds := cogit JumpBelowOrEqual: 0. cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. cogit genPrimReturn. jumpIsBytes jmpTarget: (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: nSlotsOrElementsReg). cogit AndCq: 7 R: formatReg R: TempReg. cogit SubR: TempReg R: nSlotsOrElementsReg; CmpR: Arg1Reg R: nSlotsOrElementsReg. jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. cogit CmpCq: objectMemory firstCompiledMethodFormat R: formatReg. jumpIsMethod := cogit JumpAboveOrEqual: 0. methodInBounds := (cogit AddCq: objectMemory baseHeaderSize R: Arg1Reg). cogit backEnd byteReadsZeroExtend ifTrue: [cogit MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg] ifFalse: [cogit "formatReg already contains a value <= 16r1f, so no need to zero it" MoveXbr: Arg1Reg R: ReceiverResultReg R: formatReg; MoveR: formatReg R: ReceiverResultReg]. convertToIntAndReturn := cogit Label. self genConvertIntegerToSmallIntegerInReg: ReceiverResultReg. cogit genPrimReturn. jumpIsShorts jmpTarget: (cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: nSlotsOrElementsReg). cogit AndCq: 3 R: formatReg. cogit SubR: formatReg R: nSlotsOrElementsReg; CmpR: Arg1Reg R: nSlotsOrElementsReg. jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. cogit AddR: Arg1Reg R: ReceiverResultReg. cogit AddR: Arg1Reg R: ReceiverResultReg. cogit MoveM16: objectMemory baseHeaderSize r: ReceiverResultReg R: ReceiverResultReg. cogit Jump: convertToIntAndReturn. jumpIsWords jmpTarget: (cogit LogicalShiftLeftCq: objectMemory shiftForWord - 2 R: nSlotsOrElementsReg). cogit AndCq: 1 R: formatReg. cogit SubR: formatReg R: nSlotsOrElementsReg; CmpR: Arg1Reg R: nSlotsOrElementsReg. jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. cogit AddCq: objectMemory baseHeaderSize >> (objectMemory shiftForWord - 1) R: Arg1Reg. cogit MoveX32r: Arg1Reg R: ReceiverResultReg R: TempReg. cogit MoveR: TempReg R: ReceiverResultReg. cogit Jump: convertToIntAndReturn. jumpHasFixedFields jmpTarget: (cogit AndCq: objectMemory classIndexMask R: TempReg). cogit MoveR: TempReg R: formatReg. cogit CmpCq: ClassMethodContextCompactIndex R: TempReg. jumpIsContext := cogit JumpZero: 0. self genGetClassObjectOfClassIndex: formatReg into: Extra0Reg scratchReg: TempReg. self genLoadSlot: InstanceSpecificationIndex sourceReg: Extra0Reg destReg: formatReg. self genConvertSmallIntegerToIntegerInReg: formatReg. cogit AndCq: objectMemory fixedFieldsOfClassFormatMask R: formatReg; SubR: formatReg R: nSlotsOrElementsReg; CmpR: Arg1Reg R: nSlotsOrElementsReg. jumpFixedFieldsOutOfBounds := cogit JumpBelowOrEqual: 0. "index is (formatReg (fixed fields) + Arg1Reg (0-rel index)) * wordSize + baseHeaderSize" cogit AddR: formatReg R: Arg1Reg. cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. cogit genPrimReturn. jumpIsLongs jmpTarget: (cogit CmpR: Arg1Reg R: nSlotsOrElementsReg). jumpLongsOutOfBounds := cogit JumpBelowOrEqual: 0. cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ClassReg. cogit MoveR: ClassReg R: TempReg. cogit LogicalShiftRightCq: self numSmallIntegerBits - 1 R: TempReg. "If in range this is now 0" (cogit lastOpcode setsConditionCodesFor: JumpZero) ifFalse: [cogit CmpCq: 0 R: TempReg]. "N.B. FLAGS := ClassReg - 0" jumpNotSmallInteger := cogit JumpNonZero: 0. cogit MoveR: ClassReg R: ReceiverResultReg. cogit Jump: convertToIntAndReturn. jumpNotSmallInteger jmpTarget: cogit Label. jumpFailAlloc := self genAlloc64BitIntegerValue: ClassReg into: SendNumArgsReg scratchReg: Extra0Reg scratchReg: TempReg. cogit MoveR: SendNumArgsReg R: ReceiverResultReg. cogit genPrimReturn. jumpIsMethod jmpTarget: cogit Label. "Now check that the index is beyond the method's literals..." self getLiteralCountOf: ReceiverResultReg plusOne: true inBytes: true into: nSlotsOrElementsReg scratch: TempReg. cogit CmpR: Arg1Reg R: nSlotsOrElementsReg. cogit JumpBelow: methodInBounds. jumpFailAlloc jmpTarget: (jumpLongsOutOfBounds jmpTarget: (jumpFixedFieldsOutOfBounds jmpTarget: (jumpArrayOutOfBounds jmpTarget: (jumpBytesOutOfBounds jmpTarget: (jumpShortsOutOfBounds jmpTarget: (jumpWordsOutOfBounds jmpTarget: (jumpNotIndexable jmpTarget: (jumpIsContext jmpTarget: (jumpBadIndex jmpTarget: (jumpImmediate jmpTarget: cogit Label)))))))))). + ^0 "Can't be complete because of contexts."! - ^0! Item was changed: ----- Method: ThreadedFFIPlugin class>>preambleCCode (in category 'translation') ----- preambleCCode "For a source of builtin defines grep for builtin_define in a gcc release config directory." ^' #include "sqAssert.h" /* for assert */ #define ThreadedFFIPlugin 1 /* to filter-out unwanted declarations from sqFFI.h */ #include "sqFFI.h" /* for logging and surface functions */ #include "sqCogStackAlignment.h" /* for STACK_ALIGN_BYTES and getsp() */ #ifdef _MSC_VER # define alloca _alloca #endif #if defined(__GNUC__) && (defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__)) # define setsp(sp) asm volatile ("movl %0,%%esp" : : "m"(sp)) # elif defined(__GNUC__) && (defined(__amd64__) || defined(__x86_64__) || defined(__amd64) || defined(__x86_64)) # define setsp(sp) asm volatile ("movq %0,%%rsp" : : "m"(sp)) # elif defined(__GNUC__) && (defined(__arm__)) # define setsp(sp) asm volatile ("ldr %%sp, %0" : : "m"(sp)) #endif #if !!defined(getsp) # define getsp() 0 #endif #if !!defined(setsp) # define setsp(ignored) 0 #endif #if !!defined(STACK_ALIGN_BYTES) # define STACK_ALIGN_BYTES 0 #endif /* !!defined(STACK_ALIGN_BYTES) */ /* For ABI that require stack alignment greater than natural word size */ #define MUST_ALIGN_STACK (STACK_ALIGN_BYTES > sizeof(void*)) #if defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__) /* Both Mac OS X x86 and Win32 x86 return structs of a power of two in size * less than or equal to eight bytes in length in registers. Linux never does so. */ # if __linux__ # define WIN32_X86_STRUCT_RETURN 0 # else # define WIN32_X86_STRUCT_RETURN 1 # endif # if _WIN32 # define PLATFORM_API_USES_CALLEE_POPS_CONVENTION 1 # endif # elif defined(__amd64__) || defined(__x86_64__) || defined(__amd64) || defined(__x86_64) # if _WIN32 | _WIN64 # define PLATFORM_API_USES_CALLEE_POPS_CONVENTION 1 # endif #endif /* defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__) */ #if !!defined(ALLOCA_LIES_SO_SETSP_BEFORE_CALL) # if defined(__MINGW32__) && !!defined(__clang__) && (__GNUC__ >= 3) && (defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__)) /* * cygwin -mno-cygwin (MinGW) gcc 3.4.x''s alloca is a library routine that answers * %esp + xx, so the outgoing stack is offset by one or more word if uncorrected. * Grab the actual stack pointer to correct. */ # define ALLOCA_LIES_SO_SETSP_BEFORE_CALL 1 # else # define ALLOCA_LIES_SO_SETSP_BEFORE_CALL 0 # endif #endif /* !!defined(ALLOCA_LIES_SO_SETSP_BEFORE_CALL) */ #if !!defined(PLATFORM_API_USES_CALLEE_POPS_CONVENTION) # define PLATFORM_API_USES_CALLEE_POPS_CONVENTION 0 #endif /* This alignment stuff is a hack for integerAt:put:size:signed:/primitiveFFIIntegerAt[Put]. * The assumption right now is that all processors suppoprt unaligned access. That only * holds true for x86, x86-64 & ARMv6 & later. But this keeps us going until we can addresws it properly. */ #define unalignedShortAt(a) shortAt(a) + #define unalignedShortAtput(a,v) shortAtput(a,v) - #define unalignedShortAtput(a) shortAtput(a) #define unalignedLong32At(a) long32At(a) + #define unalignedLong32Atput(a,v) long32Atput(a,v) - #define unalignedLong32Atput(a) long32Atput(a) #define unalignedLong64At(a) long64At(a) + #define unalignedLong64Atput(a,v) long64Atput(a,v) - #define unalignedLong64Atput(a) long64Atput(a) /* The dispatchOn:in:with:with: generates an unwanted call on error. Just squash it. */ #define error(foo) 0 #ifndef SQUEAK_BUILTIN_PLUGIN /* but print assert failures. */ void warning(char *s) { /* Print an error message but don''t exit. */ printf("\n%s\n", s); } #endif /* sanitize */ #ifdef SQUEAK_BUILTIN_PLUGIN # define EXTERN #else # define EXTERN extern #endif '!

1 0

VM Maker: VMMaker.oscog-eem.2301.mcz
by commits＠source.squeak.org 22 Dec '17

22 Dec '17

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2301.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2301 Author: eem Time: 21 December 2017, 9:36:04.333777 pm UUID: 1c4c0d30-b050-455d-8bbb-1ddab57d1476 Ancestors: VMMaker.oscog-eem.2300 Fix a slip in CogObjectRepresentationFor64BitSpur>>genPrimitiveAt's 64-bit indexable suypport. The range check must include the sign bit since 64-bit at: answers an unsigned value. The Cogit now correctly passes the DoubleByteArrayTests, WordArrayTests, DoubleWordArrayTests and MemoryTests in simulation and actuality. =============== Diff against VMMaker.oscog-eem.2300 =============== Item was changed: ----- Method: CogObjectRepresentationFor64BitSpur>>genPrimitiveAt (in category 'primitive generators') ----- genPrimitiveAt | formatReg nSlotsOrElementsReg convertToIntAndReturn methodInBounds jumpNotIndexable jumpImmediate jumpBadIndex jumpIsBytes jumpIsShorts jumpIsWords jumpIsLongs jumpIsMethod jumpIsArray jumpIsContext jumpHasFixedFields jumpArrayOutOfBounds jumpFixedFieldsOutOfBounds jumpBytesOutOfBounds jumpShortsOutOfBounds jumpWordsOutOfBounds jumpLongsOutOfBounds jumpFailAlloc jumpNotSmallInteger | "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" <var: #jumpIsBytes type: #'AbstractInstruction *'> <var: #jumpIsLongs type: #'AbstractInstruction *'> <var: #jumpFailAlloc type: #'AbstractInstruction *'> <var: #jumpIsShorts type: #'AbstractInstruction *'> <var: #jumpIsMethod type: #'AbstractInstruction *'> <var: #jumpBadIndex type: #'AbstractInstruction *'> <var: #jumpIsContext type: #'AbstractInstruction *'> <var: #jumpImmediate type: #'AbstractInstruction *'> <var: #methodInBounds type: #'AbstractInstruction *'> <var: #jumpNotIndexable type: #'AbstractInstruction *'> <var: #jumpHasFixedFields type: #'AbstractInstruction *'> <var: #jumpNotSmallInteger type: #'AbstractInstruction *'> <var: #convertToIntAndReturn type: #'AbstractInstruction *'> <var: #jumpArrayOutOfBounds type: #'AbstractInstruction *'> <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> <var: #jumpLongsOutOfBounds type: #'AbstractInstruction *'> <var: #jumpShortsOutOfBounds type: #'AbstractInstruction *'> <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> <var: #jumpFixedFieldsOutOfBounds type: #'AbstractInstruction *'> nSlotsOrElementsReg := ClassReg. cogit genLoadArgAtDepth: 0 into: Arg0Reg. jumpImmediate := self genJumpImmediate: ReceiverResultReg. cogit MoveR: Arg0Reg R: Arg1Reg. jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. self genConvertSmallIntegerToIntegerInReg: Arg1Reg. cogit SubCq: 1 R: Arg1Reg. "1-rel => 0-rel" "formatReg := self formatOf: ReceiverResultReg" self genGetFormatOf: ReceiverResultReg into: (formatReg := SendNumArgsReg) leastSignificantHalfOfBaseHeaderIntoScratch: TempReg. self genGetNumSlotsOf: ReceiverResultReg into: nSlotsOrElementsReg. "dispatch on format in a combination of highest dynamic frequency order first and convenience. 0 = 0 sized objects (UndefinedObject True False et al) 1 = non-indexable objects with inst vars (Point et al) 2 = indexable objects with no inst vars (Array et al) 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) 4 = weak indexable objects with inst vars (WeakArray et al) 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) 6 unused, reserved for exotic pointer objects? 7 Forwarded Object, 1st field is pointer, rest of fields are ignored 8 unused, reserved for exotic non-pointer objects? 9 64-bit indexable 10 - 11 32-bit indexable 12 - 15 16-bit indexable 16 - 23 byte indexable 24 - 31 compiled method" cogit CmpCq: objectMemory firstByteFormat R: formatReg. jumpIsBytes := cogit JumpAboveOrEqual: 0. cogit CmpCq: objectMemory arrayFormat R: formatReg. jumpIsArray := cogit JumpZero: 0. jumpNotIndexable := cogit JumpBelow: 0. cogit CmpCq: objectMemory weakArrayFormat R: formatReg. jumpHasFixedFields := cogit JumpBelowOrEqual: 0. cogit CmpCq: objectMemory firstShortFormat R: formatReg. jumpIsShorts := cogit JumpAboveOrEqual: 0. cogit CmpCq: objectMemory firstLongFormat R: formatReg. jumpIsWords := cogit JumpAboveOrEqual: 0. cogit CmpCq: objectMemory sixtyFourBitIndexableFormat R: formatReg. jumpIsLongs := cogit JumpZero: 0. jumpNotIndexable jmpTarget: cogit Label. jumpNotIndexable := cogit Jump: 0. jumpIsArray jmpTarget: (cogit CmpR: Arg1Reg R: nSlotsOrElementsReg). jumpArrayOutOfBounds := cogit JumpBelowOrEqual: 0. cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. cogit genPrimReturn. jumpIsBytes jmpTarget: (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: nSlotsOrElementsReg). cogit AndCq: 7 R: formatReg R: TempReg. cogit SubR: TempReg R: nSlotsOrElementsReg; CmpR: Arg1Reg R: nSlotsOrElementsReg. jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. cogit CmpCq: objectMemory firstCompiledMethodFormat R: formatReg. jumpIsMethod := cogit JumpAboveOrEqual: 0. methodInBounds := (cogit AddCq: objectMemory baseHeaderSize R: Arg1Reg). cogit backEnd byteReadsZeroExtend ifTrue: [cogit MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg] ifFalse: [cogit "formatReg already contains a value <= 16r1f, so no need to zero it" MoveXbr: Arg1Reg R: ReceiverResultReg R: formatReg; MoveR: formatReg R: ReceiverResultReg]. convertToIntAndReturn := cogit Label. self genConvertIntegerToSmallIntegerInReg: ReceiverResultReg. cogit genPrimReturn. jumpIsShorts jmpTarget: (cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: nSlotsOrElementsReg). cogit AndCq: 3 R: formatReg. cogit SubR: formatReg R: nSlotsOrElementsReg; CmpR: Arg1Reg R: nSlotsOrElementsReg. jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. cogit AddR: Arg1Reg R: ReceiverResultReg. cogit AddR: Arg1Reg R: ReceiverResultReg. cogit MoveM16: objectMemory baseHeaderSize r: ReceiverResultReg R: ReceiverResultReg. cogit Jump: convertToIntAndReturn. jumpIsWords jmpTarget: (cogit LogicalShiftLeftCq: objectMemory shiftForWord - 2 R: nSlotsOrElementsReg). cogit AndCq: 1 R: formatReg. cogit SubR: formatReg R: nSlotsOrElementsReg; CmpR: Arg1Reg R: nSlotsOrElementsReg. jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. cogit AddCq: objectMemory baseHeaderSize >> (objectMemory shiftForWord - 1) R: Arg1Reg. cogit MoveX32r: Arg1Reg R: ReceiverResultReg R: TempReg. cogit MoveR: TempReg R: ReceiverResultReg. cogit Jump: convertToIntAndReturn. jumpHasFixedFields jmpTarget: (cogit AndCq: objectMemory classIndexMask R: TempReg). cogit MoveR: TempReg R: formatReg. cogit CmpCq: ClassMethodContextCompactIndex R: TempReg. jumpIsContext := cogit JumpZero: 0. self genGetClassObjectOfClassIndex: formatReg into: Extra0Reg scratchReg: TempReg. self genLoadSlot: InstanceSpecificationIndex sourceReg: Extra0Reg destReg: formatReg. self genConvertSmallIntegerToIntegerInReg: formatReg. cogit AndCq: objectMemory fixedFieldsOfClassFormatMask R: formatReg; SubR: formatReg R: nSlotsOrElementsReg; CmpR: Arg1Reg R: nSlotsOrElementsReg. jumpFixedFieldsOutOfBounds := cogit JumpBelowOrEqual: 0. "index is (formatReg (fixed fields) + Arg1Reg (0-rel index)) * wordSize + baseHeaderSize" cogit AddR: formatReg R: Arg1Reg. cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. cogit genPrimReturn. jumpIsLongs jmpTarget: (cogit CmpR: Arg1Reg R: nSlotsOrElementsReg). jumpLongsOutOfBounds := cogit JumpBelowOrEqual: 0. cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ClassReg. cogit MoveR: ClassReg R: TempReg. + cogit LogicalShiftRightCq: self numSmallIntegerBits - 1 R: TempReg. "If in range this is now 0" - cogit LogicalShiftRightCq: self numSmallIntegerBits R: TempReg. "If in range this is now 0" (cogit lastOpcode setsConditionCodesFor: JumpZero) ifFalse: [cogit CmpCq: 0 R: TempReg]. "N.B. FLAGS := ClassReg - 0" jumpNotSmallInteger := cogit JumpNonZero: 0. cogit MoveR: ClassReg R: ReceiverResultReg. cogit Jump: convertToIntAndReturn. jumpNotSmallInteger jmpTarget: cogit Label. jumpFailAlloc := self genAlloc64BitIntegerValue: ClassReg into: SendNumArgsReg scratchReg: Extra0Reg scratchReg: TempReg. cogit MoveR: SendNumArgsReg R: ReceiverResultReg. cogit genPrimReturn. jumpIsMethod jmpTarget: cogit Label. "Now check that the index is beyond the method's literals..." self getLiteralCountOf: ReceiverResultReg plusOne: true inBytes: true into: nSlotsOrElementsReg scratch: TempReg. cogit CmpR: Arg1Reg R: nSlotsOrElementsReg. cogit JumpBelow: methodInBounds. jumpFailAlloc jmpTarget: (jumpLongsOutOfBounds jmpTarget: (jumpFixedFieldsOutOfBounds jmpTarget: (jumpArrayOutOfBounds jmpTarget: (jumpBytesOutOfBounds jmpTarget: (jumpShortsOutOfBounds jmpTarget: (jumpWordsOutOfBounds jmpTarget: (jumpNotIndexable jmpTarget: (jumpIsContext jmpTarget: (jumpBadIndex jmpTarget: (jumpImmediate jmpTarget: cogit Label)))))))))). ^0!

1 0

VM Maker: VMMaker.oscog-eem.2300.mcz
by commits＠source.squeak.org 22 Dec '17

22 Dec '17

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2300.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2300 Author: eem Time: 21 December 2017, 9:26:04.989859 pm UUID: 0d9617e1-ff4e-4af4-9519-ff80b4d145f1 Ancestors: VMMaker.oscog-eem.2299 Change the contract of ThreadedFFIPlugin>>ffiAddressOf:startingAt:size:, moving the primitive fails to the callers for equivalent but more compact code. =============== Diff against VMMaker.oscog-eem.2299 =============== Item was changed: ----- Method: ThreadedFFIPlugin>>ffiAddressOf:startingAt:size: (in category 'primitive support') ----- ffiAddressOf: rcvr startingAt: byteOffset size: byteSize "Answer a long of the address of the byteSize slot (byte, short, int, whatever) at byteOffset in rcvr. Nominally intended for use with ExternalAddress objects, this code will work (for obscure historical + reasons) with plain Byte or Word Arrays as well. Answer 0 on error." - reasons) with plain Byte or Word Arrays as well. " | rcvrClass rcvrSize addr | + (interpreterProxy isBytes: rcvr) ifFalse:[^0]. + byteOffset > 0 ifFalse:[^0]. - (interpreterProxy isBytes: rcvr) ifFalse:[^interpreterProxy primitiveFail]. - byteOffset > 0 ifFalse:[^interpreterProxy primitiveFail]. rcvrClass := interpreterProxy fetchClassOf: rcvr. rcvrSize := interpreterProxy byteSizeOf: rcvr. rcvrClass = interpreterProxy classExternalAddress ifTrue: + [rcvrSize = BytesPerWord ifFalse:[^0]. - [rcvrSize = BytesPerWord ifFalse:[^interpreterProxy primitiveFail]. addr := interpreterProxy fetchPointer: 0 ofObject: rcvr. "Hack!!!!" "don't you dare to read from object memory (unless is pinned)!!" (addr = 0 "or: [(interpreterProxy isInMemory: addr) or: [(interpreterProxy isPinned: rcvr) not]]") ifTrue: + [^0]] - [^interpreterProxy primitiveFail]] ifFalse: [byteOffset+byteSize-1 <= rcvrSize ifFalse: + [^0]. - [^interpreterProxy primitiveFail]. addr := self cCoerce: (interpreterProxy firstIndexableField: rcvr) to: #'sqIntptr_t']. addr := addr + byteOffset - 1. ^addr asVoidPointer! Item was changed: ----- Method: ThreadedFFIPlugin>>primitiveFFIDoubleAt (in category 'primitives') ----- primitiveFFIDoubleAt "Return a (signed or unsigned) n byte integer from the given byte offset." | byteOffset rcvr addr floatValue | <export: true> <inline: false> <var: #floatValue type: #double> byteOffset := interpreterProxy stackIntegerValue: 0. rcvr := interpreterProxy stackObjectValue: 1. interpreterProxy failed ifTrue:[^0]. addr := self ffiAddressOf: rcvr startingAt: byteOffset size: 8. + addr = 0 ifTrue: [^interpreterProxy primitiveFail]. - interpreterProxy failed ifTrue:[^0]. self mem: (self addressOf: floatValue) cp: addr y: (self sizeof: floatValue). interpreterProxy pop: 2. ^interpreterProxy pushFloat: floatValue ! Item was changed: ----- Method: ThreadedFFIPlugin>>primitiveFFIDoubleAtPut (in category 'primitives') ----- primitiveFFIDoubleAtPut "Return a (signed or unsigned) n byte integer from the given byte offset." | byteOffset rcvr addr floatValue floatOop | <export: true> <inline: false> <var: #floatValue type: #double> floatOop := interpreterProxy stackValue: 0. (interpreterProxy isIntegerObject: floatOop) ifTrue:[floatValue := self cCoerce: (interpreterProxy integerValueOf: floatOop) to:'double'] ifFalse:[floatValue := self cCoerce: (interpreterProxy floatValueOf: floatOop) to:'double']. byteOffset := interpreterProxy stackIntegerValue: 1. rcvr := interpreterProxy stackObjectValue: 2. interpreterProxy failed ifTrue:[^0]. addr := self ffiAddressOf: rcvr startingAt: byteOffset size: 8. + addr = 0 ifTrue: [^interpreterProxy primitiveFail]. - interpreterProxy failed ifTrue:[^0]. self mem: addr cp: (self addressOf: floatValue) y: (self sizeof: floatValue). ^interpreterProxy pop: 3 thenPush: floatOop! Item was changed: ----- Method: ThreadedFFIPlugin>>primitiveFFIFloatAt (in category 'primitives') ----- primitiveFFIFloatAt "Return a (signed or unsigned) n byte integer from the given byte offset." | byteOffset rcvr addr floatValue | <export: true> <inline: false> <var: #floatValue type: #float> byteOffset := interpreterProxy stackIntegerValue: 0. rcvr := interpreterProxy stackObjectValue: 1. interpreterProxy failed ifTrue:[^0]. addr := self ffiAddressOf: rcvr startingAt: byteOffset size: 4. + addr = 0 ifTrue: [^interpreterProxy primitiveFail]. - interpreterProxy failed ifTrue:[^0]. self mem: (self addressOf: floatValue) cp: addr y: (self sizeof: floatValue). interpreterProxy pop: 2. ^interpreterProxy pushFloat: floatValue! Item was changed: ----- Method: ThreadedFFIPlugin>>primitiveFFIFloatAtPut (in category 'primitives') ----- primitiveFFIFloatAtPut "Return a (signed or unsigned) n byte integer from the given byte offset." | byteOffset rcvr addr floatValue floatOop | <export: true> <inline: false> <var: #floatValue type: #float> floatOop := interpreterProxy stackValue: 0. (interpreterProxy isIntegerObject: floatOop) ifTrue:[floatValue := self cCoerce: (interpreterProxy integerValueOf: floatOop) to:'float'] ifFalse:[floatValue := self cCoerce: (interpreterProxy floatValueOf: floatOop) to:'float']. byteOffset := interpreterProxy stackIntegerValue: 1. rcvr := interpreterProxy stackObjectValue: 2. interpreterProxy failed ifTrue:[^0]. addr := self ffiAddressOf: rcvr startingAt: byteOffset size: 4. + addr = 0 ifTrue: [^interpreterProxy primitiveFail]. - interpreterProxy failed ifTrue:[^0]. self mem: addr cp: (self addressOf: floatValue) y: (self sizeof: floatValue). ^interpreterProxy pop: 3 thenPush: floatOop! Item was changed: ----- Method: ThreadedFFIPlugin>>primitiveFFIIntegerAt (in category 'primitives') ----- primitiveFFIIntegerAt "Answer a (signed or unsigned) n byte integer from the given byte offset in the receiver, using the platform's endianness." | isSigned byteSize byteOffset rcvr addr value mask valueOop | <var: 'value' type: #usqLong> <var: 'mask' type: #usqLong> <export: true> <inline: false> isSigned := interpreterProxy booleanValueOf: (interpreterProxy stackValue: 0). byteSize := interpreterProxy stackIntegerValue: 1. byteOffset := interpreterProxy stackIntegerValue: 2. rcvr := interpreterProxy stackObjectValue: 3. interpreterProxy failed ifTrue:[^0]. (byteOffset > 0 and: [(byteSize between: 1 and: 8) and: [(byteSize bitAnd: byteSize - 1) = 0 "a.k.a. isPowerOfTwo"]]) ifFalse: [^interpreterProxy primitiveFail]. addr := self ffiAddressOf: rcvr startingAt: byteOffset size: byteSize. + addr = 0 ifTrue: [^interpreterProxy primitiveFail]. - interpreterProxy failed ifTrue:[^0]. byteSize <= 2 ifTrue: [byteSize = 1 ifTrue: [value := self cCoerceSimple: (interpreterProxy byteAt: addr) to: #'unsigned char'] ifFalse: [value := self cCoerceSimple: (interpreterProxy unalignedShortAt: addr) to: #'unsigned short']] ifFalse: [byteSize = 4 ifTrue: [value := self cCoerceSimple: (interpreterProxy unalignedLong32At: addr) to: #'unsigned int'] ifFalse: [value := interpreterProxy unalignedLong64At: addr]]. byteSize < BytesPerWord ifTrue: [isSigned ifTrue: "sign extend value" [mask := 1 asUnsignedLongLong << (byteSize * 8 - 1). value := (value bitAnd: mask-1) - (value bitAnd: mask)]. "note: byte/short (&long if BytesPerWord=8) never exceed SmallInteger range" valueOop := interpreterProxy integerObjectOf: value] ifFalse: "general 64 bit integer; note these never fail" [isSigned ifTrue: [byteSize < 8 ifTrue: "sign extend value" [mask := 1 asUnsignedLongLong << (byteSize * 8 - 1). value := (value bitAnd: mask-1) - (value bitAnd: mask)]. self cCode: [] inSmalltalk: [(byteSize = 8 and: [(value bitShift: -56) >= 128]) ifTrue: [value := value - (1 bitShift: 64)]]. valueOop := interpreterProxy signed64BitIntegerFor: value] ifFalse:[valueOop := interpreterProxy positive64BitIntegerFor: value]]. ^interpreterProxy pop: 4 thenPush: valueOop! Item was changed: ----- Method: ThreadedFFIPlugin>>primitiveFFIIntegerAtPut (in category 'primitives') ----- primitiveFFIIntegerAtPut "Store a (signed or unsigned) n byte integer at the given byte offset in the receiver, using the platform's endianness." | isSigned byteSize byteOffset rcvr addr value max valueOop | <var: 'value' type: #sqLong> <var: 'max' type: #sqLong> <export: true> <inline: false> isSigned := interpreterProxy booleanValueOf: (interpreterProxy stackValue: 0). byteSize := interpreterProxy stackIntegerValue: 1. valueOop := interpreterProxy stackValue: 2. byteOffset := interpreterProxy stackIntegerValue: 3. rcvr := interpreterProxy stackObjectValue: 4. interpreterProxy failed ifTrue:[^0]. (byteOffset > 0 and: [(byteSize between: 1 and: 8) and: [(byteSize bitAnd: byteSize - 1) = 0 "a.k.a. isPowerOfTwo"]]) ifFalse: [^interpreterProxy primitiveFail]. addr := self ffiAddressOf: rcvr startingAt: byteOffset size: byteSize. + addr = 0 ifTrue: [^interpreterProxy primitiveFail]. - interpreterProxy failed ifTrue:[^0]. isSigned ifTrue:[value := interpreterProxy signed64BitValueOf: valueOop] ifFalse:[value := interpreterProxy positive64BitValueOf: valueOop]. interpreterProxy failed ifTrue:[^0]. byteSize < 8 ifTrue: [isSigned ifTrue: [max := 1 asUnsignedLongLong << (8 * byteSize - 1). (value >= (0 - max) and: [value < max]) ifFalse: [^interpreterProxy primitiveFail]] ifFalse: [value asUnsignedLongLong < (1 asUnsignedLongLong << (8 * byteSize)) ifFalse: [^interpreterProxy primitiveFail]]]. byteSize <= 2 ifTrue: [byteSize = 1 ifTrue: [interpreterProxy byteAt: addr put: value] ifFalse: [interpreterProxy unalignedShortAt: addr put: value]] ifFalse: [byteSize = 4 ifTrue: [interpreterProxy unalignedLong32At: addr put: value] ifFalse: [interpreterProxy unalignedLong64At: addr put: value]]. ^interpreterProxy pop: 5 thenPush: valueOop!

1 0

[OpenSmalltalk/opensmalltalk-vm] ca74b9: restore filter-exec
by GitHub 21 Dec '17

21 Dec '17

Branch: refs/heads/estebanlm/fix-pharo-upload Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: ca74b9c0a36fd9b5ba542b67cac1bfcb92f1b840 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/ca74b9c0a36fd9b5ba… Author: Esteban Lorenzano <estebanlm(a)gmail.com> Date: 2017-12-21 (Thu, 21 Dec 2017) Changed paths: M deploy/pharo/filter-exec.sh Log Message: ----------- restore filter-exec

1 0

[OpenSmalltalk/opensmalltalk-vm] 46ea79: restore travis
by GitHub 21 Dec '17

21 Dec '17

Branch: refs/heads/estebanlm/fix-pharo-upload Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 46ea79d2a501b71b408832b577cd15c1ef3b74db https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/46ea79d2a501b71b40… Author: Esteban Lorenzano <estebanlm(a)gmail.com> Date: 2017-12-21 (Thu, 21 Dec 2017) Changed paths: M .travis.yml Log Message: ----------- restore travis

1 0

[OpenSmalltalk/opensmalltalk-vm] 276a5f: fix upload path
by GitHub 21 Dec '17

21 Dec '17

Branch: refs/heads/estebanlm/fix-pharo-upload Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 276a5ffd9e01c1753476c92be11a50c7476c92d0 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/276a5ffd9e01c17534… Author: Esteban Lorenzano <estebanlm(a)gmail.com> Date: 2017-12-21 (Thu, 21 Dec 2017) Changed paths: M deploy/pharo/deploy-files.pharo.org.sh Log Message: ----------- fix upload path

1 0

[OpenSmalltalk/opensmalltalk-vm] 68620c: add correct server to list of known hosts
by GitHub 21 Dec '17

21 Dec '17

Branch: refs/heads/estebanlm/fix-pharo-upload Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 68620c5d9d8aaed4e10a80d50c2d5b52d1f3bc13 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/68620c5d9d8aaed4e1… Author: Esteban Lorenzano <estebanlm(a)gmail.com> Date: 2017-12-21 (Thu, 21 Dec 2017) Changed paths: M deploy/pharo/deploy-key.sh Log Message: ----------- add correct server to list of known hosts

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev December 2017