Vm-dev March 2017

vm-dev@lists.squeakfoundation.org

39 participants
154 discussions

Re: [Vm-dev] [Pharo-dev] Saving a vm from command lines opens it with a small size
by Eliot Miranda 29 Mar '17

29 Mar '17

Hi Andrei, On Wed, Mar 29, 2017 at 10:40 AM, Andrei Chis <chisvasileandrei(a)gmail.com> wrote: > Hi, > > I have the following script that I run on mac: > > wget -O- get.pharo.org/vmLatest60 | bash > wget -O- get.pharo.org/60 | bash > ./pharo Pharo.image eval "Smalltalk snapshot: true andQuit: true" > ./pharo-ui Pharo.image > > Initially I thought that it doesn't work but then I saw that it opens a > very very small window with just a tiny scrollbar. Screenshot here: > https://dl.dropboxusercontent.com/u/74244847/Data/Screen% > 20Shot%202017-03-29%20at%207.38.48%20PM.png. > Find attached a script for unix/mac os that sets the size of the screen in the image file. Arguably the VM should use a window extent of 0@0 as a "start me headless" flag. What do people think? It would complicate things. The image would have to be located before any VM command line argument flags are processed, and probably opened twice. Seems like a lot of effort for little gain. Cheers, > Andrei > _,,,^..^,,,_ best, Eliot

2 1

Serial Port not working on Mac
by Guillermo Polito 28 Mar '17

28 Mar '17

Hi all, We are here with Olivier taking a loot at how serial ports work, because he wants to use it to connect to arduino/raspberries. We saw that the serial port works nice in unix, in windows we had a look but we found some problems (and we do not have now a windows machine to test well), and we found that in mac it does not work. We are seeing that this behaviour is there since Pharo 3 (4 years ago). We tried to see if it was a problem of the VM plugin (missing depenencies using ld / otool) but everything seemed ok. Finally, we took the vm from git and tried to compile it from scratch. *Meta-question 1:* Is there a way to create an xcode project from the vm sources? We would have lost less time if we used a graphical debugger to take a look at this :). There, we found that - apparently the mac VM is using an empty implementation of the serial port plugin: https://github.com/OpenSmalltalk/opensmalltalk-vm/blob/Cog/platforms/Mac%20… We replaced the contents of that file by the one in the Unix plugin and it worked *when the plugin was compiled as internal* (delta some differences between the default values in mac and unix like uppercasing the 's' of ttyS and ttys) https://github.com/OpenSmalltalk/opensmalltalk-vm/blob/Cog/platforms/unix/p… However, as soon as we retried to recompile the plugin as external it did not work any more... The initializeModule function was never called, the module was not loaded (from the system report) and the Serial port could not be open. For this we would have liked a debugger. And I'm not a friend of gdb on the terminal... *Meta-question 2:* Is there any clean/make clean used to remove generated files. We found ourselves a lot of times bitten by the fact that even recompiling everything using `mvm -A` did not really recompile and we had to remove files from here and there... How should we propose a fix? - do we duplicate the code of the plugin in the mac and unix platforms? - or do we somehow tell the compilation process that for this plugin it should use the sources in the unix platform code? Thanks! Guille and Olivier

6 10

[OpenSmalltalk/opensmalltalk-vm] 4ceff2: CogVM source as per VMMaker.oscog-eem.2188
by GitHub 28 Mar '17

28 Mar '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 4ceff23323bcd0f2d3d0a4a43c2995f43d09c98a https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/4ceff23323bcd0f2d3… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2017-03-27 (Mon, 27 Mar 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 scripts/gitrevert 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/vm/cogit.h M src/vm/cogitARMv5.c M src/vm/cogitIA32.c M src/vm/cogitMIPSEL.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2188 SpurPlanningCompactor: Fix a bug in resetting the free chunk used for the firstUnusedFieldsSpace after non-final pasxses (i.e. on snapshot). The old code didn't check to see if a free chunk was actually found(!!). Lowcode: Fixing the problem with the Lowcode register allocator. Fixing the Lowcode compilation bug. Git: Have the gitrevert script print names of files it reverts. Avoid the annoying message about 'M' not being versioned (fixed in a previous commit; noted here). Commit: d8ab3d981f0fd2e95fe0247b4385faa8164b61f1 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/d8ab3d981f0fd2e95f… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2017-03-27 (Mon, 27 Mar 2017) Changed paths: M .travis_test.sh Log Message: ----------- Merge remote-tracking branch 'refs/remotes/origin/Cog' into Cog Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/5418a415e929...d8…

1 0

VM Maker: VMMaker.oscog-eem.2188.mcz
by commits＠source.squeak.org 28 Mar '17

28 Mar '17

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2188.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2188 Author: eem Time: 27 March 2017, 3:47:04.412629 pm UUID: ff4ca601-cd05-4792-ab0d-dcdf19975239 Ancestors: VMMaker.oscog-eem.2187 Update the VMMaker class comment. =============== Diff against VMMaker.oscog-eem.2187 =============== Item was changed: Object subclass: #VMMaker instanceVariableNames: 'inline forBrowser allPlugins internalPlugins externalPlugins platformName sourceDirName platformRootDirName logger interpreterClassName is64BitVM optionsDictionary abortBlock' classVariableNames: 'DirNames' poolDictionaries: '' category: 'VMMaker-Building'! + !VMMaker commentStamp: 'eem 3/27/2017 15:46' prior: 0! + This class coordinates generating sources for the various VMs and the set of plugins that comprise the Cog VM. See the class side for generating all or some configurations. The source is intended to be generated in the context of the opensmalltalk-vm source tree available via git from https://github.com/OpenSmalltalk/opensmalltalk-vm. See VMMaker class>>initialize for the relative locations of this image and the source tree (for example, in the image directory of the opensmalltalk-vm tree). Invoke a single configuration via e.g. + VMMaker generateSqueakSpurCog64VM + or a set via e.g. + VMMaker generateAllConfigurationsUnderVersionControl + + The source tree on branch Cog at https://github.com/OpenSmalltalk/opensmalltalk-vm is generated via generateAllConfigurationsUnderVersionControl. Note that "Squeak" in these cofiguarations means virtual machines that support various versions of Squeak, Pharo and Cuis smalltalks. IIABDFI. + + + Words to the wise: + In the old days, VM sources would be generated per-platform. Now, all the source generated by the above generators and included in https://github.com/OpenSmalltalk/opensmalltalk-vm is separately versioned, and we use only CrossPlatformVMMaker to generate them. All platform-specific variations, such as whether to use a struct to hold the interpreter's global variables, which plugins to include in a VM, etc, are included in the generated osurce. All plugins are generated such that they can be compiled as either internal or external plugins. What specific variations to use are therefore controlled by the platform-specific makefiles, and the decision is deferred from source generation time to VM build time. The source is designed to be platform neutral. This form is chosen carefully to allow VMs to be built from fully checked-in, and hence fully versioned source. + + + Old commentary: - !VMMaker commentStamp: 'tpr 5/5/2003 12:28' prior: 0! This class builds a VM codebase from the in-image and on-file code. The platforms file tree you need can be downloaded via cvs from http://squeak.Sourceforge.net. See also the swiki (http://minnow.cc.gatech.edu/squeak/2106) for instructions. It is fairly configurable as to where directories live and can handle multiple platform's source trees at once. It's main purpose is to allow easy building of source trees with any combination of internal/external/unused plugins to suit your platform needs and capabilities. For example, the Acorn has no need of Sound or AsynchFile plugins since I haven't written any platform code for them. There is a simple UI tool for this VMMakerTool openInWorld will open a reasonably self explanatory tool with balloon help to explain all the fields - and a help window on top of that. There are some simple workspace & inspector commands, allowing scripted building: VMMaker default initializeAllExternal generateEntire for example will build sources for a system with all the plugins external whereas VMMaker default initializeAllInternal generateEntire would build all applicable plugins for internal compilation. (VMMaker forPlatform: 'Mac OS') initializeAllExternal generateEntire would build a source tree for a Mac even on a Windows machine (err, ignoring for now the irritation of lineends). If you have a slightly more complex configuration you want to use, perhaps with Socket and Serial support external (because for your case they are rarely used and saving the space has some value) then you could try (VMMaker default initializeAllInternalBut: #(SocketPlugin SerialPlugin) generateEntire More complex still would be (VMMaker default initializeInternal: #(BitBltPlugin MiscPrimsPlugin FilePlugin) external: #(SocketPlugin ZipPlugin B2DPlugin) which allows you to precisely list all the plugins to use. WARNING If you miss out a plugin you need, it won't be there. This message is really best suited to use by a UI like VMMakerTool. To save a configuration for later use, you need to send #saveConfiguration to an active instance of VMMaker. Obviously you could simply use (VMMaker default initializeAllInternalBut: #(SocketPlugin SerialPlugin) saveConfiguration but inspecting VMMaker default and altering the internalPlugins and externalPlugins or the boolean flags for inline or forBrowser followed by saving the configuration allows ultimate power for now. To load a saved configuration file, use #loadConfigurationFrom: aFilename whilst inspecting a VMMaker. The loaded state will completely override any pre-existing state, so take care. You can generate only parts of the source tree if you wish; as shown above #generateEntire will create the whole collection of internal and external plugins as well as the core VM. To create only the external plugins use #generateExternalPlugins, or create a single plugin with #generateExternalPlugin: name. To assemble the main VM including the internal plugins, use #generateMainVM. The interpreter 'interp.c' file is made with #generateInterpreterFile. You can generate a single internal plugin with #generateInternalPlugin: only if it has already been generated before; this interlocking is intended to make sure the named primitive table in the vm is correct. There are some rules to observe in order to use this:- - under the working directory (by default - you can configure it) you need a directory called 'platforms' (also configurable) with subdirectories named as the platform names returned by Smalltalk platformName (ie unix, RiscOS, Mac OS, etc - this isn't configurable). At the very least you need the one for your own platform and the pseudo-platform called 'Cross'. By adding a 'DirNames' entry for #machineType you can cross 'compile' for some other platform. Now all we need is a cross-compiler for the C code :-) - under this directory you must have a simple structure of directories for each generated plugin that you support on the platform, plus 'vm'. In each directory you place any/all platform specific files (and subdirectories) for that plugin. In 'misc' you can place any miscellaneous files such as makefiles, resources etc. For example, for unix you have platforms/ unix/ plugins/ AsynchFilePlugin / sqUnixAsynchfile.c vm/ sqGnu.h Profile/ misc/ makefile.in util/ ...etc Any plugins requiring platform files that you don't support shouldn't appear in the resulting code tree. If you try to include an unsupported plugin in the list to be made external, the VMMaker simply ignores it. However, if you include it in the list to be made internal you will get an error since that seems like a potentially serious source of confusion. There are three lists of plugins maintained herein:- 1) the list of all known generatable plugins. We scan this list and compare with the supported plugins as indicated by the file tree. 2) the list of chosen internal plugins. 3) the list of chosen external plugins. See initializeAllPlugins, initialiseAllExternal etc for fairly obvious usage. There is also a short list of directory names in the class variable 'DirNames' that you can alter if needed. Known problems:- a) since Squeak has really poor filename handling, you can't simply change the directory names to '/foo/bar/myEvilCodeBase' and expect it to work. You fix file names and I'll fix VMMaker :-) b) Squeak copying of a file loses the assorted permissions, filetype info and other useful bits. To workaround this problem, see the FileCopyPlugin, which provides the platform independent part of a simple access for the OS filecopy capability. So far there are functional plugins for unix, Mac and Acorn. DOS machines appear not to need one. This is less of a problem in practise now that unix, Acorn & Mac no longer copy files from /platforms to /src. inline <Boolean> - is the generated code to be inlined or not forBrowser <Boolean> - is this to be a build for in-Browser use? Only relevent to Macs allPlugins <Collection> - all the known possible plugins internalPlugins <Collection> - the plugins chosen to be generated for internal linking externalPlugins <Collection> - the plugins intended to be external plugins exportList <Collection> - a list of function names exported from plugins intended to be internal platformName <String> - the name of the platform for which we are building a source tree. It is possible to do 'cross-compiles' sourceDirName, platformRootDirName <String> - the name of the directory into which we write the generated sources and the name of the directory where we should find the platforms tree.!

1 0

VM Maker: VMMaker.oscog-eem.2187.mcz
by commits＠source.squeak.org 28 Mar '17

28 Mar '17

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2187.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2187 Author: eem Time: 27 March 2017, 3:00:06.676146 pm UUID: 2259d299-65a4-42d0-a01b-4b25f5a89745 Ancestors: VMMaker.oscog-rsf.2186 SpurPlanningCompactor: Fix a big in resetting the free chunk used for the firstUnusedFieldsSpace after non-final pasxses (i.e. on snapshot). The old code didn't check to see if a free chunk was actually found(!!). =============== Diff against VMMaker.oscog-rsf.2186 =============== Item was added: + ----- Method: SpurMemoryManager>>validFreeTreeChunk: (in category 'free space') ----- + validFreeTreeChunk: chunk + <inline: false> + (segmentManager segmentContainingObj: chunk) ifNil: + [^false]. + ^(self validFreeTreeChunk: chunk parent: (self fetchPointer: self freeChunkParentIndex ofFreeChunk: chunk)) isNil! Item was changed: ----- Method: SpurPlanningCompactor>>updateSavedFirstFieldsSpaceIfNecessary (in category 'space management') ----- updateSavedFirstFieldsSpaceIfNecessary "If savedFirstFieldsSpace is a free chunk then it may need to be repositioned if there is more than one pass." <inline: true> + (self savedFirstFieldsSpaceInFreeChunk + and: [savedFirstFieldsSpace start < lastMobileObject]) ifTrue: + [(self findHighestSuitableFreeBlock: savedFirstFieldsSpace limit - savedFirstFieldsSpace start) + ifNotNil: + [:largestFreeChunk| + self useFreeChunkForSavedFirstFieldsSpace: largestFreeChunk] + ifNil: + [self useEdenForSavedFirstFieldsSpace]]. - self savedFirstFieldsSpaceInFreeChunk ifTrue: - [self useFreeChunkForSavedFirstFieldsSpace: manager findLargestFreeChunk]. savedFirstFieldsSpace top: savedFirstFieldsSpace start - manager bytesPerOop! Item was changed: ----- Method: SpurPlanningCompactor>>useFreeChunkForSavedFirstFieldsSpace: (in category 'space management') ----- useFreeChunkForSavedFirstFieldsSpace: highestSuitableFreeBlock "Use the supplied free chunk to hold the savedFirstFieldsSpace. Invoked when eden is found not to be big enough for the job. Avoid the first few fields so as not to destroy the free chunk and there by confuse object enumeration." <inline: true> + self assert: (manager validFreeTreeChunk: highestSuitableFreeBlock). savedFirstFieldsSpace start: highestSuitableFreeBlock + (manager freeChunkLargerIndex * manager bytesPerOop); limit: (manager addressAfter: highestSuitableFreeBlock). savedFirstFieldsSpaceNotInOldSpace := false. self deny: self savedFirstFieldsSpaceWasAllocated!

1 0

[OpenSmalltalk/opensmalltalk-vm] 5418a4: No need to raise rtprio limit anymore
by GitHub 27 Mar '17

27 Mar '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 5418a415e9297f601f6d57ee732fd7fd942da08c https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/5418a415e9297f601f… Author: Fabio Niephaus <code(a)fniephaus.com> Date: 2017-03-27 (Mon, 27 Mar 2017) Changed paths: M .travis_test.sh Log Message: ----------- No need to raise rtprio limit anymore since 32f321583c69ca27e61ffaff6decc2a3e4b6ca5e

1 0

VM Maker: VMMaker.oscog-rsf.2186.mcz
by commits＠source.squeak.org 26 Mar '17

26 Mar '17

Ronie Salgado Faila uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-rsf.2186.mcz ==================== Summary ==================== Name: VMMaker.oscog-rsf.2186 Author: rsf Time: 26 March 2017, 5:24:45.171099 pm UUID: 24ab1aca-5dbe-4061-9709-da0e2cbf492f Ancestors: VMMaker.oscog-rsf.2185 Fixing the problem with the Lowcode register allocator. =============== Diff against VMMaker.oscog-rsf.2185 =============== Item was changed: ----- Method: CogObjectRepresentation>>genLcFloat32:toOop: (in category 'inline primitive support') ----- genLcFloat32: value toOop: object <option: #LowcodeVM> cogit ConvertRs: value Rd: DPFPReg0. cogit CallRT: ceFloatObjectOfTrampoline. + cogit MoveR: TempReg R: object. + cogit ssPushRegister: object.! - cogit MoveR: TempReg R: ReceiverResultReg. - cogit ssPushRegister: ReceiverResultReg.! Item was changed: ----- Method: CogObjectRepresentation>>genLcFloat64:toOop: (in category 'inline primitive support') ----- genLcFloat64: value toOop: object <option: #LowcodeVM> value ~= DPFPReg0 ifTrue: [ cogit MoveRd: value Rd: DPFPReg0]. cogit CallRT: ceFloatObjectOfTrampoline. + cogit MoveR: TempReg R: object. + cogit ssPushRegister: object.! - cogit MoveR: TempReg R: ReceiverResultReg. - cogit ssPushRegister: ReceiverResultReg.! Item was changed: ----- Method: CogSimStackNativeEntry>>nativeFloatRegisterOrNone (in category 'accessing') ----- nativeFloatRegisterOrNone + ^ (type = SSRegisterSingleFloat or: [type = SSRegisterDoubleFloat]) - ^ ([type = SSRegisterSingleFloat] or: [type = SSRegisterDoubleFloat]) ifTrue: [register] ifFalse: [NoReg]! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeOop2: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeOop2: aBlock <option: #LowcodeVM> <inline: true> | rOopTop rOopNext oopTopRegisterMask | rOopTop := rOopNext := NoReg. oopTopRegisterMask := 0. self ssTop registerOrNone ~= NoReg ifTrue: [ rOopTop := self ssTop registerOrNone. + "Ensure we are not using a duplicated register." + (self isOopRegister: rOopTop usedBefore: 0) ifTrue: [ + rOopTop := NoReg + ] ]. (self ssValue: 1) registerOrNone ~= NoReg ifTrue: [ rOopNext := (self ssValue: 1) registerOrNone. + "Ensure we are not using a duplicated register." + (self isOopRegister: rOopNext usedBefore: 1) ifTrue: [ + rOopNext := NoReg + ]. + rOopNext ~= NoReg ifTrue: [ + oopTopRegisterMask := self registerMaskFor: rOopNext. + ]. - oopTopRegisterMask := self registerMaskFor: rOopNext. ]. rOopTop = NoReg ifTrue: [ rOopTop := self allocateRegNotConflictingWith: oopTopRegisterMask ]. rOopNext = NoReg ifTrue: [ rOopNext := self allocateRegNotConflictingWith: (self registerMaskFor: rOopTop) ]. self deny: (rOopTop = NoReg or: [rOopNext = NoReg ]). ^ aBlock value: rOopTop value: rOopNext ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeOop2ResultInteger: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeOop2ResultInteger: aBlock <option: #LowcodeVM> <inline: true> | rOopTop rOopNext rResult oopTopRegisterMask | rOopTop := rOopNext := NoReg. rResult := NoReg. oopTopRegisterMask := 0. self ssTop registerOrNone ~= NoReg ifTrue: [ rOopTop := self ssTop registerOrNone. + "Ensure we are not using a duplicated register." + (self isOopRegister: rOopTop usedBefore: 0) ifTrue: [ + rOopTop := NoReg + ] ]. (self ssValue: 1) registerOrNone ~= NoReg ifTrue: [ rOopNext := (self ssValue: 1) registerOrNone. + "Ensure we are not using a duplicated register." + (self isOopRegister: rOopNext usedBefore: 1) ifTrue: [ + rOopNext := NoReg + ]. + rOopNext ~= NoReg ifTrue: [ + oopTopRegisterMask := self registerMaskFor: rOopNext. + ]. - oopTopRegisterMask := self registerMaskFor: rOopNext. ]. rOopTop = NoReg ifTrue: [ rOopTop := self allocateRegNotConflictingWith: oopTopRegisterMask ]. rOopNext = NoReg ifTrue: [ + rOopNext := self allocateRegNotConflictingWith: (self registerMaskFor: rOopTop). - rOopNext := self allocateRegNotConflictingWith: (self registerMaskFor: rOopTop) ]. rResult := self allocateRegNotConflictingWith: (self registerMaskFor: rOopTop and: rOopNext). self deny: (rOopTop = NoReg or: [rOopNext = NoReg or: [rResult = NoReg]]). ^ aBlock value: rOopTop value: rOopNext value: rResult ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeOop: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeOop: aBlock <option: #LowcodeVM> <inline: true> | rOopTop | rOopTop := NoReg. self ssTop registerOrNone ~= NoReg ifTrue: [ rOopTop := self ssTop registerOrNone. + "Ensure we are not using a duplicated register." + (self isOopRegister: rOopTop usedBefore: 0) ifTrue: [ + rOopTop := NoReg + ] ]. rOopTop = NoReg ifTrue: [ rOopTop := self allocateRegNotConflictingWith: (self emptyRegisterMask) ]. self deny: (rOopTop = NoReg). ^ aBlock value: rOopTop ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeOopResultFloat: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeOopResultFloat: aBlock <option: #LowcodeVM> <inline: true> | rOopTop frResult | rOopTop := NoReg. frResult := NoReg. self ssTop registerOrNone ~= NoReg ifTrue: [ rOopTop := self ssTop registerOrNone. + "Ensure we are not using a duplicated register." + (self isOopRegister: rOopTop usedBefore: 0) ifTrue: [ + rOopTop := NoReg + ] ]. rOopTop = NoReg ifTrue: [ rOopTop := self allocateRegNotConflictingWith: (self emptyRegisterMask) ]. frResult := self allocateFloatRegNotConflictingWith: (self emptyRegisterMask). self deny: (rOopTop = NoReg or: [frResult = NoReg]). ^ aBlock value: rOopTop value: frResult ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeOopResultInteger2: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeOopResultInteger2: aBlock <option: #LowcodeVM> <inline: true> | rOopTop rResult rResult2 | rOopTop := NoReg. rResult := rResult2 := NoReg. self ssTop registerOrNone ~= NoReg ifTrue: [ rOopTop := self ssTop registerOrNone. + "Ensure we are not using a duplicated register." + (self isOopRegister: rOopTop usedBefore: 0) ifTrue: [ + rOopTop := NoReg + ] ]. rOopTop = NoReg ifTrue: [ rOopTop := self allocateRegNotConflictingWith: (self emptyRegisterMask) ]. rResult := self allocateRegNotConflictingWith: (self registerMaskFor: rOopTop). rResult2 := self allocateRegNotConflictingWith: (self registerMaskFor: rOopTop and: rResult). self deny: (rOopTop = NoReg or: [rResult = NoReg]). ^ aBlock value: rOopTop value: rResult value: rResult2 ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeOopResultInteger: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeOopResultInteger: aBlock <option: #LowcodeVM> <inline: true> | rOopTop rResult | rOopTop := NoReg. rResult := NoReg. self ssTop registerOrNone ~= NoReg ifTrue: [ rOopTop := self ssTop registerOrNone. + "Ensure we are not using a duplicated register." + (self isOopRegister: rOopTop usedBefore: 0) ifTrue: [ + rOopTop := NoReg + ] ]. rOopTop = NoReg ifTrue: [ rOopTop := self allocateRegNotConflictingWith: (self emptyRegisterMask) ]. rResult := self allocateRegNotConflictingWith: (self registerMaskFor: rOopTop). self deny: (rOopTop = NoReg or: [rResult = NoReg]). ^ aBlock value: rOopTop value: rResult ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeOopResultOop: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeOopResultOop: aBlock <option: #LowcodeVM> <inline: true> | rOopTop rResult | rOopTop := NoReg. rResult := NoReg. self ssTop registerOrNone ~= NoReg ifTrue: [ rOopTop := self ssTop registerOrNone. + "Ensure we are not using a duplicated register." + (self isOopRegister: rOopTop usedBefore: 0) ifTrue: [ + rOopTop := NoReg + ] ]. rOopTop = NoReg ifTrue: [ rOopTop := self allocateRegNotConflictingWith: (self emptyRegisterMask) ]. rResult := self allocateRegNotConflictingWith: (self registerMaskFor: rOopTop). self deny: (rOopTop = NoReg or: [rResult = NoReg]). ^ aBlock value: rOopTop value: rResult ! Item was added: + ----- Method: StackToRegisterMappingCogit>>isOopRegister:usedBefore: (in category 'inline primitive register allocation') ----- + isOopRegister: register usedBefore: stackIndex + <option: #LowcodeVM> + <inline: true> + | index | + index := simSpillBase max: 0. + index to: simStackPtr - stackIndex do: [ :i | + (self simStackAt: index) registerOrNone = register ifTrue: [ + ^ true + ] + ]. + + ^ false! Item was changed: ----- Method: StackToRegisterMappingCogit>>ssFlushAll (in category 'simulation stack') ----- ssFlushAll <inline: true> + self ssFlushTo: simStackPtr nativeFlushTo: simNativeStackPtr. + self voidReceiverResultRegContainsSelf.! - self ssFlushTo: simStackPtr nativeFlushTo: simNativeStackPtr!

1 0

VM Maker: VMMaker.oscog-rsf.2185.mcz
by commits＠source.squeak.org 26 Mar '17

26 Mar '17

Ronie Salgado Faila uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-rsf.2185.mcz ==================== Summary ==================== Name: VMMaker.oscog-rsf.2185 Author: rsf Time: 26 March 2017, 3:49:52.367206 pm UUID: 3c227ed5-3dbc-4b48-9de0-38a0978593f8 Ancestors: VMMaker.oscog-eem.2184 Fixing the Lowcode compilation bug. I still have to fix another bug with the new register allocation used with Lowcode. =============== Diff against VMMaker.oscog-eem.2184 =============== Item was changed: ----- Method: CogBytecodeFixup class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') ----- instVarNamesAndTypesForTranslationDo: aBinaryBlock "Enumerate aBinaryBlock with the names and C type strings for the inst vars to include in a BytecodeFixup struct." "self withAllSubclasses collect: [:ea| ea typedef]" self filteredInstVarNames do: [:ivn| aBinaryBlock value: ivn value: (ivn first ~= $# ifTrue: [ivn caseOf: { ['targetInstruction'] -> [#'AbstractInstruction *']. ['mergeSimStack'] -> [#'SimStackEntry *']. ['instructionIndex'] -> [#'unsigned short']. ['simStackPtr'] -> [#char]. + ['simNativeStackPtr'] -> [#'short']. - ['simNativeStackPtr'] -> [#'unsigned short']. ['simNativeStackSize'] -> [#'unsigned short']. ['isReceiverResultRegSelf'] -> [#char] }])]! Item was changed: ----- Method: CogSimStackNativeEntry>>nativeRegisterOrNone (in category 'accessing') ----- nativeRegisterOrNone + ^(type = SSNativeRegister or: [type = SSRegisterPair]) - ^(type = SSRegister or: [type = SSRegisterPair]) ifTrue: [register] ifFalse: [NoReg]! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeFloat2ResultInteger: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeFloat2ResultInteger: aBlock <option: #LowcodeVM> <inline: true> | frNext frTop topRegistersMask rResult | topRegistersMask := 0. frTop := frNext := NoReg. rResult := NoReg. self ssNativeTop nativeFloatRegisterOrNone ~= NoReg ifTrue: [ frTop := self ssNativeTop nativeFloatRegisterOrNone]. (self ssNativeValue: 1) nativeFloatRegisterOrNone ~= NoReg ifTrue: [ topRegistersMask := self registerMaskFor: (frNext := (self ssNativeValue: 1) nativeFloatRegisterOrNone)]. frTop = NoReg ifTrue: [ frTop := self allocateFloatRegNotConflictingWith: topRegistersMask ]. frNext = NoReg ifTrue: [ frNext := self allocateFloatRegNotConflictingWith: (self registerMaskFor: frTop) ]. "Result" rResult := self allocateRegNotConflictingWith: 0. + self deny: (frTop = NoReg or: [frNext = NoReg or: [rResult = NoReg]]). - self deny: (frTop = NoReg or: [frNext = NoReg or: [rResult]]). ^ aBlock value: frTop value: frNext value: rResult ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeInteger2ResultFloat: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeInteger2ResultFloat: aBlock <option: #LowcodeVM> <inline: true> | rNext rTop topRegistersMask frResult | topRegistersMask := 0. rTop := rNext := NoReg. + frResult := NoReg. - frResult := NoReg self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. self ssNativeTop nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNext := self ssNativeTop nativeRegisterSecondOrNone] ]. rNext = NoReg ifTrue: [ (self ssNativeValue: 1) nativeRegisterOrNone ~= NoReg ifTrue: [ topRegistersMask := self registerMaskFor: (rNext := (self ssNativeValue: 1) nativeRegisterOrNone)]. ]. rTop = NoReg ifTrue: [ rTop := self allocateRegNotConflictingWith: topRegistersMask ]. rNext = NoReg ifTrue: [ rNext := self allocateRegNotConflictingWith: (self registerMaskFor: rTop) ]. "Results" frResult := self allocateFloatRegNotConflictingWith: self emptyRegisterMask. self deny: (rTop = NoReg or: [rNext = NoReg or: [frResult = NoReg]]). ^ aBlock value: rTop value: rNext value: frResult! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeInteger2ResultInteger2: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeInteger2ResultInteger2: aBlock <option: #LowcodeVM> <inline: true> | rNext rTop topRegistersMask rResult rResult2 | topRegistersMask := 0. rTop := rNext := NoReg. + rResult := rResult2 := NoReg. - rResult := rResult2 := NoReg self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. self ssNativeTop nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNext := self ssNativeTop nativeRegisterSecondOrNone] ]. rNext = NoReg ifTrue: [ (self ssNativeValue: 1) nativeRegisterOrNone ~= NoReg ifTrue: [ topRegistersMask := self registerMaskFor: (rNext := (self ssNativeValue: 1) nativeRegisterOrNone)]. ]. rTop = NoReg ifTrue: [ rTop := self allocateRegNotConflictingWith: topRegistersMask ]. rNext = NoReg ifTrue: [ rNext := self allocateRegNotConflictingWith: (self registerMaskFor: rTop) ]. self deny: (rTop = NoReg or: [rNext = NoReg]). "Results" rResult := self allocateFloatRegNotConflictingWith: (self registerMaskFor: rTop and: rNext). rResult2 := self allocateFloatRegNotConflictingWith: (self registerMaskFor: rTop and: rNext and: rResult). self deny: (rResult = NoReg or: [rResult2 = NoReg]). ^ aBlock value: rTop value: rNext value: rResult value: rResult2! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeInteger2ResultInteger: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeInteger2ResultInteger: aBlock <option: #LowcodeVM> <inline: true> | rNext rTop topRegistersMask rResult | topRegistersMask := 0. rTop := rNext := NoReg. + rResult := NoReg. - rResult := NoReg self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. self ssNativeTop nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNext := self ssNativeTop nativeRegisterSecondOrNone] ]. rNext = NoReg ifTrue: [ (self ssNativeValue: 1) nativeRegisterOrNone ~= NoReg ifTrue: [ topRegistersMask := self registerMaskFor: (rNext := (self ssNativeValue: 1) nativeRegisterOrNone)]. ]. rTop = NoReg ifTrue: [ rTop := self allocateRegNotConflictingWith: topRegistersMask ]. rNext = NoReg ifTrue: [ rNext := self allocateRegNotConflictingWith: (self registerMaskFor: rTop) ]. self deny: (rTop = NoReg or: [rNext = NoReg]). "Results" rResult := self allocateFloatRegNotConflictingWith: (self registerMaskFor: rTop and: rNext). self deny: (rResult = NoReg). ^ aBlock value: rTop value: rNext value: rResult! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeInteger2ResultOop: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeInteger2ResultOop: aBlock <option: #LowcodeVM> <inline: true> | rNext rTop topRegistersMask rResult | topRegistersMask := 0. rTop := rNext := NoReg. + rResult := NoReg. - rResult := NoReg self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. self ssNativeTop nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNext := self ssNativeTop nativeRegisterSecondOrNone] ]. rNext = NoReg ifTrue: [ (self ssNativeValue: 1) nativeRegisterOrNone ~= NoReg ifTrue: [ topRegistersMask := self registerMaskFor: (rNext := (self ssNativeValue: 1) nativeRegisterOrNone)]. ]. rTop = NoReg ifTrue: [ rTop := self allocateRegNotConflictingWith: topRegistersMask ]. rNext = NoReg ifTrue: [ rNext := self allocateRegNotConflictingWith: (self registerMaskFor: rTop) ]. self deny: (rTop = NoReg or: [rNext = NoReg]). "Results" rResult := self allocateFloatRegNotConflictingWith: (self registerMaskFor: rTop and: rNext). self deny: (rResult = NoReg). ^ aBlock value: rTop value: rNext value: rResult! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeInteger3: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeInteger3: aBlock <option: #LowcodeVM> <inline: true> + | rNext rNextNext nativeValueIndex rTop nextRegisterMask | - | rNext rNextNext nativeValueIndex rTop registerMask | rTop := rNext := rNextNext := NoReg. nativeValueIndex := 1. self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. self ssNativeTop nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNext := self ssNativeTop nativeRegisterSecondOrNone] ]. rNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone. ]. nativeValueIndex := nativeValueIndex + 1 ]. ]. rNextNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. ]. ]. rTop = NoReg ifTrue: [ + nextRegisterMask := 0. + rNext ~= NoReg ifTrue: [ nextRegisterMask := self registerMaskFor: rNext]. + rNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNext)]. + rTop := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := 0. - rNext ~= NoReg ifTrue: [ registerMask := self registerMaskFor: rNext]. - rNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNext)]. - rTop := self allocateRegNotConflictingWith: registerMask ]. rNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop. + rNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNext)]. + rNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop. - rNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNext)]. - rNext := self allocateRegNotConflictingWith: registerMask ]. rNextNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop and: rNext. + rNextNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop and: rNext. - rNextNext := self allocateRegNotConflictingWith: registerMask ]. self deny: (rTop = NoReg or: [rNext = NoReg or: [rNextNext = NoReg]]). ^ aBlock value: rTop value: rNext value: rNextNext ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeInteger3ResultInteger: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeInteger3ResultInteger: aBlock <option: #LowcodeVM> <inline: true> + | rNext rNextNext rResult nativeValueIndex rTop nextRegisterMask | - | rNext rNextNext rResult nativeValueIndex rTop registerMask | rTop := rNext := rNextNext := NoReg. nativeValueIndex := 1. self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. self ssNativeTop nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNext := self ssNativeTop nativeRegisterSecondOrNone] ]. rNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone. ]. nativeValueIndex := nativeValueIndex + 1 ]. ]. rNextNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. ]. ]. rTop = NoReg ifTrue: [ + nextRegisterMask := 0. + rNext ~= NoReg ifTrue: [ nextRegisterMask := self registerMaskFor: rNext]. + rNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNext)]. + rTop := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := 0. - rNext ~= NoReg ifTrue: [ registerMask := self registerMaskFor: rNext]. - rNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNext)]. - rTop := self allocateRegNotConflictingWith: registerMask ]. rNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop. + rNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNext)]. + rNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop. - rNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNext)]. - rNext := self allocateRegNotConflictingWith: registerMask ]. rNextNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop and: rNext. + rNextNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop and: rNext. - rNextNext := self allocateRegNotConflictingWith: registerMask ]. self deny: (rTop = NoReg or: [rNext = NoReg or: [rNextNext = NoReg]]). "Allocate the result" rResult := self allocateRegNotConflictingWith: (self registerMaskFor: rTop and: rNext and: rNextNext). self deny: (rResult = NoReg). ^ aBlock value: rTop value: rNext value: rNextNext value: rResult ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeInteger4: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeInteger4: aBlock <option: #LowcodeVM> <inline: true> + | rNext rNextNext rNextNextNext nativeValueIndex rTop nextRegisterMask | - | rNext rNextNext rNextNextNext nativeValueIndex rTop registerMask | rTop := rNext := rNextNext := rNextNextNext := NoReg. nativeValueIndex := 1. self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. self ssNativeTop nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNext := self ssNativeTop nativeRegisterSecondOrNone] ]. rNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. ]. nativeValueIndex := nativeValueIndex + 1 ]. ]. rNextNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNextNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone. ]. nativeValueIndex := nativeValueIndex + 1 ]. ]. rNextNextNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNextNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. nativeValueIndex := nativeValueIndex + 1 ]. ]. rTop = NoReg ifTrue: [ + nextRegisterMask := 0. + rNext ~= NoReg ifTrue: [ nextRegisterMask := self registerMaskFor: rNext]. + rNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNext)]. + rNextNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNextNext)]. + rTop := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := 0. - rNext ~= NoReg ifTrue: [ registerMask := self registerMaskFor: rNext]. - rNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNext)]. - rNextNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNextNext)]. - rTop := self allocateRegNotConflictingWith: registerMask ]. rNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop. + rNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNext)]. + rNextNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNextNext)]. + rNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop. - rNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNext)]. - rNextNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNextNext)]. - rNext := self allocateRegNotConflictingWith: registerMask ]. rNextNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop and: rNext. + rNextNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNextNext)]. + rNextNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop and: rNext. - rNextNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNextNext)]. - rNextNext := self allocateRegNotConflictingWith: registerMask ]. rNextNextNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop and: rNext and: rNextNext. + rNextNextNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop and: rNext and: rNextNext. - rNextNextNext := self allocateRegNotConflictingWith: registerMask ]. self deny: (rTop = NoReg or: [rNext = NoReg or: [rNextNext = NoReg or: [rNextNextNext = NoReg]]]). ^ aBlock value: rTop value: rNext value: rNextNext value: rNextNextNext ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeInteger4ResultInteger2: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeInteger4ResultInteger2: aBlock <option: #LowcodeVM> <inline: true> + | rNext rNextNext rNextNextNext nativeValueIndex rTop nextRegisterMask rResult rResult2 | - | rNext rNextNext rNextNextNext nativeValueIndex rTop registerMask rResult rResult2 | rTop := rNext := rNextNext := rNextNextNext := NoReg. rResult := rResult2 := NoReg. nativeValueIndex := 1. self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. self ssNativeTop nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNext := self ssNativeTop nativeRegisterSecondOrNone] ]. rNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. ]. nativeValueIndex := nativeValueIndex + 1 ]. ]. rNextNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNextNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone. ]. nativeValueIndex := nativeValueIndex + 1 ]. ]. rNextNextNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNextNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. nativeValueIndex := nativeValueIndex + 1 ]. ]. rTop = NoReg ifTrue: [ + nextRegisterMask := 0. + rNext ~= NoReg ifTrue: [ nextRegisterMask := self registerMaskFor: rNext]. + rNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNext)]. + rNextNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNextNext)]. + rTop := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := 0. - rNext ~= NoReg ifTrue: [ registerMask := self registerMaskFor: rNext]. - rNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNext)]. - rNextNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNextNext)]. - rTop := self allocateRegNotConflictingWith: registerMask ]. rNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop. + rNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNext)]. + rNextNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNextNext)]. + rNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop. - rNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNext)]. - rNextNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNextNext)]. - rNext := self allocateRegNotConflictingWith: registerMask ]. rNextNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop and: rNext. + rNextNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNextNext)]. + rNextNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop and: rNext. - rNextNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNextNext)]. - rNextNext := self allocateRegNotConflictingWith: registerMask ]. rNextNextNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop and: rNext and: rNextNext. + rNextNextNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop and: rNext and: rNextNext. - rNextNextNext := self allocateRegNotConflictingWith: registerMask ]. self deny: (rTop = NoReg or: [rNext = NoReg or: [rNextNext = NoReg or: [rNextNextNext = NoReg]]]). "Result registers" rResult := self allocateRegNotConflictingWith: (self registerMaskFor: rTop and: rNext and: rNextNext and: rNextNextNext). rResult2 := self allocateRegNotConflictingWith: (self registerMaskFor: rTop and: rNext and: rNextNext and: rNextNextNext and: rResult). ^ aBlock value: rTop value: rNext value: rNextNext value: rNextNextNext value: rResult value: rResult2 ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeInteger4ResultInteger: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeInteger4ResultInteger: aBlock <option: #LowcodeVM> <inline: true> + | rNext rNextNext rNextNextNext nativeValueIndex rTop nextRegisterMask rResult | - | rNext rNextNext rNextNextNext nativeValueIndex rTop registerMask rResult | rTop := rNext := rNextNext := rNextNextNext := NoReg. rResult := NoReg. nativeValueIndex := 1. self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. self ssNativeTop nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNext := self ssNativeTop nativeRegisterSecondOrNone] ]. rNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. ]. nativeValueIndex := nativeValueIndex + 1 ]. ]. rNextNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone ~= NoReg ifTrue: [ rNextNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterSecondOrNone. ]. nativeValueIndex := nativeValueIndex + 1 ]. ]. rNextNextNext = NoReg ifTrue: [ (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone ~= NoReg ifTrue: [ rNextNextNext := (self ssNativeValue: nativeValueIndex) nativeRegisterOrNone. nativeValueIndex := nativeValueIndex + 1 ]. ]. rTop = NoReg ifTrue: [ + nextRegisterMask := 0. + rNext ~= NoReg ifTrue: [ nextRegisterMask := self registerMaskFor: rNext]. + rNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNext)]. + rNextNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNextNext)]. + rTop := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := 0. - rNext ~= NoReg ifTrue: [ registerMask := self registerMaskFor: rNext]. - rNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNext)]. - rNextNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNextNext)]. - rTop := self allocateRegNotConflictingWith: registerMask ]. rNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop. + rNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNext)]. + rNextNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNextNext)]. + rNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop. - rNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNext)]. - rNextNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNextNext)]. - rNext := self allocateRegNotConflictingWith: registerMask ]. rNextNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop and: rNext. + rNextNextNext ~= NoReg ifTrue: [ nextRegisterMask := nextRegisterMask bitOr: (self registerMaskFor: rNextNextNext)]. + rNextNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop and: rNext. - rNextNextNext ~= NoReg ifTrue: [ registerMask := registerMask bitOr: (self registerMaskFor: rNextNextNext)]. - rNextNext := self allocateRegNotConflictingWith: registerMask ]. rNextNextNext = NoReg ifTrue: [ + nextRegisterMask := self registerMaskFor: rTop and: rNext and: rNextNext. + rNextNextNext := self allocateRegNotConflictingWith: nextRegisterMask - registerMask := self registerMaskFor: rTop and: rNext and: rNextNext. - rNextNextNext := self allocateRegNotConflictingWith: registerMask ]. self deny: (rTop = NoReg or: [rNext = NoReg or: [rNextNext = NoReg or: [rNextNextNext = NoReg]]]). "Result registers" rResult := self allocateRegNotConflictingWith: (self registerMaskFor: rTop and: rNext and: rNextNext and: rNextNextNext). ^ aBlock value: rTop value: rNext value: rNextNext value: rNextNextNext value: rResult ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeIntegerResultFloat: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeIntegerResultFloat: aBlock <option: #LowcodeVM> <inline: true> | rTop frResult| rTop := NoReg. + frResult := NoReg. - frResult := NoReg self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. ]. rTop = NoReg ifTrue: [ rTop := self allocateRegNotConflictingWith: self emptyRegisterMask]. frResult := self allocateFloatRegNotConflictingWith: self emptyRegisterMask. self deny: (rTop = NoReg or: [frResult = NoReg]). ^ aBlock value: rTop value: frResult ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeIntegerResultInteger2: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeIntegerResultInteger2: aBlock <option: #LowcodeVM> <inline: true> | rTop rResult rResult2 | rTop := NoReg. + rResult := rResult := NoReg. - rResult := rResult := NoReg self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. ]. rTop = NoReg ifTrue: [ rTop := self allocateRegNotConflictingWith: self emptyRegisterMask]. rResult := self allocateRegNotConflictingWith: (self registerMaskFor: rTop). rResult2 := self allocateRegNotConflictingWith: (self registerMaskFor: rTop and: rResult). self deny: (rTop = NoReg or: [rResult = NoReg or: [rResult2 = NoReg]]). ^ aBlock value: rTop value: rResult value: rResult2 ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeIntegerResultInteger: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeIntegerResultInteger: aBlock <option: #LowcodeVM> <inline: true> | rTop rResult| rTop := NoReg. + rResult := NoReg. - rResult := NoReg self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. ]. rTop = NoReg ifTrue: [ rTop := self allocateRegNotConflictingWith: self emptyRegisterMask]. rResult := self allocateRegNotConflictingWith: (self registerMaskFor: rTop). self deny: (rTop = NoReg or: [rResult = NoReg]). ^ aBlock value: rTop value: rResult ! Item was changed: ----- Method: StackToRegisterMappingCogit>>allocateRegistersForLowcodeIntegerResultOop: (in category 'inline primitive register allocation') ----- allocateRegistersForLowcodeIntegerResultOop: aBlock <option: #LowcodeVM> <inline: true> | rTop rResult| rTop := NoReg. + rResult := NoReg. - rResult := NoReg self ssNativeTop nativeRegisterOrNone ~= NoReg ifTrue: [ rTop := self ssNativeTop nativeRegisterOrNone. ]. rTop = NoReg ifTrue: [ rTop := self allocateRegNotConflictingWith: self emptyRegisterMask]. rResult := self allocateRegNotConflictingWith: (self registerMaskFor: rTop). self deny: (rTop = NoReg or: [rResult = NoReg]). ^ aBlock value: rTop value: rResult ! Item was changed: ----- Method: StackToRegisterMappingCogit>>ssNativeTop (in category 'simulation stack') ----- ssNativeTop <option: #LowcodeVM> + <inline: true> <returnTypeC: #'CogSimStackNativeEntry *'> self assert: simNativeStackPtr >= 0. ^self simNativeStackAt: simNativeStackPtr! Item was changed: ----- Method: StackToRegisterMappingCogit>>ssNativeValue: (in category 'simulation stack') ----- ssNativeValue: n <returnTypeC: #'CogSimStackNativeEntry *'> <option: #LowcodeVM> + ^self simNativeStackAt: simNativeStackPtr - n! - ^self simNativeStackAt: simStackPtr - n!

1 0

vm crash with latest 64bit Pharo vm on mac
by Andrei Chis 25 Mar '17

25 Mar '17

Hi, With the latest 64bit Pharo vm running with Pharo64-60451.image on mac I sometimes get a vm crash during long computations that take more than 1gb of memory. I do not have a reproducible use case but it seems to happen more often if I increase the eden size. Not sure if it's related to the compactor bug but here is the report I get when the crash happens, in case it provides any hints. Thread 0 Crashed:: Dispatch queue: com.apple.main-thread 0 libsystem_kernel.dylib 0x00007fff90785286 __pthread_kill + 10 1 libsystem_c.dylib 0x00007fff858329ab abort + 129 2 org.pharo.Pharo 0x000000010c50b39d error + 126 3 org.pharo.Pharo 0x000000010c49256e remember + 297 4 org.pharo.Pharo 0x000000010c4ba239 copyToOldSpacebytesformat + 262 5 org.pharo.Pharo 0x000000010c4b1826 copyAndForward + 208 6 org.pharo.Pharo 0x000000010c4bfee2 scavengeReferentsOf + 370 7 org.pharo.Pharo 0x000000010c4a9991 doScavenge + 324 8 org.pharo.Pharo 0x000000010c4b144f scavengingGCTenuringIf + 330 9 org.pharo.Pharo 0x000000010c495246 checkForEventsMayContextSwitch + 127 10 org.pharo.Pharo 0x000000010c49964a ceStackOverflow + 110 11 ??? 0x00000001192f841b 0 + 4717511707 12 org.pharo.Pharo 0x000000010c481dec interpret + 674 13 org.pharo.Pharo 0x000000010c50ccd9 -[sqSqueakMainApplication runSqueak] + 394 14 com.apple.Foundation 0x00007fff8b07f641 __NSFirePerformWithOrder + 326 15 com.apple.CoreFoundation 0x00007fff83c61127 __CFRUNLOOP_IS_CALLING_OUT_TO_AN_OBSERVER_CALLBACK_FUNCTION__ + 23 16 com.apple.CoreFoundation 0x00007fff83c61080 __CFRunLoopDoObservers + 368 17 com.apple.CoreFoundation 0x00007fff83c53188 __CFRunLoopRun + 872 18 com.apple.CoreFoundation 0x00007fff83c52bd8 CFRunLoopRunSpecific + 296 19 com.apple.HIToolbox 0x00007fff853cc56f RunCurrentEventLoopInMode + 235 20 com.apple.HIToolbox 0x00007fff853cc1ee ReceiveNextEventCommon + 179 21 com.apple.HIToolbox 0x00007fff853cc12b _ BlockUntilNextEventMatchingListInModeWithFilter + 71 22 com.apple.AppKit 0x00007fff8993b8ab _DPSNextEvent + 978 23 com.apple.AppKit 0x00007fff8993ae58 -[NSApplication nextEventMatchingMask:untilDate:inMode:dequeue:] + 346 24 com.apple.AppKit 0x00007fff89930af3 -[NSApplication run] + 594 25 com.apple.AppKit 0x00007fff898ad244 NSApplicationMain + 1832 26 libdyld.dylib 0x00007fff8ae095c9 start + 1 CoInterpreter * VMMaker.oscog-cb.2179 uuid: 8a024d75-b1a4-4406-b88a-72c7a48692ad Mar 24 2017 StackToRegisterMappingCogit * VMMaker.oscog-cb.2179 uuid: 8a024d75-b1a4-4406-b88a-72c7a48692ad Mar 24 2017 VM: 201703241022 https://github.com/pharo-project/pharo-vm.git $ Date: Fri Mar 24 11:22:02 2017 +0100 $ Plugins: 201703241022 https://github.com/pharo- project/pharo-vm.git $ Mac OS X built on Mar 24 2017 10:42:17 UTC Compiler: 4.2.1 Compatible Apple LLVM 6.1.0 (clang-602.0.53) VMMaker versionString VM: 201703241022 https://github.com/pharo- project/pharo-vm.git $ Date: Fri Mar 24 11:22:02 2017 +0100 $ Plugins: 201703241022 https://github.com/pharo-project/pharo-vm.git $ CoInterpreter * VMMaker.oscog-cb.2179 uuid: 8a024d75-b1a4-4406-b88a-72c7a48692ad Mar 24 2017 StackToRegisterMappingCogit * VMMaker.oscog-cb.2179 uuid: 8a024d75-b1a4-4406-b88a-72c7a48692ad Mar 24 2017 Cheers, Andrei

1 0

VM Maker: VMMaker.oscog-eem.2184.mcz
by commits＠source.squeak.org 25 Mar '17

25 Mar '17

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2184.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2184 Author: eem Time: 25 March 2017, 12:43:46.696507 pm UUID: aa9725c6-233f-4e84-9a79-79af2f5465d3 Ancestors: VMMaker.oscog-eem.2183 Answer MiscPrimitivePlugin's translated primitives based on what merhods are available. Using PharoVM (either a compile-time or a simulation-time variable) is the wrong thing to do. =============== Diff against VMMaker.oscog-eem.2183 =============== Item was changed: ----- Method: MiscPrimitivePlugin class>>translatedPrimitives (in category 'translation') ----- translatedPrimitives "an assorted list of various primitives" + (ByteString compiledMethodAt: #findSubstringViaPrimitive:in:startingAt:matchTable: ifAbsent: []) ifNotNil: + [^#("Pharo uses findSubstringViaPrimitive:in:startingAt:matchTable:" + (Bitmap compress:toByteArray:) + (Bitmap decompress:fromByteArray:at:) + (Bitmap encodeBytesOf:in:at:) + (Bitmap encodeInt:in:at:) + (ByteString compare:with:collated:) + (ByteString translate:from:to:table:) + (ByteString findFirstInString:inSet:startingAt:) + (ByteString indexOfAscii:inString:startingAt:) + (String findSubstringViaPrimitive:in:startingAt:matchTable:) + (ByteArray hashBytes:startingWith:) + (SampledSound convert8bitSignedFrom:to16Bit:))]. - PharoVM ifTrue: [ ^ self translatedPrimitivesForPharo ]. ^#( (Bitmap compress:toByteArray:) (Bitmap decompress:fromByteArray:at:) (Bitmap encodeBytesOf:in:at:) (Bitmap encodeInt:in:at:) (ByteString compare:with:collated:) (ByteString translate:from:to:table:) (ByteString findFirstInString:inSet:startingAt:) (ByteString indexOfAscii:inString:startingAt:) (ByteString findSubstring:in:startingAt:matchTable:) (ByteArray hashBytes:startingWith:) (SampledSound convert8bitSignedFrom:to16Bit:) ) "| tps | 'This opens a list browser on all translated primitives in the image'. tps := (SystemNavigation default allImplementorsOf: #translatedPrimitives) inject: Set new into: [:tp :mr| tp addAll: (mr actualClass theNonMetaClass translatedPrimitives collect: [:pair| MethodReference class: (((Smalltalk at: pair first) canUnderstand: pair last) ifTrue: [Smalltalk at: pair first] ifFalse: [(Smalltalk at: pair first) class]) selector: pair last]); yourself]. SystemNavigation default browseMessageList: tps asArray sort name: 'Translated Primitives' "! Item was removed: - ----- Method: MiscPrimitivePlugin class>>translatedPrimitivesForPharo (in category 'translation') ----- - translatedPrimitivesForPharo - ^#( - (Bitmap compress:toByteArray:) - (Bitmap decompress:fromByteArray:at:) - (Bitmap encodeBytesOf:in:at:) - (Bitmap encodeInt:in:at:) - (ByteString compare:with:collated:) - (ByteString translate:from:to:table:) - (ByteString findFirstInString:inSet:startingAt:) - (ByteString indexOfAscii:inString:startingAt:) - (String findSubstringViaPrimitive:in:startingAt:matchTable:) - (ByteArray hashBytes:startingWith:) - (SampledSound convert8bitSignedFrom:to16Bit:) - )!

1 0

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 March 2017