Hello everyone,
Lately, while working on the VM, I noticed that a few primitives related
with the clock on V3 were returning incorrect values. Cloning the
repository and building a Squeak Cog V3 VM produces a VM in which
DateAndTime class>>#now answers a value closer than a day to the epoch in
both Squeak 4.5 and the lastest version of Cuis. In the lastest version of
Cuis, Time class>>#primLocalMicrosecondClock, Time
class>>#primLocalSecondClock and Time class>>#primHighResClock return odd
values. This problem is seen exclusively on V3 VMs as far as I can tell,
independently of the interpreter.
I wasn't capable of pinning down the reason for this strange behaviour. If
anyone could give me a hand with that, I'd appreaciate it.
Cheers!
-Laura Perez Cerrato
4
7
[OpenSmalltalk/opensmalltalk-vm] c509d0: pharo sources as per VMMaker.oscog-eem.1950
by GitHub 13 Sep '16
by GitHub 13 Sep '16
13 Sep '16
Branch: refs/heads/Cog
Home: https://github.com/OpenSmalltalk/opensmalltalk-vm
Commit: c509d03472e82ba340e6879450e0579bd3a60b40
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/c509d03472e82ba340…
Author: Esteban Lorenzano <estebanlm(a)gmail.com>
Date: 2016-09-13 (Tue, 13 Sep 2016)
Changed paths:
A pharo64src/examplePlugins.ext
A pharo64src/examplePlugins.int
A pharo64src/plugins/ADPCMCodecPlugin/ADPCMCodecPlugin.c
A pharo64src/plugins/AioPlugin/AioPlugin.c
A pharo64src/plugins/AsynchFilePlugin/AsynchFilePlugin.c
A pharo64src/plugins/B2DPlugin/B2DPlugin.c
A pharo64src/plugins/B3DAcceleratorPlugin/B3DAcceleratorPlugin.c
A pharo64src/plugins/BMPReadWriterPlugin/BMPReadWriterPlugin.c
A pharo64src/plugins/BitBltPlugin/BitBltPlugin.c
A pharo64src/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c
A pharo64src/plugins/CroquetPlugin/CroquetPlugin.c
A pharo64src/plugins/DSAPrims/DSAPrims.c
A pharo64src/plugins/DropPlugin/DropPlugin.c
A pharo64src/plugins/EventsHandlerPlugin/EventsHandlerPlugin.c
A pharo64src/plugins/FFTPlugin/FFTPlugin.c
A pharo64src/plugins/FT2Plugin/FT2Plugin.c
A pharo64src/plugins/FilePlugin/FilePlugin.c
A pharo64src/plugins/FloatArrayPlugin/FloatArrayPlugin.c
A pharo64src/plugins/FloatMathPlugin/FloatMathPlugin.c
A pharo64src/plugins/GeniePlugin/GeniePlugin.c
A pharo64src/plugins/HostWindowPlugin/HostWindowPlugin.c
A pharo64src/plugins/IA32ABI/IA32ABI.c
A pharo64src/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c
A pharo64src/plugins/JPEGReaderPlugin/JPEGReaderPlugin.c
A pharo64src/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c
A pharo64src/plugins/Klatt/Klatt.c
A pharo64src/plugins/LargeIntegers/LargeIntegers.c
A pharo64src/plugins/LocalePlugin/LocalePlugin.c
A pharo64src/plugins/MIDIPlugin/MIDIPlugin.c
A pharo64src/plugins/Matrix2x3Plugin/Matrix2x3Plugin.c
A pharo64src/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c
A pharo64src/plugins/Mpeg3Plugin/Mpeg3Plugin.c
A pharo64src/plugins/ObjectiveCPlugin/ObjectiveCPlugin.c
A pharo64src/plugins/QuicktimePlugin/QuicktimePlugin.c
A pharo64src/plugins/RePlugin/RePlugin.c
A pharo64src/plugins/SDL2DisplayPlugin/SDL2DisplayPlugin.c
A pharo64src/plugins/SecurityPlugin/SecurityPlugin.c
A pharo64src/plugins/SerialPlugin/SerialPlugin.c
A pharo64src/plugins/SocketPlugin/SocketPlugin.c
A pharo64src/plugins/SoundCodecPrims/SoundCodecPrims.c
A pharo64src/plugins/SoundGenerationPlugin/SoundGenerationPlugin.c
A pharo64src/plugins/SoundPlugin/SoundPlugin.c
A pharo64src/plugins/SqueakFFIPrims/SqueakFFIPrims.c
A pharo64src/plugins/SqueakFFIPrims/X64SysVFFIPlugin.c
A pharo64src/plugins/SqueakSSL/SqueakSSL.c
A pharo64src/plugins/StarSqueakPlugin/StarSqueakPlugin.c
A pharo64src/plugins/TestOSAPlugin/TestOSAPlugin.c
A pharo64src/plugins/UUIDPlugin/UUIDPlugin.c
A pharo64src/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c
A pharo64src/plugins/ZipPlugin/ZipPlugin.c
A pharo64src/vm/cogit.c
A pharo64src/vm/cogit.h
A pharo64src/vm/cogitX64.c
A pharo64src/vm/cogmethod.h
A pharo64src/vm/cointerp.c
A pharo64src/vm/cointerp.h
A pharo64src/vm/exampleSqNamedPrims.h
A pharo64src/vm/gcc3x-cointerp.c
A pharo64src/vm/interp.h
A pharo64src/vm/vmCallback.h
A pharosrc/examplePlugins.ext
A pharosrc/examplePlugins.int
A pharosrc/plugins/ADPCMCodecPlugin/ADPCMCodecPlugin.c
A pharosrc/plugins/AioPlugin/AioPlugin.c
A pharosrc/plugins/AsynchFilePlugin/AsynchFilePlugin.c
A pharosrc/plugins/B2DPlugin/B2DPlugin.c
A pharosrc/plugins/B3DAcceleratorPlugin/B3DAcceleratorPlugin.c
A pharosrc/plugins/BMPReadWriterPlugin/BMPReadWriterPlugin.c
A pharosrc/plugins/BitBltPlugin/BitBltPlugin.c
A pharosrc/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c
A pharosrc/plugins/CroquetPlugin/CroquetPlugin.c
A pharosrc/plugins/DSAPrims/DSAPrims.c
A pharosrc/plugins/DropPlugin/DropPlugin.c
A pharosrc/plugins/EventsHandlerPlugin/EventsHandlerPlugin.c
A pharosrc/plugins/FFTPlugin/FFTPlugin.c
A pharosrc/plugins/FT2Plugin/FT2Plugin.c
A pharosrc/plugins/FilePlugin/FilePlugin.c
A pharosrc/plugins/FloatArrayPlugin/FloatArrayPlugin.c
A pharosrc/plugins/FloatMathPlugin/FloatMathPlugin.c
A pharosrc/plugins/GeniePlugin/GeniePlugin.c
A pharosrc/plugins/HostWindowPlugin/HostWindowPlugin.c
A pharosrc/plugins/IA32ABI/IA32ABI.c
A pharosrc/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c
A pharosrc/plugins/JPEGReaderPlugin/JPEGReaderPlugin.c
A pharosrc/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c
A pharosrc/plugins/Klatt/Klatt.c
A pharosrc/plugins/LargeIntegers/LargeIntegers.c
A pharosrc/plugins/LocalePlugin/LocalePlugin.c
A pharosrc/plugins/MIDIPlugin/MIDIPlugin.c
A pharosrc/plugins/Matrix2x3Plugin/Matrix2x3Plugin.c
A pharosrc/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c
A pharosrc/plugins/Mpeg3Plugin/Mpeg3Plugin.c
A pharosrc/plugins/ObjectiveCPlugin/ObjectiveCPlugin.c
A pharosrc/plugins/QuicktimePlugin/QuicktimePlugin.c
A pharosrc/plugins/RePlugin/RePlugin.c
A pharosrc/plugins/SDL2DisplayPlugin/SDL2DisplayPlugin.c
A pharosrc/plugins/SecurityPlugin/SecurityPlugin.c
A pharosrc/plugins/SerialPlugin/SerialPlugin.c
A pharosrc/plugins/SocketPlugin/SocketPlugin.c
A pharosrc/plugins/SoundCodecPrims/SoundCodecPrims.c
A pharosrc/plugins/SoundGenerationPlugin/SoundGenerationPlugin.c
A pharosrc/plugins/SoundPlugin/SoundPlugin.c
A pharosrc/plugins/SqueakFFIPrims/IA32FFIPlugin.c
A pharosrc/plugins/SqueakFFIPrims/SqueakFFIPrims.c
A pharosrc/plugins/SqueakSSL/SqueakSSL.c
A pharosrc/plugins/StarSqueakPlugin/StarSqueakPlugin.c
A pharosrc/plugins/TestOSAPlugin/TestOSAPlugin.c
A pharosrc/plugins/UUIDPlugin/UUIDPlugin.c
A pharosrc/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c
A pharosrc/plugins/ZipPlugin/ZipPlugin.c
A pharosrc/vm/cogit.c
A pharosrc/vm/cogit.h
A pharosrc/vm/cogitARMv5.c
A pharosrc/vm/cogitIA32.c
A pharosrc/vm/cogitMIPSEL.c
A pharosrc/vm/cogmethod.h
A pharosrc/vm/cointerp.c
A pharosrc/vm/cointerp.h
A pharosrc/vm/exampleSqNamedPrims.h
A pharosrc/vm/gcc3x-cointerp.c
A pharosrc/vm/interp.h
A pharosrc/vm/vmCallback.h
Log Message:
-----------
pharo sources as per VMMaker.oscog-eem.1950
Commit: e0c1bec83f05b2d65e2b9022b6cd9394f15aeff6
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/e0c1bec83f05b2d65e…
Author: Esteban Lorenzano <estebanlm(a)gmail.com>
Date: 2016-09-13 (Tue, 13 Sep 2016)
Changed paths:
M pharo64src/plugins/GeniePlugin/GeniePlugin.c
M pharo64src/vm/cogit.h
M pharo64src/vm/cogitX64.c
M pharo64src/vm/cointerp.c
M pharo64src/vm/cointerp.h
M pharo64src/vm/gcc3x-cointerp.c
M pharo64src/vm/interp.h
Log Message:
-----------
fix sources
Commit: 20a8d79ea9c34b29699e920af0ea7f250792dfe5
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/20a8d79ea9c34b2969…
Author: Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com>
Date: 2016-09-13 (Tue, 13 Sep 2016)
Changed paths:
A pharo64src/examplePlugins.ext
A pharo64src/examplePlugins.int
A pharo64src/plugins/ADPCMCodecPlugin/ADPCMCodecPlugin.c
A pharo64src/plugins/AioPlugin/AioPlugin.c
A pharo64src/plugins/AsynchFilePlugin/AsynchFilePlugin.c
A pharo64src/plugins/B2DPlugin/B2DPlugin.c
A pharo64src/plugins/B3DAcceleratorPlugin/B3DAcceleratorPlugin.c
A pharo64src/plugins/BMPReadWriterPlugin/BMPReadWriterPlugin.c
A pharo64src/plugins/BitBltPlugin/BitBltPlugin.c
A pharo64src/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c
A pharo64src/plugins/CroquetPlugin/CroquetPlugin.c
A pharo64src/plugins/DSAPrims/DSAPrims.c
A pharo64src/plugins/DropPlugin/DropPlugin.c
A pharo64src/plugins/EventsHandlerPlugin/EventsHandlerPlugin.c
A pharo64src/plugins/FFTPlugin/FFTPlugin.c
A pharo64src/plugins/FT2Plugin/FT2Plugin.c
A pharo64src/plugins/FilePlugin/FilePlugin.c
A pharo64src/plugins/FloatArrayPlugin/FloatArrayPlugin.c
A pharo64src/plugins/FloatMathPlugin/FloatMathPlugin.c
A pharo64src/plugins/GeniePlugin/GeniePlugin.c
A pharo64src/plugins/HostWindowPlugin/HostWindowPlugin.c
A pharo64src/plugins/IA32ABI/IA32ABI.c
A pharo64src/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c
A pharo64src/plugins/JPEGReaderPlugin/JPEGReaderPlugin.c
A pharo64src/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c
A pharo64src/plugins/Klatt/Klatt.c
A pharo64src/plugins/LargeIntegers/LargeIntegers.c
A pharo64src/plugins/LocalePlugin/LocalePlugin.c
A pharo64src/plugins/MIDIPlugin/MIDIPlugin.c
A pharo64src/plugins/Matrix2x3Plugin/Matrix2x3Plugin.c
A pharo64src/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c
A pharo64src/plugins/Mpeg3Plugin/Mpeg3Plugin.c
A pharo64src/plugins/ObjectiveCPlugin/ObjectiveCPlugin.c
A pharo64src/plugins/QuicktimePlugin/QuicktimePlugin.c
A pharo64src/plugins/RePlugin/RePlugin.c
A pharo64src/plugins/SDL2DisplayPlugin/SDL2DisplayPlugin.c
A pharo64src/plugins/SecurityPlugin/SecurityPlugin.c
A pharo64src/plugins/SerialPlugin/SerialPlugin.c
A pharo64src/plugins/SocketPlugin/SocketPlugin.c
A pharo64src/plugins/SoundCodecPrims/SoundCodecPrims.c
A pharo64src/plugins/SoundGenerationPlugin/SoundGenerationPlugin.c
A pharo64src/plugins/SoundPlugin/SoundPlugin.c
A pharo64src/plugins/SqueakFFIPrims/SqueakFFIPrims.c
A pharo64src/plugins/SqueakFFIPrims/X64SysVFFIPlugin.c
A pharo64src/plugins/SqueakSSL/SqueakSSL.c
A pharo64src/plugins/StarSqueakPlugin/StarSqueakPlugin.c
A pharo64src/plugins/TestOSAPlugin/TestOSAPlugin.c
A pharo64src/plugins/UUIDPlugin/UUIDPlugin.c
A pharo64src/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c
A pharo64src/plugins/ZipPlugin/ZipPlugin.c
A pharo64src/vm/cogit.c
A pharo64src/vm/cogit.h
A pharo64src/vm/cogitX64.c
A pharo64src/vm/cogmethod.h
A pharo64src/vm/cointerp.c
A pharo64src/vm/cointerp.h
A pharo64src/vm/exampleSqNamedPrims.h
A pharo64src/vm/gcc3x-cointerp.c
A pharo64src/vm/interp.h
A pharo64src/vm/vmCallback.h
A pharosrc/examplePlugins.ext
A pharosrc/examplePlugins.int
A pharosrc/plugins/ADPCMCodecPlugin/ADPCMCodecPlugin.c
A pharosrc/plugins/AioPlugin/AioPlugin.c
A pharosrc/plugins/AsynchFilePlugin/AsynchFilePlugin.c
A pharosrc/plugins/B2DPlugin/B2DPlugin.c
A pharosrc/plugins/B3DAcceleratorPlugin/B3DAcceleratorPlugin.c
A pharosrc/plugins/BMPReadWriterPlugin/BMPReadWriterPlugin.c
A pharosrc/plugins/BitBltPlugin/BitBltPlugin.c
A pharosrc/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c
A pharosrc/plugins/CroquetPlugin/CroquetPlugin.c
A pharosrc/plugins/DSAPrims/DSAPrims.c
A pharosrc/plugins/DropPlugin/DropPlugin.c
A pharosrc/plugins/EventsHandlerPlugin/EventsHandlerPlugin.c
A pharosrc/plugins/FFTPlugin/FFTPlugin.c
A pharosrc/plugins/FT2Plugin/FT2Plugin.c
A pharosrc/plugins/FilePlugin/FilePlugin.c
A pharosrc/plugins/FloatArrayPlugin/FloatArrayPlugin.c
A pharosrc/plugins/FloatMathPlugin/FloatMathPlugin.c
A pharosrc/plugins/GeniePlugin/GeniePlugin.c
A pharosrc/plugins/HostWindowPlugin/HostWindowPlugin.c
A pharosrc/plugins/IA32ABI/IA32ABI.c
A pharosrc/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c
A pharosrc/plugins/JPEGReaderPlugin/JPEGReaderPlugin.c
A pharosrc/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c
A pharosrc/plugins/Klatt/Klatt.c
A pharosrc/plugins/LargeIntegers/LargeIntegers.c
A pharosrc/plugins/LocalePlugin/LocalePlugin.c
A pharosrc/plugins/MIDIPlugin/MIDIPlugin.c
A pharosrc/plugins/Matrix2x3Plugin/Matrix2x3Plugin.c
A pharosrc/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c
A pharosrc/plugins/Mpeg3Plugin/Mpeg3Plugin.c
A pharosrc/plugins/ObjectiveCPlugin/ObjectiveCPlugin.c
A pharosrc/plugins/QuicktimePlugin/QuicktimePlugin.c
A pharosrc/plugins/RePlugin/RePlugin.c
A pharosrc/plugins/SDL2DisplayPlugin/SDL2DisplayPlugin.c
A pharosrc/plugins/SecurityPlugin/SecurityPlugin.c
A pharosrc/plugins/SerialPlugin/SerialPlugin.c
A pharosrc/plugins/SocketPlugin/SocketPlugin.c
A pharosrc/plugins/SoundCodecPrims/SoundCodecPrims.c
A pharosrc/plugins/SoundGenerationPlugin/SoundGenerationPlugin.c
A pharosrc/plugins/SoundPlugin/SoundPlugin.c
A pharosrc/plugins/SqueakFFIPrims/IA32FFIPlugin.c
A pharosrc/plugins/SqueakFFIPrims/SqueakFFIPrims.c
A pharosrc/plugins/SqueakSSL/SqueakSSL.c
A pharosrc/plugins/StarSqueakPlugin/StarSqueakPlugin.c
A pharosrc/plugins/TestOSAPlugin/TestOSAPlugin.c
A pharosrc/plugins/UUIDPlugin/UUIDPlugin.c
A pharosrc/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c
A pharosrc/plugins/ZipPlugin/ZipPlugin.c
A pharosrc/vm/cogit.c
A pharosrc/vm/cogit.h
A pharosrc/vm/cogitARMv5.c
A pharosrc/vm/cogitIA32.c
A pharosrc/vm/cogitMIPSEL.c
A pharosrc/vm/cogmethod.h
A pharosrc/vm/cointerp.c
A pharosrc/vm/cointerp.h
A pharosrc/vm/exampleSqNamedPrims.h
A pharosrc/vm/gcc3x-cointerp.c
A pharosrc/vm/interp.h
A pharosrc/vm/vmCallback.h
Log Message:
-----------
Merge pull request #54 from estebanlm/Cog
Pharo sources as per VMMaker.oscog-eem.1950
Note: curiosity will lead to later diff those with spursrc/spur64src to see if we can merge back.
Unless pharo team wants to be able to regenerate without the green light of Eliot?
Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/ddf2aa41f18c...20…
2
1
I'm able to (quite often, but not deterministically*) trigger an "insufficient object memory" primitive failure in elementsForwardIdentityTo:
when trying to convert a large ByteString to WideString, both in Squeak 5.0 and Pharo 5.0.
AFAICT, these are both 32bit Spur images**, and in
SpurMemoryManager >> containsOnlyValidBecomeObjects: array1 and: array2 twoWay: isTwoWay copyHash: copyHash
Otherwise answer an informative error code for the first offending object found:
*snip*
Two-way become may require memory to create copies => PrimErrNoMemory.
Size is initialized to 0, and only set in an isTwoWay ifTrue: branch (which elementsForwardIdentityTo: is not), so in
size >= (totalFreeOldSpace + (scavengeThreshold - freeStart)) ifTrue:
[^PrimErrNoMemory].
either there's a signed/unsigned mismatch + overflow, or the right side of the equation can equal 0.
Will the needed allocation fail if size = , or can changing to a > be enough to avoid intermittent failures for forward becomes?
And how would proper handling code (which, afaict, is absent from both Pharo and Squeak) that ensures enough space will be available before retrying, look?
Or am I looking in entirely the wrong place, and in the VMs mentioned, the code raising the error resides in another castl... err, class?
Cheers,
Henry
*This seemed to fail at least 50% of the time in fresh Squeak 5.0 release and Pharo 5.0, with large periods of everything working "as expected" in between:
str := ByteString new: 1024*1023*3.
str at: 1 put: (Character value: 16r20AC).
**
Can trigger using:
------
Pharo image 50753 + VM (Mac):
Mac Cocoa Cog 5.8b12 21-Sep-10 >1B0534FA-246C-47C5-AB29-7A76C81CCDCB<
VMMaker versionString https://github.com/estebanlm/pharo-vm.git Commit: 6dc730123e8f2b0327839b235d16e0604a92288e Date: 2015-12-13 00:23:41 +0100 By: Esteban Lorenzano <estebanlm(a)gmail.com> Jenkins build #456
CoInterpreter * VMMaker.oscog-rmacnak.1586 uuid: 8e44b2a7-68ee-4fc9-8513-a04520267053 Dec 13 2015
StackToRegisterMappingCogit * VMMaker.oscog-rmacnak.1586 uuid: 8e44b2a7-68ee-4fc9-8513-a04520267053 Dec 13 2015
------
Pharo image 50759 + VM (Win):
Win32 built on May 4 2016 12:17:02 Compiler: 4.6.2
VMMaker versionString https://github.com/pharo-project/pharo-vm.git Commit: b8ec25a570d7539653e1d793e97609adb509aaed Date: 2016-05-04 11:14:22 +0200 By: Esteban Lorenzano <estebanlm(a)gmail.com> Jenkins build #589
CoInterpreter VMMaker.oscog-eem.1855 uuid: d8e4a3c2-a3bf-4adc-b224-8012903a1ef4 May 4 2016
StackToRegisterMappingCogit VMMaker.oscog-eem.1855 uuid: d8e4a3c2-a3bf-4adc-b224-8012903a1ef4 May 4 2016
------
Squeak5.0 latest update: #15117 + VM (Mac):
Croquet Closure Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.1405] 5.0
Mac OS X built on Jul 6 2015 19:01:28 UTC Compiler: 4.2.1 (Apple Inc. build 5666) (dot 3)
platform sources revision VM: r3397 http://www.squeakvm.org/svn/squeak/branches/Cog Date: 2015-07-06 11:56:39 -0700 Plugins: r3347 http://squeakvm.org/svn/squeak/trunk/platforms/Cross/plugins
CoInterpreter VMMaker.oscog-eem.1405 uuid: 7aff388a-73ba-4202-bb5a-72b0759ff46b Jul 6 2015
StackToRegisterMappingCogit VMMaker.oscog-eem.1401 uuid: 036f0933-639a-49dd-8a1d-a03bcdcb0a0a Jul 6 2015
5
4
David T. Lewis uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker-dtl.386.mcz
==================== Summary ====================
Name: VMMaker-dtl.386
Author: dtl
Time: 11 September 2016, 6:36:12.597 pm
UUID: 2f6df284-6ad4-41d3-a07b-040737720714
Ancestors: VMMaker-dtl.385
VMMaker 4.15.8
Update primitiveAdoptInstance and related methods from latest oscog. Resolves a problem in which primitive could fail but still modify the stack.
Add SlangTest>>testStatementListAsExpression to document a missing feature from oscog code generator not yet present here. Reorganize objCouldBeClassObj: to avoid the feature.
=============== Diff against VMMaker-dtl.385 ===============
Item was removed:
- ----- Method: ContextInterpreter>>changeClassOf:to: (in category 'object access primitives') -----
- changeClassOf: rcvr to: argClass
- "Change the class of the receiver into the class specified by the argument given that the format of the receiver matches the format of the argument. Fail if receiver or argument are SmallIntegers, or the receiver is an instance of a compact class and the argument isn't, or when the argument's class is compact and the receiver isn't, or when the format of the receiver is different from the format of the argument's class, or when the arguments class is fixed and the receiver's size differs from the size that an instance of the argument's class should have."
- | classHdr sizeHiBits byteSize argFormat rcvrFormat ccIndex |
- "Check what the format of the class says"
- classHdr := objectMemory formatOfClass: argClass. "Low 2 bits are 0"
-
- "Compute the size of instances of the class (used for fixed field classes only)"
- sizeHiBits := (classHdr bitAnd: 16r60000) >> 9.
- classHdr := classHdr bitAnd: 16r1FFFF.
- byteSize := (classHdr bitAnd: objectMemory sizeMask) + sizeHiBits. "size in bytes -- low 2 bits are 0"
-
- "Check the receiver's format against that of the class"
- argFormat := (classHdr >> 8) bitAnd: 16rF.
- rcvrFormat := objectMemory formatOf: rcvr.
- argFormat = rcvrFormat ifFalse:[^self primitiveFail]. "no way"
-
- "For fixed field classes, the sizes must match.
- Note: byteSize-4 because base header is included in class size."
- argFormat < 2 ifTrue:[(byteSize - 4) = (objectMemory byteSizeOf: rcvr) ifFalse:[^self primitiveFail]].
-
- (objectMemory headerType: rcvr) = HeaderTypeShort
- ifTrue:[ "Compact classes. Check if the arg's class is compact and exchange ccIndex"
- ccIndex := classHdr bitAnd: CompactClassMask.
- ccIndex = 0 ifTrue:[^self primitiveFail]. "class is not compact"
- objectMemory longAt: rcvr put:
- (((objectMemory longAt: rcvr) bitAnd: CompactClassMask bitInvert32)
- bitOr: ccIndex)]
- ifFalse:["Exchange the class pointer, which could make rcvr a root for argClass"
- objectMemory longAt: rcvr - objectMemory baseHeaderSize put: (argClass bitOr: (objectMemory headerType: rcvr)).
- (objectMemory oop: rcvr isLessThan: objectMemory getYoungStart)
- ifTrue: [objectMemory possibleRootStoreInto: rcvr value: argClass]]!
Item was removed:
- ----- Method: ContextInterpreter>>primitiveChangeClassWithClass (in category 'object access primitives') -----
- primitiveChangeClassWithClass
- "Primitive. Change the class of the receiver into the class of the argument given that the format of the receiver matches the format of the argument's class. Fail if receiver or argument are SmallIntegers, or the receiver is an instance of a compact class and the argument isn't, or when the argument's class is compact and the receiver isn't, or when the format of the receiver is different from the format of the argument's class, or when the arguments class is fixed and the receiver's size differs from the size that an instance of the argument's class should have."
- | rcvr argClass |
- <export: true>
- self methodArgumentCount = 1 ifFalse: [self primitiveFail. ^ nil].
-
- argClass := self stackObjectValue: 0.
- rcvr := self stackObjectValue: 1.
-
- self changeClassOf: rcvr to: argClass.
- self successful ifTrue: [ self flushAtCache. self pop: 1 ].
- ^ nil.
- !
Item was added:
+ ----- Method: Interpreter>>objCouldBeClassObj: (in category 'debug support') -----
+ objCouldBeClassObj: objOop
+ "Answer if objOop looks like a class object. WIth Spur be lenient if the object doesn't
+ yet have a hash (i.e. is not yet in the classTable), and accept forwarding pointers."
+ <api>
+ | fieldOop |
+ self flag: #FIXME. "dtl - Reorganized to work around limitation in code generator, need oscog updates for code gen. Original oscog implementation is in class StackInterpreter."
+ [objectMemory isPointersNonImm: objOop] ifTrue: [^ false].
+ (objectMemory numSlotsOf: objOop) > InstanceSpecificationIndex
+ ifTrue: [fieldOop := objectMemory fetchPointer: SuperclassIndex ofObject: objOop.
+ ((objectMemory addressCouldBeObj: fieldOop)
+ and: [(objectMemory isPointersNonImm: fieldOop)
+ or: [(objectMemory isOopForwarded: fieldOop)
+ and: [objectMemory
+ isPointers: (objectMemory followForwarded: fieldOop)]]])
+ ifTrue: [fieldOop := objectMemory fetchPointer: MethodDictionaryIndex ofObject: objOop.
+ ^ (((objectMemory addressCouldBeObj: fieldOop)
+ and: [(objectMemory isPointersNonImm: fieldOop)
+ or: [(objectMemory isOopForwarded: fieldOop)
+ and: [objectMemory
+ isPointers: (objectMemory followForwarded: fieldOop)]]])
+ and: [objectMemory
+ isIntegerObject: (objectMemory fetchPointer: InstanceSpecificationIndex ofObject: objOop)])]].
+ ^ false!
Item was changed:
----- Method: InterpreterPrimitives>>primitiveAdoptInstance (in category 'object access primitives') -----
primitiveAdoptInstance
"Primitive. Change the class of the argument to make it an instance of the receiver
given that the format of the receiver matches the format of the argument's class.
Fail if receiver or argument are SmallIntegers, or the receiver is an instance of a
compact class and the argument isn't, or when the argument's class is compact and
the receiver isn't, or when the format of the receiver is different from the format of
the argument's class, or when the arguments class is fixed and the receiver's size
differs from the size that an instance of the argument's class should have."
| rcvr arg err |
+ arg := self stackTop.
+ rcvr := self stackValue: 1.
+ ((objectMemory isImmediate: arg)
+ or: [argumentCount > 1
+ and: [(objectMemory isImmediate: rcvr)
+ or: [(self objCouldBeClassObj: rcvr) not]]]) ifTrue:
+ [^self primitiveFailFor: PrimErrBadArgument].
- arg := self stackObjectValue: 0.
- rcvr := self stackObjectValue: 1.
+ err := objectMemory changeClassOf: arg to: rcvr.
- err := self changeClassOf: arg to: rcvr.
err = 0
ifTrue: ["Flush at cache because rcvr's class has changed."
self flushAtCache.
self pop: self methodArgumentCount]
+ ifFalse: [self primitiveFailFor: err].
- ifFalse: [self primitiveFail].
^nil!
Item was changed:
----- Method: InterpreterPrimitives>>primitiveChangeClass (in category 'object access primitives') -----
primitiveChangeClass
+ "Primitive. Change the class of the receiver into the class of the argument given that
+ the format of the receiver matches the format of the argument's class. Fail if the
+ receiver or argument are SmallIntegers, or the receiver is an instance of a compact
+ class and the argument isn't, or when the argument's class is compact and the receiver
+ isn't, or when the format of the receiver is different from the format of the argument's
+ class, or when the arguments class is fixed and the receiver's size differs from the size
+ that an instance of the argument's class should have."
+ | arg rcvr argClass err |
- "Primitive. Change the class of the receiver into the class of the argument given that the format of the receiver matches the format of the argument's class. Fail if receiver or argument are SmallIntegers, or the receiver is an instance of a compact class and the argument isn't, or when the argument's class is compact and the receiver isn't, or when the format of the receiver is different from the format of the argument's class, or when the arguments class is fixed and the receiver's size differs from the size that an instance of the argument's class should have."
- | arg rcvr argClass |
-
- self methodArgumentCount = 1 ifFalse: [self primitiveFail. ^ nil].
-
arg := self stackObjectValue: 0.
rcvr := self stackObjectValue: 1.
+ self successful ifFalse:[^nil].
+ argClass := objectMemory fetchClassOfNonImm: arg.
+ err := objectMemory changeClassOf: rcvr to: argClass.
+ err = 0
+ ifTrue: ["Flush at cache because rcvr's class has changed."
+ self flushAtCache.
+ self pop: self methodArgumentCount]
+ ifFalse: [self primitiveFailFor: err].
+ ^nil!
- argClass := objectMemory fetchClassOf: arg.
- self changeClassOf: rcvr to: argClass.
- self successful ifTrue: [ self flushAtCache. self pop: 1 ].
- ^ nil.
- !
Item was added:
+ ----- Method: ObjectMemory>>arrayFormat (in category 'header formats') -----
+ arrayFormat
+ <api>
+ ^2!
Item was added:
+ ----- Method: ObjectMemory>>baseHeader:put: (in category 'header access') -----
+ baseHeader: oop put: aWord
+
+ ^ self longAt: oop put: aWord!
Item was added:
+ ----- Method: ObjectMemory>>changeClassOf:to: (in category 'interpreter access') -----
+ changeClassOf: rcvr to: argClass
+ "Attempt to change the class of the receiver to the argument given that the
+ format of the receiver matches the format of the argument. If successful,
+ answer 0, otherwise answer an error code indicating the reason for failure.
+ Fail if the receiver is an instance of a compact class and the argument isn't,
+ or if the format of the receiver is incompatible with the format of the argument,
+ or if the argument is a fixed class and the receiver's size differs from the size
+ that an instance of the argument should have."
+ | classHdr sizeHiBits argClassInstByteSize argFormat rcvrFormat rcvrHdr ccIndex |
+ "Check what the format of the class says"
+ classHdr := self formatOfClass: argClass. "Low 2 bits are 0"
+
+ "Compute the size of instances of the class (used for fixed field classes only)"
+ sizeHiBits := (classHdr bitAnd: 16r60000) >> 9.
+ classHdr := classHdr bitAnd: 16r1FFFF.
+ argClassInstByteSize := (classHdr bitAnd: self sizeMask) + sizeHiBits. "size in bytes -- low 2 bits are 0"
+
+ "Check the receiver's format against that of the class"
+ argFormat := self formatOfHeader: classHdr.
+ rcvrHdr := self baseHeader: rcvr.
+ rcvrFormat := self formatOfHeader: rcvrHdr.
+ "If the receiver is a byte object we need to clear the number of odd bytes from the format."
+ rcvrFormat > self firstByteFormat ifTrue:
+ [rcvrFormat := rcvrFormat bitAnd: 16rC].
+ argFormat = rcvrFormat ifFalse:
+ [^PrimErrInappropriate]. "no way"
+
+ "For fixed field classes, the sizes must match.
+ Note: argClassInstByteSize-4 because base header is included in class size."
+ argFormat < self arrayFormat
+ ifTrue:
+ [(argClassInstByteSize - self baseHeaderSize) ~= (self numBytesOf: rcvr) ifTrue:
+ [^PrimErrBadReceiver]]
+ ifFalse:
+ [argFormat = self indexablePointersFormat ifTrue: "For indexable plus fixed fields the receiver must be at least big enough."
+ [(argClassInstByteSize - self baseHeaderSize) > (self numBytesOf: rcvr) ifTrue:
+ [^PrimErrBadReceiver]]].
+
+ (self headerTypeOfHeader: rcvrHdr) = HeaderTypeShort
+ ifTrue: "Compact classes. Check if the arg's class is compact and exchange ccIndex"
+ [ccIndex := classHdr bitAnd: CompactClassMask.
+ ccIndex = 0 ifTrue:
+ [^PrimErrInappropriate]. "class is not compact"
+ "self cppIf: IMMUTABILITY
+ ifTrue: [(rcvrHdr bitAnd: ImmutabilityBit) ~= 0 ifTrue:
+ [^PrimErrNoModification]]."
+ self baseHeader: rcvr put: ((rcvrHdr bitClear: CompactClassMask) bitOr: ccIndex)]
+ ifFalse: "Exchange the class pointer, which could make rcvr a root for argClass"
+ ["self cppIf: IMMUTABILITY
+ ifTrue: [(rcvrHdr bitAnd: ImmutabilityBit) ~= 0 ifTrue:
+ [^PrimErrNoModification]]."
+ "N.B. the recursive scan-mark algorithm uses the header word's size and compact class
+ fields to determine the header type when it reuses the header type bits for the mark
+ state. So it is alas an invariant that non-compact headers have a 0 compact class field."
+ (self compactClassIndexOfHeader: rcvrHdr) ~= 0 ifTrue:
+ [self baseHeader: rcvr put: (rcvrHdr bitClear: CompactClassMask)].
+ self longAt: rcvr - self baseHeaderSize put: (argClass bitOr: (self headerTypeOfHeader: rcvrHdr)).
+ (self oop: rcvr isLessThan: youngStart) ifTrue:
+ [self possibleRootStoreInto: rcvr value: argClass]].
+ "ok"
+ ^0!
Item was added:
+ ----- Method: ObjectMemory>>compactClassAt: (in category 'interpreter access') -----
+ compactClassAt: ccIndex
+ "Index must be between 1 and compactClassArray size. A zero compact class
+ index in the base header indicates that the class is in the class header word."
+ <api>
+ <inline: true>
+ ^self fetchPointer: ccIndex - 1 ofObject: (self splObj: CompactClasses)!
Item was added:
+ ----- Method: ObjectMemory>>fetchClassOfNonImm: (in category 'object access') -----
+ fetchClassOfNonImm: oop
+ | ccIndex |
+ <inline: true>
+ ^(ccIndex := (self compactClassIndexOf: oop)) = 0
+ ifTrue: [(self classHeader: oop) bitAnd: self allButTypeMask]
+ ifFalse: [self compactClassAt: ccIndex]!
Item was added:
+ ----- Method: ObjectMemory>>firstByteFormat (in category 'header formats') -----
+ firstByteFormat
+ <api>
+ <cmacro>
+ ^8!
Item was changed:
----- Method: ObjectMemory>>firstCompiledMethodFormat (in category 'header formats') -----
firstCompiledMethodFormat
<api>
+ <cmacro>
^12!
Item was added:
+ ----- Method: ObjectMemory>>firstLongFormat (in category 'header formats') -----
+ firstLongFormat
+ <api>
+ <cmacro>
+ ^6!
Item was added:
+ ----- Method: ObjectMemory>>firstStringyFakeFormat (in category 'header formats') -----
+ firstStringyFakeFormat
+ "A fake format for the interpreter used to mark indexable strings in
+ the interpreter's at cache. This is larger than any format."
+ ^16!
Item was added:
+ ----- Method: ObjectMemory>>followForwarded: (in category 'spur compatibility') -----
+ followForwarded: objOop
+ <inline: false>
+ "self shouldNotImplement."
+ ^0!
Item was added:
+ ----- Method: ObjectMemory>>headerTypeOfHeader: (in category 'header access') -----
+ headerTypeOfHeader: header
+
+ ^header bitAnd: TypeMask!
Item was changed:
----- Method: ObjectMemory>>indexablePointersFormat (in category 'header formats') -----
indexablePointersFormat
<api>
+ <cmacro>
^3!
Item was added:
+ ----- Method: ObjectMemory>>isImmediate: (in category 'interpreter access') -----
+ isImmediate: anOop
+ <api>
+ ^self isIntegerObject: anOop!
Item was added:
+ ----- Method: ObjectMemory>>isOopForwarded: (in category 'interpreter access') -----
+ isOopForwarded: oop
+ "Compatibility wth SpurMemoryManager. In ObjectMemory, no forwarding pointers
+ are visible to the VM."
+ <inline: true>
+ ^false!
Item was added:
+ ----- Method: ObjectMemory>>isPointersNonImm: (in category 'header access') -----
+ isPointersNonImm: oop
+ "Answer if the argument has only fields that can hold oops. See comment in formatOf:"
+
+ ^(self formatOf: oop) <= self lastPointerFormat!
Item was added:
+ ----- Method: ObjectMemory>>numBytesOf: (in category 'object access') -----
+ numBytesOf: objOop
+ "Answer the number of indexable bytes in the given non-immediate object.
+ Does not adjust the size of contexts by stackPointer."
+ <api>
+ | header sz fmt |
+ header := self baseHeader: objOop.
+ sz := (header bitAnd: TypeMask) = HeaderTypeSizeAndClass
+ ifTrue: [(self sizeHeader: objOop) bitAnd: self allButTypeMask]
+ ifFalse: [header bitAnd: self sizeMask].
+ fmt := self formatOfHeader: header.
+ ^fmt < self firstByteFormat
+ ifTrue: [(sz - self baseHeaderSize)] "words"
+ ifFalse: [(sz - self baseHeaderSize) - (fmt bitAnd: 3)] "bytes"!
Item was added:
+ ----- Method: ObjectMemory>>numSlotsOf: (in category 'object access') -----
+ numSlotsOf: obj
+ "Answer the number of oop-sized elements in the given object.
+ Unlike lengthOf: this does not adjust the length of a context
+ by the stackPointer and so can be used e.g. by cloneContext:"
+ <api>
+ | header sz |
+ header := self baseHeader: obj.
+ sz := (header bitAnd: TypeMask) = HeaderTypeSizeAndClass
+ ifTrue: [(self sizeHeader: obj) bitAnd: self allButTypeMask]
+ ifFalse: [header bitAnd: self sizeMask].
+ ^sz - self baseHeaderSize >> self shiftForWord!
Item was added:
+ ----- Method: ObjectMemory>>sixtyFourBitIndexableFormat (in category 'header formats') -----
+ sixtyFourBitIndexableFormat
+ ^7!
Item was added:
+ ----- Method: ObjectMemory>>weakArrayFormat (in category 'header formats') -----
+ weakArrayFormat
+ <api>
+ <cmacro>
+ ^4!
Item was added:
+ ----- Method: SlangTest>>testStatementListAsExpression (in category 'testing interpreter') -----
+ testStatementListAsExpression
+ "When a list of statements is used in a target block of an ifTrue:ifFalse: or
+ similar, use comma as the statement separator in the generated C.
+ Motivated by #objCouldBeClassObj: implementation in oscog."
+
+ "(SlangTest selector: #testStatementListAsExpression) debug"
+
+ | stssi s |
+ stssi := SlangTestSupportInterpreter inline: true.
+ self halt.
+ s := stssi asCString: #statementListAsExpression.
+
+ self deny: ['*BAR;*BAZ*' match: s]. "terminator character following BAR should not be a semicolon"
+ self assert: ['*BAR,*BAZ*' match: s]. "instead,use comma to separate statements within expression"
+ !
Item was added:
+ ----- Method: SlangTestSupportInterpreter>>statementListAsExpression (in category 'blocks and conditionals') -----
+ statementListAsExpression
+ "The #BAR and #BAZ statement list should generate statements separated by
+ comma rather than terminated by semicolon."
+ ^#FOO
+ and: [
+ #BAR.
+ #BAZ
+ ]!
Item was changed:
----- Method: VMMaker class>>versionString (in category 'version testing') -----
versionString
"VMMaker versionString"
+ ^'4.15.8'!
- ^'4.15.7'!
1
0
Nicolas Cellier uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscogLLP64-nice.1951.mcz
==================== Summary ====================
Name: VMMaker.oscogLLP64-nice.1951
Author: nice
Time: 11 September 2016, 2:29:49.382 pm
UUID: 80866247-7459-a545-ad08-1f43c42fd48b
Ancestors: VMMaker.oscog-eem.1950
Rebase LLP64 changes on VMMaker.oscog-eem.1950
=============== Diff against VMMaker.oscog-eem.1950 ===============
Item was changed:
----- Method: BitBltSimulation>>rgbComponentAlpha32 (in category 'combination rules') -----
rgbComponentAlpha32
"This version assumes
combinationRule = 41
sourcePixSize = destPixSize = 32
sourceForm ~= destForm.
Note: The inner loop has been optimized for dealing
with the special case of aR = aG = aB = 0
"
| srcIndex dstIndex sourceWord srcAlpha destWord deltaX deltaY srcY dstY |
<inline: false> "This particular method should be optimized in itself"
"Give the compile a couple of hints"
+ <var: #deltaX type: 'register sqInt'>
- <var: #deltaX type: 'register long'>
<var: #sourceWord type: #'unsigned int'>
<var: #destWord type: #'unsigned int'>
"The following should be declared as pointers so the compiler will
notice that they're used for accessing memory locations
(good to know on an Intel architecture) but then the increments
would be different between ST code and C code so must hope the
compiler notices what happens (MS Visual C does)"
+ <var: #srcIndex type: 'register sqIntptr_t'>
+ <var: #dstIndex type: 'register sqIntptr_t'>
- <var: #srcIndex type: 'register long'>
- <var: #dstIndex type: 'register long'>
deltaY := bbH + 1. "So we can pre-decrement"
srcY := sy.
dstY := dy.
"This is the outer loop"
[(deltaY := deltaY - 1) ~= 0] whileTrue:[
srcIndex := sourceBits + (srcY * sourcePitch) + (sx * 4).
dstIndex := destBits + (dstY * destPitch) + (dx * 4).
deltaX := bbW + 1. "So we can pre-decrement"
"This is the inner loop"
[(deltaX := deltaX - 1) ~= 0] whileTrue:[
sourceWord := self srcLongAt: srcIndex.
srcAlpha := sourceWord bitAnd:16rFFFFFF.
srcAlpha = 0 ifTrue:[
srcIndex := srcIndex + 4.
dstIndex := dstIndex + 4.
"Now skip as many words as possible,"
[(deltaX := deltaX - 1) ~= 0 and:[
((sourceWord := self srcLongAt: srcIndex) bitAnd:16rFFFFFF) = 0]]
whileTrue:[
srcIndex := srcIndex + 4.
dstIndex := dstIndex + 4.
].
"Adjust deltaX"
deltaX := deltaX + 1.
] ifFalse:[ "0 < srcAlpha"
"If we have to mix colors then just copy a single word"
destWord := self dstLongAt: dstIndex.
destWord := self rgbComponentAlpha32: sourceWord with: destWord.
self dstLongAt: dstIndex put: destWord.
srcIndex := srcIndex + 4.
dstIndex := dstIndex + 4.
].
].
srcY := srcY + 1.
dstY := dstY + 1.
].!
Item was added:
+ ----- Method: CCodeGenerator>>generateAsIntegerPtr:on:indent: (in category 'C translation') -----
+ generateAsIntegerPtr: msgNode on: aStream indent: level
+ "Generate the C code for this message onto the given stream."
+
+ aStream nextPutAll:'((sqIntptr_t)'.
+ self emitCExpression: msgNode receiver on: aStream.
+ aStream nextPut: $)!
Item was added:
+ ----- Method: CCodeGenerator>>generateAsUnsignedIntegerPtr:on:indent: (in category 'C translation') -----
+ generateAsUnsignedIntegerPtr: msgNode on: aStream indent: level
+ "Generate the C code for this message onto the given stream."
+
+ aStream nextPutAll:'((usqIntptr_t)'.
+ self emitCExpression: msgNode receiver on: aStream.
+ aStream nextPut: $)!
Item was changed:
----- Method: CCodeGenerator>>generateIntegerObjectOf:on:indent: (in category 'C translation') -----
generateIntegerObjectOf: msgNode on: aStream indent: level
"Generate the C code for this message onto the given stream."
+ | expr mustCastToUnsigned type typeIsUnsigned |
- | expr castToSqint |
expr := msgNode args first.
aStream nextPutAll: '(('.
"Note that the default type of an integer constant in C is int. Hence we /must/
+ cast expression to long if in the 64-bit world, since e.g. in 64-bits
- cast constants to long if in the 64-bit world, since e.g. in 64-bits
(int)(16r1FFFFF << 3) = (int)16rFFFFFFF8 = -8
whereas
(long)(16r1FFFFF << 3) = (long) 16rFFFFFFF8 = 4294967288."
+ type := self typeFor: expr in: currentMethod.
+ typeIsUnsigned := type first = $u.
+ mustCastToUnsigned := typeIsUnsigned not
+ or: [(self sizeOfIntegralCType: type) < (self sizeOfIntegralCType: #usqInt)].
+ mustCastToUnsigned ifTrue:
+ [aStream nextPutAll: '(usqInt)'].
- castToSqint := expr isConstant and: [vmClass isNil or: [vmClass objectMemoryClass wordSize = 8]].
- castToSqint ifTrue:
- [aStream nextPutAll: '(sqInt)'].
self emitCExpression: expr on: aStream.
aStream
nextPutAll: ' << ';
print: vmClass objectMemoryClass numSmallIntegerTagBits;
nextPutAll: ') | 1)'!
Item was changed:
----- Method: CCodeGenerator>>generateShiftLeft:on:indent: (in category 'C translation') -----
generateShiftLeft: msgNode on: aStream indent: level
"Generate a C bitShift. If we can determine the result
would overflow the word size, cast to a long integer."
| rcvr arg castToLong type mustCastBackToSign mustCastToUnsigned canSuffixTheConstant typeIsUnsigned |
rcvr := msgNode receiver.
arg := msgNode args first.
castToLong := false.
rcvr constantNumbericValueOrNil ifNotNil:
[:rcvrVal |
arg constantNumbericValueOrNil
+ ifNil: [castToLong := self isForBoth32Or64Bits or: [vmClass notNil and: [vmClass objectMemoryClass wordSize = 8]]]
- ifNil: [castToLong := vmClass notNil and: [vmClass objectMemoryClass wordSize = 8]]
ifNotNil:
[:argVal |
| valueBeyondInt |
valueBeyondInt := 1 bitShift: 32. "The default type of const << N is int."
castToLong := rcvrVal < valueBeyondInt
and: [(rcvrVal bitShift: argVal) >= valueBeyondInt]]].
canSuffixTheConstant := rcvr isConstant and: [rcvr name isEmpty and: [rcvr value >= 0]].
canSuffixTheConstant
ifTrue:
[aStream nextPutAll: (self cLiteralForUnsignedInteger: rcvr value longlong: castToLong).
aStream nextPutAll: ' << '.
self emitCExpression: arg on: aStream indent: level.
^self].
type := self typeFor: rcvr in: currentMethod.
castToLong := castToLong and: [(self sizeOfIntegralCType: type) < (self sizeOfIntegralCType: #usqLong)].
typeIsUnsigned := type first = $u.
mustCastToUnsigned := typeIsUnsigned not
or: [castToLong
or: [(self sizeOfIntegralCType: type) < (self sizeOfIntegralCType: #usqInt)]].
mustCastBackToSign := typeIsUnsigned not.
mustCastBackToSign
ifTrue:
[| promotedType |
promotedType := castToLong
ifTrue: [#sqLong]
ifFalse: [(self sizeOfIntegralCType: type) < (self sizeOfIntegralCType: #sqInt)
ifTrue: [#sqInt]
ifFalse: [type]].
aStream nextPutAll: '(('; nextPutAll: promotedType; nextPut: $)].
mustCastToUnsigned
ifTrue:
[| unsigned |
unsigned := castToLong
ifTrue: [#usqLong]
ifFalse: [(self sizeOfIntegralCType: type) < (self sizeOfIntegralCType: #usqLong)
ifTrue: [#usqInt]
ifFalse: [self unsignedTypeForIntegralType: type]].
aStream nextPutAll: '(('; nextPutAll: unsigned; nextPutAll: ')('].
self emitCExpression: rcvr on: aStream indent: level.
mustCastToUnsigned ifTrue: [aStream nextPut: $)].
aStream nextPutAll: ' << '.
self emitCExpression: arg on: aStream indent: level.
mustCastToUnsigned ifTrue: [aStream nextPut: $)].
mustCastBackToSign ifTrue: [aStream nextPut: $)].!
Item was changed:
----- Method: CCodeGenerator>>generateShiftRight:on:indent: (in category 'C translation') -----
generateShiftRight: msgNode on: aStream indent: level
"Generate the C code for this message onto the given stream."
+ | type isUnsigned mustCastBackToSigned mustCastToUnsigned |
- | type |
"If the variable is a 64-bit type then don't cast it to usqInt (typically a 32-bit type)"
+ type := self typeFor: msgNode receiver in: currentMethod.
+ isUnsigned := type first = $u.
+ mustCastToUnsigned := isUnsigned not.
+ mustCastBackToSigned := false "isUnsigned not". "FOR COMPATIBILITY WITH OLDER BEHAVIOUR, THIS MUST BE SO..."
+
+ "If not unsigned, cast it to unsigned, and eventually cast the result back to original type."
+ mustCastBackToSigned ifTrue:
+ [aStream nextPut: $(; nextPut: $(; nextPutAll: type; nextPut: $)].
+ mustCastToUnsigned ifTrue:
+ [aStream nextPut: $(; nextPut: $(; nextPutAll: (self unsignedTypeForIntegralType: type); nextPut: $)].
+ self emitCExpression: msgNode receiver on: aStream indent: level.
+ mustCastToUnsigned ifTrue:
+ [aStream nextPut: $)].
- (self is64BitIntegralVariable: msgNode receiver typeInto: [:t| type := t])
- ifTrue:
- ["If not unsigned cast it to unsigned."
- type first ~= $u ifTrue:
- [aStream nextPutAll: '((unsigned '; nextPutAll: type; nextPut: $)].
- self emitCExpression: msgNode receiver on: aStream indent: level.
- type first ~= $u ifTrue:
- [aStream nextPut: $)]]
- ifFalse:
- [aStream nextPutAll: '((usqInt) '.
- self emitCExpression: msgNode receiver on: aStream indent: level.
- aStream nextPut: $)].
aStream nextPutAll: ' >> '.
+ self emitCExpression: msgNode args first on: aStream indent: level.
+ mustCastBackToSigned ifTrue:
+ [aStream nextPut: $)]!
- self emitCExpression: msgNode args first on: aStream indent: level!
Item was changed:
----- Method: CCodeGenerator>>initializeCTranslationDictionary (in category 'C translation support') -----
initializeCTranslationDictionary
"Initialize the dictionary mapping message names to actions for C code generation."
| pairs |
translationDict := Dictionary new: 200.
pairs := #(
#& #generateAnd:on:indent:
#| #generateOr:on:indent:
#abs #generateAbs:on:indent:
#and: #generateSequentialAnd:on:indent:
#or: #generateSequentialOr:on:indent:
#not #generateNot:on:indent:
#+ #generatePlus:on:indent:
#- #generateMinus:on:indent:
#negated #generateNegated:on:indent:
#* #generateTimes:on:indent:
#/ #generateDivide:on:indent:
#// #generateDivide:on:indent:
#\\ #generateModulo:on:indent:
#<< #generateShiftLeft:on:indent:
#>> #generateShiftRight:on:indent:
#>>> #generateSignedShiftRight:on:indent:
#min: #generateMin:on:indent:
#max: #generateMax:on:indent:
#between:and: #generateBetweenAnd:on:indent:
#bitAnd: #generateBitAnd:on:indent:
#bitOr: #generateBitOr:on:indent:
#bitXor: #generateBitXor:on:indent:
#bitShift: #generateBitShift:on:indent:
#signedBitShift: #generateSignedBitShift:on:indent:
#bitInvert32 #generateBitInvert:on:indent:
#bitInvert64 #generateBitInvert:on:indent:
#bitClear: #generateBitClear:on:indent:
#truncateTo: #generateTruncateTo:on:indent:
#rounded #generateRounded:on:indent:
#byteSwap32 #generateByteSwap32:on:indent:
#byteSwap64 #generateByteSwap64:on:indent:
#byteSwapped32IfBigEndian: generateByteSwap32IfBigEndian:on:indent:
#byteSwapped64IfBigEndian: generateByteSwap64IfBigEndian:on:indent:
#< #generateLessThan:on:indent:
#<= #generateLessThanOrEqual:on:indent:
#= #generateEqual:on:indent:
#> #generateGreaterThan:on:indent:
#>= #generateGreaterThanOrEqual:on:indent:
#~= #generateNotEqual:on:indent:
#== #generateEqual:on:indent:
#~~ #generateNotEqual:on:indent:
#isNil #generateIsNil:on:indent:
#notNil #generateNotNil:on:indent:
#whileTrue: #generateWhileTrue:on:indent:
#whileFalse: #generateWhileFalse:on:indent:
#whileTrue #generateDoWhileTrue:on:indent:
#whileFalse #generateDoWhileFalse:on:indent:
#to:do: #generateToDo:on:indent:
#to:by:do: #generateToByDo:on:indent:
#repeat #generateRepeat:on:indent:
#timesRepeat: #generateTimesRepeat:on:indent:
#ifTrue: #generateIfTrue:on:indent:
#ifFalse: #generateIfFalse:on:indent:
#ifTrue:ifFalse: #generateIfTrueIfFalse:on:indent:
#ifFalse:ifTrue: #generateIfFalseIfTrue:on:indent:
#ifNotNil: #generateIfNotNil:on:indent:
#ifNil: #generateIfNil:on:indent:
#ifNotNil:ifNil: #generateIfNotNilIfNil:on:indent:
#ifNil:ifNotNil: #generateIfNilIfNotNil:on:indent:
#at: #generateAt:on:indent:
#at:put: #generateAtPut:on:indent:
#basicAt: #generateAt:on:indent:
#basicAt:put: #generateAtPut:on:indent:
#integerValueOf: #generateIntegerValueOf:on:indent:
#integerObjectOf: #generateIntegerObjectOf:on:indent:
#isIntegerObject: #generateIsIntegerObject:on:indent:
#cCode: #generateInlineCCode:on:indent:
#cCode:inSmalltalk: #generateInlineCCode:on:indent:
#cPreprocessorDirective: #generateInlineCPreprocessorDirective:on:indent:
#cppIf:ifTrue:ifFalse: #generateInlineCppIfElse:on:indent:
#cppIf:ifTrue: #generateInlineCppIfElse:on:indent:
#cCoerce:to: #generateCCoercion:on:indent:
#cCoerceSimple:to: #generateCCoercion:on:indent:
#addressOf: #generateAddressOf:on:indent:
#addressOf:put: #generateAddressOf:on:indent:
#asAddress:put: #generateAsAddress:on:indent:
#signedIntFromLong64 #generateSignedIntFromLong64:on:indent:
#signedIntFromLong #generateSignedIntFromLong:on:indent:
#signedIntFromShort #generateSignedIntFromShort:on:indent:
#signedIntToLong64 #generateSignedIntToLong64:on:indent:
#signedIntToLong #generateSignedIntToLong:on:indent:
#signedIntToShort #generateSignedIntToShort:on:indent:
#preIncrement #generatePreIncrement:on:indent:
#preDecrement #generatePreDecrement:on:indent:
#inline: #generateInlineDirective:on:indent:
#asFloat #generateAsFloat:on:indent:
#asInteger #generateAsInteger:on:indent:
+ #asIntegerPtr #generateAsIntegerPtr:on:indent:
#asUnsignedInteger #generateAsUnsignedInteger:on:indent:
+ #asUnsignedIntegerPtr #generateAsUnsignedIntegerPtr:on:indent:
#asLong #generateAsLong:on:indent:
#asUnsignedLong #generateAsUnsignedLong:on:indent:
#asUnsignedLongLong #generateAsUnsignedLongLong:on:indent:
#asVoidPointer #generateAsVoidPointer:on:indent:
#asSymbol #generateAsSymbol:on:indent:
#flag: #generateFlag:on:indent:
#anyMask: #generateBitAnd:on:indent:
#allMask: #generateAllMask:on:indent:
#noMask: #generateNoMask:on:indent:
#raisedTo: #generateRaisedTo:on:indent:
#touch: #generateTouch:on:indent:
#bytesPerOop #generateBytesPerOop:on:indent:
#bytesPerWord #generateBytesPerWord:on:indent:
#wordSize #generateBytesPerWord:on:indent:
#baseHeaderSize #generateBaseHeaderSize:on:indent:
#minSmallInteger #generateSmallIntegerConstant:on:indent:
#maxSmallInteger #generateSmallIntegerConstant:on:indent:
#sharedCodeNamed:inCase: #generateSharedCodeDirective:on:indent:
#perform: #generatePerform:on:indent:
#perform:with: #generatePerform:on:indent:
#perform:with:with: #generatePerform:on:indent:
#perform:with:with:with: #generatePerform:on:indent:
#perform:with:with:with:with: #generatePerform:on:indent:
#perform:with:with:with:with:with: #generatePerform:on:indent:
#value #generateValue:on:indent:
#value: #generateValue:on:indent:
#value:value: #generateValue:on:indent:
#value:value:value: #generateValue:on:indent:
#value:value:value:value: #generateValue:on:indent:
#deny: #generateDeny:on:indent:
#shouldNotImplement #generateSmalltalkMetaError:on:indent:
#shouldBeImplemented #generateSmalltalkMetaError:on:indent:
#subclassResponsibility #generateSmalltalkMetaError:on:indent:
).
1 to: pairs size by: 2 do: [:i |
translationDict at: (pairs at: i) put: (pairs at: i + 1)].
pairs := #(
#ifTrue: #generateIfTrueAsArgument:on:indent:
#ifFalse: #generateIfFalseAsArgument:on:indent:
#ifTrue:ifFalse: #generateIfTrueIfFalseAsArgument:on:indent:
#ifFalse:ifTrue: #generateIfFalseIfTrueAsArgument:on:indent:
#ifNotNil: #generateIfNotNilAsArgument:on:indent:
#ifNil: #generateIfNilAsArgument:on:indent:
#ifNotNil:ifNil: #generateIfNotNilIfNilAsArgument:on:indent:
#ifNil:ifNotNil: #generateIfNilIfNotNilAsArgument:on:indent:
#cCode: #generateInlineCCodeAsArgument:on:indent:
#cCode:inSmalltalk: #generateInlineCCodeAsArgument:on:indent:
#cppIf:ifTrue:ifFalse: #generateInlineCppIfElseAsArgument:on:indent:
#cppIf:ifTrue: #generateInlineCppIfElseAsArgument:on:indent:
#value #generateValueAsArgument:on:indent:
#value: #generateValueAsArgument:on:indent:
#value:value: #generateValueAsArgument:on:indent:
).
asArgumentTranslationDict := Dictionary new: 8.
1 to: pairs size by: 2 do: [:i |
asArgumentTranslationDict at: (pairs at: i) put: (pairs at: i + 1)].
!
Item was changed:
+ ----- Method: CCodeGenerator>>isBuiltinSelector: (in category 'testing') -----
- ----- Method: CCodeGenerator>>isBuiltinSelector: (in category 'utilities') -----
isBuiltinSelector: sel
"Answer true if the given selector is one of the builtin selectors."
^(self isKernelSelector: sel) or: [translationDict includesKey: sel]!
Item was changed:
+ ----- Method: CCodeGenerator>>isConstantNode:valueInto: (in category 'testing') -----
- ----- Method: CCodeGenerator>>isConstantNode:valueInto: (in category 'utilities') -----
isConstantNode: aNode valueInto: aBlock
"Answer if aNode evaluates to a constant, and if so, evaluate aBlock with the value of that constant."
aNode isConstant ifTrue:
[(aNode isDefine
and: [(vmClass ifNil: [VMBasicConstants]) defineAtCompileTime: aNode name]) ifTrue:
[^false].
aBlock value: aNode value.
^true].
(aNode isVariable
and: [aNode name = #nil]) ifTrue:
[aBlock value: nil.
^true].
aNode isSend ifFalse:
[^false].
(self anyMethodNamed: aNode selector)
ifNil:
[(VMBasicConstants valueOfBasicSelector: aNode selector) ifNotNil:
[:value|
aBlock value: value.
^true]]
ifNotNil:
[:m|
(m statements size = 1
and: [m statements last isReturn]) ifTrue:
[^self isConstantNode: m statements last expression valueInto: aBlock]].
^false!
Item was added:
+ ----- Method: CCodeGenerator>>isForBoth32Or64Bits (in category 'testing') -----
+ isForBoth32Or64Bits
+ "Answer true if the code is generated for both 32 and 64 bits.
+ Answer false otherwise.
+ Currently, VM source is generated for specific WordSize.
+ But plugins source are generated in common directory for both."
+
+ ^self isGeneratingPluginCode!
Item was changed:
+ ----- Method: CCodeGenerator>>isGeneratingPluginCode (in category 'testing') -----
- ----- Method: CCodeGenerator>>isGeneratingPluginCode (in category 'utilities') -----
isGeneratingPluginCode
^false!
Item was changed:
----- Method: CCodeGenerator>>isIntegralCType: (in category 'inlining') -----
isIntegralCType: aCType "<String>"
+ ^(#('sqLong' 'usqLong' 'sqInt' 'usqInt' 'sqIntptr_t' 'usqIntptr_t'
- ^(#('sqLong' 'usqLong' 'sqInt' 'usqInt'
'long' 'int' 'short' 'char' 'signed char'
'size_t' 'pid_t') includes: aCType asString)
or: [(aCType beginsWith: 'unsigned') "Accept e.g. 'unsigned long' and also 'unsigned : 8'"
and: [(aCType includesAnyOf: '[*]') not]]!
Item was changed:
+ ----- Method: CCodeGenerator>>isKernelSelector: (in category 'testing') -----
- ----- Method: CCodeGenerator>>isKernelSelector: (in category 'utilities') -----
isKernelSelector: sel
"Answer true if the given selector is one of the kernel selectors that are implemented as macros."
^(#(error:
oopAt: oopAt:put: oopAtPointer: oopAtPointer:put:
byteAt: byteAt:put: byteAtPointer: byteAtPointer:put:
shortAt: shortAt:put: shortAtPointer: shortAtPointer:put:
intAt: intAt:put: intAtPointer: intAtPointer:put:
longAt: longAt:put: longAtPointer: longAtPointer:put:
long32At: long32At:put: long64At: long64At:put:
fetchFloatAt:into: storeFloatAt:from: fetchFloatAtPointer:into: storeFloatAtPointer:from:
fetchSingleFloatAt:into: storeSingleFloatAt:from: fetchSingleFloatAtPointer:into: storeSingleFloatAtPointer:from:
pointerForOop: oopForPointer:
cCoerce:to: cCoerceSimple:to:)
includes: sel)!
Item was changed:
+ ----- Method: CCodeGenerator>>isNilConstantReceiverOf: (in category 'testing') -----
- ----- Method: CCodeGenerator>>isNilConstantReceiverOf: (in category 'utilities') -----
isNilConstantReceiverOf: sendNode
"Answer true if the receiver of the given message send is the constant nil. Used to suppress conditional code when the condition is a translation-time constant."
| val |
generateDeadCode ifTrue: [^false].
^(self isConstantNode: sendNode receiver valueInto: [:v| val := v])
and: [val isNil]!
Item was changed:
----- Method: CCodeGenerator>>returnTypeForSend:in:ifNil: (in category 'type inference') -----
returnTypeForSend: sendNode in: aTMethod ifNil: typeIfNil
"Answer the return type for a send. Unbound sends default to typeIfNil.
Methods with types as yet unknown have a type determined either by the
kernelReturnTypes or the table below, or, if they are in neither set, then nil.
The inferred type should match as closely as possible the C type of
generated expessions so that inlining would not change the expression.
If there is a method for sel but its return type is as yet unknown it mustn't
be defaulted, since on a subsequent pass its type may be computable."
| sel methodOrNil |
methodOrNil := self anyMethodNamed: (sel := sendNode selector).
(methodOrNil notNil and: [methodOrNil returnType notNil]) ifTrue:
[^self baseTypeForType: methodOrNil returnType].
^kernelReturnTypes
at: sel
ifAbsent:
[sel
caseOf: {
[#integerValueOf:] -> [#sqInt].
[#isIntegerObject:] -> [#int].
[#negated] -> [self promoteArithmeticTypes: (self typeFor: sendNode receiver in: aTMethod) and: #int].
[#+] -> [self typeForArithmetic: sendNode in: aTMethod].
[#-] -> [self typeForArithmetic: sendNode in: aTMethod].
[#*] -> [self typeForArithmetic: sendNode in: aTMethod].
[#/] -> [self typeForArithmetic: sendNode in: aTMethod].
[#//] -> [self typeForArithmetic: sendNode in: aTMethod].
[#\\] -> [self typeForArithmetic: sendNode in: aTMethod].
[#rem:] -> [self typeForArithmetic: sendNode in: aTMethod].
[#quo:] -> [self typeForArithmetic: sendNode in: aTMethod].
"C99 Sec Bitwise shift operators ... 3 Sematics ...
The integer promotions are performed on each of the operands. The type of the result is that of the promoted left operand..."
[#>>] -> [self typeFor: sendNode receiver in: aTMethod].
[#<<] -> [self typeFor: sendNode receiver in: aTMethod].
[#addressOf:] -> [(self typeFor: sendNode receiver in: aTMethod)
ifNil: [#sqInt]
ifNotNil: [:type| type, (type last isLetter ifTrue: [' *'] ifFalse: ['*'])]].
[#at:] -> [self typeForDereference: sendNode in: aTMethod].
[#bitAnd:] -> [self typeForArithmetic: sendNode in: aTMethod].
[#bitOr:] -> [self typeForArithmetic: sendNode in: aTMethod].
[#bitXor:] -> [self typeForArithmetic: sendNode in: aTMethod].
[#bitClear:] -> [self typeForArithmetic: sendNode in: aTMethod].
[#bitInvert32] -> [#'unsigned int'].
[#bitInvert64] -> [self promoteArithmeticTypes: (self typeFor: sendNode receiver in: aTMethod) and: #int].
[#byteSwap32] -> [#'unsigned int'].
[#byteSwap64] -> [#'unsigned long long'].
[#byteSwapped32IfBigEndian:] -> [#'unsigned int'].
[#byteSwapped64IfBigEndian:] -> [#'unsigned long long'].
[#=] -> [#int].
[#~=] -> [#int].
[#==] -> [#int].
[#~~] -> [#int].
[#<] -> [#int].
[#<=] -> [#int].
[#>] -> [#int].
[#>=] -> [#int].
[#between:and:] -> [#int].
[#anyMask:] -> [#int].
[#allMask:] -> [#int].
[#noMask:] -> [#int].
[#isNil] -> [#int].
[#notNil] -> [#int].
[#&] -> [#int].
[#|] -> [#int].
[#not] -> [#int].
[#asFloat] -> [#double].
[#atan] -> [#double].
[#exp] -> [#double].
[#log] -> [#double].
[#sin] -> [#double].
[#sqrt] -> [#double].
[#asLong] -> [#long].
[#asInteger] -> [#sqInt].
+ [#asIntegerPtr] -> [#'sqIntptr_t'].
[#asUnsignedInteger] -> [#usqInt].
+ [#asUnsignedIntegerPtr]-> [#'usqIntptr_t'].
[#asUnsignedLong] -> [#'unsigned long'].
[#asUnsignedLongLong] -> [#'unsigned long long'].
[#asVoidPointer] -> [#'void *'].
[#signedIntToLong] -> [#usqInt]. "c.f. generateSignedIntToLong:on:indent:"
[#signedIntToShort] -> [#usqInt]. "c.f. generateSignedIntToShort:on:indent:"
[#cCoerce:to:] -> [sendNode args last value].
[#cCoerceSimple:to:] -> [sendNode args last value].
+ [#sizeof:] -> [#'usqIntptr_t']. "Technically it's a size_t but it matches on target architectures so far..."
- [#sizeof:] -> [#'unsigned long']. "Technically it's a size_t but it matches unsigned long on target architectures so far..."
[#ifTrue:ifFalse:] -> [self typeForConditional: sendNode in: aTMethod].
[#ifFalse:ifTrue:] -> [self typeForConditional: sendNode in: aTMethod].
[#ifTrue:] -> [self typeForConditional: sendNode in: aTMethod].
[#ifFalse:] -> [self typeForConditional: sendNode in: aTMethod].
[#and:] -> [#sqInt].
[#or:] -> [#sqInt] }
otherwise: "If there /is/ a method for sel but its return type is as yet unknown it /mustn't/ be defaulted,
since on a subsequent pass its type may be computable. Only default unbound selectors."
[methodOrNil ifNotNil: [nil] ifNil: [typeIfNil]]]!
Item was changed:
----- Method: CCodeGenerator>>signedTypeForIntegralType: (in category 'type inference') -----
signedTypeForIntegralType: aCTypeString
(aCTypeString beginsWith: 'unsigned ') ifTrue:
[^aCTypeString allButFirst: 8].
(aCTypeString beginsWith: 'usq') ifTrue:
[^aCTypeString allButFirst].
+ aCTypeString = 'size_t' ifTrue: [^#usqIntptr_t].
+
self error: 'unknown type'.
^#long!
Item was changed:
----- Method: CCodeGenerator>>sizeOfIntegralCType: (in category 'inlining') -----
sizeOfIntegralCType: anIntegralCType "<String>"
"N.B. Only works for values for which isIntegralCType: answers true."
| prunedCType index |
(anIntegralCType beginsWith: 'register ') ifTrue:
[^self sizeOfIntegralCType: (anIntegralCType allButFirst: 9)].
prunedCType := (anIntegralCType beginsWith: 'unsigned ')
ifTrue: [(anIntegralCType allButFirst: 9) withBlanksTrimmed]
ifFalse: [(anIntegralCType beginsWith: 'signed ')
ifTrue: [(anIntegralCType allButFirst: 7) withBlanksTrimmed]
ifFalse: [anIntegralCType]].
+
^prunedCType asString caseOf: {
['sqLong'] -> [8].
['usqLong'] -> [8].
['long long'] -> [8].
+ ['sqInt'] -> [BytesPerOop].
+ ['usqInt'] -> [BytesPerOop].
+ ['sqIntptr_t'] -> [BytesPerWord].
+ ['usqIntptr_t'] -> [BytesPerWord].
- ['sqInt'] -> [BytesPerWord].
- ['usqInt'] -> [BytesPerWord].
['int'] -> [4].
['short'] -> [2].
['short int'] -> [2].
['char'] -> [1].
+ ['size_t'] -> [BytesPerWord].
- ['long'] -> [BytesPerWord].
- ['size_t'] -> [BytesPerWord].
['pid_t'] -> [BytesPerWord].
}
otherwise:
+ [prunedCType = #long ifTrue: [self error: 'long is ambiguous on 64bits architecture, don''t use it'. ^BytesPerWord].
+ ((anIntegralCType beginsWith: 'unsigned') "e.g. 'unsigned : 8'"
- [((anIntegralCType beginsWith: 'unsigned') "e.g. 'unsigned : 8'"
and: [(anIntegralCType includesAnyOf: '[*]') not
and: [(index := anIntegralCType indexOf: $:) > 0]])
ifTrue: [(Integer readFrom: (anIntegralCType copyFrom: index + 1 to: anIntegralCType size) withBlanksTrimmed readStream) + 7 // 8]
ifFalse: [self error: 'unrecognized integral type']]!
Item was changed:
----- Method: ClipboardExtendedPlugin>>ioAddClipboardData:data:dataFormat: (in category 'io') -----
ioAddClipboardData: clipboard data: data dataFormat: aFormat
| clipboardAddress formatLength dataLength |
+ <var: #clipboardAddress type: #'usqIntptr_t'>
- <var: #clipboardAddress type: #'unsigned long'>
self primitive: 'ioAddClipboardData' parameters: #(Oop ByteArray String).
clipboardAddress := interpreterProxy positiveMachineIntegerValueOf: clipboard.
dataLength := interpreterProxy slotSizeOf: data cPtrAsOop.
formatLength := interpreterProxy slotSizeOf: aFormat cPtrAsOop.
self sqPasteboardPutItemFlavor: clipboardAddress data: data length: dataLength formatType: aFormat formatLength: formatLength.
!
Item was changed:
----- Method: ClipboardExtendedPlugin>>ioClearClipboard: (in category 'io') -----
ioClearClipboard: clipboard
| clipboardAddress |
+ <var: #clipboardAddress type: #'usqIntptr_t'>
- <var: #clipboardAddress type: #'unsigned long'>
self primitive: 'ioClearClipboard' parameters: #(Oop).
clipboardAddress := interpreterProxy positiveMachineIntegerValueOf: clipboard.
self sqPasteboardClear: clipboardAddress.!
Item was changed:
----- Method: ClipboardExtendedPlugin>>ioGetClipboardFormat:formatNumber: (in category 'io') -----
ioGetClipboardFormat: clipboard formatNumber: formatNumber
| clipboardAddress itemCount |
+ <var: #clipboardAddress type: #'usqIntptr_t'>
- <var: #clipboardAddress type: #'unsigned long'>
self primitive: 'ioGetClipboardFormat' parameters: #(#Oop #SmallInteger ).
clipboardAddress := interpreterProxy positiveMachineIntegerValueOf: clipboard.
itemCount := self sqPasteboardGetItemCount: clipboardAddress.
itemCount > 0
ifTrue: [^ self sqPasteboardCopyItemFlavors: clipboardAddress itemNumber: formatNumber].
^ interpreterProxy nilObject!
Item was changed:
----- Method: ClipboardExtendedPlugin>>ioReadClipboardData:format: (in category 'io') -----
ioReadClipboardData: clipboard format: format
| clipboardAddress formatLength |
+ <var: #clipboardAddress type: #'usqIntptr_t'>
- <var: #clipboardAddress type: #'unsigned long'>
self primitive: 'ioReadClipboardData' parameters: #(Oop String).
clipboardAddress := interpreterProxy positiveMachineIntegerValueOf: clipboard.
formatLength := interpreterProxy slotSizeOf: format cPtrAsOop.
^ self sqPasteboardCopyItemFlavorData: clipboardAddress format: format formatLength: formatLength.
!
Item was changed:
----- Method: CoInterpreter>>printMethodCacheFor: (in category 'debug printing') -----
printMethodCacheFor: thing
<api>
| n |
n := 0.
0 to: MethodCacheSize - 1 by: MethodCacheEntrySize do:
[:i | | s c m p |
s := methodCache at: i + MethodCacheSelector.
c := methodCache at: i + MethodCacheClass.
m := methodCache at: i + MethodCacheMethod.
p := methodCache at: i + MethodCachePrimFunction.
((thing = -1 or: [s = thing or: [c = thing or: [p = thing or: [m = thing
or: [(objectMemory addressCouldBeObj: m)
and: [(self maybeMethodHasCogMethod: m)
and: [(self cogMethodOf: m) asInteger = thing]]]]]]])
and: [(objectMemory addressCouldBeOop: s)
and: [c ~= 0
and: [(self addressCouldBeClassObj: c)
or: [self addressCouldBeClassObj: (objectMemory classForClassTag: c)]]]]) ifTrue:
[n := n + 1.
self cCode: [] inSmalltalk: [self transcript ensureCr].
self printNum: i; space; printHexnp: i; cr; tab.
(objectMemory isBytesNonImm: s)
+ ifTrue: [self cCode: 'printf("%" PRIxSQPTR " %.*s\n", s, (int)(numBytesOf(s)), (char *)firstIndexableField(s))'
- ifTrue: [self cCode: 'printf("%lx %.*s\n", s, (int)(numBytesOf(s)), (char *)firstIndexableField(s))'
inSmalltalk: [self printHex: s; space; print: (self stringOf: s); cr]]
ifFalse: [self shortPrintOop: s].
self tab.
(self addressCouldBeClassObj: c)
ifTrue: [self shortPrintOop: c]
ifFalse: [self printNum: c; space; printHexnp: c; space; shortPrintOop: (objectMemory classForClassTag: c)].
self tab; shortPrintOop: m; tab.
self cCode:
[p > 1024
ifTrue: [self printHexnp: p]
ifFalse: [self printNum: p]]
inSmalltalk:
[p isSymbol ifTrue: [self print: p] ifFalse: [self printNum: p]].
self cr]].
n > 1 ifTrue:
[self printNum: n; cr]!
Item was changed:
----- Method: CoInterpreter>>reportMinimumUnusedHeadroom (in category 'debug support') -----
reportMinimumUnusedHeadroom
"Report the stack page size and minimum unused headroom to stdout."
<api>
self cCode:
[self pri: 'stack page bytes %ld available headroom %ld minimum unused headroom %ld\n'
+ n: self stackPageByteSize asIntegerPtr
+ t: (self stackPageByteSize - self stackLimitBytes - self stackLimitOffset) asIntegerPtr
+ f: self minimumUnusedHeadroom asIntegerPtr]
- n: self stackPageByteSize asLong
- t: (self stackPageByteSize - self stackLimitBytes - self stackLimitOffset) asLong
- f: self minimumUnusedHeadroom asLong]
inSmalltalk:
["CogVMSimulator new initStackPagesForTests reportMinimumUnusedHeadroom"
self print: 'stack page bytes '; printNum: self stackPageByteSize;
print: ' available headroom '; printNum: self stackPageByteSize - self stackLimitBytes - self stackLimitOffset;
print: ' minimum unused headroom '; printNum: self minimumUnusedHeadroom;
cr]!
Item was changed:
----- Method: CoInterpreter>>rewriteMethodCacheEntryForExternalPrimitiveToFunction: (in category 'method lookup cache') -----
rewriteMethodCacheEntryForExternalPrimitiveToFunction: localPrimAddress
"Rewrite an existing entry in the method cache with a new primitive function address.
Used by primitiveExternalCall to make direct calls to found external prims, or quickly
fail not found external prims.
Override to do the same to the machine code call. If methodObj has a cogged dual
rewrite the primitive call in it to call localPrimAddress. Used to update calls through
primitiveExternalCall to directly call the target function or to revert to calling
primitiveExternalCall after a flush."
<var: #localPrimAddress declareC: 'void (*localPrimAddress)(void)'>
<inline: false>
(self methodHasCogMethod: newMethod) ifTrue:
[cogit
rewritePrimInvocationIn: (self cogMethodOf: newMethod)
to: (localPrimAddress = 0
ifTrue: [self cCoerceSimple: #primitiveFail to: #'void (*)(void)']
ifFalse: [localPrimAddress])].
(methodCache at: lastMethodCacheProbeWrite + MethodCacheMethod) = newMethod ifTrue:
[methodCache
at: lastMethodCacheProbeWrite + MethodCachePrimFunction
+ put: (self cCoerce: localPrimAddress to: #sqInt)]!
- put: (self cCoerce: localPrimAddress to: #long)]!
Item was changed:
----- Method: CogARMCompiler class>>machineCodeDeclaration (in category 'translation') -----
machineCodeDeclaration
"Answer the declaration for the machineCode array."
+ ^{#'usqIntptr_t'. '[', self basicNew machineCodeWords printString, ']'}!
- ^{#'unsigned long'. '[', self basicNew machineCodeWords printString, ']'}!
Item was changed:
----- Method: CogARMCompiler>>isInImmediateJumpRange: (in category 'testing') -----
isInImmediateJumpRange: operand
"ARM calls and jumps span +/- 32 mb, more than enough for intra-zone calls and jumps."
+ <var: #operand type: #'usqIntptr_t'>
- <var: #operand type: #'unsigned long'>
^operand signedIntFromLong between: -16r2000000 and: 16r1FFFFFC!
Item was changed:
----- Method: CogAbstractInstruction class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') -----
instVarNamesAndTypesForTranslationDo: aBinaryBlock
"enumerate aBinaryBlock with the names and C type strings for the inst vars to include in an AbstractInstruction struct."
"{CogAbstractInstruction. CogIA32Compiler. CogARMCompiler} do:
[:c| Transcript print: c; cr. c printTypedefOn: Transcript]"
(self filteredInstVarNames copyWithout: 'machineCode'), #('machineCode') do:
[:ivn|
ivn ~= 'bcpc' ifTrue:
[aBinaryBlock
value: ivn
value: (ivn caseOf: {
+ ['address'] -> [#'usqIntptr_t'].
- ['address'] -> [#'unsigned long'].
['machineCode'] -> [self machineCodeDeclaration].
+ ['operands'] -> [{#'usqIntptr_t'. '[', NumOperands, ']'}].
- ['operands'] -> [{#'unsigned long'. '[', NumOperands, ']'}].
['dependent'] -> ['struct _AbstractInstruction *']}
otherwise:
[#'unsigned char'])]]!
Item was added:
+ ----- Method: CogAbstractInstruction>>asIntegerPtr (in category 'coercion') -----
+ asIntegerPtr
+ <doNotGenerate>
+ ^self!
Item was added:
+ ----- Method: CogAbstractInstruction>>asUnsignedIntegerPtr (in category 'coercion') -----
+ asUnsignedIntegerPtr
+ <doNotGenerate>
+ ^self!
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].
[#sqInt] -> [value].
+ [#'sqIntptr_t'] -> [value].
+ [#'usqIntptr_t'] -> [value].
[#usqInt] -> [value].
[#sqLong] -> [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] }!
Item was changed:
----- Method: CogIA32Compiler>>concretizeFill32 (in category 'generate machine code') -----
concretizeFill32
<inline: true>
| word |
+ <var: #word type: #'unsigned int'>
- <var: #word type: #'unsigned long'>
word := operands at: 0.
machineCode at: 0 put: (word bitAnd: 16rFF).
machineCode at: 1 put: (word >> 8 bitAnd: 16rFF).
machineCode at: 2 put: (word >> 16 bitAnd: 16rFF).
machineCode at: 3 put: (word >> 24 bitAnd: 16rFF).
^machineCodeSize := 4!
Item was changed:
----- Method: CogIA32Compiler>>flushICacheFrom:to: (in category 'inline cacheing') -----
flushICacheFrom: startAddress "<Integer>" to: endAddress "<Integer>"
<cmacro: '(me,startAddress,endAddress) 0'>
"On Intel processors where code and data have the same linear address, no
+ special action is required to flush the instruction cache. One only needs to
- special action is required to flush the instruciton cache. One only needs to
execute a serializing instruction (e.g. CPUID) if code and data are at different
virtual addresses (e.g. a debugger using memory-mapping to access a debugee).
Using the macro avoids an unnecessary call."
self halt: #ceFlushICache!
Item was changed:
----- Method: CogIA32Compiler>>isQuick: (in category 'testing') -----
isQuick: operand
+ <var: #operand type: #'usqInt'>
- <var: #operand type: #'unsigned long'>
^operand signedIntFromLong between: -128 and: 127!
Item was changed:
----- Method: CogIA32Compiler>>rewriteCPICJumpAt:target: (in category 'inline cacheing') -----
rewriteCPICJumpAt: addressFollowingJump target: jumpTargetAddress
"Rewrite the short jump instruction to jump to a new cpic case target. "
<var: #addressFollowingJump type: #usqInt>
<var: #jumpTargetAddress type: #usqInt>
+ <var: #callDistance type: #sqInt> "prevent type inference for avoiding warning on abs"
| callDistance |
callDistance := jumpTargetAddress - addressFollowingJump.
self assert: callDistance abs < 128.
objectMemory
byteAt: addressFollowingJump - 1
put: (callDistance bitAnd: 16rFF).
"self cCode: ''
inSmalltalk: [cogit disassembleFrom: addressFollowingJump - 10 to: addressFollowingJump - 1]."
^2!
Item was changed:
----- Method: CogMIPSELCompiler class>>machineCodeDeclaration (in category 'translation') -----
machineCodeDeclaration
"Answer the declaration for the machineCode array."
+ ^{#'usqIntptr_t'. '[', self basicNew machineCodeWords printString, ']'}!
- ^{#'unsigned long'. '[', self basicNew machineCodeWords printString, ']'}!
Item was added:
+ ----- Method: CogMethodSurrogate>>asIntegerPtr (in category 'accessing') -----
+ asIntegerPtr
+ "Answer the surrogate's adress. This is equivalent to a C cast to usqIntptr_t,
+ which is precisely what Slang generates for asUnsignedInteger"
+ ^address!
Item was added:
+ ----- Method: CogMethodSurrogate>>asUnsignedIntegerPtr (in category 'accessing') -----
+ asUnsignedIntegerPtr
+ "Answer the surrogate's adress. This is equivalent to a C cast to usqIntptr_t,
+ which is precisely what Slang generates for asUnsignedInteger"
+ ^address!
Item was changed:
----- Method: CogMethodZone>>roundUpAddress: (in category 'accessing') -----
roundUpAddress: address
<returnTypeC: #'void *'>
<var: #address type: #'void *'>
+ ^self cCoerce: ((self cCoerce: address to: #'usqIntptr_t') + 7 bitAnd: -8) to: #'void *'!
- ^self cCoerce: ((self cCoerce: address to: 'unsigned long') + 7 bitAnd: -8) to: #'void *'!
Item was added:
+ ----- Method: CogSSBytecodeFixup>>asIntegerPtr (in category 'simulation support') -----
+ asIntegerPtr
+ <doNotGenerate>
+ ^self!
Item was added:
+ ----- Method: CogSSBytecodeFixup>>asUnsignedIntegerPtr (in category 'simulation support') -----
+ asUnsignedIntegerPtr
+ <doNotGenerate>
+ ^self!
Item was added:
+ ----- Method: CogStackPageSurrogate>>asIntegerPtr (in category 'accessing') -----
+ asIntegerPtr
+ ^address!
Item was added:
+ ----- Method: CogStackPageSurrogate>>asUnsignedIntegerPtr (in category 'accessing') -----
+ asUnsignedIntegerPtr
+ ^address!
Item was changed:
----- Method: CogVMSimulator>>rewriteMethodCacheEntryForExternalPrimitiveToFunction: (in category 'method lookup cache') -----
rewriteMethodCacheEntryForExternalPrimitiveToFunction: localPrimAddress
super rewriteMethodCacheEntryForExternalPrimitiveToFunction:
(self mapFunctionToAddress: (localPrimAddress = 0
ifTrue: [#primitiveFail]
ifFalse: [localPrimAddress])).
"Hack; the super call will rewrite the entry to the address of the function.
So (when simulating) undo the damage and put back the functionPointer"
(methodCache at: lastMethodCacheProbeWrite + MethodCacheMethod) = newMethod ifTrue:
[methodCache
at: lastMethodCacheProbeWrite + MethodCachePrimFunction
+ put: (self cCoerce: localPrimAddress to: #sqInt)]!
- put: (self cCoerce: localPrimAddress to: #long)]!
Item was changed:
----- Method: CogX64Compiler>>concretizeFill32 (in category 'generate machine code') -----
concretizeFill32
<inline: true>
| word |
+ <var: #word type: #'usqIntptr_t'>
- <var: #word type: #'unsigned long'>
word := operands at: 0.
machineCode at: 0 put: (word bitAnd: 16rFF).
machineCode at: 1 put: (word >> 8 bitAnd: 16rFF).
machineCode at: 2 put: (word >> 16 bitAnd: 16rFF).
machineCode at: 3 put: (word >> 24 bitAnd: 16rFF).
^machineCodeSize := 4!
Item was changed:
----- Method: CogX64Compiler>>is32BitSignedImmediate: (in category 'testing') -----
is32BitSignedImmediate: a64BitUnsignedOperand
"Top 32 bits all the same as the bottom 32 bits' sign bit implies we can use a sign-extended 4 byte offset."
+ ^self cCode: [(self cCoerceSimple: a64BitUnsignedOperand to: #int) = (self cCoerceSimple: a64BitUnsignedOperand to: #sqLong)]
- ^self cCode: [(self cCoerceSimple: a64BitUnsignedOperand to: #int) = (self cCoerceSimple: a64BitUnsignedOperand to: #long)]
inSmalltalk: [((a64BitUnsignedOperand >> 32) signedIntFromLong + 1 bitXor: 1) = (a64BitUnsignedOperand >> 31 bitAnd: 1)]!
Item was changed:
----- Method: CogX64Compiler>>isQuick: (in category 'testing') -----
isQuick: operand
+ <var: #operand type: #'usqIntptr_t'>
- <var: #operand type: #'unsigned long'>
^operand signedIntFromLong64 between: -128 and: 127!
Item was changed:
----- Method: Cogit class>>declareCVarsIn: (in category 'translation') -----
declareCVarsIn: aCCodeGenerator
#( 'coInterpreter' 'objectMemory' 'methodZone' 'objectRepresentation'
'cogBlockMethodSurrogateClass' 'cogMethodSurrogateClass' 'nsSendCacheSurrogateClass'
'threadManager' 'processor' 'lastNInstructions' 'simulatedAddresses'
'simulatedTrampolines' 'simulatedVariableGetters' 'simulatedVariableSetters'
'printRegisters' 'printInstructions' 'clickConfirm' 'singleStep') do:
[:simulationVariableNotNeededForRealVM|
aCCodeGenerator removeVariable: simulationVariableNotNeededForRealVM].
NewspeakVM ifFalse:
[#( 'selfSendTrampolines' 'dynamicSuperSendTrampolines'
'implicitReceiverSendTrampolines' 'outerSendTrampolines'
'ceEnclosingObjectTrampoline' 'numIRCs' 'indexOfIRC' 'theIRCs') do:
[:variableNotNeededInNormalVM|
aCCodeGenerator removeVariable: variableNotNeededInNormalVM]].
aCCodeGenerator removeConstant: #COGMTVM. "this should be defined at compile time"
aCCodeGenerator
addHeaderFile:'<stddef.h>'; "for e.g. offsetof"
addHeaderFile:'"sqCogStackAlignment.h"';
addHeaderFile:'"dispdbg.h"'; "must precede cointerp.h & cogit.h otherwise NoDbgRegParms gets screwed up"
addHeaderFile:'"cogmethod.h"'.
NewspeakVM ifTrue:
[aCCodeGenerator addHeaderFile:'"nssendcache.h"'].
aCCodeGenerator
addHeaderFile:'#if COGMTVM';
addHeaderFile:'"cointerpmt.h"';
addHeaderFile:'#else';
addHeaderFile:'"cointerp.h"';
addHeaderFile:'#endif';
addHeaderFile:'"cogit.h"'.
aCCodeGenerator
var: #ceGetFP
+ declareC: 'usqIntptr_t (*ceGetFP)(void)';
- declareC: 'unsigned long (*ceGetFP)(void)';
var: #ceGetSP
+ declareC: 'usqIntptr_t (*ceGetSP)(void)';
- declareC: 'unsigned long (*ceGetSP)(void)';
var: #ceCaptureCStackPointers
declareC: 'void (*ceCaptureCStackPointers)(void)';
var: #ceEnterCogCodePopReceiverReg
declareC: 'void (*ceEnterCogCodePopReceiverReg)(void)';
var: #realCEEnterCogCodePopReceiverReg
declareC: 'void (*realCEEnterCogCodePopReceiverReg)(void)';
var: #ceCallCogCodePopReceiverReg
declareC: 'void (*ceCallCogCodePopReceiverReg)(void)';
var: #realCECallCogCodePopReceiverReg
declareC: 'void (*realCECallCogCodePopReceiverReg)(void)';
var: #ceCallCogCodePopReceiverAndClassRegs
declareC: 'void (*ceCallCogCodePopReceiverAndClassRegs)(void)';
var: #realCECallCogCodePopReceiverAndClassRegs
declareC: 'void (*realCECallCogCodePopReceiverAndClassRegs)(void)';
var: #ceFlushICache
+ declareC: 'static void (*ceFlushICache)(usqIntptr_t from, usqIntptr_t to)';
- declareC: 'static void (*ceFlushICache)(unsigned long from, unsigned long to)';
var: #ceCheckFeaturesFunction
+ declareC: 'static usqIntptr_t (*ceCheckFeaturesFunction)(void)';
- declareC: 'static unsigned long (*ceCheckFeaturesFunction)(void)';
var: #ceTryLockVMOwner
+ declareC: 'usqIntptr_t (*ceTryLockVMOwner)(void)';
- declareC: 'unsigned long (*ceTryLockVMOwner)(void)';
var: #ceUnlockVMOwner
declareC: 'void (*ceUnlockVMOwner)(void)';
var: #postCompileHook
declareC: 'void (*postCompileHook)(CogMethod *)';
var: #openPICList declareC: 'CogMethod *openPICList = 0';
var: #maxMethodBefore type: #'CogBlockMethod *'.
self objectMemoryClass wordSize = 8 ifTrue:
[aCCodeGenerator var: 'enumeratingCogMethod' type: #'CogMethod *'].
aCCodeGenerator
declareVar: 'aMethodLabel' type: #'AbstractInstruction'; "Has to come lexicographically before backEnd & methodLabel"
var: #backEnd declareC: 'AbstractInstruction * const backEnd = &aMethodLabel';
var: #methodLabel declareC: 'AbstractInstruction * const methodLabel = &aMethodLabel'.
self declareC: #(abstractOpcodes stackCheckLabel
blockEntryLabel blockEntryNoContextSwitch
stackOverflowCall sendMiss
entry noCheckEntry selfSendEntry dynSuperEntry
fullBlockNoContextSwitchEntry fullBlockEntry
picMNUAbort picInterpretAbort endCPICCase0 endCPICCase1 cPICEndOfCodeLabel)
as: #'AbstractInstruction *'
in: aCCodeGenerator.
aCCodeGenerator
declareVar: #blockStarts type: #'BlockStart *';
declareVar: #fixups type: #'BytecodeFixup *'.
aCCodeGenerator
var: #ordinarySendTrampolines
declareC: 'sqInt ordinarySendTrampolines[NumSendTrampolines]';
var: #superSendTrampolines
declareC: 'sqInt superSendTrampolines[NumSendTrampolines]';
var: #directedSuperSendTrampolines
declareC: 'sqInt directedSuperSendTrampolines[NumSendTrampolines]';
var: #selfSendTrampolines
declareC: 'sqInt selfSendTrampolines[NumSendTrampolines]';
var: #dynamicSuperSendTrampolines
declareC: 'sqInt dynamicSuperSendTrampolines[NumSendTrampolines]';
var: #implicitReceiverSendTrampolines
declareC: 'sqInt implicitReceiverSendTrampolines[NumSendTrampolines]';
var: #outerSendTrampolines
declareC: 'sqInt outerSendTrampolines[NumSendTrampolines]';
var: #trampolineAddresses
declareC: 'static char *trampolineAddresses[NumTrampolines*2]';
var: #objectReferencesInRuntime
declareC: 'static usqInt objectReferencesInRuntime[NumObjRefsInRuntime]';
var: #labelCounter
type: #int;
var: #traceFlags
declareC: 'int traceFlags = 8 /* prim trace log on by default */';
var: #cStackAlignment
declareC: 'const int cStackAlignment = STACK_ALIGN_BYTES'.
aCCodeGenerator
declareVar: #CFramePointer type: #'void *';
declareVar: #CStackPointer type: #'void *';
+ declareVar: #minValidCallAddress type: #'usqIntptr_t';
+ declareVar: #debugPrimCallStackOffset type: #'usqIntptr_t'.
- declareVar: #minValidCallAddress type: #'unsigned long';
- declareVar: #debugPrimCallStackOffset type: #'unsigned long'.
aCCodeGenerator vmClass generatorTable ifNotNil:
[:bytecodeGenTable|
aCCodeGenerator
var: #generatorTable
declareC: 'static BytecodeDescriptor generatorTable[', bytecodeGenTable size, ']',
(self tableInitializerFor: bytecodeGenTable
in: aCCodeGenerator)].
"In C the abstract opcode names clash with the Smalltak generator syntactic sugar.
Most of the syntactic sugar is inlined, but alas some remains. Rename the syntactic
sugar to avoid the clash."
(self organization listAtCategoryNamed: #'abstract instructions') do:
[:s|
aCCodeGenerator addSelectorTranslation: s to: 'g', (aCCodeGenerator cFunctionNameFor: s)].
aCCodeGenerator addSelectorTranslation: #halt: to: 'haltmsg'!
Item was changed:
----- Method: Cogit>>cFramePointerAddress (in category 'trampoline support') -----
cFramePointerAddress
+ <cmacro: '() ((usqIntptr_t)&CFramePointer)'>
- <cmacro: '() ((unsigned long)&CFramePointer)'>
^(backEnd wantsNearAddressFor: #CFramePointer)
ifTrue: [self simulatedReadWriteVariableAddress: #getCFramePointer in: self]
ifFalse: [coInterpreter inMemoryCFramePointerAddress]!
Item was changed:
----- Method: Cogit>>cStackPointerAddress (in category 'trampoline support') -----
cStackPointerAddress
+ <cmacro: '() ((usqIntptr_t)&CStackPointer)'>
- <cmacro: '() ((unsigned long)&CStackPointer)'>
^(backEnd wantsNearAddressFor: #CStackPointer)
ifTrue: [self simulatedReadWriteVariableAddress: #getCStackPointer in: self]
ifFalse: [coInterpreter inMemoryCStackPointerAddress]!
Item was changed:
----- Method: Cogit>>genGetLeafCallStackPointer (in category 'initialization') -----
genGetLeafCallStackPointer
"Generate a routine that answers the stack pointer immedately
after a leaf call, used for checking stack pointer alignment."
| startAddress |
<inline: false>
self allocateOpcodes: 4 bytecodes: 0.
startAddress := methodZoneBase.
self
MoveR: FPReg R: backEnd cResultRegister;
RetN: 0.
self outputInstructionsForGeneratedRuntimeAt: startAddress.
self recordGeneratedRunTime: 'ceGetFP' address: startAddress.
+ ceGetFP := self cCoerceSimple: startAddress to: #'usqIntptr_t (*)(void)'.
- ceGetFP := self cCoerceSimple: startAddress to: #'unsigned long (*)(void)'.
startAddress := methodZoneBase.
self zeroOpcodeIndex.
self MoveR: SPReg R: backEnd cResultRegister.
backEnd leafCallStackPointerDelta ~= 0 ifTrue:
[self AddCq: backEnd leafCallStackPointerDelta R: backEnd cResultRegister].
self RetN: 0.
self outputInstructionsForGeneratedRuntimeAt: startAddress.
self recordGeneratedRunTime: 'ceGetSP' address: startAddress.
+ ceGetSP := self cCoerceSimple: startAddress to: #'usqIntptr_t (*)(void)'!
- ceGetSP := self cCoerceSimple: startAddress to: #'unsigned long (*)(void)'!
Item was changed:
----- Method: Cogit>>generateVMOwnerLockFunctions (in category 'initialization') -----
generateVMOwnerLockFunctions
| startAddress |
<inline: true>
self cppIf: COGMTVM
ifTrue:
[self allocateOpcodes: backEnd numLowLevelLockOpcodes bytecodes: 0.
self zeroOpcodeIndex.
startAddress := methodZoneBase.
backEnd generateLowLevelTryLock: coInterpreter vmOwnerLockAddress.
self outputInstructionsForGeneratedRuntimeAt: startAddress.
self recordGeneratedRunTime: 'ceTryLockVMOwner' address: startAddress.
+ ceTryLockVMOwner := self cCoerceSimple: startAddress to: #'usqIntptr_t (*)(void)'.
- ceTryLockVMOwner := self cCoerceSimple: startAddress to: #'unsigned long (*)(void)'.
self zeroOpcodeIndex.
initialPC := 0.
endPC := numAbstractOpcodes - 1.
startAddress := methodZoneBase.
backEnd generateLowLevelUnlock: coInterpreter vmOwnerLockAddress.
self outputInstructionsForGeneratedRuntimeAt: startAddress.
self recordGeneratedRunTime: 'ceUnlockVMOwner' address: startAddress.
ceUnlockVMOwner := self cCoerceSimple: startAddress to: #'void (*)(void)']!
Item was changed:
----- Method: Cogit>>maybeGenerateCheckFeatures (in category 'initialization') -----
maybeGenerateCheckFeatures
| startAddress |
<inline: true>
backEnd numCheckFeaturesOpcodes > 0 ifTrue:
[self allocateOpcodes: backEnd numCheckFeaturesOpcodes bytecodes: 0.
startAddress := methodZoneBase.
backEnd generateCheckFeatures.
self outputInstructionsForGeneratedRuntimeAt: startAddress.
self recordGeneratedRunTime: 'ceCheckFeaturesFunction' address: startAddress.
+ ceCheckFeaturesFunction := self cCoerceSimple: startAddress to: #'usqIntptr_t (*)(void)']!
- ceCheckFeaturesFunction := self cCoerceSimple: startAddress to: #'unsigned long (*)(void)']!
Item was changed:
----- Method: Cogit>>maybeGenerateICacheFlush (in category 'initialization') -----
maybeGenerateICacheFlush
| startAddress |
<inline: true>
backEnd numICacheFlushOpcodes > 0 ifTrue:
[self allocateOpcodes: backEnd numICacheFlushOpcodes bytecodes: 0.
startAddress := methodZoneBase.
backEnd generateICacheFlush.
self outputInstructionsForGeneratedRuntimeAt: startAddress.
self recordGeneratedRunTime: 'ceFlushICache' address: startAddress.
+ ceFlushICache := self cCoerceSimple: startAddress to: #'void (*)(usqIntptr_t,usqIntptr_t)']!
- ceFlushICache := self cCoerceSimple: startAddress to: #'void (*)(unsigned long,unsigned long)']!
Item was changed:
----- Method: Cogit>>positiveMachineIntegerFor: (in category 'profiling primitives') -----
positiveMachineIntegerFor: value
+ <var: #value type: #'usqIntptr_t'>
- <var: #value type: #'unsigned long'>
<inline: true>
^objectMemory wordSize = 8
ifTrue: [coInterpreter positive64BitIntegerFor: value]
ifFalse: [coInterpreter positive32BitIntegerFor: value]!
Item was changed:
----- Method: IA32ABIPlugin>>primAllocateExecutablePage (in category 'primitives-memory management') -----
primAllocateExecutablePage
"Answer an Alien for an executable page; for thunks"
"primAllocateExecutablePage ^<Alien>
<primitive: 'primAllocateExecutablePage' error: errorCode module: 'IA32ABI'>"
| byteSize ptr mem alien |
<export: true>
+ <var: #byteSize type: #'sqIntptr_t'>
+ <var: #ptr type: #'sqIntptr_t *'>
+ <var: #mem type: #'void *'>
- <var: #byteSize type: 'long'>
- <var: #ptr type: 'long *'>
- <var: #mem type: 'void *'>
self cCode: 'mem = allocateExecutablePage(&byteSize)'
inSmalltalk: [self error: 'not yet implemented'. mem := 0. byteSize := 0].
mem = 0 ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrNoCMemory].
alien := interpreterProxy
instantiateClass: interpreterProxy classAlien
indexableSize: 2 * interpreterProxy bytesPerOop.
interpreterProxy failed ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrNoMemory].
ptr := interpreterProxy firstIndexableField: alien.
ptr at: 0 put: 0 - byteSize. "indirect mem indicated by negative size. Slang doesn't grok negated"
+ ptr at: 1 put: (self cCoerce: mem to: #'sqIntptr_t').
- ptr at: 1 put: (self cCoerce: mem to: 'long').
interpreterProxy methodReturnValue: alien!
Item was changed:
----- Method: IA32ABIPlugin>>primBoxedFree (in category 'primitives-memory management') -----
primBoxedFree
"Free the memory referenced by the receiver, an Alien."
"proxy <Alien> primFree ^<Alien>
<primitive: 'primBoxedFree' error: errorCode module: 'IA32ABI'>"
| addr rcvr ptr sizeField |
<export: true>
+ <var: #ptr type: #'sqIntptr_t *'>
+ <var: #addr type: #'sqIntptr_t'>
+ <var: #sizeField type: #'sqIntptr_t'>
- <var: #ptr type: 'sqInt *'>
- <var: #sizeField type: 'long'>
rcvr := interpreterProxy stackValue: 0.
(interpreterProxy byteSizeOf: rcvr) >= (2 * interpreterProxy bytesPerOop) ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrBadReceiver].
ptr := interpreterProxy firstIndexableField: rcvr.
sizeField := ptr at: 0.
addr := ptr at: 1.
"Don't you dare to free Squeak's memory!!"
(sizeField >= 0 or: [addr = 0 or: [interpreterProxy isInMemory: addr]]) ifTrue:
[^interpreterProxy primitiveFailFor: PrimErrInappropriate].
self cCode: 'free((void *)addr)'
inSmalltalk: [self Cfree: addr].
ptr
at: 0 put: 0;
at: 1 put: 0 "cleanup"!
Item was changed:
----- Method: IA32ABIPlugin>>primThunkEntryAddress (in category 'primitives-callbacks') -----
primThunkEntryAddress
"Answer the address of the entry-point for thunk callbacks:
long thunkEntry(void *thunkp, long *stackp);
This could be derived via loadModule: findSymbol: etc but that would
preclude making the plugin internal."
| address |
<export: true>
+ address := self cCode: [#thunkEntry asIntegerPtr] inSmalltalk: [0].
- address := self cCode: [#thunkEntry asInteger] inSmalltalk: [0].
interpreterProxy methodReturnValue: (self positiveMachineIntegerFor: address)!
Item was added:
+ ----- Method: Integer>>asIntegerPtr (in category '*VMMaker-interpreter simulator') -----
+ asIntegerPtr
+ ^self!
Item was added:
+ ----- Method: Integer>>asUnsignedIntegerPtr (in category '*VMMaker-interpreter simulator') -----
+ asUnsignedIntegerPtr
+ "Since the simulator deals with positive integers most of the time we assert that the receiver is greater than zero.
+ But one major exception is stack pointers in the StackInterpreterSimulator, which are negative. So don't fail
+ if the sender is a StackInterpreter and the receiver could be a stack pointer."
+ self >= 0 ifFalse:
+ [self assert: ((thisContext sender methodClass includesBehavior: StackInterpreter)
+ and: [thisContext sender receiver stackPages couldBeFramePointer: self])].
+ ^self!
Item was changed:
----- Method: Interpreter class>>declareCVarsIn: (in category 'translation') -----
declareCVarsIn: aCCodeGenerator
aCCodeGenerator addHeaderFile:'<setjmp.h>'.
self declareInterpreterVersionIn: aCCodeGenerator
defaultName: 'Context'.
aCCodeGenerator
var: #interpreterProxy
type: #'struct VirtualMachine*'.
aCCodeGenerator
var: #primitiveTable
declareC: 'void *primitiveTable[MaxPrimitiveIndex + 2 /* ', (MaxPrimitiveIndex +2) printString, ' */] = ', self primitiveTableString.
aCCodeGenerator
var: #primitiveFunctionPointer
declareC: 'void *primitiveFunctionPointer'. "xxxx FIX THIS STUPIDITY xxxx - ikp. What he means is use a better type than void *, apparently - tpr"
aCCodeGenerator
var: #methodCache
+ declareC: 'sqIntptr_t methodCache[MethodCacheSize + 1 /* ', (MethodCacheSize + 1) printString, ' */]'.
- declareC: 'long methodCache[MethodCacheSize + 1 /* ', (MethodCacheSize + 1) printString, ' */]'.
aCCodeGenerator
var: #atCache
declareC: 'sqInt atCache[AtCacheTotalSize + 1 /* ', (AtCacheTotalSize + 1) printString, ' */]'.
aCCodeGenerator var: #localIP type: #'char*'.
aCCodeGenerator var: #localSP type: #'char*'.
aCCodeGenerator var: #showSurfaceFn type: #'void*'.
aCCodeGenerator var: 'semaphoresToSignalA'
declareC: 'sqInt semaphoresToSignalA[SemaphoresToSignalSize + 1 /* ', (SemaphoresToSignalSize + 1) printString, ' */]'.
aCCodeGenerator var: 'semaphoresToSignalB'
declareC: 'sqInt semaphoresToSignalB[SemaphoresToSignalSize + 1 /* ', (SemaphoresToSignalSize + 1) printString, ' */]'.
aCCodeGenerator
var: #compilerHooks
declareC: 'sqInt (*compilerHooks[CompilerHooksSize + 1 /* ', (CompilerHooksSize + 1) printString, ' */])()'.
aCCodeGenerator
var: #externalPrimitiveTable
declareC: 'void *externalPrimitiveTable[MaxExternalPrimitiveTableSize + 1 /* ', (MaxExternalPrimitiveTableSize + 1) printString, ' */]'.
aCCodeGenerator
var: #jmpBuf
declareC: 'jmp_buf jmpBuf[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'.
aCCodeGenerator
var: #suspendedCallbacks
declareC: 'usqInt suspendedCallbacks[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'.
aCCodeGenerator
var: #suspendedMethods
declareC: 'usqInt suspendedMethods[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'.
self declareCAsOop: {
#instructionPointer.
#method.
#newMethod.
#activeContext.
#theHomeContext.
#stackPointer
} in: aCCodeGenerator.
aCCodeGenerator var: #nextProfileTick type: #sqLong.
!
Item was changed:
----- Method: Interpreter>>addNewMethodToCache (in category 'method lookup cache') -----
addNewMethodToCache
"Add the given entry to the method cache.
The policy is as follows:
Look for an empty entry anywhere in the reprobe chain.
If found, install the new entry there.
If not found, then install the new entry at the first probe position
and delete the entries in the rest of the reprobe chain.
This has two useful purposes:
If there is active contention over the first slot, the second
or third will likely be free for reentry after ejection.
Also, flushing is good when reprobe chains are getting full."
| probe hash |
<inline: false>
hash := messageSelector bitXor: lkupClass. "drop low-order zeros from addresses"
(self isOopCompiledMethod: newMethod)
ifTrue:
[primitiveIndex := self primitiveIndexOf: newMethod.
primitiveFunctionPointer := self functionPointerFor: primitiveIndex inClass: lkupClass]
ifFalse:
[primitiveFunctionPointer := #primitiveInvokeObjectAsMethod].
primitiveFunctionPointer := self functionPointerFor: primitiveIndex inClass: lkupClass.
0 to: CacheProbeMax-1 do:
[:p | probe := (hash >> p) bitAnd: MethodCacheMask.
(methodCache at: probe + MethodCacheSelector) = 0 ifTrue:
["Found an empty entry -- use it"
methodCache at: probe + MethodCacheSelector put: messageSelector.
methodCache at: probe + MethodCacheClass put: lkupClass.
methodCache at: probe + MethodCacheMethod put: newMethod.
methodCache at: probe + MethodCachePrim put: primitiveIndex.
+ methodCache at: probe + MethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: #'sqIntptr_t').
- methodCache at: probe + MethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: 'long').
^ nil]].
"OK, we failed to find an entry -- install at the first slot..."
probe := hash bitAnd: MethodCacheMask. "first probe"
methodCache at: probe + MethodCacheSelector put: messageSelector.
methodCache at: probe + MethodCacheClass put: lkupClass.
methodCache at: probe + MethodCacheMethod put: newMethod.
methodCache at: probe + MethodCachePrim put: primitiveIndex.
+ methodCache at: probe + MethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: #'sqIntptr_t').
- methodCache at: probe + MethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: 'long').
"...and zap the following entries"
1 to: CacheProbeMax-1 do:
[:p | probe := (hash >> p) bitAnd: MethodCacheMask.
methodCache at: probe + MethodCacheSelector put: 0].
!
Item was changed:
----- Method: Interpreter>>rewriteMethodCacheSel:class:primIndex:primFunction: (in category 'method lookup cache') -----
rewriteMethodCacheSel: selector class: class primIndex: localPrimIndex primFunction: localPrimAddress
"Rewrite an existing entry in the method cache with a new primitive
index & function address. Used by primExternalCall to make direct jumps to found external prims"
| probe hash |
<inline: false>
<var: #localPrimAddress type: 'void *'>
hash := selector bitXor: class.
0 to: CacheProbeMax - 1 do: [:p |
probe := hash >> p bitAnd: MethodCacheMask.
((methodCache at: probe + MethodCacheSelector) = selector
and: [(methodCache at: probe + MethodCacheClass) = class])
ifTrue: [methodCache at: probe + MethodCachePrim put: localPrimIndex.
+ methodCache at: probe + MethodCachePrimFunction put: (self cCoerce: localPrimAddress to: #'sqIntptr_t').
- methodCache at: probe + MethodCachePrimFunction put: (self cCoerce: localPrimAddress to: 'long').
^ nil]]!
Item was changed:
----- Method: InterpreterPlugin>>positiveMachineIntegerFor: (in category 'API access') -----
positiveMachineIntegerFor: value
+ <var: #value type: #'usqIntptr_t'>
- <var: #value type: #'unsigned long'>
<inline: true>
^interpreterProxy wordSize = 8
ifTrue: [interpreterProxy positive64BitIntegerFor: value]
ifFalse: [interpreterProxy positive32BitIntegerFor: value]!
Item was changed:
----- Method: InterpreterPlugin>>signedMachineIntegerFor: (in category 'API access') -----
signedMachineIntegerFor: value
+ <var: #value type: #'sqIntptr_t'>
- <var: #value type: #'unsigned long'>
<inline: true>
^interpreterProxy wordSize = 8
ifTrue: [interpreterProxy signed64BitIntegerFor: value]
ifFalse: [interpreterProxy signed32BitIntegerFor: value]!
Item was changed:
----- Method: InterpreterPlugin>>sizeof: (in category 'simulation support') -----
sizeof: objectSymbolOrClass
<doNotGenerate>
- objectSymbolOrClass isInteger ifTrue:
- [^interpreterProxy wordSize].
objectSymbolOrClass isSymbol ifTrue:
["In the simulator file handles are just integer indices into openFiles and so need
only be BytesPerWord big. But in the actual VM they are at least 5 words long."
objectSymbolOrClass == #SQFile ifTrue:
[^interpreterProxy wordSize * 5].
"SQSocket is typedef struct { int sessionID; int socketType; void *privateSocketPtr; } SQSocket"
objectSymbolOrClass == #SQSocket ifTrue:
[^8 + interpreterProxy wordSize].
"We assume the file offset type is always 64-bits."
objectSymbolOrClass == #squeakFileOffsetType ifTrue:
[^8].
(objectSymbolOrClass last == $*
+ or: [#'sqIntptr_t' == objectSymbolOrClass
+ or: [#'usqIntptr_t' == objectSymbolOrClass
+ or: [#'size_t' == objectSymbolOrClass]]]) ifTrue:
- or: [#long == objectSymbolOrClass
- or: [#'unsigned long' == objectSymbolOrClass]]) ifTrue:
[^interpreterProxy wordSize].
(#(usqInt sqInt) includes: objectSymbolOrClass) ifTrue:
[^interpreterProxy bytesPerOop]].
^super sizeof: objectSymbolOrClass!
Item was changed:
----- Method: InterpreterPrimitives>>asUnsigned: (in category 'primitive support') -----
asUnsigned: anInteger
<inline: true>
+ ^self cCode: [anInteger asUnsignedIntegerPtr] inSmalltalk: [anInteger bitAnd: objectMemory maxCInteger]!
- ^self cCode: [anInteger asUnsignedLong] inSmalltalk: [anInteger bitAnd: objectMemory maxCInteger]!
Item was added:
+ ----- Method: InterpreterPrimitives>>maybeInlinePositive32BitValueOf: (in category 'primitive support') -----
+ maybeInlinePositive32BitValueOf: oop
+ "Convert the given object into an integer value.
+ The object may be either a positive SmallInteger or a four-byte LargePositiveInteger."
+ <notOption: #Spur64BitMemoryManager>
+ <returnTypeC: #'unsigned int'>
+ | value ok sz |
+ (objectMemory isIntegerObject: oop) ifTrue:
+ [value := objectMemory integerValueOf: oop.
+ (value < 0) ifTrue:
+ [self primitiveFail. value := 0].
+ ^value].
+
+ (objectMemory isNonIntegerImmediate: oop)
+ ifTrue:
+ [self primitiveFail.
+ ^0]
+ ifFalse:
+ [ok := objectMemory
+ isClassOfNonImm: oop
+ equalTo: (objectMemory splObj: ClassLargePositiveInteger)
+ compactClassIndex: ClassLargePositiveIntegerCompactIndex.
+ ok ifFalse:
+ [self primitiveFail.
+ ^0].
+ sz := objectMemory numBytesOfBytes: oop.
+ sz > 4 ifTrue:
+ [self primitiveFail.
+ ^0].
+ ^self cCoerceSimple: (objectMemory byteSwapped32IfBigEndian: (objectMemory fetchLong32: 0 ofObject: oop)) to: #'unsigned int']!
Item was added:
+ ----- Method: InterpreterPrimitives>>noInlineSigned32BitValueOf: (in category 'primitive support') -----
+ noInlineSigned32BitValueOf: oop
+ "Convert the given object into an integer value.
+ The object may be either a SmallInteger or a four-byte LargeInteger."
+ | value negative ok magnitude |
+ <notOption: #Spur64BitMemoryManager>
+ <inline: false>
+ <returnTypeC: #int>
+ <var: #value type: #int>
+ <var: #magnitude type: #'unsigned int'>
+ self deny: objectMemory hasSixtyFourBitImmediates.
+ (objectMemory isIntegerObject: oop) ifTrue:
+ [^objectMemory integerValueOf: oop].
+
+ (objectMemory isNonIntegerImmediate: oop) ifTrue:
+ [self primitiveFail.
+ ^0].
+
+ ok := objectMemory
+ isClassOfNonImm: oop
+ equalTo: (objectMemory splObj: ClassLargePositiveInteger)
+ compactClassIndex: ClassLargePositiveIntegerCompactIndex.
+ ok
+ ifTrue: [negative := false]
+ ifFalse:
+ [negative := true.
+ ok := objectMemory isClassOfNonImm: oop
+ equalTo: (objectMemory splObj: ClassLargeNegativeInteger)
+ compactClassIndex: ClassLargeNegativeIntegerCompactIndex.
+ ok ifFalse:
+ [self primitiveFail.
+ ^0]].
+ (objectMemory numBytesOfBytes: oop) > 4 ifTrue:
+ [^self primitiveFail].
+
+ magnitude := self cCoerceSimple: (objectMemory byteSwapped32IfBigEndian: (objectMemory fetchLong32: 0 ofObject: oop)) to: #'unsigned int'.
+
+ (negative
+ ifTrue: [magnitude > 16r80000000]
+ ifFalse: [magnitude >= 16r80000000])
+ ifTrue:
+ [self primitiveFail.
+ ^0].
+ negative
+ ifTrue: [value := 0 - magnitude]
+ ifFalse: [value := magnitude].
+ ^value!
Item was changed:
----- Method: InterpreterPrimitives>>positive32BitValueOf: (in category 'primitive support') -----
positive32BitValueOf: oop
"Convert the given object into an integer value.
The object may be either a positive SmallInteger or a four-byte LargePositiveInteger."
+ <returnTypeC: #'unsigned int'>
+ objectMemory hasSixtyFourBitImmediates
- <returnTypeC: #usqInt>
- | value ok sz |
- (objectMemory isIntegerObject: oop) ifTrue:
- [value := objectMemory integerValueOf: oop.
- (value < 0
- or: [objectMemory wordSize > 4
- and: [self cCode: [(self cCoerceSimple: value to: #'unsigned int') ~= value]
- inSmalltalk: [value >> 32 ~= 0]]]) ifTrue:
- [self primitiveFail. value := 0].
- ^value].
-
- (objectMemory hasSixtyFourBitImmediates
- or: [objectMemory isNonIntegerImmediate: oop])
ifTrue:
+ [(objectMemory isIntegerObject: oop) ifTrue:
+ [| value64 |
+ value64 := objectMemory integerValueOf: oop.
+ (value64 < 0
+ or: [self cCode: [(self cCoerceSimple: value64 to: #'unsigned int') ~= value64]
+ inSmalltalk: [value64 >> 32 ~= 0]]) ifTrue:
+ [self primitiveFail. value64 := 0].
+ ^value64].
+ self primitiveFail.
+ ^0]
- [self primitiveFail.
- ^0]
ifFalse:
+ [^self maybeInlinePositive32BitValueOf: oop]!
- [ok := objectMemory
- isClassOfNonImm: oop
- equalTo: (objectMemory splObj: ClassLargePositiveInteger)
- compactClassIndex: ClassLargePositiveIntegerCompactIndex.
- ok ifFalse:
- [self primitiveFail.
- ^0].
- sz := objectMemory numBytesOfBytes: oop.
- sz > 4 ifTrue:
- [self primitiveFail.
- ^0].
- ^self cCoerceSimple: (objectMemory byteSwapped32IfBigEndian: (objectMemory fetchLong32: 0 ofObject: oop)) to: #'unsigned int']!
Item was changed:
----- Method: InterpreterPrimitives>>positiveMachineIntegerValueOf: (in category 'primitive support') -----
positiveMachineIntegerValueOf: oop
"Answer a value of an integer in address range, i.e up to the size of a machine word.
The object may be either a positive SmallInteger or a LargePositiveInteger of size <= word size."
+ <returnTypeC: #'usqIntptr_t'>
- <returnTypeC: #'unsigned long'>
<inline: true> "only two callers & one is primitiveNewWithArg"
| value bs ok |
(objectMemory isIntegerObject: oop) ifTrue:
[value := objectMemory integerValueOf: oop.
value < 0 ifTrue: [^self primitiveFail].
^value].
(objectMemory isNonIntegerImmediate: oop) ifTrue:
[self primitiveFail.
^0].
ok := objectMemory
isClassOfNonImm: oop
equalTo: (objectMemory splObj: ClassLargePositiveInteger)
compactClassIndex: ClassLargePositiveIntegerCompactIndex.
ok ifFalse:
[self primitiveFail.
^0].
bs := objectMemory numBytesOfBytes: oop.
+ bs > (self sizeof: #'usqIntptr_t') ifTrue:
- bs > (self sizeof: #'unsigned long') ifTrue:
[self primitiveFail.
^0].
"self cppIf: SPURVM
ifTrue: [""Memory is 8 byte aligned in Spur and oversized bytes are set to zero, so we can safely fetch 8 bytes""
^objectMemory byteSwapped64IfBigEndian: (objectMemory fetchLong64: 0 ofObject: oop)]
+ ifFalse: ["((self sizeof: #'usqIntptr_t') = 8
- ifFalse: ["((self sizeof: #'unsigned long') = 8
and: [bs > 4])
ifTrue:
[^objectMemory byteSwapped64IfBigEndian: (objectMemory fetchLong64: 0 ofObject: oop)]
ifFalse:
[^self cCoerceSimple: (objectMemory byteSwapped32IfBigEndian: (objectMemory fetchLong32: 0 ofObject: oop)) to: #'unsigned int']"]"!
Item was changed:
----- Method: InterpreterPrimitives>>primitiveClockLogAddresses (in category 'system control primitives') -----
primitiveClockLogAddresses
"Take a boolean which if true turns or keeps clock logging on. Answer an array supplying
the size of the clock logs, the address of the usecs log, the index in it, the address of the
msecs log, and the index into it."
<export: true>
| result runInNOut usecs uidx msecs midx v1 v2 |
<var: #usecs type: #'void *'>
<var: #msecs type: #'void *'>
+ <var: #runInNOut type: #sqInt> "bypass type inference which would deduce int"
argumentCount ~= 1 ifTrue:
[^self primitiveFail].
runInNOut := (self stackValue: 0) == objectMemory trueObject.
self ioGetClockLogSize: (self addressOf: runInNOut)
Usecs: (self addressOf: usecs) Idx: (self addressOf: uidx)
Msecs: (self addressOf: msecs) Idx: (self addressOf: midx).
result := objectMemory instantiateClass: (objectMemory splObj: ClassArray) indexableSize: 5.
result = 0 ifTrue:
[^self primitiveFail].
objectMemory pushRemappableOop: result.
objectMemory storePointerUnchecked: 0 ofObject: objectMemory topRemappableOop withValue: (objectMemory integerObjectOf: runInNOut).
v1 := self positive32BitIntegerFor: usecs asUnsignedInteger.
v2 := self positive32BitIntegerFor: msecs asUnsignedInteger.
self successful ifFalse:
[objectMemory popRemappableOop.
^self primitiveFail].
objectMemory storePointer: 1 ofObject: objectMemory topRemappableOop withValue: v1.
objectMemory storePointerUnchecked: 2 ofObject: objectMemory topRemappableOop withValue: (objectMemory integerObjectOf: uidx).
objectMemory storePointer: 3 ofObject: objectMemory topRemappableOop withValue: v2.
objectMemory storePointerUnchecked: 4 ofObject: objectMemory topRemappableOop withValue: (objectMemory integerObjectOf: midx).
self pop: 2 thenPush: objectMemory popRemappableOop
!
Item was changed:
----- Method: InterpreterPrimitives>>primitiveGetNextEvent (in category 'I/O primitives') -----
primitiveGetNextEvent
"Primitive. Return the next input event from the VM event queue."
| evtBuf arg value eventTypeIs |
+ <var: #evtBuf declareC:'sqIntptr_t evtBuf[8] = { 0, 0, 0, 0, 0, 0, 0, 0 }'>
- <var: #evtBuf declareC:'long evtBuf[8] = { 0, 0, 0, 0, 0, 0, 0, 0 }'>
self cCode: [] inSmalltalk: [evtBuf := objectMemory newInputEventAccessorOfSize: 8].
arg := self stackTop.
((objectMemory isArray: arg) and:[(objectMemory slotSizeOf: arg) = 8]) ifFalse:
[^self primitiveFailFor: PrimErrBadArgument].
self ioGetNextEvent: (self cCoerce: evtBuf to: 'sqInputEvent*').
self successful ifFalse:
[^nil].
"Event type"
eventTypeIs := evtBuf at: 0.
self storeInteger: 0 ofObject: arg withValue: (evtBuf at: 0).
self successful ifFalse:
[^nil].
eventTypeIs = 6
ifTrue: "Event is Complex, assume evtBuf is populated correctly and return"
[1 to: 7 do: [:i |
value := evtBuf at: i.
self storePointer: i ofObject: arg withValue: value]]
ifFalse:
["Event time stamp"
self storeInteger: 1 ofObject: arg withValue: ((evtBuf at: 1) bitAnd: MillisecondClockMask).
self successful ifFalse:
[^nil].
"Event arguments"
2 to: 7 do:[:i|
value := evtBuf at: i.
(objectMemory isIntegerValue: value)
ifTrue:[self storeInteger: i ofObject: arg withValue: value]
ifFalse:
[value := self positiveMachineIntegerFor: value.
objectMemory storePointer: i ofObject: arg withValue: value]]].
self successful ifTrue: [self pop: 1]!
Item was changed:
----- Method: InterpreterPrimitives>>signed32BitValueOf: (in category 'primitive support') -----
signed32BitValueOf: oop
"Convert the given object into an integer value.
+ The object may be either a SmallInteger or a four-byte LargeInteger."
- The object may be either a positive SmallInteger or a four-byte LargeInteger."
- | value negative ok magnitude |
- <inline: false>
<returnTypeC: #int>
+
+ objectMemory hasSixtyFourBitImmediates
+ ifTrue:
+ [(objectMemory isIntegerObject: oop) ifTrue:
- <var: #value type: #int>
- <var: #magnitude type: #'unsigned int'>
- <var: #value64 type: #long>
- (objectMemory isIntegerObject: oop) ifTrue:
- [objectMemory wordSize = 4
- ifTrue:
- [^objectMemory integerValueOf: oop]
- ifFalse: "Must fail for SmallIntegers with digitLength > 4"
[| value64 |
value64 := objectMemory integerValueOf: oop.
(self cCode: [(self cCoerceSimple: value64 to: #int) ~= value64]
inSmalltalk: [value64 >> 31 ~= 0 and: [value64 >> 31 ~= -1]]) ifTrue:
[self primitiveFail. value64 := 0].
+ ^value64].
+ self primitiveFail.
+ ^0]
- ^value64]].
-
- (objectMemory isNonIntegerImmediate: oop) ifTrue:
- [self primitiveFail.
- ^0].
-
- ok := objectMemory
- isClassOfNonImm: oop
- equalTo: (objectMemory splObj: ClassLargePositiveInteger)
- compactClassIndex: ClassLargePositiveIntegerCompactIndex.
- ok
- ifTrue: [negative := false]
ifFalse:
+ [^self noInlineSigned32BitValueOf: oop]!
- [negative := true.
- ok := objectMemory isClassOfNonImm: oop
- equalTo: (objectMemory splObj: ClassLargeNegativeInteger)
- compactClassIndex: ClassLargeNegativeIntegerCompactIndex.
- ok ifFalse:
- [self primitiveFail.
- ^0]].
- (objectMemory numBytesOfBytes: oop) > 4 ifTrue:
- [^self primitiveFail].
-
- magnitude := self cCoerceSimple: (objectMemory byteSwapped32IfBigEndian: (objectMemory fetchLong32: 0 ofObject: oop)) to: #'unsigned int'.
-
- (negative
- ifTrue: [magnitude > 16r80000000]
- ifFalse: [magnitude >= 16r80000000])
- ifTrue:
- [self primitiveFail.
- ^0].
- negative
- ifTrue: [value := 0 - magnitude]
- ifFalse: [value := magnitude].
- ^value!
Item was changed:
----- Method: InterpreterPrimitives>>signedMachineIntegerValueOf: (in category 'primitive support') -----
signedMachineIntegerValueOf: oop
"Answer a signed value of an integer up to the size of a machine word.
The object may be either a positive SmallInteger or a LargeInteger of size <= word size."
+ <returnTypeC: #'sqIntptr_t'>
- <returnTypeC: #'long'>
| negative ok bs value limit magnitude |
+ <var: #value type: #sqInt>
+ <var: #magnitude type: #'usqIntptr_t'>
+ <var: #limit type: #'usqIntptr_t'>
- <var: #value type: #long>
- <var: #magnitude type: #usqInt>
- <var: #limit type: #usqInt>
(objectMemory isIntegerObject: oop) ifTrue:
[^objectMemory integerValueOf: oop].
(objectMemory isNonIntegerImmediate: oop) ifTrue:
[^self primitiveFail].
ok := objectMemory isClassOfNonImm: oop
equalTo: (objectMemory splObj: ClassLargePositiveInteger)
compactClassIndex: ClassLargePositiveIntegerCompactIndex.
ok
ifTrue: [negative := false]
ifFalse:
[negative := true.
ok := objectMemory isClassOfNonImm: oop
equalTo: (objectMemory splObj: ClassLargeNegativeInteger)
compactClassIndex: ClassLargeNegativeIntegerCompactIndex.
ok ifFalse: [^self primitiveFail]].
bs := objectMemory numBytesOf: oop.
+ bs > (self sizeof: #'usqIntptr_t') ifTrue:
- bs > (self sizeof: #'unsigned long') ifTrue:
[^self primitiveFail].
"self cppIf: SPURVM
ifTrue:
[""Memory is 8 byte aligned in Spur and oversized bytes are set to zero, so we can safely fetch 8 bytes""
magnitude := objectMemory byteSwapped64IfBigEndian: (objectMemory fetchLong64: 0 ofObject: oop)]
ifFalse:
+ ["((self sizeof: #'sqIntptr_t') = 8
- ["((self sizeof: #'unsigned long') = 8
and: [bs > 4])
ifTrue:
[magnitude := objectMemory byteSwapped64IfBigEndian: (objectMemory fetchLong64: 0 ofObject: oop)]
ifFalse:
[magnitude := self cCoerceSimple: (objectMemory byteSwapped32IfBigEndian: (objectMemory fetchLong32: 0 ofObject: oop)) to: #'unsigned int']"]".
+ limit := 1 asUnsignedIntegerPtr << ((self sizeof: #'sqIntptr_t') * 8 - 1).
- limit := 1 asUnsignedInteger << ((self sizeof: #usqInt) * 8 - 1).
(negative
ifTrue: [magnitude > limit]
ifFalse: [magnitude >= limit])
ifTrue: [self primitiveFail.
^0].
negative
ifTrue: [value := 0 - magnitude]
ifFalse: [value := magnitude].
^value!
Item was changed:
----- Method: InterpreterProxy>>ioLoadSymbol:OfLength:FromModule: (in category 'FFI support') -----
ioLoadSymbol: functionNameIndex OfLength: functionLength FromModule: moduleHandle
<returnTypeC: #'void *'>
+ <var: 'moduleHandle' type: #'void *'>
"Dummy - provided by support code"
^0!
Item was changed:
----- Method: InterpreterProxy>>positiveMachineIntegerValueOf: (in category 'converting') -----
positiveMachineIntegerValueOf: oop
+ <returnTypeC: #'usqIntptr_t'>
- <returnTypeC: #'unsigned long'>
oop isInteger ifFalse:[self error: 'Not an integer object'].
^oop < 0
ifTrue: [self primitiveFail. 0]
ifFalse: [oop]!
Item was changed:
----- Method: InterpreterProxy>>signedMachineIntegerValueOf: (in category 'converting') -----
signedMachineIntegerValueOf: oop
+ <returnTypeC: #'sqIntptr_t'>
- <returnTypeC: #'long'>
oop isInteger ifFalse:[self error:'Not an integer object'].
^oop!
Item was changed:
----- Method: InterpreterProxy>>stackPositiveMachineIntegerValue: (in category 'stack access') -----
stackPositiveMachineIntegerValue: offset
+ <returnTypeC: #'usqIntptr_t'>
^self positiveMachineIntegerValueOf: (self stackValue: offset)!
Item was changed:
----- Method: InterpreterProxy>>stackSignedMachineIntegerValue: (in category 'stack access') -----
stackSignedMachineIntegerValue: offset
+ <returnTypeC: #'sqIntptr_t'>
^self signedMachineIntegerValueOf: (self stackValue: offset)!
Item was changed:
----- Method: LargeIntegersPlugin>>anyBitOfLargeInt:from:to: (in category 'util') -----
anyBitOfLargeInt: anOop from: start to: stopArg
"Argument has to be a Large Integer!!"
"Tests for any magnitude bits in the interval from start to stopArg."
| magnitude stop firstDigitIx lastDigitIx firstMask lastMask |
<var: #digit type: #'unsigned int'>
<var: #firstMask type: #'unsigned int'>
<var: #lastMask type: #'unsigned int'>
<var: #firstDigitIx type: #usqInt>
<var: #lastDigitIx type: #usqInt>
<var: #ix type: #usqInt>
self
debugCode: [self msg: 'anyBitOfLargeInt: anOop from: start to: stopArg'].
start < 1 | (stopArg < 1)
ifTrue: [^ interpreterProxy primitiveFail].
magnitude := anOop.
stop := stopArg min: (self highBitOfLargeInt: magnitude).
start > stop
ifTrue: [^ false].
firstDigitIx := start - 1 // 32 + 1.
lastDigitIx := stop - 1 // 32 + 1.
+ firstMask := 16rFFFFFFFF << (start - 1 bitAnd: 31).
- firstMask := 16rFFFFFFFF asUnsignedLong << (start - 1 bitAnd: 31). "Note asUnsignedLong required to avoid ULLL suffix bug"
lastMask := 16rFFFFFFFF >> (31 - (stop - 1 bitAnd: 31)).
firstDigitIx = lastDigitIx
ifTrue: [| digit |
digit := self unsafeDigitOfLargeInt: magnitude at: firstDigitIx.
^ (digit bitAnd: (firstMask bitAnd: lastMask))
~= 0].
((self unsafeDigitOfLargeInt: magnitude at: firstDigitIx) bitAnd: firstMask)
~= 0
ifTrue: [^ true].
firstDigitIx + 1
to: lastDigitIx - 1
do: [:ix | (self unsafeDigitOfLargeInt: magnitude at: ix)
~= 0
ifTrue: [^ true]].
((self unsafeDigitOfLargeInt: magnitude at: lastDigitIx) bitAnd: lastMask)
~= 0
ifTrue: [^ true].
^ false!
Item was changed:
----- Method: LargeIntegersPlugin>>digitSizeOfCSI: (in category 'util') -----
digitSizeOfCSI: csi
"Answer the number of 32-bits fields of a C-SmallInteger. This value is
the same as the largest legal subscript."
^(interpreterProxy maxSmallInteger <= 16r3FFFFFFF)
ifTrue: [1]
+ ifFalse: [csi > 16rFFFFFFFF asIntegerPtr "conversion is not really needed here, but avoid generating a warning in 32bits, and harmless in 64bits"
- ifFalse: [csi > 16rFFFFFFFF asLong "asLong is not really needed here, but avoid generating a warning in 32bits, and harmless in 64bits"
ifTrue: [2]
ifFalse: [csi < -16rFFFFFFFF
ifTrue: [2]
ifFalse: [1]]]!
Item was changed:
----- Method: LargeIntegersPlugin>>normalizeNegative: (in category 'oop functions') -----
normalizeNegative: aLargeNegativeInteger
"Check for leading zeroes and return shortened copy if so."
"First establish len = significant length."
| val val2 sLen digitLen byteLen oldByteLen minVal |
+ <var: #val type: #usqInt>
+ <var: #val2 type: #usqInt>
+ <var: #minVal type: #usqInt>
- <var: #val type: #'unsigned long'>
- <var: #val2 type: #'unsigned long'>
- <var: #minVal type: #'unsigned long'>
digitLen := self digitSizeOfLargeInt: aLargeNegativeInteger.
[digitLen ~= 0 and: [(self unsafeDigitOfLargeInt: aLargeNegativeInteger at: digitLen) = 0]]
whileTrue: [digitLen := digitLen - 1].
digitLen = 0 ifTrue: [^ 0 asOop: SmallInteger].
"Now check if in SmallInteger range"
val := self unsafeDigitOfLargeInt: aLargeNegativeInteger at: digitLen.
sLen := interpreterProxy minSmallInteger < -16r40000000
ifTrue: [2]
ifFalse: [1]. "SmallInteger minVal digitLength"
digitLen <= sLen
ifTrue:
[minVal := 0 - interpreterProxy minSmallInteger.
val2 := val.
digitLen > 1 ifTrue: [val2 := val2 << 32 + (self unsafeDigitOfLargeInt: aLargeNegativeInteger at: 1)].
val2 <= minVal
ifTrue: [^0 - val2 asOop: SmallInteger]].
"Return self, or a shortened copy"
byteLen := digitLen * 4.
val <= 16rFFFF
ifTrue: [byteLen := byteLen - 2]
ifFalse: [val := val >> 16].
val <= 16rFF
ifTrue: [byteLen := byteLen - 1].
oldByteLen := self byteSizeOfLargeInt: aLargeNegativeInteger.
byteLen < oldByteLen
ifTrue: [^ self largeInt: aLargeNegativeInteger growTo: byteLen]
ifFalse: [^ aLargeNegativeInteger]!
Item was changed:
----- Method: LargeIntegersPlugin>>normalizePositive: (in category 'oop functions') -----
normalizePositive: aLargePositiveInteger
"Check for leading zeroes and return shortened copy if so."
"First establish len = significant length."
| val val2 sLen digitLen byteLen oldByteLen maxVal |
+ <var: #val type: #usqInt>
+ <var: #val2 type: #usqInt>
+ <var: #maxVal type: #usqInt>
- <var: #val type: #'unsigned long'>
- <var: #val2 type: #'unsigned long'>
- <var: #maxVal type: #'unsigned long'>
digitLen := self digitSizeOfLargeInt: aLargePositiveInteger.
[digitLen ~= 0 and: [(self unsafeDigitOfLargeInt: aLargePositiveInteger at: digitLen) = 0]]
whileTrue: [digitLen := digitLen - 1].
digitLen = 0 ifTrue: [^ 0 asOop: SmallInteger].
"Now check if in SmallInteger range"
val := self unsafeDigitOfLargeInt: aLargePositiveInteger at: digitLen.
sLen := interpreterProxy maxSmallInteger > 16r3FFFFFFF
ifTrue: [2]
ifFalse: [1]. "SmallInteger maxVal digitLength"
digitLen <= sLen
ifTrue:
[maxVal := interpreterProxy maxSmallInteger.
val2 := val.
digitLen > 1 ifTrue: [val2 := val2 << 32 + (self unsafeDigitOfLargeInt: aLargePositiveInteger at: 1)].
val2 <= maxVal
ifTrue: [^val2 asOop: SmallInteger]].
"Return self, or a shortened copy"
byteLen := digitLen * 4.
val <= 16rFFFF
ifTrue: [byteLen := byteLen - 2]
ifFalse: [val := val >> 16].
val <= 16rFF
ifTrue: [byteLen := byteLen - 1].
oldByteLen := self byteSizeOfLargeInt: aLargePositiveInteger.
byteLen < oldByteLen
ifTrue: [^ self largeInt: aLargePositiveInteger growTo: byteLen]
ifFalse: [^ aLargePositiveInteger]!
Item was changed:
----- Method: MacMenubarPlugin>>primitiveCreateStandardWindowMenu: (in category 'system primitives') -----
primitiveCreateStandardWindowMenu: inOptions
<var: #menuHandle type: #MenuHandle>
| menuHandle result |
self primitive: 'primitiveCreateStandardWindowMenu'
parameters: #(SmallInteger).
self cppIf: #'TARGET_API_MAC_CARBON'
ifTrue: [result := self cCode: 'CreateStandardWindowMenu(inOptions,&menuHandle);' inSmalltalk:[0]].
+ ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: #'usqIntptr_t')!
- ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!
Item was changed:
----- Method: MacMenubarPlugin>>primitiveDisposeMenuBar: (in category 'system primitives') -----
primitiveDisposeMenuBar: menuHandleOop
<var: #menuBarHandle type: #Handle>
| menuBarHandle |
self primitive: 'primitiveDisposeMenuBar'
parameters: #(Oop).
+ menuBarHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #Handle.
- menuBarHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: #Handle.
self cppIf: #'TARGET_API_MAC_CARBON'
ifTrue: [self cCode: 'DisposeMenuBar(menuBarHandle);' inSmalltalk: [menuBarHandle]]
ifFalse: [self cCode: 'DisposeHandle(menuBarHandle);' inSmalltalk: [menuBarHandle]].
^nil
!
Item was changed:
----- Method: MacMenubarPlugin>>primitiveGetIndMenuWithCommandID:commandID: (in category 'system primitives') -----
primitiveGetIndMenuWithCommandID: menuHandleOop commandID: aCommandID
<var: #menuHandle type: #MenuHandle>
<var: #commandID type: #MenuCommand>
<var: #applicationMenu type: #MenuHandle>
<var: #outIndex type: #MenuItemIndex>
| menuHandle commandID applicationMenu outIndex |
self primitive: 'primitiveGetIndMenuWithCommandID'
parameters: #(Oop Oop).
menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
commandID := self cCoerce: (interpreterProxy positive32BitValueOf: aCommandID) to: 'MenuCommand'.
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
self cppIf: #'TARGET_API_MAC_CARBON'
ifTrue: [self cCode: 'GetIndMenuItemWithCommandID(menuHandle, kHICommandHide, 1,
&applicationMenu, &outIndex);' inSmalltalk: [menuHandle]].
outIndex asSmallIntegerObj. "to avoid elimination of the variable..."
+ ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: applicationMenu to: #'usqIntptr_t')
- ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: applicationMenu to: 'long')
!
Item was changed:
----- Method: MacMenubarPlugin>>primitiveGetMenuBar (in category 'system primitives') -----
primitiveGetMenuBar
<var: #menuHandle type: #Handle>
| menuHandle |
self primitive: 'primitiveGetMenuBar'
parameters: #().
menuHandle := self cCode: 'GetMenuBar()' inSmalltalk:[0].
+ ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: #'usqIntptr_t')!
- ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!
Item was changed:
----- Method: MacMenubarPlugin>>primitiveGetMenuHandle: (in category 'system primitives') -----
primitiveGetMenuHandle: menuID
<var: #menuHandle type: #MenuHandle>
<var: #menuID type: #MenuID>
| menuHandle |
self primitive: 'primitiveGetMenuHandle'
parameters: #(SmallInteger).
menuHandle := self cCode: 'GetMenuHandle(menuID)' inSmalltalk:[0].
+ ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: #'usqIntptr_t')!
- ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!
Item was changed:
----- Method: MacMenubarPlugin>>primitiveNewMenu:menuTitle: (in category 'system primitives') -----
primitiveNewMenu: menuID menuTitle: menuTitle
<var: #menuHandle type: #MenuHandle>
<var: #constStr255 type: #ConstStr255Param>
<var: #menuID type: #MenuID>
| menuHandle constStr255 |
self primitive: 'primitiveNewMenu'
parameters: #(SmallInteger ByteArray).
constStr255 := self cCoerce: menuTitle to: #ConstStr255Param.
menuHandle := self cCode: 'NewMenu(menuID,constStr255)' inSmalltalk:[0].
+ ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: #'usqIntptr_t')!
- ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!
Item was changed:
----- Method: QuicktimePlugin>>primitiveSetGWorldPtrOntoExistingSurface:gWorld:width:height:rowBytes:depth:movie: (in category 'system primitives') -----
primitiveSetGWorldPtrOntoExistingSurface: surfaceID gWorld: bitMapPtr width: width height: height rowBytes: rowBytes depth: depth movie: moviePtr
| buffer movie |
<var: #buffer type: #'char *'>
+ <var: #movie type: #'sqIntptr_t'>
- <var: #movie type: #'long'>
self primitive: 'primitiveSetGWorldPtrOntoExistingSurface' parameters:#(SmallInteger Oop SmallInteger SmallInteger SmallInteger SmallInteger Oop).
buffer := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: bitMapPtr) to: 'char *'.
+ movie := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: moviePtr) to: #'sqIntptr_t'.
- movie := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: moviePtr) to: 'long'.
self stQuicktimeSetToExistingSurface: surfaceID gworld: buffer width: width height: height rowBytes: rowBytes depth: depth movie: movie.
!
Item was changed:
----- Method: QuicktimePlugin>>primitiveSetGWorldPtrOntoSurface:width:height:rowBytes:depth:movie: (in category 'system primitives') -----
primitiveSetGWorldPtrOntoSurface: bitMapPtr width: width height: height rowBytes: rowBytes depth: depth movie: moviePtr
| buffer movie results |
<var: #buffer type: #'char *'>
+ <var: #movie type: #'sqIntptr_t'>
- <var: #movie type: #'long'>
self primitive: 'primitiveSetGWorldPtrOntoSurface' parameters:#(Oop SmallInteger SmallInteger SmallInteger SmallInteger Oop).
buffer := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: bitMapPtr) to: 'char *'.
+ movie := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: moviePtr) to: #'sqIntptr_t'.
- movie := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: moviePtr) to: 'long'.
results := self stQuicktimeSetSurface: buffer width: width height: height rowBytes: rowBytes depth: depth movie: movie.
^results asOop: SmallInteger !
Item was changed:
----- Method: SimpleStackBasedCogit>>compileInterpreterPrimitive: (in category 'primitive generators') -----
compileInterpreterPrimitive: primitiveRoutine
"Compile a call to an interpreter primitive. Call the C routine with the
usual stack-switching dance, test the primFailCode and then either
return on success or continue to the method body."
<var: #primitiveRoutine declareC: 'void (*primitiveRoutine)(void)'>
| flags jmp jmpSamplePrim continuePostSamplePrim jmpSampleNonPrim continuePostSampleNonPrim |
<var: #jmp type: #'AbstractInstruction *'>
<var: #jmpSamplePrim type: #'AbstractInstruction *'>
<var: #jmpSampleNonPrim type: #'AbstractInstruction *'>
<var: #continuePostSamplePrim type: #'AbstractInstruction *'>
<var: #continuePostSampleNonPrim type: #'AbstractInstruction *'>
"Save processor fp, sp and return pc in the interpreter's frame stack and instruction pointers"
self genExternalizePointersForPrimitiveCall.
"Switch to the C stack."
self genLoadCStackPointersForPrimCall.
flags := coInterpreter primitivePropertyFlags: primitiveIndex.
(flags anyMask: PrimCallDoNotJIT) ifTrue:
[^ShouldNotJIT].
(flags anyMask: PrimCallCollectsProfileSamples) ifTrue:
["Test nextProfileTick for being non-zero and call checkProfileTick if so"
objectMemory wordSize = 4
ifTrue:
[self MoveAw: coInterpreter nextProfileTickAddress R: TempReg.
self MoveAw: coInterpreter nextProfileTickAddress + objectMemory wordSize R: ClassReg.
self OrR: TempReg R: ClassReg]
ifFalse:
[self MoveAw: coInterpreter nextProfileTickAddress R: TempReg.
self CmpCq: 0 R: TempReg].
"If set, jump to record sample call."
jmpSampleNonPrim := self JumpNonZero: 0.
continuePostSampleNonPrim := self Label].
"Old full prim trace is in VMMaker-eem.550 and prior"
self recordPrimTrace ifTrue:
[self genFastPrimTraceUsing: ClassReg and: SendNumArgsReg].
"Clear the primFailCode and set argumentCount"
self MoveCq: 0 R: TempReg.
self MoveR: TempReg Aw: coInterpreter primFailCodeAddress.
methodOrBlockNumArgs ~= 0 ifTrue:
[self MoveCq: methodOrBlockNumArgs R: TempReg].
self MoveR: TempReg Aw: coInterpreter argumentCountAddress.
"If required, set primitiveFunctionPointer and newMethod"
(flags anyMask: PrimCallNeedsPrimitiveFunction) ifTrue:
[self MoveCw: primitiveRoutine asInteger R: TempReg.
primSetFunctionLabel :=
self MoveR: TempReg Aw: coInterpreter primitiveFunctionPointerAddress].
(flags anyMask: PrimCallNeedsNewMethod+PrimCallMayCallBack) ifTrue:
["The ceActivateFailingPrimitiveMethod: machinery can't handle framelessness."
(flags anyMask: PrimCallMayCallBack) ifTrue:
[needsFrame := true].
methodLabel addDependent:
(self annotateAbsolutePCRef:
(self MoveCw: methodLabel asInteger R: ClassReg)).
self MoveMw: (self offset: CogMethod of: #methodObject) r: ClassReg R: TempReg.
self MoveR: TempReg Aw: coInterpreter newMethodAddress].
"Invoke the primitive"
self PrefetchAw: coInterpreter primFailCodeAddress.
(flags anyMask: PrimCallMayCallBack)
ifTrue: "Sideways call the C primitive routine so that we return through cePrimReturnEnterCogCode."
["On Spur ceActivateFailingPrimitiveMethod: would like to retry if forwarders
are found. So insist on PrimCallNeedsPrimitiveFunction being set too."
self assert: (flags anyMask: PrimCallNeedsPrimitiveFunction).
backEnd genSubstituteReturnAddress:
((flags anyMask: PrimCallCollectsProfileSamples)
ifTrue: [cePrimReturnEnterCogCodeProfiling]
ifFalse: [cePrimReturnEnterCogCode]).
primInvokeInstruction := self JumpFullRT: primitiveRoutine asInteger.
jmp := jmpSamplePrim := continuePostSamplePrim := nil]
ifFalse:
["Call the C primitive routine."
primInvokeInstruction := self CallFullRT: primitiveRoutine asInteger.
(flags anyMask: PrimCallCollectsProfileSamples) ifTrue:
[self assert: (flags anyMask: PrimCallNeedsNewMethod).
"Test nextProfileTick for being non-zero and call checkProfileTick if so"
objectMemory wordSize = 4
ifTrue:
[self MoveAw: coInterpreter nextProfileTickAddress R: TempReg.
self MoveAw: coInterpreter nextProfileTickAddress + objectMemory wordSize R: ClassReg.
self OrR: TempReg R: ClassReg]
ifFalse:
[self MoveAw: coInterpreter nextProfileTickAddress R: TempReg.
self CmpCq: 0 R: TempReg].
"If set, jump to record sample call."
jmpSamplePrim := self JumpNonZero: 0.
continuePostSamplePrim := self Label].
objectRepresentation maybeCompileRetryOnPrimitiveFail: primitiveIndex.
self maybeCompileAllocFillerCheck.
"Switch back to the Smalltalk stack. Stack better be in either of these two states:
success: stackPointer -> result (was receiver)
arg1
...
argN
return pc
failure: receiver
arg1
...
stackPointer -> argN
return pc
In either case we can push the instructionPointer or load it into the LinkRegister to reestablish the return pc"
self MoveAw: coInterpreter instructionPointerAddress
R: (backEnd hasLinkRegister ifTrue: [LinkReg] ifFalse: [ClassReg]).
backEnd genLoadStackPointers.
"Test primitive failure"
self MoveAw: coInterpreter primFailCodeAddress R: TempReg.
backEnd hasLinkRegister ifFalse: [self PushR: ClassReg]. "Restore return pc on CISCs"
self flag: 'ask concrete code gen if move sets condition codes?'.
self CmpCq: 0 R: TempReg.
jmp := self JumpNonZero: 0.
"Fetch result from stack"
self MoveMw: (backEnd hasLinkRegister ifTrue: [0] ifFalse: [objectMemory wordSize])
r: SPReg
R: ReceiverResultReg.
self RetN: objectMemory wordSize]. "return to caller, popping receiver"
(flags anyMask: PrimCallCollectsProfileSamples) ifTrue:
["The sample is collected by cePrimReturnEnterCogCode for external calls"
jmpSamplePrim ifNotNil:
["Call ceCheckProfileTick: to record sample and then continue."
jmpSamplePrim jmpTarget: self Label.
self assert: (flags anyMask: PrimCallNeedsNewMethod).
+ self CallFullRT: (self cCode: [#ceCheckProfileTick asUnsignedIntegerPtr]
- self CallFullRT: (self cCode: [#ceCheckProfileTick asUnsignedLong]
inSmalltalk: [self simulatedTrampolineFor: #ceCheckProfileTick]).
"reenter the post-primitive call flow"
self Jump: continuePostSamplePrim].
"Null newMethod and call ceCheckProfileTick: to record sample and then continue.
ceCheckProfileTick will map null/0 to coInterpreter nilObject"
jmpSampleNonPrim jmpTarget: self Label.
self MoveCq: 0 R: TempReg.
self MoveR: TempReg Aw: coInterpreter newMethodAddress.
+ self CallFullRT: (self cCode: [#ceCheckProfileTick asUnsignedIntegerPtr]
- self CallFullRT: (self cCode: [#ceCheckProfileTick asUnsignedLong]
inSmalltalk: [self simulatedTrampolineFor: #ceCheckProfileTick]).
"reenter the post-primitive call flow"
self Jump: continuePostSampleNonPrim].
jmp ifNotNil:
["Jump to restore of receiver reg and proceed to frame build for failure."
jmp jmpTarget: self Label.
"Restore receiver reg from stack. If on RISCs ret pc is in LinkReg, if on CISCs ret pc is on stack."
self MoveMw: objectMemory wordSize * (methodOrBlockNumArgs + (backEnd hasLinkRegister ifTrue: [0] ifFalse: [1]))
r: SPReg
R: ReceiverResultReg].
^0!
Item was changed:
----- Method: SimpleStackBasedCogit>>genPrimReturnEnterCogCodeEnilopmart: (in category 'initialization') -----
genPrimReturnEnterCogCodeEnilopmart: profiling
"Generate the substitute return code for an external or FFI primitive call.
On success simply return, extracting numArgs from newMethod.
On primitive failure call ceActivateFailingPrimitiveMethod: newMethod."
| jmpSample continuePostSample jmpFail |
<var: #jmpSample type: #'AbstractInstruction *'>
<var: #continuePostSample type: #'AbstractInstruction *'>
<var: #jmpFail type: #'AbstractInstruction *'>
self zeroOpcodeIndex.
backEnd hasVarBaseRegister ifTrue:
[self MoveCq: self varBaseAddress R: VarBaseReg]. "Must happen sometime"
profiling ifTrue:
["Test nextProfileTick for being non-zero and call checkProfileTick: if so.
N.B. nextProfileTick is 64-bits so 32-bit systems need to test both halves."
objectMemory wordSize = 4
ifTrue:
[self MoveAw: coInterpreter nextProfileTickAddress R: TempReg.
self MoveAw: coInterpreter nextProfileTickAddress + objectMemory wordSize R: ClassReg.
self OrR: TempReg R: ClassReg]
ifFalse:
[self MoveAw: coInterpreter nextProfileTickAddress R: TempReg.
self CmpCq: 0 R: TempReg].
"If set, jump to record sample call."
jmpSample := self JumpNonZero: 0.
continuePostSample := self Label].
self maybeCompileAllocFillerCheck.
"Test primitive failure"
self MoveAw: coInterpreter primFailCodeAddress R: TempReg.
self flag: 'ask concrete code gen if move sets condition codes?'.
self CmpCq: 0 R: TempReg.
jmpFail := self JumpNonZero: 0.
"Switch back to the Smalltalk stack. Stack better be in either of these two states:
success: stackPointer -> result (was receiver)
arg1
...
argN
return pc
failure: receiver
arg1
...
stackPointer -> argN
return pc
We push the instructionPointer to reestablish the return pc in the success case,
but leave it to ceActivateFailingPrimitiveMethod: to do so in the failure case."
backEnd hasLinkRegister
ifTrue:
[backEnd genLoadStackPointers. "Switch back to Smalltalk stack."
backEnd hasPCRegister
ifTrue:
[self PopR: ReceiverResultReg. "Pop result from stack"
self MoveAw: coInterpreter instructionPointerAddress R: PCReg] "Return"
ifFalse:
[self MoveMw: 0 r: SPReg R: ReceiverResultReg. "Fetch result from stack"
self MoveAw: coInterpreter instructionPointerAddress R: LinkReg. "Get ret pc"
self RetN: objectMemory wordSize]] "Return, popping result from stack"
ifFalse:
[self MoveAw: coInterpreter instructionPointerAddress R: ClassReg. "Get return pc"
backEnd genLoadStackPointers. "Switch back to Smalltalk stack."
self MoveMw: 0 r: SPReg R: ReceiverResultReg. "Fetch result from stack"
self MoveR: ClassReg Mw: 0 r: SPReg. "Restore return pc"
self RetN: 0]. "Return, popping result from stack"
"Primitive failed. Invoke C code to build the frame and continue."
jmpFail jmpTarget: (self MoveAw: coInterpreter newMethodAddress R: SendNumArgsReg).
"Reload sp with CStackPointer; easier than popping args of checkProfileTick."
self MoveAw: self cStackPointerAddress R: SPReg.
self
compileCallFor: #ceActivateFailingPrimitiveMethod:
numArgs: 1
arg: SendNumArgsReg
arg: nil
arg: nil
arg: nil
resultReg: NoReg
regsToSave: self emptyRegisterMask.
"On Spur ceActivateFailingPrimitiveMethod: may retry the primitive and return if successful.
So continue by returning to the caller.
Switch back to the Smalltalk stack. Stack should be in this state:
success: stackPointer -> result (was receiver)
arg1
...
argN
return pc
We can push the instructionPointer or load it into the LinkRegister to reestablish the return pc"
self MoveAw: coInterpreter instructionPointerAddress
R: (backEnd hasLinkRegister ifTrue: [LinkReg] ifFalse: [ClassReg]).
backEnd genLoadStackPointers.
backEnd hasLinkRegister
ifTrue:
[self MoveMw: 0 r: SPReg R: ReceiverResultReg] "Fetch result from stack"
ifFalse:
[self MoveMw: objectMemory wordSize r: SPReg R: ReceiverResultReg. "Fetch result from stack"
self PushR: ClassReg]. "Restore return pc on CISCs"
self RetN: objectMemory wordSize. "return to caller, popping receiver"
profiling ifTrue:
["Call ceCheckProfileTick: to record sample and then continue. newMethod
should be up-to-date. Need to save and restore the link reg around this call."
jmpSample jmpTarget: self Label.
backEnd saveAndRestoreLinkRegAround:
+ [self CallFullRT: (self cCode: '(usqIntptr_t)ceCheckProfileTick'
- [self CallFullRT: (self cCode: '(unsigned long)ceCheckProfileTick'
inSmalltalk: [self simulatedTrampolineFor: #ceCheckProfileTick])].
self Jump: continuePostSample]!
Item was changed:
----- Method: SistaCogit>>picDataFor:Annotation:Mcpc:Bcpc:Method: (in category 'method introspection') -----
picDataFor: descriptor Annotation: isBackwardBranchAndAnnotation Mcpc: mcpc Bcpc: bcpc Method: cogMethodArg
<var: #descriptor type: #'BytecodeDescriptor *'>
<var: #mcpc type: #'char *'>
<var: #cogMethodArg type: #'void *'>
| annotation entryPoint tuple counter |
+ <var: #counter type: #usqInt>
- <var: #counter type: #'unsigned long'>
descriptor ifNil:
[^0].
descriptor isBranch ifTrue:
["it's a branch; conditional?"
(descriptor isBranchTrue or: [descriptor isBranchFalse]) ifTrue:
[counter := (self
cCoerce: ((self
cCoerceSimple: cogMethodArg
to: #'CogMethod *') counters)
+ to: #'usqInt *')
- to: #'unsigned long *')
at: counterIndex.
tuple := self picDataForCounter: counter at: bcpc + 1.
tuple = 0 ifTrue: [^PrimErrNoMemory].
objectMemory storePointer: introspectionDataIndex ofObject: introspectionData withValue: tuple.
introspectionDataIndex := introspectionDataIndex + 1.
counterIndex := counterIndex + 1].
^0].
annotation := isBackwardBranchAndAnnotation >> 1.
((self isPureSendAnnotation: annotation)
and: [entryPoint := backEnd callTargetFromReturnAddress: mcpc asUnsignedInteger.
entryPoint > methodZoneBase]) ifFalse: "send is not linked, or is not a send"
[^0].
self targetMethodAndSendTableFor: entryPoint "It's a linked send; find which kind."
annotation: annotation
into: [:targetMethod :sendTable| | methodClassIfSuper association |
methodClassIfSuper := nil.
sendTable = superSendTrampolines ifTrue:
[methodClassIfSuper := coInterpreter methodClassOf: (self cCoerceSimple: cogMethodArg to: #'CogMethod *') methodObject].
sendTable = directedSuperSendTrampolines ifTrue:
[association := backEnd literalBeforeInlineCacheTagAt: mcpc asUnsignedInteger.
methodClassIfSuper := objectRepresentation valueOfAssociation: association].
tuple := self picDataForSendTo: targetMethod
methodClassIfSuper: methodClassIfSuper
at: mcpc
bcpc: bcpc + 1].
tuple = 0 ifTrue: [^PrimErrNoMemory].
objectMemory storePointer: introspectionDataIndex ofObject: introspectionData withValue: tuple.
introspectionDataIndex := introspectionDataIndex + 1.
^0!
Item was changed:
----- Method: SistaCogit>>picDataForCounter:at: (in category 'method introspection') -----
picDataForCounter: counter at: bcpc
| executedCount tuple untakenCount |
+ <var: #counter type: #usqInt>
- <var: #counter type: #'unsigned long'>
tuple := objectMemory
eeInstantiateClassIndex: ClassArrayCompactIndex
format: objectMemory arrayFormat
numSlots: 3.
tuple = 0 ifTrue:
[^0].
self assert: CounterBytes = 4.
executedCount := initialCounterValue - (counter >> 16).
untakenCount := initialCounterValue - (counter bitAnd: 16rFFFF).
objectMemory
storePointerUnchecked: 0 ofObject: tuple withValue: (objectMemory integerObjectOf: bcpc);
storePointerUnchecked: 1 ofObject: tuple withValue: (objectMemory integerObjectOf: executedCount);
storePointerUnchecked: 2 ofObject: tuple withValue: (objectMemory integerObjectOf: untakenCount).
^tuple!
Item was changed:
----- Method: SmartSyntaxPluginCodeGenerator>>generateCPtrAsOop:on:indent: (in category 'translating builtins') -----
generateCPtrAsOop: aNode on: aStream indent: anInteger
+ aStream nextPutAll: '((sqInt)(sqIntptr_t)('.
- aStream nextPutAll: '((sqInt)(long)('.
self emitCExpression: aNode receiver on: aStream.
aStream nextPutAll: ') - BaseHeaderSize)'!
Item was changed:
----- Method: Spur32BitMemoryManager>>integerObjectOfCharacterObject: (in category 'immediates') -----
integerObjectOfCharacterObject: oop
"Immediate characters are unsigned"
+ ^(self cCoerceSimple: oop to: #usqInt) >> 1!
- ^(self cCoerceSimple: oop to: #'unsigned long') >> 1!
Item was changed:
----- Method: Spur64BitMemoryManager>>oldRawNumSlotsOf: (in category 'object access') -----
oldRawNumSlotsOf: objOop
<returnTypeC: #usqInt>
<inline: true>
+ ^(self longAt: objOop) asUnsignedInteger >> self numSlotsFullShift!
- ^(self longAt: objOop) asUnsignedLong >> self numSlotsFullShift!
Item was changed:
----- Method: Spur64BitMemoryManager>>rawOverflowSlotsOf: (in category 'object access') -----
rawOverflowSlotsOf: objOop
<returnTypeC: #usqLong>
<inline: true>
self flag: #endianness.
^self
+ cCode: [((self longAt: objOop - self baseHeaderSize) << 8) asUnsignedInteger >> 8]
- cCode: [((self longAt: objOop - self baseHeaderSize) << 8) asUnsignedLong >> 8]
inSmalltalk: [(self longAt: objOop - self baseHeaderSize) bitAnd: 16rFFFFFFFFFFFFFF]!
Item was changed:
----- Method: Spur64BitMemoryManager>>rotateRight: (in category 'interpreter access') -----
rotateRight: anInteger
+ ^(self cCode: [anInteger] inSmalltalk: [anInteger bitAnd: 1]) << 63 + (anInteger asUnsignedInteger >> 1)!
- ^(self cCode: [anInteger] inSmalltalk: [anInteger bitAnd: 1]) << 63 + (anInteger asUnsignedLong >> 1)!
Item was changed:
----- Method: SpurMemoryManager class>>declareCVarsIn: (in category 'translation') -----
declareCVarsIn: aCCodeGenerator
self declareCAsOop: #( memory freeStart scavengeThreshold newSpaceStart newSpaceLimit pastSpaceStart
lowSpaceThreshold freeOldSpaceStart oldSpaceStart endOfMemory firstFreeChunk lastFreeChunk)
in: aCCodeGenerator.
self declareCAsUSqLong: (self allInstVarNames select: [:ivn| ivn endsWith: 'Usecs'])
in: aCCodeGenerator.
aCCodeGenerator
var: #freeListsMask type: #usqInt;
var: #freeLists type: #'sqInt *';
var: #objStackInvalidBecause type: #'char *';
var: #unscannedEphemerons type: #SpurContiguousObjStack;
var: #heapGrowthToSizeGCRatio type: #float;
var: #heapSizeAtPreviousGC type: #usqInt;
var: #totalFreeOldSpace type: #usqInt;
+ var: #maxOldSpaceSize type: #usqInt.
- var: #maxOldSpaceSize type: #'unsigned long'.
aCCodeGenerator
var: #remapBuffer
declareC: 'sqInt remapBuffer[RemapBufferSize + 1 /* ', (RemapBufferSize + 1) printString, ' */]'.
aCCodeGenerator
var: #extraRoots
declareC: 'sqInt *extraRoots[ExtraRootsSize + 1 /* ', (ExtraRootsSize + 1) printString, ' */]'!
Item was changed:
----- Method: SpurMemoryManager>>byteSizeOfInstanceOf:withIndexableSlots:errInto: (in category 'indexing primitive support') -----
byteSizeOfInstanceOf: classObj withIndexableSlots: nElements errInto: errorBlock
| instSpec classFormat numSlots |
<var: 'numSlots' type: #usqInt>
classFormat := self formatOfClass: classObj.
instSpec := self instSpecOfClassFormat: classFormat.
instSpec caseOf: {
[self arrayFormat] ->
[numSlots := nElements].
[self indexablePointersFormat] ->
[numSlots := (self fixedFieldsOfClassFormat: classFormat) + nElements].
[self weakArrayFormat] ->
[numSlots := (self fixedFieldsOfClassFormat: classFormat) + nElements].
[self sixtyFourBitIndexableFormat] ->
[numSlots := self bytesPerOop = 4 ifTrue: [nElements * 2] ifFalse: [nElements]].
[self firstLongFormat] ->
[numSlots := self bytesPerOop = 4 ifTrue: [nElements] ifFalse: [nElements + 1 // 2]].
[self firstShortFormat] ->
[numSlots := self bytesPerOop = 4 ifTrue: [nElements + 1 // 2] ifFalse: [nElements + 3 // 4]].
[self firstByteFormat] ->
[numSlots := nElements + (self bytesPerOop - 1) // self bytesPerOop].
[self firstCompiledMethodFormat] -> "Assume nElements is derived from CompiledMethod>>basicSize."
[numSlots := nElements + (self bytesPerOop - 1) // self bytesPerOop] }
otherwise: [^errorBlock value: PrimErrBadReceiver negated]. "non-indexable"
+ numSlots >= (1 asIntegerPtr << (self bytesPerOop * 8 - self logBytesPerOop)) ifTrue:
- numSlots >= (1 asLong << (self bytesPerOop * 8 - self logBytesPerOop)) ifTrue:
[^errorBlock value: (nElements < 0 ifTrue: [PrimErrBadArgument] ifFalse: [PrimErrLimitExceeded])].
^self objectBytesForSlots: numSlots!
Item was changed:
----- Method: SpurMemoryManager>>printOopsFrom:to: (in category 'debug printing') -----
printOopsFrom: startAddress to: endAddress
<api>
| oop limit |
oop := self objectBefore: startAddress.
+ limit := endAddress asUnsignedIntegerPtr min: endOfMemory.
- limit := endAddress asUnsignedLong min: endOfMemory.
oop := oop
ifNil: [startAddress]
ifNotNil: [(self objectAfter: oop) = startAddress
ifTrue: [startAddress]
ifFalse: [oop]].
[self oop: oop isLessThan: limit] whileTrue:
[coInterpreter
printHex: oop; print: '/'; printNum: oop; space;
print: ((self isFreeObject: oop) ifTrue: ['free'] ifFalse:
[(self isSegmentBridge: oop) ifTrue: ['bridge'] ifFalse:
[(self isForwarded: oop) ifTrue: ['forwarder'] ifFalse:
['object']]]);
cr.
oop := self objectAfter: oop]!
Item was changed:
----- Method: SpurMemoryManager>>setMaxOldSpaceSize: (in category 'accessing') -----
setMaxOldSpaceSize: limit
+ <var: #limit type: #usqInt>
- <var: #limit type: #'unsigned long'>
maxOldSpaceSize := limit.
^0!
Item was changed:
----- Method: SpurSegmentManager>>addSegmentOfSize: (in category 'growing/shrinking memory') -----
addSegmentOfSize: ammount
<returnTypeC: #'SpurSegmentInfo *'>
<inline: false>
| allocatedSize |
<var: #newSeg type: #'SpurSegmentInfo *'>
<var: #segAddress type: #'void *'>
<var: #allocatedSize type: #'usqInt'>
self cCode: [] inSmalltalk: [segments ifNil: [^nil]]. "bootstrap"
(manager "sent to the manager so that the simulator can increase memory to simulate a new segment"
sqAllocateMemorySegmentOfSize: ammount
Above: (self firstGapOfSizeAtLeast: ammount)
AllocatedSizeInto: (self cCode: [self addressOf: allocatedSize]
inSmalltalk: [[:sz| allocatedSize := sz]])) ifNotNil:
[:segAddress| | newSegIndex newSeg |
+ newSegIndex := self insertSegmentFor: segAddress asUnsignedIntegerPtr.
- newSegIndex := self insertSegmentFor: segAddress asUnsignedLong.
newSeg := self addressOf: (segments at: newSegIndex).
newSeg
+ segStart: segAddress asUnsignedIntegerPtr;
- segStart: segAddress asUnsignedLong;
segSize: allocatedSize.
self bridgeFrom: (self addressOf: (segments at: newSegIndex - 1)) to: newSeg.
self bridgeFrom: newSeg to: (newSegIndex = (numSegments - 1) ifFalse:
[self addressOf: (segments at: newSegIndex + 1)]).
"test isInMemory:"
0 to: numSegments - 1 do:
[:i|
self assert: (self isInSegments: (segments at: i) segStart).
self assert: (self isInSegments: (segments at: i) segLimit - manager wordSize).
self assert: ((self isInSegments: (segments at: i) segLimit) not
or: [i < (numSegments - 1)
and: [(segments at: i) segLimit = (segments at: i + 1) segStart]]).
self assert: ((self isInSegments: (segments at: i) segStart - manager wordSize) not
or: [i > 0
and: [(segments at: i - 1) segLimit = (segments at: i) segStart]])].
^newSeg].
^nil!
Item was changed:
----- Method: SpurSegmentManager>>findEmptySegNearestInSizeTo: (in category 'growing/shrinking memory') -----
findEmptySegNearestInSizeTo: size
| seg best delta |
<var: #seg type: #'SpurSegmentInfo *'>
<var: #best type: #'SpurSegmentInfo *'>
best := nil.
delta := size.
0 to: numSegments - 1 do:
[:i|
seg := self addressOf: (segments at: i).
(self isEmptySegment: seg) ifTrue:
[best
ifNil: [best := seg]
ifNotNil:
[(size >= (seg segSize * 0.75)
+ and: [(self cCoerce: (seg segSize - size) to: #sqInt ) abs < delta]) ifTrue:
- and: [(seg segSize - size) abs < delta]) ifTrue:
[best := seg. delta := (seg segSize - size) abs]]]].
^best!
Item was changed:
----- Method: StackInterpreter class>>declareCVarsIn: (in category 'translation') -----
declareCVarsIn: aCCodeGenerator
| vmClass |
self class == thisContext methodClass ifFalse: [^self]. "Don't duplicate decls in subclasses"
vmClass := aCCodeGenerator vmClass. "Generate primitiveTable etc based on vmClass, not just StackInterpreter"
aCCodeGenerator
addHeaderFile:'<stddef.h> /* for e.g. alloca */';
addHeaderFile:'<setjmp.h>';
addHeaderFile:'<wchar.h> /* for wint_t */';
addHeaderFile:'"vmCallback.h"';
addHeaderFile:'"sqMemoryFence.h"';
addHeaderFile:'"dispdbg.h"'.
vmClass declareInterpreterVersionIn: aCCodeGenerator defaultName: 'Stack'.
aCCodeGenerator
var: #interpreterProxy type: #'struct VirtualMachine*'.
aCCodeGenerator
declareVar: #sendTrace type: 'volatile int';
+ declareVar: #byteCount type: #usqInt.
- declareVar: #byteCount type: 'unsigned long'.
"These need to be pointers or unsigned."
self declareC: #(instructionPointer method newMethod)
as: #usqInt
in: aCCodeGenerator.
"These are all pointers; char * because Slang has no support for C pointer arithmetic."
self declareC: #(localIP localSP localFP stackPointer framePointer stackLimit breakSelector)
as: #'char *'
in: aCCodeGenerator.
aCCodeGenerator
var: #breakSelectorLength
declareC: 'sqInt breakSelectorLength = MinSmallInteger'.
self declareC: #(stackPage overflowedPage)
as: #'StackPage *'
in: aCCodeGenerator.
aCCodeGenerator removeVariable: 'stackPages'. "this is an implicit receiver in the translated code."
NewspeakVM ifFalse:
[aCCodeGenerator
removeVariable: 'localAbsentReceiver';
removeVariable: 'localAbsentReceiverOrZero';
removeVariable: 'nsMethodCache'].
"This defines bytecodeSetSelector as 0 if MULTIPLEBYTECODESETS
is not defined, for the benefit of the interpreter on slow machines."
aCCodeGenerator addConstantForBinding: (self bindingOf: #MULTIPLEBYTECODESETS).
MULTIPLEBYTECODESETS == false ifTrue:
[aCCodeGenerator
removeVariable: 'extA';
removeVariable: 'extB';
removeVariable: 'bytecodeSetSelector'].
aCCodeGenerator
var: #methodCache
+ declareC: 'sqIntptr_t methodCache[MethodCacheSize + 1 /* ', (MethodCacheSize + 1) printString, ' */]'.
- declareC: 'long methodCache[MethodCacheSize + 1 /* ', (MethodCacheSize + 1) printString, ' */]'.
aCCodeGenerator
var: #nsMethodCache
+ declareC: 'sqIntptr_t nsMethodCache[NSMethodCacheSize + 1 /* ', (NSMethodCacheSize + 1) printString, ' */]'.
- declareC: 'long nsMethodCache[NSMethodCacheSize + 1 /* ', (NSMethodCacheSize + 1) printString, ' */]'.
AtCacheTotalSize isInteger ifTrue:
[aCCodeGenerator
var: #atCache
declareC: 'sqInt atCache[AtCacheTotalSize + 1 /* ', (AtCacheTotalSize + 1) printString, ' */]'].
aCCodeGenerator
var: #primitiveTable
declareC: 'void (*primitiveTable[MaxPrimitiveIndex + 2 /* ', (MaxPrimitiveIndex + 2) printString, ' */])(void) = ', vmClass primitiveTableString.
vmClass primitiveTable do:
[:symbolOrNot|
(symbolOrNot isSymbol
and: [symbolOrNot ~~ #primitiveFail]) ifTrue:
[(aCCodeGenerator methodNamed: symbolOrNot) ifNotNil:
[:tMethod| tMethod returnType: #void]]].
vmClass objectMemoryClass hasSpurMemoryManagerAPI
ifTrue:
[aCCodeGenerator
var: #primitiveAccessorDepthTable
type: 'signed char'
sizeString: 'MaxPrimitiveIndex + 2 /* ', (MaxPrimitiveIndex + 2) printString, ' */'
array: vmClass primitiveAccessorDepthTable]
ifFalse:
[aCCodeGenerator removeVariable: #primitiveAccessorDepthTable].
aCCodeGenerator
var: #primitiveFunctionPointer
declareC: 'void (*primitiveFunctionPointer)()'.
aCCodeGenerator
var: #externalPrimitiveTable
declareC: 'void (*externalPrimitiveTable[MaxExternalPrimitiveTableSize + 1 /* ', (MaxExternalPrimitiveTableSize + 1) printString, ' */])(void)'.
aCCodeGenerator var: #showSurfaceFn type: #'void *'.
aCCodeGenerator
var: #jmpBuf
declareC: 'jmp_buf jmpBuf[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'.
aCCodeGenerator
var: #suspendedCallbacks
declareC: 'usqInt suspendedCallbacks[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'.
aCCodeGenerator
var: #suspendedMethods
declareC: 'usqInt suspendedMethods[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'.
aCCodeGenerator
var: #interruptCheckChain
declareC: 'void (*interruptCheckChain)(void) = 0'.
self declareCAsUSqLong: #(nextPollUsecs nextWakeupUsecs longRunningPrimitiveGCUsecs
longRunningPrimitiveStartUsecs longRunningPrimitiveStopUsecs
"these are high-frequency enough that they're overflowing quite quickly on modern hardware"
statProcessSwitch statIOProcessEvents statForceInterruptCheck
statCheckForEvents statStackOverflow statStackPageDivorce)
in: aCCodeGenerator.
aCCodeGenerator var: #nextProfileTick type: #sqLong!
Item was changed:
----- Method: StackInterpreter>>addNewMethodToCache: (in category 'method lookup cache') -----
addNewMethodToCache: classObj
"Add the given entry to the method cache.
The policy is as follows:
Look for an empty entry anywhere in the reprobe chain.
If found, install the new entry there.
If not found, then install the new entry at the first probe position
and delete the entries in the rest of the reprobe chain.
This has two useful purposes:
If there is active contention over the first slot, the second
or third will likely be free for reentry after ejection.
Also, flushing is good when reprobe chains are getting full."
| probe hash primitiveIndex |
<inline: false>
hash := objectMemory methodCacheHashOf: messageSelector with: (objectMemory classTagForClass: classObj). "shift drops low-order zeros from addresses"
(objectMemory isOopCompiledMethod: newMethod)
ifTrue:
[primitiveIndex := self primitiveIndexOf: newMethod.
primitiveFunctionPointer := self functionPointerFor: primitiveIndex inClass: classObj]
ifFalse:
[self assert: ((objectMemory isNonImmediate: newMethod)
and: [objectMemory isForwarded: newMethod]) not.
primitiveFunctionPointer := #primitiveInvokeObjectAsMethod].
0 to: CacheProbeMax-1 do:
[:p | probe := (hash >> p) bitAnd: MethodCacheMask.
(methodCache at: probe + MethodCacheSelector) = 0 ifTrue:
["Found an empty entry -- use it"
methodCache at: probe + MethodCacheSelector put: messageSelector.
methodCache at: probe + MethodCacheClass put: (objectMemory classTagForClass: classObj).
methodCache at: probe + MethodCacheMethod put: newMethod.
+ methodCache at: probe + MethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: #sqInt).
- methodCache at: probe + MethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: #long).
lastMethodCacheProbeWrite := probe. "this for primitiveExternalMethod"
^self]].
"OK, we failed to find an entry -- install at the first slot..."
probe := hash bitAnd: MethodCacheMask. "first probe"
methodCache at: probe + MethodCacheSelector put: messageSelector.
methodCache at: probe + MethodCacheClass put: (objectMemory classTagForClass: classObj).
methodCache at: probe + MethodCacheMethod put: newMethod.
+ methodCache at: probe + MethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: #sqInt).
- methodCache at: probe + MethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: #long).
lastMethodCacheProbeWrite := probe. "this for primitiveExternalMethod"
"...and zap the following entries"
1 to: CacheProbeMax-1 do:
[:p | probe := (hash >> p) bitAnd: MethodCacheMask.
methodCache at: probe + MethodCacheSelector put: 0]!
Item was changed:
----- Method: StackInterpreter>>addNewMethodToNSCache: (in category 'method lookup cache') -----
addNewMethodToNSCache: rule
<option: #NewspeakVM>
<inline: false>
| classObj probe hash primitiveIndex |
classObj := lkupClass.
hash := (objectMemory methodCacheHashOf: messageSelector with: lkupClassTag) bitXor: (method bitXor: rule).
self deny: rule = LookupRuleOrdinary.
(objectMemory isOopCompiledMethod: newMethod)
ifTrue:
[primitiveIndex := self primitiveIndexOf: newMethod.
primitiveFunctionPointer := self functionPointerFor: primitiveIndex inClass: classObj]
ifFalse:
[self assert: ((objectMemory isNonImmediate: newMethod)
and: [objectMemory isForwarded: newMethod]) not.
primitiveFunctionPointer := #primitiveInvokeObjectAsMethod].
0 to: CacheProbeMax-1 do:
[:p | probe := (hash >> p) bitAnd: NSMethodCacheMask.
(nsMethodCache at: probe + NSMethodCacheSelector) = 0 ifTrue:
["Found an empty entry -- use it"
nsMethodCache at: probe + NSMethodCacheSelector put: messageSelector.
nsMethodCache at: probe + NSMethodCacheClassTag put: lkupClassTag. "(objectMemory classTagForClass: classObj)."
nsMethodCache at: probe + NSMethodCacheCallingMethod put: method.
nsMethodCache at: probe + NSMethodCacheDepthOrLookupRule put: rule.
nsMethodCache at: probe + NSMethodCacheTargetMethod put: newMethod.
+ nsMethodCache at: probe + NSMethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: #sqInt).
- nsMethodCache at: probe + NSMethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: #long).
nsMethodCache at: probe + NSMethodCacheActualReceiver put: localAbsentReceiverOrZero.
"lastMethodCacheProbeWrite := probe." "this for primitiveExternalMethod"
^self]].
"OK, we failed to find an entry -- install at the first slot..."
probe := hash bitAnd: NSMethodCacheMask. "first probe"
nsMethodCache at: probe + NSMethodCacheSelector put: messageSelector.
nsMethodCache at: probe + NSMethodCacheClassTag put: lkupClassTag. "(objectMemory classTagForClass: classObj)."
nsMethodCache at: probe + NSMethodCacheCallingMethod put: method.
nsMethodCache at: probe + NSMethodCacheDepthOrLookupRule put: rule.
nsMethodCache at: probe + NSMethodCacheTargetMethod put: newMethod.
+ nsMethodCache at: probe + NSMethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: #sqInt).
- nsMethodCache at: probe + NSMethodCachePrimFunction put: (self cCoerce: primitiveFunctionPointer to: #long).
nsMethodCache at: probe + NSMethodCacheActualReceiver put: localAbsentReceiverOrZero.
"lastMethodCacheProbeWrite := probe. ""this for primitiveExternalMethod"
"...and zap the following entries"
1 to: CacheProbeMax-1 do:
[:p | probe := (hash >> p) bitAnd: NSMethodCacheMask.
nsMethodCache at: probe + NSMethodCacheSelector put: 0]!
Item was changed:
----- Method: StackInterpreter>>isPrimitiveFunctionPointerAnIndex (in category 'primitive support') -----
isPrimitiveFunctionPointerAnIndex
"We save slots in the method cache by using the primitiveFunctionPointer
to hold either a function pointer or the index of a quick primitive. Since
quick primitive indices are small they can't be confused with function
addresses. "
+ ^(self cCoerce: primitiveFunctionPointer to: #'usqIntptr_t') <= MaxQuickPrimitiveIndex!
- ^(self cCoerce: primitiveFunctionPointer to: 'unsigned long') <= MaxQuickPrimitiveIndex!
Item was changed:
----- Method: StackInterpreter>>positive32BitIntegerFor: (in category 'primitive support') -----
positive32BitIntegerFor: integerValue
"integerValue is interpreted as POSITIVE, e.g. as the result of Bitmap>at:.
N.B. Returning in each arm separately enables Slang inlining.
/Don't/ return the ifTrue:ifFalse: unless Slang inlining of conditionals is fixed."
<inline: true>
<var: 'integerValue' type: #'unsigned int'>
objectMemory hasSixtyFourBitImmediates
ifTrue:
+ [^objectMemory integerObjectOf: (integerValue asUnsignedInteger bitAnd: 16rFFFFFFFF)]
- [^objectMemory integerObjectOf: (integerValue asUnsignedLong bitAnd: 16rFFFFFFFF)]
ifFalse:
[^self maybeInlinePositive32BitIntegerFor: integerValue]!
Item was changed:
----- Method: StackInterpreter>>positiveMachineIntegerFor: (in category 'callback support') -----
positiveMachineIntegerFor: value
+ <var: #value type: #'usqIntptr_t'>
- <var: #value type: #'unsigned long'>
<inline: true>
^objectMemory wordSize = 8
ifTrue: [self positive64BitIntegerFor: value]
ifFalse: [self positive32BitIntegerFor: value]!
Item was changed:
----- Method: StackInterpreter>>printMethodCacheFor: (in category 'debug printing') -----
printMethodCacheFor: thing
<api>
| n |
n := 0.
0 to: MethodCacheSize - 1 by: MethodCacheEntrySize do:
[:i | | s c m p |
s := methodCache at: i + MethodCacheSelector.
c := methodCache at: i + MethodCacheClass.
m := methodCache at: i + MethodCacheMethod.
p := methodCache at: i + MethodCachePrimFunction.
((thing = -1 or: [s = thing or: [c = thing or: [p = thing or: [m = thing]]]])
and: [(objectMemory addressCouldBeOop: s)
and: [c ~= 0
and: [(self addressCouldBeClassObj: c)
or: [self addressCouldBeClassObj: (objectMemory classForClassTag: c)]]]]) ifTrue:
[self cCode: [] inSmalltalk: [self transcript ensureCr].
self printNum: i; space; printHexnp: i; cr; tab.
(objectMemory isBytesNonImm: s)
+ ifTrue: [self cCode: 'printf("%" PRIxSQPTR " %.*s\n", s, (int)(numBytesOf(s)), (char *)firstIndexableField(s))'
- ifTrue: [self cCode: 'printf("%lx %.*s\n", s, (int)(numBytesOf(s)), (char *)firstIndexableField(s))'
inSmalltalk: [self printHex: s; space; print: (self stringOf: s); cr]]
ifFalse: [self shortPrintOop: s].
self tab.
(self addressCouldBeClassObj: c)
ifTrue: [self shortPrintOop: c]
ifFalse: [self printNum: c; space; shortPrintOop: (objectMemory classForClassTag: c)].
self tab; shortPrintOop: m; tab.
self cCode:
[p > 1024
ifTrue: [self printHexnp: p]
ifFalse: [self printNum: p]]
inSmalltalk:
[p isSymbol ifTrue: [self print: p] ifFalse: [self printNum: p]].
self cr]].
n > 1 ifTrue:
[self printNum: n; cr]!
Item was changed:
----- Method: StackInterpreter>>putLong:toFile: (in category 'image save/restore') -----
putLong: aLong toFile: aFile
"Append aLong to aFile in this platform's 'natural' byte order. aLong is either 32 or 64 bits,
depending on ObjectMemory. (Bytes will be swapped, if necessary, when the image is read
on a different platform.) Set successFlag to false if the write fails."
+ <var: #aLong type: #sqInt>
- <var: #aLong type: #long>
<var: #aFile type: #sqImageFile>
<inline: false>
| objectsWritten |
objectsWritten := self
+ cCode: [self sq: (self addressOf: aLong) Image: (self sizeof: #sqInt) File: 1 Write: aFile]
- cCode: [self sq: (self addressOf: aLong) Image: (self sizeof: #long) File: 1 Write: aFile]
inSmalltalk:
[| value |
value := aLong.
objectMemory wordSize timesRepeat:
[aFile nextPut: (value bitAnd: 16rFF).
value := value >> 8].
1].
self success: objectsWritten = 1!
Item was changed:
----- Method: StackInterpreter>>rewriteMethodCacheEntryForExternalPrimitiveToFunction: (in category 'method lookup cache') -----
rewriteMethodCacheEntryForExternalPrimitiveToFunction: localPrimAddress
"Rewrite an existing entry in the method cache with a new primitive function address.
Used by primitiveExternalCall to make direct calls to found external prims, or quickly
fail not found external prims."
<inline: false>
<var: #localPrimAddress declareC: 'void (*localPrimAddress)(void)'>
(methodCache at: lastMethodCacheProbeWrite + MethodCacheMethod) = newMethod ifTrue:
[methodCache
at: lastMethodCacheProbeWrite + MethodCachePrimFunction
+ put: (self cCoerce: localPrimAddress to: #sqInt)]!
- put: (self cCoerce: localPrimAddress to: #long)]!
Item was changed:
----- Method: StackInterpreter>>stackPositiveMachineIntegerValue: (in category 'stack access') -----
stackPositiveMachineIntegerValue: offset
<api>
+ <returnTypeC: #'usqIntptr_t'>
"In the StackInterpreter stacks grow down."
| integerPointer |
integerPointer := stackPages longAt: stackPointer + (offset*objectMemory wordSize).
^self positiveMachineIntegerValueOf: integerPointer!
Item was changed:
----- Method: StackInterpreter>>stackSignedMachineIntegerValue: (in category 'stack access') -----
stackSignedMachineIntegerValue: offset
<api>
+ <returnTypeC: #'sqIntptr_t'>
"In the StackInterpreter stacks grow down."
| integerPointer |
integerPointer := stackPages longAt: stackPointer + (offset*objectMemory wordSize).
^self signedMachineIntegerValueOf: integerPointer!
Item was changed:
----- Method: TMethod>>isFunctional (in category 'inlining') -----
isFunctional
"Answer true if the receiver is a functional method. That is, if it
consists of a single return statement of an expression that contains
no other returns.
Answer false for methods with return types other than the simple
integer types to work around bugs in the inliner."
parseTree statements isEmpty ifTrue:
[^false].
parseTree statements last isReturn ifFalse:
[^false].
parseTree statements size = 1 ifFalse:
[(parseTree statements size = 2
and: [parseTree statements first isSend
and: [parseTree statements first selector == #flag:]]) ifFalse:
[^false]].
parseTree statements last expression nodesDo:
[ :n | n isReturn ifTrue: [^false]].
+ ^#(int #'unsigned int' #'long long' #'unsigned long long'
+ sqInt usqInt #'sqIntptr_t' #'usqIntptr_t' sqLong usqLong
- ^#(int #'unsigned int' #long #'unsigned long' #'long long' #'unsigned long long'
- sqInt usqInt sqLong usqLong
#'int *' #'unsigned int *' #'sqInt *' #'usqInt *' #'sqLong *' #'usqLong *' #'CogMethod *' #'char *') includes: returnType!
Item was removed:
- ----- Method: ThreadedFFICalloutStateForX64>>floatRegisterIndex: (in category 'accessing') -----
- floatRegisterIndex: anObject
-
- ^floatRegisterIndex := anObject!
Item was removed:
- ----- Method: ThreadedFFICalloutStateForX64>>floatRegisters: (in category 'accessing') -----
- floatRegisters: anObject
-
- ^floatRegisters := anObject!
Item was added:
+ ----- Method: ThreadedFFICalloutStateForX64>>incrementFloatRegisterIndex (in category 'accessing') -----
+ incrementFloatRegisterIndex
+ ^floatRegisterIndex := floatRegisterIndex + 1!
Item was added:
+ ----- Method: ThreadedFFICalloutStateForX64>>incrementIntegerRegisterIndex (in category 'accessing') -----
+ incrementIntegerRegisterIndex
+ ^integerRegisterIndex := integerRegisterIndex + 1!
Item was removed:
- ----- Method: ThreadedFFICalloutStateForX64>>integerRegisterIndex: (in category 'accessing') -----
- integerRegisterIndex: anObject
-
- ^integerRegisterIndex := anObject!
Item was removed:
- ----- Method: ThreadedFFICalloutStateForX64>>integerRegisters: (in category 'accessing') -----
- integerRegisters: anObject
-
- ^integerRegisters := anObject!
Item was changed:
ThreadedFFICalloutStateForX64 subclass: #ThreadedFFICalloutStateForX64Win64
+ instanceVariableNames: 'floatRegisterSignature'
- instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'VMMaker-Plugins-FFI'!
Item was added:
+ ----- Method: ThreadedFFICalloutStateForX64Win64 class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') -----
+ instVarNamesAndTypesForTranslationDo: aBinaryBlock
+ "enumerate aBinaryBlock with the names and C type strings for the inst vars to include in a ThreadedFFICalloutState struct."
+
+ ThreadedFFICalloutStateForX64 instVarNamesAndTypesForTranslationDo: aBinaryBlock.
+ ThreadedFFICalloutStateForX64Win64 instVarNames do:
+ [:ivn|
+ aBinaryBlock
+ value: ivn
+ value: (ivn caseOf: {
+ ['floatRegisterSignature'] -> [#int] }
+ otherwise:
+ [#sqInt])]!
Item was added:
+ ----- Method: ThreadedFFICalloutStateForX64Win64>>floatRegisterSignature (in category 'accessing') -----
+ floatRegisterSignature
+ ^floatRegisterSignature!
Item was added:
+ ----- Method: ThreadedFFICalloutStateForX64Win64>>incrementFloatRegisterIndex (in category 'accessing') -----
+ incrementFloatRegisterIndex
+ "There are only 4 args passed by register int or float.
+ So we can't distinguish the float index from the integer index.
+ So we have to increment both.
+
+ Consequently, floatRegisterIndex cannot be used anymore to detect presence of float parameter.
+ However, we set a signature bitmap indicating which register position is used to pass a float.
+
+ IMPLEMENTATION NOTES:
+ There are code generator hacks that bypass the accessors.
+ So we cannot just redefine the method floatRegisterIndex as ^integerRegisterIndex.
+ Instead we must maintain the two indices"
+
+ floatRegisterSignature := floatRegisterSignature + (1 << floatRegisterIndex).
+ ^integerRegisterIndex := floatRegisterIndex := floatRegisterIndex + 1!
Item was added:
+ ----- Method: ThreadedFFICalloutStateForX64Win64>>incrementIntegerRegisterIndex (in category 'accessing') -----
+ incrementIntegerRegisterIndex
+ "There are only 4 args passed by register int or float.
+ So we can't distinguish the float index from the integer index.
+ So we have to increment both.
+
+ IMPLEMENTATION NOTES:
+ There are code generator hacks that bypass the accessors.
+ So we cannot just redefine the method floatRegisterIndex as ^integerRegisterIndex.
+ Instead we must maintain the two indices"
+
+ ^floatRegisterIndex := integerRegisterIndex := integerRegisterIndex + 1!
Item was added:
+ ----- Method: ThreadedFFICalloutStateForX64Win64>>initialize (in category 'initialize-release') -----
+ initialize
+ super initialize.
+ floatRegisterSignature := 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 */
#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))
# define getsp() ({ void *esp; asm volatile ("movl %%esp,%0" : "=r"(esp) : ); esp;})
+ # elif defined(__GNUC__) && (defined(__amd64__) || defined(__x86_64__) || defined(__amd64) || defined(__x86_64))
+ # define setsp(sp) asm volatile ("movq %0,%%rsp" : : "m"(sp))
+ # define getsp() ({ void *rsp; asm volatile ("movq %%rsp,%0" : "=r"(rsp) : ); rsp;})
# elif defined(__GNUC__) && (defined(__arm__))
# define setsp(sp) asm volatile ("ldr %%sp, %0" : : "m"(sp))
# define getsp() ({ void *sp; asm volatile ("mov %0, %%sp" : "=r"(sp) : ); sp;})
#endif
#if !!defined(getsp)
# define getsp() 0
#endif
#if !!defined(setsp)
# define setsp(ignored) 0
#endif
#if !!defined(STACK_ALIGN_BYTES)
# if __APPLE__ && __MACH__ && __i386__
# define STACK_ALIGN_BYTES 16
# elif __linux__ && __i386__
# define STACK_ALIGN_BYTES 16
# elif defined(__amd64__) || defined(__x86_64__) || defined(__amd64) || defined(__x86_64)
# define STACK_ALIGN_BYTES 16
# elif defined(powerpc) || defined(__powerpc__) || defined(_POWER) || defined(__POWERPC__) || defined(__PPC__)
# define STACK_ALIGN_BYTES 16
# elif defined(__sparc64__) || defined(__sparcv9__) || defined(__sparc_v9__) /* must precede 32-bit sparc defs */
# define STACK_ALIGN_BYTES 16
# elif defined(sparc) || defined(__sparc__) || defined(__sparclite__)
# define STACK_ALIGN_BYTES 8
# elif defined(__arm__)
# define STACK_ALIGN_BYTES 8
# else
# define STACK_ALIGN_BYTES 0
# endif
#endif /* !!defined(STACK_ALIGN_BYTES) */
#if !!defined(STACK_OFFSET_BYTES)
# define STACK_OFFSET_BYTES 0
#endif
#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_USE_GETSP)
+ # if defined(__MINGW32__) && (__GNUC__ >= 3) && (defined(_X86_) || defined(i386) || defined(__i386) || defined(__i386__))
- # if defined(__MINGW32__) && (__GNUC__ >= 3)
/*
* cygwin -mno-cygwin (MinGW) gcc 3.4.x''s alloca is a library routine that answers
* %esp + 4, so the outgoing stack is offset by one word if uncorrected.
* Grab the actual stack pointer to correct.
*/
# define ALLOCA_LIES_SO_USE_GETSP 1
# else
# define ALLOCA_LIES_SO_USE_GETSP 0
# endif
#endif /* !!defined(ALLOCA_LIES_SO_USE_GETSP) */
#if !!defined(PLATFORM_API_USES_CALLEE_POPS_CONVENTION)
# define PLATFORM_API_USES_CALLEE_POPS_CONVENTION 0
#endif
/* 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 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. "
| rcvrClass rcvrSize addr |
(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:[^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:
[^interpreterProxy primitiveFail]]
ifFalse:
[byteOffset+byteSize-1 <= rcvrSize ifFalse:
[^interpreterProxy primitiveFail].
+ addr := self cCoerce: (interpreterProxy firstIndexableField: rcvr) to: #sqInt].
- addr := self cCoerce: (interpreterProxy firstIndexableField: rcvr) to: #long].
addr := addr + byteOffset - 1.
^addr!
Item was changed:
----- Method: ThreadedFFIPlugin>>ffiCreateIntegralResultOop:ofAtomicType:in: (in category 'callout support') -----
ffiCreateIntegralResultOop: retVal ofAtomicType: atomicType in: calloutState
<inline: true>
<var: #calloutState type: #'CalloutState *'>
<var: #retVal type: #usqLong>
"Callout support. Return the appropriate oop for the given atomic type"
| shift value mask byteSize |
<var: 'value' type: #usqLong>
<var: 'mask' type: #usqLong>
self assert: atomicType < FFITypeSingleFloat.
atomicType = FFITypeBool ifTrue:
["Make sure bool honors the byte size requested"
byteSize := calloutState ffiRetHeader bitAnd: FFIStructSizeMask.
value := byteSize = (self sizeof: retVal)
ifTrue:[retVal]
+ ifFalse:[retVal bitAnd: 1 asUnsignedIntegerPtr << (byteSize * 8) - 1].
- ifFalse:[retVal bitAnd: 1 << (byteSize * 8) - 1].
^value = 0
ifTrue:[interpreterProxy falseObject]
ifFalse:[interpreterProxy trueObject]].
atomicType <= FFITypeSignedInt ifTrue:
["these are all generall integer returns"
atomicType <= (BytesPerWord = 8 ifTrue: [FFITypeSignedInt] ifFalse: [FFITypeSignedShort]) ifTrue:
["byte/short. first extract partial word, then sign extend"
shift := (BytesPerWord = 8 and: [atomicType >= FFITypeUnsignedInt])
ifTrue: [32]
ifFalse: [(atomicType >> 1) * 8]. "# of significant bits"
+ value := retVal bitAnd: (1 asUnsignedIntegerPtr << shift - 1).
- value := retVal bitAnd: (1 asUnsignedLong << shift - 1).
(atomicType anyMask: 1) ifTrue:
["make the guy signed"
+ mask := 1 asUnsignedIntegerPtr << (shift-1).
- mask := 1 asUnsignedLong << (shift-1).
value := (value bitAnd: mask-1) - (value bitAnd: mask)].
^interpreterProxy integerObjectOf: value].
"Word sized integer return"
^(atomicType anyMask: 1)
ifTrue:[interpreterProxy signedMachineIntegerFor: retVal] "signed return"
ifFalse:[interpreterProxy positiveMachineIntegerFor: retVal]]. "unsigned return"
"longlong, char"
^(atomicType >> 1) = (FFITypeSignedLongLong >> 1)
ifTrue:
[(atomicType anyMask: 1)
ifTrue:[interpreterProxy signed64BitIntegerFor: retVal] "signed return"
ifFalse:[interpreterProxy positive64BitIntegerFor: retVal]]
ifFalse:
[interpreterProxy characterObjectOf: (retVal bitAnd: 16rFF)]!
Item was changed:
----- Method: ThreadedFFIPlugin>>ffiLoadCalloutAddress: (in category 'symbol loading') -----
ffiLoadCalloutAddress: lit
"Load the address of the foreign function from the given object"
| addressPtr address ptr |
+ <var: #ptr type: #'sqIntptr_t *'>
- <var: #ptr type: #'long *'>
"Lookup the address"
addressPtr := interpreterProxy fetchPointer: 0 ofObject: lit.
"Make sure it's an external handle"
address := self ffiContentsOfHandle: addressPtr errCode: FFIErrorBadAddress.
interpreterProxy failed ifTrue:
[^0].
address = 0 ifTrue:"Go look it up in the module"
[self externalFunctionHasStackSizeSlot ifTrue:
[interpreterProxy
storePointer: ExternalFunctionStackSizeIndex
ofObject: lit
withValue: (interpreterProxy integerObjectOf: -1)].
(interpreterProxy slotSizeOf: lit) < 5 ifTrue:
[^self ffiFail: FFIErrorNoModule].
address := self ffiLoadCalloutAddressFrom: lit.
interpreterProxy failed ifTrue:
[^0].
"Store back the address"
ptr := interpreterProxy firstIndexableField: addressPtr.
ptr at: 0 put: address].
^address!
Item was changed:
----- Method: ThreadedFFIPlugin>>primitiveFFIAllocate (in category 'primitives') -----
primitiveFFIAllocate
"Primitive. Allocate an object on the external heap."
| byteSize addr oop ptr |
<export: true>
<inline: false>
+ <var: #ptr type: #'sqIntptr_t *'>
- <var: #ptr type: #'long *'>
byteSize := interpreterProxy stackIntegerValue: 0.
interpreterProxy failed ifTrue:
[^nil].
addr := self ffiAlloc: byteSize.
addr = 0 ifTrue:
[^interpreterProxy primitiveFail].
oop := interpreterProxy
instantiateClass: interpreterProxy classExternalAddress
+ indexableSize: (self sizeof: #'sqIntptr_t').
- indexableSize: (self sizeof: #long).
ptr := interpreterProxy firstIndexableField: oop.
ptr at: 0 put: addr.
^interpreterProxy pop: 2 thenPush: oop!
Item was changed:
----- Method: ThreadedFFIPlugin>>primitiveFFIFree (in category 'primitives') -----
primitiveFFIFree
"Primitive. Free the object pointed to on the external heap."
| addr oop ptr |
<export: true>
<inline: false>
+ <var: #ptr type: #'sqIntptr_t *'>
- <var: #ptr type: #'long *'>
oop := interpreterProxy stackObjectValue: 0.
((interpreterProxy fetchClassOf: oop) = interpreterProxy classExternalAddress
+ and: [(interpreterProxy byteSizeOf: oop) = (self sizeof: #'sqIntptr_t')]) ifFalse:
- and: [(interpreterProxy byteSizeOf: oop) = (self sizeof: #long)]) ifFalse:
[^interpreterProxy primitiveFail].
ptr := interpreterProxy firstIndexableField: oop.
addr := ptr at: 0.
"Don't you dare to free Squeak's memory!!"
(addr = 0
+ or: [(addr asUnsignedIntegerPtr bitAnd: (self sizeof: #'sqIntptr_t') - 1) ~= 0
- or: [(addr asUnsignedLong bitAnd: (self sizeof: #long) - 1) ~= 0
or: [interpreterProxy isInMemory: addr]]) ifTrue:
[^interpreterProxy primitiveFail].
self ffiFree: addr.
^ptr at: 0 put: 0 "cleanup"!
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 shortAt: addr) to: #'unsigned short']]
ifFalse:
[byteSize = 4
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 asUnsignedIntegerPtr << (byteSize * 8 - 1).
- [mask := 1 << (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 asUnsignedIntegerPtr << (byteSize * 8 - 1).
- [mask := 1 << (byteSize * 8 - 1).
value := (value bitAnd: mask-1) - (value bitAnd: mask)].
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 signedMachineIntegerValueOf: valueOop]
ifFalse:[value := interpreterProxy positiveMachineIntegerValueOf: valueOop].
interpreterProxy failed ifTrue:[^0].
byteSize < BytesPerWord ifTrue:
[isSigned
ifTrue:
+ [max := 1 asUnsignedIntegerPtr << (8 * byteSize - 1).
- [max := 1 << (8 * byteSize - 1).
(value >= (0 - max) and: [value < max]) ifFalse: [^interpreterProxy primitiveFail]]
ifFalse:
+ [value asUnsignedLongLong < (1 asUnsignedIntegerPtr << (8*byteSize)) ifFalse: [^interpreterProxy primitiveFail]]].
- [value asUnsignedLongLong < (1 << (8*byteSize)) ifFalse: [^interpreterProxy primitiveFail]]].
byteSize <= 2
ifTrue:
[byteSize = 1
ifTrue: [interpreterProxy byteAt: addr put: value]
ifFalse: [interpreterProxy shortAt: addr put: value]]
ifFalse:
[byteSize = 4
ifTrue: [interpreterProxy long32At: addr put: value]
ifFalse: [interpreterProxy long64At: addr put: value]].
^interpreterProxy pop: 5 thenPush: valueOop!
Item was changed:
----- Method: ThreadedFFIPlugin>>primitiveSetManualSurfacePointer (in category 'primitives - surfaces') -----
primitiveSetManualSurfacePointer
"Create a 'manual surface' data-structure. See the ExternalForm class in the FFI package for example usage."
"arguments: name(type, stack offset)
surfaceID(Integer, 1)
ptr(uint32/uint64, 0)"
| surfaceID ptr result |
<export: true>
+ <var: #ptr type: #'usqIntptr_t'>
- <var: #ptr type: #'unsigned long'>
interpreterProxy methodArgumentCount = 2 ifFalse: [^interpreterProxy primitiveFail].
surfaceID := interpreterProxy stackIntegerValue: 1.
ptr := interpreterProxy positiveMachineIntegerValueOf: (interpreterProxy stackValue: 0).
interpreterProxy failed ifTrue: [^nil].
self touch: surfaceID; touch: ptr.
result := self setManualSurface: surfaceID Pointer: ptr asVoidPointer.
result = 0 ifTrue: [^interpreterProxy primitiveFail].
^interpreterProxy pop: 2
!
Item was removed:
- ----- Method: ThreadedX64FFIPlugin class>>excludingPredefinedMacros (in category 'translation') -----
- excludingPredefinedMacros
- "Answer the predefined macros that disqualify the platforms a subclass handles, if any.
- This can be used to differentiate e.g. x64 Sys V from x64 Win64."
- ^#('WIN64')!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushDoubleFloat:in: (in category 'marshalling') -----
ffiPushDoubleFloat: value in: calloutState
<var: #value type: #double>
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState floatRegisterIndex < NumFloatRegArgs
ifTrue:
[calloutState floatRegisters at: calloutState floatRegisterIndex put: value.
+ calloutState incrementFloatRegisterIndex]
- calloutState floatRegisterIndex: calloutState floatRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy storeFloatAtPointer: calloutState currentArg from: value.
calloutState currentArg: calloutState currentArg + WordSize].
^0!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushPointer:in: (in category 'marshalling') -----
ffiPushPointer: pointer in: calloutState
<var: #pointer type: #'void *'>
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: pointer asInteger.
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: pointer.
calloutState currentArg: calloutState currentArg + WordSize].
^0!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushSignedByte:in: (in category 'marshalling') -----
ffiPushSignedByte: value in: calloutState
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed char').
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed char').
calloutState currentArg: calloutState currentArg + WordSize].
^0!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushSignedChar:in: (in category 'marshalling') -----
ffiPushSignedChar: value in: calloutState
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed char').
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed char').
calloutState currentArg: calloutState currentArg + WordSize].
^0!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushSignedInt:in: (in category 'marshalling') -----
ffiPushSignedInt: value in: calloutState
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: value.
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: value.
calloutState currentArg: calloutState currentArg + WordSize].
^0
!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushSignedLongLong:in: (in category 'marshalling') -----
ffiPushSignedLongLong: value in: calloutState
<var: #value type: #sqLong>
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #usqInt).
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: value.
calloutState currentArg: calloutState currentArg + WordSize].
^0!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushSignedShort:in: (in category 'marshalling') -----
ffiPushSignedShort: value in: calloutState
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed short').
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed short').
calloutState currentArg: calloutState currentArg + WordSize].
^0!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushSingleFloat:in: (in category 'marshalling') -----
ffiPushSingleFloat: value in: calloutState
<var: #value type: #float>
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState floatRegisterIndex < NumFloatRegArgs
ifTrue:
[(self cCoerce: calloutState floatRegisters + calloutState floatRegisterIndex to: #'float *') at: 0 put: value.
+ calloutState incrementFloatRegisterIndex]
- calloutState floatRegisterIndex: calloutState floatRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy storeFloatAtPointer: calloutState currentArg from: value.
calloutState currentArg: calloutState currentArg + WordSize].
^0!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushUnsignedByte:in: (in category 'marshalling') -----
ffiPushUnsignedByte: value in: calloutState
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned char').
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned char').
calloutState currentArg: calloutState currentArg + WordSize].
^0
!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushUnsignedChar:in: (in category 'marshalling') -----
ffiPushUnsignedChar: value in: calloutState
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned char').
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned char').
calloutState currentArg: calloutState currentArg + WordSize].
^0!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushUnsignedInt:in: (in category 'marshalling') -----
ffiPushUnsignedInt: value in: calloutState
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: value.
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: value.
calloutState currentArg: calloutState currentArg + WordSize].
^0
!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushUnsignedLongLong:in: (in category 'marshalling') -----
ffiPushUnsignedLongLong: value in: calloutState
<var: #value type: #usqLong>
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: value.
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: value.
calloutState currentArg: calloutState currentArg + WordSize].
^0!
Item was changed:
----- Method: ThreadedX64FFIPlugin>>ffiPushUnsignedShort:in: (in category 'marshalling') -----
ffiPushUnsignedShort: value in: calloutState
<var: #calloutState type: #'CalloutState *'>
<inline: true>
calloutState integerRegisterIndex < NumIntRegArgs
ifTrue:
[calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned short').
+ calloutState incrementIntegerRegisterIndex]
- calloutState integerRegisterIndex: calloutState integerRegisterIndex + 1]
ifFalse:
[calloutState currentArg + WordSize > calloutState limit ifTrue:
[^FFIErrorCallFrameTooBig].
interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned short').
calloutState currentArg: calloutState currentArg + WordSize].
^0!
Item was changed:
ThreadedX64FFIPlugin subclass: #ThreadedX64Win64FFIPlugin
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'VMMaker-Plugins-FFI'!
+ !ThreadedX64Win64FFIPlugin commentStamp: 'nice 8/10/2016 19:23' prior: 0!
+ This subclass is for the Win64 x86-64 ABI. The Win64 ABI uses 4 integer registers or 4 double-precision floating-point registers or a mix of the two. See w.g. https://msdn.microsoft.com/en-us/library/ms235286.aspx, or google for "Overview of x64 Calling Conventions - MSDN - Microsoft".
- !ThreadedX64Win64FFIPlugin commentStamp: 'eem 2/16/2016 19:39' prior: 0!
- This subclass is for the Win64 x86-64 ABI. The System V ABI uses 4 integer registers and 4 double-precision floating-point registers. See w.g. https://msdn.microsoft.com/en-us/library/ms235286.aspx, or google for "Overview of x64 Calling Conventions - MSDN - Microsoft".
Note that unlike the System V x86-64 ABI, the Win64 ABI does /not/ decompose structs passed by value across available parameter registers.!
Item was added:
+ ----- Method: ThreadedX64Win64FFIPlugin class>>calloutStateClass (in category 'translation') -----
+ calloutStateClass
+ ^ThreadedFFICalloutStateForX64Win64!
Item was added:
+ ----- Method: ThreadedX64Win64FFIPlugin>>ffiCalloutDoubleRetTo:in: (in category 'callout support') -----
+ ffiCalloutDoubleRetTo: procAddr in: calloutState
+ <var: #procAddr type: #'void *'>
+ <var: #calloutState type: #'CalloutState *'>
+ | floatRet |
+ <var: #floatRet type: #double>
+ <returnTypeC: #double>
+ <inline: true>
+ calloutState floatRegisterSignature caseOf: {
+ [0]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(sqIntptr_t, sqIntptr_t, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [1]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(double, sqIntptr_t, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [2]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(sqIntptr_t, double, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [3]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(double, double, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [4]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(sqIntptr_t, sqIntptr_t, double, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [5]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(double, sqIntptr_t, double, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [6]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(sqIntptr_t, double, double, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [7]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(double, double, double, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+
+ [8]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(sqIntptr_t, sqIntptr_t, sqIntptr_t, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [9]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(double, sqIntptr_t, sqIntptr_t, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [10]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(sqIntptr_t, double, sqIntptr_t, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [11]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(double, double, sqIntptr_t, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [12]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(sqIntptr_t, sqIntptr_t, double, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [13]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(double, sqIntptr_t, double, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [14]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(sqIntptr_t, double, double, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [15]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(double, double, double, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].} otherwise: [floatRet := 0].
+ ^floatRet!
Item was added:
+ ----- Method: ThreadedX64Win64FFIPlugin>>ffiCalloutFloatRetTo:in: (in category 'callout support') -----
+ ffiCalloutFloatRetTo: procAddr in: calloutState
+ <var: #procAddr type: #'void *'>
+ <var: #calloutState type: #'CalloutState *'>
+ | floatRet |
+ <var: #floatRet type: #double> "It's double rather than float because it will be converted to a squeak Float object (a.k.a. double precision)"
+ <returnTypeC: #double>
+ <inline: true>
+ calloutState floatRegisterSignature caseOf: {
+ [0]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(sqIntptr_t, sqIntptr_t, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [1]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(double, sqIntptr_t, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [2]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(sqIntptr_t, double, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [3]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(double, double, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [4]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(sqIntptr_t, sqIntptr_t, double, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [5]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(double, sqIntptr_t, double, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [6]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(sqIntptr_t, double, double, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [7]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(double, double, double, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+
+ [8]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(sqIntptr_t, sqIntptr_t, sqIntptr_t, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [9]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(double, sqIntptr_t, sqIntptr_t, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [10]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(sqIntptr_t, double, sqIntptr_t, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [11]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(double, double, sqIntptr_t, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [12]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(sqIntptr_t, sqIntptr_t, double, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [13]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(double, sqIntptr_t, double, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [14]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(sqIntptr_t, double, double, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [15]-> [floatRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(double, double, double, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].} otherwise: [floatRet := 0].
+ ^floatRet!
Item was added:
+ ----- Method: ThreadedX64Win64FFIPlugin>>ffiCalloutIntRetTo:in: (in category 'callout support') -----
+ ffiCalloutIntRetTo: procAddr in: calloutState
+ <var: #procAddr type: #'void *'>
+ <var: #calloutState type: #'CalloutState *'>
+ | intRet |
+ <var: #intRet type: #usqLong>
+ <returnTypeC: #usqLong>
+ <inline: true>
+ calloutState floatRegisterSignature caseOf: {
+ [0]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(sqIntptr_t, sqIntptr_t, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [1]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(double, sqIntptr_t, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [2]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(sqIntptr_t, double, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [3]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(double, double, sqIntptr_t, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [4]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(sqIntptr_t, sqIntptr_t, double, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [5]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(double, sqIntptr_t, double, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [6]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(sqIntptr_t, double, double, sqIntptr_t)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+ [7]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(double, double, double, sqIntptr_t)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState integerRegisters at: 3)].
+
+ [8]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(sqIntptr_t, sqIntptr_t, sqIntptr_t, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [9]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(double, sqIntptr_t, sqIntptr_t, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [10]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(sqIntptr_t, double, sqIntptr_t, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [11]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(double, double, sqIntptr_t, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState integerRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [12]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(sqIntptr_t, sqIntptr_t, double, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [13]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(double, sqIntptr_t, double, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState integerRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [14]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(sqIntptr_t, double, double, double)')
+ with: (calloutState integerRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].
+ [15]-> [intRet := self
+ dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(double, double, double, double)')
+ with: (calloutState floatRegisters at: 0)
+ with: (calloutState floatRegisters at: 1)
+ with: (calloutState floatRegisters at: 2)
+ with: (calloutState floatRegisters at: 3)].} otherwise: [intRet := 0].
+ ^intRet!
Item was changed:
----- Method: ThreadedX64Win64FFIPlugin>>ffiCalloutTo:SpecOnStack:in: (in category 'callout support') -----
ffiCalloutTo: procAddr SpecOnStack: specOnStack in: calloutState
<var: #procAddr type: #'void *'>
<var: #calloutState type: #'CalloutState *'>
- <var: #loadFloatRegs declareC: 'extern void loadFloatRegs(double, double, double, double)'>
"Go out, call this guy and create the return value. This *must* be inlined because of
the alloca of the outgoing stack frame in ffiCall:WithFlags:NumArgs:Args:AndTypes:"
| myThreadIndex atomicType floatRet intRet loadFloatRegs oop |
<var: #floatRet type: #double>
<var: #intRet type: #usqLong>
<inline: true>
self cCode: '' inSmalltalk: [loadFloatRegs := #used. loadFloatRegs class].
self cppIf: COGMTVM ifTrue:
[(calloutState callFlags anyMask: FFICallFlagThreaded) ifTrue:
[myThreadIndex := interpreterProxy disownVM: 0]].
self registerArgsSlop + self cStackAlignment > 0 ifTrue:
[self setsp: calloutState argVector].
- calloutState floatRegisterIndex > 0 ifTrue:
- [self
- load: (calloutState floatRegisters at: 0)
- Flo: (calloutState floatRegisters at: 1)
- at: (calloutState floatRegisters at: 2)
- Re: (calloutState floatRegisters at: 3)
- gs: (calloutState floatRegisters at: 4)].
-
atomicType := self atomicTypeOf: calloutState ffiRetHeader.
(atomicType >> 1) = (FFITypeSingleFloat >> 1)
ifTrue:
[atomicType = FFITypeSingleFloat
ifTrue:
+ [floatRet := self ffiCalloutFloatRetTo: procAddr in: calloutState]
- [floatRet := self
- dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'float (*)(long, long, long, long)')
- with: (calloutState integerRegisters at: 0)
- with: (calloutState integerRegisters at: 1)
- with: (calloutState integerRegisters at: 2)
- with: (calloutState integerRegisters at: 3)]
ifFalse: "atomicType = FFITypeDoubleFloat"
+ [floatRet := self ffiCalloutDoubleRetTo: procAddr in: calloutState]]
- [floatRet := self
- dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'double (*)(long, long, long, long)')
- with: (calloutState integerRegisters at: 0)
- with: (calloutState integerRegisters at: 1)
- with: (calloutState integerRegisters at: 2)
- with: (calloutState integerRegisters at: 3)]]
ifFalse:
+ [intRet := self ffiCalloutIntRetTo: procAddr in: calloutState].
- [intRet := self
- dispatchFunctionPointer: (self cCoerceSimple: procAddr to: 'usqLong (*)(long, long, long, long)')
- with: (calloutState integerRegisters at: 0)
- with: (calloutState integerRegisters at: 1)
- with: (calloutState integerRegisters at: 2)
- with: (calloutState integerRegisters at: 3)].
"undo any callee argument pops because it may confuse stack management with the alloca."
(self isCalleePopsConvention: calloutState callFlags) ifTrue:
[self setsp: calloutState argVector].
self cppIf: COGMTVM ifTrue:
[(calloutState callFlags anyMask: FFICallFlagThreaded) ifTrue:
[interpreterProxy ownVM: myThreadIndex]].
(calloutState ffiRetHeader anyMask: FFIFlagPointer+FFIFlagStructure) ifTrue:
["Note: Order is important here since FFIFlagPointer + FFIFlagStructure is used to represent
'typedef void* VoidPointer' and VoidPointer must be returned as pointer *not* as struct."
(calloutState ffiRetHeader anyMask: FFIFlagPointer)
ifTrue:
[oop := self ffiReturnPointer: intRet ofType: (self ffiReturnType: specOnStack) in: calloutState]
ifFalse:
[oop := self ffiReturnStruct: intRet ofType: (self ffiReturnType: specOnStack) in: calloutState].
^oop].
(atomicType >> 1) = (FFITypeSingleFloat >> 1)
ifTrue:
[oop := interpreterProxy floatObjectOf: floatRet]
ifFalse:
[oop := self ffiCreateIntegralResultOop: intRet
ofAtomicType: atomicType
in: calloutState].
^interpreterProxy methodReturnValue: oop!
Item was changed:
----- Method: ThreadedX64Win64FFIPlugin>>ffiPushStructure:ofSize:typeSpec:ofLength:in: (in category 'marshalling') -----
ffiPushStructure: pointer ofSize: structSize typeSpec: argSpec ofLength: argSpecSize in: calloutState
<var: #pointer type: #'void *'>
<var: #argSpec type: #'sqInt *'>
<var: #calloutState type: #'CalloutState *'>
+ <var: #arg type: #usqLong>
<inline: true>
structSize <= 0 ifTrue:
[^FFIErrorStructSize].
+ (structSize <= WordSize
- (structSize <= 16
and: [(structSize bitAnd: structSize - 1) = 0 "a.k.a. structSize isPowerOfTwo"]) ifTrue:
+ [| arg |
+ self mem: (self addressOf: arg) cp: pointer y: structSize.
+ ^self ffiPushUnsignedLongLong: arg in: calloutState].
- [^self ffiPushUnsignedLongLong: (self cCoerceSimple: pointer to: #usqLong) in: calloutState].
"For now just push the pointer; we should copy the struct to the outgoing stack frame!!!!"
self flag: 'quick hack'.
^self ffiPushPointer: pointer in: calloutState!
Item was changed:
----- Method: ThreadedX64Win64FFIPlugin>>returnStructInRegisters: (in category 'marshalling') -----
returnStructInRegisters: returnStructSize
"Answer if a struct result of a given size is returned in memory or not."
+ ^returnStructSize <= WordSize and: ["returnStructSize isPowerOfTwo" (returnStructSize bitAnd: returnStructSize-1) = 0]!
- ^returnStructSize <= WordSize!
Item was added:
+ ----- Method: UndefinedObject>>asIntegerPtr (in category '*VMMaker-interpreter simulator') -----
+ asIntegerPtr
+ ^self!
Item was added:
+ ----- Method: UndefinedObject>>asUnsignedIntegerPtr (in category '*VMMaker-interpreter simulator') -----
+ asUnsignedIntegerPtr
+ ^self!
Item was changed:
----- Method: VMCallbackContext class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') -----
instVarNamesAndTypesForTranslationDo: aBinaryBlock
"Define a CallbackContext, the argument to sendInvokeCallbackContext:
self typedef"
self instVarNames do:
[:ivn|
aBinaryBlock
value: ivn
value: (ivn caseOf: {
['thunkp'] -> [#'void *'].
+ ['stackp'] -> [#'sqIntptr_t *'].
+ ['intregargsp'] -> [#'sqIntptr_t *'].
- ['stackp'] -> [#'long *'].
- ['intregargsp'] -> [#'long *'].
['floatregargsp'] -> [#'double *'].
['rvs'] -> [
'union {
+ sqIntptr_t valword;
- long valword;
struct { int low, high; } valleint64;
struct { int high, low; } valbeint64;
double valflt64;
+ struct { void *addr; sqIntptr_t size; } valstruct;
- struct { void *addr; long size; } valstruct;
}'].
['savedCStackPointer'] -> [#'void *'].
['savedCFramePointer'] -> [#'void *'].
['trampoline'] -> [#'jmp_buf'].
['savedReenterInterpreter'] -> [#'jmp_buf']})]!
Item was changed:
----- Method: VMClass>>sizeof: (in category 'translation support') -----
sizeof: objectSymbolOrClass
<doNotGenerate>
| index |
objectSymbolOrClass isInteger ifTrue:
[^self class objectMemoryClass wordSize].
+ (#(usqInt sqInt) includes: objectSymbolOrClass) ifTrue: [^self class objectMemoryClass bytesPerOop].
objectSymbolOrClass isSymbol ifTrue:
[(objectSymbolOrClass last == $*
+ or: [#(#'sqIntptr_t' #'usqIntptr_t' #'size_t') includes: objectSymbolOrClass]) ifTrue:
- or: [#long == objectSymbolOrClass
- or: [#'unsigned long' == objectSymbolOrClass]]) ifTrue:
[^self class objectMemoryClass wordSize].
index := #( #sqLong #usqLong #double
#int #'unsigned int' #float
#short #'unsigned short'
#char #'unsigned char' #'signed char')
indexOf: objectSymbolOrClass
ifAbsent:
+ [(#(long #'unsigned long') includes: objectSymbolOrClass)
+ ifTrue:
+ [self error: 'long is ambiguous on 64bits architecture, don''t use it'.
+ ^self class objectMemoryClass wordSize].
+ self error: 'unrecognized C type name'].
- [(#(usqInt sqInt) includes: objectSymbolOrClass) ifTrue: [^self class objectMemoryClass bytesPerOop].
- self error: 'unrecognized C type name'].
^#(8 8 8
4 4 4
2 2
1 1 1) at: index].
^(objectSymbolOrClass isBehavior
ifTrue: [objectSymbolOrClass]
ifFalse: [objectSymbolOrClass class])
alignedByteSizeOf: objectSymbolOrClass
forClient: self!
Item was changed:
----- Method: VMProfileLinuxSupportPlugin>>primitiveDLSymInLibrary (in category 'primitives') -----
primitiveDLSymInLibrary
"Answer the address of the symbol whose name is the first argument
in the library whose name is the second argument, or nil if none."
| nameObj symName libName lib sz addr ok |
<export: true>
<var: #symName type: #'char *'>
<var: #libName type: #'char *'>
<var: #lib type: #'void *'>
<var: #addr type: #'void *'>
nameObj := interpreterProxy stackValue: 0.
(interpreterProxy isBytes: nameObj) ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
sz := interpreterProxy byteSizeOf: nameObj.
libName := self malloc: sz+1.
self st: libName rn: (interpreterProxy firstIndexableField: nameObj) cpy: sz.
libName at: sz put: 0.
nameObj := interpreterProxy stackValue: 1.
(interpreterProxy isBytes: nameObj) ifFalse:
[self free: libName.
^interpreterProxy primitiveFailFor: PrimErrBadArgument].
sz := interpreterProxy byteSizeOf: nameObj.
symName := self malloc: sz+1.
self st: symName rn: (interpreterProxy firstIndexableField: nameObj) cpy: sz.
symName at: sz put: 0.
lib := self dl: libName open: (#'RTLD_LAZY' bitOr: #'RTLD_NODELETE').
lib ifNil:
[self free: libName; free: symName.
^interpreterProxy primitiveFailFor: PrimErrInappropriate].
self dlerror. "clear dlerror"
addr := self dl: lib sym: symName.
ok := self dlerror isNil.
self free: symName.
self free: libName.
self dlclose: lib.
ok ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrNotFound].
+ ^interpreterProxy methodReturnValue: (interpreterProxy positiveMachineIntegerFor: addr asUnsignedIntegerPtr)!
- ^interpreterProxy methodReturnValue: (interpreterProxy positiveMachineIntegerFor: addr asUnsignedLong)!
Item was changed:
----- Method: VMProfileLinuxSupportPlugin>>primitiveInterpretAddress (in category 'primitives') -----
primitiveInterpretAddress
"Answer the address of the interpret routine."
<export: true>
| interpret |
<var: #interpret declareC: 'extern void interpret()'>
+ ^interpreterProxy methodReturnValue: (interpreterProxy positiveMachineIntegerFor: interpret asUnsignedIntegerPtr)!
- ^interpreterProxy methodReturnValue: (interpreterProxy positiveMachineIntegerFor: interpret asUnsignedLong)!
Item was changed:
----- Method: VMProfileMacSupportPlugin>>primitiveDLSym (in category 'primitives') -----
primitiveDLSym
"Answer the address of the argument in the current process or nil if none."
| nameObj name namePtr sz addr |
<export: true>
<var: #name type: #'char *'>
<var: #namePtr type: #'char *'>
<var: #addr type: #'void *'>
nameObj := interpreterProxy stackValue: 0.
(interpreterProxy isBytes: nameObj) ifFalse:
[^interpreterProxy primitiveFailFor: PrimErrBadArgument].
sz := interpreterProxy byteSizeOf: nameObj.
name := self malloc: sz+1.
namePtr := interpreterProxy firstIndexableField: nameObj.
0 to: sz-1 do:[:i| name at: i put: (namePtr at: i)].
name at: sz put: 0.
addr := self cCode: 'dlsym(RTLD_SELF,name)' inSmalltalk: [0].
self free: name.
^interpreterProxy methodReturnValue: (addr = 0
ifTrue: [interpreterProxy nilObject]
+ ifFalse: [interpreterProxy positiveMachineIntegerFor: addr asUnsignedIntegerPtr])!
- ifFalse: [interpreterProxy positiveMachineIntegerFor: addr asUnsignedLong])!
Item was changed:
----- Method: VMProfileMacSupportPlugin>>primitiveExecutableModulesAndOffsets (in category 'primitives') -----
primitiveExecutableModulesAndOffsets
"Answer an Array of quads for executable modules (the VM executable
and loaded libraries). Each quad is the module's name, its vm address
relocation in memory, the (unrelocated) start address, and the size."
| present nimages resultObj name valueObj nameObjData slide start size h s |
<export: true>
<var: #name type: 'const char *'>
<var: #nameObjData type: #'char *'>
<var: #h type: 'const struct mach_header *'>
<var: #s type: 'const struct section *'>
+ <var: #start type: #'usqIntptr_t'>
+ <var: #size type: #'usqIntptr_t'>
- <var: #start type: 'unsigned long'>
- <var: #size type: 'unsigned long'>
present := self cCode: '_dyld_present()' inSmalltalk: [false].
present ifFalse:
[^interpreterProxy primitiveFail].
nimages := self cCode: '_dyld_image_count()' inSmalltalk: [0].
resultObj := interpreterProxy instantiateClass: interpreterProxy classArray indexableSize: nimages * 4.
resultObj = 0 ifTrue:
[^interpreterProxy primitiveFail].
interpreterProxy pushRemappableOop: resultObj.
0 to: nimages - 1 do:
[:i|
start := size := -1. "impossible start & size"
name := self cCode: '_dyld_get_image_name(i)' inSmalltalk: [0].
slide := self cCode: '_dyld_get_image_vmaddr_slide(i)' inSmalltalk: [0].
h := self cCode: '_dyld_get_image_header(i)' inSmalltalk: [0].
h ~= nil ifTrue:
[s := self cCode: 'getsectbynamefromheader(h,SEG_TEXT,SECT_TEXT)' inSmalltalk: [0].
s ~= nil ifTrue:
[start := self cCode: 's->addr' inSmalltalk: [0].
size := self cCode: 's->size' inSmalltalk: [0]]].
valueObj := interpreterProxy
instantiateClass: interpreterProxy classString
indexableSize: (self strlen: name).
interpreterProxy failed ifTrue:
[interpreterProxy popRemappableOop.
^interpreterProxy primitiveFail].
interpreterProxy storePointer: i * 4 ofObject: interpreterProxy topRemappableOop withValue: valueObj.
nameObjData := interpreterProxy arrayValueOf: valueObj.
self mem: nameObjData cp: name y: (self strlen: name).
valueObj := interpreterProxy signed32BitIntegerFor: slide.
interpreterProxy failed ifTrue:
[interpreterProxy popRemappableOop.
^interpreterProxy primitiveFail].
interpreterProxy storePointer: i * 4 + 1 ofObject: interpreterProxy topRemappableOop withValue: valueObj.
valueObj := interpreterProxy positiveMachineIntegerFor: start.
interpreterProxy failed ifTrue:
[interpreterProxy popRemappableOop.
^interpreterProxy primitiveFail].
interpreterProxy storePointer: i * 4 + 2 ofObject: interpreterProxy topRemappableOop withValue: valueObj.
valueObj := interpreterProxy positiveMachineIntegerFor: size.
interpreterProxy failed ifTrue:
[interpreterProxy popRemappableOop.
^interpreterProxy primitiveFail].
interpreterProxy storePointer: i * 4 + 3 ofObject: interpreterProxy topRemappableOop withValue: valueObj].
resultObj := interpreterProxy popRemappableOop.
^interpreterProxy pop: 1 thenPush: resultObj!
1
0
[OpenSmalltalk/opensmalltalk-vm] aaa8d3: Retrieve float register parameters of callback thu...
by GitHub 11 Sep '16
by GitHub 11 Sep '16
11 Sep '16
Branch: refs/heads/Cog
Home: https://github.com/OpenSmalltalk/opensmalltalk-vm
Commit: aaa8d30f31e8e3fa5b1f81729089b322605578d1
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/aaa8d30f31e8e3fa5b…
Author: nicolas-cellier-aka-nice <nicolas.cellier.aka.nice(a)gmail.com>
Date: 2016-09-11 (Sun, 11 Sep 2016)
Changed paths:
M platforms/Cross/plugins/IA32ABI/x64win64ia32abicc.c
A platforms/Cross/plugins/IA32ABI/x64win64stub.c
M platforms/win32/plugins/IA32ABI/Makefile
M platforms/win32/plugins/IA32ABI/Makefile.plugin
Log Message:
-----------
Retrieve float register parameters of callback thunk for Win64
Note: the float registers are retrieved via a function saveFloatRegsWin64 which must lie into another file
otherwise C Compiler will detect the parameter mismatch and bark, or worse, optimize the call away.
Previously, we did copy the integer param registers into the floating point param registers.
This was wrong, the caller has no such hack.
Commit: 5b17a270a99e8e71bbc1310e1098501b083d1662
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/5b17a270a99e8e71bb…
Author: nicolas-cellier-aka-nice <nicolas.cellier.aka.nice(a)gmail.com>
Date: 2016-09-11 (Sun, 11 Sep 2016)
Changed paths:
M platforms/Cross/plugins/IA32ABI/ia32abi.h
M platforms/Cross/plugins/IA32ABI/x64win64ia32abicc.c
Log Message:
-----------
thunkEntry type should be long long on Win64
Commit: ddf2aa41f18c578a3bc8edda5cd74dd42e5890e3
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/ddf2aa41f18c578a3b…
Author: nicolas-cellier-aka-nice <nicolas.cellier.aka.nice(a)gmail.com>
Date: 2016-09-11 (Sun, 11 Sep 2016)
Changed paths:
M platforms/Cross/plugins/IA32ABI/x64win64ia32abicc.c
M platforms/Cross/plugins/IA32ABI/x64win64stub.c
Log Message:
-----------
Fix thunk return value in case of int64 or double for Win64
Note:
Win64 X64 uses registry rax for 1,2,4,8 bytes long int or struct return value
it uses xmm0 for float (single) or double floating point values
it uses a pointer passed as hidden first parameter (rcx) for anything else returned by value and copy the pointer to rax.
To pass a double back we use a call to a function taking double & returning double (fakeReturnDouble)
Any of these actions (passing 1 double or returning 1 double) would load xmm0, and we're done.
Except the function is no-op and could be entirely eliminated by aggressive optimizer.
It's thus vital to lay the function into another file and avoid any sort of link time optimization.
TO DO: This code currently does nothing for passing a short struct back by value in rax...
If the structure is long or odd sized, its address is expected as (hidden) first parameter (rcx), rather than on stack.
So the code does not look quite right yet wrt Win64 X64 ABI.
TO DO: the same kind of changes should be applied to X64 system V ABI
Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/92e9af6566ef...dd…
1
0
I can verify the crash. It happens if a Japanese keyboard layout is active.
To reproduce, go to System Preferences – Keyboard – Input Sources.
Add Japanese. Also enable the Input menu.
Activate a Japanese layout using that menu.
Launch Squeak. Press up-arrow. Boom.
- Bert -
On Fri, Sep 9, 2016 at 1:20 AM, Yoshiki Ohshima <Yoshiki.Ohshima(a)acm.org>
wrote:
> So, about crash... Does this really happen to me? I start from a
> vanilla Squeak5.1-16548-32bit-All-in-One on my Mac OS X 10.10, double
> click the hot air balloon. Into the window, I press the up arrow key,
> and the VM consistently crashes. The dump shows some
> IMKInputSessionProcess... so it may not be happening on majority of
> users here... (I'll look into it, but might be easy to fix for
> somebody who knows about it more.)
>
> Process: Squeak [10551]
> Path:
> /Users/USER/Downloads/*/Squeak5.1-16548-32bit-All-in-
> One.app/Contents/MacOS/Squeak
> Identifier: org.squeak.Squeak5.1.32.All-in-One
> Version: 5.1 (32 bit)
> Code Type: X86 (Native)
> Parent Process: ??? [1]
> Responsible: Squeak [10551]
> User ID: 501
>
> Date/Time: 2016-09-08 16:16:20.638 -0700
> OS Version: Mac OS X 10.10.5 (14F1912)
> Report Version: 11
> Anonymous UUID: CC722C69-6CB8-743E-5680-0273B167F5C6
>
> Sleep/Wake UUID: 363BBC6C-EE71-4416-9D6C-E77C830DA4F9
>
> Time Awake Since Boot: 89000 seconds
> Time Since Wake: 7900 seconds
>
> Crashed Thread: 0 Dispatch queue: com.apple.main-thread
>
> Exception Type: EXC_BAD_ACCESS (SIGABRT)
> Exception Codes: KERN_INVALID_ADDRESS at 0x0000000030000020
>
> VM Regions Near 0x30000020:
> shared memory 000000000d59c000-000000000d5ac000 [ 64K]
> r-x/r-x SM=SHM
> -->
> __TEXT 0000000048000000-00000000488cc000 [ 9008K]
> r-x/rwx SM=COW
> /System/Library/Extensions/GeForceGLDriver.bundle/
> Contents/MacOS/GeForceGLDriver
>
> Application Specific Information:
> abort() called
>
> Thread 0 Crashed:: Dispatch queue: com.apple.main-thread
> 0 libsystem_kernel.dylib 0x9173169a __pthread_kill + 10
> 1 libsystem_pthread.dylib 0x97f53634 pthread_kill + 101
> 2 libsystem_c.dylib 0x90f90de6 abort + 156
> 3 org.squeak.Squeak5.1.32.All-in-One 0x001305c1 sigsegv + 175
> 4 libsystem_platform.dylib 0x9aaab03b _sigtramp + 43
> 5 ??? 0xffffffff 0 + 4294967295
> 6 org.squeak.Squeak5.1.32.All-in-One 0x00130512
> getCrashDumpFilenameInto + 82
> 7 com.apple.CoreFoundation 0x98c2ddaf _CFAutoreleasePoolPop + 47
> 8 com.apple.HIToolbox 0x902dd844
> IMKInputSessionProcessEventRefWithCompletionHandler + 142
> 9 com.apple.HIToolbox 0x902dc954
> InputMethodInstanceProcessEventRef_WithCompletionHandler + 115
> 10 com.apple.HIToolbox 0x902c56ed
> __TSMEventToInputMethod_WithCompletionHandler_block_invoke + 122
> 11 com.apple.HIToolbox 0x902c9e52
> __TrySendLockEvent_BeforeEventToInputMethod_WithContinuationHandler_block_
> invoke
> + 33
> 12 com.apple.HIToolbox 0x902c9f29
> __SendTSMDocumentLockEvent_WithCompletionHandler_block_invoke + 120
> 13 com.apple.HIToolbox 0x9007237f
> __SendTSMEvent_WithCompletionHandler_block_invoke + 72
> 14 com.apple.HIToolbox 0x900754ca
> __SendEventToEventTargetWithCompletionHandler_block_invoke + 25
> 15 com.apple.HIToolbox 0x9007549b
> ___ZL23DispatchEventToHandlersP14EventTargetRecP14OpaqueEventRe
> fP14HandlerCallRec_block_invoke
> + 127
> 16 com.apple.AppKit 0x9535627c
> ___NSTSMEventHandler_block_invoke + 25
> 17 com.apple.AppKit 0x95349273 -[NSTextInputContext
> handleTSMEvent:completionHandler:] + 1250
> 18 com.apple.AppKit 0x95348d2b _NSTSMEventHandler + 302
> 19 com.apple.HIToolbox 0x901d55a4
> _InvokeEventHandlerUPP(OpaqueEventHandlerCallRef*, OpaqueEventRef*,
> void*, long (*)(OpaqueEventHandlerCallRef*, OpaqueEventRef*, void*)) +
> 36
> 20 com.apple.HIToolbox 0x90013681
> DispatchEventToHandlers(EventTargetRec*, OpaqueEventRef*,
> HandlerCallRec*) + 2291
> 21 com.apple.HIToolbox 0x9001265c
> SendEventToEventTargetInternal(OpaqueEventRef*, OpaqueEventTargetRef*,
> HandlerCallRec*) + 402
> 22 com.apple.HIToolbox 0x900124c3
> SendEventToEventTargetWithOptions + 95
> 23 com.apple.HIToolbox 0x90071ff9
> SendTSMEvent_WithCompletionHandler + 451
> 24 com.apple.HIToolbox 0x902c562a
> TrySendLockEvent_BeforeEventToInputMethod_WithContinuationHandler +
> 409
> 25 com.apple.HIToolbox 0x902c53fb
> TSMEventToInputMethod_WithCompletionHandler + 154
> 26 com.apple.HIToolbox 0x902c5349
> TSMEventToKeyboardInputMethod_WithCompletionHandler + 128
> 27 com.apple.HIToolbox 0x9007137f
> TSMKeyEvent_WithCompletionHandler + 591
> 28 com.apple.HIToolbox 0x900710d7
> __TSMProcessRawKeyEventWithOptionsAndCompletionHandler_block_invoke_4
> + 288
> 29 com.apple.HIToolbox 0x90070f63
> __TSMProcessRawKeyEventWithOptionsAndCompletionHandler_block_invoke_3
> + 336
> 30 com.apple.HIToolbox 0x90070cc9
> __TSMProcessRawKeyEventWithOptionsAndCompletionHandler_block_invoke_2
> + 261
> 31 com.apple.HIToolbox 0x90070ab7
> __TSMProcessRawKeyEventWithOptionsAndCompletionHandler_block_invoke +
> 255
> 32 com.apple.HIToolbox 0x90056413
> TSMProcessRawKeyEventWithOptionsAndCompletionHandler + 3730
> 33 com.apple.AppKit 0x959cb6a4 __61-[NSTextInputContext
> _handleEvent:options:completionHandler:]_block_invoke993 + 147
> 34 com.apple.AppKit 0x95347652 -[NSTextInputContext
> tryTSMProcessRawKeyEvent:dispatchCondition:setupForDispatch:
> furtherCondition:dispatchWork:continuation:]
> + 129
> 35 com.apple.AppKit 0x9534731d -[NSTextInputContext
> _handleEvent:options:completionHandler:] + 1708
> 36 com.apple.AppKit 0x95346c4e -[NSTextInputContext
> handleEvent:] + 128
> 37 com.apple.AppKit 0x95346b4b -[NSView
> interpretKeyEvents:] + 205
> 38 org.squeak.Squeak5.1.32.All-in-One 0x0012c63e
> -[sqSqueakOSXOpenGLView keyDown:] + 310
> 39 com.apple.AppKit 0x958cef9b -[NSWindow
> _reallySendEvent:isDelayedEvent:] + 8478
> 40 com.apple.AppKit 0x951b23ca -[NSWindow sendEvent:] + 526
> 41 com.apple.AppKit 0x951ae9c4 -[NSApplication sendEvent:]
> + 4765
> 42 org.squeak.Squeak5.1.32.All-in-One 0x00124f53
> -[SqueakOSXApplication sendEvent:] + 163
> 43 org.squeak.Squeak5.1.32.All-in-One 0x00126a94
> -[sqSqueakOSXApplication(events) pumpRunLoopEventSendAndSignal:] + 115
> 44 org.squeak.Squeak5.1.32.All-in-One 0x00126b32
> -[sqSqueakOSXApplication(events) pumpRunLoop] + 76
> 45 org.squeak.Squeak5.1.32.All-in-One 0x0012e876 nativeIoProcessEvents +
> 208
> 46 org.squeak.Squeak5.1.32.All-in-One 0x0012e8ca ioProcessEvents + 35
> 47 org.squeak.Squeak5.1.32.All-in-One 0x00130d7c
> -[sqSqueakMainApplication(events) ioGetNextEvent:] + 23
> 48 org.squeak.Squeak5.1.32.All-in-One 0x0012e95d ioGetNextEvent + 65
> 49 org.squeak.Squeak5.1.32.All-in-One 0x000fa260 primitiveGetNextEvent +
> 100
> 50 ??? 0x0663f7d2 0 + 107214802
> 51 org.squeak.Squeak5.1.32.All-in-One 0x000c3973 interpret + 654
> 52 org.squeak.Squeak5.1.32.All-in-One 0x001316d9
> -[sqSqueakMainApplication runSqueak] + 476
> 53 com.apple.Foundation 0x982070ae __NSFirePerformWithOrder +
> 416
> 54 com.apple.CoreFoundation 0x98c7781e
> __CFRUNLOOP_IS_CALLING_OUT_TO_AN_OBSERVER_CALLBACK_FUNCTION__ + 30
> 55 com.apple.CoreFoundation 0x98c77760 __CFRunLoopDoObservers + 400
> 56 com.apple.CoreFoundation 0x98c690c2 __CFRunLoopRun + 946
> 57 com.apple.CoreFoundation 0x98c68aa6 CFRunLoopRunSpecific + 390
> 58 com.apple.CoreFoundation 0x98c6890b CFRunLoopRunInMode + 123
> 59 com.apple.HIToolbox 0x900398f8 RunCurrentEventLoopInMode +
> 262
> 60 com.apple.HIToolbox 0x90039503 ReceiveNextEventCommon + 192
> 61 com.apple.HIToolbox 0x9003942c
> _BlockUntilNextEventMatchingListInModeWithFilter + 99
> 62 com.apple.AppKit 0x950dab41 _DPSNextEvent + 742
> 63 com.apple.AppKit 0x950da1e5 -[NSApplication
> nextEventMatchingMask:untilDate:inMode:dequeue:] + 350
> 64 com.apple.AppKit 0x950ceb9c -[NSApplication run] + 907
> 65 com.apple.AppKit 0x95043fa0 NSApplicationMain + 2082
> 66 libdyld.dylib 0x9b5fc6d9 start + 1
>
> Thread 1:: Dispatch queue: com.apple.libdispatch-manager
> 0 libsystem_kernel.dylib 0x917328ce kevent64 + 10
> 1 libdispatch.dylib 0x967c9ce3 _dispatch_mgr_invoke + 245
> 2 libdispatch.dylib 0x967c98c6 _dispatch_mgr_thread + 52
>
> Thread 2:
> 0 libsystem_kernel.dylib 0x91731e6a __workq_kernreturn + 10
> 1 libsystem_pthread.dylib 0x97f5172a _pthread_wqthread + 939
> 2 libsystem_pthread.dylib 0x97f4ee0e start_wqthread + 30
>
> Thread 3:
> 0 libsystem_kernel.dylib 0x91731e6a __workq_kernreturn + 10
> 1 libsystem_pthread.dylib 0x97f5172a _pthread_wqthread + 939
> 2 libsystem_pthread.dylib 0x97f4ee0e start_wqthread + 30
>
> Thread 4:
> 0 libsystem_kernel.dylib 0x91731e6a __workq_kernreturn + 10
> 1 libsystem_pthread.dylib 0x97f5172a _pthread_wqthread + 939
> 2 libsystem_pthread.dylib 0x97f4ee0e start_wqthread + 30
>
> Thread 5:
> 0 libsystem_kernel.dylib 0x91731e6a __workq_kernreturn + 10
> 1 libsystem_pthread.dylib 0x97f5172a _pthread_wqthread + 939
> 2 libsystem_pthread.dylib 0x97f4ee0e start_wqthread + 30
>
> Thread 6:
> 0 libsystem_kernel.dylib 0x91731e6a __workq_kernreturn + 10
> 1 libsystem_pthread.dylib 0x97f5172a _pthread_wqthread + 939
> 2 libsystem_pthread.dylib 0x97f4ee0e start_wqthread + 30
>
> Thread 7:
> 0 libsystem_kernel.dylib 0x91731e6a __workq_kernreturn + 10
> 1 libsystem_pthread.dylib 0x97f5172a _pthread_wqthread + 939
> 2 libsystem_pthread.dylib 0x97f4ee0e start_wqthread + 30
>
> Thread 8:
> 0 libsystem_kernel.dylib 0x91731e6a __workq_kernreturn + 10
> 1 libsystem_pthread.dylib 0x97f5172a _pthread_wqthread + 939
> 2 libsystem_pthread.dylib 0x97f4ee0e start_wqthread + 30
>
> Thread 9:
> 0 libsystem_kernel.dylib 0x91731e6a __workq_kernreturn + 10
> 1 libsystem_pthread.dylib 0x97f5172a _pthread_wqthread + 939
> 2 libsystem_pthread.dylib 0x97f4ee0e start_wqthread + 30
>
> Thread 10:
>
> Thread 11:: com.apple.coreaudio.AQClient
> 0 libsystem_kernel.dylib 0x9172b9ce mach_msg_trap + 10
> 1 libsystem_kernel.dylib 0x9172aa70 mach_msg + 68
> 2 com.apple.CoreFoundation 0x98c69ef6 __CFRunLoopServiceMachPort +
> 214
> 3 com.apple.CoreFoundation 0x98c69309 __CFRunLoopRun + 1529
> 4 com.apple.CoreFoundation 0x98c68aa6 CFRunLoopRunSpecific + 390
> 5 com.apple.CoreFoundation 0x98c6890b CFRunLoopRunInMode + 123
> 6 com.apple.audio.toolbox.AudioToolbox 0x9664a456
> GenericRunLoopThread::Entry(void*) + 200
> 7 com.apple.audio.toolbox.AudioToolbox 0x9664a356
> CAPThread::Entry(CAPThread*) + 134
> 8 libsystem_pthread.dylib 0x97f51c25 _pthread_body + 138
> 9 libsystem_pthread.dylib 0x97f51b9b _pthread_start + 162
> 10 libsystem_pthread.dylib 0x97f4ee32 thread_start + 34
>
> Thread 12:: com.apple.audio.IOThread.client
> 0 libsystem_kernel.dylib 0x9172b9ce mach_msg_trap + 10
> 1 libsystem_kernel.dylib 0x9172aa70 mach_msg + 68
> 2 com.apple.audio.CoreAudio 0x9219db80
> HALB_MachPort::SendMessageWithReply(unsigned int, unsigned int,
> unsigned long, unsigned long, mach_msg_header_t*, bool, unsigned int)
> + 142
> 3 com.apple.audio.CoreAudio 0x921966d0
> HALB_MachPort::SendSimpleMessageWithSimpleReply(unsigned int, unsigned
> int, int, int&, bool, unsigned int) + 72
> 4 com.apple.audio.CoreAudio 0x92194bf0
> HALC_ProxyIOContext::IOWorkLoop() + 1326
> 5 com.apple.audio.CoreAudio 0x9219459a
> HALC_ProxyIOContext::IOThreadEntry(void*) + 156
> 6 com.apple.audio.CoreAudio 0x921a0cd9
> ___ZN19HALC_ProxyIOContextC2Emj_block_invoke + 20
> 7 com.apple.audio.CoreAudio 0x921944b1 HALB_IOThread::Entry(void*) +
> 173
> 8 libsystem_pthread.dylib 0x97f51c25 _pthread_body + 138
> 9 libsystem_pthread.dylib 0x97f51b9b _pthread_start + 162
> 10 libsystem_pthread.dylib 0x97f4ee32 thread_start + 34
>
> Thread 13:
> 0 libsystem_kernel.dylib 0x917318f6 __semwait_signal + 10
> 1 libsystem_c.dylib 0x90fb0c02 nanosleep$UNIX2003 + 218
> 2 org.squeak.Squeak5.1.32.All-in-One 0x00133b86 beatStateMachine + 111
> 3 libsystem_pthread.dylib 0x97f51c25 _pthread_body + 138
> 4 libsystem_pthread.dylib 0x97f51b9b _pthread_start + 162
> 5 libsystem_pthread.dylib 0x97f4ee32 thread_start + 34
>
> Thread 14:
> 0 libsystem_kernel.dylib 0x9172b9ce mach_msg_trap + 10
> 1 libsystem_kernel.dylib 0x9172aa70 mach_msg + 68
> 2 com.apple.CoreFoundation 0x98c69ef6 __CFRunLoopServiceMachPort +
> 214
> 3 com.apple.CoreFoundation 0x98c69309 __CFRunLoopRun + 1529
> 4 com.apple.CoreFoundation 0x98c68aa6 CFRunLoopRunSpecific + 390
> 5 com.apple.CoreFoundation 0x98c6890b CFRunLoopRunInMode + 123
> 6 com.apple.AppKit 0x951aa2d0 _NSEventThread + 283
> 7 libsystem_pthread.dylib 0x97f51c25 _pthread_body + 138
> 8 libsystem_pthread.dylib 0x97f51b9b _pthread_start + 162
> 9 libsystem_pthread.dylib 0x97f4ee32 thread_start + 34
>
> Thread 0 crashed with X86 Thread State (32-bit):
> eax: 0x00000000 ebx: 0xbfe99d78 ecx: 0xbfe998ac edx: 0x00000000
> edi: 0xa0d631d4 esi: 0x00000006 ebp: 0xbfe998c8 esp: 0xbfe998ac
> ss: 0x00000023 efl: 0x00000206 eip: 0x9173169a cs: 0x0000000b
> ds: 0x00000023 es: 0x00000023 fs: 0x00000000 gs: 0x0000000f
> cr2: 0xa0540a00
>
> Logical CPU: 0
> Error Code: 0x00080148
> Trap Number: 132
>
>
> Binary Images:
> 0xc2000 - 0x19dfff +org.squeak.Squeak5.1.32.All-in-One (5.1 - 32
> bit) <16D89496-E124-312A-A4B3-84049E52B87F>
> /Users/USER/Downloads/*/Squeak5.1-16548-32bit-All-in-
> One.app/Contents/MacOS/Squeak
> 0x389a000 - 0x38e7ff7 com.apple.CloudDocs (1.0 - 321.10)
> <9343D667-13D3-379C-BDCA-7D6D6B8CC7E5>
> /System/Library/PrivateFrameworks/CloudDocs.framework/CloudDocs
> 0x3919000 - 0x3921ff7 libCGCMS.A.dylib (788.3.5)
> <662A2443-422F-3500-BD1A-C22C1DA3C9FF>
> /System/Library/Frameworks/CoreGraphics.framework/
> Versions/A/Resources/libCGCMS.A.dylib
> 0x4732000 - 0x4734ffb libCGXType.A.dylib (788.3.5)
> <5CC7F971-6CE8-3B82-83CB-2CDDB32C124C>
> /System/Library/Frameworks/CoreGraphics.framework/Versions/A/Resources/
> libCGXType.A.dylib
> 0x4c66000 - 0x4c8ffff libRIP.A.dylib (788.3.5)
> <5F0202EE-2A5D-36D2-95A5-2DAFC48B851C>
> /System/Library/Frameworks/CoreGraphics.framework/
> Versions/A/Resources/libRIP.A.dylib
> 0x4e82000 - 0x4e82ffb +cl_kernels (???)
> <198AD9E8-18FA-4152-B3FB-FED5F46016AD> cl_kernels
> 0x4e90000 - 0x4e90ff9 +cl_kernels (???)
> <7C335B6D-8AE4-465F-BE05-A3E54163F670> cl_kernels
> 0x4e92000 - 0x4f7dff7 unorm8_bgra.dylib (2.4.5)
> <9DE4095F-AAC1-3078-B3A6-197721E4BC8F>
> /System/Library/Frameworks/OpenCL.framework/Versions/A/
> Libraries/ImageFormats/unorm8_bgra.dylib
> 0x9ca0000 - 0x9ca4fff com.apple.audio.AppleHDAHALPlugIn (272.18.3 -
> 272.18.3) <0B46A443-2AA6-3F19-84EA-A22C023FBE88>
> /System/Library/Extensions/AppleHDA.kext/Contents/
> PlugIns/AppleHDAHALPlugIn.bundle/Contents/MacOS/AppleHDAHALPlugIn
> 0x9ca9000 - 0x9effffb com.apple.audio.units.Components (1.12 -
> 1.12) <CDBD7615-8B56-3CA5-AA0A-8BB4CCDD11B3>
> /System/Library/Components/CoreAudio.component/Contents/MacOS/CoreAudio
> 0xb164000 - 0xb312ffb GLEngine (11.1.6)
> <3D7E7F83-C719-3F1E-8888-B5D19BA9B2A7>
> /System/Library/Frameworks/OpenGL.framework/Resources/
> GLEngine.bundle/GLEngine
> 0xb34f000 - 0xb884fff
> com.apple.driver.AppleIntelHD5000GraphicsGLDriver (10.6.33 - 10.0.6)
> <B87DE19A-5957-34C3-9302-7F0E6F9926C9>
> /System/Library/Extensions/AppleIntelHD5000GraphicsGLDriv
> er.bundle/Contents/MacOS/AppleIntelHD5000GraphicsGLDriver
> 0xbe39000 - 0xbe66ff7 GLRendererFloat (11.1.6)
> <AF57F5BC-17E4-313F-BC51-F9E4051082AA>
> /System/Library/Frameworks/OpenGL.framework/Resources/
> GLRendererFloat.bundle/GLRendererFloat
> 0x48000000 - 0x488cbfff com.apple.GeForceGLDriver (10.4.2 - 10.0.4)
> <3008BF98-E8A9-34E5-8833-C483068A99BC>
> /System/Library/Extensions/GeForceGLDriver.bundle/
> Contents/MacOS/GeForceGLDriver
> 0x8fe3d000 - 0x8fe70e83 dyld (353.2.4)
> <26A0639E-9BD3-313A-A0BF-219FA2A7F6F3> /usr/lib/dyld
> 0x90008000 - 0x9000afff libsystem_configuration.dylib (699.40.2)
> <B5143118-AB15-3BB9-844D-20471938B639>
> /usr/lib/system/libsystem_configuration.dylib
> 0x9000b000 - 0x903e4ff3 com.apple.HIToolbox (2.1.1 - 758.7)
> <581BD5B0-2854-320C-8F6D-8A4A1EA53C73>
> /System/Library/Frameworks/Carbon.framework/Versions/A/
> Frameworks/HIToolbox.framework/Versions/A/HIToolbox
> 0x903e5000 - 0x903e5fff com.apple.Cocoa (6.8 - 21)
> <6AF80DDB-C28E-36FF-BC11-D7D561AC52A9>
> /System/Library/Frameworks/Cocoa.framework/Versions/A/Cocoa
> 0x903e6000 - 0x90405ff7 com.apple.GenerationalStorage (2.0 - 209.11)
> <34CF76B2-8052-359D-816D-092608FB6919>
> /System/Library/PrivateFrameworks/GenerationalStorage.framework/
> Versions/A/GenerationalStorage
> 0x90ded000 - 0x90f31ff7 com.apple.ImageIO.framework (3.3.0 - 1247)
> <4DACD66C-D1FE-32CB-A07D-40DF2AFD16FE>
> /System/Library/Frameworks/ImageIO.framework/Versions/A/ImageIO
> 0x90f32000 - 0x90fc7fff libsystem_c.dylib (1044.40.3)
> <235083B9-8936-3E5E-8433-49EEFE61D72A>
> /usr/lib/system/libsystem_c.dylib
> 0x90fcc000 - 0x910c2ff7 libxml2.2.dylib (26.11)
> <76B39037-7EA2-3C8A-B3A7-88D6E6C4E61D> /usr/lib/libxml2.2.dylib
> 0x911eb000 - 0x91291fff com.apple.Metadata (10.7.0 - 917.36)
> <6B6C3094-6820-3621-BC4D-3BECECEC5918>
> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/
> Metadata.framework/Versions/A/Metadata
> 0x91292000 - 0x9129afff com.apple.NetFS (6.0 - 4.0)
> <B49F5FC7-8B8D-393A-ABA1-F3214BBC7641>
> /System/Library/Frameworks/NetFS.framework/Versions/A/NetFS
> 0x91313000 - 0x91315ff3 com.apple.EFILogin (2.0 - 2)
> <00F6D57F-5B4F-373E-BBFF-D19E1E7F87E6>
> /System/Library/PrivateFrameworks/EFILogin.framework/Versions/A/EFILogin
> 0x91316000 - 0x9133cff3 libxpc.dylib (559.40.1)
> <D765980C-9448-3637-AE66-360C7DC2DCEB> /usr/lib/system/libxpc.dylib
> 0x9133d000 - 0x91370fe3 libsystem_m.dylib (3086.1)
> <951F633F-57B7-398B-912F-F6ED4DB1C597>
> /usr/lib/system/libsystem_m.dylib
> 0x91371000 - 0x91373ff7 libquarantine.dylib (76.20.1)
> <8694AC5A-7359-3CC6-8E93-CABFCC919D4B>
> /usr/lib/system/libquarantine.dylib
> 0x91483000 - 0x914caff3 com.apple.AppleJPEG (1.0 - 1)
> <677BE130-F5AB-36F4-A51A-1FF20FC0085A>
> /System/Library/PrivateFrameworks/AppleJPEG.framework/Versions/A/AppleJPEG
> 0x914cb000 - 0x91526fff com.apple.LanguageModeling (1.0 - 1)
> <9B39E059-F48E-31AF-B1B3-B0872F362627>
> /System/Library/PrivateFrameworks/LanguageModeling.framework/
> Versions/A/LanguageModeling
> 0x91527000 - 0x91698ffb libBLAS.dylib (1128)
> <ACEF468C-5DB1-38F3-BCB2-6F3D7F2B2040>
> /System/Library/Frameworks/Accelerate.framework/Versions/
> A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
> 0x916e3000 - 0x91717ffb com.apple.frameworks.CoreDaemon (1.3 - 1.3)
> <F527DB82-0D3F-359E-979B-951DFF46D45C>
> /System/Library/PrivateFrameworks/CoreDaemon.framework/Versions/B/
> CoreDaemon
> 0x91718000 - 0x91737fff libsystem_kernel.dylib (2782.50.6)
> <0CEB5968-52ED-3511-A951-E656246946FA>
> /usr/lib/system/libsystem_kernel.dylib
> 0x91738000 - 0x91752ff7 liblzma.5.dylib (7)
> <D0BC984D-5B33-328C-8F1E-7E9C41813433> /usr/lib/liblzma.5.dylib
> 0x91753000 - 0x91755fff libsystem_coreservices.dylib (9)
> <20E66A47-8D67-344A-A393-73926F0E5FB2>
> /usr/lib/system/libsystem_coreservices.dylib
> 0x91756000 - 0x91805ff7 com.apple.Bluetooth (4.3.6 - 4.3.6f3)
> <AE2C0B24-7A45-32E3-A1FC-480B1D2BA2F3>
> /System/Library/Frameworks/IOBluetooth.framework/Versions/A/IOBluetooth
> 0x91806000 - 0x91808fff com.apple.securityhi (9.0 - 55006)
> <FC96FF16-D834-3EDA-9B61-5F7726174569>
> /System/Library/Frameworks/Carbon.framework/Versions/A/
> Frameworks/SecurityHI.framework/Versions/A/SecurityHI
> 0x91809000 - 0x918d4fff com.apple.backup.framework (1.6.5 - 1.6.5)
> <F2F66289-39DD-3033-A56B-DC8A9495C782>
> /System/Library/PrivateFrameworks/Backup.framework/Versions/A/Backup
> 0x918d5000 - 0x9190ffff com.apple.LDAPFramework (2.4.28 - 194.5)
> <E3E6B657-AA4C-3D9D-8EB2-ACAC1B62DDDE>
> /System/Library/Frameworks/LDAP.framework/Versions/A/LDAP
> 0x91966000 - 0x91966fff com.apple.audio.units.AudioUnit (1.12 - 1.12)
> <CFB6243A-1613-3468-88CE-1DDBEC1E6984>
> /System/Library/Frameworks/AudioUnit.framework/Versions/A/AudioUnit
> 0x91967000 - 0x91978ff7 libsystem_coretls.dylib (35.40.1)
> <22F1F179-F6ED-3576-8169-ED44BB59780A>
> /usr/lib/system/libsystem_coretls.dylib
> 0x9197a000 - 0x919f0fff com.apple.securityfoundation (6.0 - 55126)
> <3E59AEFA-3DEA-322A-A7BB-7B7B93E0286F>
> /System/Library/Frameworks/SecurityFoundation.framework/
> Versions/A/SecurityFoundation
> 0x919f1000 - 0x919f5ff3 com.apple.TCC (1.0 - 1)
> <EE0D6865-A6E0-3BF0-93F1-837C09AA7978>
> /System/Library/PrivateFrameworks/TCC.framework/Versions/A/TCC
> 0x919f6000 - 0x91a02fff com.apple.CrashReporterSupport (10.10 - 631)
> <9A6DF8E2-AE0F-3919-889A-CD7F79ABD6EC>
> /System/Library/PrivateFrameworks/CrashReporterSupport.
> framework/Versions/A/CrashReporterSupport
> 0x91a8a000 - 0x91c4ffff com.apple.QuartzCore (1.10 - 361.19)
> <41368020-0DAF-3886-B701-96FAE68FC023>
> /System/Library/Frameworks/QuartzCore.framework/Versions/A/QuartzCore
> 0x91c50000 - 0x91c57ff3 libunwind.dylib (35.3)
> <29D9343F-9A0A-3535-B0AE-E7CC761D95EE> /usr/lib/system/libunwind.dylib
> 0x91ef4000 - 0x91ef9ff7 libcompiler_rt.dylib (35)
> <6630682F-AB76-3E55-BE51-0A3E61B6CFC2>
> /usr/lib/system/libcompiler_rt.dylib
> 0x91efa000 - 0x9202cfff com.apple.UIFoundation (1.0 - 1)
> <B5B0D178-E1F5-3625-9391-46495E35D540>
> /System/Library/PrivateFrameworks/UIFoundation.framework/
> Versions/A/UIFoundation
> 0x9202d000 - 0x920cafff com.apple.ink.framework (10.9 - 213)
> <F47949BC-ABEE-329B-B568-71C6FEF761F6>
> /System/Library/Frameworks/Carbon.framework/Versions/A/
> Frameworks/Ink.framework/Versions/A/Ink
> 0x920cb000 - 0x920d4fff libcopyfile.dylib (118.1.2)
> <FAF3268F-C580-33D3-A5B4-74B8A8713216>
> /usr/lib/system/libcopyfile.dylib
> 0x92166000 - 0x92181ff7 com.apple.CFOpenDirectory (10.10 - 187)
> <E2363E55-6C66-3F21-9A05-421D63DF9FF2>
> /System/Library/Frameworks/OpenDirectory.framework/Versions/A/Frameworks/
> CFOpenDirectory.framework/Versions/A/CFOpenDirectory
> 0x92182000 - 0x921d7ff3 com.apple.audio.CoreAudio (4.3.0 - 4.3.0)
> <C09B57A4-83B8-389C-8B3F-1ECBBB5052C1>
> /System/Library/Frameworks/CoreAudio.framework/Versions/A/CoreAudio
> 0x921d8000 - 0x921d9fff libremovefile.dylib (35)
> <49DCAF7B-4466-3775-9E58-EA5D7CBA8AE0>
> /usr/lib/system/libremovefile.dylib
> 0x921da000 - 0x92230fff libc++.1.dylib (120)
> <D8DE4962-66CD-3491-904E-9291EEE5E570> /usr/lib/libc++.1.dylib
> 0x92231000 - 0x92270fff com.apple.NavigationServices (3.8 - 215.1)
> <46D8B66D-CB59-36F5-BD26-FD8309337BB3>
> /System/Library/Frameworks/Carbon.framework/Versions/A/
> Frameworks/NavigationServices.framework/Versions/A/NavigationServices
> 0x92271000 - 0x9227dff7 libkxld.dylib (2782.50.6)
> <F6278758-09F1-3A33-83AF-5A5B8FEF043B> /usr/lib/system/libkxld.dylib
> 0x9228b000 - 0x922f7ff3 com.apple.datadetectorscore (6.0 - 396.1.2)
> <D148E325-D1BF-348D-9FCB-EF17D160E8F0>
> /System/Library/PrivateFrameworks/DataDetectorsCore.framework/
> Versions/A/DataDetectorsCore
> 0x922f8000 - 0x92334ff3 com.apple.RemoteViewServices (2.0 - 99)
> <2839C2F1-88DA-3843-87BF-441A374A8967>
> /System/Library/PrivateFrameworks/RemoteViewServices.framework/
> Versions/A/RemoteViewServices
> 0x92335000 - 0x92359ffb com.apple.framework.Apple80211 (10.3 -
> 1030.71.6) <A133A567-C369-309C-B8BE-F43C9B1B3B61>
> /System/Library/PrivateFrameworks/Apple80211.framework/Versions/A/
> Apple80211
> 0x9235a000 - 0x92425fff com.apple.DiscRecording (9.0 - 9000.4.2)
> <8E19F180-3D32-3C7A-8E73-272F2955D9A8>
> /System/Library/Frameworks/DiscRecording.framework/
> Versions/A/DiscRecording
> 0x92426000 - 0x9242ffff libGFXShared.dylib (11.1.6)
> <784C99B9-4E89-3804-801A-364700D00133>
> /System/Library/Frameworks/OpenGL.framework/Versions/A/
> Libraries/libGFXShared.dylib
> 0x92430000 - 0x92433ffb libutil.dylib (38)
> <B5A16C6B-A79E-3504-BDA6-64A063F6612D> /usr/lib/libutil.dylib
> 0x92434000 - 0x9243effb com.apple.audio.SoundManager (4.2 - 4.2)
> <4312D0A7-4B6F-3A1E-9A47-24C6E8C65E51>
> /System/Library/Frameworks/Carbon.framework/Versions/A/
> Frameworks/CarbonSound.framework/Versions/A/CarbonSound
> 0x9243f000 - 0x92529ff7 libcrypto.0.9.8.dylib (52.40.1)
> <0B0C4964-6DCD-3625-AF4F-A9ED057002F5> /usr/lib/libcrypto.0.9.8.dylib
> 0x9252a000 - 0x9261aff3 com.apple.DiskImagesFramework (10.10.5 - 398)
> <17B6661A-ADED-3B39-9A2D-294685CF2D7B>
> /System/Library/PrivateFrameworks/DiskImages.framework/Versions/A/
> DiskImages
> 0x9261b000 - 0x92a03ff7 libLAPACK.dylib (1128)
> <4E3D1289-2C98-3E53-BB8D-AD911357FF66>
> /System/Library/Frameworks/Accelerate.framework/Versions/
> A/Frameworks/vecLib.framework/Versions/A/libLAPACK.dylib
> 0x92a04000 - 0x92bfafff libicucore.A.dylib (531.50)
> <018CE684-76AA-371A-93C4-50F2EC9CE295> /usr/lib/libicucore.A.dylib
> 0x92bfb000 - 0x92d8cff3 libsqlite3.dylib (168.2)
> <85773EDA-5470-326B-8C21-20A80C89C96A> /usr/lib/libsqlite3.dylib
> 0x92d8d000 - 0x92ddefff libcups.2.dylib (408.2)
> <425E4328-ECA1-31EE-B2C4-0D67FB8848BE> /usr/lib/libcups.2.dylib
> 0x92ddf000 - 0x92df2fff com.apple.CoreBluetooth (1.0 - 1)
> <153F2DDE-CCCF-3C63-AF70-2EA306DACDCD>
> /System/Library/Frameworks/CoreBluetooth.framework/
> Versions/A/CoreBluetooth
> 0x92e47000 - 0x92e81fff com.apple.MediaKit (16 - 757.2)
> <C8A90BB1-86B8-3695-B098-DDEF9A44CDC9>
> /System/Library/PrivateFrameworks/MediaKit.framework/Versions/A/MediaKit
> 0x92e82000 - 0x92e82fff libOpenScriptingUtil.dylib (162.2)
> <7670C29D-B3A3-3E59-A117-DD7766C07862>
> /usr/lib/libOpenScriptingUtil.dylib
> 0x93e3e000 - 0x93e64ff3 libc++abi.dylib (125)
> <E9AF8CA1-D54D-37E3-8363-A3E8C0840F71> /usr/lib/libc++abi.dylib
> 0x93e65000 - 0x93e72ff7 libbz2.1.0.dylib (36)
> <6BC7B049-8F03-3217-9840-B1804CCBF742> /usr/lib/libbz2.1.0.dylib
> 0x93e73000 - 0x93e84fff libbsm.0.dylib (34)
> <C9F0C608-2794-3F6B-8078-583FC0046039> /usr/lib/libbsm.0.dylib
> 0x93fe0000 - 0x940e3fff libJP2.dylib (1247)
> <FEFF7A0F-1A5B-332D-B8F5-7EAE24A316BC>
> /System/Library/Frameworks/ImageIO.framework/Versions/A/
> Resources/libJP2.dylib
> 0x94145000 - 0x94151ff3 libGPUSupportMercury.dylib (11.1.6)
> <8B369211-7FBE-3D00-A449-F4835BC9AA4E>
> /System/Library/PrivateFrameworks/GPUSupport.framework/Versions/A/
> Libraries/libGPUSupportMercury.dylib
> 0x94152000 - 0x941f2fff com.apple.QD (301 - 301)
> <4DFE3689-59DE-3FBC-806B-6A4056573E52>
> /System/Library/Frameworks/ApplicationServices.framework/
> Versions/A/Frameworks/QD.framework/Versions/A/QD
> 0x941f3000 - 0x94257ff7 com.apple.AE (681.5 - 681.7)
> <1190538F-460A-3168-B1F6-3FE08D98F677>
> /System/Library/Frameworks/CoreServices.framework/
> Versions/A/Frameworks/AE.framework/Versions/A/AE
> 0x94c07000 - 0x94c17fff libGL.dylib (11.1.6)
> <9F457F9B-C393-3105-953A-1E0DA618DB76>
> /System/Library/Frameworks/OpenGL.framework/Versions/A/
> Libraries/libGL.dylib
> 0x94c18000 - 0x94c9ffff com.apple.CoreServices.OSServices (640.4 -
> 640.4) <D9B7E89C-0C88-3446-9E96-CBA86B953C0D>
> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/
> OSServices.framework/Versions/A/OSServices
> 0x94ca0000 - 0x94cf4ff7 com.apple.HIServices (1.22 - 523)
> <56F4ED21-FE4C-3F33-A425-D64E69B12F05>
> /System/Library/Frameworks/ApplicationServices.framework/
> Versions/A/Frameworks/HIServices.framework/Versions/A/HIServices
> 0x94d50000 - 0x94d93fff libGLU.dylib (11.1.6)
> <3682B11C-7897-3A56-A82F-3EB59CD41D93>
> /System/Library/Frameworks/OpenGL.framework/Versions/A/
> Libraries/libGLU.dylib
> 0x94d94000 - 0x94da3ffb libxar.1.dylib (255)
> <4FF7DB6F-3232-302F-94BC-F1188F78AF25> /usr/lib/libxar.1.dylib
> 0x94da4000 - 0x9502eff3 com.apple.security (7.0 - 57031.40.8)
> <986D75F2-F340-3DCA-9801-9F2F4DD33E00>
> /System/Library/Frameworks/Security.framework/Versions/A/Security
> 0x9502f000 - 0x95033fff libCoreVMClient.dylib (79.1)
> <3DB52AB1-D41E-3AC9-A355-1B6DCEDB4DFD>
> /System/Library/Frameworks/OpenGL.framework/Versions/A/
> Libraries/libCoreVMClient.dylib
> 0x95041000 - 0x95c6dfff com.apple.AppKit (6.9 - 1348.17)
> <1D891DC4-4E22-30FD-A8AC-1221531BEEA3>
> /System/Library/Frameworks/AppKit.framework/Versions/C/AppKit
> 0x95c6e000 - 0x9657bffb libclh.dylib (4.0.3 - 4.0.3)
> <C236CD85-67EE-3DA3-AD9E-6C22E4E40672>
> /System/Library/Extensions/GeForceGLDriver.bundle/
> Contents/MacOS/libclh.dylib
> 0x9657c000 - 0x965f2ff7 com.apple.SearchKit (1.4.0 - 1.4.0)
> <3693A221-B615-37D4-9FB1-F5F6CC7EE1A7>
> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/
> SearchKit.framework/Versions/A/SearchKit
> 0x965f3000 - 0x965ffff7 libcsfde.dylib (471.30.1)
> <29155D7B-2C73-38E5-9A82-609A759EB03D> /usr/lib/libcsfde.dylib
> 0x9663b000 - 0x967c3ff7 com.apple.audio.toolbox.AudioToolbox (1.12 -
> 1.12) <CA1E6D99-F534-3D3B-9AA5-038E171AD0A9>
> /System/Library/Frameworks/AudioToolbox.framework/Versions/A/AudioToolbox
> 0x967c4000 - 0x967ebfff libdispatch.dylib (442.50.1)
> <A4EA1B52-2597-36E9-BDE0-89B3D8B0C3E0>
> /usr/lib/system/libdispatch.dylib
> 0x967ec000 - 0x96819fff com.apple.ProtectedCloudStorage (1.0 - 1)
> <0E0567D9-2C7F-336C-AD75-06F0DF56FAB8>
> /System/Library/PrivateFrameworks/ProtectedCloudStorage.
> framework/Versions/A/ProtectedCloudStorage
> 0x9681a000 - 0x96849fff com.apple.CoreVideo (1.8 - 145.1)
> <A59466FC-6B5A-3B36-BDD4-AC9CD581B7A1>
> /System/Library/Frameworks/CoreVideo.framework/Versions/A/CoreVideo
> 0x968f3000 - 0x96b79fff com.apple.QuickTime (7.7.3 - 2890.9)
> <C1F4D7DF-2519-3072-BB97-D69A041E2F1C>
> /System/Library/Frameworks/QuickTime.framework/Versions/A/QuickTime
> 0x96b7a000 - 0x96b7dfff libpam.2.dylib (20)
> <E2F34522-448A-3392-BC1D-6625BEB612B9> /usr/lib/libpam.2.dylib
> 0x96b7e000 - 0x96b83ff7 libmacho.dylib (862)
> <48DE74F8-09E3-344F-A82F-665083A3BF8F> /usr/lib/system/libmacho.dylib
> 0x96b84000 - 0x96b85fff libDiagnosticMessagesClient.dylib (100)
> <3EE83437-AA9C-356B-810B-589346B73797>
> /usr/lib/libDiagnosticMessagesClient.dylib
> 0x96b89000 - 0x96bbbffb com.apple.GSS (4.0 - 2.0)
> <2B5A899E-055E-3BEC-A8A1-F8570983389B>
> /System/Library/Frameworks/GSS.framework/Versions/A/GSS
> 0x96bbc000 - 0x96bfcfff com.apple.Symbolication (1.4 - 56045)
> <BE1C4846-DA11-365D-9B46-3FF130401839>
> /System/Library/PrivateFrameworks/Symbolication.framework/
> Versions/A/Symbolication
> 0x96bfd000 - 0x96bfefff libSystem.B.dylib (1213)
> <93FD6C52-0425-312B-8057-0A55FFB8D586> /usr/lib/libSystem.B.dylib
> 0x96bff000 - 0x96c1cfff libCRFSuite.dylib (34)
> <781A92EF-410E-39B2-953D-FEE12748D834> /usr/lib/libCRFSuite.dylib
> 0x96c1d000 - 0x96c1ffff libsystem_sandbox.dylib (358.20.5)
> <8F74D383-C8B0-32DD-89C1-1E99034AF763>
> /usr/lib/system/libsystem_sandbox.dylib
> 0x96c20000 - 0x97053ff3 com.apple.vision.FaceCore (3.1.6 - 3.1.6)
> <EF92C25B-3E33-379F-A862-75C2FCA8B386>
> /System/Library/PrivateFrameworks/FaceCore.framework/Versions/A/FaceCore
> 0x97054000 - 0x97083fff com.apple.DictionaryServices (1.2 - 229.1)
> <627E1C9E-BEDA-32B1-97E1-45BE074FC2C3>
> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/
> DictionaryServices.framework/Versions/A/DictionaryServices
> 0x97084000 - 0x97088fff com.apple.IOAccelerator (156.17 - 156.17)
> <DBD02B2B-EC05-39A4-9C8A-C9771BD96F18>
> /System/Library/PrivateFrameworks/IOAccelerator.framework/
> Versions/A/IOAccelerator
> 0x97089000 - 0x97116ff3 com.apple.PerformanceAnalysis (1.0 - 1)
> <C9CCC643-86AB-3538-B78E-3C9464C87072>
> /System/Library/PrivateFrameworks/PerformanceAnalysis.framework/
> Versions/A/PerformanceAnalysis
> 0x97117000 - 0x9711bfff libheimdal-asn1.dylib (398.40.1)
> <AB5482FE-56BF-3E43-8B33-1DEED3A3773D> /usr/lib/libheimdal-asn1.dylib
> 0x9711c000 - 0x97557feb com.apple.vImage (8.0 - 8.0)
> <56F6B317-9D70-3DC5-9868-BB6D7CB6E55D>
> /System/Library/Frameworks/Accelerate.framework/Versions/
> A/Frameworks/vImage.framework/Versions/A/vImage
> 0x97558000 - 0x97583fff libxslt.1.dylib (13.12)
> <2D1E8E29-7F34-3C20-ACA1-C9F7E93FB6D4> /usr/lib/libxslt.1.dylib
> 0x97584000 - 0x97670fe7 libvMisc.dylib (516)
> <C784D56E-112E-359F-848B-3419E0572EB4>
> /System/Library/Frameworks/Accelerate.framework/Versions/
> A/Frameworks/vecLib.framework/Versions/A/libvMisc.dylib
> 0x97820000 - 0x97921ff7 com.apple.LaunchServices (644.56 - 644.56)
> <CFF2C4B8-8111-3B9B-A6F7-E2AB33163238>
> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/
> LaunchServices.framework/Versions/A/LaunchServices
> 0x97922000 - 0x9794efff com.apple.ChunkingLibrary (2.1 - 163.6)
> <D5446A27-C51B-36D7-A4A1-3222A87F6F48>
> /System/Library/PrivateFrameworks/ChunkingLibrary.framework/
> Versions/A/ChunkingLibrary
> 0x9794f000 - 0x9795cff3 com.apple.ProtocolBuffer (1 - 228.0.1)
> <B61B9562-CBDE-34E5-B19E-291A1D95D782>
> /System/Library/PrivateFrameworks/ProtocolBuffer.framework/
> Versions/A/ProtocolBuffer
> 0x97992000 - 0x97a8afff libFontParser.dylib (134.10)
> <1C490D97-6E83-3FC4-95FD-7E06DD8FBF68>
> /System/Library/Frameworks/ApplicationServices.framework/
> Versions/A/Frameworks/ATS.framework/Versions/A/
> Resources/libFontParser.dylib
> 0x97ab5000 - 0x97abeff7 libsystem_notify.dylib (133.1.1)
> <B8503E99-214B-3AC3-A7CA-CC837ABD7B25>
> /usr/lib/system/libsystem_notify.dylib
> 0x97abf000 - 0x97adeffb libresolv.9.dylib (57)
> <C2C3810A-A45E-3375-B41D-6E1BECE1BA3C> /usr/lib/libresolv.9.dylib
> 0x97adf000 - 0x97b56fff com.apple.ApplicationServices.ATS (360 -
> 375.4) <15EA5277-3E03-3E09-B832-1D45E429E828>
> /System/Library/Frameworks/ApplicationServices.framework/
> Versions/A/Frameworks/ATS.framework/Versions/A/ATS
> 0x97b57000 - 0x97b5fff7 com.apple.icloud.FindMyDevice (1.0 - 1)
> <E6C21417-C63A-3CD7-9329-205057417AC1>
> /System/Library/PrivateFrameworks/FindMyDevice.framework/
> Versions/A/FindMyDevice
> 0x97b60000 - 0x97b6dff7 com.apple.speech.synthesis.framework (5.3.11
> - 5.3.11) <E7F84974-F272-385D-8A48-DDBD10566CE1>
> /System/Library/Frameworks/ApplicationServices.framework/
> Versions/A/Frameworks/SpeechSynthesis.framework/Versions/A/SpeechSynthesis
> 0x97b6e000 - 0x97b6efff libunc.dylib (29)
> <CE960997-9D4A-3848-BAC7-B2255E6765FD> /usr/lib/system/libunc.dylib
> 0x97b6f000 - 0x97e06fff com.apple.CoreData (111 - 526.3)
> <93295B9D-6C48-3919-8B9C-A4291D3522CE>
> /System/Library/Frameworks/CoreData.framework/Versions/A/CoreData
> 0x97f24000 - 0x97f27fff libextension.dylib (55.2)
> <BE3B5B43-A1BB-3BB6-9CD9-946BC61241FC> /usr/lib/libextension.dylib
> 0x97f28000 - 0x97f4afff com.apple.MultitouchSupport.framework (264.6
> - 264.6) <83627B4D-8948-35A7-A76B-7F10AC70B468>
> /System/Library/PrivateFrameworks/MultitouchSupport.framework/
> Versions/A/MultitouchSupport
> 0x97f4b000 - 0x97f4dffb libRadiance.dylib (1247)
> <0A79950F-460D-37E2-BD63-E8B5EE8A421D>
> /System/Library/Frameworks/ImageIO.framework/Versions/A/
> Resources/libRadiance.dylib
> 0x97f4e000 - 0x97f56fff libsystem_pthread.dylib (105.40.1)
> <21849EF5-A3B6-34D4-A045-4A68A6C390A1>
> /usr/lib/system/libsystem_pthread.dylib
> 0x980d9000 - 0x980dfff7 libsystem_networkextension.dylib (167.40.3)
> <7856EE13-BFDC-3344-AB7C-91866DC6E3EE>
> /usr/lib/system/libsystem_networkextension.dylib
> 0x980e0000 - 0x9810efff libarchive.2.dylib (30.50.1)
> <979CDD84-0D4A-373F-A725-70539F1135DE> /usr/lib/libarchive.2.dylib
> 0x9810f000 - 0x98113ffb com.apple.IOSurface (97.4 - 97.4)
> <FD6AD351-BD60-337C-8D3D-42CDA7EE137C>
> /System/Library/Frameworks/IOSurface.framework/Versions/A/IOSurface
> 0x98114000 - 0x98131ffb com.apple.Ubiquity (1.3 - 313)
> <9ED23769-0725-3D4B-B7F4-AF08020D73C3>
> /System/Library/PrivateFrameworks/Ubiquity.framework/Versions/A/Ubiquity
> 0x98132000 - 0x98132fff com.apple.ApplicationServices (48 - 48)
> <76C301A4-705B-33DE-BA11-C89DCF1EDCDD>
> /System/Library/Frameworks/ApplicationServices.framework/
> Versions/A/ApplicationServices
> 0x98133000 - 0x98134fff com.apple.TrustEvaluationAgent (2.0 - 25)
> <28BBD931-EF7C-3753-B50E-6568F4075086>
> /System/Library/PrivateFrameworks/TrustEvaluationAgent.
> framework/Versions/A/TrustEvaluationAgent
> 0x98135000 - 0x9815efff libsystem_info.dylib (459.40.1)
> <4827C088-2BF0-397F-B9FA-0F91BDF64637>
> /usr/lib/system/libsystem_info.dylib
> 0x9815f000 - 0x984c0ff3 com.apple.Foundation (6.9 - 1154)
> <4F2854C1-310E-34FC-9ADA-1B16AD93D505>
> /System/Library/Frameworks/Foundation.framework/Versions/C/Foundation
> 0x984c1000 - 0x984cfff7 libz.1.dylib (55)
> <DF3B8F77-8931-3A6B-8BDF-DB67315050E6> /usr/lib/libz.1.dylib
> 0x984d0000 - 0x986e0fff com.apple.CFNetwork (720.5.7 - 720.5.7)
> <8CE218EB-78CD-3757-B185-8FA6CB56F5B5>
> /System/Library/Frameworks/CFNetwork.framework/Versions/A/CFNetwork
> 0x98716000 - 0x98723ff7 com.apple.OpenDirectory (10.10 - 187)
> <6323752A-8CBE-3EF0-9934-F587EC24EF16>
> /System/Library/Frameworks/OpenDirectory.framework/
> Versions/A/OpenDirectory
> 0x989c6000 - 0x98a58ff7 com.apple.CoreSymbolication (3.1 - 57020.2)
> <5F3895EF-7C0E-3246-A1C0-0A582548AB92>
> /System/Library/PrivateFrameworks/CoreSymbolication.framework/
> Versions/A/CoreSymbolication
> 0x98aa9000 - 0x98ac0fff libsystem_asl.dylib (267)
> <85BD88AD-618E-3325-AC31-10DBAB8E9AF3>
> /usr/lib/system/libsystem_asl.dylib
> 0x98ac1000 - 0x98b12fff com.apple.opencl (2.4.2 - 2.4.2)
> <4AEC84E6-314A-3164-A0E8-503FF90D2BD0>
> /System/Library/Frameworks/OpenCL.framework/Versions/A/OpenCL
> 0x98b13000 - 0x98b1bfff com.apple.CoreServices.FSEvents (1210.20.1 -
> 1210.20.1) <FDCAA783-356F-3CA4-B960-16555CD7E34A>
> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/
> FSEvents.framework/Versions/A/FSEvents
> 0x98b1c000 - 0x98b9bfff com.apple.SystemConfiguration (1.14.4 - 1.14)
> <796BBD68-8E23-32BF-93DD-9C0EA21DB81B>
> /System/Library/Frameworks/SystemConfiguration.framework/
> Versions/A/SystemConfiguration
> 0x98b9c000 - 0x98bdcfff libauto.dylib (186)
> <1609D0F9-6E3A-3C67-87EF-BB0BD93EDAC9> /usr/lib/libauto.dylib
> 0x98bf2000 - 0x98fa6ff7 com.apple.CoreFoundation (6.9 - 1153.18)
> <267B1002-C755-37B4-95CD-92358CF994B8>
> /System/Library/Frameworks/CoreFoundation.framework/
> Versions/A/CoreFoundation
> 0x98fa7000 - 0x98fadff7 libsystem_trace.dylib (72.20.1)
> <5F23BE77-1C60-3859-B528-C6B3C184C95C>
> /usr/lib/system/libsystem_trace.dylib
> 0x98fae000 - 0x98faefff liblaunch.dylib (559.40.1)
> <65101C3E-CC60-3528-A306-991309171B8A> /usr/lib/system/liblaunch.dylib
> 0x98faf000 - 0x990ddff7 com.apple.coreui (2.1 - 308.6)
> <5C418632-E00D-3864-B645-F2D993DE6455>
> /System/Library/PrivateFrameworks/CoreUI.framework/Versions/A/CoreUI
> 0x990de000 - 0x99178fff com.apple.ColorSync (4.9.0 - 4.9.0)
> <E3442A3A-181A-3C39-86D5-89292AF8115F>
> /System/Library/Frameworks/ApplicationServices.framework/
> Versions/A/Frameworks/ColorSync.framework/Versions/A/ColorSync
> 0x99191000 - 0x99195ffb libcache.dylib (69)
> <55501A00-AF64-3554-8F46-8D5AFEDEC332> /usr/lib/system/libcache.dylib
> 0x99196000 - 0x99287ffb libiconv.2.dylib (42)
> <4AF77F10-0BEC-3BE0-99DF-C5170EDB316B> /usr/lib/libiconv.2.dylib
> 0x99288000 - 0x994772ef libobjc.A.dylib (647)
> <7648C174-3098-3B26-AD20-490DBFFD5D4C> /usr/lib/libobjc.A.dylib
> 0x994cc000 - 0x994d7ff7 com.apple.NetAuth (5.2 - 5.2)
> <3E650FB0-5EB5-3807-8B71-8FAF64D6A0FC>
> /System/Library/PrivateFrameworks/NetAuth.framework/Versions/A/NetAuth
> 0x994d8000 - 0x995effff com.apple.CoreText (454.11 - 454.11)
> <81873C09-46D8-30F8-8D32-28AA923B7C90>
> /System/Library/Frameworks/CoreText.framework/Versions/A/CoreText
> 0x995f0000 - 0x99602ff7 libsasl2.2.dylib (194.1)
> <34CB75C7-09BE-3319-BF7E-D4E56495F07A> /usr/lib/libsasl2.2.dylib
> 0x99603000 - 0x99643ffb libGLImage.dylib (11.1.6)
> <7A079480-648E-3313-89B4-17CB578CAD33>
> /System/Library/Frameworks/OpenGL.framework/Versions/A/
> Libraries/libGLImage.dylib
> 0x99644000 - 0x99644fff com.apple.CoreServices (62 - 62)
> <08A581EC-2E8B-30CF-B555-64171C8FE5EE>
> /System/Library/Frameworks/CoreServices.framework/Versions/A/CoreServices
> 0x99645000 - 0x996b0ff7 com.apple.framework.CoreWiFi (3.0 - 300.4)
> <632A811D-4706-3ED7-85E3-DD2CDB47CF8F>
> /System/Library/PrivateFrameworks/CoreWiFi.framework/Versions/A/CoreWiFi
> 0x996b1000 - 0x9970eff7 com.apple.print.framework.PrintCore (10.3 -
> 451.1) <86895179-C54B-3D8A-B515-92DFA6315FC9>
> /System/Library/Frameworks/ApplicationServices.framework/
> Versions/A/Frameworks/PrintCore.framework/Versions/A/PrintCore
> 0x99743000 - 0x9979effb libTIFF.dylib (1247)
> <4D9AB800-ED01-37E9-A06A-5A3FABB365CE>
> /System/Library/Frameworks/ImageIO.framework/Versions/A/
> Resources/libTIFF.dylib
> 0x997b7000 - 0x997c0fff com.apple.AppleSRP (5.0 - 1)
> <83C56D61-E2BF-3D34-93A6-DA0784BDD61A>
> /System/Library/PrivateFrameworks/AppleSRP.framework/Versions/A/AppleSRP
> 0x997c1000 - 0x99abfffb com.apple.CoreServices.CarbonCore (1108.6 -
> 1108.6) <ABEA5906-26AE-308F-B078-5944ABDF94DF>
> /System/Library/Frameworks/CoreServices.framework/Versions/A/Frameworks/
> CarbonCore.framework/Versions/A/CarbonCore
> 0x99ac0000 - 0x99ac0fff com.apple.Accelerate.vecLib (3.10 - vecLib
> 3.10) <F968D12F-F59D-3148-951D-76735C3C1B57>
> /System/Library/Frameworks/Accelerate.framework/Versions/
> A/Frameworks/vecLib.framework/Versions/A/vecLib
> 0x99ac1000 - 0x99b3eff3 com.apple.framework.IOKit (2.0.2 - 1050.20.2)
> <84299E45-C5F3-365F-AC1B-0EAFF8057112>
> /System/Library/Frameworks/IOKit.framework/Versions/A/IOKit
> 0x99e54000 - 0x99e56fff libCVMSPluginSupport.dylib (11.1.6)
> <27E51D50-D030-3BA8-AF6E-4317A2003944>
> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/
> libCVMSPluginSupport.dylib
> 0x99fc4000 - 0x9a0daff3 com.apple.desktopservices (1.9.3 - 1.9.3)
> <544FDA55-063A-3787-A55A-A54290E4BE6E>
> /System/Library/PrivateFrameworks/DesktopServicesPriv.framework/
> Versions/A/DesktopServicesPriv
> 0x9a0db000 - 0x9a0fefff libJPEG.dylib (1247)
> <EB82953E-54D5-34AE-BFF4-F0CC38D5739E>
> /System/Library/Frameworks/ImageIO.framework/Versions/A/
> Resources/libJPEG.dylib
> 0x9a0ff000 - 0x9a13cfff libsystem_network.dylib (412.20.3)
> <1D1D6444-EB6B-3249-902B-1710C3C0DCCB>
> /usr/lib/system/libsystem_network.dylib
> 0x9a141000 - 0x9a15aff7 libsystem_malloc.dylib (53.30.1)
> <1438C1B7-5CD0-3A01-ACF8-BFC4012541B9>
> /usr/lib/system/libsystem_malloc.dylib
> 0x9a17e000 - 0x9a17efff libkeymgr.dylib (28)
> <06DDCEF8-EB84-3F68-9E19-FD1A12B764FD> /usr/lib/system/libkeymgr.dylib
> 0x9a17f000 - 0x9a231fff libCoreStorage.dylib (471.30.1)
> <8AB3BEEF-AB8E-310F-B066-8E482958B57A> /usr/lib/libCoreStorage.dylib
> 0x9a232000 - 0x9a233fff liblangid.dylib (117)
> <34A0F807-755F-300B-B01F-AABAE3838451> /usr/lib/liblangid.dylib
> 0x9a234000 - 0x9a23bfff com.apple.speech.recognition.framework (5.0.9
> - 5.0.9) <5D268178-3812-3777-92A6-D7D3395405B8>
> /System/Library/Frameworks/Carbon.framework/Versions/A/
> Frameworks/SpeechRecognition.framework/Versions/A/SpeechRecognition
> 0x9a23c000 - 0x9a2a8ff7 libcorecrypto.dylib (233.30.1)
> <B62C4F7C-90B1-3ECA-B5EE-3C8A3B8CBA7B>
> /usr/lib/system/libcorecrypto.dylib
> 0x9a2a9000 - 0x9a59bffb com.apple.CoreImage (10.3.5)
> <D993E623-6DC1-3FC1-9FA5-1A70FBE43574>
> /System/Library/Frameworks/QuartzCore.framework/Versions/
> A/Frameworks/CoreImage.framework/Versions/A/CoreImage
> 0x9a5a2000 - 0x9a5abffb com.apple.CommonAuth (4.0 - 2.0)
> <CEB9667F-4511-36E5-82EC-95CC1C48AC3B>
> /System/Library/PrivateFrameworks/CommonAuth.framework/Versions/A/
> CommonAuth
> 0x9a5ac000 - 0x9a5b4fff libsystem_dnssd.dylib (576.50.2)
> <EE1665C5-2827-3BF7-961A-12EAE26DAFA7>
> /usr/lib/system/libsystem_dnssd.dylib
> 0x9a5b5000 - 0x9a5ccff3 libLinearAlgebra.dylib (1128)
> <B20FAAAA-1C76-3B20-B100-5FC90F7FE023>
> /System/Library/Frameworks/Accelerate.framework/Versions/
> A/Frameworks/vecLib.framework/Versions/A/libLinearAlgebra.dylib
> 0x9a5cd000 - 0x9a5d1ffb libGIF.dylib (1247)
> <5C92FDA7-CB9E-30DE-85DE-FE7F49D6315F>
> /System/Library/Frameworks/ImageIO.framework/Versions/A/
> Resources/libGIF.dylib
> 0x9a5d2000 - 0x9a5f8ffb libPng.dylib (1247)
> <3041B0DB-4718-34D0-BC2A-2620A1B08719>
> /System/Library/Frameworks/ImageIO.framework/Versions/A/
> Resources/libPng.dylib
> 0x9aaa2000 - 0x9aaa5fff com.apple.xpc.ServiceManagement (1.0 - 1)
> <78BFBBC9-FBEA-3522-A8B1-5BA7D7A442D3>
> /System/Library/Frameworks/ServiceManagement.framework/
> Versions/A/ServiceManagement
> 0x9aaa6000 - 0x9aaacff3 libsystem_platform.dylib (63)
> <509993B7-3F26-3360-B899-0BBB15152516>
> /usr/lib/system/libsystem_platform.dylib
> 0x9aaad000 - 0x9aaafffb libsystem_secinit.dylib (18)
> <3CBA3BD3-8BA2-358D-BD1A-A1C3DF5D84E6>
> /usr/lib/system/libsystem_secinit.dylib
> 0x9aab0000 - 0x9aaffff7 libcurl.4.dylib (83.40.2)
> <3311B623-79C9-3B9D-BDEB-7CD72E0D68BA> /usr/lib/libcurl.4.dylib
> 0x9abae000 - 0x9abc1fff libcmph.dylib (1)
> <2449B048-208E-36FB-9DFA-47E0F3BCF132> /usr/lib/libcmph.dylib
> 0x9abc2000 - 0x9ad72ff7 libGLProgrammability.dylib (11.1.6)
> <A674E27A-152D-3F37-8CBC-5F6365B011F8>
> /System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/
> libGLProgrammability.dylib
> 0x9ad73000 - 0x9ad81ff3 com.apple.opengl (11.1.6 - 11.1.6)
> <4F03A0A3-8437-323A-8E12-A389D73C4505>
> /System/Library/Frameworks/OpenGL.framework/Versions/A/OpenGL
> 0x9ad82000 - 0x9adcbffb libFontRegistry.dylib (134.1)
> <6CF6177B-D5D6-3E7B-88BC-BE833D55018C>
> /System/Library/Frameworks/ApplicationServices.framework/
> Versions/A/Frameworks/ATS.framework/Versions/A/Resources/libFontRegistry.
> dylib
> 0x9add4000 - 0x9aee1fe3 libvDSP.dylib (516)
> <53F7A960-01E1-3B79-A7FD-67BD19471420>
> /System/Library/Frameworks/Accelerate.framework/Versions/
> A/Frameworks/vecLib.framework/Versions/A/libvDSP.dylib
> 0x9aee2000 - 0x9aef0ff7 com.apple.SpeechRecognitionCore (2.1.2 -
> 2.1.2) <CDD0CAA1-DF2E-3FE1-AEE4-4C0823E6FD5C>
> /System/Library/PrivateFrameworks/SpeechRecognitionCore.
> framework/Versions/A/SpeechRecognitionCore
> 0x9b275000 - 0x9b277fff com.apple.loginsupport (1.0 - 1)
> <BA8EEAD0-8E97-3219-949B-50AE67F8869E>
> /System/Library/PrivateFrameworks/login.framework/Versions/A/
> Frameworks/loginsupport.framework/Versions/A/loginsupport
> 0x9b278000 - 0x9b278fff com.apple.Accelerate (1.10 - Accelerate 1.10)
> <C2367B5B-AE20-3084-A864-104743BE478E>
> /System/Library/Frameworks/Accelerate.framework/Versions/A/Accelerate
> 0x9b279000 - 0x9b292fff com.apple.Kerberos (3.0 - 1)
> <92735F11-CF1C-3FA6-8682-9A30AC9E2651>
> /System/Library/Frameworks/Kerberos.framework/Versions/A/Kerberos
> 0x9b293000 - 0x9b294fff libsystem_blocks.dylib (65)
> <5D98F022-E863-31D4-8ADE-D53B2AE0D331>
> /usr/lib/system/libsystem_blocks.dylib
> 0x9b295000 - 0x9b5efff7 libmecabra.dylib (666.7)
> <55A50B97-92D3-3DDC-8E3A-58BC5FFE5E3F> /usr/lib/libmecabra.dylib
> 0x9b5f0000 - 0x9b5f8feb libcldcpuengine.dylib (2.4.5)
> <3B205610-9339-3B26-8EAA-4B03AB9FBF56>
> /System/Library/Frameworks/OpenCL.framework/Versions/A/
> Libraries/libcldcpuengine.dylib
> 0x9b5f9000 - 0x9b5fcfff libdyld.dylib (353.2.4)
> <88BAC8CC-467A-3465-B941-9B52404E4AFA> /usr/lib/system/libdyld.dylib
> 0x9b5fd000 - 0x9b630fff com.apple.CoreServicesInternal (221.7.2 -
> 221.7.2) <709E9F1B-D266-399B-9A4B-3785BBF64E01>
> /System/Library/PrivateFrameworks/CoreServicesInternal.
> framework/Versions/A/CoreServicesInternal
> 0x9b631000 - 0x9b644fff com.apple.Sharing (328.17 - 328.17)
> <71EC4FF5-C6F0-3521-BADE-E8BD71AA7741>
> /System/Library/PrivateFrameworks/Sharing.framework/Versions/A/Sharing
> 0x9b645000 - 0x9b67fff7 com.apple.DebugSymbols (115 - 115)
> <D01FFA10-1734-31C5-B5A1-9CB61463FC15>
> /System/Library/PrivateFrameworks/DebugSymbols.framework/
> Versions/A/DebugSymbols
> 0x9bc11000 - 0x9bc37ff7 com.apple.IconServices (47.1 - 47.1)
> <9C537499-B375-3F84-BF4A-EEF757FC26A9>
> /System/Library/PrivateFrameworks/IconServices.framework/
> Versions/A/IconServices
> 0x9bc38000 - 0x9c036fff com.apple.CoreGraphics (1.600.0 - 788.3.5)
> <58484675-9FC3-3D7E-9101-7027279E0263>
> /System/Library/Frameworks/CoreGraphics.framework/Versions/A/CoreGraphics
> 0x9c071000 - 0x9c0e4ffb com.apple.framework.CoreWLAN (5.0 - 500.35.2)
> <812E25B3-2041-360E-8C1D-0CCA1E66D1EE>
> /System/Library/Frameworks/CoreWLAN.framework/Versions/A/CoreWLAN
> 0x9c0e5000 - 0x9c0eefff com.apple.DiskArbitration (2.6 - 2.6)
> <D906604A-1D8C-31BF-8F22-EA219FFC858F>
> /System/Library/Frameworks/DiskArbitration.framework/
> Versions/A/DiskArbitration
> 0x9c0ef000 - 0x9c163fff com.apple.Heimdal (4.0 - 2.0)
> <DA206336-378C-3F65-9606-466BC3FDD824>
> /System/Library/PrivateFrameworks/Heimdal.framework/Versions/A/Heimdal
> 0x9c164000 - 0x9c174ff7 com.apple.LangAnalysis (1.7.0 - 1.7.0)
> <DBECFAD5-DB53-390C-AE92-09549733C861>
> /System/Library/Frameworks/ApplicationServices.framework/
> Versions/A/Frameworks/LangAnalysis.framework/Versions/A/LangAnalysis
> 0x9c175000 - 0x9c181ff3 libcommonCrypto.dylib (60061.30.1)
> <18B9D797-34BA-3F73-8744-7812DC9AE89C>
> /usr/lib/system/libcommonCrypto.dylib
> 0xba900000 - 0xba91dfff libJapaneseConverter.dylib (64)
> <7265FE24-923E-3CF7-92D6-DB6EFB9E8379>
> /System/Library/CoreServices/Encodings/libJapaneseConverter.dylib
>
> External Modification Summary:
> Calls made by other processes targeting this process:
> task_for_pid: 2
> thread_create: 0
> thread_set_state: 0
> Calls made by this process:
> task_for_pid: 0
> thread_create: 0
> thread_set_state: 0
> Calls made by all processes on this machine:
> task_for_pid: 5300688
> thread_create: 0
> thread_set_state: 161
>
> VM Region Summary:
> ReadOnly portion of Libraries: Total=185.2M resident=37.2M(20%)
> swapped_out_or_unallocated=148.0M(80%)
> Writable regions: Total=229.5M written=6572K(3%) resident=70.0M(31%)
> swapped_out=4K(0%) unallocated=159.5M(69%)
>
> REGION TYPE VIRTUAL
> =========== =======
> CG backing stores 13.5M
> CG image 92K
> CG shared images 240K
> CoreAnimation 128K
> CoreUI image data 124K
> Foundation 4K
> IOKit 10.0M
> Kernel Alloc Once 4K
> MALLOC 101.5M
> MALLOC (admin) 48K
> MALLOC_LARGE (reserved) 1024K reserved VM address
> space (unallocated)
> Memory Tag 242 12K
> OpenCL 16K
> SBRK (reserved) 4096K reserved VM address
> space (unallocated)
> Stack 70.2M
> Stack (reserved) 516K reserved VM address
> space (unallocated)
> VM_ALLOCATE 88.3M
> VM_ALLOCATE (reserved) 36K reserved VM address
> space (unallocated)
> __DATA 13.7M
> __GLSLBUILTINS 2588K
> __IMAGE 528K
> __LINKEDIT 44.7M
> __OBJC 2272K
> __TEXT 140.6M
> __UNICODE 552K
> mapped file 155.6M
> shared memory 68K
> =========== =======
> TOTAL 650.1M
> TOTAL, minus reserved VM space 644.6M
>
>
> Model: MacBookPro11,3, BootROM MBP112.0138.B16, 4 processors, Intel
> Core i7, 2.6 GHz, 16 GB, SMC 2.19f12
> Graphics: Intel Iris Pro, Intel Iris Pro, Built-In
> Graphics: NVIDIA GeForce GT 750M, NVIDIA GeForce GT 750M, PCIe, 2048 MB
> Memory Module: BANK 0/DIMM0, 8 GB, DDR3, 1600 MHz, 0x02FE, -
> Memory Module: BANK 1/DIMM0, 8 GB, DDR3, 1600 MHz, 0x02FE, -
> AirPort: spairport_wireless_card_type_airport_extreme (0x14E4, 0x134),
> Broadcom BCM43xx 1.0 (7.15.166.24.3)
> Bluetooth: Version 4.3.6f3 16238, 3 services, 27 devices, 1 incoming
> serial ports
> Network Service: Wi-Fi, AirPort, en0
> Serial ATA Device: APPLE SSD SM0512F, 500.28 GB
> USB Device: Internal Memory Card Reader
> USB Device: Apple Internal Keyboard / Trackpad
> USB Device: BRCM20702 Hub
> USB Device: Bluetooth USB Host Controller
> Thunderbolt Bus: MacBook Pro, Apple Inc., 17.1
>
>
> On Wed, Sep 7, 2016 at 11:58 AM, Yoshiki Ohshima
> <Yoshiki.Ohshima(a)acm.org> wrote:
> > I'll try that.
> >
> > BTW, on my Mac the VM Squeak5.1-16548-32bit-All-in-One crashes as soon
> > as I type a tab key and more or less consistently. Is this a known
> > issue?
> >
> > On Wed, Sep 7, 2016 at 11:07 AM, Levente Uzonyi <leves(a)caesar.elte.hu>
> wrote:
> >> Have you tried enabling logging or debugging?
> >> You can do by opening the server widget from the Wolrd menu, open...,
> >> RFB/VNCServer. The best is to pin it.
> >> The widget has a debugging submenu where you can enable logging and
> >> debugging, and you can open the server log too.
> >>
> >> Seeing those messages, it seems your client is trying to detect the
> encoding
> >> and/or color depth. Setting them before connecting should help in this
> case.
> >>
> >> Levente
> >>
> >>
> >> On Wed, 7 Sep 2016, Yoshiki Ohshima wrote:
> >>
> >>> In the console, there are bunch of messages like this:
> >>>
> >>> RFB: caught ConnectionClosed: Connection close while waiting for data.
> >>> RFB: caught ConnectionClosed: Connection close while waiting for data.
> >>> RFB: caught ConnectionClosed: Connection close while waiting for data.
> >>> RFB: caught ConnectionTimedOut: send data timeout; data not sent
> >>> RFB: caught ConnectionClosed: Connection close while waiting for data.
> >>> RFB: caught ConnectionClosed: Connection close while waiting for data.
> >>> RFB: caught ConnectionClosed: Connection close while waiting for data.
> >>> RFB: caught ConnectionTimedOut: send data timeout; data not sent
> >>> RFB: caught ConnectionClosed: Connection close while waiting for data.
> >>>
> >>> It basically reset the connection every some milliseconds and
> >>> reconnect. I browsed code and RFBSocket>>waitForSendDoneFor: looks
> >>> suspicious; but some number fudging in that method on my end did not
> >>> help.
> >>>
> >>> (This excessive OS resource use may explain my other issue of getting
> >>> to the state of the VM cannot write or read a file...)
> >>>
> >>> On Tue, Sep 6, 2016 at 11:52 PM, Yoshiki Ohshima
> >>> <Yoshiki.Ohshima(a)acm.org> wrote:
> >>>>
> >>>> With a 5.0 based image and a VM with VM version: " 'Croquet Closure
> >>>> Cog VM [CoInterpreterPrimitives VMMaker.oscog-eem.1044] Squeak Cog
> >>>> Spur 5.0.3248'", and RFB-ul.13, I still get the error.
> >>>>
> >>>> (I wanted to mail the SqueakDebug.log but I have been encountering
> >>>> another problem. The VM somehow loses an ability to read and write
> >>>> files and the debugger only shows decompiled code and calling
> >>>> Debugger>>storeLog manually does not produce a file.)
> >>>>
> >>>> There is no reason to stick with a 5.0 image so I'll move on to 5.1
> >>>> and see what happens.
> >>>>
> >>>> On Fri, Sep 2, 2016 at 4:27 PM, Yoshiki Ohshima <
> Yoshiki.Ohshima(a)acm.org>
> >>>> wrote:
> >>>>>
> >>>>> Thanks. I was not aware of those newer versions. I'll give it a
> try.
> >>>>>
> >>>>>
> >>>>> On Fri, Sep 2, 2016 at 3:59 PM, Levente Uzonyi <leves(a)caesar.elte.hu
> >
> >>>>> wrote:
> >>>>>>
> >>>>>> Hi Yoshiki,
> >>>>>>
> >>>>>> Your symptom doesn't ring a bell. I don't know what settings your
> >>>>>> client
> >>>>>> program has, but with other clients it usually helps to set the
> color
> >>>>>> space
> >>>>>> to 24-bits and the encoding to ZRLE.
> >>>>>>
> >>>>>> You can try to enable logging on RFBServer to see what happens when
> >>>>>> your
> >>>>>> client gets disconnected.
> >>>>>>
> >>>>>> We have improved the RFB package over the years[1], but I don't
> think
> >>>>>> any of
> >>>>>> our changes would be related to your problem. (If your image is 5.0,
> >>>>>> then
> >>>>>> RFB-ul.13 is the last one that should work. RFB-ul.14 is for 5.1.)
> >>>>>>
> >>>>>> Levente
> >>>>>>
> >>>>>> [1] http://leves.web.elte.hu/squeak/
> >>>>>>
> >>>>>>
> >>>>>> On Fri, 2 Sep 2016, Yoshiki Ohshima wrote:
> >>>>>>
> >>>>>>> Hi,
> >>>>>>>
> >>>>>>> I'm trying to use the RFB server RFB-ikp.8.mcz from
> >>>>>>>
> >>>>>>> http://www.squeaksource.com/RFB/
> >>>>>>>
> >>>>>>> with the Mac OS ScreenShare client.
> >>>>>>>
> >>>>>>> The Mac OS client can connect to the server but after 10 seconds or
> >>>>>>> so, the server raises an error.
> >>>>>>>
> >>>>>>> Has somebody tried it lately? I am on Squeak 5.0 and 5.0 CogSpur
> VM.
> >>>>>>> Is the newer version better at running RFB?
> >>>>>>>
> >>>>>>> (The client has some other issues. I'll track them down later.)
> >>>>>>>
> >>>>>>> --
> >>>>>>> -- Yoshiki
> >>>>>>>
> >>>>>>>
> >>>>>>
> >>>>>
> >>>>>
> >>>>>
> >>>>> --
> >>>>> -- Yoshiki
> >>>>
> >>>>
> >>>>
> >>>>
> >>>> --
> >>>> -- Yoshiki
> >>>
> >>>
> >>>
> >>>
> >>> --
> >>> -- Yoshiki
> >>>
> >>>
> >>
> >
> >
> >
> > --
> > -- Yoshiki
>
>
>
> --
> -- Yoshiki
>
>
2
1
Ronie Salgado Faila uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-rsf.1951.mcz
==================== Summary ====================
Name: VMMaker.oscog-rsf.1951
Author: rsf
Time: 8 September 2016, 6:52:41.871669 pm
UUID: c714858a-7f63-47bd-a9ec-4bc1350eead2
Ancestors: VMMaker.oscog-rsf.1915, VMMaker.oscog-eem.1950
Integration of Lowcode.
Lowcode is an extended bytecode set that is encoded using the inline primitive facility from the SistaV1 bytecode set.
Building a VM with Lowcode requires the following VMMaker options:
SistaVM true
LowcodeVM true
MULTIPLEBYTECODESETS true
bytecodeTableInitializer initializeBytecodeTableForSqueakV3PlusClosuresSistaV1Hybrid
IWST Slides:
http://www.slideshare.net/esug/lowcode-extending-smalltalk-with-c-types-to-…
In addition to these huge changes in the VM, Lowcode has some dependencies in some C headers with the inline FFI callout glue, and additional sqMemoryAccess.h macros. I will send a patch for inclusion into the OpenSmalltalk VM C sources.
=============== Diff against VMMaker.oscog-eem.1950 ===============
Item was changed:
----- Method: CCodeGenerator>>computeKernelReturnTypes (in category 'public') -----
computeKernelReturnTypes
| dictionary |
dictionary := Dictionary newFromPairs:
#(oopAt: #sqInt oopAt:put: #sqInt
oopAtPointer: #sqInt oopAtPointer:put: #sqInt
byteAt: #sqInt byteAt:put: #sqInt
byteAtPointer: #sqInt byteAtPointer:put: #sqInt
shortAt: #sqInt shortAt:put: #sqInt
shortAtPointer: #sqInt shortAtPointer:put: #sqInt
intAt: #sqInt intAt:put: #sqInt
intAtPointer: #sqInt intAtPointer:put: #sqInt
longAt: #sqInt longAt:put: #sqInt
longAtPointer: #sqInt longAtPointer:put: #sqInt
long32At: #int long32At:put: #int
unalignedLongAt: #sqInt unalignedLongAt:put: #sqInt
unalignedLong32At: #int unalignedLong32At:put: #int
long64At: #sqLong long64At:put: #sqLong
+ long64AtPointer: #sqLong long64AtPointer:put: #sqLong
+
+ singleFloatAtPointer: #float singleFloatAtPointerPut: #float
+ floatAtPointer: #double floatAtPointerPut: #double
+
-
fetchFloatAt:into: #void storeFloatAt:from: #void
fetchFloatAtPointer:into: #void storeFloatAtPointer:from: #void
fetchSingleFloatAt:into: #void storeSingleFloatAt:from: #void
fetchSingleFloatAtPointer:into: #void storeSingleFloatAtPointer:from: #void
pointerForOop: #'char *' oopForPointer: #sqInt
baseHeaderSize #sqInt wordSize #sqInt bytesPerOop #sqInt).
+ BytesPerWord = 8 ifTrue:
+ [#(long32At: long32At:put: unalignedLong32At: unalignedLong32At:put:) do:
+ [:accessor|
+ dictionary at: accessor put: #int]].
^dictionary!
Item was changed:
----- Method: CoInterpreter>>commonCallerReturn (in category 'return bytecodes') -----
commonCallerReturn
"Return to the previous context/frame (sender for method activations, caller for block activations)."
<sharedCodeNamed: 'commonCallerReturn' inCase: #returnTopFromBlock>
+ | callersFPOrNull doWeHaveANativeFrame |
- | callersFPOrNull |
<var: #callersFPOrNull type: #'char *'>
+ "TODO: Store/restore the nativeSP more properly, when it exists"
+ self cppIf: LowcodeVM ifTrue: [
+ doWeHaveANativeFrame := self frameHasNativeFrame: localFP.
+ doWeHaveANativeFrame ifTrue: [
+ nativeStackPointer := (self nativePreviousStackPointerIn: localFP) - 1.
+ nativeSP := 0.
+ self setFrameHasNotNativeFrame: localFP.
+ ].
+ ].
+
callersFPOrNull := self frameCallerFP: localFP.
callersFPOrNull == 0 "baseFrame" ifTrue:
[self assert: localFP = stackPage baseFP.
^self baseFrameReturn].
localIP := self frameCallerSavedIP: localFP.
localSP := localFP + (self frameStackedReceiverOffset: localFP).
localFP := callersFPOrNull.
localIP asUnsignedInteger < objectMemory startOfMemory ifTrue:
[localIP asUnsignedInteger ~= cogit ceReturnToInterpreterPC ifTrue:
["localIP in the cog method zone indicates a return to machine code."
^self returnToMachineCodeFrame].
localIP := self pointerForOop: (self iframeSavedIP: localFP)].
self setMethod: (self iframeMethod: localFP).
self fetchNextBytecode.
self internalStackTopPut: localReturnValue!
Item was added:
+ ----- Method: CoInterpreter>>defaultNativeStackFrameSize (in category 'stack pages') -----
+ defaultNativeStackFrameSize
+ <api>
+ ^ super defaultNativeStackFrameSize!
Item was changed:
----- Method: CoInterpreter>>internalizeIPandSP (in category 'utilities') -----
internalizeIPandSP
"Copy the instruction, stack and frame pointers to local variables for rapid access within the interpret loop."
self assert: instructionPointer ~= cogit ceReturnToInterpreterPC.
localIP := self pointerForOop: instructionPointer.
localSP := self pointerForOop: stackPointer.
+ localFP := self pointerForOop: framePointer.
+ self cppIf: LowcodeVM ifTrue: [ nativeSP := 0. ]!
- localFP := self pointerForOop: framePointer!
Item was added:
+ ----- Method: CoInterpreter>>nativeFramePointerIn: (in category 'internal interpreter access') -----
+ nativeFramePointerIn: theFP
+ "See StackInterpreter class>>initializeFrameIndices"
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ ^(self isMachineCodeFrame: theFP)
+ ifTrue:
+ [stackPages pointerAtPointer: theFP + FoxMFReceiver - (BytesPerWord*3) ]
+ ifFalse:
+ [stackPages pointerAtPointer: theFP + FoxIFReceiver - (BytesPerWord*3) ]!
Item was added:
+ ----- Method: CoInterpreter>>nativeFramePointerIn:put: (in category 'internal interpreter access') -----
+ nativeFramePointerIn: theFP put: valueOopPointer
+ "See StackInterpreter class>>initializeFrameIndices"
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ <var: #valueOopPointer type: #'char*'>
+ ^(self isMachineCodeFrame: theFP)
+ ifTrue:
+ [stackPages pointerAtPointer: theFP + FoxMFReceiver - (BytesPerWord*3) put: valueOopPointer]
+ ifFalse:
+ [stackPages pointerAtPointer: theFP + FoxIFReceiver - (BytesPerWord*3) put: valueOopPointer]!
Item was added:
+ ----- Method: CoInterpreter>>nativePreviousStackPointerIn: (in category 'internal interpreter access') -----
+ nativePreviousStackPointerIn: theFP
+ "See StackInterpreter class>>initializeFrameIndices"
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ ^(self isMachineCodeFrame: theFP)
+ ifTrue:
+ [stackPages pointerAtPointer: theFP + FoxMFReceiver - (BytesPerWord*2)]
+ ifFalse:
+ [stackPages pointerAtPointer: theFP + FoxIFReceiver - (BytesPerWord*2)]!
Item was added:
+ ----- Method: CoInterpreter>>nativePreviousStackPointerIn:put: (in category 'internal interpreter access') -----
+ nativePreviousStackPointerIn: theFP put: valueOopPointer
+ "See StackInterpreter class>>initializeFrameIndices"
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ <var: #valueOopPointer type: #'char *'>
+ ^(self isMachineCodeFrame: theFP)
+ ifTrue:
+ [stackPages pointerAtPointer: theFP + FoxMFReceiver - (BytesPerWord*2) put: valueOopPointer]
+ ifFalse:
+ [stackPages pointerAtPointer: theFP + FoxIFReceiver - (BytesPerWord*2) put: valueOopPointer]!
Item was added:
+ ----- Method: CoInterpreter>>nativeStackPointerAddress (in category 'trampoline support') -----
+ nativeStackPointerAddress
+ <option: #LowcodeVM>
+ <api>
+ <returnTypeC: #usqInt>
+ ^self cCode: [(self addressOf: nativeStackPointer) asUnsignedInteger]
+ inSmalltalk: [cogit simulatedReadWriteVariableAddress: #nativeStackPointer in: self]!
Item was added:
+ ----- Method: CoInterpreter>>nativeStackPointerIn: (in category 'internal interpreter access') -----
+ nativeStackPointerIn: theFP
+ "See StackInterpreter class>>initializeFrameIndices"
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ ^(self isMachineCodeFrame: theFP)
+ ifTrue:
+ [stackPages pointerAtPointer: theFP + FoxMFReceiver - (BytesPerWord*4)]
+ ifFalse:
+ [stackPages pointerAtPointer: theFP + FoxIFReceiver - (BytesPerWord*4)]!
Item was added:
+ ----- Method: CoInterpreter>>nativeStackPointerIn:put: (in category 'internal interpreter access') -----
+ nativeStackPointerIn: theFP put: valueOopPointer
+ "See StackInterpreter class>>initializeFrameIndices"
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ <var: #valueOopPointer type: #'char *'>
+ ^(self isMachineCodeFrame: theFP)
+ ifTrue:
+ [stackPages pointerAtPointer: theFP + FoxMFReceiver - (BytesPerWord*4) put: valueOopPointer]
+ ifFalse:
+ [stackPages pointerAtPointer: theFP + FoxIFReceiver - (BytesPerWord*4) put: valueOopPointer]!
Item was added:
+ ----- Method: CoInterpreter>>positive32BitValueOf: (in category 'trampolines') -----
+ positive32BitValueOf: oop
+ <api>
+ ^super positive32BitValueOf: oop!
Item was added:
+ ----- Method: CoInterpreter>>positive64BitIntegerFor: (in category 'trampolines') -----
+ positive64BitIntegerFor: integerValue
+ <api>
+ ^super positive64BitIntegerFor: integerValue!
Item was added:
+ ----- Method: CoInterpreter>>positive64BitValueOf: (in category 'trampolines') -----
+ positive64BitValueOf: oop
+ <api>
+ ^super positive64BitValueOf: oop!
Item was added:
+ ----- Method: CoInterpreter>>shadowCallStackAddress (in category 'trampoline support') -----
+ shadowCallStackAddress
+ <option: #LowcodeVM>
+ <api>
+ <returnTypeC: #usqInt>
+ ^self cCode: [(self addressOf: shadowCallStackPointer) asUnsignedInteger]
+ inSmalltalk: [cogit simulatedReadWriteVariableAddress: #shadowCallStackPointer in: self]!
Item was added:
+ ----- Method: CoInterpreter>>shadowCallStackPointerIn: (in category 'internal interpreter access') -----
+ shadowCallStackPointerIn: theFP
+ "See StackInterpreter class>>initializeFrameIndices"
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ ^(self isMachineCodeFrame: theFP)
+ ifTrue:
+ [stackPages pointerAtPointer: theFP + FoxMFReceiver - (BytesPerWord*5)]
+ ifFalse:
+ [stackPages pointerAtPointer: theFP + FoxIFReceiver - (BytesPerWord*5)]!
Item was added:
+ ----- Method: CoInterpreter>>shadowCallStackPointerIn:put: (in category 'internal interpreter access') -----
+ shadowCallStackPointerIn: theFP put: valueOopPointer
+ "See StackInterpreter class>>initializeFrameIndices"
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ <var: #valueOopPointer type: #'char *'>
+ ^(self isMachineCodeFrame: theFP)
+ ifTrue:
+ [stackPages pointerAtPointer: theFP + FoxMFReceiver - (BytesPerWord*5) put: valueOopPointer]
+ ifFalse:
+ [stackPages pointerAtPointer: theFP + FoxIFReceiver - (BytesPerWord*5) put: valueOopPointer]!
Item was added:
+ ----- Method: CoInterpreter>>signed32BitIntegerFor: (in category 'trampolines') -----
+ signed32BitIntegerFor: integerValue
+ <api>
+ ^super signed32BitIntegerFor: integerValue!
Item was added:
+ ----- Method: CoInterpreter>>signed32BitValueOf: (in category 'trampolines') -----
+ signed32BitValueOf: oop
+ <api>
+ ^super signed32BitValueOf: oop!
Item was added:
+ ----- Method: CoInterpreter>>signed64BitIntegerFor: (in category 'trampolines') -----
+ signed64BitIntegerFor: integerValue
+ <api>
+ ^super signed64BitIntegerFor: integerValue!
Item was added:
+ ----- Method: CoInterpreter>>signed64BitValueOf: (in category 'trampolines') -----
+ signed64BitValueOf: oop
+ <api>
+ ^super signed64BitValueOf: oop!
Item was added:
+ ----- Method: CogAbstractInstruction>>availableFloatRegisterOrNoneFor: (in category 'register allocation') -----
+ availableFloatRegisterOrNoneFor: liveRegsMask
+ "Answer an unused abstract register in the liveRegMask.
+ Subclasses with more registers can override to answer them."
+ <returnTypeC: #sqInt>
+ (liveRegsMask anyMask: (cogit registerMaskFor: DPFPReg0)) ifFalse:
+ [^DPFPReg0].
+ (liveRegsMask anyMask: (cogit registerMaskFor: DPFPReg1)) ifFalse:
+ [^DPFPReg1].
+ (liveRegsMask anyMask: (cogit registerMaskFor: DPFPReg2)) ifFalse:
+ [^DPFPReg2].
+ (liveRegsMask anyMask: (cogit registerMaskFor: DPFPReg3)) ifFalse:
+ [^DPFPReg3].
+ (liveRegsMask anyMask: (cogit registerMaskFor: DPFPReg4)) ifFalse:
+ [^DPFPReg4].
+ (liveRegsMask anyMask: (cogit registerMaskFor: DPFPReg5)) ifFalse:
+ [^DPFPReg5].
+ (liveRegsMask anyMask: (cogit registerMaskFor: DPFPReg6)) ifFalse:
+ [^DPFPReg6].
+ (liveRegsMask anyMask: (cogit registerMaskFor: DPFPReg7)) ifFalse:
+ [^DPFPReg7].
+
+ ^ NoReg!
Item was added:
+ ----- Method: CogAbstractInstruction>>genMarshallNArgs:floatArg:floatArg:floatArg:floatArg: (in category 'abi') -----
+ genMarshallNArgs: numArgs floatArg: regOrConst0 floatArg: regOrConst1 floatArg: regOrConst2 floatArg: regOrConst3
+ "Generate the code to pass up to four arguments in a C run-time call. Hack: each argument is
+ either a negative number, which encodes a constant, or a non-negative number, that of a register.
+
+ Run-time calls have no more than four arguments, so chosen so that on ARM, where in its C ABI the
+ first four integer arguments are passed in registers, all arguments can be passed in registers. We
+ defer to the back end to generate this code not so much that the back end knows whether it uses
+ the stack or registers to pass arguments (it does, but...). In fact we defer for an extremely evil reason.
+ Doing so allows the x64 (where up to 6 args are passed) to assign the register arguments in an order
+ that allows some of the argument registers to be used for specific abstract registers, specifically
+ ReceiverResultReg and ClassReg. This is evil, evil, evil, but also it's really nice to keep using the old
+ register assignments the original author has grown accustomed to."
+ <inline: true>
+ ^self subclassResponsibility!
Item was added:
+ ----- Method: CogAbstractInstruction>>genWriteCSecondResultIntoReg: (in category 'abi') -----
+ genWriteCSecondResultIntoReg: abstractRegister
+ | cResultReg |
+ cResultReg := self cResultRegisterHigh.
+ abstractRegister ~= cResultReg ifTrue:
+ [cogit gen: MoveRR operand: cResultReg operand: abstractRegister]!
Item was changed:
VMStructType subclass: #CogBytecodeDescriptor
+ instanceVariableNames: 'generator spanFunction needsFrameFunction stackDelta opcode numBytes isBranchTrue isBranchFalse isReturn isBlockCreation isMapped isMappedInBlock isExtension isInstVarRef is1ByteInstVarStore hasIRC isCallPrimitive'
- instanceVariableNames: 'generator spanFunction needsFrameFunction stackDelta opcode numBytes isBranchTrue isBranchFalse isReturn isBlockCreation isMapped isMappedInBlock isExtension isInstVarRef is1ByteInstVarStore hasIRC'
classVariableNames: ''
poolDictionaries: ''
category: 'VMMaker-JIT'!
!CogBytecodeDescriptor commentStamp: 'eem 11/18/2010 06:32' prior: 0!
I am an entry in the Cogit's dispatch table for bytecodes. I hold the routine to call to generate code for the partcular bytecode I represent and the number of bytes the bytecode has. For eliminating temps in frameless blocks I maintain a stack delta for bytecodes that are valid in a frameless block. The order of my instance variables is chosen for compact struct packing.!
Item was added:
+ ----- Method: CogBytecodeDescriptor>>isCallPrimitive (in category 'accessing') -----
+ isCallPrimitive
+ "Answer the value of isCallPrimitive"
+
+ ^ isCallPrimitive!
Item was added:
+ ----- Method: CogBytecodeDescriptor>>isCallPrimitive: (in category 'accessing') -----
+ isCallPrimitive: anObject
+ "Set the value of isCallPrimitive"
+
+ ^isCallPrimitive := anObject!
Item was changed:
SharedPool subclass: #CogCompilationConstants
instanceVariableNames: ''
+ classVariableNames: 'BadRegisterSet CogCompilerClass InFullBlock InVanillaBlock NumSendTrampolines SSBaseOffset SSConstant SSConstantFloat32 SSConstantFloat64 SSConstantInt32 SSConstantInt64 SSConstantNativePointer SSIllegal SSNativeRegister SSRegister SSRegisterDoubleFloat SSRegisterPair SSRegisterSingleFloat SSSpill SSSpillFloat32 SSSpillFloat64 SSSpillInt64 SSSpillNative UnimplementedOperation'
- classVariableNames: 'BadRegisterSet CogCompilerClass InFullBlock InVanillaBlock NumSendTrampolines SSBaseOffset SSConstant SSIllegal SSRegister SSSpill UnimplementedOperation'
poolDictionaries: ''
category: 'VMMaker-JIT'!
Item was changed:
CogAbstractInstruction subclass: #CogIA32Compiler
instanceVariableNames: ''
+ classVariableNames: 'CDQ CLD CMPXCHGAwR CMPXCHGMwrR CPUID EAX EBP EBX ECX EDI EDX ESI ESP FSTPD FSTPS IDIVR IMULRR LFENCE LOCK MFENCE MOVSB MOVSD ModReg ModRegInd ModRegIndDisp32 ModRegIndSIB ModRegRegDisp32 ModRegRegDisp8 REP SFENCE SIB1 SIB2 SIB4 SIB8 XCHGAwR XCHGMwrR XCHGRR XMM0L XMM1L XMM2L XMM3L XMM4L XMM5L XMM6L XMM7L'
- classVariableNames: 'CDQ CMPXCHGAwR CMPXCHGMwrR CPUID EAX EBP EBX ECX EDI EDX ESI ESP IDIVR IMULRR LFENCE LOCK MFENCE ModReg ModRegInd ModRegIndDisp32 ModRegIndSIB ModRegRegDisp32 ModRegRegDisp8 SFENCE SIB1 SIB2 SIB4 SIB8 XCHGAwR XCHGMwrR XCHGRR XMM0L XMM1L XMM2L XMM3L XMM4L XMM5L XMM6L XMM7L'
poolDictionaries: ''
category: 'VMMaker-JIT'!
!CogIA32Compiler commentStamp: 'eem 9/14/2015 17:13' prior: 0!
I generate IA32 (x86) instructions from CogAbstractInstructions. For reference see
1. IA-32 Intel® Architecture Software Developer's Manual Volume 2A: Instruction Set Reference, A-M
2. IA-32 Intel® Architecture Software Developer's Manual Volume 2A: Instruction Set Reference, N-Z
http://www.intel.com/products/processor/manuals/
(® is supposed to be the Unicode "registered sign".
This class does not take any special action to flush the instruction cache on instruction-modification, trusting that Intel and AMD processors correctly invalidate the instruction cache via snooping. According to the manuals, this will work on systems where code and data have the same virtual address. The CogICacheFlushingIA32Compiler subclass exists to use the CPUID instruction to serialize instruction-modification for systems with code and data at different virtual addresses.!
Item was changed:
----- Method: CogIA32Compiler class>>initialize (in category 'class initialization') -----
initialize
"Initialize various IA32/x86 instruction-related constants.
[1] IA-32 Intel® Architecture Software Developer's Manual Volume 2A: Instruction Set Reference, A-M"
"CogIA32Compiler initialize"
self ~~ CogIA32Compiler ifTrue: [^self].
"N.B. EAX ECX and EDX are caller-save (scratch) registers.
EBX ESI and EDI are callee-save; see concreteRegisterFor:"
EAX := 0.
ECX := 1. "Were they completely mad or simply sadistic?"
EDX := 2.
EBX := 3.
ESP := 4.
EBP := 5.
ESI := 6.
EDI := 7.
XMM0L := 0.
XMM1L := 1.
XMM2L := 2.
XMM3L := 3.
XMM4L := 4.
XMM5L := 5.
XMM6L := 6.
XMM7L := 7.
"Mod R/M Mod fields. See [1] Sec 2.4, 2.5 & 2.6 & Table 2-2"
ModRegInd := 0.
ModRegIndSIB := 4.
ModRegIndDisp32 := 5.
ModRegRegDisp8 := 1.
ModRegRegDisp32 := 2.
ModReg := 3.
"SIB Scaled Index modes. See [1] Sec 2.4, 2.5 & 2.6 & Table 2-3"
SIB1 := 0.
SIB2 := 1.
SIB4 := 2.
SIB8 := 3.
"Specific instructions"
self
+ initializeSpecificOpcodes: #(CDQ IDIVR IMULRR CPUID LFENCE MFENCE SFENCE LOCK CMPXCHGAwR CMPXCHGMwrR XCHGAwR XCHGMwrR XCHGRR FSTPS FSTPD CLD REP MOVSB MOVSD)
- initializeSpecificOpcodes: #(CDQ IDIVR IMULRR CPUID LFENCE MFENCE SFENCE LOCK CMPXCHGAwR CMPXCHGMwrR XCHGAwR XCHGMwrR XCHGRR)
in: thisContext method!
Item was added:
+ ----- Method: CogIA32Compiler>>cFloatResultToRd: (in category 'abi') -----
+ cFloatResultToRd: reg
+ cogit gen: FSTPD operand: -8 operand: SPReg .
+ cogit MoveM64: -8 r: SPReg Rd: reg!
Item was added:
+ ----- Method: CogIA32Compiler>>cFloatResultToRs: (in category 'abi') -----
+ cFloatResultToRs: reg
+ cogit gen: FSTPS operand: -4 operand: SPReg.
+ cogit MoveM32: -4 r: SPReg Rs: reg!
Item was added:
+ ----- Method: CogIA32Compiler>>cResultRegisterHigh (in category 'accessing') -----
+ cResultRegisterHigh
+ "Answer the abstract register for the C result register.
+ Only partially implemented. Works on x86 since TempReg = EAX = C result reg."
+ ^ EDX!
Item was added:
+ ----- Method: CogIA32Compiler>>cResultRegisterLow (in category 'accessing') -----
+ cResultRegisterLow
+ "Answer the abstract register for the C result register.
+ Only partially implemented. Works on x86 since TempReg = EAX = C result reg."
+ ^ EAX!
Item was changed:
----- Method: CogIA32Compiler>>computeMaximumSize (in category 'generate machine code') -----
computeMaximumSize
"Compute the maximum size for each opcode. This allows jump offsets to
be determined, provided that all backward branches are long branches."
"N.B. The ^N forms are to get around the bytecode compiler's long branch
limits which are exceeded when each case jumps around the otherwise."
opcode caseOf: {
"Noops & Pseudo Ops"
[Label] -> [^0].
[AlignmentNops] -> [^(operands at: 0) - 1].
[Fill32] -> [^4].
[Nop] -> [^1].
"Specific Control/Data Movement"
+ [REP] -> [^1].
+ [CLD] -> [^1].
+ [MOVSB] -> [^1].
+ [MOVSD] -> [^1].
[CDQ] -> [^1].
[IDIVR] -> [^2].
[IMULRR] -> [^3].
[CPUID] -> [^2].
[CMPXCHGAwR] -> [^7].
[CMPXCHGMwrR] -> [^(operands at: 1) = ESP
ifTrue: [(self isQuick: (operands at: 0)) ifTrue: [5] ifFalse: [8]]
ifFalse: [(self isQuick: (operands at: 0)) ifTrue: [4] ifFalse: [7]]].
[LFENCE] -> [^3].
[MFENCE] -> [^3].
[SFENCE] -> [^3].
[LOCK] -> [^1].
[XCHGAwR] -> [^6].
[XCHGMwrR] -> [^(operands at: 1) = ESP
ifTrue: [(self isQuick: (operands at: 0)) ifTrue: [4] ifFalse: [7]]
ifFalse: [(self isQuick: (operands at: 0)) ifTrue: [3] ifFalse: [6]]].
[XCHGRR] -> [^((operands at: 0) = EAX
or: [(operands at: 1) = EAX])
ifTrue: [1]
ifFalse: [2]].
+ [FSTPS] -> [^7].
+ [FSTPD] -> [^7].
+
"Control"
[CallFull] -> [^5].
[Call] -> [^5].
+ [CallR] -> [^2].
[JumpR] -> [^2].
[JumpFull] -> [self resolveJumpTarget. ^5].
[JumpLong] -> [self resolveJumpTarget. ^5].
[Jump] -> [self resolveJumpTarget. ^5].
[JumpZero] -> [self resolveJumpTarget. ^6].
[JumpNonZero] -> [self resolveJumpTarget. ^6].
[JumpNegative] -> [self resolveJumpTarget. ^6].
[JumpNonNegative] -> [self resolveJumpTarget. ^6].
[JumpOverflow] -> [self resolveJumpTarget. ^6].
[JumpNoOverflow] -> [self resolveJumpTarget. ^6].
[JumpCarry] -> [self resolveJumpTarget. ^6].
[JumpNoCarry] -> [self resolveJumpTarget. ^6].
[JumpLess] -> [self resolveJumpTarget. ^6].
[JumpGreaterOrEqual] -> [self resolveJumpTarget. ^6].
[JumpGreater] -> [self resolveJumpTarget. ^6].
[JumpLessOrEqual] -> [self resolveJumpTarget. ^6].
[JumpBelow] -> [self resolveJumpTarget. ^6].
[JumpAboveOrEqual] -> [self resolveJumpTarget. ^6].
[JumpAbove] -> [self resolveJumpTarget. ^6].
[JumpBelowOrEqual] -> [self resolveJumpTarget. ^6].
[JumpLongZero] -> [self resolveJumpTarget. ^6].
[JumpLongNonZero] -> [self resolveJumpTarget. ^6].
[JumpFPEqual] -> [self resolveJumpTarget. ^6].
[JumpFPNotEqual] -> [self resolveJumpTarget. ^6].
[JumpFPLess] -> [self resolveJumpTarget. ^6].
[JumpFPGreaterOrEqual] -> [self resolveJumpTarget. ^6].
[JumpFPGreater] -> [self resolveJumpTarget. ^6].
[JumpFPLessOrEqual] -> [self resolveJumpTarget. ^6].
[JumpFPOrdered] -> [self resolveJumpTarget. ^6].
[JumpFPUnordered] -> [self resolveJumpTarget. ^6].
[RetN] -> [^(operands at: 0) = 0 ifTrue: [1] ifFalse: [3]].
[Stop] -> [^1].
"Arithmetic"
[AddCqR] -> [^(self isQuick: (operands at: 0))
ifTrue: [3]
ifFalse: [(operands at: 1) = EAX
ifTrue: [5]
ifFalse: [6]]].
+ [AddcCqR] -> [^(self isQuick: (operands at: 0))
+ ifTrue: [3]
+ ifFalse: [(operands at: 1) = EAX
+ ifTrue: [5]
+ ifFalse: [6]]].
[AndCqR] -> [^(self isQuick: (operands at: 0))
ifTrue: [3]
ifFalse: [(operands at: 1) = EAX
ifTrue: [5]
ifFalse: [6]]].
[CmpCqR] -> [^(self isQuick: (operands at: 0))
ifTrue: [3]
ifFalse: [(operands at: 1) = EAX
ifTrue: [5]
ifFalse: [6]]].
[OrCqR] -> [^(self isQuick: (operands at: 0))
ifTrue: [3]
ifFalse: [(operands at: 1) = EAX
ifTrue: [5]
ifFalse: [6]]].
[SubCqR] -> [^(self isQuick: (operands at: 0))
ifTrue: [3]
ifFalse: [(operands at: 1) = EAX
ifTrue: [5]
ifFalse: [6]]].
[TstCqR] -> [^((self isQuick: (operands at: 0)) and: [(operands at: 1) < 4])
ifTrue: [3]
ifFalse: [(operands at: 1) = EAX
ifTrue: [5]
ifFalse: [6]]].
[AddCwR] -> [^(operands at: 1) = EAX ifTrue: [5] ifFalse: [6]].
[AndCwR] -> [^(operands at: 1) = EAX ifTrue: [5] ifFalse: [6]].
[CmpCwR] -> [^(operands at: 1) = EAX ifTrue: [5] ifFalse: [6]].
[OrCwR] -> [^(operands at: 1) = EAX ifTrue: [5] ifFalse: [6]].
[SubCwR] -> [^(operands at: 1) = EAX ifTrue: [5] ifFalse: [6]].
[XorCwR] -> [^(operands at: 1) = EAX ifTrue: [5] ifFalse: [6]].
[AddRR] -> [^2].
[AndRR] -> [^2].
[CmpRR] -> [^2].
[OrRR] -> [^2].
[XorRR] -> [^2].
[SubRR] -> [^2].
[NegateR] -> [^2].
+ [NotR] -> [^2].
[LoadEffectiveAddressMwrR]
-> [^((self isQuick: (operands at: 0))
ifTrue: [3]
ifFalse: [6])
+ ((operands at: 1) = ESP
ifTrue: [1]
ifFalse: [0])].
[LogicalShiftLeftCqR] -> [^(operands at: 0) = 1 ifTrue: [2] ifFalse: [3]].
[LogicalShiftRightCqR] -> [^(operands at: 0) = 1 ifTrue: [2] ifFalse: [3]].
[ArithmeticShiftRightCqR] -> [^(operands at: 0) = 1 ifTrue: [2] ifFalse: [3]].
[LogicalShiftLeftRR] -> [^self computeShiftRRSize].
[LogicalShiftRightRR] -> [^self computeShiftRRSize].
[ArithmeticShiftRightRR] -> [^self computeShiftRRSize].
[AddRdRd] -> [^4].
[CmpRdRd] -> [^4].
[SubRdRd] -> [^4].
[MulRdRd] -> [^4].
[DivRdRd] -> [^4].
[SqrtRd] -> [^4].
+ [XorRdRd] -> [^4].
+
+ [AddRsRs] -> [^4].
+ [CmpRsRs] -> [^3].
+ [SubRsRs] -> [^4].
+ [MulRsRs] -> [^4].
+ [DivRsRs] -> [^4].
+ [SqrtRs] -> [^4].
+ [XorRsRs] -> [^3].
+
"Data Movement"
[MoveCqR] -> [^(operands at: 0) = 0 ifTrue: [2] ifFalse: [5]].
[MoveCwR] -> [^5].
[MoveRR] -> [^2].
[MoveRdRd] -> [^4].
+ [MoveRsRs] -> [^4].
[MoveAwR] -> [^(operands at: 1) = EAX ifTrue: [5] ifFalse: [6]].
[MoveRAw] -> [^(operands at: 0) = EAX ifTrue: [5] ifFalse: [6]].
[MoveAbR] -> [^7].
[MoveRAb] -> [^(operands at: 0) = EAX ifTrue: [5] ifFalse: [6]].
+ [MoveRM32r] -> [^((self isQuick: (operands at: 1))
+ ifTrue: [((operands at: 1) = 0
+ and: [(operands at: 2) ~= EBP])
+ ifTrue: [2]
+ ifFalse: [3]]
+ ifFalse: [6])
+ + ((operands at: 2) = ESP
+ ifTrue: [1]
+ ifFalse: [0])].
[MoveRMwr] -> [^((self isQuick: (operands at: 1))
ifTrue: [((operands at: 1) = 0
and: [(operands at: 2) ~= EBP])
ifTrue: [2]
ifFalse: [3]]
ifFalse: [6])
+ ((operands at: 2) = ESP
ifTrue: [1]
ifFalse: [0])].
[MoveRdM64r] -> [^((self isQuick: (operands at: 1))
ifTrue: [5]
ifFalse: [8])
+ ((operands at: 2) = ESP
ifTrue: [1]
ifFalse: [0])].
+ [MoveRsM32r] -> [^((self isQuick: (operands at: 1))
+ ifTrue: [5]
+ ifFalse: [8])
+ + ((operands at: 2) = ESP
+ ifTrue: [1]
+ ifFalse: [0])].
[MoveMbrR] -> [^(operands at: 1) = ESP
ifTrue: [(self isQuick: (operands at: 0)) ifTrue: [5] ifFalse: [8]]
ifFalse: [(self isQuick: (operands at: 0)) ifTrue: [4] ifFalse: [7]]].
[MoveRMbr] -> [^(operands at: 2) = ESP
ifTrue: [7]
ifFalse: [(self isQuick: (operands at: 1)) ifTrue: [3] ifFalse: [6]]].
+ [MoveM8rR] -> [^(operands at: 1) = ESP
+ ifTrue: [(self isQuick: (operands at: 0)) ifTrue: [5] ifFalse: [8]]
+ ifFalse: [(self isQuick: (operands at: 0)) ifTrue: [4] ifFalse: [7]]].
+ [MoveRM8r] -> [^(operands at: 2) = ESP
+ ifTrue: [7]
+ ifFalse: [(self isQuick: (operands at: 1)) ifTrue: [3] ifFalse: [6]]].
[MoveM16rR] -> [^(operands at: 1) = ESP
ifTrue: [(self isQuick: (operands at: 0)) ifTrue: [5] ifFalse: [8]]
ifFalse: [(self isQuick: (operands at: 0)) ifTrue: [4] ifFalse: [7]]].
[MoveRM16r] -> [^(operands at: 2) = ESP
ifTrue: [8]
ifFalse: [(self isQuick: (operands at: 1)) ifTrue: [4] ifFalse: [7]]].
[MoveM64rRd] -> [^((self isQuick: (operands at: 0))
ifTrue: [5]
ifFalse: [8])
+ ((operands at: 1) = ESP
ifTrue: [1]
ifFalse: [0])].
+ [MoveM32rRs] -> [^((self isQuick: (operands at: 0))
+ ifTrue: [5]
+ ifFalse: [8])
+ + ((operands at: 1) = ESP
+ ifTrue: [1]
+ ifFalse: [0])].
+ [MoveM32rR] -> [^((self isQuick: (operands at: 0))
+ ifTrue: [((operands at: 0) = 0
+ and: [(operands at: 1) ~= EBP])
+ ifTrue: [2]
+ ifFalse: [3]]
+ ifFalse: [6])
+ + ((operands at: 1) = ESP
+ ifTrue: [1]
+ ifFalse: [0])].
[MoveMwrR] -> [^((self isQuick: (operands at: 0))
ifTrue: [((operands at: 0) = 0
and: [(operands at: 1) ~= EBP])
ifTrue: [2]
ifFalse: [3]]
ifFalse: [6])
+ ((operands at: 1) = ESP
ifTrue: [1]
ifFalse: [0])].
[MoveXbrRR] -> [self assert: (operands at: 0) ~= ESP.
^(operands at: 1) = EBP
ifTrue: [5]
ifFalse: [4]].
[MoveRXbrR] -> [self assert: (operands at: 1) ~= ESP.
^((operands at: 2) = EBP
ifTrue: [4]
ifFalse: [3])
+ ((operands at: 0) >= 4
ifTrue: [2]
ifFalse: [0])].
[MoveXwrRR] -> [self assert: (operands at: 0) ~= ESP.
^(operands at: 1) = EBP
ifTrue: [4]
ifFalse: [3]].
[MoveRXwrR] -> [self assert: (operands at: 1) ~= ESP.
^(operands at: 2) = EBP
ifTrue: [4]
ifFalse: [3]].
[PopR] -> [^1].
[PushR] -> [^1].
[PushCq] -> [^(self isQuick: (operands at: 0)) ifTrue: [2] ifFalse: [5]].
[PushCw] -> [^5].
[PrefetchAw] -> [^self hasSSEInstructions ifTrue: [7] ifFalse: [0]].
"Conversion"
+ [ConvertRRd] -> [^4].
+ [ConvertRdR] -> [^4].
+
+ [ConvertRsRd] -> [^4].
+ [ConvertRdRs] -> [^4].
+ [ConvertRsR] -> [^4].
+ [ConvertRRs] -> [^4].
+
+ [SignExtend8RR] -> [^3].
+ [SignExtend16RR] -> [^3].
+ [ZeroExtend8RR] -> [^3].
+ [ZeroExtend16RR] -> [^3]. }.
- [ConvertRRd] -> [^4] }.
^0 "to keep C compiler quiet"!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeAddcCqR (in category 'generate machine code') -----
+ concretizeAddcCqR
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ | value reg |
+ value := operands at: 0.
+ reg := operands at: 1.
+ (self isQuick: value) ifTrue:
+ [machineCode
+ at: 0 put: 16r83;
+ at: 1 put: (self mod: ModReg RM: reg RO: 2);
+ at: 2 put: (value bitAnd: 16rFF).
+ ^machineCodeSize := 3].
+ reg = EAX ifTrue:
+ [machineCode
+ at: 0 put: 16r15;
+ at: 1 put: (value bitAnd: 16rFF);
+ at: 2 put: (value >> 8 bitAnd: 16rFF);
+ at: 3 put: (value >> 16 bitAnd: 16rFF);
+ at: 4 put: (value >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 5].
+ machineCode
+ at: 0 put: 16r81;
+ at: 1 put: (self mod: ModReg RM: reg RO: 2);
+ at: 2 put: (value bitAnd: 16rFF);
+ at: 3 put: (value >> 8 bitAnd: 16rFF);
+ at: 4 put: (value >> 16 bitAnd: 16rFF);
+ at: 5 put: (value >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 6!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeAddcRR (in category 'generate machine code') -----
+ concretizeAddcRR
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ "Assemble the ADC instruction"
+ | regLHS regRHS |
+ regLHS := operands at: 0.
+ regRHS := operands at: 1.
+ machineCode
+ at: 0 put: 16r13;
+ at: 1 put: (self mod: ModReg RM: regLHS RO: regRHS).
+ ^machineCodeSize := 2!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeCLD (in category 'generate machine code') -----
+ concretizeCLD
+ <inline: true>
+ machineCode at: 0 put: 16rFC.
+ ^machineCodeSize := 1!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeCallR (in category 'generate machine code') -----
+ concretizeCallR
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ | reg |
+ "CmpRR RHS LHS computes LHS - RHS, i.e. apparently reversed. You have to think subtract."
+ reg := operands at: 0.
+ machineCode
+ at: 0 put: 16rFF;
+ at: 1 put: (self mod: ModReg RM: reg RO: 2).
+ ^machineCodeSize := 2!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeCmpRsRs (in category 'generate machine code') -----
+ concretizeCmpRsRs
+ "Will get inlined into concretizeAt: switch.
+ We use UCOMISS (see p 4-260 [2])"
+ <inline: true>
+ | regLHS regRHS |
+ "CmpRR RHS LHS computes LHS - RHS, i.e. apparently reversed. You have to think subtract."
+ regRHS := operands at: 0.
+ regLHS := operands at: 1.
+ machineCode
+ at: 0 put: 16r0F;
+ at: 1 put: 16r2E;
+ at: 2 put: (self mod: ModReg RM: regRHS RO: regLHS).
+ ^machineCodeSize := 3!
Item was changed:
----- Method: CogIA32Compiler>>concretizeConvertRRd (in category 'generate machine code') -----
concretizeConvertRRd
"Will get inlined into concretizeAt: switch."
+ "CVTSI2D"
<inline: true>
| srcReg destReg |
+ srcReg := operands at: 0.
- srcReg := operands at:0.
destReg := operands at: 1.
machineCode
at: 0 put: 16rF2;
at: 1 put: 16r0F;
at: 2 put: 16r2A;
at: 3 put: (self mod: ModReg RM: srcReg RO: destReg).
^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeConvertRRs (in category 'generate machine code') -----
+ concretizeConvertRRs
+ "Will get inlined into concretizeAt: switch."
+ "CVTSI2SS"
+ <inline: true>
+ | srcReg destReg |
+ srcReg := operands at: 0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r2A;
+ at: 3 put: (self mod: ModReg RM: srcReg RO: destReg).
+ ^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeConvertRdR (in category 'generate machine code') -----
+ concretizeConvertRdR
+ "Will get inlined into concretizeAt: switch."
+ "CVTSD2SI"
+ <inline: true>
+ | srcReg destReg |
+ srcReg := operands at:0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16rF2;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r2D;
+ at: 3 put: (self mod: ModReg RM: srcReg RO: destReg).
+ ^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeConvertRdRs (in category 'generate machine code') -----
+ concretizeConvertRdRs
+ "Will get inlined into concretizeAt: switch."
+ "CVTSD2SS"
+ <inline: true>
+ | srcReg destReg |
+ srcReg := operands at: 0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16rF2;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r5A;
+ at: 3 put: (self mod: ModReg RM: srcReg RO: destReg).
+ ^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeConvertRsR (in category 'generate machine code') -----
+ concretizeConvertRsR
+ "Will get inlined into concretizeAt: switch."
+ "CVTSS2SI"
+ <inline: true>
+ | srcReg destReg |
+ srcReg := operands at: 0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r2D;
+ at: 3 put: (self mod: ModReg RM: srcReg RO: destReg).
+ ^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeConvertRsRd (in category 'generate machine code') -----
+ concretizeConvertRsRd
+ "Will get inlined into concretizeAt: switch."
+ "CVTSS2SD"
+ <inline: true>
+ | srcReg destReg |
+ srcReg := operands at: 0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r5A;
+ at: 3 put: (self mod: ModReg RM: srcReg RO: destReg).
+ ^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeFSTPD (in category 'generate machine code') -----
+ concretizeFSTPD
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ | srcReg offset destReg |
+ srcReg := 3.
+ offset := operands at: 0.
+ destReg := operands at: 1.
+ destReg ~= ESP ifTrue:
+ [(self isQuick: offset) ifTrue:
+ "FSTP dest"
+ [machineCode
+ at: 0 put: 16rDD;
+ at: 1 put: (self mod: ModRegRegDisp8 RM: destReg RO: srcReg);
+ at: 2 put: (offset bitAnd: 16rFF).
+ ^machineCodeSize := 3].
+ "FSTP dest"
+ machineCode
+ at: 0 put: 16rDD;
+ at: 1 put: (self mod: ModRegRegDisp32 RM: destReg RO: srcReg);
+ at: 2 put: (offset bitAnd: 16rFF);
+ at: 3 put: (offset >> 8 bitAnd: 16rFF);
+ at: 4 put: (offset >> 16 bitAnd: 16rFF);
+ at: 5 put: (offset >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 6].
+ "ESP:"
+ (self isQuick: offset) ifTrue:
+ [machineCode
+ at: 0 put: 16rDD;
+ at: 1 put: (self mod: ModRegRegDisp8 RM: destReg RO: srcReg);
+ at: 2 put: (self s: SIB1 i: 4 b: destReg);
+ at: 3 put: (offset bitAnd: 16rFF).
+ ^machineCodeSize := 4].
+ machineCode
+ at: 0 put: 16rDD;
+ at: 1 put: (self mod: ModRegRegDisp32 RM: destReg RO: srcReg);
+ at: 2 put: (self s: SIB1 i: 4 b: destReg);
+ at: 3 put: (offset bitAnd: 16rFF);
+ at: 4 put: (offset >> 8 bitAnd: 16rFF);
+ at: 5 put: (offset >> 16 bitAnd: 16rFF);
+ at: 6 put: (offset >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 7!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeFSTPS (in category 'generate machine code') -----
+ concretizeFSTPS
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ | srcReg offset destReg |
+ srcReg := 3.
+ offset := operands at: 0.
+ destReg := operands at: 1.
+ destReg ~= ESP ifTrue:
+ [(self isQuick: offset) ifTrue:
+ "FSTP dest"
+ [machineCode
+ at: 0 put: 16rD9;
+ at: 1 put: (self mod: ModRegRegDisp8 RM: destReg RO: srcReg);
+ at: 2 put: (offset bitAnd: 16rFF).
+ ^machineCodeSize := 3].
+ "FSTP dest"
+ machineCode
+ at: 0 put: 16rD9;
+ at: 1 put: (self mod: ModRegRegDisp32 RM: destReg RO: srcReg);
+ at: 2 put: (offset bitAnd: 16rFF);
+ at: 3 put: (offset >> 8 bitAnd: 16rFF);
+ at: 4 put: (offset >> 16 bitAnd: 16rFF);
+ at: 5 put: (offset >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 6].
+ "ESP:"
+ (self isQuick: offset) ifTrue:
+ [machineCode
+ at: 0 put: 16rD9;
+ at: 1 put: (self mod: ModRegRegDisp8 RM: destReg RO: srcReg);
+ at: 2 put: (self s: SIB1 i: 4 b: destReg);
+ at: 3 put: (offset bitAnd: 16rFF).
+ ^machineCodeSize := 4].
+ machineCode
+ at: 0 put: 16rD9;
+ at: 1 put: (self mod: ModRegRegDisp32 RM: destReg RO: srcReg);
+ at: 2 put: (self s: SIB1 i: 4 b: destReg);
+ at: 3 put: (offset bitAnd: 16rFF);
+ at: 4 put: (offset >> 8 bitAnd: 16rFF);
+ at: 5 put: (offset >> 16 bitAnd: 16rFF);
+ at: 6 put: (offset >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 7!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeMOVSB (in category 'generate machine code') -----
+ concretizeMOVSB
+ <inline: true>
+ machineCode at: 0 put: 16rA4.
+ ^machineCodeSize := 1!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeMOVSD (in category 'generate machine code') -----
+ concretizeMOVSD
+ <inline: true>
+ machineCode at: 0 put: 16rA5.
+ ^machineCodeSize := 1!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeMoveM32rRs (in category 'generate machine code') -----
+ concretizeMoveM32rRs
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ | srcReg offset destReg |
+ offset := operands at: 0.
+ srcReg := operands at: 1.
+ destReg := operands at: 2.
+ srcReg ~= ESP ifTrue:
+ [(self isQuick: offset) ifTrue:
+ [machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r10;
+ at: 3 put: (self mod: ModRegRegDisp8 RM: srcReg RO: destReg);
+ at: 4 put: (offset bitAnd: 16rFF).
+ ^machineCodeSize := 5].
+ machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r10;
+ at: 3 put: (self mod: ModRegRegDisp32 RM: srcReg RO: destReg);
+ at: 4 put: (offset bitAnd: 16rFF);
+ at: 5 put: (offset >> 8 bitAnd: 16rFF);
+ at: 6 put: (offset >> 16 bitAnd: 16rFF);
+ at: 7 put: (offset >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 8].
+ "ESP:"
+ (self isQuick: offset) ifTrue:
+ [machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r10;
+ at: 3 put: (self mod: ModRegRegDisp8 RM: srcReg RO: destReg);
+ at: 4 put: (self s: SIB1 i: 4 b: srcReg);
+ at: 5 put: (offset bitAnd: 16rFF).
+ ^machineCodeSize := 6].
+ machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r10;
+ at: 3 put: (self mod: ModRegRegDisp32 RM: srcReg RO: destReg);
+ at: 4 put: (self s: SIB1 i: 4 b: srcReg);
+ at: 5 put: (offset bitAnd: 16rFF);
+ at: 6 put: (offset >> 8 bitAnd: 16rFF);
+ at: 7 put: (offset >> 16 bitAnd: 16rFF);
+ at: 8 put: (offset >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 9!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeMoveM8rR (in category 'generate machine code') -----
+ concretizeMoveM8rR
+ "Will get inlined into concretizeAt: switch."
+ "movzwl"
+ <inline: true>
+ | srcReg offset destReg |
+ offset := operands at: 0.
+ srcReg := operands at: 1.
+ destReg := operands at: 2.
+ srcReg ~= ESP ifTrue:
+ [(self isQuick: offset) ifTrue:
+ [machineCode
+ at: 0 put: 16r0F;
+ at: 1 put: 16rB6;
+ at: 2 put: (self mod: ModRegRegDisp8 RM: srcReg RO: destReg);
+ at: 3 put: (offset bitAnd: 16rFF).
+ ^machineCodeSize := 4].
+ machineCode
+ at: 0 put: 16r0F;
+ at: 1 put: 16rB6;
+ at: 2 put: (self mod: ModRegRegDisp32 RM: srcReg RO: destReg);
+ at: 3 put: (offset bitAnd: 16rFF);
+ at: 4 put: (offset >> 8 bitAnd: 16rFF);
+ at: 5 put: (offset >> 16 bitAnd: 16rFF);
+ at: 6 put: (offset >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 7].
+ "ESP:"
+ (self isQuick: offset) ifTrue:
+ [machineCode
+ at: 0 put: 16r0F;
+ at: 1 put: 16rB6;
+ at: 2 put: (self mod: ModRegRegDisp8 RM: srcReg RO: destReg);
+ at: 3 put: (self s: SIB1 i: 4 b: srcReg);
+ at: 4 put: (offset bitAnd: 16rFF).
+ ^machineCodeSize := 5].
+ machineCode
+ at: 0 put: 16r0F;
+ at: 1 put: 16rB6;
+ at: 2 put: (self mod: ModRegRegDisp32 RM: srcReg RO: destReg);
+ at: 3 put: (self s: SIB1 i: 4 b: srcReg);
+ at: 4 put: (offset bitAnd: 16rFF);
+ at: 5 put: (offset >> 8 bitAnd: 16rFF);
+ at: 6 put: (offset >> 16 bitAnd: 16rFF);
+ at: 7 put: (offset >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 8!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeMoveRdRd (in category 'generate machine code') -----
+ concretizeMoveRdRd
+ "Will get inlined into concretizeAt: switch."
+ "MOVSD"
+ <inline: true>
+ | srcReg destReg |
+ srcReg := operands at: 0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16rF2;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r11;
+ at: 3 put: (self mod: ModReg RM: destReg RO: srcReg).
+ ^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeMoveRsM32r (in category 'generate machine code') -----
+ concretizeMoveRsM32r
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ | srcReg offset destReg |
+ srcReg := operands at: 0.
+ offset := operands at: 1.
+ destReg := operands at: 2.
+ destReg ~= ESP ifTrue:
+ [(self isQuick: offset) ifTrue:
+ "MOVSD destReg, srcReg"
+ [machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r11;
+ at: 3 put: (self mod: ModRegRegDisp8 RM: destReg RO: srcReg);
+ at: 4 put: (offset bitAnd: 16rFF).
+ ^machineCodeSize := 5].
+ "MOVSD destReg, srcReg"
+ machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r11;
+ at: 3 put: (self mod: ModRegRegDisp32 RM: destReg RO: srcReg);
+ at: 4 put: (offset bitAnd: 16rFF);
+ at: 5 put: (offset >> 8 bitAnd: 16rFF);
+ at: 6 put: (offset >> 16 bitAnd: 16rFF);
+ at: 7 put: (offset >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 8].
+ "ESP:"
+ (self isQuick: offset) ifTrue:
+ [machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r11;
+ at: 3 put: (self mod: ModRegRegDisp8 RM: destReg RO: srcReg);
+ at: 4 put: (self s: SIB1 i: 4 b: destReg);
+ at: 5 put: (offset bitAnd: 16rFF).
+ ^machineCodeSize := 6].
+ machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r11;
+ at: 3 put: (self mod: ModRegRegDisp32 RM: destReg RO: srcReg);
+ at: 4 put: (self s: SIB1 i: 4 b: destReg);
+ at: 5 put: (offset bitAnd: 16rFF);
+ at: 6 put: (offset >> 8 bitAnd: 16rFF);
+ at: 7 put: (offset >> 16 bitAnd: 16rFF);
+ at: 8 put: (offset >> 24 bitAnd: 16rFF).
+ ^machineCodeSize := 9!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeMoveRsRs (in category 'generate machine code') -----
+ concretizeMoveRsRs
+ "Will get inlined into concretizeAt: switch."
+ "MOVSS"
+ <inline: true>
+ | srcReg destReg |
+ srcReg := operands at: 0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r11;
+ at: 3 put: (self mod: ModReg RM: destReg RO: srcReg).
+ ^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeNotR (in category 'generate machine code') -----
+ concretizeNotR
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ | reg |
+ reg := operands at: 0.
+ machineCode
+ at: 0 put: 16rF7;
+ at: 1 put: (self mod: ModReg RM: reg RO: 2).
+ ^machineCodeSize := 2!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeREP (in category 'generate machine code') -----
+ concretizeREP
+ <inline: true>
+ machineCode at: 0 put: 16rF3.
+ ^machineCodeSize := 1!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeSEEOpRsRs: (in category 'generate machine code') -----
+ concretizeSEEOpRsRs: opCode
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ | regLHS regRHS |
+ regRHS := self operands at: 0.
+ regLHS := self operands at: 1.
+ machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: opCode;
+ at: 3 put: (self mod: ModReg RM: regRHS RO: regLHS).
+ ^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeSignExtend16RR (in category 'generate machine code') -----
+ concretizeSignExtend16RR
+ "Will get inlined into concretizeAt: switch."
+ "movswl"
+ <inline: true>
+ | srcReg destReg |
+ srcReg := operands at: 0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16r0F;
+ at: 1 put: 16rBF;
+ at: 2 put: (self mod: ModReg RM: srcReg RO: destReg).
+ ^ machineCodeSize := 3!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeSignExtend8RR (in category 'generate machine code') -----
+ concretizeSignExtend8RR
+ "Will get inlined into concretizeAt: switch."
+ "movsbl"
+ <inline: true>
+ | srcReg destReg |
+ srcReg := operands at: 0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16r0F;
+ at: 1 put: 16rBE;
+ at: 2 put: (self mod: ModReg RM: srcReg RO: destReg).
+ ^ machineCodeSize := 3!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeSqrtRs (in category 'generate machine code') -----
+ concretizeSqrtRs
+ "Will get inlined into concretizeAt: switch."
+ "SRTSS"
+ <inline: true>
+ | reg |
+ reg := operands at: 0.
+ machineCode
+ at: 0 put: 16rF3;
+ at: 1 put: 16r0F;
+ at: 2 put: 16r51;
+ at: 3 put: (self mod: ModReg RM: reg RO: reg).
+ ^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeSubbRR (in category 'generate machine code') -----
+ concretizeSubbRR
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ "Assemble the SBB instruction"
+ | regLHS regRHS |
+ regLHS := operands at: 0.
+ regRHS := operands at: 1.
+ machineCode
+ at: 0 put: 16r1B;
+ at: 1 put: (self mod: ModReg RM: regLHS RO: regRHS).
+ ^machineCodeSize := 2!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeXorRdRd (in category 'generate machine code') -----
+ concretizeXorRdRd
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ | regLHS regRHS |
+ regRHS := self operands at: 0.
+ regLHS := self operands at: 1.
+ machineCode
+ at: 0 put: 16r66;
+ at: 1 put: 16r0f;
+ at: 2 put: 16r57;
+ at: 3 put: (self mod: ModReg RM: regRHS RO: regLHS).
+ ^machineCodeSize := 4!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeXorRsRs (in category 'generate machine code') -----
+ concretizeXorRsRs
+ "Will get inlined into concretizeAt: switch."
+ <inline: true>
+ | regLHS regRHS |
+ regRHS := self operands at: 0.
+ regLHS := self operands at: 1.
+ machineCode
+ at: 0 put: 16r0F;
+ at: 1 put: 16r57;
+ at: 2 put: (self mod: ModReg RM: regRHS RO: regLHS).
+ ^machineCodeSize := 3!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeZeroExtend16RR (in category 'generate machine code') -----
+ concretizeZeroExtend16RR
+ "Will get inlined into concretizeAt: switch."
+ "movzwl"
+ | srcReg destReg |
+ srcReg := operands at: 0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16r0F;
+ at: 1 put: 16rB7;
+ at: 2 put: (self mod: ModReg RM: srcReg RO: destReg).
+ ^ machineCodeSize := 3!
Item was added:
+ ----- Method: CogIA32Compiler>>concretizeZeroExtend8RR (in category 'generate machine code') -----
+ concretizeZeroExtend8RR
+ "Will get inlined into concretizeAt: switch."
+ "movzbl"
+ <inline: true>
+ | srcReg destReg |
+ srcReg := operands at: 0.
+ destReg := operands at: 1.
+ machineCode
+ at: 0 put: 16r0F;
+ at: 1 put: 16rB6;
+ at: 2 put: (self mod: ModReg RM: srcReg RO: destReg).
+ ^ machineCodeSize := 3!
Item was changed:
----- Method: CogIA32Compiler>>dispatchConcretize (in category 'generate machine code') -----
dispatchConcretize
"Attempt to generate concrete machine code for the instruction at address.
This is the inner dispatch of concretizeAt: actualAddress which exists only
to get around the branch size limits in the SqueakV3 (blue book derived)
bytecode set."
<returnTypeC: #void>
opcode caseOf: {
"Noops & Pseudo Ops"
[Label] -> [^self concretizeLabel].
[AlignmentNops] -> [^self concretizeAlignmentNops].
[Fill32] -> [^self concretizeFill32].
[Nop] -> [^self concretizeNop].
"Specific Control/Data Movement"
[CDQ] -> [^self concretizeCDQ].
[IDIVR] -> [^self concretizeIDIVR].
[IMULRR] -> [^self concretizeMulRR].
[CPUID] -> [^self concretizeCPUID].
[CMPXCHGAwR] -> [^self concretizeCMPXCHGAwR].
[CMPXCHGMwrR] -> [^self concretizeCMPXCHGMwrR].
[LFENCE] -> [^self concretizeFENCE: 5].
[MFENCE] -> [^self concretizeFENCE: 6].
[SFENCE] -> [^self concretizeFENCE: 7].
[LOCK] -> [^self concretizeLOCK].
[XCHGAwR] -> [^self concretizeXCHGAwR].
[XCHGMwrR] -> [^self concretizeXCHGMwrR].
[XCHGRR] -> [^self concretizeXCHGRR].
+ [FSTPS] -> [^self concretizeFSTPS].
+ [FSTPD] -> [^self concretizeFSTPD].
"Control"
[Call] -> [^self concretizeCall].
+ [CallR] -> [^self concretizeCallR].
[CallFull] -> [^self concretizeCall].
[JumpR] -> [^self concretizeJumpR].
[JumpFull] -> [^self concretizeJumpLong].
[JumpLong] -> [^self concretizeJumpLong].
[JumpLongZero] -> [^self concretizeConditionalJump: 16r4].
[JumpLongNonZero] -> [^self concretizeConditionalJump: 16r5].
[Jump] -> [^self concretizeJump].
"Table B-1 Intel® 64 and IA-32 Architectures Software Developer's Manual Volume 1: Basic Architecture"
[JumpZero] -> [^self concretizeConditionalJump: 16r4].
[JumpNonZero] -> [^self concretizeConditionalJump: 16r5].
[JumpNegative] -> [^self concretizeConditionalJump: 16r8].
[JumpNonNegative] -> [^self concretizeConditionalJump: 16r9].
[JumpOverflow] -> [^self concretizeConditionalJump: 16r0].
[JumpNoOverflow] -> [^self concretizeConditionalJump: 16r1].
[JumpCarry] -> [^self concretizeConditionalJump: 16r2].
[JumpNoCarry] -> [^self concretizeConditionalJump: 16r3].
[JumpLess] -> [^self concretizeConditionalJump: 16rC].
[JumpGreaterOrEqual] -> [^self concretizeConditionalJump: 16rD].
[JumpGreater] -> [^self concretizeConditionalJump: 16rF].
[JumpLessOrEqual] -> [^self concretizeConditionalJump: 16rE].
[JumpBelow] -> [^self concretizeConditionalJump: 16r2].
[JumpAboveOrEqual] -> [^self concretizeConditionalJump: 16r3].
[JumpAbove] -> [^self concretizeConditionalJump: 16r7].
[JumpBelowOrEqual] -> [^self concretizeConditionalJump: 16r6].
[JumpFPEqual] -> [^self concretizeConditionalJump: 16r4].
[JumpFPNotEqual] -> [^self concretizeConditionalJump: 16r5].
[JumpFPLess] -> [^self concretizeConditionalJump: 16r2].
[JumpFPGreaterOrEqual] -> [^self concretizeConditionalJump: 16r3].
[JumpFPGreater] -> [^self concretizeConditionalJump: 16r7].
[JumpFPLessOrEqual] -> [^self concretizeConditionalJump: 16r6].
[JumpFPOrdered] -> [^self concretizeConditionalJump: 16rB].
[JumpFPUnordered] -> [^self concretizeConditionalJump: 16rA].
[RetN] -> [^self concretizeRetN].
[Stop] -> [^self concretizeStop].
"Arithmetic"
[AddCqR] -> [^self concretizeAddCqR].
[AddCwR] -> [^self concretizeAddCwR].
[AddRR] -> [^self concretizeOpRR: 16r03].
+ [AddcRR] -> [^self concretizeAddcRR].
+ [AddcCqR] -> [^self concretizeAddcCqR].
[AddRdRd] -> [^self concretizeSEE2OpRdRd: 16r58].
+ [AddRsRs] -> [^self concretizeSEEOpRsRs: 16r58].
[AndCqR] -> [^self concretizeAndCqR].
[AndCwR] -> [^self concretizeAndCwR].
[AndRR] -> [^self concretizeOpRR: 16r23].
[TstCqR] -> [^self concretizeTstCqR].
[CmpCqR] -> [^self concretizeCmpCqR].
[CmpCwR] -> [^self concretizeCmpCwR].
[CmpRR] -> [^self concretizeReverseOpRR: 16r39].
[CmpRdRd] -> [^self concretizeCmpRdRd].
+ [CmpRsRs] -> [^self concretizeCmpRsRs].
[DivRdRd] -> [^self concretizeSEE2OpRdRd: 16r5E].
+ [DivRsRs] -> [^self concretizeSEEOpRsRs: 16r5E].
[MulRdRd] -> [^self concretizeSEE2OpRdRd: 16r59].
+ [MulRsRs] -> [^self concretizeSEEOpRsRs: 16r59].
[OrCqR] -> [^self concretizeOrCqR].
[OrCwR] -> [^self concretizeOrCwR].
[OrRR] -> [^self concretizeOpRR: 16r0B].
[SubCqR] -> [^self concretizeSubCqR].
[SubCwR] -> [^self concretizeSubCwR].
[SubRR] -> [^self concretizeOpRR: 16r2B].
+ [SubbRR] -> [^self concretizeSubbRR].
[SubRdRd] -> [^self concretizeSEE2OpRdRd: 16r5C].
+ [SubRsRs] -> [^self concretizeSEEOpRsRs: 16r5C].
[SqrtRd] -> [^self concretizeSqrtRd].
+ [SqrtRs] -> [^self concretizeSqrtRs].
[XorCwR] -> [^self concretizeXorCwR].
[XorRR] -> [^self concretizeOpRR: 16r33].
[NegateR] -> [^self concretizeNegateR].
+ [NotR] -> [^self concretizeNotR].
[LoadEffectiveAddressMwrR] -> [^self concretizeLoadEffectiveAddressMwrR].
[ArithmeticShiftRightCqR] -> [^self concretizeArithmeticShiftRightCqR].
[LogicalShiftRightCqR] -> [^self concretizeLogicalShiftRightCqR].
[LogicalShiftLeftCqR] -> [^self concretizeLogicalShiftLeftCqR].
[ArithmeticShiftRightRR] -> [^self concretizeArithmeticShiftRightRR].
[LogicalShiftLeftRR] -> [^self concretizeLogicalShiftLeftRR].
"Data Movement"
[MoveCqR] -> [^self concretizeMoveCqR].
[MoveCwR] -> [^self concretizeMoveCwR].
[MoveRR] -> [^self concretizeReverseOpRR: 16r89].
+ [MoveRdRd] -> [^self concretizeMoveRdRd].
+ [MoveRsRs] -> [^self concretizeMoveRsRs].
[MoveAwR] -> [^self concretizeMoveAwR].
[MoveRAw] -> [^self concretizeMoveRAw].
[MoveAbR] -> [^self concretizeMoveAbR].
[MoveRAb] -> [^self concretizeMoveRAb].
[MoveMbrR] -> [^self concretizeMoveMbrR].
[MoveRMbr] -> [^self concretizeMoveRMbr].
+ [MoveRM8r] -> [^self concretizeMoveRMbr].
+ [MoveM8rR] -> [^self concretizeMoveM8rR].
[MoveM16rR] -> [^self concretizeMoveM16rR].
[MoveRM16r] -> [^self concretizeMoveRM16r].
+ [MoveM32rR] -> [^self concretizeMoveMwrR].
+ [MoveRM32r] -> [^self concretizeMoveRMwr].
+ [MoveM32rRs] -> [^self concretizeMoveM32rRs].
[MoveM64rRd] -> [^self concretizeMoveM64rRd].
[MoveMwrR] -> [^self concretizeMoveMwrR].
[MoveXbrRR] -> [^self concretizeMoveXbrRR].
[MoveRXbrR] -> [^self concretizeMoveRXbrR].
[MoveXwrRR] -> [^self concretizeMoveXwrRR].
[MoveRXwrR] -> [^self concretizeMoveRXwrR].
[MoveRMwr] -> [^self concretizeMoveRMwr].
[MoveRdM64r] -> [^self concretizeMoveRdM64r].
+ [MoveRsM32r] -> [^self concretizeMoveRsM32r].
[PopR] -> [^self concretizePopR].
[PushR] -> [^self concretizePushR].
[PushCq] -> [^self concretizePushCq].
[PushCw] -> [^self concretizePushCw].
[PrefetchAw] -> [^self concretizePrefetchAw].
"Conversion"
+ [ConvertRRd] -> [^self concretizeConvertRRd].
+ [ConvertRdR] -> [^self concretizeConvertRdR].
+
+ [ConvertRsRd] -> [^self concretizeConvertRsRd].
+ [ConvertRdRs] -> [^self concretizeConvertRdRs].
+ [ConvertRsR] -> [^self concretizeConvertRsR].
+ [ConvertRRs] -> [^self concretizeConvertRRs].
+
+ [SignExtend8RR] -> [^ self concretizeSignExtend8RR].
+ [SignExtend16RR] -> [^ self concretizeSignExtend16RR].
+ [ZeroExtend8RR] -> [^ self concretizeZeroExtend8RR].
+ [ZeroExtend16RR] -> [^ self concretizeZeroExtend16RR].
+ } otherwise: [^ self dispatchConcretize2].!
- [ConvertRRd] -> [^self concretizeConvertRRd] }!
Item was added:
+ ----- Method: CogIA32Compiler>>dispatchConcretize2 (in category 'generate machine code') -----
+ dispatchConcretize2
+ "Attempt to generate concrete machine code for the instruction at address.
+ This is the inner dispatch of concretizeAt: actualAddress which exists only
+ to get around the branch size limits in the SqueakV3 (blue book derived)
+ bytecode set."
+ <returnTypeC: #void>
+ opcode caseOf: {
+ [XorRsRs] -> [^self concretizeXorRsRs].
+ [XorRdRd] -> [^self concretizeXorRdRd].
+ [REP] -> [^self concretizeREP].
+ [CLD] -> [^self concretizeCLD].
+ [MOVSB] -> [^self concretizeMOVSB].
+ [MOVSD] -> [^self concretizeMOVSD].
+ }.!
Item was added:
+ ----- Method: CogIA32Compiler>>genMarshallNArgs:floatArg:floatArg:floatArg:floatArg: (in category 'abi') -----
+ genMarshallNArgs: numArgs floatArg: regOrConst0 floatArg: regOrConst1 floatArg: regOrConst2 floatArg: regOrConst3
+ "Generate the code to pass up to four arguments in a C run-time call. Hack: each argument is
+ either a negative number, which encodes a constant, or a non-negative number, that of a register.
+
+ Run-time calls have no more than four arguments, so chosen so that on ARM, where in its C ABI the
+ first four integer arguments are passed in registers, all arguments can be passed in registers. We
+ defer to the back end to generate this code not so much that the back end knows whether it uses
+ the stack or registers to pass arguments (it does, but...). In fact we defer for an extremely evil reason.
+ Doing so allows the x64 (where up to 6 args are passed) to assign the register arguments in an order
+ that allows some of the argument registers to be used for specific abstract registers, specifically
+ ReceiverResultReg and ClassReg. This is evil, evil, evil, but also it's really nice to keep using the old
+ register assignments the original author has grown accustomed to."
+ <inline: true>
+ numArgs = 0 ifTrue:
+ [^self].
+ numArgs > 1 ifTrue:
+ [numArgs > 2 ifTrue:
+ [numArgs > 3 ifTrue:
+ [(cogit isTrampolineArgConstant: regOrConst3)
+ ifFalse: [cogit PushRd: regOrConst3]
+ ifTrue: [cogit PushC64: (cogit trampolineArgValue: regOrConst3)]].
+ (cogit isTrampolineArgConstant: regOrConst2)
+ ifFalse: [cogit PushRd: regOrConst2]
+ ifTrue: [cogit PushC64: (cogit trampolineArgValue: regOrConst2)]].
+ (cogit isTrampolineArgConstant: regOrConst1)
+ ifFalse: [cogit PushRd: regOrConst1]
+ ifTrue: [cogit PushC64: (cogit trampolineArgValue: regOrConst1)]].
+ (cogit isTrampolineArgConstant: regOrConst0)
+ ifFalse: [cogit PushRd: regOrConst0]
+ ifTrue: [cogit PushC64: (cogit trampolineArgValue: regOrConst0)]!
Item was added:
+ ----- Method: CogIA32Compiler>>genMemCopy:to:constantSize: (in category 'abstract instructions') -----
+ genMemCopy: originalSourceReg to: originalDestReg constantSize: size
+ | numbytes numwords sourceReg destReg countReg inst |
+
+ "Get the abstract registers for ECX, EDI and ESI"
+ sourceReg := ESI.
+ destReg := EDI.
+ countReg := ECX.
+
+ "Put the source in ESI and the dest in EDI"
+ inst := cogit Label.
+ originalSourceReg ~= sourceReg ifTrue: [
+ originalDestReg = sourceReg ifTrue: [
+ cogit MoveR: originalDestReg R: TempReg.
+ ].
+ cogit MoveR: originalSourceReg R: sourceReg.
+ ].
+
+ originalDestReg ~= destReg ifTrue: [
+ originalDestReg = sourceReg ifTrue: [
+ cogit MoveR: TempReg R: destReg.
+ ] ifFalse: [
+ cogit MoveR: originalDestReg R: destReg.
+ ]
+ ].
+
+ "Store the count and clear the direction"
+ cogit gen: CLD.
+
+ "First copy the bytes"
+ numbytes := size bitAnd: 16r03.
+ numbytes > 0 ifTrue: [
+ cogit MoveCq: numbytes R: countReg.
+ cogit gen: REP.
+ cogit gen: MOVSB.
+ ].
+
+ "Now copy the words"
+ numwords := size // 4.
+ cogit MoveCq: numwords R: countReg.
+ cogit gen: REP.
+ cogit gen: MOVSD.
+
+ !
Item was added:
+ ----- Method: CogIA32Compiler>>genMemCopy:to:size: (in category 'abstract instructions') -----
+ genMemCopy: originalSourceReg to: originalDestReg size: originalSize
+ | spilledSize size sourceReg destReg countReg inst |
+
+ "Get the abstract registers for ECX, EDI and ESI"
+ sourceReg := ESI.
+ destReg := EDI.
+ countReg := ECX.
+
+ "TODO: Avoid spilling"
+ spilledSize := false.
+ (originalSize = sourceReg or: [originalSize = destReg]) ifTrue: [
+ cogit PushR: originalSize.
+ spilledSize := true.
+ ].
+
+ "Put the source in ESI and the dest in EDI"
+ inst := cogit Label.
+ originalSourceReg ~= sourceReg ifTrue: [
+ originalDestReg = sourceReg ifTrue: [
+ cogit MoveR: originalDestReg R: TempReg.
+ ].
+ cogit MoveR: originalSourceReg R: sourceReg.
+ ].
+
+ originalDestReg ~= destReg ifTrue: [
+ originalDestReg = sourceReg ifTrue: [
+ cogit MoveR: TempReg R: destReg.
+ ] ifFalse: [
+ cogit MoveR: originalDestReg R: destReg.
+ ]
+ ].
+
+ "Put the original size register in somewhere different than ECX"
+ spilledSize ifTrue: [
+ cogit PopR: TempReg.
+ size := TempReg.
+ ] ifFalse: [
+ originalSize = countReg ifTrue: [
+ cogit MoveR: originalSize R: TempReg.
+ size := TempReg.
+ ] ifFalse: [
+ size := originalSize.
+ ]
+ ].
+
+ cogit gen: CLD.
+
+ "First copy the bytes"
+ cogit MoveR: size R: countReg.
+ cogit AndCq: 16r03 R: countReg.
+ cogit gen: REP.
+ cogit gen: MOVSB.
+
+ "Now copy the words"
+ cogit MoveR: size R: countReg.
+ cogit LogicalShiftRightCq: 2 R: countReg.
+ cogit gen: REP.
+ cogit gen: MOVSD.
+
+ !
Item was added:
+ ----- Method: CogIA32Compiler>>genMoveCf32:Rs: (in category 'abstract instructions') -----
+ genMoveCf32: constantFloat32 Rs: register
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ <var: #constantFloat32 type: #float>
+ | inst |
+ inst := cogit PushCw: constantFloat32 asIEEE32BitWord.
+ cogit PopRs: register.
+ ^ inst!
Item was added:
+ ----- Method: CogIA32Compiler>>genMoveCf64:Rd: (in category 'abstract instructions') -----
+ genMoveCf64: constantFloat64 Rd: register
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ <var: #constantFloat64 type: #double>
+ | inst |
+ inst := cogit PushC64: constantFloat64 asIEEE64BitWord.
+ cogit PopRd: register.
+ ^ inst!
Item was added:
+ ----- Method: CogIA32Compiler>>genPopRd: (in category 'abstract instructions') -----
+ genPopRd: reg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ | inst |
+ inst := cogit MoveM64: 0 r: SPReg Rd: reg .
+ cogit AddCq: 8 R: SPReg.
+ ^ inst!
Item was added:
+ ----- Method: CogIA32Compiler>>genPopRs: (in category 'abstract instructions') -----
+ genPopRs: reg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ | inst |
+ inst := cogit MoveM32: 0 r: SPReg Rs: reg .
+ cogit AddCq: 4 R: SPReg.
+ ^ inst!
Item was added:
+ ----- Method: CogIA32Compiler>>genPushC64: (in category 'abstract instructions') -----
+ genPushC64: constant64Bits
+ <inline: true>
+ <var: #constant64Bits type: #sqLong>
+ <returnTypeC: #'AbstractInstruction *'>
+ | inst highPart |
+ BytesPerWord == 4 ifTrue: [
+ highPart := self cCode: '(constant64Bits >> 32ll)' inSmalltalk: [ constant64Bits bitShift: -32 ].
+ inst :=cogit PushCw: highPart.
+ cogit PushCw: (constant64Bits bitAnd: 16rFFFFFFFF).
+ ^ inst
+ ] ifFalse: [
+ ^ cogit PushCw: constant64Bits.
+ ]!
Item was added:
+ ----- Method: CogIA32Compiler>>genPushRd: (in category 'abstract instructions') -----
+ genPushRd: reg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ | inst |
+ inst := cogit MoveRd: reg M64: -8 r: SPReg.
+ cogit SubCq: 8 R: SPReg.
+ ^ inst!
Item was added:
+ ----- Method: CogIA32Compiler>>genPushRs: (in category 'abstract instructions') -----
+ genPushRs: reg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ | inst |
+ inst := cogit MoveRs: reg M32: -4 r: SPReg.
+ cogit SubCq: 4 R: SPReg.
+ ^ inst!
Item was added:
+ ----- Method: CogIA32Compiler>>genRemoveNFloatArgsFromStack: (in category 'abi') -----
+ genRemoveNFloatArgsFromStack: n
+ cogit AddCq: n * 8 R: ESP.
+ ^0!
Item was changed:
CogClass subclass: #CogObjectRepresentation
+ instanceVariableNames: 'cogit methodZone objectMemory coInterpreter ceStoreCheckTrampoline ceByteSizeOfTrampoline ceInstantiateClassTrampoline ceInstantiateClassIndexableSizeTrampoline ceFloatObjectOfTrampoline ceFloatValueOfTrampoline ceSigned64BitIntegerTrampoline ceSigned64BitValueOfTrampoline cePositive64BitIntegerTrampoline cePositive64BitValueOfTrampoline'
- instanceVariableNames: 'cogit methodZone objectMemory coInterpreter ceStoreCheckTrampoline'
classVariableNames: ''
poolDictionaries: 'CogAbstractRegisters CogCompilationConstants CogMethodConstants CogRTLOpcodes VMBasicConstants VMObjectIndices VMSqueakClassIndices VMStackFrameOffsets'
category: 'VMMaker-JIT'!
!CogObjectRepresentation commentStamp: '<historical>' prior: 0!
I am an abstract superclass for object representations whose job it is to generate abstract instructions for accessing objects. It is hoped that this level of indirection between the Cogit code generator and object access makes it easier to adapt the code generator to different garbage collectors, object representations and languages.!
Item was changed:
----- Method: CogObjectRepresentation class>>numTrampolines (in category 'accessing') -----
numTrampolines
+ ^1 "ceStoreCheckTrampoline" + (LowcodeVM ifTrue: [ 9 ] ifFalse: [ 0 ])!
- ^1 "ceStoreCheckTrampoline"!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcByteSizeOf:to: (in category 'inline primitive support') -----
+ genLcByteSizeOf: oop to: resultRegister
+ <option: #LowcodeVM>
+ "TODO: Optimize this one avoiding the trampoline"
+ oop ~= ReceiverResultReg ifTrue: [cogit MoveR: oop R: ReceiverResultReg ].
+ cogit CallRT: ceByteSizeOfTrampoline.
+
+ cogit MoveR: TempReg R: resultRegister.
+ cogit ssPushNativeRegister: resultRegister.!
Item was added:
+ ----- 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: ReceiverResultReg.
+ cogit ssPushRegister: ReceiverResultReg.!
Item was added:
+ ----- 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: ReceiverResultReg.
+ cogit ssPushRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcInstantiateOop: (in category 'inline primitive support') -----
+ genLcInstantiateOop: classOop
+ <option: #LowcodeVM>
+ classOop ~= ReceiverResultReg ifTrue: [cogit MoveR: classOop R: ReceiverResultReg].
+ cogit CallRT: ceInstantiateClassTrampoline.
+
+ cogit MoveR: TempReg R: classOop.
+ cogit ssPushRegister: classOop.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcInstantiateOop:constantIndexableSize: (in category 'inline primitive support') -----
+ genLcInstantiateOop: classOop constantIndexableSize: indexableSize
+ <option: #LowcodeVM>
+ classOop ~= ReceiverResultReg ifTrue: [cogit MoveR: classOop R: ReceiverResultReg].
+ cogit MoveCq: indexableSize R: Arg0Reg.
+ cogit CallRT: ceInstantiateClassIndexableSizeTrampoline.
+
+ cogit MoveR: TempReg R: classOop.
+ cogit ssPushRegister: classOop.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcInstantiateOop:indexableSize: (in category 'inline primitive support') -----
+ genLcInstantiateOop: classOop indexableSize: indexableSize
+ <option: #LowcodeVM>
+ classOop ~= ReceiverResultReg ifTrue: [
+ indexableSize = ReceiverResultReg ifTrue: [
+ cogit MoveR: indexableSize R: TempReg.
+ ].
+ cogit MoveR: classOop R: ReceiverResultReg
+ ].
+
+ indexableSize ~= Arg0Reg ifTrue: [
+ indexableSize = ReceiverResultReg ifTrue: [
+ cogit MoveR: TempReg R: Arg0Reg.
+ ] ifFalse: [
+ cogit MoveR: indexableSize R: Arg0Reg.
+ ]
+ ].
+
+ cogit CallRT: ceInstantiateClassIndexableSizeTrampoline.
+
+ cogit MoveR: TempReg R: classOop.
+ cogit ssPushRegister: classOop.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcInt64ToOop: (in category 'inline primitive support') -----
+ genLcInt64ToOop: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: ceSigned64BitIntegerTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcInt64ToOop:highPart: (in category 'inline primitive support') -----
+ genLcInt64ToOop: valueLow highPart: valueHigh
+ <option: #LowcodeVM>
+ "Put the arguments in the correct registers"
+ valueLow ~= ReceiverResultReg ifTrue: [
+ valueHigh = ReceiverResultReg ifTrue: [
+ cogit MoveR: valueHigh R: TempReg.
+ ].
+ cogit MoveR: valueLow R: ReceiverResultReg.
+ ].
+
+ valueHigh ~= Arg0Reg ifTrue: [
+ valueHigh = ReceiverResultReg ifTrue: [
+ cogit MoveR: TempReg R: Arg0Reg.
+ ] ifFalse: [
+ cogit MoveR: valueHigh R: Arg0Reg.
+ ]
+ ].
+
+ "Call the trampoline"
+ cogit CallRT: ceSigned64BitIntegerTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcOop:toFloat32: (in category 'inline primitive support') -----
+ genLcOop: object toFloat32: value
+ <option: #LowcodeVM>
+ object ~= ReceiverResultReg ifTrue: [ cogit MoveR: object R: ReceiverResultReg].
+ cogit CallRT: ceFloatValueOfTrampoline.
+
+ cogit ConvertRd: DPFPReg0 Rs: value.
+ cogit ssPushNativeRegisterSingleFloat: value.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcOop:toFloat64: (in category 'inline primitive support') -----
+ genLcOop: object toFloat64: value
+ <option: #LowcodeVM>
+ object ~= ReceiverResultReg ifTrue: [ cogit MoveR: object R: ReceiverResultReg].
+ cogit CallRT: ceFloatValueOfTrampoline.
+
+ DPFPReg0 ~= value ifTrue: [cogit MoveRd: DPFPReg0 Rd: value.].
+ cogit ssPushNativeRegisterDoubleFloat: value.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcOop:toInt64:highPart: (in category 'inline primitive support') -----
+ genLcOop: object toInt64: valueLow highPart: valueHigh
+ <option: #LowcodeVM>
+ object ~= ReceiverResultReg ifTrue: [ cogit MoveR: object R: ReceiverResultReg.].
+ cogit CallRT: ceSigned64BitValueOfTrampoline.
+
+ Arg0Reg ~= valueHigh ifTrue: [cogit MoveR: Arg0Reg R: valueHigh].
+ cogit MoveR: TempReg R: valueLow.
+
+ cogit ssPushNativeRegister: valueLow secondRegister: valueHigh.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcOop:toUInt64:highPart: (in category 'inline primitive support') -----
+ genLcOop: object toUInt64: valueLow highPart: valueHigh
+ <option: #LowcodeVM>
+ object ~= ReceiverResultReg ifTrue: [ cogit MoveR: object R: ReceiverResultReg.].
+ cogit CallRT: cePositive64BitValueOfTrampoline.
+
+ Arg0Reg ~= valueHigh ifTrue: [cogit MoveR: Arg0Reg R: valueHigh].
+ cogit MoveR: TempReg R: valueLow.
+
+ cogit ssPushNativeRegister: valueLow secondRegister: valueHigh.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcOopToInt64: (in category 'inline primitive support') -----
+ genLcOopToInt64: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: ceSigned64BitValueOfTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushNativeRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcOopToPointer: (in category 'inline primitive support') -----
+ genLcOopToPointer: object
+ <option: #LowcodeVM>
+ "Assume this is always correct"
+ cogit MoveMw: BaseHeaderSize r: object R: object.
+ cogit ssPushNativeRegister: object.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcOopToUInt64: (in category 'inline primitive support') -----
+ genLcOopToUInt64: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: cePositive64BitValueOfTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushNativeRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcPointerToOop:class: (in category 'inline primitive support') -----
+ genLcPointerToOop: pointer class: pointerClass
+ <option: #LowcodeVM>
+ cogit PushR: pointer.
+ cogit annotate: (cogit MoveCw: pointerClass R: ReceiverResultReg) objRef: pointerClass.
+ cogit MoveCq: BytesPerOop R: Arg0Reg.
+ cogit CallRT: ceInstantiateClassIndexableSizeTrampoline.
+
+ cogit PopR: pointer.
+ cogit MoveR: pointer Mw: BaseHeaderSize r: TempReg.
+
+ cogit MoveR: TempReg R: pointer.
+ cogit ssPushRegister: pointer.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcUInt64ToOop: (in category 'inline primitive support') -----
+ genLcUInt64ToOop: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: cePositive64BitIntegerTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentation>>genLcUInt64ToOop:highPart: (in category 'inline primitive support') -----
+ genLcUInt64ToOop: valueLow highPart: valueHigh
+ <option: #LowcodeVM>
+ "Put the arguments in the correct registers"
+ valueLow ~= ReceiverResultReg ifTrue: [
+ valueHigh = ReceiverResultReg ifTrue: [
+ cogit MoveR: valueHigh R: TempReg.
+ ].
+ cogit MoveR: valueLow R: ReceiverResultReg.
+ ].
+
+ valueHigh ~= Arg0Reg ifTrue: [
+ valueHigh = ReceiverResultReg ifTrue: [
+ cogit MoveR: TempReg R: Arg0Reg.
+ ] ifFalse: [
+ cogit MoveR: valueHigh R: Arg0Reg.
+ ]
+ ].
+
+ "Call the trampoline"
+ cogit CallRT: cePositive64BitIntegerTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentation>>generateLowcodeObjectTrampolines (in category 'initialization') -----
+ generateLowcodeObjectTrampolines
+ ceFloatObjectOfTrampoline := cogit genTrampolineFor: #floatObjectOf:
+ called: 'ceFloatObjectOfTrampoline'
+ floatArg: DPFPReg0
+ result: TempReg.
+ ceFloatValueOfTrampoline := cogit genTrampolineFor: #floatValueOf:
+ called: 'ceFloatValueOfTrampoline'
+ arg: ReceiverResultReg
+ floatResult: DPFPReg0.
+ ceInstantiateClassIndexableSizeTrampoline := cogit genTrampolineFor: #instantiateClass:indexableSize:
+ called: 'ceInstantiateClassIndexableSizeTrampoline'
+ arg: ReceiverResultReg
+ arg: Arg0Reg
+ result: TempReg.
+ ceInstantiateClassTrampoline := cogit genTrampolineFor: #instantiateClass:indexableSize:
+ called: 'ceInstantiateClassTrampoline'
+ arg: ReceiverResultReg
+ arg: 0
+ result: TempReg.
+ ceByteSizeOfTrampoline := cogit genTrampolineFor: #byteSizeOf:
+ called: 'ceByteSizeOfTrampoline'
+ arg: ReceiverResultReg
+ arg: Arg0Reg
+ result: TempReg.
+ BytesPerOop = 4 ifTrue: [
+ cePositive64BitIntegerTrampoline := cogit genTrampolineFor: #positive64BitIntegerFor:
+ called: 'cePositive64BitIntegerTrampoline'
+ arg: ReceiverResultReg
+ arg: Arg0Reg
+ result: TempReg.
+ cePositive64BitValueOfTrampoline := cogit genTrampolineFor: #positive64BitValueOf:
+ called: 'cePositive64BitValueOfTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg
+ result: Arg0Reg.
+ ceSigned64BitIntegerTrampoline := cogit genTrampolineFor: #signed64BitIntegerFor:
+ called: 'ceSigned64BitIntegerTrampoline'
+ arg: ReceiverResultReg
+ arg: Arg0Reg
+ result: TempReg.
+ ceSigned64BitValueOfTrampoline := cogit genTrampolineFor: #signed64BitValueOf:
+ called: 'ceSigned64BitValueOfTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg
+ result: Arg0Reg.
+ ] ifFalse: [
+ cePositive64BitIntegerTrampoline := cogit genTrampolineFor: #positive64BitIntegerFor:
+ called: 'cePositive64BitIntegerTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+ cePositive64BitValueOfTrampoline := cogit genTrampolineFor: #positive64BitValueOf:
+ called: 'cePositive64BitValueOfTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+ ceSigned64BitIntegerTrampoline := cogit genTrampolineFor: #signed64BitIntegerFor:
+ called: 'ceSigned64BitIntegerTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+ ceSigned64BitValueOfTrampoline := cogit genTrampolineFor: #signed64BitValueOf:
+ called: 'ceSigned64BitValueOfTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+ ]!
Item was changed:
CogObjectRepresentationForSpur subclass: #CogObjectRepresentationFor32BitSpur
+ instanceVariableNames: 'ceSigned32BitIntegerTrampoline ceSigned32BitValueOfTrampoline cePositive32BitValueOfTrampoline cePositive32BitIntegerTrampoline'
- instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'VMMaker-JIT'!
Item was added:
+ ----- Method: CogObjectRepresentationFor32BitSpur class>>numTrampolines (in category 'accessing') -----
+ numTrampolines
+ ^ super numTrampolines + 4 "lowcode"!
Item was added:
+ ----- Method: CogObjectRepresentationFor32BitSpur>>genLcInt32ToOop: (in category 'inline primitive support') -----
+ genLcInt32ToOop: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: ceSigned32BitIntegerTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentationFor32BitSpur>>genLcOopToInt32: (in category 'inline primitive support') -----
+ genLcOopToInt32: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: ceSigned32BitValueOfTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushNativeRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentationFor32BitSpur>>genLcOopToUInt32: (in category 'inline primitive support') -----
+ genLcOopToUInt32: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: cePositive32BitValueOfTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushNativeRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentationFor32BitSpur>>genLcUInt32ToOop: (in category 'inline primitive support') -----
+ genLcUInt32ToOop: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: cePositive32BitIntegerTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentationFor32BitSpur>>generateLowcodeObjectTrampolines (in category 'initialization') -----
+ generateLowcodeObjectTrampolines
+ super generateLowcodeObjectTrampolines.
+ cePositive32BitIntegerTrampoline := cogit genTrampolineFor: #positive32BitIntegerFor:
+ called: 'cePositive32BitIntegerTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+ cePositive32BitValueOfTrampoline := cogit genTrampolineFor: #positive32BitValueOf:
+ called: 'cePositive32BitValueOfTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+ ceSigned32BitIntegerTrampoline := cogit genTrampolineFor: #signed32BitIntegerFor:
+ called: 'ceSigned32BitIntegerTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+ ceSigned32BitValueOfTrampoline := cogit genTrampolineFor: #signed32BitValueOf:
+ called: 'ceSigned32BitValueOfTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcFirstFieldPointer: (in category 'inline primitive support') -----
+ genLcFirstFieldPointer: objectReg
+ <option: #LowcodeVM>
+ cogit AddCq: 8 R: objectReg.
+ cogit ssPushNativeRegister: objectReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcFirstIndexableFieldPointer: (in category 'inline primitive support') -----
+ genLcFirstIndexableFieldPointer: objectReg
+ <option: #LowcodeVM>
+ "TODO: Retrieve the number of fixed fields."
+ cogit AddCq: 8 R: objectReg.
+ cogit ssPushNativeRegister: objectReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcIsBytes:to: (in category 'inline primitive support') -----
+ genLcIsBytes: objectReg to: valueReg
+ <option: #LowcodeVM>
+
+ "Check for integer"
+ | isImmediate isNotBytes isCompiledMethod cont falseTarget |
+ cogit MoveR: objectReg R: valueReg.
+ cogit AndCq: objectMemory tagMask R: valueReg.
+ isImmediate := cogit JumpNonZero: 0.
+
+ "Get the format"
+ self genGetFormatOf: objectReg into: valueReg.
+
+ cogit CmpCq: objectMemory firstByteFormat R: valueReg.
+ isNotBytes := cogit JumpLess: 0.
+ cogit CmpCq: objectMemory firstCompiledMethodFormat R: valueReg.
+ isCompiledMethod := cogit JumpGreaterOrEqual: 0.
+
+ "True result"
+ cogit MoveCq: 1 R: valueReg.
+ cont := cogit Jump: 0.
+
+ "False result"
+ falseTarget := cogit Label.
+ isImmediate jmpTarget: falseTarget.
+ isNotBytes jmpTarget: falseTarget.
+ isCompiledMethod jmpTarget: falseTarget.
+ cogit MoveCq: 0 R: valueReg.
+
+ "Return"
+ cont jmpTarget: cogit Label.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcIsFloatObject:to: (in category 'inline primitive support') -----
+ genLcIsFloatObject: objectReg to: valueReg
+ <option: #LowcodeVM>
+ "TODO: Implement this one"
+ cogit MoveCq: 1 R: valueReg.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcIsIndexable:to: (in category 'inline primitive support') -----
+ genLcIsIndexable: objectReg to: valueReg
+ <option: #LowcodeVM>
+ "TODO: Implement this one"
+ cogit MoveCq: 1 R: valueReg.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcIsIntegerObject:to: (in category 'inline primitive support') -----
+ genLcIsIntegerObject: objectReg to: valueReg
+ <option: #LowcodeVM>
+
+ "Check for the immediate case"
+ | isImmediate isLargePositiveInteger isLargeNegativeInteger falseResult trueResult cont |
+ cogit MoveR: objectReg R: valueReg.
+ cogit AndCq: objectMemory smallIntegerTag R: valueReg.
+ isImmediate := cogit JumpNonZero: 0.
+
+ "Check the non-immediate case"
+ self genGetClassIndexOfNonImm: objectReg into: TempReg.
+ cogit CmpCq: ClassLargePositiveInteger R: TempReg.
+ isLargePositiveInteger := cogit JumpNonZero: 0.
+ cogit CmpCq: ClassLargeNegativeInteger R: TempReg.
+ isLargeNegativeInteger := cogit JumpNonZero: 0.
+ cogit XorR: valueReg R: valueReg.
+ falseResult := cogit Jump: 0.
+
+ "True result"
+ trueResult := cogit Label.
+ isLargePositiveInteger jmpTarget: trueResult.
+ isLargeNegativeInteger jmpTarget: trueResult.
+ cogit MoveCq: 1 R: valueReg.
+
+ "Return"
+ cont := cogit Label.
+ falseResult jmpTarget: cont.
+ isImmediate jmpTarget: cont.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcIsPointers:to: (in category 'inline primitive support') -----
+ genLcIsPointers: objectReg to: valueReg
+ <option: #LowcodeVM>
+
+ "Check for immediate"
+ | isImmediate isNotPointers cont falseTarget |
+ cogit MoveR: objectReg R: valueReg.
+ cogit AndCq: objectMemory tagMask R: valueReg.
+ isImmediate := cogit JumpNonZero: 0.
+
+ "Get the format"
+ self genGetFormatOf: objectReg into: valueReg.
+
+ cogit CmpCq: 9 R: valueReg.
+ isNotPointers := cogit JumpGreaterOrEqual: 0.
+
+ "True result"
+ cogit MoveCq: 1 R: valueReg.
+ cont := cogit Jump: 0.
+
+ "False result"
+ falseTarget := cogit Label.
+ isImmediate jmpTarget: falseTarget.
+ isNotPointers jmpTarget: falseTarget.
+ cogit MoveCq: 0 R: valueReg.
+
+ "Return"
+ cont jmpTarget: cogit Label.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcIsWords:to: (in category 'inline primitive support') -----
+ genLcIsWords: objectReg to: valueReg
+ <option: #LowcodeVM>
+
+ "Check for immediate"
+ | isImmediate isNotWords cont falseTarget isBelowRange isAboveRange |
+ cogit MoveR: objectReg R: valueReg.
+ cogit AndCq: objectMemory tagMask R: valueReg.
+ isImmediate := cogit JumpNonZero: 0.
+
+ "Get the format"
+ self genGetFormatOf: objectReg into: valueReg.
+
+ "Hack: consider a compiled method as bytes too."
+ BytesPerWord = 8 ifTrue: [
+ cogit CmpCq: objectMemory firstLongFormat firs R: valueReg.
+ isBelowRange := cogit JumpLess: 0.
+ cogit CmpCq: objectMemory firstShortFormat R: valueReg.
+ isAboveRange := cogit JumpGreaterOrEqual: 0.
+ ] ifFalse: [
+ cogit CmpCq: objectMemory firstLongFormat R: valueReg.
+ isNotWords := cogit JumpNonZero: 0.
+ ].
+
+ "True result"
+ cogit MoveCq: 1 R: valueReg.
+ cont := cogit Jump: 0.
+
+ "False result"
+ falseTarget := cogit Label.
+ isImmediate jmpTarget: falseTarget.
+ BytesPerWord = 4 ifTrue: [
+ isNotWords jmpTarget: falseTarget.
+ ] ifFalse: [
+ isBelowRange jmpTarget: falseTarget.
+ isAboveRange jmpTarget: falseTarget.
+ ].
+ cogit MoveCq: 0 R: valueReg.
+
+ "Return"
+ cont jmpTarget: cogit Label.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcIsWordsOrBytes:to: (in category 'inline primitive support') -----
+ genLcIsWordsOrBytes: objectReg to: valueReg
+ <option: #LowcodeVM>
+
+ "Check for immediate"
+ | isImmediate isNotBits isCompiledMethod cont falseTarget |
+ cogit MoveR: objectReg R: valueReg.
+ cogit AndCq: objectMemory tagMask R: valueReg.
+ isImmediate := cogit JumpNonZero: 0.
+
+ "Get the format"
+ self genGetFormatOf: objectReg into: valueReg.
+
+ cogit CmpCq: 9 R: valueReg.
+ isNotBits := cogit JumpLess: 0.
+ cogit CmpCq: 24 R: valueReg.
+ isCompiledMethod := cogit JumpGreaterOrEqual: 0.
+
+ "True result"
+ cogit MoveCq: 1 R: valueReg.
+ cont := cogit Jump: 0.
+
+ "False result"
+ falseTarget := cogit Label.
+ isImmediate jmpTarget: falseTarget.
+ isNotBits jmpTarget: falseTarget.
+ isCompiledMethod jmpTarget: falseTarget.
+ cogit MoveCq: 0 R: valueReg.
+
+ "Return"
+ cont jmpTarget: cogit Label.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcLoadObject:at: (in category 'inline primitive support') -----
+ genLcLoadObject: object at: fieldIndex
+ <option: #LowcodeVM>
+ cogit AddCq: 8 R: object.
+ cogit MoveXwr: fieldIndex R: object R: object.
+ cogit ssPushRegister: object!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcLoadObject:field: (in category 'inline primitive support') -----
+ genLcLoadObject: object field: fieldIndex
+ <option: #LowcodeVM>
+ cogit MoveMw: 8 + (BytesPerOop*fieldIndex) r: object R: object.
+ cogit ssPushRegister: object!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcStore:object:at: (in category 'inline primitive support') -----
+ genLcStore: value object: object at: fieldIndex
+ <option: #LowcodeVM>
+ cogit AddCq: 8 R: object.
+ cogit MoveR: value Xwr: fieldIndex R: object.!
Item was added:
+ ----- Method: CogObjectRepresentationForSpur>>genLcStore:object:field: (in category 'inline primitive support') -----
+ genLcStore: value object: object field: fieldIndex
+ <option: #LowcodeVM>
+ cogit MoveR: value Mw: 8 + (fieldIndex * BytesPerOop) r: object.!
Item was changed:
----- Method: CogObjectRepresentationForSpur>>generateObjectRepresentationTrampolines (in category 'initialization') -----
generateObjectRepresentationTrampolines
"Do the store check. Answer the argument for the benefit of the code generator;
ReceiverResultReg may be caller-saved and hence smashed by this call. Answering
it allows the code generator to reload ReceiverResultReg cheaply.
In Spur the only thing we leave to the run-time is adding the receiver to the
remembered set and setting its isRemembered bit."
self
cppIf: IMMUTABILITY
ifTrue:
[self cCode: [] inSmalltalk:
[ceStoreTrampolines := CArrayAccessor on: (Array new: NumStoreTrampolines)].
0 to: NumStoreTrampolines - 1 do:
[:instVarIndex |
ceStoreTrampolines
at: instVarIndex
put: (self
genStoreTrampolineCalled: (cogit
trampolineName: 'ceStoreTrampoline'
numArgs: instVarIndex
limit: NumStoreTrampolines - 2)
instVarIndex: instVarIndex)]].
ceStoreCheckTrampoline := self genStoreCheckTrampoline.
ceStoreCheckContextReceiverTrampoline := self genStoreCheckContextReceiverTrampoline.
ceScheduleScavengeTrampoline := cogit
genTrampolineFor: #ceScheduleScavenge
called: 'ceScheduleScavengeTrampoline'
regsToSave: CallerSavedRegisterMask.
ceSmallActiveContextInMethodTrampoline := self genActiveContextTrampolineLarge: false inBlock: 0 called: 'ceSmallMethodContext'.
ceSmallActiveContextInBlockTrampoline := self genActiveContextTrampolineLarge: false inBlock: InVanillaBlock called: 'ceSmallBlockContext'.
SistaV1BytecodeSet ifTrue:
[ceSmallActiveContextInFullBlockTrampoline := self genActiveContextTrampolineLarge: false inBlock: InFullBlock called: 'ceSmallFullBlockContext'].
ceLargeActiveContextInMethodTrampoline := self genActiveContextTrampolineLarge: true inBlock: 0 called: 'ceLargeMethodContext'.
ceLargeActiveContextInBlockTrampoline := self genActiveContextTrampolineLarge: true inBlock: InVanillaBlock called: 'ceLargeBlockContext'.
SistaV1BytecodeSet ifTrue:
+ [ceLargeActiveContextInFullBlockTrampoline := self genActiveContextTrampolineLarge: true inBlock: InFullBlock called: 'ceLargeFullBlockContext'].
+
+ self cppIf: LowcodeVM ifTrue: [ self generateLowcodeObjectTrampolines ]!
- [ceLargeActiveContextInFullBlockTrampoline := self genActiveContextTrampolineLarge: true inBlock: InFullBlock called: 'ceLargeFullBlockContext']!
Item was changed:
CogObjectRepresentation subclass: #CogObjectRepresentationForSqueakV3
+ instanceVariableNames: 'ceCreateNewArrayTrampoline cePositive32BitIntegerTrampoline ceActiveContextTrampoline ceClosureCopyTrampoline ceSigned32BitIntegerTrampoline ceSigned32BitValueOfTrampoline cePositive32BitValueOfTrampoline'
- instanceVariableNames: 'ceCreateNewArrayTrampoline cePositive32BitIntegerTrampoline ceActiveContextTrampoline ceClosureCopyTrampoline'
classVariableNames: 'RootBitDigitLength'
poolDictionaries: 'VMSqueakClassIndices VMSqueakV3ObjectRepresentationConstants'
category: 'VMMaker-JIT'!
!CogObjectRepresentationForSqueakV3 commentStamp: '<historical>' prior: 0!
Read my superclass' class comment. I am a CogObjectRepresentation for the Squeak V3 object representation.!
Item was changed:
----- Method: CogObjectRepresentationForSqueakV3 class>>numTrampolines (in category 'accessing') -----
numTrampolines
+ ^super numTrampolines + 4 + (LowcodeVM ifTrue: [ 3 ] ifFalse: [ 0 ])!
- ^super numTrampolines + 4!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genGetNumSlotsOf:into: (in category 'compile abstract instructions') -----
+ genGetNumSlotsOf: srcRegister into: destRegister!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcFirstFieldPointer: (in category 'inline primitive support') -----
+ genLcFirstFieldPointer: objectReg
+ <option: #LowcodeVM>
+ cogit AddCq: 4 R: objectReg.
+ cogit ssPushNativeRegister: objectReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcFirstIndexableFieldPointer: (in category 'inline primitive support') -----
+ genLcFirstIndexableFieldPointer: objectReg
+ <option: #LowcodeVM>
+ "TODO: Fixme for fixed fields"
+ cogit AddCq: 4 R: objectReg.
+ cogit ssPushNativeRegister: objectReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcInt32ToOop: (in category 'inline primitive support') -----
+ genLcInt32ToOop: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: ceSigned32BitIntegerTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcIsBytes:to: (in category 'inline primitive support') -----
+ genLcIsBytes: objectReg to: valueReg
+ <option: #LowcodeVM>
+ | isInteger isNotBytes falseTarget cont |
+
+ "Check for integer"
+ cogit MoveR: objectReg R: TempReg.
+ cogit AndCq: 1 R: TempReg.
+ isInteger := cogit JumpNonZero: 0.
+
+ "Get the class format"
+ self genGetClassFormatOfNonInt: objectReg into: valueReg scratchReg: TempReg.
+
+ "Hack: consider a compiled method as bytes too."
+ cogit CmpCq: 8 R: valueReg.
+ isNotBytes := cogit JumpLess: 0.
+
+ "True result"
+ cogit MoveCq: 1 R: valueReg.
+ cont := cogit Jump: 0.
+
+ "False result"
+ falseTarget := cogit Label.
+ isInteger jmpTarget: falseTarget.
+ isNotBytes jmpTarget: falseTarget.
+ cogit MoveCq: 0 R: valueReg.
+
+ "Return"
+ cont jmpTarget: cogit Label.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcIsFloatObject:to: (in category 'inline primitive support') -----
+ genLcIsFloatObject: objectReg to: valueReg
+ <option: #LowcodeVM>
+ "TODO: Implement this one"
+ cogit MoveCq: 1 R: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcIsIndexable:to: (in category 'inline primitive support') -----
+ genLcIsIndexable: objectReg to: valueReg
+ <option: #LowcodeVM>
+ | isInteger isNotIndexable falseTarget cont |
+
+ "Check for integer"
+ cogit MoveR: objectReg R: TempReg.
+ cogit AndCq: 1 R: TempReg.
+ isInteger := cogit JumpNonZero: 0.
+
+ "Get the class format"
+ self genGetClassFormatOfNonInt: objectReg into: valueReg scratchReg: TempReg.
+
+ "Hack: consider a compiled method as bytes too."
+ cogit CmpCq: 2 R: valueReg.
+ isNotIndexable := cogit JumpLess: 0.
+
+ "True result"
+ cogit MoveCq: 1 R: valueReg.
+ cont := cogit Jump: 0.
+
+ "False result"
+ falseTarget := cogit Label.
+ isInteger jmpTarget: falseTarget.
+ isNotIndexable jmpTarget: falseTarget.
+ cogit MoveCq: 0 R: valueReg.
+
+ "Return"
+ cont jmpTarget: cogit Label.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcIsIntegerObject:to: (in category 'inline primitive support') -----
+ genLcIsIntegerObject: objectReg to: valueReg
+ <option: #LowcodeVM>
+ "TODO: Support larger integers"
+ cogit AndCq: 1 R: objectReg.
+ cogit ssPushNativeRegister: objectReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcIsPointers:to: (in category 'inline primitive support') -----
+ genLcIsPointers: objectReg to: valueReg
+ <option: #LowcodeVM>
+ | isInteger isNotIndexable falseTarget cont |
+
+ "Check for integer"
+ cogit MoveR: objectReg R: TempReg.
+ cogit AndCq: 1 R: TempReg.
+ isInteger := cogit JumpNonZero: 0.
+
+ "Get the class format"
+ self genGetClassFormatOfNonInt: objectReg into: valueReg scratchReg: TempReg.
+
+ "Hack: consider a compiled method as bytes too."
+ cogit CmpCq: 3 R: valueReg.
+ isNotIndexable := cogit JumpGreater: 0.
+
+ "True result"
+ cogit MoveCq: 1 R: valueReg.
+ cont := cogit Jump: 0.
+
+ "False result"
+ falseTarget := cogit Label.
+ isInteger jmpTarget: falseTarget.
+ isNotIndexable jmpTarget: falseTarget.
+ cogit MoveCq: 0 R: valueReg.
+
+ "Return"
+ cont jmpTarget: cogit Label.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcIsWords:to: (in category 'inline primitive support') -----
+ genLcIsWords: objectReg to: valueReg
+ <option: #LowcodeVM>
+ | isInteger isNotWords falseTarget cont |
+
+ "Check for integer"
+ cogit MoveR: objectReg R: TempReg.
+ cogit AndCq: 1 R: TempReg.
+ isInteger := cogit JumpNonZero: 0.
+
+ "Get the class format"
+ self genGetClassFormatOfNonInt: objectReg into: valueReg scratchReg: TempReg.
+
+ "Check for the words format"
+ cogit CmpCq: 6 R: valueReg.
+ isNotWords := cogit JumpNonZero: 0.
+
+ "True result"
+ cogit MoveCq: 1 R: valueReg.
+ cont := cogit Jump: 0.
+
+ "False result"
+ falseTarget := cogit Label.
+ isInteger jmpTarget: falseTarget.
+ isNotWords jmpTarget: falseTarget.
+ cogit MoveCq: 0 R: valueReg.
+
+ "Return"
+ cont jmpTarget: cogit Label.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcIsWordsOrBytes:to: (in category 'inline primitive support') -----
+ genLcIsWordsOrBytes: objectReg to: valueReg
+ <option: #LowcodeVM>
+ | isInteger isNotBytes falseTarget cont |
+
+ "Check for integer"
+ cogit MoveR: objectReg R: TempReg.
+ cogit AndCq: 1 R: TempReg.
+ isInteger := cogit JumpNonZero: 0.
+
+ "Get the class format"
+ self genGetClassFormatOfNonInt: objectReg into: valueReg scratchReg: TempReg.
+
+ "Hack: consider a compiled method as bytes too."
+ cogit CmpCq: 6 R: valueReg.
+ isNotBytes := cogit JumpLess: 0.
+
+ "True result"
+ cogit MoveCq: 1 R: valueReg.
+ cont := cogit Jump: 0.
+
+ "False result"
+ falseTarget := cogit Label.
+ isInteger jmpTarget: falseTarget.
+ isNotBytes jmpTarget: falseTarget.
+ cogit MoveCq: 0 R: valueReg.
+
+ "Return"
+ cont jmpTarget: cogit Label.
+ cogit ssPushNativeRegister: valueReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcLoadObject:at: (in category 'inline primitive support') -----
+ genLcLoadObject: object at: fieldIndex
+ <option: #LowcodeVM>
+ cogit AddCq: 1 R: fieldIndex.
+ cogit MoveXwr: fieldIndex R: object R: object.
+ cogit ssPushRegister: object!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcLoadObject:field: (in category 'inline primitive support') -----
+ genLcLoadObject: object field: fieldIndex
+ <option: #LowcodeVM>
+ cogit MoveMw: (fieldIndex+ 1) * BytesPerWord r: object R: object.
+ cogit ssPushRegister: object!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcOopToInt32: (in category 'inline primitive support') -----
+ genLcOopToInt32: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: ceSigned32BitValueOfTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushNativeRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcOopToUInt32: (in category 'inline primitive support') -----
+ genLcOopToUInt32: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: cePositive32BitValueOfTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushNativeRegister: ReceiverResultReg.!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcStore:object:at: (in category 'inline primitive support') -----
+ genLcStore: value object: object at: fieldIndex
+ <option: #LowcodeVM>
+ cogit AddCq: 1 R: fieldIndex.
+ cogit MoveR: value Xwr: fieldIndex R: object!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcStore:object:field: (in category 'inline primitive support') -----
+ genLcStore: value object: object field: fieldIndex
+ <option: #LowcodeVM>
+ cogit MoveR: value Mw: (fieldIndex+ 1) * BytesPerWord r: object!
Item was added:
+ ----- Method: CogObjectRepresentationForSqueakV3>>genLcUInt32ToOop: (in category 'inline primitive support') -----
+ genLcUInt32ToOop: value
+ <option: #LowcodeVM>
+ value ~= ReceiverResultReg ifTrue: [ cogit MoveR: value R: ReceiverResultReg.].
+ cogit CallRT: cePositive32BitIntegerTrampoline.
+
+ cogit MoveR: TempReg R: ReceiverResultReg.
+ cogit ssPushRegister: ReceiverResultReg.!
Item was changed:
----- Method: CogObjectRepresentationForSqueakV3>>generateObjectRepresentationTrampolines (in category 'initialization') -----
generateObjectRepresentationTrampolines
"Do the store check. Answer the argument for the benefit of the code generator;
ReceiverResultReg may be caller-saved and hence smashed by this call. Answering
it allows the code generator to reload ReceiverResultReg cheaply."
ceStoreCheckTrampoline := cogit
genTrampolineFor: #ceStoreCheck:
called: 'ceStoreCheckTrampoline'
arg: ReceiverResultReg
regsToSave: (CallerSavedRegisterMask bitClear: (cogit registerMaskFor: ReceiverResultReg))
result: cogit returnRegForStoreCheck.
ceCreateNewArrayTrampoline := cogit genTrampolineFor: #ceNewArraySlotSize:
called: 'ceCreateNewArrayTrampoline'
arg: SendNumArgsReg
regsToSave: (CallerSavedRegisterMask bitClear: (cogit registerMaskFor: ReceiverResultReg))
result: ReceiverResultReg.
cePositive32BitIntegerTrampoline := cogit genTrampolineFor: #positive32BitIntegerFor:
called: 'cePositive32BitIntegerTrampoline'
arg: ReceiverResultReg
regsToSave: (CallerSavedRegisterMask bitClear: (cogit registerMaskFor: ReceiverResultReg))
result: TempReg.
ceActiveContextTrampoline := self genActiveContextTrampoline.
ceClosureCopyTrampoline := cogit genTrampolineFor: #ceClosureCopyDescriptor:
called: 'ceClosureCopyTrampoline'
arg: SendNumArgsReg
regsToSave: (CallerSavedRegisterMask bitClear: (cogit registerMaskFor: ReceiverResultReg))
+ result: ReceiverResultReg.
+
+ self cppIf: LowcodeVM ifTrue: [
+ cePositive32BitValueOfTrampoline := cogit genTrampolineFor: #positive32BitValueOf:
+ called: 'cePositive32BitValueOfTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+ ceSigned32BitIntegerTrampoline := cogit genTrampolineFor: #signed32BitIntegerFor:
+ called: 'ceSigned32BitIntegerTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+ ceSigned32BitValueOfTrampoline := cogit genTrampolineFor: #signed32BitValueOf:
+ called: 'ceSigned32BitValueOfTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+
+ self generateLowcodeObjectTrampolines
+ ]!
- result: ReceiverResultReg!
Item was changed:
SharedPool subclass: #CogRTLOpcodes
instanceVariableNames: ''
+ classVariableNames: 'AddCqR AddCwR AddRR AddRdRd AddRsRs AddcCqR AddcRR AlignmentNops AndCqR AndCqRR AndCwR AndRR ArithmeticShiftRightCqR ArithmeticShiftRightRR Call CallFull CallR CmpC32R CmpCqR CmpCwR CmpRR CmpRdRd CmpRsRs ConvertRRd ConvertRRs ConvertRdR ConvertRdRs ConvertRsR ConvertRsRd DivRdRd DivRsRs Fill32 FirstJump FirstShortJump Jump JumpAbove JumpAboveOrEqual JumpBelow JumpBelowOrEqual JumpCarry JumpFPEqual JumpFPGreater JumpFPGreaterOrEqual JumpFPLess JumpFPLessOrEqual JumpFPNotEqual JumpFPOrdered JumpFPUnordered JumpFull JumpGreater JumpGreaterOrEqual JumpLess JumpLessOrEqual JumpLong JumpLongNonZero JumpLongZero JumpNegative JumpNoCarry JumpNoOverflow JumpNonNegative JumpNonZero JumpOverflow JumpR JumpZero Label LastJump LastRTLCode Literal LoadEffectiveAddressMwrR LoadEffectiveAddressXowrR LogicalShiftLeftCqR LogicalShiftLeftRR LogicalShiftRightCqR LogicalShiftRightRR MoveA32R MoveAbR MoveAwR MoveC32R MoveC64R MoveCqR MoveCwR MoveM16rR MoveM32rR MoveM32rRs MoveM64rRd MoveM8rR MoveMbrR MoveMs8rR MoveMwrR MoveRA32 MoveRAb MoveRAw MoveRM16r MoveRM32r MoveRM8r MoveRMbr MoveRMwr MoveRR MoveRRd MoveRX16rR MoveRX32rR MoveRXbrR MoveRXowr MoveRXwrR MoveRdM64r MoveRdR MoveRdRd MoveRsM32r MoveRsRs MoveX16rRR MoveX32rRR MoveXbrRR MoveXowrR MoveXwrRR MulRdRd MulRsRs NegateR Nop NotR OrCqR OrCwR OrRR PopR PrefetchAw PushCq PushCw PushR RetN RotateLeftCqR RotateRightCqR SignExtend16RR SignExtend8RR SqrtRd SqrtRs Stop SubCqR SubCwR SubRR SubRdRd SubRsRs SubbRR TstCqR XorCqR XorCwR XorRR XorRdRd XorRsRs ZeroExtend16RR ZeroExtend8RR'
- classVariableNames: 'AddCqR AddCwR AddRR AddRdRd AlignmentNops AndCqR AndCqRR AndCwR AndRR ArithmeticShiftRightCqR ArithmeticShiftRightRR Call CallFull CmpC32R CmpCqR CmpCwR CmpRR CmpRdRd ConvertRRd DivRdRd Fill32 FirstJump FirstShortJump Jump JumpAbove JumpAboveOrEqual JumpBelow JumpBelowOrEqual JumpCarry JumpFPEqual JumpFPGreater JumpFPGreaterOrEqual JumpFPLess JumpFPLessOrEqual JumpFPNotEqual JumpFPOrdered JumpFPUnordered JumpFull JumpGreater JumpGreaterOrEqual JumpLess JumpLessOrEqual JumpLong JumpLongNonZero JumpLongZero JumpNegative JumpNoCarry JumpNoOverflow JumpNonNegative JumpNonZero JumpOverflow JumpR JumpZero Label LastJump LastRTLCode Literal LoadEffectiveAddressMwrR LoadEffectiveAddressXowrR LogicalShiftLeftCqR LogicalShiftLeftRR LogicalShiftRightCqR LogicalShiftRightRR MoveA32R MoveAbR MoveAwR MoveC32R MoveC64R MoveCqR MoveCwR MoveM16rR MoveM32rR MoveM64rRd MoveMbrR MoveMwrR MoveRA32 MoveRAb MoveRAw MoveRM16r MoveRM32r MoveRMbr MoveRMwr MoveRR MoveRRd MoveRX16rR MoveRX32rR MoveRXbrR MoveRXowr MoveRXwrR MoveRdM64r MoveRdR MoveRdRd MoveX16rRR MoveX32rRR MoveXbrRR MoveXowrR MoveXwrRR MulRdRd NegateR Nop OrCqR OrCwR OrRR PopR PrefetchAw PushCq PushCw PushR RetN RotateLeftCqR RotateRightCqR SqrtRd Stop SubCqR SubCwR SubRR SubRdRd TstCqR XorCqR XorCwR XorRR'
poolDictionaries: ''
category: 'VMMaker-JIT'!
!CogRTLOpcodes commentStamp: 'eem 12/26/2015 14:00' prior: 0!
I am a pool for the Register-Transfer-Language to which Cog compiles. I define unique integer values for all RTL opcodes. See CogAbstractInstruction for instances of instructions with the opcodes that I define.!
Item was changed:
----- Method: CogRTLOpcodes class>>initialize (in category 'class initialization') -----
initialize
"Abstract opcodes are a compound of a one word operation specifier and zero or more operand type specifiers.
The assembler is in Cogit protocol abstract instructions and uses `at&t' syntax, assigning to the register on the
right. e.g. MoveRR is the Move opcode with two register operand specifiers and defines a move register to
register instruction from operand 0 to operand 1. The word and register size is assumed to be either 32-bits
on a 32-bit architecture or 64-bits on a 64-bit architecture. The abstract machine is mostly a 2 address machine
with the odd three address instruction added to better exploit RISCs.
(self initialize)
The operand specifiers are
R - general purpose register
+ Rs - single-precision floating-point register
Rd - double-precision floating-point register
Cq - a `quick' constant that can be encoded in the minimum space possible.
Cw - a constant with word size where word is the default operand size for the Smalltalk VM, 32-bits
for a 32-bit VM, 64-bits for a 64-bit VM. The generated constant must occupy the default number
of bits. This allows e.g. a garbage collector to update the value without invalidating the code.
C32 - a constant with 32 bit size. The generated constant must occupy 32 bits.
C64 - a constant with 64 bit size. The generated constant must occupy 64 bits.
Aw - memory word (32-bits for a 32-bit VM, 64-bits for a 64-bit VM) at an absolute address
Ab - memory byte at an absolute address
A32 - memory 32-bit halfword at an absolute address
Mwr - memory word whose address is at a constant offset from an address in a register
Mbr - memory byte whose address is at a constant offset from an address in a register (zero-extended on read)
M16r - memory 16-bit halfword whose address is at a constant offset from an address in a register
M32r - memory 32-bit halfword whose address is at a constant offset from an address in a register
M64r - memory 64-bit doubleword whose address is at a constant offset from an address in a register
Xbr - memory byte whose address is r * byte size away from an address in a register
X16r - memory 16-bit halfword whose address is r * (2 bytes size) away from an address in a register
X32r - memory 32-bit halfword whose address is r * (4 bytes size) away from an address in a register
Xwr - memory word whose address is r * word size away from an address in a register
Xowr - memory word whose address is o + (r * word size) away from an address in a register (scaled indexed)
An alternative would be to decouple opcodes from operands, e.g.
Move := 1. Add := 2. Sub := 3...
RegisterOperand := 1. ConstantQuickOperand := 2. ConstantWordOperand := 3...
But not all combinations make sense and even fewer are used so we stick with the simple compound approach.
The assumption is that comparison and arithmetic instructions set condition codes and that move instructions
leave the condition codes unaffected. In particular LoadEffectiveAddressMwrR does not set condition codes
although it can be used to do arithmetic. On processors such as MIPS this distinction is invalid; there are no
condition codes. So the backend is allowed to collapse operation, branch pairs to internal instruciton definitions
(see sender and implementors of noteFollowingConditionalBranch:).
Not all of the definitions in opcodeDefinitions below are implemented. In particular we do not implement the
XowrR scaled index addressing mode since it requires 4 operands.
Not all instructions make sense on all architectures. MoveRRd and MoveRdR aqre meaningful only on 64-bit machines.
Note that there are no generic division instructions defined, but a processor may define some.
Branch/Call ranges. Jump[Cond] can be generated as short as possible. Call/Jump[Cond]Long must be generated
in the same number of bytes irrespective of displacement since their targets may be updated, but they need only
span 16Mb, the maximum size of the code zone. This allows e.g. ARM to use single-word call and jump instructions
for most calls and jumps. CallFull/JumpFull must also be generated in the same number of bytes irrespective of
displacement for the same reason, but they must be able to span the full (32-bit or 64-bit) address space because
they are used to call code in the C runtime, which may be distant from the code zone. CallFull/JumpFull are allowed
to use the cResultRegister as a scratch if required (e.g. on x64 where there is no direct 64-bit call or jump).
Byte reads. If the concrete compiler class answers true to byteReadsZeroExtend then byte reads must zero-extend
the byte read into the destination register. If not, the other bits of the register should be left undisturbed and the
Cogit will add an instruction to zero the register as required. Under no circumstances should byte reads sign-extend.
16-bit (and on 64-bits, 32-bit) reads. These /are/ expected to always zero-extend."
| opcodeNames refs |
opcodeNames := #("Noops & Pseudo Ops"
Label
Literal "a word-sized literal"
AlignmentNops
Fill32 "output four byte's worth of bytes with operand 0"
Nop
"Control"
Call "call within the code zone"
CallFull "call anywhere within the full address space"
+ CallR
RetN
JumpR "Not a regular jump, i.e. not pc dependent."
Stop "Halt the processor"
"N.B. Jumps are contiguous. Long and Full jumps are contigiuous within them. See FirstJump et al below"
JumpFull "Jump anywhere within the address space"
JumpLong "Jump anywhere within the 16mb code zone."
JumpLongZero "a.k.a. JumpLongEqual"
JumpLongNonZero "a.k.a. JumpLongNotEqual"
Jump "short jumps; can be encoded in as few bytes as possible; will not be disturbed by GC or relocation."
JumpZero "a.k.a. JumpEqual"
JumpNonZero "a.k.a. JumpNotEqual"
JumpNegative
JumpNonNegative
JumpOverflow
JumpNoOverflow
JumpCarry
JumpNoCarry
JumpLess "signed"
JumpGreaterOrEqual
JumpGreater
JumpLessOrEqual
JumpBelow "unsigned"
JumpAboveOrEqual
JumpAbove
JumpBelowOrEqual
JumpFPEqual
JumpFPNotEqual
JumpFPLess
JumpFPLessOrEqual
JumpFPGreater
JumpFPGreaterOrEqual
JumpFPOrdered
JumpFPUnordered
"Data Movement; destination is always last operand"
MoveRR
MoveAwR MoveA32R
MoveRAw MoveRA32
MoveAbR
MoveRAb
MoveMwrR MoveRMwr MoveXwrRR MoveRXwrR MoveXowrR MoveRXowr
+ MoveM8rR MoveMs8rR MoveRM8r
MoveM16rR MoveRM16r MoveX16rRR MoveRX16rR
MoveM32rR MoveRM32r MoveX32rRR MoveRX32rR
MoveMbrR MoveRMbr MoveXbrRR MoveRXbrR
MoveCqR MoveCwR MoveC32R MoveC64R
MoveRRd MoveRdR MoveRdRd MoveM64rRd MoveRdM64r
+ MoveRsRs MoveM32rRs MoveRsM32r
PopR PushR PushCq PushCw
PrefetchAw
"Arithmetic; destination is always last operand except Cmp; CmpXR is SubRX with no update of result"
LoadEffectiveAddressMwrR LoadEffectiveAddressXowrR "Variants of add/multiply"
NegateR "2's complement negation"
+ NotR
ArithmeticShiftRightCqR ArithmeticShiftRightRR
LogicalShiftRightCqR LogicalShiftRightRR
LogicalShiftLeftCqR LogicalShiftLeftRR
RotateLeftCqR RotateRightCqR
CmpRR AddRR SubRR AndRR OrRR XorRR
CmpCqR AddCqR SubCqR AndCqR OrCqR TstCqR XorCqR
CmpCwR CmpC32R AddCwR SubCwR AndCwR OrCwR XorCwR
+ AddcRR AddcCqR SubbRR
AndCqRR "Three address ops for RISCs; feel free to add and extend"
+ CmpRdRd AddRdRd SubRdRd MulRdRd DivRdRd SqrtRd XorRdRd
+ CmpRsRs AddRsRs SubRsRs MulRsRs DivRsRs SqrtRs XorRsRs
- CmpRdRd AddRdRd SubRdRd MulRdRd DivRdRd SqrtRd
"Conversion"
+ ConvertRRd ConvertRdR
+ ConvertRsRd ConvertRdRs ConvertRsR ConvertRRs
- ConvertRRd
+ SignExtend8RR SignExtend16RR
+ ZeroExtend8RR ZeroExtend16RR
+
LastRTLCode).
"Magic auto declaration. Add to the classPool any new variables and nuke any obsolete ones, and assign values"
"Find the variables directly referenced by this method"
refs := (thisContext method literals select: [:l| l isVariableBinding and: [classPool includesKey: l key]]) collect:
[:ea| ea key].
"Move to Undeclared any opcodes in classPool not in opcodes or this method."
(classPool keys reject: [:k| (opcodeNames includes: k) or: [refs includes: k]]) do:
[:k|
Undeclared declare: k from: classPool].
"Declare as class variables and number elements of opcodeArray above"
opcodeNames withIndexDo:
[:classVarName :value|
self classPool
declare: classVarName from: Undeclared;
at: classVarName put: value].
"For CogAbstractInstruction>>isJump etc..."
FirstJump := JumpFull.
LastJump := JumpFPUnordered.
FirstShortJump := Jump.
"And now initialize the backends; they add their own opcodes and hence these must be reinitialized."
(Smalltalk classNamed: #CogAbstractInstruction) ifNotNil:
[:cogAbstractInstruction| cogAbstractInstruction allSubclasses do: [:sc| sc initialize]]!
Item was changed:
----- Method: CogRTLOpcodes class>>printFormatForOpcodeName: (in category 'debug printing') -----
printFormatForOpcodeName: opcodeName
"Answer a sequence of $r, $f or nil for the operands in the opcode, used for printing, where
r => integer register, f => floating point register, and nil => numeric or address operand."
| printFormat operands |
printFormat := OrderedCollection new.
operands := opcodeName.
[(#( ('Ab' nil) ('Aw' nil)
('Cw' nil) ('Cq' nil) ('C32' nil)
(Fill32 nil)
(Label nil) (Literal nil)
('Mb' nil) ('Mw' nil) ('M16' nil) ('M32' nil) ('M64' nil)
('Nops' nil)
+ ('R' $r) ('Rd' $f) ('Rs' $f)
- ('R' $r) ('Rd' $f)
('Xbr' $r) ('Xwr' $r) ('X16r' $r) ('X32r' $r) ('X64r' $r) ('X' $r) ('ow' nil)
('Greater' exit) ('Xor' exit) ('r' $r))
detect: [:pair| operands endsWith: pair first]
ifNone: [])
ifNil: [false]
ifNotNil:
[:match|
match last ~~ #exit
and: [operands := operands allButLast: match first size.
printFormat addFirst: match last.
true]]]
whileTrue.
(printFormat isEmpty and: [(operands beginsWith: 'Jump') or: [operands beginsWith: 'Call']]) ifTrue:
[printFormat addFirst: nil].
^printFormat
"classPool keys sort collect: [:k| { k. (self printFormatForOpcodeName: k) asArray}]"!
Item was changed:
CogBytecodeFixup subclass: #CogSSBytecodeFixup
+ instanceVariableNames: 'simStackPtr simNativeStackPtr simNativeStackSize'
- instanceVariableNames: 'simStackPtr'
classVariableNames: 'NeedsMergeFixupFlag NeedsNonMergeFixupFlag UnknownSimStackPtrFlag'
poolDictionaries: ''
category: 'VMMaker-JIT'!
!CogSSBytecodeFixup commentStamp: 'eem 1/20/2011 13:03' prior: 0!
A CogSSBytecodeFixup extends CogBytecodeFixup with state to merge the stack at control-flow joins. At a join the code generator must ensure that the stack is spilled to the same point along both branches and that the simStackPtr is correct.
Instance Variables
simStackPtr: <Integer>
simStackPtr
- the simStackPtr at the jump to this fixup. It should either agree with the incoming fixup if control continues, or replace the simStackPtr if contrl doesn't continue (the incomming control flow ended with a return)!
Item was changed:
----- Method: CogSSBytecodeFixup>>reinitialize (in category 'accessing') -----
reinitialize
<inline: true>
targetInstruction := 0.
+ simStackPtr := 0.
+ self cppIf: LowcodeVM ifTrue: [
+ simNativeStackPtr := 0.
+ ]!
- simStackPtr := 0.!
Item was changed:
----- Method: CogSSBytecodeFixup>>setIsBackwardBranchFixup (in category 'accessing') -----
setIsBackwardBranchFixup
<inline: true>
+ simStackPtr := UnknownSimStackPtrFlag.
+ self cppIf: LowcodeVM ifTrue: [
+ simNativeStackPtr := UnknownSimStackPtrFlag.
+ simNativeStackSize := 0.
+ ]
+ !
- simStackPtr := UnknownSimStackPtrFlag!
Item was added:
+ ----- Method: CogSSBytecodeFixup>>simNativeStackPtr (in category 'accessing') -----
+ simNativeStackPtr
+ "Answer the value of simStackPtr"
+
+ ^ simNativeStackPtr!
Item was added:
+ ----- Method: CogSSBytecodeFixup>>simNativeStackPtr: (in category 'accessing') -----
+ simNativeStackPtr: anObject
+ "Set the value of simStackPtr"
+
+ ^simNativeStackPtr := anObject!
Item was added:
+ ----- Method: CogSSBytecodeFixup>>simNativeStackSize (in category 'accessing') -----
+ simNativeStackSize
+ "Answer the value of simStackPtr"
+
+ ^ simNativeStackSize!
Item was added:
+ ----- Method: CogSSBytecodeFixup>>simNativeStackSize: (in category 'accessing') -----
+ simNativeStackSize: anObject
+ "Set the value of simStackPtr"
+
+ ^simNativeStackSize := anObject!
Item was added:
+ ----- Method: CogSimStackEntry>>floatRegisterMask (in category 'accessing') -----
+ floatRegisterMask
+ ^ 0!
Item was added:
+ VMStructType subclass: #CogSimStackNativeEntry
+ instanceVariableNames: 'cogit objectRepresentation type spilled register registerSecond offset constant constantInt32 constantInt64 constantFloat32 constantFloat64 constantNativePointer bcptr'
+ classVariableNames: ''
+ poolDictionaries: 'CogAbstractRegisters CogCompilationConstants CogRTLOpcodes'
+ category: 'VMMaker-JIT'!
Item was added:
+ ----- Method: CogSimStackNativeEntry class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') -----
+ instVarNamesAndTypesForTranslationDo: aBinaryBlock
+ "enumerate aBinaryBlock with the names and C type strings for the inst vars to include in a CogSimStackEntry struct."
+ "self printTypedefOn: Transcript"
+ self filteredInstVarNames do:
+ [:ivn|
+ aBinaryBlock
+ value: (ivn = 'register' ifTrue: ['registerr'] ifFalse: [ivn]) "avoid reservedWord conflict"
+ value: (ivn caseOf: {
+ ['constaintInt64'] -> [#sqLong].
+ ['constantFloat32'] -> [#float].
+ ['constantFloat64'] -> [#double].
+ ['type'] -> [#char].
+ ['spilled'] -> [#char].}
+ otherwise:
+ [#sqInt])]!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>bcptr (in category 'accessing') -----
+ bcptr
+ "Answer the value of bcptr"
+
+ ^ bcptr!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>bcptr: (in category 'accessing') -----
+ bcptr: anObject
+ "Set the value of bcptr"
+
+ ^bcptr := anObject!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>cogit (in category 'accessing') -----
+ cogit
+ "Answer the value of cogit"
+ <doNotGenerate>
+ ^cogit!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>cogit: (in category 'initialize-release') -----
+ cogit: aCogit
+ <doNotGenerate>
+ cogit := aCogit.
+ objectRepresentation := cogit objectRepresentation.
+ ^self!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>constantFloat32 (in category 'accessing') -----
+ constantFloat32
+ "Answer the value of constant float32"
+ self assert: type = SSConstantFloat32.
+ ^constantFloat32!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>constantFloat32: (in category 'accessing') -----
+ constantFloat32: aFloat32
+ "Set the value of constant float32"
+
+ ^constantFloat32 := aFloat32!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>constantFloat64 (in category 'accessing') -----
+ constantFloat64
+ "Answer the value of constant float64"
+ self assert: type = SSConstantFloat64.
+ ^constantFloat64!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>constantFloat64: (in category 'accessing') -----
+ constantFloat64: aFloat64
+ "Set the value of constant float64"
+
+ ^constantFloat64 := aFloat64!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>constantInt32 (in category 'accessing') -----
+ constantInt32
+ "Answer the value of constant int32"
+ self assert: type = SSConstantInt32.
+ ^constantInt32!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>constantInt32: (in category 'accessing') -----
+ constantInt32: anInteger
+ "Set the value of constant int32"
+
+ ^constantInt32 := anInteger!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>constantInt64 (in category 'accessing') -----
+ constantInt64
+ "Answer the value of constant int64"
+ self assert: type = SSConstantInt64.
+ ^constantInt64!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>constantInt64: (in category 'accessing') -----
+ constantInt64: anInteger
+ "Set the value of constant int64"
+
+ ^constantInt64 := anInteger!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>constantNativePointer (in category 'accessing') -----
+ constantNativePointer
+ "Answer the value of constant native pointer"
+ self assert: type = SSConstantNativePointer.
+ ^constantNativePointer!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>constantNativePointer: (in category 'accessing') -----
+ constantNativePointer: aNativePointer
+ "Set the value of constant int64"
+
+ ^constantNativePointer := aNativePointer!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>ensureIsMarkedAsSpilled (in category 'compile abstract instructions') -----
+ ensureIsMarkedAsSpilled
+ spilled ifFalse: [
+ type caseOf: {
+ [SSNativeRegister] -> [ type := SSSpillNative ].
+ [SSRegisterSingleFloat] -> [ type := SSSpillFloat32 ].
+ [SSRegisterDoubleFloat] -> [ type := SSSpillFloat64 ].
+ [SSConstantFloat32] -> [ type := SSSpillFloat32. ].
+ [SSConstantFloat64] -> [ type := SSSpillFloat64. ].
+ [SSConstantInt32] -> [ type := SSSpillNative. ].
+ [SSConstantNativePointer] -> [ type := SSSpillNative. ].
+ }
+ ].
+
+ spilled := true.
+ !
Item was added:
+ ----- Method: CogSimStackNativeEntry>>ensureSpilledSP:scratchRegister: (in category 'compile abstract instructions') -----
+ ensureSpilledSP: spRegister scratchRegister: scratchRegister
+ spilled ifFalse: [
+ type caseOf: {
+ [SSNativeRegister] -> [
+ cogit MoveR: register Mw: offset negated - 1 r: spRegister.
+ type := SSSpillNative.
+ ].
+ [SSRegisterSingleFloat] -> [
+ cogit MoveRs: register M32: offset negated - 1 r: spRegister.
+ type := SSSpillFloat32.
+ ].
+ [SSRegisterDoubleFloat] -> [
+ cogit MoveRd: register M64: offset negated - 1 r: spRegister.
+ type := SSSpillFloat64.
+ ].
+ [SSConstantFloat32] -> [
+ cogit MoveCw: constantFloat32 asIEEE32BitWord R: scratchRegister.
+ cogit MoveR: scratchRegister M32: offset negated - 1 r: spRegister.
+ type := SSSpillFloat32.
+ ].
+ [SSConstantFloat64] -> [
+ BytesPerWord == 4 ifTrue: [
+ cogit MoveCw: (constantFloat64 asIEEE64BitWord bitAnd: 16rFFFFFFFF) R: scratchRegister.
+ cogit MoveR: scratchRegister M32: offset negated - 1 r: spRegister.
+ cogit MoveCw: (constantFloat64 asIEEE64BitWord bitShift: (self cCoerce: -32 to: #'sqLong')) R: scratchRegister.
+ cogit MoveR: scratchRegister M32: offset negated - 1 + 4 r: spRegister.
+ ] ifFalse: [
+ cogit MoveCw: constantFloat32 asIEEE64BitWord R: scratchRegister.
+ cogit MoveR: scratchRegister Mw: offset negated - 1 r: spRegister.
+ ].
+ type := SSSpillFloat64.
+ ].
+ [SSConstantInt32] -> [
+ cogit MoveCq: constantInt32 R: scratchRegister.
+ cogit MoveR: scratchRegister Mw: offset negated - 1 r: spRegister.
+ type := SSSpillNative.
+ ].
+ [SSConstantNativePointer] -> [
+ cogit MoveCw: constantNativePointer R: scratchRegister.
+ cogit MoveR: scratchRegister Mw: offset negated - 1 r: spRegister.
+ type := SSSpillNative.
+ ].
+ }
+ ].
+
+ spilled := true.
+
+ !
Item was added:
+ ----- Method: CogSimStackNativeEntry>>nativeFloatRegisterMask (in category 'accessing') -----
+ nativeFloatRegisterMask
+ "Answer a bit mask for the receiver's register, if any."
+ ^ (type = SSRegisterSingleFloat or: [type = SSRegisterDoubleFloat])
+ ifTrue: [cogit registerMaskFor: register]
+ ifFalse: [0]!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>nativeFloatRegisterOrNone (in category 'accessing') -----
+ nativeFloatRegisterOrNone
+ ^ ([type = SSRegisterSingleFloat] or: [type = SSRegisterDoubleFloat])
+ ifTrue: [register]
+ ifFalse: [NoReg]!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>nativePopToReg: (in category 'compile abstract instructions') -----
+ nativePopToReg: reg
+ spilled ifTrue: [
+ cogit loadNativeFramePointerInto: TempReg.
+
+ type caseOf: {
+ [SSSpillNative] -> [cogit MoveMw: offset negated - 1 r: TempReg R: reg].
+ [SSSpillFloat32] -> [cogit MoveM32: offset negated - 1 r: TempReg Rs: reg.].
+ [SSSpillFloat64] -> [cogit MoveM64: offset negated - 1 r: TempReg Rd: reg.].}
+ ] ifFalse: [
+ type caseOf: {
+ [SSNativeRegister] -> [reg ~= register
+ ifTrue: [cogit MoveR: register R: reg]].
+ [SSRegisterSingleFloat] -> [reg ~= register
+ ifTrue: [cogit MoveRs: register Rs: reg]].
+ [SSRegisterDoubleFloat] -> [reg ~= register
+ ifTrue: [cogit MoveRd: register Rd: reg]].
+
+ [SSConstantInt32] -> [cogit MoveCq: constantInt32 R: reg].
+ [SSConstantNativePointer] -> [cogit MoveCw: constantNativePointer R: reg].
+ [SSConstantFloat32] -> [ cogit MoveCf32: constantFloat32 Rs: reg. ].
+ [SSConstantFloat64] -> [ cogit MoveCf64: constantFloat64 Rd: reg. ].
+ }
+ ].
+ !
Item was added:
+ ----- Method: CogSimStackNativeEntry>>nativePopToReg:secondReg: (in category 'compile abstract instructions') -----
+ nativePopToReg: reg secondReg: secondReg
+ self assert: BytesPerWord = 4.
+ spilled ifTrue: [
+ cogit PopR: reg; PopR: secondReg
+ ]
+ ifFalse: [
+ type caseOf: {
+ [SSConstantInt64] -> [
+ cogit MoveCq: (constantInt64 bitAnd: 16rFFFFFFFF) R: reg.
+ cogit MoveCq: ((constantInt64 >> 32) bitAnd: 16rFFFFFFFF) R: secondReg.
+ ].
+ [SSRegisterPair] -> [
+ cogit Label.
+ reg ~= register ifTrue: [
+ registerSecond = reg ifTrue: [
+ cogit MoveR: registerSecond R: TempReg.
+ ].
+ cogit MoveR: register R: reg
+ ].
+
+ registerSecond ~= secondReg ifTrue: [
+ registerSecond = reg ifTrue: [
+ cogit MoveR: TempReg R: secondReg.
+ ] ifFalse: [
+ cogit MoveR: registerSecond R: secondReg.
+ ]
+ ].
+ ].
+ }
+ ].
+ !
Item was added:
+ ----- Method: CogSimStackNativeEntry>>nativeRegisterMask (in category 'accessing') -----
+ nativeRegisterMask
+ "Answer a bit mask for the receiver's register, if any."
+ ^(((type = SSBaseOffset
+ or: [type = SSNativeRegister])
+ or: [type = SSRegisterSingleFloat])
+ or: [type = SSRegisterDoubleFloat])
+ ifTrue: [cogit registerMaskFor: register]
+ ifFalse: [
+ type = SSRegisterPair ifTrue: [(cogit registerMaskFor: register) bitOr: (cogit registerMaskFor: registerSecond)]
+ ifFalse: [0]]!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>nativeRegisterOrNone (in category 'accessing') -----
+ nativeRegisterOrNone
+ ^(type = SSRegister or: [type = SSRegisterPair])
+ ifTrue: [register]
+ ifFalse: [NoReg]!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>nativeStackPopToReg: (in category 'compile abstract instructions') -----
+ nativeStackPopToReg: reg
+ self assert: spilled.
+
+ type caseOf: {
+ [SSSpillNative] -> [cogit MoveMw: offset negated r: FPReg R: reg].
+ [SSSpillFloat32] -> [cogit MoveM32: offset negated r: FPReg Rs: reg.].
+ [SSSpillFloat64] -> [cogit MoveM64: offset negated r: FPReg Rd: reg.].
+ }!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>nativeStackPopToReg:secondReg: (in category 'compile abstract instructions') -----
+ nativeStackPopToReg: reg secondReg: secondReg
+ self assert: spilled.
+
+ type caseOf: {
+ [SSSpillInt64] -> [cogit MoveMw: offset negated + 4 r: FPReg R: reg.
+ cogit MoveMw: offset negated r: FPReg R: secondReg].
+ }!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>nativeStoreToReg: (in category 'compile abstract instructions') -----
+ nativeStoreToReg: reg
+ "FIXME: Duplicated code with popToReg:"
+ spilled ifTrue: [cogit loadNativeFramePointerInto: TempReg.].
+
+ type caseOf: {
+ [SSSpillNative] -> [cogit MoveMw: offset negated - 1 r: TempReg R: reg].
+ [SSSpillFloat32] -> [cogit MoveM32: offset negated - 1 r: TempReg Rs: reg.].
+ [SSSpillFloat64] -> [cogit MoveM64: offset negated - 1 r: TempReg Rd: reg.].
+ [SSNativeRegister] -> [reg ~= register
+ ifTrue: [cogit MoveR: register R: reg]
+ ifFalse: [cogit Label]].
+ [SSRegisterSingleFloat] -> [reg ~= register
+ ifTrue: [cogit MoveRs: register Rs: reg]
+ ifFalse: [cogit Label]].
+ [SSRegisterDoubleFloat] -> [reg ~= register
+ ifTrue: [cogit MoveRd: register Rd: reg]
+ ifFalse: [cogit Label]].
+
+ [SSConstantInt32] -> [cogit MoveCw: constantInt32 R: reg].
+ [SSConstantNativePointer] -> [cogit MoveCw: constantNativePointer R: reg].
+ [SSConstantFloat32] -> [ cogit MoveCf32: constantFloat32 Rs: reg. ].
+ [SSConstantFloat64] -> [ cogit MoveCf64: constantFloat64 Rd: reg. ].
+ }.!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>nativeStoreToReg:secondReg: (in category 'compile abstract instructions') -----
+ nativeStoreToReg: reg secondReg: secondReg
+ self assert: BytesPerWord = 4.
+ "FIXME: Duplicated code with popToReg:secondReg:"
+ type caseOf: {
+ [SSBaseOffset] -> [
+ cogit MoveMw: offset r: register R: reg.
+ cogit MoveMw: offset + 4 r: register R: secondReg.
+ ].
+ [SSSpillInt64] -> [
+ cogit MoveMw: offset r: register R: reg.
+ cogit MoveMw: offset + 4 r: registerSecond R: secondReg
+ ].
+ [SSRegisterPair] -> [
+ cogit Label.
+ reg ~= register ifTrue: [
+ registerSecond = reg ifTrue: [
+ cogit MoveR: registerSecond R: TempReg.
+ ].
+ cogit MoveR: register R: reg
+ ].
+
+ registerSecond ~= secondReg ifTrue: [
+ registerSecond = reg ifTrue: [
+ cogit MoveR: TempReg R: secondReg.
+ ] ifFalse: [
+ cogit MoveR: registerSecond R: secondReg.
+ ]
+ ].
+ ].
+ [SSConstantInt64] -> [
+ self MoveCq: (constantInt64 bitAnd: 16rFFFFFFFF) R: reg.
+ self MoveCq: ((constantInt64 >> 32) bitAnd: 16rFFFFFFFF) R: secondReg.
+ ].
+ }.
+ !
Item was added:
+ ----- Method: CogSimStackNativeEntry>>offset (in category 'accessing') -----
+ offset
+ <doNotGenerate>
+ "Answer the value of offset"
+ ^offset!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>offset: (in category 'accessing') -----
+ offset: anObject
+ <doNotGenerate>
+ "Set the value of offset"
+
+ ^offset := anObject!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>printStateOn: (in category 'printing') -----
+ printStateOn: aStream
+ <doNotGenerate> "Smalltalk-side only"
+ type isInteger ifFalse: [^self].
+ aStream nextPut: $(.
+ type caseOf: {
+ [SSNativeRegister] -> [aStream
+ nextPutAll: 'reg ';
+ nextPutAll: (CogRTLOpcodes nameForRegister: register)].
+ [SSRegisterPair] -> [aStream
+ nextPutAll: 'reg ';
+ nextPutAll: (CogRTLOpcodes nameForRegister: register);
+ nextPutAll: '+';
+ nextPutAll: (CogRTLOpcodes nameForRegister: registerSecond).].
+ [SSRegisterSingleFloat] -> [aStream
+ nextPutAll: 'regFloat32 ';
+ nextPutAll: (CogRTLOpcodes nameForRegister: register)].
+ [SSRegisterDoubleFloat] -> [aStream
+ nextPutAll: 'regFloat64 ';
+ nextPutAll: (CogRTLOpcodes nameForRegister: register)].
+
+ [SSSpillNative] -> [aStream
+ nextPutAll: 'spillNative @ '.
+ offset negative ifFalse: [aStream nextPut: $+].
+ aStream print: offset].
+ [SSSpillInt64] -> [aStream
+ nextPutAll: 'spillInt64 @ '.
+ offset negative ifFalse: [aStream nextPut: $+].
+ aStream print: offset].
+ [SSSpillFloat32] -> [aStream
+ nextPutAll: 'spillFloat32 @ '.
+ offset negative ifFalse: [aStream nextPut: $+].
+ aStream print: offset].
+ [SSSpillFloat64] -> [aStream
+ nextPutAll: 'spillFloat64 @ '.
+ offset negative ifFalse: [aStream nextPut: $+].
+ aStream print: offset].
+
+ [SSConstantInt32] -> [aStream
+ nextPutAll: 'constInt32 ';
+ print: constantInt32].
+ [SSConstantInt64] -> [aStream
+ nextPutAll: 'constInt64 ';
+ print: constantInt64].
+ [SSConstantFloat32] -> [aStream
+ nextPutAll: 'constFloat32 ';
+ print: constantFloat32].
+ [SSConstantFloat64] -> [aStream
+ nextPutAll: 'constFloat64 ';
+ print: constantFloat64].
+ [SSConstantNativePointer] -> [aStream
+ nextPutAll: 'constNativePointer ';
+ print: constantNativePointer]
+ }.
+ spilled ifTrue:
+ [aStream nextPutAll: ' (spilled)'].
+ bcptr ifNotNil:
+ [aStream space; nextPut: ${; print: bcptr; nextPut: $}].
+ aStream nextPut: $)!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>register (in category 'accessing') -----
+ register
+ <doNotGenerate>
+ "Answer the value of register"
+ self assert: ((([type = SSNativeRegister] or: [type = SSRegisterPair]) or: [type = SSRegisterSingleFloat]) or: [type = SSRegisterDoubleFloat]).
+ ^register!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>register: (in category 'accessing') -----
+ register: anObject
+ <doNotGenerate>
+ "Set the value of register"
+
+ ^register := anObject!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>registerSecond (in category 'accessing') -----
+ registerSecond
+ "Answer the value of register"
+ self assert: type = SSRegisterPair.
+ ^ registerSecond!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>registerSecond: (in category 'accessing') -----
+ registerSecond: anObject
+ "Set the value of register"
+
+ ^registerSecond := anObject!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>registerSecondOrNil (in category 'accessing') -----
+ registerSecondOrNil
+ ^ type SSRegisterPair ifTrue: [registerSecond]!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>spilled (in category 'accessing') -----
+ spilled
+ "Answer the value of spilled"
+
+ ^ spilled!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>spilled: (in category 'accessing') -----
+ spilled: anObject
+ "Set the value of spilled"
+
+ ^spilled := anObject!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>spillingNeedsScratchRegister (in category 'compile abstract instructions') -----
+ spillingNeedsScratchRegister
+ spilled ifFalse: [
+ type caseOf: {
+ [SSConstantInt32] -> [ ^ true ].
+ [SSConstantInt64] -> [ ^ true ].
+ [SSConstantFloat32] -> [ ^ true ].
+ [SSConstantFloat64] -> [ ^ true ].
+ [SSConstantNativePointer] -> [ ^ true ].
+ }
+ otherwise: [^ false]
+ ].
+
+ ^ false.
+ !
Item was added:
+ ----- Method: CogSimStackNativeEntry>>stackSpillSize (in category 'accessing') -----
+ stackSpillSize
+ <returnTypeC: #sqInt>
+ type caseOf: {
+ [SSConstantInt64] -> [ ^ 8 ].
+ [SSConstantFloat64] -> [ ^ 8 ].
+ [SSRegisterDoubleFloat] -> [ ^ 8 ].
+ [SSRegisterPair] -> [ ^ 8 ].
+ [SSSpillFloat64] -> [ ^ 8 ].
+ [SSSpillInt64] -> [ ^ 8 ].
+ } otherwise: [^ BytesPerOop ]!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>type (in category 'accessing') -----
+ type
+ "Answer the value of type"
+
+ ^ type!
Item was added:
+ ----- Method: CogSimStackNativeEntry>>type: (in category 'accessing') -----
+ type: anObject
+ "Set the value of type"
+
+ ^type := anObject!
Item was changed:
----- Method: CogVMSimulator>>extBBytecode (in category 'miscellaneous bytecodes') -----
extBBytecode
"225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)"
+ (extA = 0 and: [extB = 0 and: [extBFirstZero not]]) ifTrue:
- (extA = 0 and: [extB = 0]) ifTrue:
[lastExtPC := localIP].
^super extBBytecode!
Item was changed:
CogClass subclass: #Cogit
+ instanceVariableNames: 'coInterpreter objectMemory objectRepresentation processor threadManager methodZone methodZoneBase codeBase minValidCallAddress lastNInstructions simulatedAddresses simulatedTrampolines simulatedVariableGetters simulatedVariableSetters printRegisters printInstructions compilationTrace clickConfirm breakPC breakBlock singleStep guardPageSize traceFlags traceStores breakMethod methodObj enumeratingCogMethod methodHeader initialPC endPC methodOrBlockNumArgs inBlock needsFrame hasYoungReferent primitiveIndex backEnd literalsManager postCompileHook methodLabel stackCheckLabel blockEntryLabel blockEntryNoContextSwitch blockNoContextSwitchOffset stackOverflowCall sendMiss missOffset entryPointMask checkedEntryAlignment uncheckedEntryAlignment cmEntryOffset entry cmNoCheckEntryOffset noCheckEntry fullBlockEntry cbEntryOffset fullBlockNoContextSwitchEntry cbNoSwitchEntryOffset picMNUAbort picInterpretAbort endCPICCase0 endCPICCase1 firstCPICCaseOffset cPICCaseSize cPICEndSize closedPICSize openPICSize fixups abstractOpcodes generatorTable byte0 byte1 byte2 byte3 bytecodePC bytecodeSetOffset opcodeIndex numAbstractOpcodes blockStarts blockCount labelCounter cStackAlignment expectedSPAlignment expectedFPAlignment codeModified maxLitIndex ceMethodAbortTrampoline cePICAbortTrampoline ceCheckForInterruptTrampoline ceCPICMissTrampoline ceReturnToInterpreterTrampoline ceBaseFrameReturnTrampoline ceSendMustBeBooleanAddTrueTrampoline ceSendMustBeBooleanAddFalseTrampoline ceCannotResumeTrampoline ceEnterCogCodePopReceiverReg ceCallCogCodePopReceiverReg ceCallCogCodePopReceiverAndClassRegs cePrimReturnEnterCogCode cePrimReturnEnterCogCodeProfiling ceNonLocalReturnTrampoline ceFetchContextInstVarTrampoline ceStoreContextInstVarTrampoline ceEnclosingObjectTrampoline ceFlushICache ceCheckFeaturesFunction ceTraceLinkedSendTrampoline ceTraceBlockActivationTrampoline ceTraceStoreTrampoline ceGetFP ceGetSP ceCaptureCStackPointers ordinarySendTrampolines superSendTrampolines directedSuperSendTrampolines dynamicSuperSendTrampolines outerSendTrampolines selfSendTrampolines firstSend lastSend realCEEnterCogCodePopReceiverReg realCECallCogCodePopReceiverReg realCECallCogCodePopReceiverAndClassRegs trampolineTableIndex trampolineAddresses objectReferencesInRuntime runtimeObjectRefIndex cFramePointerInUse debugPrimCallStackOffset ceTryLockVMOwner ceUnlockVMOwner extA extB extBFirstZero tempOop numIRCs indexOfIRC theIRCs implicitReceiverSendTrampolines cogMethodSurrogateClass cogBlockMethodSurrogateClass nsSendCacheSurrogateClass CStackPointer CFramePointer cPICPrototype cPICEndOfCodeOffset cPICEndOfCodeLabel maxCPICCases debugBytecodePointers debugOpcodeIndices disassemblingMethod ceMallocTrampoline ceFreeTrampoline ceFFICalloutTrampoline'
- instanceVariableNames: 'coInterpreter objectMemory objectRepresentation processor threadManager methodZone methodZoneBase codeBase minValidCallAddress lastNInstructions simulatedAddresses simulatedTrampolines simulatedVariableGetters simulatedVariableSetters printRegisters printInstructions compilationTrace clickConfirm breakPC breakBlock singleStep guardPageSize traceFlags traceStores breakMethod methodObj enumeratingCogMethod methodHeader initialPC endPC methodOrBlockNumArgs inBlock needsFrame hasYoungReferent primitiveIndex backEnd literalsManager postCompileHook methodLabel stackCheckLabel blockEntryLabel blockEntryNoContextSwitch blockNoContextSwitchOffset stackOverflowCall sendMiss missOffset entryPointMask checkedEntryAlignment uncheckedEntryAlignment cmEntryOffset entry cmNoCheckEntryOffset noCheckEntry fullBlockEntry cbEntryOffset fullBlockNoContextSwitchEntry cbNoSwitchEntryOffset picMNUAbort picInterpretAbort endCPICCase0 endCPICCase1 firstCPICCaseOffset cPICCaseSize cPICEndSize closedPICSize openPICSize fixups abstractOpcodes generatorTable byte0 byte1 byte2 byte3 bytecodePC bytecodeSetOffset opcodeIndex numAbstractOpcodes blockStarts blockCount labelCounter cStackAlignment expectedSPAlignment expectedFPAlignment codeModified maxLitIndex ceMethodAbortTrampoline cePICAbortTrampoline ceCheckForInterruptTrampoline ceCPICMissTrampoline ceReturnToInterpreterTrampoline ceBaseFrameReturnTrampoline ceSendMustBeBooleanAddTrueTrampoline ceSendMustBeBooleanAddFalseTrampoline ceCannotResumeTrampoline ceEnterCogCodePopReceiverReg ceCallCogCodePopReceiverReg ceCallCogCodePopReceiverAndClassRegs cePrimReturnEnterCogCode cePrimReturnEnterCogCodeProfiling ceNonLocalReturnTrampoline ceFetchContextInstVarTrampoline ceStoreContextInstVarTrampoline ceEnclosingObjectTrampoline ceFlushICache ceCheckFeaturesFunction ceTraceLinkedSendTrampoline ceTraceBlockActivationTrampoline ceTraceStoreTrampoline ceGetFP ceGetSP ceCaptureCStackPointers ordinarySendTrampolines superSendTrampolines directedSuperSendTrampolines dynamicSuperSendTrampolines outerSendTrampolines selfSendTrampolines firstSend lastSend realCEEnterCogCodePopReceiverReg realCECallCogCodePopReceiverReg realCECallCogCodePopReceiverAndClassRegs trampolineTableIndex trampolineAddresses objectReferencesInRuntime runtimeObjectRefIndex cFramePointerInUse debugPrimCallStackOffset ceTryLockVMOwner ceUnlockVMOwner extA extB tempOop numIRCs indexOfIRC theIRCs implicitReceiverSendTrampolines cogMethodSurrogateClass cogBlockMethodSurrogateClass nsSendCacheSurrogateClass CStackPointer CFramePointer cPICPrototype cPICEndOfCodeOffset cPICEndOfCodeLabel debugBytecodePointers debugOpcodeIndices disassemblingMethod'
classVariableNames: 'AltBlockCreationBytecodeSize AltFirstSpecialSelector AltNSSendIsPCAnnotated AltNumSpecialSelectors AnnotationConstantNames AnnotationShift AnnotationsWithBytecodePCs BlockCreationBytecodeSize Debug DisplacementMask DisplacementX2N EagerInstructionDecoration FirstAnnotation FirstSpecialSelector HasBytecodePC IsAbsPCReference IsAnnotationExtension IsDirectedSuperSend IsDisplacementX2N IsNSDynamicSuperSend IsNSImplicitReceiverSend IsNSSelfSend IsNSSendCall IsObjectReference IsRelativeCall IsSendCall IsSuperSend MapEnd MaxCPICCases MaxCompiledPrimitiveIndex MaxStackAllocSize MaxX2NDisplacement NSCClassTagIndex NSCEnclosingObjectIndex NSCNumArgsIndex NSCSelectorIndex NSCTargetIndex NSSendIsPCAnnotated NeedsFixupFlag NumObjRefsInRuntime NumOopsPerNSC NumSpecialSelectors NumTrampolines ProcessorClass'
poolDictionaries: 'CogAbstractRegisters CogCompilationConstants CogMethodConstants CogRTLOpcodes VMBasicConstants VMBytecodeConstants VMObjectIndices VMStackFrameOffsets'
category: 'VMMaker-JIT'!
Cogit class
instanceVariableNames: 'generatorTable primitiveTable'!
!Cogit commentStamp: 'eem 4/6/2015 15:56' prior: 0!
I am the code generator for the Cog VM. My job is to produce machine code versions of methods for faster execution and to manage inline caches for faster send performance. I can be tested in the current image using my class-side in-image compilation facilities. e.g. try
StackToRegisterMappingCogit genAndDis: (Integer >> #benchFib)
I have concrete subclasses that implement different levels of optimization:
SimpleStackBasedCogit is the simplest code generator.
StackToRegisterMappingCogit is the current production code generator It defers pushing operands
to the stack until necessary and implements a register-based calling convention for low-arity sends.
StackToRegisterMappingCogit is an experimental code generator with support for counting
conditional branches, intended to support adaptive optimization.
coInterpreter <CoInterpreterSimulator>
the VM's interpreter with which I cooperate
methodZoneManager <CogMethodZoneManager>
the manager of the machine code zone
objectRepresentation <CogObjectRepresentation>
the object used to generate object accesses
processor <BochsIA32Alien|?>
the simulator that executes the IA32/x86 machine code I generate when simulating execution in Smalltalk
simulatedTrampolines <Dictionary of Integer -> MessageSend>
the dictionary mapping trap jump addresses to run-time routines used to warp from simulated machine code in to the Smalltalk run-time.
simulatedVariableGetters <Dictionary of Integer -> MessageSend>
the dictionary mapping trap read addresses to variables in run-time objects used to allow simulated machine code to read variables in the Smalltalk run-time.
simulatedVariableSetters <Dictionary of Integer -> MessageSend>
the dictionary mapping trap write addresses to variables in run-time objects used to allow simulated machine code to write variables in the Smalltalk run-time.
printRegisters printInstructions clickConfirm <Boolean>
flags controlling debug printing and code simulation
breakPC <Integer>
machine code pc breakpoint
cFramePointer cStackPointer <Integer>
the variables representing the C stack & frame pointers, which must change on FFI callback and return
selectorOop <sqInt>
the oop of the methodObj being compiled
methodObj <sqInt>
the bytecode method being compiled
initialPC endPC <Integer>
the start and end pcs of the methodObj being compiled
methodOrBlockNumArgs <Integer>
argument count of current method or block being compiled
needsFrame <Boolean>
whether methodObj or block needs a frame to execute
primitiveIndex <Integer>
primitive index of current method being compiled
methodLabel <CogAbstractOpcode>
label for the method header
blockEntryLabel <CogAbstractOpcode>
label for the start of the block dispatch code
stackOverflowCall <CogAbstractOpcode>
label for the call of ceStackOverflow in the method prolog
sendMissCall <CogAbstractOpcode>
label for the call of ceSICMiss in the method prolog
entryOffset <Integer>
offset of method entry code from start (header) of method
entry <CogAbstractOpcode>
label for the first instruction of the method entry code
noCheckEntryOffset <Integer>
offset of the start of a method proper (after the method entry code) from start (header) of method
noCheckEntry <CogAbstractOpcode>
label for the first instruction of start of a method proper
fixups <Array of <AbstractOpcode Label | nil>>
the labels for forward jumps that will be fixed up when reaching the relevant bytecode. fixup shas one element per byte in methodObj's bytecode
abstractOpcodes <Array of <AbstractOpcode>>
the code generated when compiling methodObj
byte0 byte1 byte2 byte3 <Integer>
individual bytes of current bytecode being compiled in methodObj
bytecodePointer <Integer>
bytecode pc (same as Smalltalk) of the current bytecode being compiled
opcodeIndex <Integer>
the index of the next free entry in abstractOpcodes (this code is translated into C where OrderedCollection et al do not exist)
numAbstractOpcodes <Integer>
the number of elements in abstractOpcocdes
blockStarts <Array of <BlockStart>>
the starts of blocks in the current method
blockCount
the index into blockStarts as they are being noted, and hence eventually the total number of blocks in the current method
labelCounter <Integer>
a nicety for numbering labels not needed in the production system but probably not expensive enough to worry about
ceStackOverflowTrampoline <Integer>
ceSend0ArgsTrampoline <Integer>
ceSend1ArgsTrampoline <Integer>
ceSend2ArgsTrampoline <Integer>
ceSendNArgsTrampoline <Integer>
ceSendSuper0ArgsTrampoline <Integer>
ceSendSuper1ArgsTrampoline <Integer>
ceSendSuper2ArgsTrampoline <Integer>
ceSendSuperNArgsTrampoline <Integer>
ceSICMissTrampoline <Integer>
ceCPICMissTrampoline <Integer>
ceStoreCheckTrampoline <Integer>
ceReturnToInterpreterTrampoline <Integer>
ceBaseFrameReturnTrampoline <Integer>
ceSendMustBeBooleanTrampoline <Integer>
ceClosureCopyTrampoline <Integer>
the various trampolines (system-call-like jumps from machine code to the run-time).
See Cogit>>generateTrampolines for the mapping from trampoline to run-time
routine and then read the run-time routine for a funcitonal description.
ceEnterCogCodePopReceiverReg <Integer>
the enilopmart (jump from run-time to machine-code)
methodZoneBase <Integer>
!
Cogit class
instanceVariableNames: 'generatorTable primitiveTable'!
Item was changed:
----- Method: Cogit class>>generatorTableFrom: (in category 'class initialization') -----
generatorTableFrom: anArray
| blockCreationBytecodeSize |
generatorTable := CArrayAccessor on: (Array new: 256).
anArray do:
[:tuple| | descriptor |
(descriptor := CogBytecodeDescriptor new)
numBytes: tuple first;
generator: tuple fourth;
isReturn: (tuple includes: #return);
isMapped: ((tuple includes: #isMappedIfImmutability)
ifTrue: [self bindingOf: #IMMUTABILITY]
ifFalse: [tuple includes: #isMapped]);
isMappedInBlock: (tuple includes: #isMappedInBlock);
isBlockCreation: (tuple includes: #block);
spanFunction: (((tuple includes: #block) or: [(tuple includes: #branch)]) ifTrue:
[tuple detect: [:thing| thing isSymbol and: [thing numArgs = 4]]]);
isBranchTrue: (tuple includes: #isBranchTrue);
isBranchFalse: (tuple includes: #isBranchFalse);
isExtension: (tuple includes: #extension);
isInstVarRef: (tuple includes: #isInstVarRef); "for Spur"
is1ByteInstVarStore: (tuple includes: #is1ByteInstVarStore); "for Spur"
+ isCallPrimitive: (tuple includes: #callPrimitive);
hasIRC: (tuple includes: #hasIRC); "for Newspeak"
yourself.
"As a hack to cut down on descriptor flags, use opcode to tag unusedBytecode for scanning.
Currently descriptors are exactly 16 bytes with all 8 flag bits used (in Newspeak at least 17 bytes,
9 flag bits). As another hack to eliminate a test in scanMethod mark unknowns as extensions."
descriptor generator == #unknownBytecode ifTrue:
[descriptor opcode: Nop; isExtension: true].
descriptor isBlockCreation ifTrue:
[blockCreationBytecodeSize
ifNil: [blockCreationBytecodeSize := descriptor numBytes]
ifNotNil: [self assert: blockCreationBytecodeSize = descriptor numBytes]].
tuple do:
[:thing|
thing isSymbol ifTrue:
[(thing beginsWith: #needsFrame) ifTrue:
[descriptor needsFrameFunction: thing].
(CogRTLOpcodes classPool at: thing ifAbsent: []) ifNotNil:
[:opcode| descriptor opcode: opcode]]].
tuple last isInteger
ifTrue: [descriptor stackDelta: tuple last]
ifFalse:
[descriptor needsFrameFunction ifNotNil:
[self error: 'frameless block bytecodes must specify a stack delta']].
tuple second to: tuple third do:
[:index|
generatorTable at: index put: descriptor]].
BlockCreationBytecodeSize := blockCreationBytecodeSize.
^generatorTable!
Item was changed:
----- Method: Cogit class>>numTrampolines (in category 'accessing') -----
numTrampolines
+ ^38 "30 + 4 each for self and super sends"
- ^35 "27 + 4 each for self and super sends"
"self withAllSubclasses collect: [:c| {c. (c instVarNames select: [:ea| ea beginsWith: 'ce']) size}]"!
Item was added:
+ ----- Method: Cogit>>AddRs:Rs: (in category 'abstract instructions') -----
+ AddRs: dpreg1 Rs: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: AddRsRs operand: dpreg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>AddcCq:R: (in category 'abstract instructions') -----
+ AddcCq: quickConstant R: reg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: AddcCqR quickConstant: quickConstant operand: reg!
Item was added:
+ ----- Method: Cogit>>AddcR:R: (in category 'abstract instructions') -----
+ AddcR: reg1 R: reg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: AddcRR operand: reg1 operand: reg2!
Item was added:
+ ----- Method: Cogit>>CallR: (in category 'abstract instructions') -----
+ CallR: callTarget
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: CallR operand: callTarget!
Item was added:
+ ----- Method: Cogit>>CmpRs:Rs: (in category 'abstract instructions') -----
+ CmpRs: dpreg1 Rs: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: CmpRsRs operand: dpreg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>ConvertR:Rs: (in category 'abstract instructions') -----
+ ConvertR: reg1 Rs: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: ConvertRRs operand: reg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>ConvertRd:R: (in category 'abstract instructions') -----
+ ConvertRd: reg1 R: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: ConvertRdR operand: reg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>ConvertRd:Rs: (in category 'abstract instructions') -----
+ ConvertRd: reg1 Rs: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: ConvertRdRs operand: reg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>ConvertRs:R: (in category 'abstract instructions') -----
+ ConvertRs: reg1 R: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: ConvertRsR operand: reg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>ConvertRs:Rd: (in category 'abstract instructions') -----
+ ConvertRs: reg1 Rd: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: ConvertRsRd operand: reg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>DivRs:Rs: (in category 'abstract instructions') -----
+ DivRs: dpreg1 Rs: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: DivRsRs operand: dpreg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>MoveCf32:Rs: (in category 'abstract instructions') -----
+ MoveCf32: constantFloat32 Rs: register
+ <inline: true>
+ <var: #constantFloat32 type: #float>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^ backEnd genMoveCf32: constantFloat32 Rs: register!
Item was added:
+ ----- Method: Cogit>>MoveCf64:Rd: (in category 'abstract instructions') -----
+ MoveCf64: constantFloat64 Rd: register
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ <var: #constantFloat64 type: #double>
+ ^ backEnd genMoveCf64: constantFloat64 Rd: register!
Item was added:
+ ----- Method: Cogit>>MoveM32:r:R: (in category 'abstract instructions') -----
+ MoveM32: offset r: baseReg R: destReg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: MoveM32rR quickConstant: offset operand: baseReg operand: destReg!
Item was added:
+ ----- Method: Cogit>>MoveM32:r:Rs: (in category 'abstract instructions') -----
+ MoveM32: offset r: baseReg Rs: destDPReg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: MoveM32rRs quickConstant: offset operand: baseReg operand: destDPReg!
Item was added:
+ ----- Method: Cogit>>MoveM8:r:R: (in category 'abstract instructions') -----
+ MoveM8: offset r: baseReg R: destReg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: MoveM8rR quickConstant: offset operand: baseReg operand: destReg!
Item was added:
+ ----- Method: Cogit>>MoveR:M32:r: (in category 'abstract instructions') -----
+ MoveR: sourceReg M32: offset r: baseReg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: MoveRM32r operand: sourceReg quickConstant: offset operand: baseReg!
Item was added:
+ ----- Method: Cogit>>MoveR:M8:r: (in category 'abstract instructions') -----
+ MoveR: sourceReg M8: offset r: baseReg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: MoveRM8r operand: sourceReg quickConstant: offset operand: baseReg!
Item was added:
+ ----- Method: Cogit>>MoveRs:M32:r: (in category 'abstract instructions') -----
+ MoveRs: sourceDPReg M32: offset r: baseReg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: MoveRsM32r operand: sourceDPReg quickConstant: offset operand: baseReg!
Item was added:
+ ----- Method: Cogit>>MoveRs:Rs: (in category 'abstract instructions') -----
+ MoveRs: dpreg1 Rs: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: MoveRsRs operand: dpreg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>MulRs:Rs: (in category 'abstract instructions') -----
+ MulRs: dpreg1 Rs: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: MulRsRs operand: dpreg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>NotR: (in category 'abstract instructions') -----
+ NotR: reg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: NotR operand: reg!
Item was added:
+ ----- Method: Cogit>>PopRd: (in category 'abstract instructions') -----
+ PopRd: reg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^ backEnd genPopRd: reg!
Item was added:
+ ----- Method: Cogit>>PopRs: (in category 'abstract instructions') -----
+ PopRs: reg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^ backEnd genPopRs: reg!
Item was added:
+ ----- Method: Cogit>>PushC64: (in category 'abstract instructions') -----
+ PushC64: constant64Bits
+ <inline: true>
+ <var: #constant64Bits type: #sqLong>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^ backEnd genPushC64: constant64Bits!
Item was added:
+ ----- Method: Cogit>>PushRd: (in category 'abstract instructions') -----
+ PushRd: reg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^ backEnd genPushRd: reg!
Item was added:
+ ----- Method: Cogit>>PushRs: (in category 'abstract instructions') -----
+ PushRs: reg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^ backEnd genPushRs: reg!
Item was added:
+ ----- Method: Cogit>>SignExtend16R:R: (in category 'abstract instructions') -----
+ SignExtend16R: reg1 R: reg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: SignExtend16RR operand: reg1 operand: reg2!
Item was added:
+ ----- Method: Cogit>>SignExtend8R:R: (in category 'abstract instructions') -----
+ SignExtend8R: reg1 R: reg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: SignExtend8RR operand: reg1 operand: reg2!
Item was added:
+ ----- Method: Cogit>>SqrtRs: (in category 'abstract instructions') -----
+ SqrtRs: dpreg
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: SqrtRs operand: dpreg!
Item was added:
+ ----- Method: Cogit>>SubRs:Rs: (in category 'abstract instructions') -----
+ SubRs: dpreg1 Rs: dpreg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: SubRsRs operand: dpreg1 operand: dpreg2!
Item was added:
+ ----- Method: Cogit>>SubbR:R: (in category 'abstract instructions') -----
+ SubbR: reg1 R: reg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: SubbRR operand: reg1 operand: reg2!
Item was added:
+ ----- Method: Cogit>>XorRd:Rd: (in category 'abstract instructions') -----
+ XorRd: reg1 Rd: reg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: XorRdRd operand: reg1 operand: reg2!
Item was added:
+ ----- Method: Cogit>>XorRs:Rs: (in category 'abstract instructions') -----
+ XorRs: reg1 Rs: reg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: XorRsRs operand: reg1 operand: reg2!
Item was added:
+ ----- Method: Cogit>>ZeroExtend16R:R: (in category 'abstract instructions') -----
+ ZeroExtend16R: reg1 R: reg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: ZeroExtend16RR operand: reg1 operand: reg2!
Item was added:
+ ----- Method: Cogit>>ZeroExtend8R:R: (in category 'abstract instructions') -----
+ ZeroExtend8R: reg1 R: reg2
+ <inline: true>
+ <returnTypeC: #'AbstractInstruction *'>
+ ^self gen: ZeroExtend8RR operand: reg1 operand: reg2!
Item was added:
+ ----- Method: Cogit>>ceFree: (in category 'trampoline support') -----
+ ceFree: pointer
+ <api>
+ <var: #pointer type: #'void*'>
+ self free: pointer!
Item was added:
+ ----- Method: Cogit>>ceMalloc: (in category 'trampoline support') -----
+ ceMalloc: size
+ <api>
+ <var: #size type: #'size_t'>
+ <returnTypeC: #'void*'>
+ ^ self malloc: size!
Item was changed:
----- Method: Cogit>>collectMapEntry:address:into: (in category 'disassembly') -----
collectMapEntry: annotation address: mcpc into: aDictionary
<doNotGenerate>
aDictionary
at: mcpc
ifPresent:
[:extant|
aDictionary
at: mcpc
put: extant, ':\' withCRs, (self class annotationConstantNames at: annotation + 1)]
+ ifAbsent: [ aDictionary at: mcpc put: (self class annotationConstantNames at: annotation + 1)].
- ifAbsentPut: [self class annotationConstantNames at: annotation + 1].
^0!
Item was added:
+ ----- Method: Cogit>>compileCallFor:numArgs:arg:arg:arg:arg:floatResultReg:regsToSave: (in category 'initialization') -----
+ compileCallFor: aRoutine numArgs: numArgs arg: regOrConst0 arg: regOrConst1 arg: regOrConst2 arg: regOrConst3 floatResultReg: resultRegOrNone regsToSave: regMask
+ "Generate a call to aRoutine with up to 4 arguments. If resultRegOrNone is not
+ NoReg assign the C result to resultRegOrNone. If saveRegs, save all registers.
+ Hack: a negative arg value indicates an abstract register, a non-negative value
+ indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <inline: false>
+ | regsToSave |
+ regsToSave := resultRegOrNone = NoReg
+ ifTrue: [regMask]
+ ifFalse: [regMask bitClear: (self registerMaskFor: resultRegOrNone)].
+ cStackAlignment > objectMemory wordSize ifTrue:
+ [backEnd
+ genAlignCStackSavingRegisters: regsToSave
+ numArgs: numArgs
+ wordAlignment: cStackAlignment / objectMemory wordSize].
+ backEnd
+ genSaveRegs: regsToSave;
+ genMarshallNArgs: numArgs arg: regOrConst0 arg: regOrConst1 arg: regOrConst2 arg: regOrConst3.
+ self CallFullRT: (self cCode: [aRoutine asUnsignedInteger]
+ inSmalltalk: [self simulatedTrampolineFor: aRoutine]).
+ resultRegOrNone ~= NoReg ifTrue:
+ [backEnd cFloatResultToRd: resultRegOrNone].
+ numArgs > 0 ifTrue:
+ [backEnd genRemoveNArgsFromStack: numArgs].
+ backEnd genRestoreRegs: regsToSave!
Item was added:
+ ----- Method: Cogit>>compileCallFor:numArgs:arg:arg:arg:arg:resultReg:resultReg:regsToSave: (in category 'initialization') -----
+ compileCallFor: aRoutine numArgs: numArgs arg: regOrConst0 arg: regOrConst1 arg: regOrConst2 arg: regOrConst3 resultReg: resultRegOrNone resultReg: resultReg2OrNone regsToSave: regMask
+ "Generate a call to aRoutine with up to 4 arguments. If resultRegOrNone is not
+ NoReg assign the C result to resultRegOrNone. If saveRegs, save all registers.
+ Hack: a negative arg value indicates an abstract register, a non-negative value
+ indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <inline: false>
+ | regsToSave |
+ regsToSave := resultRegOrNone = NoReg
+ ifTrue: [regMask]
+ ifFalse: [regMask bitClear: (self registerMaskFor: resultRegOrNone)].
+ cStackAlignment > objectMemory wordSize ifTrue:
+ [backEnd
+ genAlignCStackSavingRegisters: regsToSave
+ numArgs: numArgs
+ wordAlignment: cStackAlignment / objectMemory wordSize].
+ backEnd
+ genSaveRegs: regsToSave;
+ genMarshallNArgs: numArgs arg: regOrConst0 arg: regOrConst1 arg: regOrConst2 arg: regOrConst3.
+ self CallFullRT: (self cCode: [aRoutine asUnsignedInteger]
+ inSmalltalk: [self simulatedTrampolineFor: aRoutine]).
+ resultRegOrNone ~= NoReg ifTrue:
+ [backEnd genWriteCResultIntoReg: resultRegOrNone].
+ resultReg2OrNone ~= NoReg ifTrue:
+ [backEnd genWriteCSecondResultIntoReg: resultReg2OrNone].
+ numArgs > 0 ifTrue:
+ [backEnd genRemoveNArgsFromStack: numArgs].
+ backEnd genRestoreRegs: regsToSave!
Item was added:
+ ----- Method: Cogit>>compileCallFor:numArgs:floatArg:floatArg:floatArg:floatArg:resultReg:regsToSave: (in category 'initialization') -----
+ compileCallFor: aRoutine numArgs: numArgs floatArg: regOrConst0 floatArg: regOrConst1 floatArg: regOrConst2 floatArg: regOrConst3 resultReg: resultRegOrNone regsToSave: regMask
+ "Generate a call to aRoutine with up to 4 arguments. If resultRegOrNone is not
+ NoReg assign the C result to resultRegOrNone. If saveRegs, save all registers.
+ Hack: a negative arg value indicates an abstract register, a non-negative value
+ indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <inline: false>
+ | regsToSave |
+ regsToSave := resultRegOrNone = NoReg
+ ifTrue: [regMask]
+ ifFalse: [regMask bitClear: (self registerMaskFor: resultRegOrNone)].
+ cStackAlignment > objectMemory wordSize ifTrue:
+ [backEnd
+ genAlignCStackSavingRegisters: regsToSave
+ numArgs: numArgs
+ wordAlignment: cStackAlignment / objectMemory wordSize].
+ backEnd
+ genSaveRegs: regsToSave;
+ genMarshallNArgs: numArgs floatArg: regOrConst0 floatArg: regOrConst1 floatArg: regOrConst2 floatArg: regOrConst3.
+ self CallFullRT: (self cCode: [aRoutine asUnsignedInteger]
+ inSmalltalk: [self simulatedTrampolineFor: aRoutine]).
+ resultRegOrNone ~= NoReg ifTrue:
+ [backEnd genWriteCResultIntoReg: resultRegOrNone].
+ numArgs > 0 ifTrue:
+ [backEnd genRemoveNFloatArgsFromStack: numArgs].
+ backEnd genRestoreRegs: regsToSave!
Item was added:
+ ----- Method: Cogit>>compileTrampolineFor:numArgs:arg:arg:arg:arg:regsToSave:pushLinkReg:floatResultReg: (in category 'initialization') -----
+ compileTrampolineFor: aRoutine numArgs: numArgs arg: regOrConst0 arg: regOrConst1 arg: regOrConst2 arg: regOrConst3 regsToSave: regMask pushLinkReg: pushLinkReg floatResultReg: resultRegOrNone
+ "Generate a trampoline with up to four arguments. Generate either a call or a jump to aRoutine
+ as requested by callJumpBar. If generating a call and resultRegOrNone is not NoReg pass the C
+ result back in resultRegOrNone.
+ Hack: a negative value indicates an abstract register, a non-negative value indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <inline: false>
+ self genSmalltalkToCStackSwitch: pushLinkReg.
+ self
+ compileCallFor: aRoutine
+ numArgs: numArgs
+ arg: regOrConst0
+ arg: regOrConst1
+ arg: regOrConst2
+ arg: regOrConst3
+ floatResultReg: resultRegOrNone
+ regsToSave: regMask.
+ backEnd genLoadStackPointers.
+ (pushLinkReg and: [backEnd hasLinkRegister])
+ ifTrue:
+ [backEnd hasPCRegister
+ ifTrue: [self PopR: PCReg]
+ ifFalse: [self PopR: LinkReg.
+ self RetN: 0]]
+ ifFalse: [self RetN: 0]!
Item was added:
+ ----- Method: Cogit>>compileTrampolineFor:numArgs:arg:arg:arg:arg:regsToSave:pushLinkReg:resultReg:resultReg: (in category 'initialization') -----
+ compileTrampolineFor: aRoutine numArgs: numArgs arg: regOrConst0 arg: regOrConst1 arg: regOrConst2 arg: regOrConst3 regsToSave: regMask pushLinkReg: pushLinkReg resultReg: resultRegOrNone resultReg: resultReg2OrNone
+ "Generate a trampoline with up to four arguments. Generate either a call or a jump to aRoutine
+ as requested by callJumpBar. If generating a call and resultRegOrNone is not NoReg pass the C
+ result back in resultRegOrNone.
+ Hack: a negative value indicates an abstract register, a non-negative value indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <inline: false>
+ self genSmalltalkToCStackSwitch: pushLinkReg.
+ self
+ compileCallFor: aRoutine
+ numArgs: numArgs
+ arg: regOrConst0
+ arg: regOrConst1
+ arg: regOrConst2
+ arg: regOrConst3
+ resultReg: resultRegOrNone
+ resultReg: resultReg2OrNone
+ regsToSave: regMask.
+ backEnd genLoadStackPointers.
+ (pushLinkReg and: [backEnd hasLinkRegister])
+ ifTrue:
+ [backEnd hasPCRegister
+ ifTrue: [self PopR: PCReg]
+ ifFalse: [self PopR: LinkReg.
+ self RetN: 0]]
+ ifFalse: [self RetN: 0]!
Item was added:
+ ----- Method: Cogit>>compileTrampolineFor:numArgs:floatArg:floatArg:floatArg:floatArg:regsToSave:pushLinkReg:resultReg: (in category 'initialization') -----
+ compileTrampolineFor: aRoutine numArgs: numArgs floatArg: regOrConst0 floatArg: regOrConst1 floatArg: regOrConst2 floatArg: regOrConst3 regsToSave: regMask pushLinkReg: pushLinkReg resultReg: resultRegOrNone
+ "Generate a trampoline with up to four arguments. Generate either a call or a jump to aRoutine
+ as requested by callJumpBar. If generating a call and resultRegOrNone is not NoReg pass the C
+ result back in resultRegOrNone.
+ Hack: a negative value indicates an abstract register, a non-negative value indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <inline: false>
+ self genSmalltalkToCStackSwitch: pushLinkReg.
+ self
+ compileCallFor: aRoutine
+ numArgs: numArgs
+ floatArg: regOrConst0
+ floatArg: regOrConst1
+ floatArg: regOrConst2
+ floatArg: regOrConst3
+ resultReg: resultRegOrNone
+ regsToSave: regMask.
+ backEnd genLoadStackPointers.
+ (pushLinkReg and: [backEnd hasLinkRegister])
+ ifTrue:
+ [backEnd hasPCRegister
+ ifTrue: [self PopR: PCReg]
+ ifFalse: [self PopR: LinkReg.
+ self RetN: 0]]
+ ifFalse: [self RetN: 0]!
Item was changed:
----- Method: Cogit>>extBBytecode (in category 'bytecode generators') -----
extBBytecode
"225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)"
+ extB := (extB = 0 and: [extBFirstZero not and: [byte1 > 127]])
- extB := (extB = 0 and: [byte1 > 127])
ifTrue: [byte1 - 256]
ifFalse: [(extB bitShift: 8) + byte1].
+ extBFirstZero := extB = 0.
^0!
Item was added:
+ ----- Method: Cogit>>genFFICalloutTrampoline (in category 'initialization') -----
+ genFFICalloutTrampoline
+ <option: #LowcodeVM>
+ | startAddress |
+ opcodeIndex := 0.
+ backEnd hasLinkRegister ifTrue: [
+ self MoveR: LinkReg Aw: coInterpreter instructionPointerAddress
+ ] ifFalse: [
+ self PopR: ClassReg.
+ self MoveR: ClassReg Aw: coInterpreter instructionPointerAddress
+ ].
+
+ self CallR: TempReg.
+
+ backEnd hasLinkRegister ifTrue: [
+ self MoveAw: coInterpreter instructionPointerAddress R: LinkReg
+ ] ifFalse: [
+ self MoveAw: coInterpreter instructionPointerAddress R: ClassReg.
+ self PushR: ClassReg.
+ ].
+
+ self RetN: 0.
+
+ startAddress := methodZoneBase.
+ self outputInstructionsForGeneratedRuntimeAt: startAddress.
+ self recordGeneratedRunTime: 'ceFFICalloutTrampoline' address: startAddress.
+ self recordRunTimeObjectReferences.
+ ^ startAddress
+ !
Item was added:
+ ----- Method: Cogit>>genTrampolineFor:called:arg:floatResult: (in category 'initialization') -----
+ genTrampolineFor: aRoutine called: aString arg: regOrConst0 floatResult: resultReg
+ "Generate a trampoline with one argument that answers a result.
+ Hack: a negative value indicates an abstract register, a non-negative value indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <var: #aString type: #'char *'>
+ ^self
+ genTrampolineFor: aRoutine
+ called: aString
+ numArgs: 1
+ arg: regOrConst0
+ arg: nil
+ arg: nil
+ arg: nil
+ regsToSave: self emptyRegisterMask
+ pushLinkReg: true
+ floatResultReg: resultReg
+ appendOpcodes: false!
Item was added:
+ ----- Method: Cogit>>genTrampolineFor:called:arg:result:result: (in category 'initialization') -----
+ genTrampolineFor: aRoutine called: aString arg: regOrConst0 result: resultReg result: resultReg2
+ "Generate a trampoline with one argument that answers a result.
+ Hack: a negative value indicates an abstract register, a non-negative value indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <var: #aString type: #'char *'>
+ ^self
+ genTrampolineFor: aRoutine
+ called: aString
+ numArgs: 1
+ arg: regOrConst0
+ arg: nil
+ arg: nil
+ arg: nil
+ regsToSave: self emptyRegisterMask
+ pushLinkReg: true
+ resultReg: resultReg
+ resultReg: resultReg2
+ appendOpcodes: false!
Item was added:
+ ----- Method: Cogit>>genTrampolineFor:called:floatArg:result: (in category 'initialization') -----
+ genTrampolineFor: aRoutine called: aString floatArg: regOrConst0 result: resultReg
+ "Generate a trampoline with one argument that answers a result.
+ Hack: a negative value indicates an abstract register, a non-negative value indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <var: #aString type: #'char *'>
+ ^self
+ genTrampolineFor: aRoutine
+ called: aString
+ numArgs: 1
+ floatArg: regOrConst0
+ floatArg: nil
+ floatArg: nil
+ floatArg: nil
+ regsToSave: self emptyRegisterMask
+ pushLinkReg: true
+ resultReg: resultReg
+ appendOpcodes: false!
Item was added:
+ ----- Method: Cogit>>genTrampolineFor:called:numArgs:arg:arg:arg:arg:regsToSave:pushLinkReg:floatResultReg:appendOpcodes: (in category 'initialization') -----
+ genTrampolineFor: aRoutine called: trampolineName numArgs: numArgs arg: regOrConst0 arg: regOrConst1 arg: regOrConst2 arg: regOrConst3 regsToSave: regMask pushLinkReg: pushLinkReg floatResultReg: resultRegOrNone appendOpcodes: appendBoolean
+ "Generate a trampoline with up to four arguments. Generate either a call or a jump to aRoutineOrNil
+ as requested by callJumpBar. If generating a call and resultRegOrNone is not NoReg pass the C result
+ back in resultRegOrNone.
+ Hack: a negative value indicates an abstract register, a non-negative value indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <var: #trampolineName type: #'char *'>
+ | startAddress |
+ <inline: false>
+ startAddress := methodZoneBase.
+ appendBoolean ifFalse:
+ [self zeroOpcodeIndex].
+ self compileTrampolineFor: aRoutine
+ numArgs: numArgs
+ arg: regOrConst0
+ arg: regOrConst1
+ arg: regOrConst2
+ arg: regOrConst3
+ regsToSave: regMask
+ pushLinkReg: pushLinkReg
+ floatResultReg: resultRegOrNone.
+ self outputInstructionsForGeneratedRuntimeAt: startAddress.
+ self recordGeneratedRunTime: trampolineName address: startAddress.
+ self recordRunTimeObjectReferences.
+ ^startAddress!
Item was added:
+ ----- Method: Cogit>>genTrampolineFor:called:numArgs:arg:arg:arg:arg:regsToSave:pushLinkReg:resultReg:resultReg:appendOpcodes: (in category 'initialization') -----
+ genTrampolineFor: aRoutine called: trampolineName numArgs: numArgs arg: regOrConst0 arg: regOrConst1 arg: regOrConst2 arg: regOrConst3 regsToSave: regMask pushLinkReg: pushLinkReg resultReg: resultRegOrNone resultReg: resultReg2OrNone appendOpcodes: appendBoolean
+ "Generate a trampoline with up to four arguments. Generate either a call or a jump to aRoutineOrNil
+ as requested by callJumpBar. If generating a call and resultRegOrNone is not NoReg pass the C result
+ back in resultRegOrNone.
+ Hack: a negative value indicates an abstract register, a non-negative value indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <var: #trampolineName type: #'char *'>
+ | startAddress |
+ <inline: false>
+ startAddress := methodZoneBase.
+ appendBoolean ifFalse:
+ [self zeroOpcodeIndex].
+ self compileTrampolineFor: aRoutine
+ numArgs: numArgs
+ arg: regOrConst0
+ arg: regOrConst1
+ arg: regOrConst2
+ arg: regOrConst3
+ regsToSave: regMask
+ pushLinkReg: pushLinkReg
+ resultReg: resultRegOrNone
+ resultReg: resultReg2OrNone.
+ self outputInstructionsForGeneratedRuntimeAt: startAddress.
+ self recordGeneratedRunTime: trampolineName address: startAddress.
+ self recordRunTimeObjectReferences.
+ ^startAddress!
Item was added:
+ ----- Method: Cogit>>genTrampolineFor:called:numArgs:floatArg:floatArg:floatArg:floatArg:regsToSave:pushLinkReg:resultReg:appendOpcodes: (in category 'initialization') -----
+ genTrampolineFor: aRoutine called: trampolineName numArgs: numArgs floatArg: regOrConst0 floatArg: regOrConst1 floatArg: regOrConst2 floatArg: regOrConst3 regsToSave: regMask pushLinkReg: pushLinkReg resultReg: resultRegOrNone appendOpcodes: appendBoolean
+ "Generate a trampoline with up to four arguments. Generate either a call or a jump to aRoutineOrNil
+ as requested by callJumpBar. If generating a call and resultRegOrNone is not NoReg pass the C result
+ back in resultRegOrNone.
+ Hack: a negative value indicates an abstract register, a non-negative value indicates a constant."
+ <var: #aRoutine type: #'void *'>
+ <var: #trampolineName type: #'char *'>
+ | startAddress |
+ <inline: false>
+ startAddress := methodZoneBase.
+ appendBoolean ifFalse:
+ [self zeroOpcodeIndex].
+ self compileTrampolineFor: aRoutine
+ numArgs: numArgs
+ floatArg: regOrConst0
+ floatArg: regOrConst1
+ floatArg: regOrConst2
+ floatArg: regOrConst3
+ regsToSave: regMask
+ pushLinkReg: pushLinkReg
+ resultReg: resultRegOrNone.
+ self outputInstructionsForGeneratedRuntimeAt: startAddress.
+ self recordGeneratedRunTime: trampolineName address: startAddress.
+ self recordRunTimeObjectReferences.
+ ^startAddress!
Item was changed:
----- Method: Cogit>>generateRunTimeTrampolines (in category 'initialization') -----
generateRunTimeTrampolines
"Generate the run-time entries at the base of the native code zone and update the base."
ceSendMustBeBooleanAddFalseTrampoline := self genMustBeBooleanTrampolineFor: objectMemory falseObject
called: 'ceSendMustBeBooleanAddFalseTrampoline'.
ceSendMustBeBooleanAddTrueTrampoline := self genMustBeBooleanTrampolineFor: objectMemory trueObject
called: 'ceSendMustBeBooleanAddTrueTrampoline'.
ceNonLocalReturnTrampoline := self genNonLocalReturnTrampoline.
ceCheckForInterruptTrampoline := self genCheckForInterruptsTrampoline.
"Neither of the context inst var access trampolines save registers. Their operation could cause
arbitrary update of stack frames, so the assumption is that callers flush the stack before calling
the context inst var access trampolines, and that everything except the result is dead afterwards."
ceFetchContextInstVarTrampoline := self genTrampolineFor: #ceContext:instVar:
called: 'ceFetchContextInstVarTrampoline'
arg: ReceiverResultReg
arg: SendNumArgsReg
result: SendNumArgsReg.
ceStoreContextInstVarTrampoline := self genTrampolineFor: #ceContext:instVar:value:
called: 'ceStoreContextInstVarTrampoline'
arg: ReceiverResultReg
arg: SendNumArgsReg
arg: ClassReg
result: ReceiverResultReg. "to keep ReceiverResultReg live.".
ceCannotResumeTrampoline := self genTrampolineFor: #ceCannotResume
called: 'ceCannotResumeTrampoline'.
"These two are unusual; they are reached by return instructions."
ceBaseFrameReturnTrampoline := self genReturnTrampolineFor: #ceBaseFrameReturn:
called: 'ceBaseFrameReturnTrampoline'
arg: ReceiverResultReg.
ceReturnToInterpreterTrampoline := self
genReturnTrampolineFor: #ceReturnToInterpreter:
called: 'ceReturnToInterpreterTrampoline'
+ arg: ReceiverResultReg.
+ ceMallocTrampoline := self genTrampolineFor: #ceMalloc:
+ called: 'ceMallocTrampoline'
+ arg: ReceiverResultReg
+ result: TempReg.
+ ceFreeTrampoline := self genTrampolineFor: #ceFree:
+ called: 'ceFreeTrampoline'
+ arg: ReceiverResultReg.
+ self cppIf: LowcodeVM ifTrue: [
+ ceFFICalloutTrampoline := self genFFICalloutTrampoline.
+ ]!
- arg: ReceiverResultReg!
Item was changed:
----- Method: Cogit>>scanBlock: (in category 'compile abstract instructions') -----
scanBlock: blockStart
"Scan the block to determine if the block needs a frame or not"
| descriptor pc end framelessStackDelta nExts |
<var: #blockStart type: #'BlockStart *'>
<var: #descriptor type: #'BytecodeDescriptor *'>
needsFrame := false.
methodOrBlockNumArgs := blockStart numArgs.
inBlock := InVanillaBlock.
pc := blockStart startpc.
end := blockStart startpc + blockStart span.
framelessStackDelta := nExts := extA := extB := 0.
+ extBFirstZero := false.
[pc < end] whileTrue:
[byte0 := (objectMemory fetchByte: pc ofObject: methodObj) + bytecodeSetOffset.
descriptor := self generatorAt: byte0.
descriptor isExtension ifTrue:
[self loadSubsequentBytesForDescriptor: descriptor at: pc.
self perform: descriptor generator].
needsFrame ifFalse:
[(descriptor needsFrameFunction isNil
or: [self perform: descriptor needsFrameFunction with: framelessStackDelta])
ifTrue: [needsFrame := true]
ifFalse: [framelessStackDelta := framelessStackDelta + descriptor stackDelta]].
objectRepresentation maybeNoteDescriptor: descriptor blockStart: blockStart.
pc := self nextBytecodePCFor: descriptor at: pc exts: nExts in: methodObj.
descriptor isExtension
ifTrue: [nExts := nExts + 1]
ifFalse: [nExts := extA := extB := 0]].
needsFrame ifFalse:
[framelessStackDelta < 0 ifTrue:
[self error: 'negative stack delta in block; block contains bogus code or internal error'].
[framelessStackDelta > 0] whileTrue:
[descriptor := self generatorAt: (objectMemory fetchByte: blockStart startpc ofObject: methodObj) + bytecodeSetOffset.
descriptor generator ~~ #genPushConstantNilBytecode ifTrue:
[self error: 'frameless block doesn''t start with enough pushNils'].
blockStart
startpc: blockStart startpc + descriptor numBytes;
span: blockStart span - descriptor numBytes.
framelessStackDelta := framelessStackDelta - 1]].
^0!
Item was changed:
----- Method: Cogit>>scanMethod (in category 'compile abstract instructions') -----
scanMethod
"Scan the method (and all embedded blocks) to determine
- what the last bytecode is; extra bytes at the end of a method are used to encode things like source pointers or temp names
- if the method needs a frame or not
- what are the targets of any backward branches.
- how many blocks it creates
- if it contans an unknown bytecode
Answer the block count or on error a negative error code"
| latestContinuation nExts descriptor pc numBlocks distance targetPC framelessStackDelta |
<var: #descriptor type: #'BytecodeDescriptor *'>
needsFrame := false.
NewspeakVM ifTrue:
[numIRCs := 0].
(primitiveIndex > 0
and: [coInterpreter isQuickPrimitiveIndex: primitiveIndex]) ifTrue:
[^0].
pc := latestContinuation := initialPC.
numBlocks := framelessStackDelta := nExts := extA := extB := 0.
+ extBFirstZero := false.
[pc <= endPC] whileTrue:
[byte0 := (objectMemory fetchByte: pc ofObject: methodObj) + bytecodeSetOffset.
descriptor := self generatorAt: byte0.
descriptor isExtension ifTrue:
[descriptor opcode = Nop ifTrue: "unknown bytecode tag; see Cogit class>>#generatorTableFrom:"
[^EncounteredUnknownBytecode].
self loadSubsequentBytesForDescriptor: descriptor at: pc.
self perform: descriptor generator].
(descriptor isReturn
and: [pc >= latestContinuation]) ifTrue:
[endPC := pc].
needsFrame ifFalse:
[(descriptor needsFrameFunction isNil
or: [self perform: descriptor needsFrameFunction with: framelessStackDelta])
ifTrue: [needsFrame := true]
ifFalse: [framelessStackDelta := framelessStackDelta + descriptor stackDelta]].
descriptor isBranch ifTrue:
[distance := self spanFor: descriptor at: pc exts: nExts in: methodObj.
targetPC := pc + descriptor numBytes + distance.
(self isBackwardBranch: descriptor at: pc exts: nExts in: methodObj)
ifTrue: [self initializeFixupAt: targetPC - initialPC]
ifFalse: [latestContinuation := latestContinuation max: targetPC]].
descriptor isBlockCreation ifTrue:
[numBlocks := numBlocks + 1.
distance := self spanFor: descriptor at: pc exts: nExts in: methodObj.
targetPC := pc + descriptor numBytes + distance.
latestContinuation := latestContinuation max: targetPC].
self cppIf: NewspeakVM ifTrue:
[descriptor hasIRC ifTrue:
[numIRCs := numIRCs + 1]].
pc := pc + descriptor numBytes.
descriptor isExtension
ifTrue: [nExts := nExts + 1]
ifFalse: [nExts := extA := extB := 0]].
^numBlocks!
Item was changed:
----- Method: Cogit>>setInterpreter: (in category 'initialization') -----
setInterpreter: aCoInterpreter
"Initialization of the code generator in the simulator.
These objects already exist in the generated C VM
or are used only in the simulation."
<doNotGenerate>
coInterpreter := aCoInterpreter.
objectMemory := aCoInterpreter objectMemory.
threadManager := aCoInterpreter threadManager. "N.B. may be nil"
methodZone := CogMethodZone new.
objectRepresentation := objectMemory objectRepresentationClass
forCogit: self methodZone: methodZone.
methodZone setInterpreter: aCoInterpreter
objectRepresentation: objectRepresentation
cogit: self.
generatorTable := self class generatorTable.
processor := ProcessorClass new.
simulatedAddresses := Dictionary new.
simulatedTrampolines := Dictionary new.
simulatedVariableGetters := Dictionary new.
simulatedVariableSetters := Dictionary new.
traceStores := 0.
traceFlags := (self class initializationOptions at: #recordPrimTrace ifAbsent: [true])
ifTrue: [8] "record prim trace on by default (see Cogit class>>decareCVarsIn:)"
ifFalse: [0].
debugPrimCallStackOffset := 0.
singleStep := printRegisters := printInstructions := clickConfirm := false.
backEnd := CogCompilerClass for: self.
methodLabel := CogCompilerClass for: self.
(literalsManager := backEnd class literalsManagerClass new) cogit: self.
ordinarySendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines).
superSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines).
BytecodeSetHasDirectedSuperSend ifTrue:
[directedSuperSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines)].
NewspeakVM ifTrue:
[selfSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines).
dynamicSuperSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines).
implicitReceiverSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines).
outerSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines)].
"debug metadata"
objectReferencesInRuntime := CArrayAccessor on: (Array new: NumObjRefsInRuntime).
runtimeObjectRefIndex := 0.
"debug metadata"
trampolineAddresses := CArrayAccessor on: (Array new: NumTrampolines * 2).
trampolineTableIndex := 0.
extA := extB := 0.
+ extBFirstZero := false.
compilationTrace ifNil: [compilationTrace := self class initializationOptions at: #compilationTrace ifAbsent: [0]].
debugOpcodeIndices := self class initializationOptions at: #debugOpcodeIndices ifAbsent: [Set new].
debugBytecodePointers := self class initializationOptions at: #debugBytecodePointers ifAbsent: [Set new]!
Item was added:
+ ----- Method: CurrentImageCoInterpreterFacade>>nativeStackPointerAddress (in category 'accessing') -----
+ nativeStackPointerAddress
+ ^self addressForLabel: #nativeStackPointer!
Item was added:
+ ----- Method: CurrentImageCoInterpreterFacade>>shadowCallStackAddress (in category 'accessing') -----
+ shadowCallStackAddress
+ ^self addressForLabel: #shadowCallStackAddress!
Item was changed:
----- Method: CurrentImageCoInterpreterFacade>>splObj: (in category 'accessing') -----
splObj: splObjIndex
^splObjIndex caseOf: {
[ClassArray] -> [self oopForObject: Array].
[ClassCharacter] -> [self oopForObject: Character].
[ClassLargeNegativeInteger] -> [self oopForObject: LargeNegativeInteger].
[ClassLargePositiveInteger] -> [self oopForObject: LargePositiveInteger].
[ClassSmallInteger] -> [self oopForObject: SmallInteger].
+ [CompactClasses] -> [self oopForObject: Smalltalk compactClassesArray].
+ [LowcodeContextMark] -> [self oopForObject: (Smalltalk globals at: #LowcodeNativeContext ifPresent: [:cls | cls signalingObject ]) ]
- [CompactClasses] -> [self oopForObject: Smalltalk compactClassesArray]
}!
Item was added:
+ ----- Method: CurrentImageCoInterpreterFacadeForSpurObjectRepresentation>>defaultNativeStackFrameSize (in category 'accessing') -----
+ defaultNativeStackFrameSize
+ ^ coInterpreter defaultNativeStackFrameSize!
Item was changed:
----- Method: ObjectMemory class>>initializeSpecialObjectIndices (in category 'initialization') -----
initializeSpecialObjectIndices
"Initialize indices into specialObjects array."
NilObject := 0.
FalseObject := 1.
TrueObject := 2.
SchedulerAssociation := 3.
ClassBitmap := 4.
ClassSmallInteger := 5.
ClassByteString := ClassString := 6. "N.B. Actually class ByteString"
ClassArray := 7.
"SmalltalkDictionary := 8." "Do not delete!!"
ClassFloat := 9.
ClassMethodContext := 10.
ClassBlockContext := 11.
ClassPoint := 12.
ClassLargePositiveInteger := 13.
TheDisplay := 14.
ClassMessage := 15.
"ClassCompiledMethod := 16. unused by the VM"
TheLowSpaceSemaphore := 17.
ClassSemaphore := 18.
ClassCharacter := 19.
SelectorDoesNotUnderstand := 20.
SelectorCannotReturn := 21.
ProcessSignalingLowSpace := 22. "was TheInputSemaphore"
SpecialSelectors := 23.
CharacterTable := 24.
SelectorMustBeBoolean := 25.
ClassByteArray := 26.
"ClassProcess := 27. unused"
CompactClasses := 28.
TheTimerSemaphore := 29.
TheInterruptSemaphore := 30.
SelectorCannotInterpret := 34.
"Was MethodContextProto := 35."
ClassBlockClosure := 36.
ClassFullBlockClosure := 37. "Was BlockContextProto := 37."
ExternalObjectsArray := 38.
ClassMutex := 39.
"Was: ClassTranslatedMethod := 40."
ProcessInExternalCodeTag := 40.
TheFinalizationSemaphore := 41.
ClassLargeNegativeInteger := 42.
ClassExternalAddress := 43.
ClassExternalStructure := 44.
ClassExternalData := 45.
ClassExternalFunction := 46.
ClassExternalLibrary := 47.
SelectorAboutToReturn := 48.
SelectorRunWithIn := 49.
SelectorAttemptToAssign := 50.
"PrimErrTableIndex := 51. in VMClass class>>initializePrimitiveErrorCodes"
ClassAlien := 52.
SelectorInvokeCallback := 53.
ClassUnsafeAlien := 54.
ClassWeakFinalizer := 55.
ForeignCallbackProcess := 56.
SelectorUnknownBytecode := 57.
SelectorCounterTripped := 58.
+ SelectorSistaTrap := 59.
+
+ LowcodeContextMark := 60.
+ LowcodeNativeContextClass := 61.
- SelectorSistaTrap := 59
!
Item was added:
+ ----- Method: SimpleStackBasedCogit>>frameOffsetOfNativeFrameMark (in category 'bytecode generator support') -----
+ frameOffsetOfNativeFrameMark
+ <option: #LowcodeVM>
+ ^ FoxMFReceiver - BytesPerWord!
Item was added:
+ ----- Method: SimpleStackBasedCogit>>frameOffsetOfNativeFramePointer (in category 'bytecode generator support') -----
+ frameOffsetOfNativeFramePointer
+ <option: #LowcodeVM>
+ ^ FoxMFReceiver - (BytesPerWord*3)!
Item was added:
+ ----- Method: SimpleStackBasedCogit>>frameOffsetOfNativeStackPointer (in category 'bytecode generator support') -----
+ frameOffsetOfNativeStackPointer
+ <option: #LowcodeVM>
+ ^ FoxMFReceiver - (BytesPerWord*4)!
Item was added:
+ ----- Method: SimpleStackBasedCogit>>frameOffsetOfPreviousNativeStackPointer (in category 'bytecode generator support') -----
+ frameOffsetOfPreviousNativeStackPointer
+ <option: #LowcodeVM>
+ ^ FoxMFReceiver - (BytesPerWord*2)!
Item was changed:
----- Method: SimpleStackBasedCogit>>fullBlockEntryOffset (in category 'accessing') -----
fullBlockEntryOffset
<api>
- <cmacro>
^cbEntryOffset!
Item was changed:
----- Method: SimpleStackBasedCogit>>fullBlockNoContextSwitchEntryOffset (in category 'accessing') -----
fullBlockNoContextSwitchEntryOffset
<api>
- <cmacro>
^cbNoSwitchEntryOffset!
Item was added:
+ ----- Method: SimpleStackBasedCogit>>loadNativeArgumentAddress:to: (in category 'bytecode generator support') -----
+ loadNativeArgumentAddress: baseOffset to: reg
+ <option: #LowcodeVM>
+ self MoveMw: self frameOffsetOfPreviousNativeStackPointer r: FPReg R: reg.
+ self AddCq: baseOffset - 1 R: reg.!
Item was added:
+ ----- Method: SimpleStackBasedCogit>>loadNativeFramePointerInto: (in category 'bytecode generator support') -----
+ loadNativeFramePointerInto: reg
+ <option: #LowcodeVM>
+ self MoveMw: self frameOffsetOfNativeFramePointer r: FPReg R: reg!
Item was added:
+ ----- Method: SimpleStackBasedCogit>>loadNativeLocalAddress:to: (in category 'bytecode generator support') -----
+ loadNativeLocalAddress: baseOffset to: reg
+ <option: #LowcodeVM>
+ self MoveMw: self frameOffsetOfNativeFramePointer r: FPReg R: reg.
+ self AddCq: baseOffset - 1 R: reg.!
Item was changed:
----- Method: Spur32BitMemoryManager>>floatObjectOf: (in category 'interpreter access') -----
floatObjectOf: aFloat
| newFloatObj |
<inline: false>
<var: #aFloat type: #double>
+ <api>
newFloatObj := self
eeInstantiateSmallClassIndex: ClassFloatCompactIndex
format: self firstLongFormat
numSlots: (self sizeof: #double) / self bytesPerOop.
self storeFloatAt: newFloatObj + self baseHeaderSize from: aFloat.
^newFloatObj!
Item was changed:
----- Method: Spur64BitMemoryManager>>floatObjectOf: (in category 'interpreter access') -----
floatObjectOf: aFloat
| newFloatObj |
<inline: false>
<var: #aFloat type: #double>
+ <api>
(self isSmallFloatValue: aFloat) ifTrue:
[^self smallFloatObjectOf: aFloat].
newFloatObj := self
eeInstantiateSmallClassIndex: ClassFloatCompactIndex
format: self firstLongFormat
numSlots: (self sizeof: #double) / self bytesPerOop.
self storeFloatAt: newFloatObj + self baseHeaderSize from: aFloat.
^newFloatObj!
Item was changed:
----- Method: SpurMemoryManager class>>initializeSpecialObjectIndices (in category 'class initialization') -----
initializeSpecialObjectIndices
"Initialize indices into specialObjects array."
NilObject := 0.
FalseObject := 1.
TrueObject := 2.
SchedulerAssociation := 3.
ClassBitmap := 4.
ClassSmallInteger := 5.
ClassByteString := ClassString := 6. "N.B. Actually class ByteString"
ClassArray := 7.
"SmalltalkDictionary := 8." "Do not delete!!"
ClassFloat := 9.
ClassMethodContext := 10.
"ClassBlockContext := 11. unused by the VM"
ClassPoint := 12.
ClassLargePositiveInteger := 13.
TheDisplay := 14.
ClassMessage := 15.
"ClassCompiledMethod := 16. unused by the VM"
TheLowSpaceSemaphore := 17.
ClassSemaphore := 18.
ClassCharacter := 19.
SelectorDoesNotUnderstand := 20.
SelectorCannotReturn := 21.
ProcessSignalingLowSpace := 22. "was TheInputSemaphore"
SpecialSelectors := 23.
CharacterTable := nil. "Must be unused by the VM"
SelectorMustBeBoolean := 25.
ClassByteArray := 26.
"ClassProcess := 27. unused"
CompactClasses := 28.
TheTimerSemaphore := 29.
TheInterruptSemaphore := 30.
SelectorCannotInterpret := 34.
"Was MethodContextProto := 35."
ClassBlockClosure := 36.
"Was BlockContextProto := 37."
ExternalObjectsArray := 38.
ClassMutex := 39.
"Was: ClassTranslatedMethod := 40."
ProcessInExternalCodeTag := 40.
TheFinalizationSemaphore := 41.
ClassLargeNegativeInteger := 42.
ClassExternalAddress := 43.
ClassExternalStructure := 44.
ClassExternalData := 45.
ClassExternalFunction := 46.
ClassExternalLibrary := 47.
SelectorAboutToReturn := 48.
SelectorRunWithIn := 49.
SelectorAttemptToAssign := 50.
"PrimErrTableIndex := 51. in VMClass class>>initializePrimitiveErrorCodes"
ClassAlien := 52.
SelectorInvokeCallback := 53.
ClassUnsafeAlien := 54.
ClassWeakFinalizer := 55.
ForeignCallbackProcess := 56.
SelectorUnknownBytecode := 57.
SelectorCounterTripped := 58.
+ SelectorSistaTrap := 59.
+
+ LowcodeContextMark := 60.
+ LowcodeNativeContextClass := 61.!
- SelectorSistaTrap := 59!
Item was changed:
----- Method: StackDepthFinder>>stackPointers (in category 'accessing') -----
stackPointers
"Collect the stack depth for each bytecode in the method.
For the convenience of clients, write the stack depth for extended bytecodes
to the bytecode pc, as well as the bytecocdes' extensions' pcs."
| method stackPointers end |
"endPC +1 because of full blocks that can end with NLR effectively mapping the pc right after the end PC"
stackPointers := Array new: (end := (method := self method) endPC) + 1.
encoderClass ifNil: [encoderClass := method encoderClass].
[pc <= end] whileTrue:
[stackPointers at: pc put: stackp.
encoderClass extensionsAt: pc in: method into:
[:extA :extB :delta|
+ 2 to: delta by: 2 do: [ :dlt |
+ stackPointers at: pc + dlt put: stackp]].
- delta > 0 ifTrue:
- [stackPointers at: pc + delta put: stackp]].
self interpretNextInstructionFor: self].
- stackPointers at: end + 1 put: (stackPointers at: end).
^stackPointers!
Item was changed:
InterpreterPrimitives subclass: #StackInterpreter
+ instanceVariableNames: 'currentBytecode bytecodeSetSelector localFP localIP localSP stackLimit stackPage stackPages method instructionPointer stackPointer framePointer localReturnValue localAbsentReceiver localAbsentReceiverOrZero extA extB extBFirstZero primitiveFunctionPointer methodCache nsMethodCache atCache lkupClassTag lkupClass methodDictLinearSearchLimit highestRunnableProcessPriority nextWakeupUsecs nextPollUsecs inIOProcessEvents interruptKeycode interruptPending savedWindowSize imageHeaderFlags fullScreenFlag deferDisplayUpdates pendingFinalizationSignals extraVMMemory interpreterProxy showSurfaceFn primitiveTable primitiveAccessorDepthTable externalPrimitiveTable externalPrimitiveTableFirstFreeIndex overflowedPage extraFramesToMoveOnOverflow globalSessionID jmpBuf jmpDepth suspendedCallbacks suspendedMethods numStackPages desiredNumStackPages desiredEdenBytes classNameIndex thisClassIndex metaclassNumSlots interruptCheckChain suppressHeartbeatFlag breakSelector breakSelectorLength longRunningPrimitiveCheckMethod longRunningPrimitiveCheckSemaphore longRunningPrimitiveStartUsecs longRunningPrimitiveStopUsecs longRunningPrimitiveGCUsecs longRunningPrimitiveCheckSequenceNumber longRunningPrimitiveSignalUndelivered checkAllocFiller tempOop tempOop2 tempOop3 theUnknownShort the2ndUnknownShort imageFloatsBigEndian maxExtSemTabSizeSet lastMethodCacheProbeWrite gcSemaphoreIndex classByteArrayCompactIndex checkedPluginName statForceInterruptCheck statStackOverflow statStackPageDivorce statCheckForEvents statProcessSwitch statIOProcessEvents statPendingFinalizationSignals nativeSP nativeStackPointer lowcodeCalloutState shadowCallStackPointer'
- instanceVariableNames: 'currentBytecode bytecodeSetSelector localFP localIP localSP stackLimit stackPage stackPages method instructionPointer stackPointer framePointer localReturnValue localAbsentReceiver localAbsentReceiverOrZero extA extB primitiveFunctionPointer methodCache nsMethodCache atCache lkupClassTag lkupClass methodDictLinearSearchLimit highestRunnableProcessPriority nextWakeupUsecs nextPollUsecs inIOProcessEvents interruptKeycode interruptPending savedWindowSize imageHeaderFlags fullScreenFlag deferDisplayUpdates pendingFinalizationSignals extraVMMemory interpreterProxy showSurfaceFn primitiveTable primitiveAccessorDepthTable externalPrimitiveTable externalPrimitiveTableFirstFreeIndex overflowedPage extraFramesToMoveOnOverflow globalSessionID jmpBuf jmpDepth suspendedCallbacks suspendedMethods numStackPages desiredNumStackPages desiredEdenBytes classNameIndex thisClassIndex metaclassNumSlots interruptCheckChain suppressHeartbeatFlag breakSelector breakSelectorLength longRunningPrimitiveCheckMethod longRunningPrimitiveCheckSemaphore longRunningPrimitiveStartUsecs longRunningPrimitiveStopUsecs longRunningPrimitiveGCUsecs longRunningPrimitiveCheckSequenceNumber longRunningPrimitiveSignalUndelivered checkAllocFiller tempOop tempOop2 tempOop3 theUnknownShort the2ndUnknownShort imageFloatsBigEndian maxExtSemTabSizeSet lastMethodCacheProbeWrite gcSemaphoreIndex classByteArrayCompactIndex checkedPluginName statForceInterruptCheck statStackOverflow statStackPageDivorce statCheckForEvents statProcessSwitch statIOProcessEvents statPendingFinalizationSignals'
classVariableNames: 'AccessModifierPrivate AccessModifierProtected AccessModifierPublic AltBytecodeEncoderClassName AltLongStoreBytecode AlternateHeaderHasPrimFlag AlternateHeaderIsOptimizedFlag AlternateHeaderNumLiteralsMask AtCacheFixedFields AtCacheFmt AtCacheMask AtCacheOop AtCacheSize AtCacheTotalSize AtPutBase BytecodeEncoderClassName BytecodeTable CacheProbeMax DirBadPath DirEntryFound DirNoMoreEntries DumpStackOnLowSpace EnclosingMixinIndex EnclosingObjectIndex EnforceAccessControl FailImbalancedPrimitives LongStoreBytecode MaxExternalPrimitiveTableSize MaxJumpBuf MaxPrimitiveIndex MaxQuickPrimitiveIndex MethodHeaderArgCountShift MethodHeaderFlagBitPosition MethodHeaderTempCountShift MixinIndex PrimNumberDoExternalCall PrimNumberExternalCall PrimNumberFFICall PrimitiveExternalCallIndex PrimitiveTable StackPageReachedButUntraced StackPageTraceInvalid StackPageTraced StackPageUnreached V3PrimitiveBitsMask'
poolDictionaries: 'VMBasicConstants VMBytecodeConstants VMMethodCacheConstants VMObjectIndices VMSpurObjectRepresentationConstants VMSqueakClassIndices VMStackFrameOffsets'
category: 'VMMaker-Interpreter'!
!StackInterpreter commentStamp: 'eem 12/5/2014 11:32' prior: 0!
This class is a complete implementation of the Smalltalk-80 virtual machine, derived originally from the Blue Book specification but quite different in some areas. This VM supports Closures but *not* old-style BlockContexts.
It has been modernized with 32-bit pointers, better management of Contexts (see next item), and attention to variable use that allows the CCodeGenerator (qv) to keep, eg, the instruction pointer and stack pointer in registers as well as keeping most simple variables in a global array that seems to improve performance for most platforms.
The VM does not use Contexts directly. Instead Contexts serve as proxies for a more conventional stack format that is invisible to the image. There is considerable explanation at http://www.mirandabanda.org/cogblog/2009/01/14/under-cover-contexts-and-the…. The VM maintains a fixed-size stack zone divided into pages, each page being capable of holding several method/block activations. A send establishes a new frame in the current stack page, a return returns to the previous frame. This eliminates allocation/deallocation of contexts and the moving of receiver and arguments from caller to callee on each send/return. Contexts are created lazily when an activation needs a context (creating a block, explicit use of thisContext, access to sender when sender is a frame, or linking of stack pages together). Contexts are either conventional and heap-resident ("single") or "married" and serve as proxies for their corresponding frame or "widowed", meaning that their spouse frame has been returned from (died). A married context is specially marked (more details in the code) and refers to its frame. Likewise a married frame is specially marked and refers to its context.
In addition to SmallInteger arithmetic and Floats, the VM supports logic on 32-bit PositiveLargeIntegers, thus allowing it to simulate itself much more effectively than would otherwise be the case.
StackInterpreter and subclasses support multiple memory managers. Currently there are two. NewMemoryManager is a slightly refined version of ObjectMemory, and is the memory manager and garbage collector for the original Squeak object representation as described in "Back to the Future The Story of Squeak, A Practical Smalltalk Written in Itself", see http://ftp.squeak.org/docs/OOPSLA.Squeak.html. Spur is a faster, more regular object representation that is designed for more performance and functionality, and to have a common header format for both 32-bit and 64-bit versions. You can read about it in SpurMemoryManager's class comment. There is also a video of a presentation at ESUG 2014 (https://www.youtube.com/watch?v=k0nBNS1aHZ4), along with slides (http://www.slideshare.net/esug/spur-a-new-object-representation-for-cog?rel…).!
Item was changed:
----- Method: StackInterpreter class>>declareCVarsIn: (in category 'translation') -----
declareCVarsIn: aCCodeGenerator
| vmClass |
self class == thisContext methodClass ifFalse: [^self]. "Don't duplicate decls in subclasses"
vmClass := aCCodeGenerator vmClass. "Generate primitiveTable etc based on vmClass, not just StackInterpreter"
aCCodeGenerator
addHeaderFile:'<stddef.h> /* for e.g. alloca */';
addHeaderFile:'<setjmp.h>';
addHeaderFile:'<wchar.h> /* for wint_t */';
addHeaderFile:'"vmCallback.h"';
addHeaderFile:'"sqMemoryFence.h"';
addHeaderFile:'"dispdbg.h"'.
+ LowcodeVM ifTrue: [ aCCodeGenerator addHeaderFile:'"sqLowcodeFFI.h"'].
+
vmClass declareInterpreterVersionIn: aCCodeGenerator defaultName: 'Stack'.
aCCodeGenerator
var: #interpreterProxy type: #'struct VirtualMachine*'.
aCCodeGenerator
declareVar: #sendTrace type: 'volatile int';
declareVar: #byteCount type: 'unsigned long'.
"These need to be pointers or unsigned."
self declareC: #(instructionPointer method newMethod)
as: #usqInt
in: aCCodeGenerator.
"These are all pointers; char * because Slang has no support for C pointer arithmetic."
+ self declareC: #(localIP localSP localFP nativeSP stackPointer framePointer stackLimit breakSelector nativeStackPointer nativeFramePointer shadowCallStack)
- self declareC: #(localIP localSP localFP stackPointer framePointer stackLimit breakSelector)
as: #'char *'
in: aCCodeGenerator.
aCCodeGenerator
var: #breakSelectorLength
declareC: 'sqInt breakSelectorLength = MinSmallInteger'.
self declareC: #(stackPage overflowedPage)
as: #'StackPage *'
in: aCCodeGenerator.
aCCodeGenerator removeVariable: 'stackPages'. "this is an implicit receiver in the translated code."
NewspeakVM ifFalse:
[aCCodeGenerator
removeVariable: 'localAbsentReceiver';
removeVariable: 'localAbsentReceiverOrZero';
removeVariable: 'nsMethodCache'].
"This defines bytecodeSetSelector as 0 if MULTIPLEBYTECODESETS
is not defined, for the benefit of the interpreter on slow machines."
aCCodeGenerator addConstantForBinding: (self bindingOf: #MULTIPLEBYTECODESETS).
MULTIPLEBYTECODESETS == false ifTrue:
[aCCodeGenerator
removeVariable: 'extA';
removeVariable: 'extB';
removeVariable: 'bytecodeSetSelector'].
aCCodeGenerator
var: #methodCache
declareC: 'long methodCache[MethodCacheSize + 1 /* ', (MethodCacheSize + 1) printString, ' */]'.
aCCodeGenerator
var: #nsMethodCache
declareC: 'long nsMethodCache[NSMethodCacheSize + 1 /* ', (NSMethodCacheSize + 1) printString, ' */]'.
AtCacheTotalSize isInteger ifTrue:
[aCCodeGenerator
var: #atCache
declareC: 'sqInt atCache[AtCacheTotalSize + 1 /* ', (AtCacheTotalSize + 1) printString, ' */]'].
aCCodeGenerator
var: #primitiveTable
declareC: 'void (*primitiveTable[MaxPrimitiveIndex + 2 /* ', (MaxPrimitiveIndex + 2) printString, ' */])(void) = ', vmClass primitiveTableString.
vmClass primitiveTable do:
[:symbolOrNot|
(symbolOrNot isSymbol
and: [symbolOrNot ~~ #primitiveFail]) ifTrue:
[(aCCodeGenerator methodNamed: symbolOrNot) ifNotNil:
[:tMethod| tMethod returnType: #void]]].
vmClass objectMemoryClass hasSpurMemoryManagerAPI
ifTrue:
[aCCodeGenerator
var: #primitiveAccessorDepthTable
type: 'signed char'
sizeString: 'MaxPrimitiveIndex + 2 /* ', (MaxPrimitiveIndex + 2) printString, ' */'
array: vmClass primitiveAccessorDepthTable]
ifFalse:
[aCCodeGenerator removeVariable: #primitiveAccessorDepthTable].
aCCodeGenerator
var: #primitiveFunctionPointer
declareC: 'void (*primitiveFunctionPointer)()'.
aCCodeGenerator
var: #externalPrimitiveTable
declareC: 'void (*externalPrimitiveTable[MaxExternalPrimitiveTableSize + 1 /* ', (MaxExternalPrimitiveTableSize + 1) printString, ' */])(void)'.
aCCodeGenerator var: #showSurfaceFn type: #'void *'.
aCCodeGenerator
var: #jmpBuf
declareC: 'jmp_buf jmpBuf[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'.
aCCodeGenerator
var: #suspendedCallbacks
declareC: 'usqInt suspendedCallbacks[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'.
aCCodeGenerator
var: #suspendedMethods
declareC: 'usqInt suspendedMethods[MaxJumpBuf + 1 /* ', (MaxJumpBuf + 1) printString, ' */]'.
aCCodeGenerator
var: #interruptCheckChain
declareC: 'void (*interruptCheckChain)(void) = 0'.
self declareCAsUSqLong: #(nextPollUsecs nextWakeupUsecs longRunningPrimitiveGCUsecs
longRunningPrimitiveStartUsecs longRunningPrimitiveStopUsecs
"these are high-frequency enough that they're overflowing quite quickly on modern hardware"
statProcessSwitch statIOProcessEvents statForceInterruptCheck
statCheckForEvents statStackOverflow statStackPageDivorce)
in: aCCodeGenerator.
+ aCCodeGenerator var: #nextProfileTick type: #sqLong.
+
+ LowcodeVM ifTrue: [
+ aCCodeGenerator
+ var: #shadowCallStackPointer
+ type: #'char*'.
+ aCCodeGenerator
+ var: #lowcodeCalloutState
+ type: #'sqLowcodeCalloutState*'
+ ].!
- aCCodeGenerator var: #nextProfileTick type: #sqLong!
Item was added:
+ ----- Method: StackInterpreter>>allocateLowcodeCalloutState (in category 'inline primitive ffi abi') -----
+ allocateLowcodeCalloutState
+ <option: #LowcodeVM>
+ | calloutStateSize |
+ calloutStateSize := self sizeof: #'sqLowcodeCalloutState'.
+ shadowCallStackPointer := self cCoerce: ((self cCoerce: shadowCallStackPointer - calloutStateSize to: 'size_t') bitAnd: -16) to: 'char*'.
+ lowcodeCalloutState := self cCoerce: shadowCallStackPointer to: #'sqLowcodeCalloutState*'.
+ !
Item was changed:
----- Method: StackInterpreter>>callPrimitiveBytecode (in category 'miscellaneous bytecodes') -----
callPrimitiveBytecode
"V4: 249 11111001 i i i i i i i i jjjjjjjj Call Primitive #iiiiiiii + (jjjjjjjj * 256)
SistaV1: 248 11111000 iiiiiiii mjjjjjjj Call Primitive #iiiiiiii + (jjjjjjj * 256) m=1 means inlined primitive, no hard return after execution.
V3/Spur: 139 10001011 i i i i i i i i jjjjjjjj Call Primitive #iiiiiiii + (jjjjjjjj * 256)"
"Note that we simply skip a callPrimitiveBytecode at the start of a method
that contains a primitive. This because methods like Context(Part)>>reset
have to be updated to skip the callPrimtiive bytecode otherwise."
self cppIf: SistaVM
ifTrue:
+ [| byte1 byte2 prim primSet header |
- [| byte1 byte2 prim header |
byte1 := self fetchByte.
byte2 := self fetchByte.
self fetchNextBytecode.
byte2 < 128 ifTrue:
[header := objectMemory methodHeaderOf: method.
((self methodHeaderHasPrimitive: header)
and: [localIP asUnsignedInteger
= (self initialPCForHeader: header method: method) + (self sizeOfCallPrimitiveBytecode: header)]) ifTrue:
[^self].
localIP := localIP - 3.
^self respondToUnknownBytecode].
prim := byte2 - 128 << 8 + byte1.
+ primSet := prim >> 13 bitAnd: 3.
+ prim := prim bitAnd: 8191.
+ primSet = 0 ifTrue: [
+
+ prim < 1000 ifTrue:
+ [^self nullaryInlinePrimitive: prim].
- prim < 1000 ifTrue:
- [^self nullaryInlinePrimitive: prim].
+ prim < 2000 ifTrue:
+ [^self unaryInlinePrimitive: prim - 1000].
- prim < 2000 ifTrue:
- [^self unaryInlinePrimitive: prim - 1000].
+ prim < 3000 ifTrue:
+ [^self binaryInlinePrimitive: prim - 2000].
- prim < 3000 ifTrue:
- [^self binaryInlinePrimitive: prim - 2000].
+ prim < 4000 ifTrue:
+ [^self trinaryInlinePrimitive: prim - 3000].
+ ].
+
+ self cppIf: LowcodeVM
+ ifTrue: [
+ primSet = 1 ifTrue: [
+ prim < 1000 ifTrue:
+ [^self lowcodeNullaryInlinePrimitive: prim].
- prim < 4000 ifTrue:
- [^self trinaryInlinePrimitive: prim - 3000].
+ prim < 2000 ifTrue:
+ [^self lowcodeUnaryInlinePrimitive: prim - 1000].
+
+ prim < 3000 ifTrue:
+ [^self lowcodeBinaryInlinePrimitive: prim - 2000].
+
+ prim < 4000 ifTrue:
+ [^self lowcodeTrinaryInlinePrimitive: prim - 3000].
+ ].
+ ].
+
+ localIP := localIP - 3.
+ ^self respondToUnknownBytecode]
- localIP := localIP - 3.
- ^self respondToUnknownBytecode]
ifFalse:
[| header |
header := objectMemory methodHeaderOf: method.
((self methodHeaderHasPrimitive: header)
and: [localIP asInteger = (self initialPCForHeader: header method: method)])
ifTrue:
[localIP := localIP + (self sizeOfCallPrimitiveBytecode: header) - 1.
^self fetchNextBytecode]
ifFalse:
[^self respondToUnknownBytecode]]!
Item was changed:
----- Method: StackInterpreter>>commonCallerReturn (in category 'return bytecodes') -----
commonCallerReturn
"Return to the previous context/frame (sender for method activations, caller for block activations)."
<sharedCodeInCase: #returnTopFromBlock>
+ | callersFPOrNull doWeHaveANativeFrame |
- | callersFPOrNull |
<var: #callersFPOrNull type: #'char *'>
+ "TODO: Store/restore the nativeSP more properly, when it exists"
+ self cppIf: LowcodeVM ifTrue: [
+ doWeHaveANativeFrame := self frameHasNativeFrame: localFP.
+ doWeHaveANativeFrame ifTrue: [
+ nativeStackPointer := (self nativePreviousStackPointerIn: localFP) - 1.
+ nativeSP := 0.
+ self setFrameHasNotNativeFrame: localFP.
+ ].
+ ].
+
callersFPOrNull := self frameCallerFP: localFP.
callersFPOrNull == 0 "baseFrame" ifTrue:
[self assert: localFP = stackPage baseFP.
^self baseFrameReturn].
localIP := self frameCallerSavedIP: localFP.
localSP := localFP + (self frameStackedReceiverOffset: localFP).
localFP := callersFPOrNull.
self setMethod: (self frameMethod: localFP).
self fetchNextBytecode.
self internalStackTopPut: localReturnValue!
Item was added:
+ ----- Method: StackInterpreter>>defaultNativeStackFrameSize (in category 'stack pages') -----
+ defaultNativeStackFrameSize
+ "default native stack frame size"
+ ^ 256!
Item was changed:
----- Method: StackInterpreter>>extBBytecode (in category 'miscellaneous bytecodes') -----
extBBytecode
"225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)"
| byte |
byte := self fetchByte.
self fetchNextBytecode.
+ extB := (extB = 0 and: [extBFirstZero not and: [ byte > 127 ]])
- extB := (extB = 0 and: [byte > 127])
ifTrue: [byte - 256]
+ ifFalse: [(extB bitShift: 8) + byte].
+ extBFirstZero := extB = 0.!
- ifFalse: [(extB bitShift: 8) + byte]!
Item was added:
+ ----- Method: StackInterpreter>>frameHasNativeFrame: (in category 'frame access') -----
+ frameHasNativeFrame: theFP
+ "See encodeFrameFieldHasContext:numArgs:"
+ <inline: true>
+ <option: #LowcodeVM>
+ <var: #theFP type: #'char *'>
+ | markObject |
+ markObject := self temporary: (self frameNumArgs: theFP) in: theFP.
+
+ ^ markObject ~= objectMemory nilObject and: [ markObject = (objectMemory splObj: LowcodeContextMark)]!
Item was added:
+ ----- Method: StackInterpreter>>framePointerOfNativeArgument:in: (in category 'internal interpreter access') -----
+ framePointerOfNativeArgument: offset in: theFP
+ <inline: false>
+ <option: #LowcodeVM>
+ <returnTypeC: 'char*'>
+ <var: #theFP type: #'char*'>
+ ^ (self nativePreviousStackPointerIn: theFP) + offset - 1!
Item was added:
+ ----- Method: StackInterpreter>>framePointerOfNativeLocal:in: (in category 'internal interpreter access') -----
+ framePointerOfNativeLocal: offset in: theFP
+ <inline: false>
+ <option: #LowcodeVM>
+ <returnTypeC: 'char*'>
+ <var: #theFP type: #'char*'>
+ ^ (self nativeFramePointerIn: theFP) + offset - 1!
Item was changed:
----- Method: StackInterpreter>>initExtensions (in category 'simulation support') -----
initExtensions
<inline: true>
+ self cppIf: MULTIPLEBYTECODESETS ifTrue: [extA := extB := 0. extBFirstZero := false]!
- self cppIf: MULTIPLEBYTECODESETS ifTrue: [extA := extB := 0]!
Item was changed:
----- Method: StackInterpreter>>initializeInterpreter: (in category 'initialization') -----
initializeInterpreter: bytesToShift
"Initialize Interpreter state before starting execution of a new image."
interpreterProxy := self sqGetInterpreterProxy.
self dummyReferToProxy.
objectMemory initializeObjectMemory: bytesToShift.
self checkAssumedCompactClasses.
self initializeExtraClassInstVarIndices.
method := newMethod := objectMemory nilObject.
self cCode: '' inSmalltalk:
[breakSelectorLength ifNil:
[breakSelectorLength := objectMemory minSmallInteger]].
methodDictLinearSearchLimit := 8.
self initialCleanup.
+ self cppIf: LowcodeVM ifTrue: [ self setupNativeStack ].
profileSemaphore := profileProcess := profileMethod := objectMemory nilObject.
interruptKeycode := 2094. "cmd-. as used for Mac but no other OS"
[globalSessionID = 0] whileTrue:
[globalSessionID := self
cCode: [(self time: #NULL) + self ioMSecs]
inSmalltalk: [(Random new next * SmallInteger maxVal) asInteger]]!
Item was added:
+ ----- Method: StackInterpreter>>internalPopStackFloat32 (in category 'internal interpreter access') -----
+ internalPopStackFloat32
+ <option: #LowcodeVM>
+ <returnTypeC: #float>
+ <var: #topSingle type: #float>
+ "In the StackInterpreter stacks grow down."
+ | topSingle |
+ nativeSP := self nativeStackPointerIn: localFP.
+ topSingle := stackPages singleFloatAtPointer: nativeSP - 1.
+ nativeSP := self nativeStackPointerIn: localFP put: nativeSP + 4.
+ ^topSingle!
Item was added:
+ ----- Method: StackInterpreter>>internalPopStackFloat64 (in category 'internal interpreter access') -----
+ internalPopStackFloat64
+ <option: #LowcodeVM>
+ <returnTypeC: #double>
+ <var: #topDouble type: #double>
+ "In the StackInterpreter stacks grow down."
+ | topDouble |
+ nativeSP := self nativeStackPointerIn: localFP.
+ topDouble := stackPages floatAtPointer: nativeSP - 1.
+ nativeSP := self nativeStackPointerIn: localFP put: nativeSP + 8.
+ ^topDouble!
Item was added:
+ ----- Method: StackInterpreter>>internalPopStackInt32 (in category 'internal interpreter access') -----
+ internalPopStackInt32
+ <option: #LowcodeVM>
+ "In the StackInterpreter stacks grow down."
+ | topInt32 |
+ nativeSP := self nativeStackPointerIn: localFP.
+ topInt32 := stackPages int32AtPointer: nativeSP - 1.
+ nativeSP := self nativeStackPointerIn: localFP put: nativeSP + BytesPerOop.
+ ^topInt32!
Item was added:
+ ----- Method: StackInterpreter>>internalPopStackInt64 (in category 'internal interpreter access') -----
+ internalPopStackInt64
+ <option: #LowcodeVM>
+ <returnTypeC: #sqLong>
+ <var: #topInt64 type: #sqLong>
+ "In the StackInterpreter stacks grow down."
+ | topInt64 |
+ nativeSP := self nativeStackPointerIn: localFP.
+ topInt64 := stackPages long64AtPointer: nativeSP - 1.
+ nativeSP := self nativeStackPointerIn: localFP put: nativeSP + 8.
+ ^topInt64!
Item was added:
+ ----- Method: StackInterpreter>>internalPopStackNativeSize: (in category 'as yet unclassified') -----
+ internalPopStackNativeSize: popSize
+ <option: #LowcodeVM>
+ "In the StackInterpreter stacks grow down."
+ nativeSP := self nativeStackPointerIn: localFP.
+ nativeSP := self nativeStackPointerIn: localFP put: nativeSP + popSize.!
Item was added:
+ ----- Method: StackInterpreter>>internalPopStackPointer (in category 'internal interpreter access') -----
+ internalPopStackPointer
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #topPointer type: #'char*'>
+ "In the StackInterpreter stacks grow down."
+ | topPointer |
+ nativeSP := self nativeStackPointerIn: localFP.
+ topPointer := stackPages pointerAtPointer: nativeSP - 1.
+ nativeSP := self nativeStackPointerIn: localFP put: nativeSP + BytesPerOop.
+ ^topPointer!
Item was added:
+ ----- Method: StackInterpreter>>internalPushFloat32: (in category 'internal interpreter access') -----
+ internalPushFloat32: singleFloatValue
+ <option: #LowcodeVM>
+ <var: #singleFloatValue type: #float >
+ "In the StackInterpreter stacks grow down."
+ nativeSP := (self nativeStackPointerIn: localFP) - 4.
+ self nativeStackPointerIn: localFP put: nativeSP.
+
+ "In the StackInterpreter stacks grow down."
+ stackPages singleFloatAtPointer: (nativeSP - 1) put: singleFloatValue!
Item was added:
+ ----- Method: StackInterpreter>>internalPushFloat64: (in category 'internal interpreter access') -----
+ internalPushFloat64: floatValue
+ <option: #LowcodeVM>
+ <arg: #floatValue type: #double >
+ "In the StackInterpreter stacks grow down."
+ nativeSP := (self nativeStackPointerIn: localFP) - 8.
+ self nativeStackPointerIn: localFP put: nativeSP.
+
+ "In the StackInterpreter stacks grow down."
+ stackPages floatAtPointer: (nativeSP - 1) put: floatValue
+ !
Item was added:
+ ----- Method: StackInterpreter>>internalPushInt32: (in category 'internal interpreter access') -----
+ internalPushInt32: int32Value
+ <option: #LowcodeVM>
+ "In the StackInterpreter stacks grow down."
+ nativeSP := (self nativeStackPointerIn: localFP) - 4.
+ self nativeStackPointerIn: localFP put: nativeSP.
+
+ "In the StackInterpreter stacks grow down."
+ stackPages int32AtPointer: (nativeSP - 1) put: int32Value
+ !
Item was added:
+ ----- Method: StackInterpreter>>internalPushInt64: (in category 'internal interpreter access') -----
+ internalPushInt64: int64Value
+ <option: #LowcodeVM>
+ <arg: #int64Value type: #sqLong >
+ "In the StackInterpreter stacks grow down."
+ nativeSP := (self nativeStackPointerIn: localFP) - 8.
+ self nativeStackPointerIn: localFP put: nativeSP.
+
+ "In the StackInterpreter stacks grow down."
+ stackPages long64AtPointer: (nativeSP - 1) put: int64Value
+ !
Item was added:
+ ----- Method: StackInterpreter>>internalPushPointer: (in category 'internal interpreter access') -----
+ internalPushPointer: pointerValue
+ <option: #LowcodeVM>
+ <var: #pointerValue type: #'char*' >
+ "In the StackInterpreter stacks grow down."
+ nativeSP := (self nativeStackPointerIn: localFP) - BytesPerOop.
+ self nativeStackPointerIn: localFP put: nativeSP.
+
+ "In the StackInterpreter stacks grow down."
+ stackPages pointerAtPointer: (nativeSP - 1) put: pointerValue
+ !
Item was added:
+ ----- Method: StackInterpreter>>internalPushShadowCallStackFloat32: (in category 'internal interpreter access') -----
+ internalPushShadowCallStackFloat32: singleFloatValue
+ <option: #LowcodeVM>
+ <var: #singleFloatValue type: #float >
+ "In the StackInterpreter stacks grow down."
+ shadowCallStackPointer := shadowCallStackPointer - 4.
+
+ "In the StackInterpreter stacks grow down."
+ stackPages singleFloatAtPointer: shadowCallStackPointer put: singleFloatValue!
Item was added:
+ ----- Method: StackInterpreter>>internalPushShadowCallStackFloat64: (in category 'internal interpreter access') -----
+ internalPushShadowCallStackFloat64: floatValue
+ <option: #LowcodeVM>
+ <var: #floatValue type: #double >
+ "In the StackInterpreter stacks grow down."
+ shadowCallStackPointer := shadowCallStackPointer - 8.
+
+ "In the StackInterpreter stacks grow down."
+ stackPages singleFloatAtPointer: shadowCallStackPointer put: floatValue!
Item was added:
+ ----- Method: StackInterpreter>>internalPushShadowCallStackInt32: (in category 'internal interpreter access') -----
+ internalPushShadowCallStackInt32: int32Value
+ <option: #LowcodeVM>
+ "In the StackInterpreter stacks grow down."
+ shadowCallStackPointer := shadowCallStackPointer - 4.
+
+ "In the StackInterpreter stacks grow down."
+ stackPages int32AtPointer: shadowCallStackPointer put: int32Value!
Item was added:
+ ----- Method: StackInterpreter>>internalPushShadowCallStackInt64: (in category 'internal interpreter access') -----
+ internalPushShadowCallStackInt64: int64Value
+ <option: #LowcodeVM>
+ <arg: #int64Value type: #sqLong >
+
+ "In the StackInterpreter stacks grow down."
+ shadowCallStackPointer := shadowCallStackPointer - 8.
+
+ "In the StackInterpreter stacks grow down."
+ stackPages int64AtPointer: shadowCallStackPointer put: int64Value!
Item was added:
+ ----- Method: StackInterpreter>>internalPushShadowCallStackPointer: (in category 'internal interpreter access') -----
+ internalPushShadowCallStackPointer: pointerValue
+ <option: #LowcodeVM>
+ <var: #pointerValue type: #'char*' >
+ "In the StackInterpreter stacks grow down."
+ shadowCallStackPointer := shadowCallStackPointer - BytesPerOop.
+
+ "In the StackInterpreter stacks grow down."
+ stackPages pointerAtPointer: shadowCallStackPointer put: pointerValue!
Item was added:
+ ----- Method: StackInterpreter>>internalPushShadowCallStackSpace: (in category 'internal interpreter access') -----
+ internalPushShadowCallStackSpace: spaceSize
+ <option: #LowcodeVM>
+ "In the StackInterpreter stacks grow down."
+ shadowCallStackPointer := shadowCallStackPointer - spaceSize.!
Item was added:
+ ----- Method: StackInterpreter>>internalPushShadowCallStackStructure:size: (in category 'internal interpreter access') -----
+ internalPushShadowCallStackStructure: structurePointer size: size
+ <option: #LowcodeVM>
+ shadowCallStackPointer := shadowCallStackPointer - size.
+ self mem: shadowCallStackPointer cp: structurePointer y: size!
Item was changed:
----- Method: StackInterpreter>>internalizeIPandSP (in category 'utilities') -----
internalizeIPandSP
"Copy the instruction, stack and frame pointers to local variables for rapid access within the interpret loop."
localIP := self pointerForOop: instructionPointer.
localSP := self pointerForOop: stackPointer.
+ localFP := self pointerForOop: framePointer.
+ self cppIf: LowcodeVM ifTrue: [ nativeSP := 0. ]!
- localFP := self pointerForOop: framePointer!
Item was added:
+ ----- Method: StackInterpreter>>lowcodeBinaryInlinePrimitive: (in category 'inline primitive dispatch generated code') -----
+ lowcodeBinaryInlinePrimitive: prim
+ <option: #LowcodeVM> "Lowcode instruction interpreter dispatch"
+ prim
+ caseOf: {
+ [0] -> [ ^ self lowcodePrimitiveByteSizeOf ].
+ [1] -> [ ^ self lowcodePrimitiveFirstFieldPointer ].
+ [2] -> [ ^ self lowcodePrimitiveFirstIndexableFieldPointer ].
+ [3] -> [ ^ self lowcodePrimitiveIsBytes ].
+ [4] -> [ ^ self lowcodePrimitiveIsFloatObject ].
+ [5] -> [ ^ self lowcodePrimitiveIsIndexable ].
+ [6] -> [ ^ self lowcodePrimitiveIsIntegerObject ].
+ [7] -> [ ^ self lowcodePrimitiveIsPointers ].
+ [8] -> [ ^ self lowcodePrimitiveIsWords ].
+ [9] -> [ ^ self lowcodePrimitiveIsWordsOrBytes ].
+ [10] -> [ ^ self lowcodePrimitiveOopSmallIntegerToInt32 ].
+ [11] -> [ ^ self lowcodePrimitiveOopSmallIntegerToInt64 ].
+ [12] -> [ ^ self lowcodePrimitiveOopToBoolean32 ].
+ [13] -> [ ^ self lowcodePrimitiveOopToBoolean64 ].
+ [14] -> [ ^ self lowcodePrimitiveOopToFloat32 ].
+ [15] -> [ ^ self lowcodePrimitiveOopToFloat64 ].
+ [16] -> [ ^ self lowcodePrimitiveOopToInt32 ].
+ [17] -> [ ^ self lowcodePrimitiveOopToInt64 ].
+ [18] -> [ ^ self lowcodePrimitiveOopToPointer ].
+ [19] -> [ ^ self lowcodePrimitiveOopToPointerReinterpret ].
+ [20] -> [ ^ self lowcodePrimitiveOopToUInt32 ].
+ [21] -> [ ^ self lowcodePrimitiveOopToUInt64 ].
+ [22] -> [ ^ self lowcodePrimitivePin ].
+ [23] -> [ ^ self lowcodePrimitiveUnpin ].
+ }
+ otherwise: [
+ localIP := localIP - 3.
+ ^self respondToUnknownBytecode
+ ].
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCallout:structureResult: (in category 'inline primitive ffi abi') -----
+ lowcodeCallout: functionPointer structureResult: resultPointer
+ <option: #LowcodeVM>
+ <var: #functionPointer type: #'char*' >
+ <var: #resultPointer type: #'char*' >
+ self internalPushShadowCallStackPointer: resultPointer.
+ self externalizeIPandSP.
+ self lowcodeCalloutState: lowcodeCalloutState callFunction: functionPointer.
+ self internalizeIPandSP.
+ self reloadLowcodeStateAfterCallout.
+ ^ self lowcodeCalloutStateFetchResultStructure: lowcodeCalloutState!
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutFloat32Result: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutFloat32Result: functionPointer
+ <option: #LowcodeVM>
+ <var: #functionPointer type: #'char*' >
+ self externalizeIPandSP.
+ self lowcodeCalloutState: lowcodeCalloutState callFunction: functionPointer.
+ self internalizeIPandSP.
+ self reloadLowcodeStateAfterCallout.
+ ^ self lowcodeCalloutStateFetchResultFloat32: lowcodeCalloutState!
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutFloat64Result: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutFloat64Result: functionPointer
+ <option: #LowcodeVM>
+ <var: #functionPointer type: #'char*' >
+ self externalizeIPandSP.
+ self lowcodeCalloutState: lowcodeCalloutState callFunction: functionPointer.
+ self internalizeIPandSP.
+ self reloadLowcodeStateAfterCallout.
+ ^ self lowcodeCalloutStateFetchResultFloat64: lowcodeCalloutState!
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutInt32Result: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutInt32Result: functionPointer
+ <option: #LowcodeVM>
+ <var: #functionPointer type: #'char*' >
+ self externalizeIPandSP.
+ self lowcodeCalloutState: lowcodeCalloutState callFunction: functionPointer.
+ self internalizeIPandSP.
+ self reloadLowcodeStateAfterCallout.
+ ^ self lowcodeCalloutStateFetchResultInt32: lowcodeCalloutState!
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutInt64Result: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutInt64Result: functionPointer
+ <option: #LowcodeVM>
+ <var: #functionPointer type: #'char*' >
+ self externalizeIPandSP.
+ self lowcodeCalloutState: lowcodeCalloutState callFunction: functionPointer.
+ self internalizeIPandSP.
+ self reloadLowcodeStateAfterCallout.
+ ^ self lowcodeCalloutStateFetchResultInt64: lowcodeCalloutState!
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutPointerResult: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutPointerResult: functionPointer
+ <option: #LowcodeVM>
+ <var: #functionPointer type: #'char*' >
+ self externalizeIPandSP.
+ self lowcodeCalloutState: lowcodeCalloutState callFunction: functionPointer.
+ self internalizeIPandSP.
+ self reloadLowcodeStateAfterCallout.
+ ^ self lowcodeCalloutStateFetchResultPointer: lowcodeCalloutState!
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:callFunction: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState callFunction: functionPointer
+ <option: #LowcodeVM>
+ self lowcodeCalloutState: calloutState stackPointer: shadowCallStackPointer stackSize: (self cCoerce: lowcodeCalloutState to: #'char*') - shadowCallStackPointer callFunction: functionPointer
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:float32Register: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState float32Register: registerId
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:float32Register:value: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState float32Register: registerId value: value
+ "This is implemented as C macros in platform specific headers"
+ <var: #value type: #'float' >
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:float64Register: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState float64Register: registerId
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:float64Register:value: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState float64Register: registerId value: value
+ "This is implemented as C macros in platform specific headers"
+ <var: #value type: #'double' >
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:int32Register: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState int32Register: registerId
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:int32Register:value: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState int32Register: registerId value: value
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:int64Register: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState int64Register: registerId
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:int64Register:value: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState int64Register: registerId value: value
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:pointerRegister: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState pointerRegister: registerId
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:pointerRegister:value: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState pointerRegister: registerId value: value
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutState:stackPointer:stackSize:callFunction: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutState: calloutState stackPointer: calloutStackPointer stackSize: calloutStackSize callFunction: functionPointer
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutStateFetchResultFloat32: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutStateFetchResultFloat32: calloutState
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutStateFetchResultFloat64: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutStateFetchResultFloat64: calloutState
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutStateFetchResultInt32: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutStateFetchResultInt32: calloutState
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutStateFetchResultInt64: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutStateFetchResultInt64: calloutState
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutStateFetchResultPointer: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutStateFetchResultPointer: calloutState
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeCalloutStateFetchResultStructure: (in category 'inline primitive ffi abi') -----
+ lowcodeCalloutStateFetchResultStructure: calloutState
+ "This is implemented as C macros in platform specific headers"
+ <doNotGenerate>
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeNullaryInlinePrimitive: (in category 'inline primitive dispatch generated code') -----
+ lowcodeNullaryInlinePrimitive: prim
+ <option: #LowcodeVM> "Lowcode instruction interpreter dispatch"
+ prim
+ caseOf: {
+ [0] -> [ ^ self lowcodePrimitiveBoolean32ToOop ].
+ [1] -> [ ^ self lowcodePrimitiveBoolean64ToOop ].
+ [2] -> [ ^ self lowcodePrimitiveFloat32ToOop ].
+ [3] -> [ ^ self lowcodePrimitiveFloat64ToOop ].
+ [4] -> [ ^ self lowcodePrimitiveInt32ToOop ].
+ [5] -> [ ^ self lowcodePrimitiveInt64ToOop ].
+ [6] -> [ ^ self lowcodePrimitivePointerToOop ].
+ [7] -> [ ^ self lowcodePrimitivePointerToOopReinterprer ].
+ [8] -> [ ^ self lowcodePrimitiveSmallInt32ToOop ].
+ [9] -> [ ^ self lowcodePrimitiveUint32ToOop ].
+ [10] -> [ ^ self lowcodePrimitiveUint64ToOop ].
+ }
+ otherwise: [
+ localIP := localIP - 3.
+ ^self respondToUnknownBytecode
+ ].
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveAdd32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveAdd32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := first + second.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveAdd64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveAdd64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := first + second.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveAlloca32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveAlloca32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer size |
+ <var: #pointer type: #'char*' >
+ <var: #size type: #'sqInt' >
+ size := self internalPopStackInt32.
+
+ nativeStackPointer := self cCoerce:
+ ((self cCoerce: nativeStackPointer - size to: 'size_t') bitAnd: -16)
+ to: 'char*'.
+ pointer := nativeStackPointer.
+
+ self internalPushPointer: pointer.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveAlloca64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveAlloca64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer size |
+ <var: #pointer type: #'char*' >
+ <var: #size type: #'sqLong' >
+ size := self internalPopStackInt64.
+
+ nativeStackPointer := nativeStackPointer - size.
+ pointer := nativeStackPointer.
+
+ self internalPushPointer: pointer.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveAnd32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveAnd32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := first bitAnd: second.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveAnd64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveAnd64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := first bitAnd: second.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveArithmeticRightShift32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveArithmeticRightShift32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value shiftAmount result |
+ <var: #value type: #'sqInt' >
+ <var: #shiftAmount type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ shiftAmount := self internalPopStackInt32.
+ value := self internalPopStackInt32.
+
+ result := value >> shiftAmount.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveArithmeticRightShift64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveArithmeticRightShift64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value shiftAmount result |
+ <var: #value type: #'sqLong' >
+ <var: #shiftAmount type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ shiftAmount := self internalPopStackInt64.
+ value := self internalPopStackInt64.
+
+ result := value >> shiftAmount.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveBeginCall (in category 'inline primitive generated code') -----
+ lowcodePrimitiveBeginCall
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | alignment |
+ alignment := extA.
+
+ "Store the shadow stack pointer"
+ self shadowCallStackPointerIn: localFP put: shadowCallStackPointer + 1.
+ "Allocate the callout state"
+ self allocateLowcodeCalloutState.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveBoolean32ToOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveBoolean32ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ object := value ~= 0 ifTrue: [ objectMemory trueObject ] ifFalse: [objectMemory falseObject].
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveBoolean64ToOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveBoolean64ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ object := value ~= 0 ifTrue: [ objectMemory trueObject ] ifFalse: [objectMemory falseObject].
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveByteSizeOf (in category 'inline primitive generated code') -----
+ lowcodePrimitiveByteSizeOf
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := self byteSizeOf: object.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCallArgumentFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCallArgumentFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | argumentValue |
+ <var: #argumentValue type: #'float' >
+ argumentValue := self internalPopStackFloat32.
+
+ self internalPushShadowCallStackFloat32: argumentValue.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCallArgumentFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCallArgumentFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | argumentValue |
+ <var: #argumentValue type: #'double' >
+ argumentValue := self internalPopStackFloat64.
+
+ self internalPushShadowCallStackFloat64: argumentValue.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCallArgumentInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCallArgumentInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+ <var: #value type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ self internalPushShadowCallStackInt32: value.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCallArgumentInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCallArgumentInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+ <var: #value type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ self internalPushShadowCallStackInt64: value.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCallArgumentPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCallArgumentPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointerValue |
+ <var: #pointerValue type: #'char*' >
+ pointerValue := self internalPopStackPointer.
+
+ self internalPushShadowCallStackPointer: pointerValue.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCallArgumentSpace (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCallArgumentSpace
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | spaceSize |
+ spaceSize := extA.
+
+ self internalPushShadowCallStackSpace: spaceSize.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCallArgumentStructure (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCallArgumentStructure
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | structurePointer structureSize |
+ <var: #structurePointer type: #'char*' >
+ structureSize := extA.
+ structurePointer := self internalPopStackPointer.
+
+ self internalPushShadowCallStackStructure: structurePointer size: structureSize.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCallInstruction (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCallInstruction
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | function |
+ function := extA.
+
+ self abort.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCallPhysical (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCallPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID |
+ registerID := extA.
+
+ self abort.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCheckSessionIdentifier (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCheckSessionIdentifier
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | expectedSession value |
+ <var: #value type: #'sqInt' >
+ expectedSession := extA.
+
+ value := (expectedSession = self getThisSessionID) ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveCompareAndSwap32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveCompareAndSwap32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | newValue check oldValue value |
+ <var: #newValue type: #'sqInt' >
+ <var: #check type: #'char*' >
+ <var: #oldValue type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ newValue := self internalPopStackInt32.
+ oldValue := self internalPopStackInt32.
+ check := self internalPopStackPointer.
+
+ self abort.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveDiv32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveDiv32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := first // second.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveDiv64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveDiv64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := first // second.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveDuplicateFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveDuplicateFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value dup1 dup2 |
+ <var: #value type: #'float' >
+ <var: #dup1 type: #'float' >
+ <var: #dup2 type: #'float' >
+ value := self internalPopStackFloat32.
+
+ dup1 := value.
+ dup2 := value.
+
+ self internalPushFloat32: dup1.
+ self internalPushFloat32: dup2.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveDuplicateFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveDuplicateFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value dup1 dup2 |
+ <var: #value type: #'double' >
+ <var: #dup1 type: #'double' >
+ <var: #dup2 type: #'double' >
+ value := self internalPopStackFloat64.
+
+ dup1 := value.
+ dup2 := value.
+
+ self internalPushFloat64: dup1.
+ self internalPushFloat64: dup2.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveDuplicateInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveDuplicateInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value dup1 dup2 |
+ <var: #value type: #'sqInt' >
+ <var: #dup1 type: #'sqInt' >
+ <var: #dup2 type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ dup1 := value.
+ dup2 := value.
+
+ self internalPushInt32: dup1.
+ self internalPushInt32: dup2.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveDuplicateInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveDuplicateInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value dup1 dup2 |
+ <var: #value type: #'sqLong' >
+ <var: #dup1 type: #'sqLong' >
+ <var: #dup2 type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ dup1 := value.
+ dup2 := value.
+
+ self internalPushInt64: dup1.
+ self internalPushInt64: dup2.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveDuplicatePointer (in category 'inline primitive generated code') -----
+ lowcodePrimitiveDuplicatePointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | dup2 dup1 pointerValue |
+ <var: #dup2 type: #'char*' >
+ <var: #dup1 type: #'char*' >
+ <var: #pointerValue type: #'char*' >
+ pointerValue := self internalPopStackPointer.
+
+ dup1 := pointerValue.
+ dup2 := pointerValue.
+
+ self internalPushPointer: dup1.
+ self internalPushPointer: dup2.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveEffectiveAddress32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveEffectiveAddress32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result offset base scale index |
+ <var: #result type: #'char*' >
+ <var: #offset type: #'sqInt' >
+ <var: #base type: #'char*' >
+ <var: #scale type: #'sqInt' >
+ <var: #index type: #'sqInt' >
+ offset := self internalPopStackInt32.
+ scale := self internalPopStackInt32.
+ index := self internalPopStackInt32.
+ base := self internalPopStackPointer.
+
+ result := base + (index*scale) + offset.
+
+ self internalPushPointer: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveEffectiveAddress64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveEffectiveAddress64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result offset base scale index |
+ <var: #result type: #'char*' >
+ <var: #offset type: #'sqLong' >
+ <var: #base type: #'char*' >
+ <var: #scale type: #'sqLong' >
+ <var: #index type: #'sqLong' >
+ offset := self internalPopStackInt64.
+ scale := self internalPopStackInt64.
+ index := self internalPopStackInt64.
+ base := self internalPopStackPointer.
+
+ result := base + (index*scale) + offset.
+
+ self internalPushPointer: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveEndCall (in category 'inline primitive generated code') -----
+ lowcodePrimitiveEndCall
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ "Restore the shadow stack pointer"
+ shadowCallStackPointer := (self shadowCallStackPointerIn: localFP) - 1.
+ self shadowCallStackPointerIn: localFP put: (self cCoerce: 1 to: #'char*').
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveEndCallNoCleanup (in category 'inline primitive generated code') -----
+ lowcodePrimitiveEndCallNoCleanup
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ "Restore the shadow stack pointer"
+ shadowCallStackPointer := (self shadowCallStackPointerIn: localFP) - 1.
+ self shadowCallStackPointerIn: localFP put: (self cCoerce: 1 to: #'char*').
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFirstFieldPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFirstFieldPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object pointer |
+ <var: #object type: #'sqInt' >
+ <var: #pointer type: #'char*' >
+ object := self internalPopStack.
+
+ pointer := objectMemory firstFixedField: object.
+
+ self internalPushPointer: pointer.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFirstIndexableFieldPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFirstIndexableFieldPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object pointer |
+ <var: #object type: #'sqInt' >
+ <var: #pointer type: #'char*' >
+ object := self internalPopStack.
+
+ pointer := objectMemory firstIndexableField: object.
+
+ self internalPushPointer: pointer.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32Add (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32Add
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'float' >
+ <var: #result type: #'float' >
+ <var: #first type: #'float' >
+ second := self internalPopStackFloat32.
+ first := self internalPopStackFloat32.
+
+ result := first + second.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32Div (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32Div
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'float' >
+ <var: #result type: #'float' >
+ <var: #first type: #'float' >
+ second := self internalPopStackFloat32.
+ first := self internalPopStackFloat32.
+
+ result := first / second.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32Equal (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32Equal
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'float' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'float' >
+ second := self internalPopStackFloat32.
+ first := self internalPopStackFloat32.
+
+ value := first = second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32Great (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'float' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'float' >
+ second := self internalPopStackFloat32.
+ first := self internalPopStackFloat32.
+
+ value := first > second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32GreatEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'float' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'float' >
+ second := self internalPopStackFloat32.
+ first := self internalPopStackFloat32.
+
+ value := first >= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32Less (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'float' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'float' >
+ second := self internalPopStackFloat32.
+ first := self internalPopStackFloat32.
+
+ value := first < second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32LessEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'float' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'float' >
+ second := self internalPopStackFloat32.
+ first := self internalPopStackFloat32.
+
+ value := first <= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32Mul (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32Mul
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'float' >
+ <var: #result type: #'float' >
+ <var: #first type: #'float' >
+ second := self internalPopStackFloat32.
+ first := self internalPopStackFloat32.
+
+ result := first * second.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32Neg (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32Neg
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'float' >
+ <var: #result type: #'float' >
+ value := self internalPopStackFloat32.
+
+ result := value negated.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32NotEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32NotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'float' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'float' >
+ second := self internalPopStackFloat32.
+ first := self internalPopStackFloat32.
+
+ value := first ~= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32Sqrt (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32Sqrt
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'float' >
+ <var: #result type: #'float' >
+ value := self internalPopStackFloat32.
+
+ result := self sqrt: value.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32Sub (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32Sub
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'float' >
+ <var: #result type: #'float' >
+ <var: #first type: #'float' >
+ second := self internalPopStackFloat32.
+ first := self internalPopStackFloat32.
+
+ result := first - second.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32ToFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32ToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | singleFloatValue doubleResult |
+ <var: #singleFloatValue type: #'float' >
+ <var: #doubleResult type: #'double' >
+ singleFloatValue := self internalPopStackFloat32.
+
+ doubleResult := self cCoerce: singleFloatValue to: 'double'.
+
+ self internalPushFloat64: doubleResult.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32ToInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32ToInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'float' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackFloat32.
+
+ result := self cCoerce: value to: 'sqInt'.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32ToInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32ToInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'float' >
+ <var: #result type: #'sqLong' >
+ value := self internalPopStackFloat32.
+
+ result := self cCoerce: value to: 'sqLong'.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32ToOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | singleFloatValue object |
+ <var: #singleFloatValue type: #'float' >
+ <var: #object type: #'sqInt' >
+ singleFloatValue := self internalPopStackFloat32.
+
+ object := objectMemory floatObjectOf: singleFloatValue.
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32ToUInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32ToUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'float' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackFloat32.
+
+ result := self cCoerce: value to: 'uint32_t'.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat32ToUInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat32ToUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'float' >
+ <var: #result type: #'sqLong' >
+ value := self internalPopStackFloat32.
+
+ result := self cCoerce: value to: 'uint64_t'.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64Add (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64Add
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'double' >
+ <var: #result type: #'double' >
+ <var: #first type: #'double' >
+ second := self internalPopStackFloat64.
+ first := self internalPopStackFloat64.
+
+ result := first + second.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64Div (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64Div
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'double' >
+ <var: #result type: #'double' >
+ <var: #first type: #'double' >
+ second := self internalPopStackFloat64.
+ first := self internalPopStackFloat64.
+
+ result := first / second.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64Equal (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64Equal
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'double' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'double' >
+ second := self internalPopStackFloat64.
+ first := self internalPopStackFloat64.
+
+ value := first = second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64Great (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'double' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'double' >
+ second := self internalPopStackFloat64.
+ first := self internalPopStackFloat64.
+
+ value := first > second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64GreatEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'double' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'double' >
+ second := self internalPopStackFloat64.
+ first := self internalPopStackFloat64.
+
+ value := first >= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64Less (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'double' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'double' >
+ second := self internalPopStackFloat64.
+ first := self internalPopStackFloat64.
+
+ value := first < second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64LessEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'double' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'double' >
+ second := self internalPopStackFloat64.
+ first := self internalPopStackFloat64.
+
+ value := first <= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64Mul (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64Mul
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'double' >
+ <var: #result type: #'double' >
+ <var: #first type: #'double' >
+ second := self internalPopStackFloat64.
+ first := self internalPopStackFloat64.
+
+ result := first * second.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64Neg (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64Neg
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'double' >
+ <var: #result type: #'double' >
+ value := self internalPopStackFloat64.
+
+ result := value negated.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64NotEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64NotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'double' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'double' >
+ second := self internalPopStackFloat64.
+ first := self internalPopStackFloat64.
+
+ value := first ~= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64Sqrt (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64Sqrt
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'double' >
+ <var: #result type: #'double' >
+ value := self internalPopStackFloat64.
+
+ result := self sqrt: value.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64Sub (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64Sub
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'double' >
+ <var: #result type: #'double' >
+ <var: #first type: #'double' >
+ second := self internalPopStackFloat64.
+ first := self internalPopStackFloat64.
+
+ result := first - second.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64ToFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64ToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue singleFloatResult |
+ <var: #floatValue type: #'double' >
+ <var: #singleFloatResult type: #'float' >
+ floatValue := self internalPopStackFloat64.
+
+ singleFloatResult := self cCoerce: floatValue to: 'float'.
+
+ self internalPushFloat32: singleFloatResult.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64ToInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64ToInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue int32Result |
+ <var: #floatValue type: #'double' >
+ <var: #int32Result type: #'sqInt' >
+ floatValue := self internalPopStackFloat64.
+
+ int32Result := self cCoerce: floatValue to: 'sqInt'.
+
+ self internalPushInt32: int32Result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64ToInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64ToInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue int64Result |
+ <var: #floatValue type: #'double' >
+ <var: #int64Result type: #'sqLong' >
+ floatValue := self internalPopStackFloat64.
+
+ int64Result := self cCoerce: floatValue to: 'sqLong'.
+
+ self internalPushInt64: int64Result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64ToOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue object |
+ <var: #floatValue type: #'double' >
+ <var: #object type: #'sqInt' >
+ floatValue := self internalPopStackFloat64.
+
+ object := objectMemory floatObjectOf: floatValue.
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64ToUInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64ToUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue int64Result |
+ <var: #floatValue type: #'double' >
+ <var: #int64Result type: #'sqInt' >
+ floatValue := self internalPopStackFloat64.
+
+ int64Result := self cCoerce: floatValue to: 'uint32_t'.
+
+ self internalPushInt32: int64Result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFloat64ToUInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFloat64ToUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue int64Result |
+ <var: #floatValue type: #'double' >
+ <var: #int64Result type: #'sqLong' >
+ floatValue := self internalPopStackFloat64.
+
+ int64Result := self cCoerce: floatValue to: 'uint64_t'.
+
+ self internalPushInt64: int64Result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveFree (in category 'inline primitive generated code') -----
+ lowcodePrimitiveFree
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer |
+ <var: #pointer type: #'char*' >
+ pointer := self internalPopStackPointer.
+
+ self free: pointer.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInstantiateIndexable32Oop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInstantiateIndexable32Oop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | indexableSize object classOop |
+ <var: #indexableSize type: #'sqInt' >
+ <var: #object type: #'sqInt' >
+ <var: #classOop type: #'sqInt' >
+ indexableSize := self internalPopStackInt32.
+ classOop := self internalPopStack.
+
+ object := objectMemory instantiateClass: classOop indexableSize: indexableSize.
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInstantiateIndexableOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInstantiateIndexableOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | indexableSize object classOop |
+ <var: #object type: #'sqInt' >
+ <var: #classOop type: #'sqInt' >
+ indexableSize := extA.
+ classOop := self internalPopStack.
+
+ object := objectMemory instantiateClass: classOop indexableSize: indexableSize.
+
+ self internalPush: object.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInstantiateOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInstantiateOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object classOop |
+ <var: #object type: #'sqInt' >
+ <var: #classOop type: #'sqInt' >
+ classOop := self internalPopStack.
+
+ object := objectMemory instantiateClass: classOop indexableSize: 0.
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt32Equal (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt32Equal
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ value := first = second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt32Great (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt32Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ value := first > second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt32GreatEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt32GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ value := first >= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt32Less (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt32Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ value := first < second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt32LessEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt32LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ value := first <= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt32NotEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt32NotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ value := first ~= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt32ToFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt32ToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'float' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: value to: 'float'.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt32ToFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt32ToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'double' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: value to: 'double'.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt32ToOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt32ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ object := objectMemory signed32BitIntegerFor: value.
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt32ToPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt32ToPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'char*' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: value to: 'uintptr_t'.
+
+ self internalPushPointer: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt64Equal (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt64Equal
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqLong' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ value := first = second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt64Great (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt64Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqLong' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ value := first > second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt64GreatEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt64GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqLong' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ value := first >= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt64Less (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt64Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqLong' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ value := first < second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt64LessEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt64LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqLong' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ value := first <= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt64NotEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt64NotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqLong' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ value := first ~= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt64ToFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt64ToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'double' >
+ value := self internalPopStackInt64.
+
+ result := self cCoerce: value to: 'float'.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt64ToFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt64ToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'double' >
+ value := self internalPopStackInt64.
+
+ result := self cCoerce: value to: 'double'.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt64ToOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt64ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ object := objectMemory signed64BitIntegerFor: value.
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveInt64ToPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitiveInt64ToPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'char*' >
+ value := self internalPopStackInt64.
+
+ result := self cCoerce:
+ (self cCoerce: value to: 'intptr_t')
+ to: 'char*'.
+
+ self internalPushPointer: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveIsBytes (in category 'inline primitive generated code') -----
+ lowcodePrimitiveIsBytes
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := (objectMemory isBytes: object) ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveIsFloatObject (in category 'inline primitive generated code') -----
+ lowcodePrimitiveIsFloatObject
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := (objectMemory isFloatObject: object) ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveIsIndexable (in category 'inline primitive generated code') -----
+ lowcodePrimitiveIsIndexable
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := (objectMemory isIndexable: object) ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveIsIntegerObject (in category 'inline primitive generated code') -----
+ lowcodePrimitiveIsIntegerObject
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := (objectMemory isIntegerObject: object) ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveIsPointers (in category 'inline primitive generated code') -----
+ lowcodePrimitiveIsPointers
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := (objectMemory isPointers: object) ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveIsWords (in category 'inline primitive generated code') -----
+ lowcodePrimitiveIsWords
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := (objectMemory isWords: object) ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveIsWordsOrBytes (in category 'inline primitive generated code') -----
+ lowcodePrimitiveIsWordsOrBytes
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := (objectMemory isWordsOrBytes: object) ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLeftShift32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLeftShift32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value shiftAmount result |
+ <var: #value type: #'sqInt' >
+ <var: #shiftAmount type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ shiftAmount := self internalPopStackInt32.
+ value := self internalPopStackInt32.
+
+ result := value << shiftAmount.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLeftShift64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLeftShift64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value shiftAmount result |
+ <var: #value type: #'sqLong' >
+ <var: #shiftAmount type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ shiftAmount := self internalPopStackInt64.
+ value := self internalPopStackInt64.
+
+ result := value << shiftAmount.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentAddress (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentAddress
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer baseOffset |
+ <var: #pointer type: #'char*' >
+ baseOffset := extA.
+
+ pointer := self framePointerOfNativeArgument: baseOffset in: localFP.
+
+ self internalPushPointer: pointer.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue baseOffset |
+ <var: #floatValue type: #'float' >
+ baseOffset := extA.
+
+ floatValue := stackPages singleFloatAtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushFloat32: floatValue.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | doubleValue baseOffset |
+ <var: #doubleValue type: #'double' >
+ baseOffset := extA.
+
+ doubleValue := stackPages floatAtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushFloat64: doubleValue.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentInt16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentInt16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages int16AtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages int32AtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqLong' >
+ baseOffset := extA.
+
+ value := stackPages int64AtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushInt64: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentInt8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentInt8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages int8AtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointerResult baseOffset |
+ <var: #pointerResult type: #'char*' >
+ baseOffset := extA.
+
+ pointerResult := stackPages pointerAtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushPointer: pointerResult.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentUInt16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentUInt16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages uint16AtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentUInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages uint32AtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentUInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqLong' >
+ baseOffset := extA.
+
+ value := stackPages uint64AtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushInt64: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadArgumentUInt8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadArgumentUInt8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages uint8AtPointer: (self framePointerOfNativeArgument: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadFloat32FromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadFloat32FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'float' >
+ pointer := self internalPopStackPointer.
+
+ value := self singleFloatAtPointer: pointer.
+
+ self internalPushFloat32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadFloat64FromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadFloat64FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'double' >
+ pointer := self internalPopStackPointer.
+
+ value := self floatAtPointer: pointer.
+
+ self internalPushFloat64: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadInt16FromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadInt16FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+
+ value := self int16AtPointer: pointer.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadInt32FromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadInt32FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+
+ value := self int32AtPointer: pointer.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadInt64FromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadInt64FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqLong' >
+ pointer := self internalPopStackPointer.
+
+ value := self int64AtPointer: pointer.
+
+ self internalPushInt64: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadInt8FromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadInt8FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+
+ value := self int8AtPointer: pointer.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalAddress (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalAddress
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer baseOffset |
+ <var: #pointer type: #'char*' >
+ baseOffset := extA.
+
+ pointer := self framePointerOfNativeLocal: baseOffset in: localFP.
+
+ self internalPushPointer: pointer.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue baseOffset |
+ <var: #floatValue type: #'float' >
+ baseOffset := extA.
+
+ floatValue := stackPages singleFloatAtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushFloat32: floatValue.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | doubleValue baseOffset |
+ <var: #doubleValue type: #'double' >
+ baseOffset := extA.
+
+ doubleValue := stackPages floatAtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushFloat64: doubleValue.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalInt16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalInt16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages int16AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages int32AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqLong' >
+ baseOffset := extA.
+
+ value := stackPages int64AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushInt64: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalInt8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalInt8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages int8AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointerResult baseOffset |
+ <var: #pointerResult type: #'char*' >
+ baseOffset := extA.
+
+ pointerResult := stackPages pointerAtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushPointer: pointerResult.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalUInt16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalUInt16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages uint16AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalUInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages uint32AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalUInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqLong' >
+ baseOffset := extA.
+
+ value := stackPages uint64AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushInt64: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadLocalUInt8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadLocalUInt8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+
+ value := stackPages uint8AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP).
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadObjectAt (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadObjectAt
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | fieldIndex object fieldValue |
+ <var: #fieldIndex type: #'sqInt' >
+ <var: #object type: #'sqInt' >
+ <var: #fieldValue type: #'sqInt' >
+ fieldIndex := self internalPopStackInt32.
+ object := self internalPopStack.
+
+ fieldValue := objectMemory fetchPointer: fieldIndex ofObject: object.
+
+ self internalPush: fieldValue.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadObjectField (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadObjectField
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | fieldIndex object fieldValue |
+ <var: #object type: #'sqInt' >
+ <var: #fieldValue type: #'sqInt' >
+ fieldIndex := extA.
+ object := self internalPopStack.
+
+ fieldValue := self fetchPointer: fieldIndex ofObject: object.
+
+ self internalPush: fieldValue.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadPointerFromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadPointerFromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointerResult pointer |
+ <var: #pointerResult type: #'char*' >
+ <var: #pointer type: #'char*' >
+ pointer := self internalPopStackPointer.
+
+ pointerResult := self pointerAtPointer: pointer.
+
+ self internalPushPointer: pointerResult.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadUInt16FromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadUInt16FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+
+ value := self uint16AtPointer: pointer.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadUInt32FromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadUInt32FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+
+ value := self uint32AtPointer: pointer.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadUInt64FromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadUInt64FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqLong' >
+ pointer := self internalPopStackPointer.
+
+ value := self uint64AtPointer: pointer.
+
+ self internalPushInt64: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLoadUInt8FromMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLoadUInt8FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+
+ value := self uint8AtPointer: pointer.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLocalFrameSize (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLocalFrameSize
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | size |
+ size := extA.
+
+ "Mark the frame"
+ self setFrameHasNativeFrame: localFP.
+ "Store the previous stack pointer"
+ self nativePreviousStackPointerIn: localFP put: nativeStackPointer + 1.
+ "Make the frame pointer"
+ nativeStackPointer := nativeStackPointer - size.
+ self nativeFramePointerIn: localFP put: nativeStackPointer + 1.
+ "Set the stack pointer"
+ nativeSP := nativeStackPointer + 1.
+ self nativeStackPointerIn: localFP put: nativeStackPointer + 1.
+ "Reserve space for the native stack"
+ nativeStackPointer := nativeStackPointer - self defaultNativeStackFrameSize.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLockRegisters (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLockRegisters
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self abort.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveLockVM (in category 'inline primitive generated code') -----
+ lowcodePrimitiveLockVM
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self abort.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMalloc32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMalloc32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer size |
+ <var: #pointer type: #'char*' >
+ <var: #size type: #'sqInt' >
+ size := self internalPopStackInt32.
+
+ pointer := self malloc: size.
+
+ self internalPushPointer: pointer.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMalloc64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMalloc64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer size |
+ <var: #pointer type: #'char*' >
+ <var: #size type: #'sqLong' >
+ size := self internalPopStackInt64.
+
+ pointer := self malloc: size.
+
+ self internalPushPointer: pointer.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMemcpy32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMemcpy32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | source dest size |
+ <var: #source type: #'char*' >
+ <var: #dest type: #'char*' >
+ <var: #size type: #'sqInt' >
+ size := self internalPopStackInt32.
+ source := self internalPopStackPointer.
+ dest := self internalPopStackPointer.
+
+ self mem: dest cp: source y: size.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMemcpy64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMemcpy64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | source dest size |
+ <var: #source type: #'char*' >
+ <var: #dest type: #'char*' >
+ <var: #size type: #'sqLong' >
+ size := self internalPopStackInt64.
+ source := self internalPopStackPointer.
+ dest := self internalPopStackPointer.
+
+ self mem: dest cp: source y: size.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMemcpyFixed (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMemcpyFixed
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | source size dest |
+ <var: #source type: #'char*' >
+ <var: #dest type: #'char*' >
+ size := extA.
+ source := self internalPopStackPointer.
+ dest := self internalPopStackPointer.
+
+ self mem: dest cp: source y: size.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMoveFloat32ToPhysical (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMoveFloat32ToPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ <var: #value type: #'float' >
+ registerID := extA.
+ value := self internalPopStackFloat32.
+
+ self lowcodeCalloutState: lowcodeCalloutState float32Register: registerID value: value.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMoveFloat64ToPhysical (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMoveFloat64ToPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ <var: #value type: #'double' >
+ registerID := extA.
+ value := self internalPopStackFloat64.
+
+ self lowcodeCalloutState: lowcodeCalloutState float64Register: registerID value: value.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMoveInt32ToPhysical (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMoveInt32ToPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ <var: #value type: #'sqInt' >
+ registerID := extA.
+ value := self internalPopStackInt32.
+
+ self lowcodeCalloutState: lowcodeCalloutState int32Register: registerID value: value.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMoveInt64ToPhysical (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMoveInt64ToPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ <var: #value type: #'sqLong' >
+ registerID := extA.
+ value := self internalPopStackInt64.
+
+ self lowcodeCalloutState: lowcodeCalloutState int64Register: registerID value: value.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMovePointerToPhysical (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMovePointerToPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID pointerValue |
+ <var: #pointerValue type: #'char*' >
+ registerID := extA.
+ pointerValue := self internalPopStackPointer.
+
+ self lowcodeCalloutState: lowcodeCalloutState pointerRegister: registerID value: pointerValue.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMul32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMul32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := first * second.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveMul64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveMul64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := first * second.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveNeg32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveNeg32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ result := value negated.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveNeg64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveNeg64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ result := value negated.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveNot32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveNot32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ result := value bitXor: -1.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveNot64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveNot64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ result := value bitXor: -1.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStack.
+ first := self internalPopStack.
+
+ value := first = second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopNotEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopNotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStack.
+ first := self internalPopStack.
+
+ value := first ~= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopSmallIntegerToInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopSmallIntegerToInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := objectMemory integerValueOf: object.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopSmallIntegerToInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopSmallIntegerToInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqLong' >
+ object := self internalPopStack.
+
+ value := objectMemory integerValueOf: object.
+
+ self internalPushInt64: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopToBoolean32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopToBoolean32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := self booleanValueOf: object.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopToBoolean64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopToBoolean64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqLong' >
+ object := self internalPopStack.
+
+ value := self booleanValueOf: object.
+
+ self internalPushInt64: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopToFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'float' >
+ object := self internalPopStack.
+
+ value := objectMemory floatValueOf: object.
+
+ self internalPushFloat32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopToFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'double' >
+ object := self internalPopStack.
+
+ value := objectMemory floatValueOf: object.
+
+ self internalPushFloat64: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopToInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopToInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := self signed32BitValueOf: object.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopToInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopToInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqLong' >
+ object := self internalPopStack.
+
+ value := self signed64BitValueOf: object.
+
+ self internalPushInt64: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopToPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopToPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object pointer |
+ <var: #object type: #'sqInt' >
+ <var: #pointer type: #'char*' >
+ object := self internalPopStack.
+
+ pointer := self pointerAtPointer: (objectMemory firstIndexableField: object).
+
+ self internalPushPointer: pointer.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopToPointerReinterpret (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopToPointerReinterpret
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object pointer |
+ <var: #object type: #'sqInt' >
+ <var: #pointer type: #'char*' >
+ object := self internalPopStack.
+
+ pointer := self cCoerce: object to: 'char*'.
+
+ self internalPushPointer: pointer.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopToUInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopToUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ object := self internalPopStack.
+
+ value := self positive32BitValueOf: object.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOopToUInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOopToUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqLong' >
+ object := self internalPopStack.
+
+ value := self positive64BitValueOf: object.
+
+ self internalPushInt64: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOr32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOr32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := first bitOr: second.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveOr64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveOr64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := first bitOr: second.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result function |
+ <var: #result type: #'float' >
+ function := extA.
+
+ result := self lowcodeCalloutFloat32Result: (self cCoerce: function to: #'char*').
+
+ self internalPushFloat32: result.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result function |
+ <var: #result type: #'double' >
+ function := extA.
+
+ result := self lowcodeCalloutFloat64Result: (self cCoerce: function to: #'char*').
+
+ self internalPushFloat64: result.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallIndirectFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallIndirectFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result function |
+ <var: #result type: #'float' >
+ <var: #function type: #'char*' >
+ function := self internalPopStackPointer.
+
+ result := self lowcodeCalloutFloat32Result: function.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallIndirectFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallIndirectFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result function |
+ <var: #result type: #'double' >
+ <var: #function type: #'char*' >
+ function := self internalPopStackPointer.
+
+ result := self lowcodeCalloutFloat64Result: function.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallIndirectInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallIndirectInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result function |
+ <var: #result type: #'sqInt' >
+ <var: #function type: #'char*' >
+ function := self internalPopStackPointer.
+
+ result := self lowcodeCalloutInt32Result: function.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallIndirectInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallIndirectInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result function |
+ <var: #result type: #'sqLong' >
+ <var: #function type: #'char*' >
+ function := self internalPopStackPointer.
+
+ result := self lowcodeCalloutInt64Result: function.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallIndirectPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallIndirectPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result function |
+ <var: #result type: #'char*' >
+ <var: #function type: #'char*' >
+ function := self internalPopStackPointer.
+
+ result := self lowcodeCalloutPointerResult: function.
+
+ self internalPushPointer: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallIndirectStructure (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallIndirectStructure
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | resultPointer result function structureSize |
+ <var: #resultPointer type: #'char*' >
+ <var: #result type: #'char*' >
+ <var: #function type: #'char*' >
+ structureSize := extA.
+ result := self internalPopStackPointer.
+ function := self internalPopStackPointer.
+
+ resultPointer := self lowcodeCallout: function structureResult: result.
+
+ self internalPushPointer: resultPointer.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallIndirectVoid (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallIndirectVoid
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | function |
+ <var: #function type: #'char*' >
+ function := self internalPopStackPointer.
+
+ self lowcodeCalloutInt32Result: function.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result function |
+ <var: #result type: #'sqInt' >
+ function := extA.
+
+ result := self lowcodeCalloutInt32Result: (self cCoerce: function to: #'char*').
+
+ self internalPushInt32: result.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result function |
+ <var: #result type: #'sqLong' >
+ function := extA.
+
+ result := self lowcodeCalloutInt64Result: (self cCoerce: function to: #'char*').
+
+ self internalPushInt64: result.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result function |
+ <var: #result type: #'char*' >
+ function := extA.
+
+ result := self lowcodeCalloutPointerResult: (self cCoerce: function to: #'char*').
+
+ self internalPushPointer: result.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallStructure (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallStructure
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | resultPointer result function structureSize |
+ <var: #resultPointer type: #'char*' >
+ <var: #result type: #'char*' >
+ function := extA.
+ structureSize := extB.
+ result := self internalPopStackPointer.
+
+ self internalPushShadowCallStackPointer: result.
+ resultPointer := self lowcodeCalloutPointerResult: (self cCoerce: function to: #'char*').
+
+ self internalPushPointer: resultPointer.
+ extA := 0.
+ extB := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePerformCallVoid (in category 'inline primitive generated code') -----
+ lowcodePrimitivePerformCallVoid
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | function |
+ function := extA.
+
+ self lowcodeCalloutInt32Result: (self cCoerce: function to: #'char*').
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePin (in category 'inline primitive generated code') -----
+ lowcodePrimitivePin
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object |
+ <var: #object type: #'sqInt' >
+ object := self internalPopStack.
+
+ objectMemory pinObject: object.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePlaftormCode (in category 'inline primitive generated code') -----
+ lowcodePrimitivePlaftormCode
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | code |
+ <var: #code type: #'sqInt' >
+
+ self abort.
+
+ self internalPushInt32: code.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePointerAddConstantOffset (in category 'inline primitive generated code') -----
+ lowcodePrimitivePointerAddConstantOffset
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | base offset result |
+ <var: #base type: #'char*' >
+ <var: #result type: #'char*' >
+ offset := extB.
+ base := self internalPopStackPointer.
+
+ result := base + offset.
+
+ self internalPushPointer: result.
+ extB := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePointerAddOffset32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePointerAddOffset32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | base offset result |
+ <var: #base type: #'char*' >
+ <var: #offset type: #'sqInt' >
+ <var: #result type: #'char*' >
+ offset := self internalPopStackInt32.
+ base := self internalPopStackPointer.
+
+ result := base + offset.
+
+ self internalPushPointer: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePointerAddOffset64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePointerAddOffset64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | base offset result |
+ <var: #base type: #'char*' >
+ <var: #offset type: #'sqLong' >
+ <var: #result type: #'char*' >
+ offset := self internalPopStackInt64.
+ base := self internalPopStackPointer.
+
+ result := base + offset.
+
+ self internalPushPointer: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePointerEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitivePointerEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'char*' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'char*' >
+ second := self internalPopStackPointer.
+ first := self internalPopStackPointer.
+
+ value := first = second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePointerNotEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitivePointerNotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'char*' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'char*' >
+ second := self internalPopStackPointer.
+ first := self internalPopStackPointer.
+
+ value := first ~= second ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePointerToInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePointerToInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer result |
+ <var: #pointer type: #'char*' >
+ <var: #result type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+
+ result := self cCoerce: pointer to: 'uintptr_t'.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePointerToInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePointerToInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer result |
+ <var: #pointer type: #'char*' >
+ <var: #result type: #'sqLong' >
+ pointer := self internalPopStackPointer.
+
+ result := self cCoerce: pointer to: 'uintptr_t'.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePointerToOop (in category 'inline primitive generated code') -----
+ lowcodePrimitivePointerToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer object pointerClassLiteral |
+ <var: #pointer type: #'char*' >
+ <var: #object type: #'sqInt' >
+ pointerClassLiteral := self literal: extA.
+ pointer := self internalPopStackPointer.
+
+ object := objectMemory instantiateClass: pointerClassLiteral indexableSize: BytesPerWord.
+ self pointerAtPointer: (objectMemory firstIndexableField: object) put: pointer.
+
+ self internalPush: object.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePointerToOopReinterprer (in category 'inline primitive generated code') -----
+ lowcodePrimitivePointerToOopReinterprer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer object |
+ <var: #pointer type: #'char*' >
+ <var: #object type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+
+ object := self cCoerce: pointer to: 'sqInt'.
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePopFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePopFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+ <var: #value type: #'float' >
+ value := self internalPopStackFloat32.
+
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePopFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePopFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+ <var: #value type: #'double' >
+ value := self internalPopStackFloat64.
+
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePopInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePopInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+ <var: #value type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePopInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePopInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+ <var: #value type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePopMultipleNative (in category 'inline primitive generated code') -----
+ lowcodePrimitivePopMultipleNative
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | popSize |
+ popSize := extA.
+
+ self internalPopStackNativeSize: popSize.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePopPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitivePopPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointerValue |
+ <var: #pointerValue type: #'char*' >
+ pointerValue := self internalPopStackPointer.
+
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushConstantUInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushConstantUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result constant |
+ <var: #result type: #'sqInt' >
+ constant := extA.
+
+ result := constant.
+
+ self internalPushInt32: result.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushConstantUInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushConstantUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result constant |
+ <var: #result type: #'sqLong' >
+ constant := extA.
+
+ result := constant.
+
+ self internalPushInt64: result.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushNullPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushNullPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result |
+ <var: #result type: #'char*' >
+
+ result := 0.
+
+ self internalPushPointer: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushOne32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushOne32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result |
+ <var: #result type: #'sqInt' >
+
+ result := 1.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushOne64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushOne64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result |
+ <var: #result type: #'sqLong' >
+
+ result := 1.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushOneFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushOneFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result |
+ <var: #result type: #'float' >
+
+ result := 1.0.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushOneFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushOneFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result |
+ <var: #result type: #'double' >
+
+ result := 1.0.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushPhysicalFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushPhysicalFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ <var: #value type: #'float' >
+ registerID := extA.
+
+ value := self lowcodeCalloutState: lowcodeCalloutState float32Register: registerID.
+
+ self internalPushFloat32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushPhysicalFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushPhysicalFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ <var: #value type: #'double' >
+ registerID := extA.
+
+ value := self lowcodeCalloutState: lowcodeCalloutState float64Register: registerID.
+
+ self internalPushFloat64: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushPhysicalInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushPhysicalInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ <var: #value type: #'sqInt' >
+ registerID := extA.
+
+ value := self lowcodeCalloutState: lowcodeCalloutState int32Register: registerID.
+
+ self internalPushInt32: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushPhysicalInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushPhysicalInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ <var: #value type: #'sqLong' >
+ registerID := extA.
+
+ value := self lowcodeCalloutState: lowcodeCalloutState int64Register: registerID.
+
+ self internalPushInt64: value.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushPhysicalPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushPhysicalPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID pointerValue |
+ <var: #pointerValue type: #'char*' >
+ registerID := extA.
+
+ pointerValue := self lowcodeCalloutState: lowcodeCalloutState pointerRegister: registerID.
+
+ self internalPushPointer: pointerValue.
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushSessionIdentifier (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushSessionIdentifier
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+ <var: #value type: #'sqInt' >
+
+ value := self getThisSessionID.
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushZero32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushZero32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result |
+ <var: #result type: #'sqInt' >
+
+ result := 0.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushZero64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushZero64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result |
+ <var: #result type: #'sqLong' >
+
+ result := 0.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushZeroFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushZeroFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result |
+ <var: #result type: #'float' >
+
+ result := 0.0.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitivePushZeroFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitivePushZeroFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | result |
+ <var: #result type: #'double' >
+
+ result := 0.0.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveRem32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveRem32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := first \\ second.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveRem64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveRem64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := first \\ second.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveRightShift32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveRightShift32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value shiftAmount result |
+ <var: #value type: #'sqInt' >
+ <var: #shiftAmount type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ shiftAmount := self internalPopStackInt32.
+ value := self internalPopStackInt32.
+
+ result := value >> shiftAmount.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveRightShift64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveRightShift64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value shiftAmount result |
+ <var: #value type: #'sqLong' >
+ <var: #shiftAmount type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ shiftAmount := self internalPopStackInt64.
+ value := self internalPopStackInt64.
+
+ result := value >> shiftAmount.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveSignExtend32From16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveSignExtend32From16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: value to: 'signed short'.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveSignExtend32From8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveSignExtend32From8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: value to: 'signed char'.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveSignExtend64From16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveSignExtend64From16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ result := self cCoerce: value to: 'int16_t'.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveSignExtend64From32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveSignExtend64From32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'sqLong' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: value to: 'int32_t'.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveSignExtend64From8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveSignExtend64From8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ result := self cCoerce: value to: 'signed char'.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveSmallInt32ToOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveSmallInt32ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ object := objectMemory integerObjectOf: value.
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreFloat32ToMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreFloat32ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue pointer |
+ <var: #floatValue type: #'float' >
+ <var: #pointer type: #'char*' >
+ pointer := self internalPopStackPointer.
+ floatValue := self internalPopStackFloat32.
+
+ self singleFloatAtPointer: pointer put: floatValue.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreFloat64ToMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreFloat64ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | doubleValue pointer |
+ <var: #doubleValue type: #'double' >
+ <var: #pointer type: #'char*' >
+ pointer := self internalPopStackPointer.
+ doubleValue := self internalPopStackFloat64.
+
+ self floatAtPointer: pointer put: doubleValue.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreInt16ToMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreInt16ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+ value := self internalPopStackInt32.
+
+ self int16AtPointer: pointer put: value.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreInt32ToMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreInt32ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+ value := self internalPopStackInt32.
+
+ self int32AtPointer: pointer put: value.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreInt64ToMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreInt64ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqLong' >
+ pointer := self internalPopStackPointer.
+ value := self internalPopStackInt64.
+
+ self int64AtPointer: pointer put: value.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreInt8ToMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreInt8ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+ <var: #pointer type: #'char*' >
+ <var: #value type: #'sqInt' >
+ pointer := self internalPopStackPointer.
+ value := self internalPopStackInt32.
+
+ self int8AtPointer: pointer put: value.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreLocalFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreLocalFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'float' >
+ baseOffset := extA.
+ value := self internalPopStackFloat32.
+
+ stackPages singleFloatAtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP) put: value.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreLocalFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreLocalFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'double' >
+ baseOffset := extA.
+ value := self internalPopStackFloat64.
+
+ stackPages floatAtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP) put: value.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreLocalInt16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreLocalInt16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+ value := self internalPopStackInt32.
+
+ stackPages int16AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP) put: value.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreLocalInt32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreLocalInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+ value := self internalPopStackInt32.
+
+ stackPages int32AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP) put: value.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreLocalInt64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreLocalInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ <var: #valueInt64 type: #'sqLong'>
+ |valueInt64|
+ BytesPerWord = 4 ifTrue: [
+ self lowcodeStoreLocalInt64Workaround: extA in: localFP sp: localSP.
+ ] ifFalse: [
+ valueInt64 := self internalPopStackInt64.
+ stackPages int64AtPointer: (self framePointerOfNativeLocal: extA in: localFP) put: valueInt64.
+ ].
+ extA := 0.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreLocalInt8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreLocalInt8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ <var: #value type: #'sqInt' >
+ baseOffset := extA.
+ value := self internalPopStackInt32.
+
+ stackPages int8AtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP) put: value.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreLocalPointer (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreLocalPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointerValue baseOffset |
+ <var: #pointerValue type: #'char*' >
+ baseOffset := extA.
+ pointerValue := self internalPopStackPointer.
+
+ stackPages pointerAtPointer: (self framePointerOfNativeLocal: baseOffset in: localFP) put: pointerValue.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreObjectField (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreObjectField
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | fieldIndex object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ fieldIndex := extA.
+ value := self internalPopStack.
+ object := self internalPopStack.
+
+ objectMemory storePointer: fieldIndex ofObject: object withValue: value.
+
+ extA := 0.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStoreObjectFieldAt (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStoreObjectFieldAt
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | fieldIndex object value |
+ <var: #fieldIndex type: #'sqInt' >
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ value := self internalPopStack.
+ fieldIndex := self internalPopStackInt32.
+ object := self internalPopStack.
+
+ objectMemory storePointer: fieldIndex ofObject: object withValue: value.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveStorePointerToMemory (in category 'inline primitive generated code') -----
+ lowcodePrimitiveStorePointerToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | memoryPointer pointerValue |
+ <var: #memoryPointer type: #'char*' >
+ <var: #pointerValue type: #'char*' >
+ memoryPointer := self internalPopStackPointer.
+ pointerValue := self internalPopStackPointer.
+
+ self pointerAtPointer: memoryPointer put: pointerValue.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveSub32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveSub32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := first - second.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveSub64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveSub64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := first - second.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveTruncate32To16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveTruncate32To16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ result := value bitAnd: 16rFFFF.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveTruncate32To8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveTruncate32To8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ result := value bitAnd: 16rFF.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveTruncate64To16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveTruncate64To16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt64.
+
+ result := value bitAnd: 16rFFFF.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveTruncate64To32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveTruncate64To32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt64.
+
+ result := value bitAnd: 16rFFFFFFFF.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveTruncate64To8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveTruncate64To8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt64.
+
+ result := value bitAnd: 16rFF.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUdiv32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUdiv32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := (self cCoerce: first to: 'unsigned int') //
+ (self cCoerce: second to: 'unsigned int').
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUdiv64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUdiv64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := (self cCoerce: first to: 'uint64_t') //
+ (self cCoerce: second to: 'uint64_t').
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint32Great (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint32Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ value := (self cCoerce: first to: 'unsigned int') >
+ (self cCoerce: second to: 'unsigned int') ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint32GreatEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint32GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ value := (self cCoerce: first to: 'unsigned int') >=
+ (self cCoerce: second to: 'unsigned int') ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint32Less (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint32Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ value := (self cCoerce: first to: 'unsigned int') <
+ (self cCoerce: second to: 'unsigned int') ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint32LessEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint32LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ value := (self cCoerce: first to: 'unsigned int') <=
+ (self cCoerce: second to: 'unsigned int') ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint32ToFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint32ToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'float' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: (self cCoerce: value to: 'unsigned int') to: 'float'.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint32ToFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint32ToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'double' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: (self cCoerce: value to: 'unsigned int') to: 'double'.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint32ToOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint32ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ object := objectMemory positive32BitIntegerFor: value.
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint64Great (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint64Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqLong' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ value := (self cCoerce: first to: 'uint64_t') >
+ (self cCoerce: second to: 'uint64_t') ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint64GreatEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint64GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqLong' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ value := (self cCoerce: first to: 'uint64_t') >=
+ (self cCoerce: second to: 'uint64_t') ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint64Less (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint64Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqLong' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ value := (self cCoerce: first to: 'uint64_t') <
+ (self cCoerce: second to: 'uint64_t') ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint64LessEqual (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint64LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second value first |
+ <var: #second type: #'sqLong' >
+ <var: #value type: #'sqInt' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ value := (self cCoerce: first to: 'uint64_t') <=
+ (self cCoerce: second to: 'uint64_t') ifTrue: [1] ifFalse: [0].
+
+ self internalPushInt32: value.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint64ToFloat32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint64ToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'float' >
+ value := self internalPopStackInt64.
+
+ result := self cCoerce: (self cCoerce: value to: 'uint64_t') to: 'float'.
+
+ self internalPushFloat32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint64ToFloat64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint64ToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'double' >
+ value := self internalPopStackInt64.
+
+ result := self cCoerce: (self cCoerce: value to: 'uint64_t') to: 'double'.
+
+ self internalPushFloat64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUint64ToOop (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUint64ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+ <var: #object type: #'sqInt' >
+ <var: #value type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ object := self positive64BitIntegerFor: value.
+
+ self internalPush: object.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUmul32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUmul32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := (self cCoerce: first to: 'unsigned int') *
+ (self cCoerce: second to: 'unsigned int').
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUmul64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUmul64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := (self cCoerce: first to: 'uint64_t') *
+ (self cCoerce: second to: 'uint64_t').
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUnlockRegisters (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUnlockRegisters
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self abort.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUnlockVM (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUnlockVM
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self abort.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUnpin (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUnpin
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object |
+ <var: #object type: #'sqInt' >
+ object := self internalPopStack.
+
+ objectMemory unpinObject: object.
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUrem32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUrem32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := (self cCoerce: first to: 'unsigned int') \\
+ (self cCoerce: second to: 'unsigned int').
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveUrem64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveUrem64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := (self cCoerce: first to: 'unsigned int') \\
+ (self cCoerce: second to: 'unsigned int').
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveXor32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveXor32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ <var: #first type: #'sqInt' >
+ second := self internalPopStackInt32.
+ first := self internalPopStackInt32.
+
+ result := first bitXor: second.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveXor64 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveXor64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+ <var: #second type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ <var: #first type: #'sqLong' >
+ second := self internalPopStackInt64.
+ first := self internalPopStackInt64.
+
+ result := first bitXor: second.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveZeroExtend32From16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveZeroExtend32From16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: value to: 'uint16_t'.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveZeroExtend32From8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveZeroExtend32From8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'sqInt' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: value to: 'uint8_t'.
+
+ self internalPushInt32: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveZeroExtend64From16 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveZeroExtend64From16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ result := self cCoerce: value to: 'uint16_t'.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveZeroExtend64From32 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveZeroExtend64From32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqInt' >
+ <var: #result type: #'sqLong' >
+ value := self internalPopStackInt32.
+
+ result := self cCoerce: value to: 'uint32_t'.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodePrimitiveZeroExtend64From8 (in category 'inline primitive generated code') -----
+ lowcodePrimitiveZeroExtend64From8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+ <var: #value type: #'sqLong' >
+ <var: #result type: #'sqLong' >
+ value := self internalPopStackInt64.
+
+ result := self cCoerce: value to: 'uint8_t'.
+
+ self internalPushInt64: result.
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeStoreLocalInt64Workaround:in:sp: (in category 'inline primitive support') -----
+ lowcodeStoreLocalInt64Workaround: baseOffset in: theFP sp: theSP
+ "This method is a workaround a GCC bug"
+ <inline: #never>
+ <option: #LowcodeVM>
+ <var: #theFP type: #'char*'>
+ <var: #theSP type: #'char*'>
+ <var: #value type: #'sqLong'>
+ | value workNativeSP|
+
+ "Fetch the value from the native tack"
+ workNativeSP := (self nativeStackPointerIn: theFP).
+ value := stackPages long64AtPointer: (workNativeSP - 1).
+ self nativeStackPointerIn: theFP put: workNativeSP + 8.
+
+ "Store the local"
+ self int64AtPointer: (self framePointerOfNativeLocal: baseOffset in: theFP) put: value.!
Item was added:
+ ----- Method: StackInterpreter>>lowcodeTrinaryInlinePrimitive: (in category 'inline primitive dispatch generated code') -----
+ lowcodeTrinaryInlinePrimitive: prim
+ <option: #LowcodeVM> "Lowcode instruction interpreter dispatch"
+ prim
+ caseOf: {
+ [0] -> [ ^ self lowcodePrimitiveOopEqual ].
+ [1] -> [ ^ self lowcodePrimitiveOopNotEqual ].
+ [2] -> [ ^ self lowcodePrimitiveStoreObjectField ].
+ [3] -> [ ^ self lowcodePrimitiveStoreObjectFieldAt ].
+ }
+ otherwise: [
+ localIP := localIP - 3.
+ ^self respondToUnknownBytecode
+ ].
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeUnaryInlinePrimitive2: (in category 'inline primitive dispatch generated code') -----
+ lowcodeUnaryInlinePrimitive2: prim
+ <option: #LowcodeVM> "Lowcode instruction interpreter dispatch"
+ prim
+ caseOf: {
+ [60] -> [ ^ self lowcodePrimitiveFloat64ToFloat32 ].
+ [61] -> [ ^ self lowcodePrimitiveFloat64ToInt32 ].
+ [62] -> [ ^ self lowcodePrimitiveFloat64ToInt64 ].
+ [63] -> [ ^ self lowcodePrimitiveFloat64ToUInt32 ].
+ [64] -> [ ^ self lowcodePrimitiveFloat64ToUInt64 ].
+ [65] -> [ ^ self lowcodePrimitiveFree ].
+ [66] -> [ ^ self lowcodePrimitiveInstantiateIndexable32Oop ].
+ [67] -> [ ^ self lowcodePrimitiveInstantiateIndexableOop ].
+ [68] -> [ ^ self lowcodePrimitiveInstantiateOop ].
+ [69] -> [ ^ self lowcodePrimitiveInt32Equal ].
+ [70] -> [ ^ self lowcodePrimitiveInt32Great ].
+ [71] -> [ ^ self lowcodePrimitiveInt32GreatEqual ].
+ [72] -> [ ^ self lowcodePrimitiveInt32Less ].
+ [73] -> [ ^ self lowcodePrimitiveInt32LessEqual ].
+ [74] -> [ ^ self lowcodePrimitiveInt32NotEqual ].
+ [75] -> [ ^ self lowcodePrimitiveInt32ToFloat32 ].
+ [76] -> [ ^ self lowcodePrimitiveInt32ToFloat64 ].
+ [77] -> [ ^ self lowcodePrimitiveInt32ToPointer ].
+ [78] -> [ ^ self lowcodePrimitiveInt64Equal ].
+ [79] -> [ ^ self lowcodePrimitiveInt64Great ].
+ [80] -> [ ^ self lowcodePrimitiveInt64GreatEqual ].
+ [81] -> [ ^ self lowcodePrimitiveInt64Less ].
+ [82] -> [ ^ self lowcodePrimitiveInt64LessEqual ].
+ [83] -> [ ^ self lowcodePrimitiveInt64NotEqual ].
+ [84] -> [ ^ self lowcodePrimitiveInt64ToFloat32 ].
+ [85] -> [ ^ self lowcodePrimitiveInt64ToFloat64 ].
+ [86] -> [ ^ self lowcodePrimitiveInt64ToPointer ].
+ [87] -> [ ^ self lowcodePrimitiveLeftShift32 ].
+ [88] -> [ ^ self lowcodePrimitiveLeftShift64 ].
+ [89] -> [ ^ self lowcodePrimitiveLoadArgumentAddress ].
+ [90] -> [ ^ self lowcodePrimitiveLoadArgumentFloat32 ].
+ [91] -> [ ^ self lowcodePrimitiveLoadArgumentFloat64 ].
+ [92] -> [ ^ self lowcodePrimitiveLoadArgumentInt16 ].
+ [93] -> [ ^ self lowcodePrimitiveLoadArgumentInt32 ].
+ [94] -> [ ^ self lowcodePrimitiveLoadArgumentInt64 ].
+ [95] -> [ ^ self lowcodePrimitiveLoadArgumentInt8 ].
+ [96] -> [ ^ self lowcodePrimitiveLoadArgumentPointer ].
+ [97] -> [ ^ self lowcodePrimitiveLoadArgumentUInt16 ].
+ [98] -> [ ^ self lowcodePrimitiveLoadArgumentUInt32 ].
+ [99] -> [ ^ self lowcodePrimitiveLoadArgumentUInt64 ].
+ [100] -> [ ^ self lowcodePrimitiveLoadArgumentUInt8 ].
+ [101] -> [ ^ self lowcodePrimitiveLoadFloat32FromMemory ].
+ [102] -> [ ^ self lowcodePrimitiveLoadFloat64FromMemory ].
+ [103] -> [ ^ self lowcodePrimitiveLoadInt16FromMemory ].
+ [104] -> [ ^ self lowcodePrimitiveLoadInt32FromMemory ].
+ [105] -> [ ^ self lowcodePrimitiveLoadInt64FromMemory ].
+ [106] -> [ ^ self lowcodePrimitiveLoadInt8FromMemory ].
+ [107] -> [ ^ self lowcodePrimitiveLoadLocalAddress ].
+ [108] -> [ ^ self lowcodePrimitiveLoadLocalFloat32 ].
+ [109] -> [ ^ self lowcodePrimitiveLoadLocalFloat64 ].
+ [110] -> [ ^ self lowcodePrimitiveLoadLocalInt16 ].
+ [111] -> [ ^ self lowcodePrimitiveLoadLocalInt32 ].
+ [112] -> [ ^ self lowcodePrimitiveLoadLocalInt64 ].
+ [113] -> [ ^ self lowcodePrimitiveLoadLocalInt8 ].
+ [114] -> [ ^ self lowcodePrimitiveLoadLocalPointer ].
+ [115] -> [ ^ self lowcodePrimitiveLoadLocalUInt16 ].
+ [116] -> [ ^ self lowcodePrimitiveLoadLocalUInt32 ].
+ [117] -> [ ^ self lowcodePrimitiveLoadLocalUInt64 ].
+ [118] -> [ ^ self lowcodePrimitiveLoadLocalUInt8 ].
+ [119] -> [ ^ self lowcodePrimitiveLoadObjectAt ].
+ }
+ otherwise: [ ^ self lowcodeUnaryInlinePrimitive3: prim ].
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeUnaryInlinePrimitive3: (in category 'inline primitive dispatch generated code') -----
+ lowcodeUnaryInlinePrimitive3: prim
+ <option: #LowcodeVM> "Lowcode instruction interpreter dispatch"
+ prim
+ caseOf: {
+ [120] -> [ ^ self lowcodePrimitiveLoadObjectField ].
+ [121] -> [ ^ self lowcodePrimitiveLoadPointerFromMemory ].
+ [122] -> [ ^ self lowcodePrimitiveLoadUInt16FromMemory ].
+ [123] -> [ ^ self lowcodePrimitiveLoadUInt32FromMemory ].
+ [124] -> [ ^ self lowcodePrimitiveLoadUInt64FromMemory ].
+ [125] -> [ ^ self lowcodePrimitiveLoadUInt8FromMemory ].
+ [126] -> [ ^ self lowcodePrimitiveLocalFrameSize ].
+ [127] -> [ ^ self lowcodePrimitiveLockRegisters ].
+ [128] -> [ ^ self lowcodePrimitiveLockVM ].
+ [129] -> [ ^ self lowcodePrimitiveMalloc32 ].
+ [130] -> [ ^ self lowcodePrimitiveMalloc64 ].
+ [131] -> [ ^ self lowcodePrimitiveMemcpy32 ].
+ [132] -> [ ^ self lowcodePrimitiveMemcpy64 ].
+ [133] -> [ ^ self lowcodePrimitiveMemcpyFixed ].
+ [134] -> [ ^ self lowcodePrimitiveMoveFloat32ToPhysical ].
+ [135] -> [ ^ self lowcodePrimitiveMoveFloat64ToPhysical ].
+ [136] -> [ ^ self lowcodePrimitiveMoveInt32ToPhysical ].
+ [137] -> [ ^ self lowcodePrimitiveMoveInt64ToPhysical ].
+ [138] -> [ ^ self lowcodePrimitiveMovePointerToPhysical ].
+ [139] -> [ ^ self lowcodePrimitiveMul32 ].
+ [140] -> [ ^ self lowcodePrimitiveMul64 ].
+ [141] -> [ ^ self lowcodePrimitiveNeg32 ].
+ [142] -> [ ^ self lowcodePrimitiveNeg64 ].
+ [143] -> [ ^ self lowcodePrimitiveNot32 ].
+ [144] -> [ ^ self lowcodePrimitiveNot64 ].
+ [145] -> [ ^ self lowcodePrimitiveOr32 ].
+ [146] -> [ ^ self lowcodePrimitiveOr64 ].
+ [147] -> [ ^ self lowcodePrimitivePerformCallFloat32 ].
+ [148] -> [ ^ self lowcodePrimitivePerformCallFloat64 ].
+ [149] -> [ ^ self lowcodePrimitivePerformCallIndirectFloat32 ].
+ [150] -> [ ^ self lowcodePrimitivePerformCallIndirectFloat64 ].
+ [151] -> [ ^ self lowcodePrimitivePerformCallIndirectInt32 ].
+ [152] -> [ ^ self lowcodePrimitivePerformCallIndirectInt64 ].
+ [153] -> [ ^ self lowcodePrimitivePerformCallIndirectPointer ].
+ [154] -> [ ^ self lowcodePrimitivePerformCallIndirectStructure ].
+ [155] -> [ ^ self lowcodePrimitivePerformCallIndirectVoid ].
+ [156] -> [ ^ self lowcodePrimitivePerformCallInt32 ].
+ [157] -> [ ^ self lowcodePrimitivePerformCallInt64 ].
+ [158] -> [ ^ self lowcodePrimitivePerformCallPointer ].
+ [159] -> [ ^ self lowcodePrimitivePerformCallStructure ].
+ [160] -> [ ^ self lowcodePrimitivePerformCallVoid ].
+ [161] -> [ ^ self lowcodePrimitivePlaftormCode ].
+ [162] -> [ ^ self lowcodePrimitivePointerAddConstantOffset ].
+ [163] -> [ ^ self lowcodePrimitivePointerAddOffset32 ].
+ [164] -> [ ^ self lowcodePrimitivePointerAddOffset64 ].
+ [165] -> [ ^ self lowcodePrimitivePointerEqual ].
+ [166] -> [ ^ self lowcodePrimitivePointerNotEqual ].
+ [167] -> [ ^ self lowcodePrimitivePointerToInt32 ].
+ [168] -> [ ^ self lowcodePrimitivePointerToInt64 ].
+ [169] -> [ ^ self lowcodePrimitivePopFloat32 ].
+ [170] -> [ ^ self lowcodePrimitivePopFloat64 ].
+ [171] -> [ ^ self lowcodePrimitivePopInt32 ].
+ [172] -> [ ^ self lowcodePrimitivePopInt64 ].
+ [173] -> [ ^ self lowcodePrimitivePopMultipleNative ].
+ [174] -> [ ^ self lowcodePrimitivePopPointer ].
+ [175] -> [ ^ self lowcodePrimitivePushConstantUInt32 ].
+ [176] -> [ ^ self lowcodePrimitivePushConstantUInt64 ].
+ [177] -> [ ^ self lowcodePrimitivePushNullPointer ].
+ [178] -> [ ^ self lowcodePrimitivePushOne32 ].
+ [179] -> [ ^ self lowcodePrimitivePushOne64 ].
+ }
+ otherwise: [ ^ self lowcodeUnaryInlinePrimitive4: prim ].
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeUnaryInlinePrimitive4: (in category 'inline primitive dispatch generated code') -----
+ lowcodeUnaryInlinePrimitive4: prim
+ <option: #LowcodeVM> "Lowcode instruction interpreter dispatch"
+ prim
+ caseOf: {
+ [180] -> [ ^ self lowcodePrimitivePushOneFloat32 ].
+ [181] -> [ ^ self lowcodePrimitivePushOneFloat64 ].
+ [182] -> [ ^ self lowcodePrimitivePushPhysicalFloat32 ].
+ [183] -> [ ^ self lowcodePrimitivePushPhysicalFloat64 ].
+ [184] -> [ ^ self lowcodePrimitivePushPhysicalInt32 ].
+ [185] -> [ ^ self lowcodePrimitivePushPhysicalInt64 ].
+ [186] -> [ ^ self lowcodePrimitivePushPhysicalPointer ].
+ [187] -> [ ^ self lowcodePrimitivePushSessionIdentifier ].
+ [188] -> [ ^ self lowcodePrimitivePushZero32 ].
+ [189] -> [ ^ self lowcodePrimitivePushZero64 ].
+ [190] -> [ ^ self lowcodePrimitivePushZeroFloat32 ].
+ [191] -> [ ^ self lowcodePrimitivePushZeroFloat64 ].
+ [192] -> [ ^ self lowcodePrimitiveRem32 ].
+ [193] -> [ ^ self lowcodePrimitiveRem64 ].
+ [194] -> [ ^ self lowcodePrimitiveRightShift32 ].
+ [195] -> [ ^ self lowcodePrimitiveRightShift64 ].
+ [196] -> [ ^ self lowcodePrimitiveSignExtend32From16 ].
+ [197] -> [ ^ self lowcodePrimitiveSignExtend32From8 ].
+ [198] -> [ ^ self lowcodePrimitiveSignExtend64From16 ].
+ [199] -> [ ^ self lowcodePrimitiveSignExtend64From32 ].
+ [200] -> [ ^ self lowcodePrimitiveSignExtend64From8 ].
+ [201] -> [ ^ self lowcodePrimitiveStoreFloat32ToMemory ].
+ [202] -> [ ^ self lowcodePrimitiveStoreFloat64ToMemory ].
+ [203] -> [ ^ self lowcodePrimitiveStoreInt16ToMemory ].
+ [204] -> [ ^ self lowcodePrimitiveStoreInt32ToMemory ].
+ [205] -> [ ^ self lowcodePrimitiveStoreInt64ToMemory ].
+ [206] -> [ ^ self lowcodePrimitiveStoreInt8ToMemory ].
+ [207] -> [ ^ self lowcodePrimitiveStoreLocalFloat32 ].
+ [208] -> [ ^ self lowcodePrimitiveStoreLocalFloat64 ].
+ [209] -> [ ^ self lowcodePrimitiveStoreLocalInt16 ].
+ [210] -> [ ^ self lowcodePrimitiveStoreLocalInt32 ].
+ [211] -> [ ^ self lowcodePrimitiveStoreLocalInt64 ].
+ [212] -> [ ^ self lowcodePrimitiveStoreLocalInt8 ].
+ [213] -> [ ^ self lowcodePrimitiveStoreLocalPointer ].
+ [214] -> [ ^ self lowcodePrimitiveStorePointerToMemory ].
+ [215] -> [ ^ self lowcodePrimitiveSub32 ].
+ [216] -> [ ^ self lowcodePrimitiveSub64 ].
+ [217] -> [ ^ self lowcodePrimitiveTruncate32To16 ].
+ [218] -> [ ^ self lowcodePrimitiveTruncate32To8 ].
+ [219] -> [ ^ self lowcodePrimitiveTruncate64To16 ].
+ [220] -> [ ^ self lowcodePrimitiveTruncate64To32 ].
+ [221] -> [ ^ self lowcodePrimitiveTruncate64To8 ].
+ [222] -> [ ^ self lowcodePrimitiveUdiv32 ].
+ [223] -> [ ^ self lowcodePrimitiveUdiv64 ].
+ [224] -> [ ^ self lowcodePrimitiveUint32Great ].
+ [225] -> [ ^ self lowcodePrimitiveUint32GreatEqual ].
+ [226] -> [ ^ self lowcodePrimitiveUint32Less ].
+ [227] -> [ ^ self lowcodePrimitiveUint32LessEqual ].
+ [228] -> [ ^ self lowcodePrimitiveUint32ToFloat32 ].
+ [229] -> [ ^ self lowcodePrimitiveUint32ToFloat64 ].
+ [230] -> [ ^ self lowcodePrimitiveUint64Great ].
+ [231] -> [ ^ self lowcodePrimitiveUint64GreatEqual ].
+ [232] -> [ ^ self lowcodePrimitiveUint64Less ].
+ [233] -> [ ^ self lowcodePrimitiveUint64LessEqual ].
+ [234] -> [ ^ self lowcodePrimitiveUint64ToFloat32 ].
+ [235] -> [ ^ self lowcodePrimitiveUint64ToFloat64 ].
+ [236] -> [ ^ self lowcodePrimitiveUmul32 ].
+ [237] -> [ ^ self lowcodePrimitiveUmul64 ].
+ [238] -> [ ^ self lowcodePrimitiveUnlockRegisters ].
+ [239] -> [ ^ self lowcodePrimitiveUnlockVM ].
+ }
+ otherwise: [ ^ self lowcodeUnaryInlinePrimitive5: prim ].
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeUnaryInlinePrimitive5: (in category 'inline primitive dispatch generated code') -----
+ lowcodeUnaryInlinePrimitive5: prim
+ <option: #LowcodeVM> "Lowcode instruction interpreter dispatch"
+ prim
+ caseOf: {
+ [240] -> [ ^ self lowcodePrimitiveUrem32 ].
+ [241] -> [ ^ self lowcodePrimitiveUrem64 ].
+ [242] -> [ ^ self lowcodePrimitiveXor32 ].
+ [243] -> [ ^ self lowcodePrimitiveXor64 ].
+ [244] -> [ ^ self lowcodePrimitiveZeroExtend32From16 ].
+ [245] -> [ ^ self lowcodePrimitiveZeroExtend32From8 ].
+ [246] -> [ ^ self lowcodePrimitiveZeroExtend64From16 ].
+ [247] -> [ ^ self lowcodePrimitiveZeroExtend64From32 ].
+ [248] -> [ ^ self lowcodePrimitiveZeroExtend64From8 ].
+ }
+ otherwise: [
+ localIP := localIP - 3.
+ ^self respondToUnknownBytecode
+ ].
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>lowcodeUnaryInlinePrimitive: (in category 'inline primitive dispatch generated code') -----
+ lowcodeUnaryInlinePrimitive: prim
+ <option: #LowcodeVM> "Lowcode instruction interpreter dispatch"
+ prim
+ caseOf: {
+ [0] -> [ ^ self lowcodePrimitiveAdd32 ].
+ [1] -> [ ^ self lowcodePrimitiveAdd64 ].
+ [2] -> [ ^ self lowcodePrimitiveAlloca32 ].
+ [3] -> [ ^ self lowcodePrimitiveAlloca64 ].
+ [4] -> [ ^ self lowcodePrimitiveAnd32 ].
+ [5] -> [ ^ self lowcodePrimitiveAnd64 ].
+ [6] -> [ ^ self lowcodePrimitiveArithmeticRightShift32 ].
+ [7] -> [ ^ self lowcodePrimitiveArithmeticRightShift64 ].
+ [8] -> [ ^ self lowcodePrimitiveBeginCall ].
+ [9] -> [ ^ self lowcodePrimitiveCallArgumentFloat32 ].
+ [10] -> [ ^ self lowcodePrimitiveCallArgumentFloat64 ].
+ [11] -> [ ^ self lowcodePrimitiveCallArgumentInt32 ].
+ [12] -> [ ^ self lowcodePrimitiveCallArgumentInt64 ].
+ [13] -> [ ^ self lowcodePrimitiveCallArgumentPointer ].
+ [14] -> [ ^ self lowcodePrimitiveCallArgumentSpace ].
+ [15] -> [ ^ self lowcodePrimitiveCallArgumentStructure ].
+ [16] -> [ ^ self lowcodePrimitiveCallInstruction ].
+ [17] -> [ ^ self lowcodePrimitiveCallPhysical ].
+ [18] -> [ ^ self lowcodePrimitiveCheckSessionIdentifier ].
+ [19] -> [ ^ self lowcodePrimitiveCompareAndSwap32 ].
+ [20] -> [ ^ self lowcodePrimitiveDiv32 ].
+ [21] -> [ ^ self lowcodePrimitiveDiv64 ].
+ [22] -> [ ^ self lowcodePrimitiveDuplicateFloat32 ].
+ [23] -> [ ^ self lowcodePrimitiveDuplicateFloat64 ].
+ [24] -> [ ^ self lowcodePrimitiveDuplicateInt32 ].
+ [25] -> [ ^ self lowcodePrimitiveDuplicateInt64 ].
+ [26] -> [ ^ self lowcodePrimitiveDuplicatePointer ].
+ [27] -> [ ^ self lowcodePrimitiveEffectiveAddress32 ].
+ [28] -> [ ^ self lowcodePrimitiveEffectiveAddress64 ].
+ [29] -> [ ^ self lowcodePrimitiveEndCall ].
+ [30] -> [ ^ self lowcodePrimitiveEndCallNoCleanup ].
+ [31] -> [ ^ self lowcodePrimitiveFloat32Add ].
+ [32] -> [ ^ self lowcodePrimitiveFloat32Div ].
+ [33] -> [ ^ self lowcodePrimitiveFloat32Equal ].
+ [34] -> [ ^ self lowcodePrimitiveFloat32Great ].
+ [35] -> [ ^ self lowcodePrimitiveFloat32GreatEqual ].
+ [36] -> [ ^ self lowcodePrimitiveFloat32Less ].
+ [37] -> [ ^ self lowcodePrimitiveFloat32LessEqual ].
+ [38] -> [ ^ self lowcodePrimitiveFloat32Mul ].
+ [39] -> [ ^ self lowcodePrimitiveFloat32Neg ].
+ [40] -> [ ^ self lowcodePrimitiveFloat32NotEqual ].
+ [41] -> [ ^ self lowcodePrimitiveFloat32Sqrt ].
+ [42] -> [ ^ self lowcodePrimitiveFloat32Sub ].
+ [43] -> [ ^ self lowcodePrimitiveFloat32ToFloat64 ].
+ [44] -> [ ^ self lowcodePrimitiveFloat32ToInt32 ].
+ [45] -> [ ^ self lowcodePrimitiveFloat32ToInt64 ].
+ [46] -> [ ^ self lowcodePrimitiveFloat32ToUInt32 ].
+ [47] -> [ ^ self lowcodePrimitiveFloat32ToUInt64 ].
+ [48] -> [ ^ self lowcodePrimitiveFloat64Add ].
+ [49] -> [ ^ self lowcodePrimitiveFloat64Div ].
+ [50] -> [ ^ self lowcodePrimitiveFloat64Equal ].
+ [51] -> [ ^ self lowcodePrimitiveFloat64Great ].
+ [52] -> [ ^ self lowcodePrimitiveFloat64GreatEqual ].
+ [53] -> [ ^ self lowcodePrimitiveFloat64Less ].
+ [54] -> [ ^ self lowcodePrimitiveFloat64LessEqual ].
+ [55] -> [ ^ self lowcodePrimitiveFloat64Mul ].
+ [56] -> [ ^ self lowcodePrimitiveFloat64Neg ].
+ [57] -> [ ^ self lowcodePrimitiveFloat64NotEqual ].
+ [58] -> [ ^ self lowcodePrimitiveFloat64Sqrt ].
+ [59] -> [ ^ self lowcodePrimitiveFloat64Sub ].
+ }
+ otherwise: [ ^ self lowcodeUnaryInlinePrimitive2: prim ].
+
+
+ !
Item was added:
+ ----- Method: StackInterpreter>>nativeFramePointerIn: (in category 'internal interpreter access') -----
+ nativeFramePointerIn: theFP
+ "See StackInterpreter class>>initializeFrameIndices"
+ <inline: false>
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ ^ stackPages pointerAtPointer: theFP + FoxReceiver - (BytesPerWord*3)!
Item was added:
+ ----- Method: StackInterpreter>>nativeFramePointerIn:put: (in category 'internal interpreter access') -----
+ nativeFramePointerIn: theFP put: valueOopPointer
+ "See StackInterpreter class>>initializeFrameIndices"
+ <inline: false>
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ <var: #valueOopPointer type: #'char*'>
+ ^ stackPages pointerAtPointer: theFP + FoxReceiver - (BytesPerWord*3) put: valueOopPointer!
Item was added:
+ ----- Method: StackInterpreter>>nativeFrameSignalObjectIn: (in category 'internal interpreter access') -----
+ nativeFrameSignalObjectIn: theFP
+ "See StackInterpreter class>>initializeFrameIndices"
+ <inline: false>
+ <option: #LowcodeVM>
+ <var: #theFP type: #'char *'>
+ ^ stackPages longAt: theFP + FoxReceiver - (BytesPerWord*3)!
Item was added:
+ ----- Method: StackInterpreter>>nativeFrameSignalObjectIn:put: (in category 'internal interpreter access') -----
+ nativeFrameSignalObjectIn: theFP put: oop
+ "See StackInterpreter class>>initializeFrameIndices"
+ <inline: false>
+ <option: #LowcodeVM>
+ <var: #theFP type: #'char *'>
+ ^ stackPages longAt: theFP + FoxReceiver - BytesPerWord put: oop!
Item was added:
+ ----- Method: StackInterpreter>>nativePreviousStackPointerIn: (in category 'internal interpreter access') -----
+ nativePreviousStackPointerIn: theFP
+ "See StackInterpreter class>>initializeFrameIndices"
+ <inline: false>
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ ^ stackPages pointerAtPointer: theFP + FoxReceiver - (BytesPerWord*2)!
Item was added:
+ ----- Method: StackInterpreter>>nativePreviousStackPointerIn:put: (in category 'internal interpreter access') -----
+ nativePreviousStackPointerIn: theFP put: valueOopPointer
+ "See StackInterpreter class>>initializeFrameIndices"
+ <inline: false>
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ <var: #valueOopPointer type: #'char*'>
+ ^ stackPages pointerAtPointer: theFP + FoxReceiver - (BytesPerWord*2) put: valueOopPointer!
Item was added:
+ ----- Method: StackInterpreter>>nativeStackPointerIn: (in category 'internal interpreter access') -----
+ nativeStackPointerIn: theFP
+ "See StackInterpreter class>>initializeFrameIndices"
+ <inline: false>
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ ^ stackPages pointerAtPointer: theFP + FoxReceiver - (BytesPerWord*4)!
Item was added:
+ ----- Method: StackInterpreter>>nativeStackPointerIn:put: (in category 'internal interpreter access') -----
+ nativeStackPointerIn: theFP put: valueOopPointer
+ "See StackInterpreter class>>initializeFrameIndices"
+ <inline: false>
+ <option: #LowcodeVM>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ <var: #valueOopPointer type: #'char *'>
+ ^ stackPages pointerAtPointer: theFP + FoxReceiver - (BytesPerWord*4) put: valueOopPointer!
Item was added:
+ ----- Method: StackInterpreter>>nativeStackSize (in category 'stack pages') -----
+ nativeStackSize
+ "4 MB native stack size"
+ ^ 4 *1024 * 1024!
Item was added:
+ ----- Method: StackInterpreter>>reloadLowcodeStateAfterCallout (in category 'inline primitive ffi abi') -----
+ reloadLowcodeStateAfterCallout
+ <option: #LowcodeVM>
+ <var: #initialShadowCallStackPointer type: #'char*' >
+
+ | calloutStateSize initialShadowCallStackPointer |
+ calloutStateSize := self sizeof: #'sqLowcodeCalloutState'.
+ initialShadowCallStackPointer := (self shadowCallStackPointerIn: localFP) - 1.
+
+ initialShadowCallStackPointer := self cCoerce: ((self cCoerce: initialShadowCallStackPointer - calloutStateSize to: 'size_t') bitAnd: -16) to: 'char*'.
+ lowcodeCalloutState := self cCoerce: initialShadowCallStackPointer to: #'sqLowcodeCalloutState*'.!
Item was changed:
----- Method: StackInterpreter>>returnAs:ThroughCallback:Context: (in category 'callback support') -----
returnAs: returnTypeOop ThroughCallback: vmCallbackContext Context: callbackMethodContext
"callbackMethodContext is an activation of invokeCallback:[stack:registers:jmpbuf:].
Its sender is the VM's state prior to the callback. Reestablish that state (via longjmp),
and mark callbackMethodContext as dead."
<export: true>
<var: #vmCallbackContext type: #'VMCallbackContext *'>
| calloutMethodContext theFP thePage |
<var: #theFP type: #'char *'>
<var: #thePage type: #'StackPage *'>
((self isIntegerObject: returnTypeOop)
and: [self isLiveContext: callbackMethodContext]) ifFalse:
[^false].
calloutMethodContext := self externalInstVar: SenderIndex ofContext: callbackMethodContext.
(self isLiveContext: calloutMethodContext) ifFalse:
[^false].
"We're about to leave this stack page; must save the current frame's instructionPointer."
self push: instructionPointer.
self externalWriteBackHeadFramePointers.
"Mark callbackMethodContext as dead; the common case is that it is the current frame.
We go the extra mile for the debugger."
(self isSingleContext: callbackMethodContext)
ifTrue: [self markContextAsDead: callbackMethodContext]
ifFalse:
[theFP := self frameOfMarriedContext: callbackMethodContext.
framePointer = theFP "common case"
ifTrue:
[(self isBaseFrame: theFP)
ifTrue: [stackPages freeStackPage: stackPage]
ifFalse: "calloutMethodContext is immediately below on the same page. Make it current."
[instructionPointer := (self frameCallerSavedIP: framePointer) asUnsignedInteger.
stackPointer := framePointer + (self frameStackedReceiverOffset: framePointer) + objectMemory wordSize.
framePointer := self frameCallerFP: framePointer.
self setMethod: (self frameMethodObject: framePointer).
self restoreCStackStateForCallbackContext: vmCallbackContext.
"N.B. siglongjmp is defines as _longjmp on non-win32 platforms.
This matches the use of _setjmp in ia32abicc.c."
self siglong: vmCallbackContext trampoline jmp: (self integerValueOf: returnTypeOop).
^true]]
ifFalse:
[self externalDivorceFrame: theFP andContext: callbackMethodContext.
self markContextAsDead: callbackMethodContext]].
"Make the calloutMethodContext the active frame. The case where calloutMethodContext
is immediately below callbackMethodContext on the same page is handled above."
(self isStillMarriedContext: calloutMethodContext)
ifTrue:
[theFP := self frameOfMarriedContext: calloutMethodContext.
thePage := stackPages stackPageFor: theFP.
"findSPOf:on: points to the word beneath the instructionPointer, but
there is no instructionPointer on the top frame of the current page."
self assert: thePage ~= stackPage.
stackPointer := (self findSPOf: theFP on: thePage) - objectMemory wordSize.
framePointer := theFP]
ifFalse:
[thePage := self makeBaseFrameFor: calloutMethodContext.
framePointer := thePage headFP.
stackPointer := thePage headSP].
instructionPointer := self popStack.
self setMethod: (objectMemory fetchPointer: MethodIndex ofObject: calloutMethodContext).
self setStackPageAndLimit: thePage.
self restoreCStackStateForCallbackContext: vmCallbackContext.
"N.B. siglongjmp is defines as _longjmp on non-win32 platforms.
This matches the use of _setjmp in ia32abicc.c."
self siglong: vmCallbackContext trampoline jmp: (self integerValueOf: returnTypeOop).
"NOTREACHED"
^true!
Item was added:
+ ----- Method: StackInterpreter>>setFrameHasNativeFrame: (in category 'frame access') -----
+ setFrameHasNativeFrame: theFP
+ <inline: true>
+ <var: #theFP type: #'char *'>
+ self temporary: (self frameNumArgs: theFP) in: theFP put: (objectMemory splObj: LowcodeContextMark)!
Item was added:
+ ----- Method: StackInterpreter>>setFrameHasNotNativeFrame: (in category 'frame access') -----
+ setFrameHasNotNativeFrame: theFP
+ <inline: true>
+ <option: #LowcodeVM>
+ <var: #theFP type: #'char *'>
+ self temporary: (self frameNumArgs: theFP) in: theFP put: (objectMemory nilObject)!
Item was added:
+ ----- Method: StackInterpreter>>setupNativeStack (in category 'initialization') -----
+ setupNativeStack
+ <option: #LowcodeVM>
+ <var: #theNativeStackMemory type: #'char*'>
+ <var: #theShadowCallStackMemory type: #'char*'>
+ <inline: false>
+ "This initializes an alternate stack that is used by the Lowcode instructions"
+ | nativeStackMemorySize theNativeStackMemory shadowCallStackMemorySize theShadowCallStackMemory|
+ nativeStackMemorySize := self nativeStackSize.
+ theNativeStackMemory := self
+ cCode: [self malloc: nativeStackMemorySize ]
+ inSmalltalk: [CArrayAccessor on: (ByteArray new: self nativeStackSize)].
+ nativeStackPointer := theNativeStackMemory + nativeStackMemorySize.
+
+ shadowCallStackMemorySize := self shadowCallStackSize.
+ theShadowCallStackMemory := self
+ cCode: [self malloc: shadowCallStackMemorySize ]
+ inSmalltalk: [CArrayAccessor on: (ByteArray new: self shadowCallStackSize)].
+ shadowCallStackPointer := theShadowCallStackMemory + shadowCallStackMemorySize.!
Item was added:
+ ----- Method: StackInterpreter>>shadowCallStackPointerIn: (in category 'internal interpreter access') -----
+ shadowCallStackPointerIn: theFP
+ "See StackInterpreter class>>initializeFrameIndices"
+ <option: #LowcodeVM>
+ <inline: false>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ ^ stackPages pointerAtPointer: theFP + FoxReceiver - (BytesPerWord*5)!
Item was added:
+ ----- Method: StackInterpreter>>shadowCallStackPointerIn:put: (in category 'internal interpreter access') -----
+ shadowCallStackPointerIn: theFP put: valueOopPointer
+ "See StackInterpreter class>>initializeFrameIndices"
+ <option: #LowcodeVM>
+ <inline: false>
+ <returnTypeC: #'char*'>
+ <var: #theFP type: #'char *'>
+ <var: #valueOopPointer type: #'char*'>
+ ^ stackPages pointerAtPointer: theFP + FoxReceiver - (BytesPerWord*5) put: valueOopPointer!
Item was added:
+ ----- Method: StackInterpreter>>shadowCallStackSize (in category 'stack pages') -----
+ shadowCallStackSize
+ "1 MB shadow call stack size"
+ ^ 1 *1024 * 1024!
Item was changed:
SimpleStackBasedCogit subclass: #StackToRegisterMappingCogit
+ instanceVariableNames: 'prevBCDescriptor numPushNilsFunction pushNilSizeFunction methodOrBlockNumTemps regArgsHaveBeenPushed simSelf simStack simStackPtr simSpillBase optStatus ceCallCogCodePopReceiverArg0Regs ceCallCogCodePopReceiverArg1Arg0Regs methodAbortTrampolines picAbortTrampolines picMissTrampolines ceCall0ArgsPIC ceCall1ArgsPIC ceCall2ArgsPIC debugStackPointers debugFixupBreaks realCECallCogCodePopReceiverArg0Regs realCECallCogCodePopReceiverArg1Arg0Regs deadCode useTwoPaths currentCallCleanUpSize simNativeStack simNativeStackPtr simNativeSpillBase simNativeStackSize hasNativeFrame'
- instanceVariableNames: 'prevBCDescriptor numPushNilsFunction pushNilSizeFunction methodOrBlockNumTemps regArgsHaveBeenPushed simSelf simStack simStackPtr simSpillBase optStatus ceCallCogCodePopReceiverArg0Regs ceCallCogCodePopReceiverArg1Arg0Regs methodAbortTrampolines picAbortTrampolines picMissTrampolines ceCall0ArgsPIC ceCall1ArgsPIC ceCall2ArgsPIC debugStackPointers debugFixupBreaks realCECallCogCodePopReceiverArg0Regs realCECallCogCodePopReceiverArg1Arg0Regs deadCode useTwoPaths'
classVariableNames: 'NeedsMergeFixupFlag NeedsNonMergeFixupFlag'
poolDictionaries: 'CogCompilationConstants VMMethodCacheConstants VMObjectIndices VMStackFrameOffsets'
category: 'VMMaker-JIT'!
StackToRegisterMappingCogit class
instanceVariableNames: 'numPushNilsFunction pushNilSizeFunction'!
!StackToRegisterMappingCogit commentStamp: 'eem 6/1/2016 14:50' prior: 0!
StackToRegisterMappingCogit is an optimizing code generator that eliminates a lot of stack operations and inlines some special selector arithmetic. It does so by a simple stack-to-register mapping scheme based on deferring the generation of code to produce operands until operand-consuming operations. The operations that consume operands are sends, stores and returns.
See methods in the class-side documentation protocol for more detail.
Instance Variables
callerSavedRegMask: <Integer>
ceEnter0ArgsPIC: <Integer>
ceEnter1ArgsPIC: <Integer>
ceEnter2ArgsPIC: <Integer>
ceEnterCogCodePopReceiverArg0Regs: <Integer>
ceEnterCogCodePopReceiverArg1Arg0Regs: <Integer>
debugBytecodePointers: <Set of Integer>
debugFixupBreaks: <Set of Integer>
debugStackPointers: <CArrayAccessor of (Integer|nil)>
methodAbortTrampolines: <CArrayAccessor of Integer>
methodOrBlockNumTemps: <Integer>
optStatus: <Integer>
picAbortTrampolines: <CArrayAccessor of Integer>
picMissTrampolines: <CArrayAccessor of Integer>
realCEEnterCogCodePopReceiverArg0Regs: <Integer>
realCEEnterCogCodePopReceiverArg1Arg0Regs: <Integer>
regArgsHaveBeenPushed: <Boolean>
simSelf: <CogSimStackEntry>
simSpillBase: <Integer>
simStack: <CArrayAccessor of CogSimStackEntry>
simStackPtr: <Integer>
traceSimStack: <Integer>
useTwoPaths <Boolean>
callerSavedRegMask
- the bitmask of the ABI's caller-saved registers
ceEnter0ArgsPIC ceEnter1ArgsPIC ceEnter2ArgsPIC
- the trampoline for entering an N-arg PIC
ceEnterCogCodePopReceiverArg0Regs ceEnterCogCodePopReceiverArg1Arg0Regs
- teh trampoline for entering a method with N register args
debugBytecodePointers
- a Set of bytecode pcs for setting breakpoints (simulation only)
debugFixupBreaks
- a Set of fixup indices for setting breakpoints (simulation only)
debugStackPointers
- an Array of stack depths for each bytecode for code verification
methodAbortTrampolines
- a CArrayAccessor of abort trampolines for 0, 1, 2 and N args
methodOrBlockNumTemps
- the number of method or block temps (including args) in the current compilation unit (method or block)
optStatus
- the variable used to track the status of ReceiverResultReg for avoiding reloading that register with self between adjacent inst var accesses
picAbortTrampolines
- a CArrayAccessor of abort trampolines for 0, 1, 2 and N args
picMissTrampolines
- a CArrayAccessor of abort trampolines for 0, 1, 2 and N args
realCEEnterCogCodePopReceiverArg0Regs realCEEnterCogCodePopReceiverArg1Arg0Regs
- the real trampolines for ebtering machine code with N reg args when in the Debug regime
regArgsHaveBeenPushed
- whether the register args have been pushed before frame build (e.g. when an interpreter primitive is called)
simSelf
- the simulation stack entry representing self in the current compilation unit
simSpillBase
- the variable tracking how much of the simulation stack has been spilled to the real stack
simStack
- the simulation stack itself
simStackPtr
- the pointer to the top of the simulation stack
useTwoPaths
- a variable controlling whether to create two paths through a method based on the existence of inst var stores. With immutability this causes a frameless path to be generated if an otherwise frameless method is frameful simply because of inst var stores. In this case the test to take the first frameless path is if the receiver is not immutable. Without immutability, if a frameless method contains two or more inst var stores, the first path will be code with no store check, chosen by a single check for the receiver being in new space.
!
StackToRegisterMappingCogit class
instanceVariableNames: 'numPushNilsFunction pushNilSizeFunction'!
Item was changed:
----- Method: StackToRegisterMappingCogit class>>ancilliaryClasses: (in category 'translation') -----
ancilliaryClasses: options
^(super ancilliaryClasses: options),
+ { self basicNew simStackEntryClass. self basicNew bytecodeFixupClass. CogSSOptStatus } ,
+ (LowcodeVM ifTrue: [ { self basicNew simStackNativeEntryClass } ] ifFalse: [ #() ])!
- { self basicNew simStackEntryClass. self basicNew bytecodeFixupClass. CogSSOptStatus }!
Item was changed:
----- Method: StackToRegisterMappingCogit class>>declareCVarsIn: (in category 'translation') -----
declareCVarsIn: aCodeGen
aCodeGen
var: #methodAbortTrampolines
declareC: 'sqInt methodAbortTrampolines[4]';
var: #picAbortTrampolines
declareC: 'sqInt picAbortTrampolines[4]';
var: #picMissTrampolines
declareC: 'sqInt picMissTrampolines[4]';
var: 'ceCall0ArgsPIC'
declareC: 'void (*ceCall0ArgsPIC)(void)';
var: 'ceCall1ArgsPIC'
declareC: 'void (*ceCall1ArgsPIC)(void)';
var: 'ceCall2ArgsPIC'
declareC: 'void (*ceCall2ArgsPIC)(void)';
var: #ceCallCogCodePopReceiverArg0Regs
declareC: 'void (*ceCallCogCodePopReceiverArg0Regs)(void)';
var: #realCECallCogCodePopReceiverArg0Regs
declareC: 'void (*realCECallCogCodePopReceiverArg0Regs)(void)';
var: #ceCallCogCodePopReceiverArg1Arg0Regs
declareC: 'void (*ceCallCogCodePopReceiverArg1Arg0Regs)(void)';
var: #realCECallCogCodePopReceiverArg1Arg0Regs
declareC: 'void (*realCECallCogCodePopReceiverArg1Arg0Regs)(void)';
var: 'simStack'
declareC: 'SimStackEntry simStack[', self simStackSlots asString, ']';
var: 'simSelf'
type: #CogSimStackEntry;
var: #optStatus
type: #CogSSOptStatus;
var: 'prevBCDescriptor'
type: #'BytecodeDescriptor *'.
+ LowcodeVM ifTrue: [
+ aCodeGen var: 'simNativeStack'
+ declareC: 'CogSimStackNativeEntry simNativeStack[', ((CoInterpreter bindingOf: #LargeContextSlots) value * 5 / 4 // BytesPerWord) asString, ']'
+ ].
self numPushNilsFunction ifNotNil:
[aCodeGen
var: 'numPushNilsFunction'
declareC: 'sqInt (* const numPushNilsFunction)(struct _BytecodeDescriptor *,sqInt,sqInt,sqInt) = ', (aCodeGen cFunctionNameFor: self numPushNilsFunction);
var: 'pushNilSizeFunction'
declareC: 'sqInt (* const pushNilSizeFunction)(sqInt,sqInt) = ', (aCodeGen cFunctionNameFor: self pushNilSizeFunction)].
aCodeGen
addSelectorTranslation: #register to: (aCodeGen cFunctionNameFor: 'registerr');
addSelectorTranslation: #register: to: (aCodeGen cFunctionNameFor: 'registerr:')!
Item was changed:
----- Method: StackToRegisterMappingCogit class>>initializeSimStackConstants (in category 'class initialization') -----
initializeSimStackConstants
"The simulation stack is used to delay code generation until operands are consumed by
some operation, thereby avoiding pushing operands to the real stack and enabling
mapping stack contents to registers, and cheaply apply various peephole optimizations.
The simulation stack is an array of CogSimStackEntry structs. Each entry defines the
object on the virtual stack (Smalltalk context stack) as compilation proceeds. See
stackToRegisterMapping in this class for documentation."
SSIllegal := 0.
SSBaseOffset := 1.
SSConstant := 2.
SSRegister := 3.
+ SSSpill := 4.
+
+ " Native simulation stack"
+ SSNativeRegister := 5.
+ SSRegisterPair := 6.
+ SSRegisterDoubleFloat := 7.
+ SSRegisterSingleFloat := 8.
+
+ SSSpillNative := 9.
+ SSSpillInt64 := 10.
+ SSSpillFloat32 := 11.
+ SSSpillFloat64 := 12.
+
+ SSConstantInt32 := 13.
+ SSConstantInt64 := 14.
+ SSConstantFloat32 := 15.
+ SSConstantFloat64 := 16.
+ SSConstantNativePointer := 17.!
- SSSpill := 4!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>beginHighLevelCall: (in category 'inline ffi') -----
+ beginHighLevelCall: alignment
+ <option: #LowcodeVM>
+ | mask actualAlignment |
+
+ "Store the smalltalk pointers"
+ self ssFlushAll.
+ self MoveR: SPReg Aw: coInterpreter stackPointerAddress.
+ self MoveR: FPReg Aw: coInterpreter framePointerAddress.
+ backEnd hasLinkRegister ifTrue: [
+ self MoveAw: coInterpreter instructionPointerAddress R: LinkReg
+ ].
+
+ "Load the C pointers"
+ self MoveAw: self cStackPointerAddress R: SPReg.
+
+ "Load the native stack frame pointer"
+ self MoveMw: self frameOffsetOfNativeFramePointer r: FPReg R: FPReg.
+ self SubCq: 1 R: FPReg.
+
+ actualAlignment := (alignment max: BytesPerWord).
+ actualAlignment > BytesPerWord ifTrue: [
+ mask := actualAlignment negated.
+ self AndCq: mask R: SPReg.
+ ].
+ currentCallCleanUpSize := 0.!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>callSwitchToCStack (in category 'inline ffi') -----
+ callSwitchToCStack
+ <option: #LowcodeVM>
+ self MoveAw: self cFramePointerAddress R: FPReg.
+ ^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>callSwitchToSmalltalkStack (in category 'inline ffi') -----
+ callSwitchToSmalltalkStack
+ <option: #LowcodeVM>
+ "Restore the link register"
+ backEnd hasLinkRegister ifTrue: [
+ self MoveAw: coInterpreter instructionPointerAddress R: LinkReg
+ ].
+ backEnd genLoadStackPointers.!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>endHighLevelCallWithCleanup (in category 'inline ffi') -----
+ endHighLevelCallWithCleanup
+ <option: #LowcodeVM>
+ currentCallCleanUpSize > 0 ifTrue: [
+ self AddCq: currentCallCleanUpSize R: SPReg
+ ].
+ self callSwitchToSmalltalkStack.
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>endHighLevelCallWithoutCleanup (in category 'inline ffi') -----
+ endHighLevelCallWithoutCleanup
+ <option: #LowcodeVM>
+ self callSwitchToSmalltalkStack.!
Item was changed:
----- Method: StackToRegisterMappingCogit>>ensureFixupAt: (in category 'compile abstract instructions') -----
ensureFixupAt: targetIndex
"Make sure there's a flagged fixup at the targetIndex (pc relative to first pc) in fixups.
Initially a fixup's target is just a flag. Later on it is replaced with a proper instruction."
<returnTypeC: #'BytecodeFixup *'>
| fixup |
<var: #fixup type: #'BytecodeFixup *'>
fixup := self fixupAt: targetIndex.
self traceFixup: fixup.
self cCode: '' inSmalltalk:
[self assert: simStackPtr = (self debugStackPointerFor: targetIndex + initialPC).
(fixup isMergeFixupOrIsFixedUp
and: [fixup isBackwardBranchFixup not]) ifTrue: "ignore backward branch targets"
[self assert: fixup simStackPtr = simStackPtr]].
fixup isNonMergeFixupOrNotAFixup
ifTrue: "convert a non-merge into a merge"
[fixup becomeMergeFixup.
+ fixup simStackPtr: simStackPtr.
+ self cppIf: LowcodeVM ifTrue: [
+ fixup simNativeStackPtr: simNativeStackPtr.
+ fixup simNativeStackSize: simNativeStackSize.]]
- fixup simStackPtr: simStackPtr]
ifFalse:
[fixup isBackwardBranchFixup
ifTrue: ["this is the target of a backward branch and
so doesn't have a simStackPtr assigned yet."
+ fixup simStackPtr: simStackPtr.
+ self cppIf: LowcodeVM ifTrue: [
+ fixup simNativeStackPtr: simNativeStackPtr.
+ fixup simNativeStackSize: simNativeStackSize.]]
+ ifFalse: [
+ self assert: fixup simStackPtr = simStackPtr.
+ self cppIf: LowcodeVM ifTrue: [
+ self assert: fixup simNativeStackPtr = simNativeStackPtr.
+ self assert: fixup simNativeStackSize = simNativeStackSize.]]].
- fixup simStackPtr: simStackPtr]
- ifFalse: [self assert: fixup simStackPtr = simStackPtr]].
^fixup!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genCallPrimitiveBytecode (in category 'bytecode generators') -----
+ genCallPrimitiveBytecode
+ "SistaV1: 248 11111000 iiiiiiii mjjjjjjj Call Primitive #iiiiiiii + (jjjjjjj * 256) m=1 means inlined primitive, no hard return after execution.
+ See EncoderForSistaV1's class comment and StackInterpreter>>#inlinePrimitiveBytecode:"
+ | prim primSet |
+ byte2 < 128 ifTrue:
+ [^bytecodePC = initialPC
+ ifTrue: [0]
+ ifFalse: [EncounteredUnknownBytecode]].
+ prim := byte2 - 128 << 8 + byte1.
+ primSet := prim >> 13 bitAnd: 3.
+ prim := prim bitAnd: 8191.
+ self cppIf: LowcodeVM
+ ifTrue:
+ [
+ primSet = 1 ifTrue: [
+ prim < 1000 ifTrue:
+ [^self genLowcodeNullaryInlinePrimitive: prim].
+
+ prim < 2000 ifTrue:
+ [^self genLowcodeUnaryInlinePrimitive: prim - 1000].
+
+ prim < 3000 ifTrue:
+ [^ self genLowcodeBinaryInlinePrimitive: prim - 2000].
+
+ prim < 4000 ifTrue:
+ [^self genLowcodeTrinaryInlinePrimitive: prim - 3000].
+ ]
+ ].
+
+ ^EncounteredUnknownBytecode!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genExtJumpIfNotInstanceOfBehaviorsOrPopBytecode (in category 'bytecode generators') -----
+ genExtJumpIfNotInstanceOfBehaviorsOrPopBytecode
+ "SistaV1: * 254 11111110 kkkkkkkk jjjjjjjj branch If Not Instance Of Behavior/Array Of Behavior kkkkkkkk (+ Extend A * 256, where Extend A >= 0) distance jjjjjjjj (+ Extend B * 256, where Extend B >= 0)"
+
+ | reg literal distance targetFixUp |
+
+ "We loose the information of in which register is stack top
+ when jitting the branch target so we need to flush everything.
+ We could use a fixed register here...."
+ reg := self allocateRegForStackEntryAt: 0.
+ self ssTop popToReg: reg.
+ self ssFlushTo: simStackPtr. "flushed but the value is still in reg"
+
+ literal := self getLiteral: (extA * 256 + byte1).
+ extA := 0.
+ distance := extB * 256 + byte2.
+ extB := 0.
+
+ targetFixUp := self cCoerceSimple: (self ensureFixupAt: bytecodePC + 3 + distance - initialPC) to: #'AbstractInstruction *'.
+
+ (objectMemory isArrayNonImm: literal)
+ ifTrue: [objectRepresentation branchIf: reg notInstanceOfBehaviors: literal target: targetFixUp]
+ ifFalse: [objectRepresentation branchIf: reg notInstanceOfBehavior: literal target: targetFixUp].
+
+ self genPopStackBytecode.
+
+ ^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeAdd32 (in category 'inline primitive generators generated code') -----
+ genLowcodeAdd32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self AddR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeAdd64 (in category 'inline primitive generators generated code') -----
+ genLowcodeAdd64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh first second firstHigh |
+ BytesPerWord = 4 ifTrue: [
+
+ (secondLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (secondLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (secondHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: secondLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (secondHigh := Arg1Reg)].
+
+ (firstLow := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstLow := SendNumArgsReg)].
+
+ (firstHigh := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh)) bitOr: (self registerMaskFor: firstLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstHigh := ClassReg)].
+ (((secondLow = ReceiverResultReg or: [secondHigh = ReceiverResultReg]) or: [firstLow = ReceiverResultReg]) or: [firstHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: secondLow secondReg: secondHigh.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: firstLow secondReg: firstHigh.
+ self ssNativePop: 1.
+
+ self AddR: secondLow R: firstLow.
+ self AddcR: secondHigh R: firstHigh.
+ self ssPushNativeRegister: firstLow secondRegister: firstHigh.
+
+ ] ifFalse: [
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self AddR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeAlloca32 (in category 'inline primitive generators generated code') -----
+ genLowcodeAlloca32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | size |
+
+ (size := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (size := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ size = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: size.
+ self ssNativePop: 1.
+
+ self MoveAw: coInterpreter nativeStackPointerAddress R: TempReg.
+ self SubR: size R: TempReg.
+ self AndCq: -16 R: TempReg.
+ self MoveR: TempReg R: size.
+ self MoveR: size Aw: coInterpreter nativeStackPointerAddress.
+ self ssPushNativeRegister: size.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeAlloca64 (in category 'inline primitive generators generated code') -----
+ genLowcodeAlloca64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | sizeHigh size sizeLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (sizeLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (sizeLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (sizeHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: sizeLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (sizeHigh := Arg1Reg)].
+ (sizeLow = ReceiverResultReg or: [sizeHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: sizeLow secondReg: sizeHigh.
+ self ssNativePop: 1.
+
+ self SubR: sizeLow R: SPReg.
+ self MoveR: SPReg R: sizeLow.
+ self ssPushNativeRegister: sizeLow.
+
+ ] ifFalse: [
+
+ (size := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (size := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ size = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: size.
+ self ssNativePop: 1.
+
+ self SubR: size R: SPReg.
+ self MoveR: SPReg R: size.
+ self ssPushNativeRegister: size.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeAnd32 (in category 'inline primitive generators generated code') -----
+ genLowcodeAnd32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self AndR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeAnd64 (in category 'inline primitive generators generated code') -----
+ genLowcodeAnd64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh first second firstHigh |
+ BytesPerWord = 4 ifTrue: [
+
+ (secondLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (secondLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (secondHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: secondLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (secondHigh := Arg1Reg)].
+
+ (firstLow := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstLow := SendNumArgsReg)].
+
+ (firstHigh := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh)) bitOr: (self registerMaskFor: firstLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstHigh := ClassReg)].
+ (((secondLow = ReceiverResultReg or: [secondHigh = ReceiverResultReg]) or: [firstLow = ReceiverResultReg]) or: [firstHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: secondLow secondReg: secondHigh.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: firstLow secondReg: firstHigh.
+ self ssNativePop: 1.
+
+ self AndR: secondLow R: firstLow.
+ self AndR: secondHigh R: firstHigh.
+ self ssPushNativeRegister: firstLow secondRegister: firstHigh.
+
+ ] ifFalse: [
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self AndR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeArithmeticRightShift32 (in category 'inline primitive generators generated code') -----
+ genLowcodeArithmeticRightShift32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value shiftAmount |
+
+ (shiftAmount := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (shiftAmount := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: shiftAmount))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (shiftAmount = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: shiftAmount.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ArithmeticShiftRightR: shiftAmount R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeArithmeticRightShift64 (in category 'inline primitive generators generated code') -----
+ genLowcodeArithmeticRightShift64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result shiftAmount shiftAmountHigh resultLow valueLow resultHigh shiftAmountLow valueHigh |
+
+ (shiftAmount := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (shiftAmount := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: shiftAmount))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: shiftAmount)) bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((shiftAmount = ReceiverResultReg or: [value = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: shiftAmount.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeBeginCall (in category 'inline primitive generators generated code') -----
+ genLowcodeBeginCall
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | alignment |
+ alignment := extA.
+
+ self beginHighLevelCall: alignment.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeBinaryInlinePrimitive: (in category 'inline primitive generators dispatch generated code') -----
+ genLowcodeBinaryInlinePrimitive: prim
+ <option: #LowcodeVM> "Lowcode instruction generator dispatch"
+ prim
+ caseOf: {
+ [0] -> [ ^ self genLowcodeByteSizeOf ].
+ [1] -> [ ^ self genLowcodeFirstFieldPointer ].
+ [2] -> [ ^ self genLowcodeFirstIndexableFieldPointer ].
+ [3] -> [ ^ self genLowcodeIsBytes ].
+ [4] -> [ ^ self genLowcodeIsFloatObject ].
+ [5] -> [ ^ self genLowcodeIsIndexable ].
+ [6] -> [ ^ self genLowcodeIsIntegerObject ].
+ [7] -> [ ^ self genLowcodeIsPointers ].
+ [8] -> [ ^ self genLowcodeIsWords ].
+ [9] -> [ ^ self genLowcodeIsWordsOrBytes ].
+ [10] -> [ ^ self genLowcodeOopSmallIntegerToInt32 ].
+ [11] -> [ ^ self genLowcodeOopSmallIntegerToInt64 ].
+ [12] -> [ ^ self genLowcodeOopToBoolean32 ].
+ [13] -> [ ^ self genLowcodeOopToBoolean64 ].
+ [14] -> [ ^ self genLowcodeOopToFloat32 ].
+ [15] -> [ ^ self genLowcodeOopToFloat64 ].
+ [16] -> [ ^ self genLowcodeOopToInt32 ].
+ [17] -> [ ^ self genLowcodeOopToInt64 ].
+ [18] -> [ ^ self genLowcodeOopToPointer ].
+ [19] -> [ ^ self genLowcodeOopToPointerReinterpret ].
+ [20] -> [ ^ self genLowcodeOopToUInt32 ].
+ [21] -> [ ^ self genLowcodeOopToUInt64 ].
+ [22] -> [ ^ self genLowcodePin ].
+ [23] -> [ ^ self genLowcodeUnpin ].
+ }
+ otherwise: [ ^ EncounteredUnknownBytecode ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeBoolean32ToOop (in category 'inline primitive generators generated code') -----
+ genLowcodeBoolean32ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value inst cont object trueJump |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (object := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (object := Arg1Reg)].
+ (value = ReceiverResultReg or: [object = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self CmpCq: 0 R: value.
+ trueJump := self JumpNonZero: 0.
+ "False"
+ self annotate: (self MoveCw: objectMemory falseObject R: value) objRef: objectMemory falseObject.
+ cont := self Jump: 0.
+ "True"
+ inst := self MoveCw: objectMemory trueObject R: value.
+ trueJump jmpTarget: inst.
+ self annotate: inst objRef: objectMemory trueObject.
+ cont jmpTarget: self Label.
+ self ssPushRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeBoolean64ToOop (in category 'inline primitive generators generated code') -----
+ genLowcodeBoolean64ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value inst trueJump2 cont valueLow object trueJump valueHigh |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+
+ (object := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: valueLow)) bitOr: (self registerMaskFor: valueHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (object := SendNumArgsReg)].
+ ((valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) or: [object = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self OrR: valueLow R: valueHigh.
+ trueJump := self JumpNonZero: 0.
+ "False"
+ self annotate: (self MoveCw: objectMemory falseObject R: valueLow) objRef: objectMemory falseObject.
+ cont := self Jump: 0.
+ "True"
+ inst := self MoveCw: objectMemory trueObject R: valueLow.
+ trueJump jmpTarget: inst.
+ self annotate: inst objRef: objectMemory trueObject.
+ cont jmpTarget: self Label.
+ self ssPushRegister: valueLow.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (object := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (object := Arg1Reg)].
+ (value = ReceiverResultReg or: [object = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self CmpCq: 0 R: value.
+ trueJump := self JumpNonZero: 0.
+ "False"
+ self annotate: (self MoveCw: objectMemory falseObject R: value) objRef: objectMemory falseObject.
+ cont := self Jump: 0.
+ "True"
+ inst := self MoveCw: objectMemory trueObject R: value.
+ trueJump jmpTarget: inst.
+ self annotate: inst objRef: objectMemory trueObject.
+ cont jmpTarget: self Label.
+ self ssPushRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeByteSizeOf (in category 'inline primitive generators generated code') -----
+ genLowcodeByteSizeOf
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcByteSizeOf: object to: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCallArgumentFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeCallArgumentFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssNativeTop nativeStackPopToReg: DPFPReg0.
+ self ssNativePop: 1.
+ self MoveRs: DPFPReg0 M32: BytesPerWord negated r: SPReg.
+ self SubCq: BytesPerWord R: SPReg.
+ currentCallCleanUpSize := currentCallCleanUpSize + BytesPerWord.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCallArgumentFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeCallArgumentFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssNativeTop nativeStackPopToReg: DPFPReg0.
+ self ssNativePop: 1.
+ self MoveRd: DPFPReg0 M64: -8 r: SPReg.
+ self SubCq: 8 R: SPReg.
+ currentCallCleanUpSize := currentCallCleanUpSize + 8.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCallArgumentInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeCallArgumentInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self PushR: TempReg.
+ currentCallCleanUpSize := currentCallCleanUpSize + BytesPerWord.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCallArgumentInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeCallArgumentInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ BytesPerWord = 4 ifTrue: [
+ self ssNativeTop nativeStackPopToReg: TempReg secondReg: ReceiverResultReg.
+ self ssNativePop: 1.
+ self PushR: TempReg.
+ self PushR: ReceiverResultReg.
+ currentCallCleanUpSize := currentCallCleanUpSize + 8.
+ ] ifFalse: [
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self PushR: TempReg.
+ currentCallCleanUpSize := currentCallCleanUpSize + BytesPerWord.
+ ].
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCallArgumentPointer (in category 'inline primitive generators generated code') -----
+ genLowcodeCallArgumentPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self PushR: TempReg.
+ currentCallCleanUpSize := currentCallCleanUpSize + BytesPerWord.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCallArgumentSpace (in category 'inline primitive generators generated code') -----
+ genLowcodeCallArgumentSpace
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ "Allocate space"
+ self SubCq: extA R: SPReg.
+ currentCallCleanUpSize := currentCallCleanUpSize + extA.
+ extA := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCallArgumentStructure (in category 'inline primitive generators generated code') -----
+ genLowcodeCallArgumentStructure
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ "Fetch the pointer"
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ "Allocate space"
+ self SubCq: extA R: SPReg.
+ currentCallCleanUpSize := currentCallCleanUpSize + extA.
+ "Copy the structure"
+ backEnd genMemCopy: TempReg to: SPReg constantSize: extA.
+ extA := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCallInstruction (in category 'inline primitive generators generated code') -----
+ genLowcodeCallInstruction
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | function |
+ function := extA.
+
+ self CallRT: function.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCallPhysical (in category 'inline primitive generators generated code') -----
+ genLowcodeCallPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID |
+ registerID := extA.
+
+ self CallR: registerID.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCheckSessionIdentifier (in category 'inline primitive generators generated code') -----
+ genLowcodeCheckSessionIdentifier
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | expectedSession |
+ expectedSession := extA.
+
+ self ssPushNativeConstantInt32: (expectedSession = coInterpreter getThisSessionID ifTrue: [1] ifFalse: [0]).
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeCompareAndSwap32 (in category 'inline primitive generators generated code') -----
+ genLowcodeCompareAndSwap32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | newValue check oldValue value |
+
+ (newValue := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (newValue := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (oldValue := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: newValue))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (oldValue := Arg1Reg)].
+
+ (check := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: newValue)) bitOr: (self registerMaskFor: oldValue))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (check := SendNumArgsReg)].
+
+ (value := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: newValue)) bitOr: (self registerMaskFor: oldValue)) bitOr: (self registerMaskFor: check))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := ClassReg)].
+ (((newValue = ReceiverResultReg or: [oldValue = ReceiverResultReg]) or: [check = ReceiverResultReg]) or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: newValue.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: oldValue.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: check.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeDiv32 (in category 'inline primitive generators generated code') -----
+ genLowcodeDiv32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self DivR: second R: first Quo: first Rem: second.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeDiv64 (in category 'inline primitive generators generated code') -----
+ genLowcodeDiv64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh result resultLow resultHigh first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeDuplicateFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeDuplicateFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value dup2 |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+
+ (dup2 := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (dup2 := DPFPReg1)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveRs: value Rs: dup2.
+ self ssPushNativeRegisterSingleFloat: value;
+ ssPushNativeRegisterSingleFloat: dup2.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeDuplicateFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeDuplicateFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value dup2 |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+
+ (dup2 := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (dup2 := DPFPReg1)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveRd: value Rd: dup2.
+ self ssPushNativeRegisterDoubleFloat: value;
+ ssPushNativeRegisterDoubleFloat: dup2.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeDuplicateInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeDuplicateInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value dup2 |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (dup2 := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (dup2 := Arg1Reg)].
+ (value = ReceiverResultReg or: [dup2 = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value R: dup2.
+ self ssPushNativeRegister: value;
+ ssPushNativeRegister: dup2.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeDuplicateInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeDuplicateInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value dup2Low dup2 valueLow dup2High valueHigh |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+
+ (dup2Low := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: valueLow)) bitOr: (self registerMaskFor: valueHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (dup2Low := SendNumArgsReg)].
+
+ (dup2High := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: valueLow)) bitOr: (self registerMaskFor: valueHigh)) bitOr: (self registerMaskFor: dup2Low))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (dup2High := ClassReg)].
+ (((valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) or: [dup2Low = ReceiverResultReg]) or: [dup2High = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self MoveR: valueLow R: dup2Low.
+ self MoveR: valueHigh R: dup2High.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+ self ssPushNativeRegister: dup2Low secondRegister: dup2High.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (dup2 := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (dup2 := Arg1Reg)].
+ (value = ReceiverResultReg or: [dup2 = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value R: dup2.
+ self ssPushNativeRegister: value.
+ self ssPushNativeRegister: dup2.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeDuplicatePointer (in category 'inline primitive generators generated code') -----
+ genLowcodeDuplicatePointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | dup2 pointerValue |
+
+ (pointerValue := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointerValue := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (dup2 := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointerValue))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (dup2 := Arg1Reg)].
+ (pointerValue = ReceiverResultReg or: [dup2 = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointerValue.
+ self ssNativePop: 1.
+
+ self MoveR: pointerValue R: dup2.
+ self ssPushNativeRegister: pointerValue;
+ ssPushNativeRegister: dup2.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeEffectiveAddress32 (in category 'inline primitive generators generated code') -----
+ genLowcodeEffectiveAddress32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | offset base index scale |
+
+ (offset := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (offset := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (scale := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: offset))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (scale := Arg1Reg)].
+
+ (index := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: offset)) bitOr: (self registerMaskFor: scale))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (index := SendNumArgsReg)].
+
+ (base := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: offset)) bitOr: (self registerMaskFor: scale)) bitOr: (self registerMaskFor: index))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (base := ClassReg)].
+ (((offset = ReceiverResultReg or: [scale = ReceiverResultReg]) or: [index = ReceiverResultReg]) or: [base = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: offset.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: scale.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: index.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: base.
+ self ssNativePop: 1.
+
+ self MulR: scale R: index.
+ self AddR: index R: base.
+ self AddR: offset R: base.
+ self ssPushNativeRegister: base.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeEffectiveAddress64 (in category 'inline primitive generators generated code') -----
+ genLowcodeEffectiveAddress64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | base index indexLow indexHigh scaleHigh offsetLow scaleLow offset offsetHigh result scale |
+
+ (offset := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (offset := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (scale := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: offset))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (scale := Arg1Reg)].
+
+ (index := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: offset)) bitOr: (self registerMaskFor: scale))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (index := SendNumArgsReg)].
+
+ (base := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: offset)) bitOr: (self registerMaskFor: scale)) bitOr: (self registerMaskFor: index))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (base := ClassReg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((((self liveRegisters bitOr: (self registerMaskFor: offset)) bitOr: (self registerMaskFor: scale)) bitOr: (self registerMaskFor: index)) bitOr: (self registerMaskFor: base))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := ReceiverResultReg)].
+ ((((offset = ReceiverResultReg or: [scale = ReceiverResultReg]) or: [index = ReceiverResultReg]) or: [base = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: offset.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: scale.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: index.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: base.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeEndCall (in category 'inline primitive generators generated code') -----
+ genLowcodeEndCall
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self endHighLevelCallWithCleanup.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeEndCallNoCleanup (in category 'inline primitive generators generated code') -----
+ genLowcodeEndCallNoCleanup
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self endHighLevelCallWithoutCleanup.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFirstFieldPointer (in category 'inline primitive generators generated code') -----
+ genLowcodeFirstFieldPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcFirstFieldPointer: object.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFirstIndexableFieldPointer (in category 'inline primitive generators generated code') -----
+ genLowcodeFirstIndexableFieldPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcFirstIndexableFieldPointer: object.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32Add (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32Add
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self AddRs: second Rs: first.
+ self ssPushNativeRegisterSingleFloat: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32Div (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32Div
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self DivRs: second Rs: first.
+ self ssPushNativeRegisterSingleFloat: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32Equal (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32Equal
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRs: second Rs: first.
+ falseJump := self JumpFPNotEqual: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32Great (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRs: second Rs: first.
+ falseJump := self JumpFPLessOrEqual: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32GreatEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRs: second Rs: first.
+ falseJump := self JumpFPLess: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32Less (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRs: second Rs: first.
+ falseJump := self JumpFPGreaterOrEqual: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32LessEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRs: second Rs: first.
+ falseJump := self JumpFPGreater: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32Mul (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32Mul
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self MulRs: second Rs: first.
+ self ssPushNativeRegisterSingleFloat: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32Neg (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32Neg
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+
+ (result := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (result := DPFPReg1)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self XorRs: result Rs: result.
+ self SubRs: value Rs: result.
+ self ssPushNativeRegisterSingleFloat: result.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32NotEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32NotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRs: second Rs: first.
+ falseJump := self JumpFPEqual: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32Sqrt (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32Sqrt
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self SqrtRs: value.
+ self ssPushNativeRegisterSingleFloat: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32Sub (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32Sub
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self SubRs: second Rs: first.
+ self ssPushNativeRegisterSingleFloat: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32ToFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32ToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | singleFloatValue |
+
+ (singleFloatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (singleFloatValue := DPFPReg0)].
+ self ssNativeTop nativePopToReg: singleFloatValue.
+ self ssNativePop: 1.
+
+ self ConvertRs: singleFloatValue Rd: singleFloatValue.
+ self ssPushNativeRegisterDoubleFloat: singleFloatValue.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32ToInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32ToInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+
+ (result := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (result := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ result = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ConvertRs: value R: result.
+ self ssPushNativeRegister: result.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32ToInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32ToInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | resultLow resultHigh value result |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+
+ (result := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (result := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ result = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32ToOop (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | singleFloatValue object |
+
+ (singleFloatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (singleFloatValue := DPFPReg0)].
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: singleFloatValue.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcFloat32: singleFloatValue toOop: object.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32ToUInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32ToUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+
+ (result := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (result := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ result = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ConvertRs: value R: result.
+ self ssPushNativeRegister: result.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat32ToUInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat32ToUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | resultLow resultHigh value result |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+
+ (result := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (result := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ result = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64Add (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64Add
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self AddRd: second Rd: first.
+ self ssPushNativeRegisterDoubleFloat: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64Div (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64Div
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self DivRd: second Rd: first.
+ self ssPushNativeRegisterDoubleFloat: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64Equal (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64Equal
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRd: second Rd: first.
+ falseJump := self JumpFPNotEqual: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64Great (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRd: second Rd: first.
+ falseJump := self JumpFPLessOrEqual: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64GreatEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRd: second Rd: first.
+ falseJump := self JumpFPLess: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64Less (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRd: second Rd: first.
+ falseJump := self JumpFPGreaterOrEqual: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64LessEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRd: second Rd: first.
+ falseJump := self JumpFPGreater: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64Mul (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64Mul
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self MulRd: second Rd: first.
+ self ssPushNativeRegisterDoubleFloat: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64Neg (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64Neg
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+
+ (result := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (result := DPFPReg1)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self XorRd: result Rd: result.
+ self SubRd: value Rd: result.
+ self ssPushNativeRegisterDoubleFloat: result.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64NotEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64NotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpRd: second Rd: first.
+ falseJump := self JumpFPEqual: 0.
+ "True result"
+ self MoveCq: 1 R: value.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: value.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64Sqrt (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64Sqrt
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self SqrtRd: value.
+ self ssPushNativeRegisterDoubleFloat: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64Sub (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64Sub
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (second := DPFPReg0)].
+
+ (first := backEnd availableFloatRegisterOrNoneFor: (self liveFloatRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (first := DPFPReg1)].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self SubRd: second Rd: first.
+ self ssPushNativeRegisterDoubleFloat: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64ToFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64ToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue |
+
+ (floatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (floatValue := DPFPReg0)].
+ self ssNativeTop nativePopToReg: floatValue.
+ self ssNativePop: 1.
+
+ self ConvertRd: floatValue Rs: floatValue.
+ self ssPushNativeRegisterSingleFloat: floatValue.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64ToInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64ToInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue int32Result |
+
+ (floatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (floatValue := DPFPReg0)].
+
+ (int32Result := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (int32Result := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ int32Result = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: floatValue.
+ self ssNativePop: 1.
+
+ self ConvertRd: floatValue R: int32Result.
+ self ssPushNativeRegister: int32Result.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64ToInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64ToInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue int64ResultLow int64Result int64ResultHigh |
+
+ (floatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (floatValue := DPFPReg0)].
+
+ (int64Result := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (int64Result := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ int64Result = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: floatValue.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64ToOop (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue object |
+
+ (floatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (floatValue := DPFPReg0)].
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: floatValue.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcFloat64: floatValue toOop: object.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64ToUInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64ToUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue int64Result |
+
+ (floatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (floatValue := DPFPReg0)].
+
+ (int64Result := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (int64Result := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ int64Result = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: floatValue.
+ self ssNativePop: 1.
+
+ self ConvertRd: floatValue R: int64Result.
+ self ssPushNativeRegister: int64Result.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFloat64ToUInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeFloat64ToUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue int64ResultLow int64Result int64ResultHigh |
+
+ (floatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (floatValue := DPFPReg0)].
+
+ (int64Result := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (int64Result := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ int64Result = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: floatValue.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeFree (in category 'inline primitive generators generated code') -----
+ genLowcodeFree
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointer = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ pointer ~= ReceiverResultReg ifTrue: [self MoveR: pointer R: ReceiverResultReg ].
+ self CallRT: ceFreeTrampoline.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInstantiateIndexable32Oop (in category 'inline primitive generators generated code') -----
+ genLowcodeInstantiateIndexable32Oop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | indexableSize object classOop |
+
+ (indexableSize := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (indexableSize := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (classOop := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: indexableSize))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (classOop := Arg1Reg)].
+
+ (object := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: indexableSize)) bitOr: (self registerMaskFor: classOop))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (object := SendNumArgsReg)].
+ ((indexableSize = ReceiverResultReg or: [classOop = ReceiverResultReg]) or: [object = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: indexableSize.
+ self ssNativePop: 1.
+ self ssTop popToReg: classOop.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcInstantiateOop: classOop indexableSize: indexableSize.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInstantiateIndexableOop (in category 'inline primitive generators generated code') -----
+ genLowcodeInstantiateIndexableOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | indexableSize object classOop |
+ indexableSize := extA.
+
+ (classOop := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (classOop := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (object := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: classOop))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (object := Arg1Reg)].
+ (classOop = ReceiverResultReg or: [object = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: classOop.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcInstantiateOop: classOop constantIndexableSize: indexableSize.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInstantiateOop (in category 'inline primitive generators generated code') -----
+ genLowcodeInstantiateOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | classOop |
+
+ (classOop := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (classOop := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ classOop = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: classOop.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcInstantiateOop: classOop.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt32Equal (in category 'inline primitive generators generated code') -----
+ genLowcodeInt32Equal
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpNonZero: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt32Great (in category 'inline primitive generators generated code') -----
+ genLowcodeInt32Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpLessOrEqual: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt32GreatEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeInt32GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpLess: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt32Less (in category 'inline primitive generators generated code') -----
+ genLowcodeInt32Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpGreaterOrEqual: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt32LessEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeInt32LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpGreater: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt32NotEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeInt32NotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpZero: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt32ToFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeInt32ToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (result := DPFPReg0)].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ConvertR: value Rs: result.
+ self ssPushNativeRegisterSingleFloat: result.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt32ToFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeInt32ToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (result := DPFPReg0)].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ConvertR: value Rd: result.
+ self ssPushNativeRegisterDoubleFloat: result.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt32ToOop (in category 'inline primitive generators generated code') -----
+ genLowcodeInt32ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcInt32ToOop: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt32ToPointer (in category 'inline primitive generators generated code') -----
+ genLowcodeInt32ToPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ "TODO: Perform a NOP here"
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt64Equal (in category 'inline primitive generators generated code') -----
+ genLowcodeInt64Equal
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | falseLabel first contJump falseJump secondLow secondHigh second falseJump2 firstHigh firstLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (secondLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (secondLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (secondHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: secondLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (secondHigh := Arg1Reg)].
+
+ (firstLow := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstLow := SendNumArgsReg)].
+
+ (firstHigh := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh)) bitOr: (self registerMaskFor: firstLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstHigh := ClassReg)].
+ (((secondLow = ReceiverResultReg or: [secondHigh = ReceiverResultReg]) or: [firstLow = ReceiverResultReg]) or: [firstHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: secondLow secondReg: secondHigh.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: firstLow secondReg: firstHigh.
+ self ssNativePop: 1.
+
+ self CmpR: secondHigh R: firstHigh.
+ falseJump := self JumpNonZero: 0.
+ self CmpR: secondLow R: firstLow.
+ falseJump2 := self JumpNonZero: 0.
+ "True result"
+ self MoveCq: 1 R: firstLow.
+ contJump := self Jump: 0.
+ "False result"
+ falseLabel := self MoveCq: 0 R: firstLow.
+ falseJump jmpTarget: falseLabel.
+ falseJump2 jmpTarget: falseLabel.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: firstLow.
+
+ ] ifFalse: [
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpNonZero: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt64Great (in category 'inline primitive generators generated code') -----
+ genLowcodeInt64Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh value first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (value := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt64GreatEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeInt64GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh value first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (value := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt64Less (in category 'inline primitive generators generated code') -----
+ genLowcodeInt64Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh value first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (value := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt64LessEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeInt64LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh value first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (value := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt64NotEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeInt64NotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | falseLabel first contJump falseJump secondLow secondHigh second falseJump2 firstHigh firstLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (secondLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (secondLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (secondHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: secondLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (secondHigh := Arg1Reg)].
+
+ (firstLow := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstLow := SendNumArgsReg)].
+
+ (firstHigh := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh)) bitOr: (self registerMaskFor: firstLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstHigh := ClassReg)].
+ (((secondLow = ReceiverResultReg or: [secondHigh = ReceiverResultReg]) or: [firstLow = ReceiverResultReg]) or: [firstHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: secondLow secondReg: secondHigh.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: firstLow secondReg: firstHigh.
+ self ssNativePop: 1.
+
+ self CmpR: secondHigh R: firstHigh.
+ falseJump := self JumpNonZero: 0.
+ self CmpR: secondLow R: firstLow.
+ falseJump2 := self JumpNonZero: 0.
+ "False result"
+ self MoveCq: 0 R: firstLow.
+ contJump := self Jump: 0.
+ "True result"
+ falseLabel := self MoveCq: 1 R: firstLow.
+ falseJump jmpTarget: falseLabel.
+ falseJump2 jmpTarget: falseLabel.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: firstLow.
+
+ ] ifFalse: [
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpNonZero: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt64ToFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeInt64ToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow result |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (result := DPFPReg0)].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt64ToFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeInt64ToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow result |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (result := DPFPReg0)].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt64ToOop (in category 'inline primitive generators generated code') -----
+ genLowcodeInt64ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcInt64ToOop: valueLow highPart: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcInt64ToOop: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeInt64ToPointer (in category 'inline primitive generators generated code') -----
+ genLowcodeInt64ToPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self ssPushNativeRegister: valueLow.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeIsBytes (in category 'inline primitive generators generated code') -----
+ genLowcodeIsBytes
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcIsBytes: object to: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeIsFloatObject (in category 'inline primitive generators generated code') -----
+ genLowcodeIsFloatObject
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcIsFloatObject: object to: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeIsIndexable (in category 'inline primitive generators generated code') -----
+ genLowcodeIsIndexable
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcIsIndexable: object to: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeIsIntegerObject (in category 'inline primitive generators generated code') -----
+ genLowcodeIsIntegerObject
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcIsIntegerObject: object to: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeIsPointers (in category 'inline primitive generators generated code') -----
+ genLowcodeIsPointers
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcIsPointers: object to: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeIsWords (in category 'inline primitive generators generated code') -----
+ genLowcodeIsWords
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcIsWords: object to: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeIsWordsOrBytes (in category 'inline primitive generators generated code') -----
+ genLowcodeIsWordsOrBytes
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcIsWordsOrBytes: object to: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLeftShift32 (in category 'inline primitive generators generated code') -----
+ genLowcodeLeftShift32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value shiftAmount |
+
+ (shiftAmount := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (shiftAmount := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: shiftAmount))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (shiftAmount = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: shiftAmount.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self LogicalShiftLeftR: shiftAmount R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLeftShift64 (in category 'inline primitive generators generated code') -----
+ genLowcodeLeftShift64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result shiftAmount shiftAmountHigh resultLow valueLow resultHigh shiftAmountLow valueHigh |
+
+ (shiftAmount := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (shiftAmount := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: shiftAmount))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: shiftAmount)) bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((shiftAmount = ReceiverResultReg or: [value = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: shiftAmount.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentAddress (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentAddress
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset pointer |
+ baseOffset := extA.
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointer = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeArgumentAddress: baseOffset to: pointer.
+ self ssPushNativeRegister: pointer.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset floatValue |
+ baseOffset := extA.
+
+ (floatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (floatValue := DPFPReg0)].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM32: 0 r: TempReg Rs: floatValue.
+ self ssPushNativeRegisterSingleFloat: floatValue.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset doubleValue |
+ baseOffset := extA.
+
+ (doubleValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (doubleValue := DPFPReg0)].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM64: 0 r: TempReg Rd: doubleValue.
+ self ssPushNativeRegisterDoubleFloat: doubleValue.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentInt16 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentInt16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM16: 0 r: TempReg R: value.
+ self SignExtend16R: value R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM32: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value valueLow valueHigh |
+ baseOffset := extA.
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ "TODO: Check the endianness"
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM32: 0 r: TempReg R: valueLow.
+ self MoveM32: 4 r: TempReg R: valueHigh.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM64: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentInt8 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentInt8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM8: 0 r: TempReg R: value.
+ self SignExtend8R: value R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentPointer (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset pointerResult |
+ baseOffset := extA.
+
+ (pointerResult := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointerResult := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointerResult = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveMw: 0 r: TempReg R: pointerResult.
+ self ssPushNativeRegister: pointerResult.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentUInt16 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentUInt16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM16: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentUInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM32: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentUInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value valueLow valueHigh |
+ baseOffset := extA.
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ "TODO: Check the endianness"
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM32: 0 r: TempReg R: valueLow.
+ self MoveM32: 4 r: TempReg R: valueHigh.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM64: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadArgumentUInt8 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadArgumentUInt8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeArgumentAddress: baseOffset to: TempReg.
+ self MoveM8: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadFloat32FromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadFloat32FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ pointer = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveM32: 0 r: pointer Rs: value.
+ self ssPushNativeRegisterSingleFloat: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadFloat64FromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadFloat64FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ pointer = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveM64: 0 r: pointer Rd: value.
+ self ssPushNativeRegisterDoubleFloat: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadInt16FromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadInt16FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveM16: 0 r: pointer R: value.
+ self SignExtend16R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadInt32FromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadInt32FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveM32: 0 r: pointer R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadInt64FromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadInt64FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh pointer value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueLow := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueLow := Arg1Reg)].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: pointer)) bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := SendNumArgsReg)].
+ ((pointer = ReceiverResultReg or: [valueLow = ReceiverResultReg]) or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ "TODO: Check the endianness"
+ self MoveM32: 0 r: pointer R: valueLow.
+ self MoveM32: 4 r: pointer R: valueHigh.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveM64: 0 r: pointer R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadInt8FromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadInt8FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveM8: 0 r: pointer R: value.
+ self SignExtend8R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalAddress (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalAddress
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset pointer |
+ baseOffset := extA.
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointer = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeLocalAddress: baseOffset to: pointer.
+ self ssPushNativeRegister: pointer.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset floatValue |
+ baseOffset := extA.
+
+ (floatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (floatValue := DPFPReg0)].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM32: 0 r: TempReg Rs: floatValue.
+ self ssPushNativeRegisterSingleFloat: floatValue.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset doubleValue |
+ baseOffset := extA.
+
+ (doubleValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (doubleValue := DPFPReg0)].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM64: 0 r: TempReg Rd: doubleValue.
+ self ssPushNativeRegisterDoubleFloat: doubleValue.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalInt16 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalInt16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM16: 0 r: TempReg R: value.
+ self SignExtend16R: value R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM32: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value valueLow valueHigh |
+ baseOffset := extA.
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ "TODO: Check the endianness"
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM32: 0 r: TempReg R: valueLow.
+ self MoveM32: 4 r: TempReg R: valueHigh.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM64: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalInt8 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalInt8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM8: 0 r: TempReg R: value.
+ self SignExtend8R: value R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalPointer (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset pointerResult |
+ baseOffset := extA.
+
+ (pointerResult := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointerResult := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointerResult = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveMw: 0 r: TempReg R: pointerResult.
+ self ssPushNativeRegister: pointerResult.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalUInt16 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalUInt16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM16: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalUInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM32: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalUInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value valueLow valueHigh |
+ baseOffset := extA.
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ "TODO: Check the endianness"
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM32: 0 r: TempReg R: valueLow.
+ self MoveM32: 4 r: TempReg R: valueHigh.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM64: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadLocalUInt8 (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadLocalUInt8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | baseOffset value |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveM8: 0 r: TempReg R: value.
+ self ssPushNativeRegister: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadObjectAt (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadObjectAt
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | fieldIndex object |
+
+ (fieldIndex := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (fieldIndex := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (object := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: fieldIndex))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (object := Arg1Reg)].
+ (fieldIndex = ReceiverResultReg or: [object = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: fieldIndex.
+ self ssNativePop: 1.
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcLoadObject: object at: fieldIndex.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadObjectField (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadObjectField
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | fieldIndex object |
+ fieldIndex := extA.
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcLoadObject: object field: fieldIndex.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadPointerFromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadPointerFromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointerResult pointer |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (pointerResult := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (pointerResult := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [pointerResult = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveMw: 0 r: pointer R: pointerResult.
+ self ssPushNativeRegister: pointerResult.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadUInt16FromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadUInt16FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveM16: 0 r: pointer R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadUInt32FromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadUInt32FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveM32: 0 r: pointer R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadUInt64FromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadUInt64FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh pointer value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueLow := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueLow := Arg1Reg)].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: pointer)) bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := SendNumArgsReg)].
+ ((pointer = ReceiverResultReg or: [valueLow = ReceiverResultReg]) or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ "TODO: Check the endianness"
+ self MoveM32: 0 r: pointer R: valueLow.
+ self MoveM32: 4 r: pointer R: valueHigh.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveM64: 0 r: pointer R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLoadUInt8FromMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeLoadUInt8FromMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveM8: 0 r: pointer R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLocalFrameSize (in category 'inline primitive generators generated code') -----
+ genLowcodeLocalFrameSize
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | size |
+ size := extA.
+
+ self assert: needsFrame.
+ hasNativeFrame := true.
+ "Mark the stack frame"
+ self annotate: (self MoveCw: (objectMemory splObj: LowcodeContextMark) R: TempReg) objRef: (objectMemory splObj: LowcodeContextMark).
+ self MoveR: TempReg Mw: self frameOffsetOfNativeFrameMark r: FPReg.
+ "Fetch the stack"
+ self MoveAw: coInterpreter nativeStackPointerAddress R: TempReg.
+ self AddCq: 1 R: TempReg.
+ self MoveR: TempReg Mw: self frameOffsetOfPreviousNativeStackPointer r: FPReg.
+ "Store the frame pointer"
+ self SubCq: size R: TempReg.
+ self MoveR: TempReg Mw: self frameOffsetOfNativeFramePointer r: FPReg.
+ "Store the new stack pointer"
+ self MoveR: TempReg Mw: self frameOffsetOfNativeStackPointer r: FPReg.
+ "Allocate space for the locals"
+ self SubCq: 1 + coInterpreter defaultNativeStackFrameSize R: TempReg.
+ self MoveR: TempReg Aw: coInterpreter nativeStackPointerAddress.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLockRegisters (in category 'inline primitive generators generated code') -----
+ genLowcodeLockRegisters
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssFlushAll.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeLockVM (in category 'inline primitive generators generated code') -----
+ genLowcodeLockVM
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMalloc32 (in category 'inline primitive generators generated code') -----
+ genLowcodeMalloc32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer size |
+
+ (size := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (size := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (pointer := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: size))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (pointer := Arg1Reg)].
+ (size = ReceiverResultReg or: [pointer = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: size.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ size ~= ReceiverResultReg ifTrue: [self MoveR: size R: ReceiverResultReg ].
+ self CallRT: ceMallocTrampoline.
+ self MoveR: TempReg R: pointer.
+ self ssPushNativeRegister: pointer.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMalloc64 (in category 'inline primitive generators generated code') -----
+ genLowcodeMalloc64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | sizeHigh size sizeLow pointer |
+ BytesPerWord = 4 ifTrue: [
+
+ (sizeLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (sizeLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (sizeHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: sizeLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (sizeHigh := Arg1Reg)].
+
+ (pointer := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: sizeLow)) bitOr: (self registerMaskFor: sizeHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (pointer := SendNumArgsReg)].
+ ((sizeLow = ReceiverResultReg or: [sizeHigh = ReceiverResultReg]) or: [pointer = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: sizeLow secondReg: sizeHigh.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ sizeLow ~= ReceiverResultReg ifTrue: [self MoveR: sizeLow R: ReceiverResultReg ].
+ self CallRT: ceMallocTrampoline.
+ self MoveR: TempReg R: pointer.
+ self ssPushNativeRegister: pointer.
+
+ ] ifFalse: [
+
+ (size := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (size := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (pointer := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: size))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (pointer := Arg1Reg)].
+ (size = ReceiverResultReg or: [pointer = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: size.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ size ~= ReceiverResultReg ifTrue: [self MoveR: size R: ReceiverResultReg ].
+ self CallRT: ceMallocTrampoline.
+ self MoveR: TempReg R: pointer.
+ self ssPushNativeRegister: pointer.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMemcpy32 (in category 'inline primitive generators generated code') -----
+ genLowcodeMemcpy32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | source dest size |
+
+ (size := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (size := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (source := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: size))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (source := Arg1Reg)].
+
+ (dest := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: size)) bitOr: (self registerMaskFor: source))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (dest := SendNumArgsReg)].
+ ((size = ReceiverResultReg or: [source = ReceiverResultReg]) or: [dest = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: size.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: source.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: dest.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ backEnd genMemCopy: source to: dest size: size.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMemcpy64 (in category 'inline primitive generators generated code') -----
+ genLowcodeMemcpy64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | source sizeLow sizeHigh dest size |
+
+ (size := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (size := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (source := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: size))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (source := Arg1Reg)].
+
+ (dest := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: size)) bitOr: (self registerMaskFor: source))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (dest := SendNumArgsReg)].
+ ((size = ReceiverResultReg or: [source = ReceiverResultReg]) or: [dest = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: size.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: source.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: dest.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ backEnd genMemCopy: source to: dest size: sizeLow.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMemcpyFixed (in category 'inline primitive generators generated code') -----
+ genLowcodeMemcpyFixed
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | source size dest |
+ size := extA.
+
+ (source := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (source := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (dest := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: source))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (dest := Arg1Reg)].
+ (source = ReceiverResultReg or: [dest = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: source.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: dest.
+ self ssNativePop: 1.
+
+ size = BytesPerWord ifTrue: [
+ self MoveMw: 0 r: source R: TempReg.
+ self MoveR: TempReg Mw: 0 r: dest.
+ ] ifFalse: [
+ self ssFlushAll.
+ backEnd genMemCopy: source to: dest constantSize: size.
+ ].
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMoveFloat32ToPhysical (in category 'inline primitive generators generated code') -----
+ genLowcodeMoveFloat32ToPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ registerID := extA.
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMoveFloat64ToPhysical (in category 'inline primitive generators generated code') -----
+ genLowcodeMoveFloat64ToPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ registerID := extA.
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMoveInt32ToPhysical (in category 'inline primitive generators generated code') -----
+ genLowcodeMoveInt32ToPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID value |
+ registerID := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMoveInt64ToPhysical (in category 'inline primitive generators generated code') -----
+ genLowcodeMoveInt64ToPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID valueHigh value valueLow |
+ registerID := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMovePointerToPhysical (in category 'inline primitive generators generated code') -----
+ genLowcodeMovePointerToPhysical
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID pointerValue |
+ registerID := extA.
+
+ (pointerValue := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointerValue := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointerValue = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointerValue.
+ self ssNativePop: 1.
+
+ self abort.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMul32 (in category 'inline primitive generators generated code') -----
+ genLowcodeMul32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self MulR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeMul64 (in category 'inline primitive generators generated code') -----
+ genLowcodeMul64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh result resultLow resultHigh first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeNeg32 (in category 'inline primitive generators generated code') -----
+ genLowcodeNeg32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self NegateR: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeNeg64 (in category 'inline primitive generators generated code') -----
+ genLowcodeNeg64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ "Two complement negation"
+ self NotR: valueLow.
+ self NotR: valueHigh.
+ self AddCq: 1 R: valueLow.
+ self AddcCq: 0 R: valueHigh.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self NegateR: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeNot32 (in category 'inline primitive generators generated code') -----
+ genLowcodeNot32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self NotR: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeNot64 (in category 'inline primitive generators generated code') -----
+ genLowcodeNot64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self NotR: valueLow.
+ self NotR: valueHigh.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self NotR: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeNullaryInlinePrimitive: (in category 'inline primitive generators dispatch generated code') -----
+ genLowcodeNullaryInlinePrimitive: prim
+ <option: #LowcodeVM> "Lowcode instruction generator dispatch"
+ prim
+ caseOf: {
+ [0] -> [ ^ self genLowcodeBoolean32ToOop ].
+ [1] -> [ ^ self genLowcodeBoolean64ToOop ].
+ [2] -> [ ^ self genLowcodeFloat32ToOop ].
+ [3] -> [ ^ self genLowcodeFloat64ToOop ].
+ [4] -> [ ^ self genLowcodeInt32ToOop ].
+ [5] -> [ ^ self genLowcodeInt64ToOop ].
+ [6] -> [ ^ self genLowcodePointerToOop ].
+ [7] -> [ ^ self genLowcodePointerToOopReinterprer ].
+ [8] -> [ ^ self genLowcodeSmallInt32ToOop ].
+ [9] -> [ ^ self genLowcodeUint32ToOop ].
+ [10] -> [ ^ self genLowcodeUint64ToOop ].
+ }
+ otherwise: [ ^ EncounteredUnknownBytecode ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeOopEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value contJump falseJump first second |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (value := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: second.
+ self ssPop: 1.
+ self ssTop popToReg: first.
+ self ssPop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpNonZero: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopNotEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeOopNotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: second.
+ self ssPop: 1.
+ self ssTop popToReg: first.
+ self ssPop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpZero: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopSmallIntegerToInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeOopSmallIntegerToInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genConvertSmallIntegerToIntegerInReg: object.
+ self ssPushNativeRegister: object.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopSmallIntegerToInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeOopSmallIntegerToInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh object value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueLow := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueLow := Arg1Reg)].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: object)) bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := SendNumArgsReg)].
+ ((object = ReceiverResultReg or: [valueLow = ReceiverResultReg]) or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genConvertSmallIntegerToIntegerInReg: object.
+ self MoveCq: 0 R: valueHigh.
+ self ssPushNativeRegister: object secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genConvertSmallIntegerToIntegerInReg: object.
+ self ssPushNativeRegister: object.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopToBoolean32 (in category 'inline primitive generators generated code') -----
+ genLowcodeOopToBoolean32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self annotate: (self SubCw: objectMemory falseObject R: object) objRef: objectMemory falseObject.
+ self ssPushNativeRegister: object.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopToBoolean64 (in category 'inline primitive generators generated code') -----
+ genLowcodeOopToBoolean64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh object value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueLow := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueLow := Arg1Reg)].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: object)) bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := SendNumArgsReg)].
+ ((object = ReceiverResultReg or: [valueLow = ReceiverResultReg]) or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self MoveCq: 0 R: valueHigh.
+ self annotate: (self SubCw: objectMemory falseObject R: object) objRef: objectMemory falseObject.
+ self ssPushNativeRegister: object secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self annotate: (self SubCw: objectMemory falseObject R: object) objRef: objectMemory falseObject.
+ self ssPushNativeRegister: object.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopToFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeOopToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcOop: object toFloat32: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopToFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeOopToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcOop: object toFloat64: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopToInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeOopToInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcOopToInt32: object.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopToInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeOopToInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh object value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueLow := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueLow := Arg1Reg)].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: object)) bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := SendNumArgsReg)].
+ ((object = ReceiverResultReg or: [valueLow = ReceiverResultReg]) or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcOop: object toInt64: valueLow highPart: valueHigh.
+
+ ] ifFalse: [
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcOopToInt64: object.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopToPointer (in category 'inline primitive generators generated code') -----
+ genLowcodeOopToPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcOopToPointer: object.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopToPointerReinterpret (in category 'inline primitive generators generated code') -----
+ genLowcodeOopToPointerReinterpret
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object pointer |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (pointer := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (pointer := Arg1Reg)].
+ (object = ReceiverResultReg or: [pointer = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ "TODO: Generate a nop here"
+ self ssPushNativeRegister: object.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopToUInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeOopToUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object value |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcOopToUInt32: object.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOopToUInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeOopToUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh object value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueLow := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueLow := Arg1Reg)].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: object)) bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := SendNumArgsReg)].
+ ((object = ReceiverResultReg or: [valueLow = ReceiverResultReg]) or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcOop: object toUInt64: valueLow highPart: valueHigh.
+
+ ] ifFalse: [
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: object))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (object = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcOopToUInt64: object.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOr32 (in category 'inline primitive generators generated code') -----
+ genLowcodeOr32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second result first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self OrR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeOr64 (in category 'inline primitive generators generated code') -----
+ genLowcodeOr64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh first second firstHigh |
+ BytesPerWord = 4 ifTrue: [
+
+ (secondLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (secondLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (secondHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: secondLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (secondHigh := Arg1Reg)].
+
+ (firstLow := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstLow := SendNumArgsReg)].
+
+ (firstHigh := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh)) bitOr: (self registerMaskFor: firstLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstHigh := ClassReg)].
+ (((secondLow = ReceiverResultReg or: [secondHigh = ReceiverResultReg]) or: [firstLow = ReceiverResultReg]) or: [firstHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: secondLow secondReg: secondHigh.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: firstLow secondReg: firstHigh.
+ self ssNativePop: 1.
+
+ self OrR: secondLow R: firstLow.
+ self OrR: secondHigh R: firstHigh.
+ self ssPushNativeRegister: firstLow secondRegister: firstHigh.
+
+ ] ifFalse: [
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self OrR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self callSwitchToCStack.
+ self MoveCw: extA R: TempReg.
+ self CallRT: ceFFICalloutTrampoline.
+ backEnd cFloatResultToRs: DPFPReg0.
+ self ssPushNativeRegisterSingleFloat: DPFPReg0.
+ extA := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self callSwitchToCStack.
+ self MoveCw: extA R: TempReg.
+ self CallRT: ceFFICalloutTrampoline.
+ backEnd cFloatResultToRd: DPFPReg0.
+ self ssPushNativeRegisterDoubleFloat: DPFPReg0.
+ extA := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallIndirectFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallIndirectFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self callSwitchToCStack.
+ self CallRT: ceFFICalloutTrampoline.
+ backEnd cFloatResultToRs: DPFPReg0.
+ self ssPushNativeRegisterSingleFloat: DPFPReg0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallIndirectFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallIndirectFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self callSwitchToCStack.
+ self CallRT: ceFFICalloutTrampoline.
+ backEnd cFloatResultToRd: DPFPReg0.
+ self ssPushNativeRegisterDoubleFloat: DPFPReg0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallIndirectInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallIndirectInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self callSwitchToCStack.
+ self CallRT: ceFFICalloutTrampoline.
+ self MoveR: backEnd cResultRegister R: ReceiverResultReg.
+ self ssPushNativeRegister: ReceiverResultReg.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallIndirectInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallIndirectInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self callSwitchToCStack.
+ self CallRT: ceFFICalloutTrampoline.
+ BytesPerWord = 4 ifTrue: [
+ self MoveR: backEnd cResultRegisterLow R: ReceiverResultReg.
+ self MoveR: backEnd cResultRegisterHigh R: Arg0Reg.
+ self ssPushNativeRegister: ReceiverResultReg secondRegister: Arg0Reg.
+ ] ifFalse: [
+ self MoveR: backEnd cResultRegister R: ReceiverResultReg.
+ self ssPushNativeRegister: ReceiverResultReg.
+ ].
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallIndirectPointer (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallIndirectPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self callSwitchToCStack.
+ self CallRT: ceFFICalloutTrampoline.
+ self MoveR: backEnd cResultRegister R: ReceiverResultReg.
+ self ssPushNativeRegister: ReceiverResultReg.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallIndirectStructure (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallIndirectStructure
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ "Push the result space"
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self PushR: TempReg.
+ "Fetch the function pointer"
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ "Call the function"
+ self callSwitchToCStack.
+ self CallRT: ceFFICalloutTrampoline.
+ "Fetch the result"
+ self MoveR: backEnd cResultRegister R: ReceiverResultReg.
+ self ssPushNativeRegister: ReceiverResultReg.
+ extA := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallIndirectVoid (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallIndirectVoid
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self callSwitchToCStack.
+ self CallRT: ceFFICalloutTrampoline.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self callSwitchToCStack.
+ self MoveCw: extA R: TempReg.
+ self CallRT: ceFFICalloutTrampoline.
+ self MoveR: backEnd cResultRegister R: ReceiverResultReg.
+ self ssPushNativeRegister: ReceiverResultReg.
+ extA := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self callSwitchToCStack.
+ self MoveCw: extA R: TempReg.
+ self CallRT: ceFFICalloutTrampoline.
+ BytesPerWord = 4 ifTrue: [
+ self MoveR: backEnd cResultRegisterLow R: ReceiverResultReg.
+ self MoveR: backEnd cResultRegisterHigh R: Arg0Reg.
+ self ssPushNativeRegister: ReceiverResultReg secondRegister: Arg0Reg.
+ ] ifFalse: [
+ self MoveR: backEnd cResultRegister R: ReceiverResultReg.
+ self ssPushNativeRegister: ReceiverResultReg.
+ ].
+ extA := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallPointer (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self callSwitchToCStack.
+ self MoveCw: extA R: TempReg.
+ self CallRT: ceFFICalloutTrampoline.
+ self MoveR: backEnd cResultRegister R: ReceiverResultReg.
+ self ssPushNativeRegister: ReceiverResultReg.
+ extA := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallStructure (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallStructure
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ "Push the result space"
+ self ssNativeTop nativeStackPopToReg: TempReg.
+ self ssNativePop: 1.
+ self PushR: TempReg.
+ "Call the function"
+ self callSwitchToCStack.
+ self MoveCw: extA R: TempReg.
+ self CallRT: ceFFICalloutTrampoline.
+ "Fetch the result"
+ self MoveR: backEnd cResultRegister R: ReceiverResultReg.
+ self ssPushNativeRegister: ReceiverResultReg.
+ extA := 0.
+ extB := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePerformCallVoid (in category 'inline primitive generators generated code') -----
+ genLowcodePerformCallVoid
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self callSwitchToCStack.
+ self MoveCw: extA R: TempReg.
+ self CallRT: ceFFICalloutTrampoline.
+ extA := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePin (in category 'inline primitive generators generated code') -----
+ genLowcodePin
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePlaftormCode (in category 'inline primitive generators generated code') -----
+ genLowcodePlaftormCode
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePointerAddConstantOffset (in category 'inline primitive generators generated code') -----
+ genLowcodePointerAddConstantOffset
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | base offset |
+ offset := extB.
+
+ (base := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (base := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ base = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: base.
+ self ssNativePop: 1.
+
+ self AddCq: offset R: base.
+ self ssPushNativeRegister: base.
+
+ extB := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePointerAddOffset32 (in category 'inline primitive generators generated code') -----
+ genLowcodePointerAddOffset32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | base offset |
+
+ (offset := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (offset := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (base := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: offset))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (base := Arg1Reg)].
+ (offset = ReceiverResultReg or: [base = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: offset.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: base.
+ self ssNativePop: 1.
+
+ self AddR: offset R: base.
+ self ssPushNativeRegister: base.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePointerAddOffset64 (in category 'inline primitive generators generated code') -----
+ genLowcodePointerAddOffset64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | offsetHigh base offset offsetLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (offsetLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (offsetLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (offsetHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: offsetLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (offsetHigh := Arg1Reg)].
+
+ (base := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: offsetLow)) bitOr: (self registerMaskFor: offsetHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (base := SendNumArgsReg)].
+ ((offsetLow = ReceiverResultReg or: [offsetHigh = ReceiverResultReg]) or: [base = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: offsetLow secondReg: offsetHigh.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: base.
+ self ssNativePop: 1.
+
+ self AddR: offsetLow R: base.
+ self ssPushNativeRegister: base.
+
+ ] ifFalse: [
+
+ (offset := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (offset := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (base := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: offset))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (base := Arg1Reg)].
+ (offset = ReceiverResultReg or: [base = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: offset.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: base.
+ self ssNativePop: 1.
+
+ self AddR: offset R: base.
+ self ssPushNativeRegister: base.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePointerEqual (in category 'inline primitive generators generated code') -----
+ genLowcodePointerEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpNonZero: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePointerNotEqual (in category 'inline primitive generators generated code') -----
+ genLowcodePointerNotEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpZero: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePointerToInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodePointerToInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointer = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ "TODO: Perform a NOP here"
+ self ssPushNativeRegister: pointer.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePointerToInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodePointerToInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | resultLow pointer result resultHigh |
+ BytesPerWord = 4 ifTrue: [
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (resultLow := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (resultLow := Arg1Reg)].
+
+ (resultHigh := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: pointer)) bitOr: (self registerMaskFor: resultLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (resultHigh := SendNumArgsReg)].
+ ((pointer = ReceiverResultReg or: [resultLow = ReceiverResultReg]) or: [resultHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self MoveR: pointer R: resultLow.
+ self MoveCq: 0 R: resultHigh.
+ self ssPushNativeRegister: resultLow secondRegister: resultHigh.
+
+ ] ifFalse: [
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self ssPushNativeRegister: pointer.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePointerToOop (in category 'inline primitive generators generated code') -----
+ genLowcodePointerToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer pointerClassLiteral |
+ pointerClassLiteral := self getLiteral: extA.
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointer = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcPointerToOop: pointer class: pointerClassLiteral.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePointerToOopReinterprer (in category 'inline primitive generators generated code') -----
+ genLowcodePointerToOopReinterprer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointer = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+
+ "TODO: Generate a nop here"
+ self ssPushRegister: pointer.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePopFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodePopFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePopFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodePopFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePopInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodePopInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePopInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodePopInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePopMultipleNative (in category 'inline primitive generators generated code') -----
+ genLowcodePopMultipleNative
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPopNativeSize: extA.
+ extA := 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePopPointer (in category 'inline primitive generators generated code') -----
+ genLowcodePopPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointerValue |
+
+ (pointerValue := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointerValue := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointerValue = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointerValue.
+ self ssNativePop: 1.
+
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushConstantUInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodePushConstantUInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | constant |
+ constant := extA.
+
+ self ssPushNativeConstantInt32: constant.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushConstantUInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodePushConstantUInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | constant |
+ constant := extA.
+
+ self ssPushNativeConstantInt64: constant.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushNullPointer (in category 'inline primitive generators generated code') -----
+ genLowcodePushNullPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPushNativeConstantPointer: 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushOne32 (in category 'inline primitive generators generated code') -----
+ genLowcodePushOne32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPushNativeConstantInt32: 1.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushOne64 (in category 'inline primitive generators generated code') -----
+ genLowcodePushOne64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPushNativeConstantInt64: 1.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushOneFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodePushOneFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPushNativeConstantFloat32: 1.0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushOneFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodePushOneFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPushNativeConstantFloat64: 1.0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushPhysicalFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodePushPhysicalFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID |
+ registerID := extA.
+
+ self abort.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushPhysicalFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodePushPhysicalFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID |
+ registerID := extA.
+
+ self abort.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushPhysicalInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodePushPhysicalInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID |
+ registerID := extA.
+
+ self abort.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushPhysicalInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodePushPhysicalInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID |
+ registerID := extA.
+
+ self abort.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushPhysicalPointer (in category 'inline primitive generators generated code') -----
+ genLowcodePushPhysicalPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | registerID |
+ registerID := extA.
+
+ self abort.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushSessionIdentifier (in category 'inline primitive generators generated code') -----
+ genLowcodePushSessionIdentifier
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPushNativeConstantInt32: coInterpreter getThisSessionID.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushZero32 (in category 'inline primitive generators generated code') -----
+ genLowcodePushZero32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPushNativeConstantInt32: 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushZero64 (in category 'inline primitive generators generated code') -----
+ genLowcodePushZero64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPushNativeConstantInt64: 0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushZeroFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodePushZeroFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPushNativeConstantFloat32: 0.0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodePushZeroFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodePushZeroFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self ssPushNativeConstantFloat64: 0.0.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeRem32 (in category 'inline primitive generators generated code') -----
+ genLowcodeRem32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self DivR: second R: first Quo: second Rem: first.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeRem64 (in category 'inline primitive generators generated code') -----
+ genLowcodeRem64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh result resultLow resultHigh first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeRightShift32 (in category 'inline primitive generators generated code') -----
+ genLowcodeRightShift32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value shiftAmount |
+
+ (shiftAmount := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (shiftAmount := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: shiftAmount))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (shiftAmount = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: shiftAmount.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self LogicalShiftRightR: shiftAmount R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeRightShift64 (in category 'inline primitive generators generated code') -----
+ genLowcodeRightShift64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result shiftAmount shiftAmountHigh resultLow valueLow resultHigh shiftAmountLow valueHigh |
+
+ (shiftAmount := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (shiftAmount := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: shiftAmount))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: shiftAmount)) bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((shiftAmount = ReceiverResultReg or: [value = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: shiftAmount.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeSignExtend32From16 (in category 'inline primitive generators generated code') -----
+ genLowcodeSignExtend32From16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self SignExtend16R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeSignExtend32From8 (in category 'inline primitive generators generated code') -----
+ genLowcodeSignExtend32From8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self SignExtend8R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeSignExtend64From16 (in category 'inline primitive generators generated code') -----
+ genLowcodeSignExtend64From16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value isNegative cont valueLow valueHigh |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self SignExtend16R: valueLow R: valueLow.
+ "Check the sign to set the high word"
+ self CmpCq: 0 R: valueLow.
+ "Positive"
+ isNegative := self JumpLess: 0.
+ self MoveCq: 0 R: valueHigh.
+ cont := self Jump: 0.
+ "Negative"
+ isNegative jmpTarget: (self MoveCq: -1 R: valueHigh).
+ cont jmpTarget: self Label.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self SignExtend16R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeSignExtend64From32 (in category 'inline primitive generators generated code') -----
+ genLowcodeSignExtend64From32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result resultLow resultHigh isNegative cont |
+ BytesPerWord = 4 ifTrue: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (resultLow := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (resultLow := Arg1Reg)].
+
+ (resultHigh := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: value)) bitOr: (self registerMaskFor: resultLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (resultHigh := SendNumArgsReg)].
+ ((value = ReceiverResultReg or: [resultLow = ReceiverResultReg]) or: [resultHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value R: resultLow.
+ "Check the sign to set the high word"
+ self CmpCq: 0 R: value.
+ "Positive"
+ isNegative := self JumpLess: 0.
+ self MoveCq: 0 R: resultHigh.
+ cont := self Jump: 0.
+ "Negative"
+ isNegative jmpTarget: (self MoveCq: -1 R: resultHigh).
+ cont jmpTarget: self Label.
+ self ssPushNativeRegister: resultLow secondRegister: resultHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := Arg1Reg)].
+ (value = ReceiverResultReg or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self SignExtend32R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeSignExtend64From8 (in category 'inline primitive generators generated code') -----
+ genLowcodeSignExtend64From8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result resultLow resultHigh isNegative valueLow cont valueHigh |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+
+ (resultLow := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: valueLow)) bitOr: (self registerMaskFor: valueHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (resultLow := SendNumArgsReg)].
+
+ (resultHigh := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: valueLow)) bitOr: (self registerMaskFor: valueHigh)) bitOr: (self registerMaskFor: resultLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (resultHigh := ClassReg)].
+ (((valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) or: [resultLow = ReceiverResultReg]) or: [resultHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self SignExtend8R: valueLow R: valueLow.
+ "Check the sign to set the high word"
+ self CmpCq: 0 R: valueLow.
+ "Positive"
+ isNegative := self JumpLess: 0.
+ self MoveCq: 0 R: valueHigh.
+ cont := self Jump: 0.
+ "Negative"
+ isNegative jmpTarget: (self MoveCq: -1 R: valueHigh).
+ cont jmpTarget: self Label.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := Arg1Reg)].
+ (value = ReceiverResultReg or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ZeroExtend16R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeSmallInt32ToOop (in category 'inline primitive generators generated code') -----
+ genLowcodeSmallInt32ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self LogicalShiftLeftCq: 1 R: value.
+ self OrCq: 1 R: value.
+ self ssPushRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreFloat32ToMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreFloat32ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | floatValue pointer |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (floatValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (floatValue := DPFPReg0)].
+ pointer = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: floatValue.
+ self ssNativePop: 1.
+
+ self MoveRs: floatValue M32: 0 r: pointer.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreFloat64ToMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreFloat64ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | doubleValue pointer |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (doubleValue := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (doubleValue := DPFPReg0)].
+ pointer = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: doubleValue.
+ self ssNativePop: 1.
+
+ self MoveRd: doubleValue M64: 0 r: pointer.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreInt16ToMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreInt16ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value R: TempReg.
+ self MoveR: TempReg M16: 0 r: pointer.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreInt32ToMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreInt32ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value M32: 0 r: pointer.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreInt64ToMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreInt64ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh pointer value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueLow := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueLow := Arg1Reg)].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: pointer)) bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := SendNumArgsReg)].
+ ((pointer = ReceiverResultReg or: [valueLow = ReceiverResultReg]) or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self MoveR: valueLow M32: 0 r: pointer.
+ self MoveR: valueHigh M32: 4 r: pointer.
+
+ ] ifFalse: [
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value M64: 0 r: pointer.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreInt8ToMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreInt8ToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointer value |
+
+ (pointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (value := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: pointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := Arg1Reg)].
+ (pointer = ReceiverResultReg or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointer.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value R: TempReg.
+ self MoveR: TempReg M8: 0 r: pointer.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreLocalFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreLocalFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ baseOffset := extA.
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveRs: value M32: 0 r: TempReg.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreLocalFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreLocalFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ baseOffset := extA.
+
+ (value := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (value := DPFPReg0)].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveRd: value M64: 0 r: TempReg.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreLocalInt16 (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreLocalInt16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value R: TempReg.
+ self loadNativeLocalAddress: baseOffset to: value.
+ self MoveR: TempReg M16: 0 r: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreLocalInt32 (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreLocalInt32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveR: value M32: 0 r: TempReg.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreLocalInt64 (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreLocalInt64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow baseOffset |
+ baseOffset := extA.
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveR: valueLow M32: 0 r: TempReg.
+ self MoveR: valueHigh M32: 4 r: TempReg.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value M64: 0 r: TempReg.
+
+ ].
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreLocalInt8 (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreLocalInt8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value baseOffset |
+ baseOffset := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value R: TempReg.
+ self loadNativeLocalAddress: baseOffset to: value.
+ self MoveR: TempReg M8: 0 r: value.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreLocalPointer (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreLocalPointer
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | pointerValue baseOffset |
+ baseOffset := extA.
+
+ (pointerValue := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (pointerValue := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ pointerValue = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: pointerValue.
+ self ssNativePop: 1.
+
+ self loadNativeLocalAddress: baseOffset to: TempReg.
+ self MoveR: pointerValue Mw: 0 r: TempReg.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreObjectField (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreObjectField
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | fieldIndex object value |
+ fieldIndex := extA.
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (object := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (object := Arg1Reg)].
+ (value = ReceiverResultReg or: [object = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: value.
+ self ssPop: 1.
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcStore: value object: object field: fieldIndex.
+
+ extA := 0.
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStoreObjectFieldAt (in category 'inline primitive generators generated code') -----
+ genLowcodeStoreObjectFieldAt
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | fieldIndex object value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (fieldIndex := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (fieldIndex := Arg1Reg)].
+
+ (object := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: value)) bitOr: (self registerMaskFor: fieldIndex))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (object := SendNumArgsReg)].
+ ((value = ReceiverResultReg or: [fieldIndex = ReceiverResultReg]) or: [object = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: value.
+ self ssPop: 1.
+ self ssNativeTop nativePopToReg: fieldIndex.
+ self ssNativePop: 1.
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ objectRepresentation genLcStore: value object: object at: fieldIndex.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeStorePointerToMemory (in category 'inline primitive generators generated code') -----
+ genLowcodeStorePointerToMemory
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | memoryPointer pointerValue |
+
+ (memoryPointer := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (memoryPointer := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (pointerValue := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: memoryPointer))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (pointerValue := Arg1Reg)].
+ (memoryPointer = ReceiverResultReg or: [pointerValue = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: memoryPointer.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: pointerValue.
+ self ssNativePop: 1.
+
+ self MoveR: pointerValue Mw: 0 r: memoryPointer.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeSub32 (in category 'inline primitive generators generated code') -----
+ genLowcodeSub32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self SubR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeSub64 (in category 'inline primitive generators generated code') -----
+ genLowcodeSub64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh first second firstHigh |
+ BytesPerWord = 4 ifTrue: [
+
+ (secondLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (secondLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (secondHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: secondLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (secondHigh := Arg1Reg)].
+
+ (firstLow := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstLow := SendNumArgsReg)].
+
+ (firstHigh := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh)) bitOr: (self registerMaskFor: firstLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstHigh := ClassReg)].
+ (((secondLow = ReceiverResultReg or: [secondHigh = ReceiverResultReg]) or: [firstLow = ReceiverResultReg]) or: [firstHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: secondLow secondReg: secondHigh.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: firstLow secondReg: firstHigh.
+ self ssNativePop: 1.
+
+ self SubR: secondLow R: firstLow.
+ self SubbR: secondHigh R: firstHigh.
+ self ssPushNativeRegister: firstLow secondRegister: firstHigh.
+
+ ] ifFalse: [
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self SubR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeTrinaryInlinePrimitive: (in category 'inline primitive generators dispatch generated code') -----
+ genLowcodeTrinaryInlinePrimitive: prim
+ <option: #LowcodeVM> "Lowcode instruction generator dispatch"
+ prim
+ caseOf: {
+ [0] -> [ ^ self genLowcodeOopEqual ].
+ [1] -> [ ^ self genLowcodeOopNotEqual ].
+ [2] -> [ ^ self genLowcodeStoreObjectField ].
+ [3] -> [ ^ self genLowcodeStoreObjectFieldAt ].
+ }
+ otherwise: [ ^ EncounteredUnknownBytecode ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeTruncate32To16 (in category 'inline primitive generators generated code') -----
+ genLowcodeTruncate32To16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self AndCq: 16rFFFF R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeTruncate32To8 (in category 'inline primitive generators generated code') -----
+ genLowcodeTruncate32To8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self AndCq: 16rFF R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeTruncate64To16 (in category 'inline primitive generators generated code') -----
+ genLowcodeTruncate64To16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self AndCq: 16rFFFF R: valueLow.
+ self ssPushNativeRegister: valueLow.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self AndCq: 16rFFFF R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeTruncate64To32 (in category 'inline primitive generators generated code') -----
+ genLowcodeTruncate64To32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self ssPushNativeRegister: valueLow.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self AndCq: 16rFFFFFFFF R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeTruncate64To8 (in category 'inline primitive generators generated code') -----
+ genLowcodeTruncate64To8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow result |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: valueLow)) bitOr: (self registerMaskFor: valueHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self AndCq: 16rFF R: valueLow.
+ self ssPushNativeRegister: valueLow.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := Arg1Reg)].
+ (value = ReceiverResultReg or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self AndCq: 16rFF R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUdiv32 (in category 'inline primitive generators generated code') -----
+ genLowcodeUdiv32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self DivR: second R: first Quo: first Rem: second.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUdiv64 (in category 'inline primitive generators generated code') -----
+ genLowcodeUdiv64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh result resultLow resultHigh first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint32Great (in category 'inline primitive generators generated code') -----
+ genLowcodeUint32Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpBelowOrEqual: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint32GreatEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeUint32GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpBelow: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint32Less (in category 'inline primitive generators generated code') -----
+ genLowcodeUint32Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpAboveOrEqual: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint32LessEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeUint32LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second falseJump contJump first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self CmpR: second R: first.
+ falseJump := self JumpAbove: 0.
+ "True result"
+ self MoveCq: 1 R: first.
+ contJump := self Jump: 0.
+ "False result"
+ falseJump jmpTarget: self Label.
+ self MoveCq: 0 R: first.
+ contJump jmpTarget: self Label.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint32ToFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeUint32ToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (result := DPFPReg0)].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ConvertR: value Rs: result.
+ self ssPushNativeRegisterSingleFloat: result.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint32ToFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeUint32ToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value result |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (result := DPFPReg0)].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ConvertR: value Rd: result.
+ self ssPushNativeRegisterDoubleFloat: result.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint32ToOop (in category 'inline primitive generators generated code') -----
+ genLowcodeUint32ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcUInt32ToOop: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint64Great (in category 'inline primitive generators generated code') -----
+ genLowcodeUint64Great
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh value first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (value := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint64GreatEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeUint64GreatEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh value first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (value := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint64Less (in category 'inline primitive generators generated code') -----
+ genLowcodeUint64Less
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh value first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (value := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint64LessEqual (in category 'inline primitive generators generated code') -----
+ genLowcodeUint64LessEqual
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh value first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (value := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (value := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [value = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint64ToFloat32 (in category 'inline primitive generators generated code') -----
+ genLowcodeUint64ToFloat32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow result |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (result := DPFPReg0)].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint64ToFloat64 (in category 'inline primitive generators generated code') -----
+ genLowcodeUint64ToFloat64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow result |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableFloatRegisterOrNoneFor: self liveFloatRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredFloatReg: (result := DPFPReg0)].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUint64ToOop (in category 'inline primitive generators generated code') -----
+ genLowcodeUint64ToOop
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh object value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+
+ (object := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: valueLow)) bitOr: (self registerMaskFor: valueHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (object := SendNumArgsReg)].
+ ((valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) or: [object = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcUInt64ToOop: valueLow highPart: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (object := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (object := Arg1Reg)].
+ (value = ReceiverResultReg or: [object = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ssFlushAll.
+ objectRepresentation genLcUInt64ToOop: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUmul32 (in category 'inline primitive generators generated code') -----
+ genLowcodeUmul32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self MulR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUmul64 (in category 'inline primitive generators generated code') -----
+ genLowcodeUmul64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh result resultLow resultHigh first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUnaryInlinePrimitive2: (in category 'inline primitive generators dispatch generated code') -----
+ genLowcodeUnaryInlinePrimitive2: prim
+ <option: #LowcodeVM> "Lowcode instruction generator dispatch"
+ prim
+ caseOf: {
+ [60] -> [ ^ self genLowcodeFloat64ToFloat32 ].
+ [61] -> [ ^ self genLowcodeFloat64ToInt32 ].
+ [62] -> [ ^ self genLowcodeFloat64ToInt64 ].
+ [63] -> [ ^ self genLowcodeFloat64ToUInt32 ].
+ [64] -> [ ^ self genLowcodeFloat64ToUInt64 ].
+ [65] -> [ ^ self genLowcodeFree ].
+ [66] -> [ ^ self genLowcodeInstantiateIndexable32Oop ].
+ [67] -> [ ^ self genLowcodeInstantiateIndexableOop ].
+ [68] -> [ ^ self genLowcodeInstantiateOop ].
+ [69] -> [ ^ self genLowcodeInt32Equal ].
+ [70] -> [ ^ self genLowcodeInt32Great ].
+ [71] -> [ ^ self genLowcodeInt32GreatEqual ].
+ [72] -> [ ^ self genLowcodeInt32Less ].
+ [73] -> [ ^ self genLowcodeInt32LessEqual ].
+ [74] -> [ ^ self genLowcodeInt32NotEqual ].
+ [75] -> [ ^ self genLowcodeInt32ToFloat32 ].
+ [76] -> [ ^ self genLowcodeInt32ToFloat64 ].
+ [77] -> [ ^ self genLowcodeInt32ToPointer ].
+ [78] -> [ ^ self genLowcodeInt64Equal ].
+ [79] -> [ ^ self genLowcodeInt64Great ].
+ [80] -> [ ^ self genLowcodeInt64GreatEqual ].
+ [81] -> [ ^ self genLowcodeInt64Less ].
+ [82] -> [ ^ self genLowcodeInt64LessEqual ].
+ [83] -> [ ^ self genLowcodeInt64NotEqual ].
+ [84] -> [ ^ self genLowcodeInt64ToFloat32 ].
+ [85] -> [ ^ self genLowcodeInt64ToFloat64 ].
+ [86] -> [ ^ self genLowcodeInt64ToPointer ].
+ [87] -> [ ^ self genLowcodeLeftShift32 ].
+ [88] -> [ ^ self genLowcodeLeftShift64 ].
+ [89] -> [ ^ self genLowcodeLoadArgumentAddress ].
+ [90] -> [ ^ self genLowcodeLoadArgumentFloat32 ].
+ [91] -> [ ^ self genLowcodeLoadArgumentFloat64 ].
+ [92] -> [ ^ self genLowcodeLoadArgumentInt16 ].
+ [93] -> [ ^ self genLowcodeLoadArgumentInt32 ].
+ [94] -> [ ^ self genLowcodeLoadArgumentInt64 ].
+ [95] -> [ ^ self genLowcodeLoadArgumentInt8 ].
+ [96] -> [ ^ self genLowcodeLoadArgumentPointer ].
+ [97] -> [ ^ self genLowcodeLoadArgumentUInt16 ].
+ [98] -> [ ^ self genLowcodeLoadArgumentUInt32 ].
+ [99] -> [ ^ self genLowcodeLoadArgumentUInt64 ].
+ [100] -> [ ^ self genLowcodeLoadArgumentUInt8 ].
+ [101] -> [ ^ self genLowcodeLoadFloat32FromMemory ].
+ [102] -> [ ^ self genLowcodeLoadFloat64FromMemory ].
+ [103] -> [ ^ self genLowcodeLoadInt16FromMemory ].
+ [104] -> [ ^ self genLowcodeLoadInt32FromMemory ].
+ [105] -> [ ^ self genLowcodeLoadInt64FromMemory ].
+ [106] -> [ ^ self genLowcodeLoadInt8FromMemory ].
+ [107] -> [ ^ self genLowcodeLoadLocalAddress ].
+ [108] -> [ ^ self genLowcodeLoadLocalFloat32 ].
+ [109] -> [ ^ self genLowcodeLoadLocalFloat64 ].
+ [110] -> [ ^ self genLowcodeLoadLocalInt16 ].
+ [111] -> [ ^ self genLowcodeLoadLocalInt32 ].
+ [112] -> [ ^ self genLowcodeLoadLocalInt64 ].
+ [113] -> [ ^ self genLowcodeLoadLocalInt8 ].
+ [114] -> [ ^ self genLowcodeLoadLocalPointer ].
+ [115] -> [ ^ self genLowcodeLoadLocalUInt16 ].
+ [116] -> [ ^ self genLowcodeLoadLocalUInt32 ].
+ [117] -> [ ^ self genLowcodeLoadLocalUInt64 ].
+ [118] -> [ ^ self genLowcodeLoadLocalUInt8 ].
+ [119] -> [ ^ self genLowcodeLoadObjectAt ].
+ }
+ otherwise: [ ^ self genLowcodeUnaryInlinePrimitive3: prim ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUnaryInlinePrimitive3: (in category 'inline primitive generators dispatch generated code') -----
+ genLowcodeUnaryInlinePrimitive3: prim
+ <option: #LowcodeVM> "Lowcode instruction generator dispatch"
+ prim
+ caseOf: {
+ [120] -> [ ^ self genLowcodeLoadObjectField ].
+ [121] -> [ ^ self genLowcodeLoadPointerFromMemory ].
+ [122] -> [ ^ self genLowcodeLoadUInt16FromMemory ].
+ [123] -> [ ^ self genLowcodeLoadUInt32FromMemory ].
+ [124] -> [ ^ self genLowcodeLoadUInt64FromMemory ].
+ [125] -> [ ^ self genLowcodeLoadUInt8FromMemory ].
+ [126] -> [ ^ self genLowcodeLocalFrameSize ].
+ [127] -> [ ^ self genLowcodeLockRegisters ].
+ [128] -> [ ^ self genLowcodeLockVM ].
+ [129] -> [ ^ self genLowcodeMalloc32 ].
+ [130] -> [ ^ self genLowcodeMalloc64 ].
+ [131] -> [ ^ self genLowcodeMemcpy32 ].
+ [132] -> [ ^ self genLowcodeMemcpy64 ].
+ [133] -> [ ^ self genLowcodeMemcpyFixed ].
+ [134] -> [ ^ self genLowcodeMoveFloat32ToPhysical ].
+ [135] -> [ ^ self genLowcodeMoveFloat64ToPhysical ].
+ [136] -> [ ^ self genLowcodeMoveInt32ToPhysical ].
+ [137] -> [ ^ self genLowcodeMoveInt64ToPhysical ].
+ [138] -> [ ^ self genLowcodeMovePointerToPhysical ].
+ [139] -> [ ^ self genLowcodeMul32 ].
+ [140] -> [ ^ self genLowcodeMul64 ].
+ [141] -> [ ^ self genLowcodeNeg32 ].
+ [142] -> [ ^ self genLowcodeNeg64 ].
+ [143] -> [ ^ self genLowcodeNot32 ].
+ [144] -> [ ^ self genLowcodeNot64 ].
+ [145] -> [ ^ self genLowcodeOr32 ].
+ [146] -> [ ^ self genLowcodeOr64 ].
+ [147] -> [ ^ self genLowcodePerformCallFloat32 ].
+ [148] -> [ ^ self genLowcodePerformCallFloat64 ].
+ [149] -> [ ^ self genLowcodePerformCallIndirectFloat32 ].
+ [150] -> [ ^ self genLowcodePerformCallIndirectFloat64 ].
+ [151] -> [ ^ self genLowcodePerformCallIndirectInt32 ].
+ [152] -> [ ^ self genLowcodePerformCallIndirectInt64 ].
+ [153] -> [ ^ self genLowcodePerformCallIndirectPointer ].
+ [154] -> [ ^ self genLowcodePerformCallIndirectStructure ].
+ [155] -> [ ^ self genLowcodePerformCallIndirectVoid ].
+ [156] -> [ ^ self genLowcodePerformCallInt32 ].
+ [157] -> [ ^ self genLowcodePerformCallInt64 ].
+ [158] -> [ ^ self genLowcodePerformCallPointer ].
+ [159] -> [ ^ self genLowcodePerformCallStructure ].
+ [160] -> [ ^ self genLowcodePerformCallVoid ].
+ [161] -> [ ^ self genLowcodePlaftormCode ].
+ [162] -> [ ^ self genLowcodePointerAddConstantOffset ].
+ [163] -> [ ^ self genLowcodePointerAddOffset32 ].
+ [164] -> [ ^ self genLowcodePointerAddOffset64 ].
+ [165] -> [ ^ self genLowcodePointerEqual ].
+ [166] -> [ ^ self genLowcodePointerNotEqual ].
+ [167] -> [ ^ self genLowcodePointerToInt32 ].
+ [168] -> [ ^ self genLowcodePointerToInt64 ].
+ [169] -> [ ^ self genLowcodePopFloat32 ].
+ [170] -> [ ^ self genLowcodePopFloat64 ].
+ [171] -> [ ^ self genLowcodePopInt32 ].
+ [172] -> [ ^ self genLowcodePopInt64 ].
+ [173] -> [ ^ self genLowcodePopMultipleNative ].
+ [174] -> [ ^ self genLowcodePopPointer ].
+ [175] -> [ ^ self genLowcodePushConstantUInt32 ].
+ [176] -> [ ^ self genLowcodePushConstantUInt64 ].
+ [177] -> [ ^ self genLowcodePushNullPointer ].
+ [178] -> [ ^ self genLowcodePushOne32 ].
+ [179] -> [ ^ self genLowcodePushOne64 ].
+ }
+ otherwise: [ ^ self genLowcodeUnaryInlinePrimitive4: prim ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUnaryInlinePrimitive4: (in category 'inline primitive generators dispatch generated code') -----
+ genLowcodeUnaryInlinePrimitive4: prim
+ <option: #LowcodeVM> "Lowcode instruction generator dispatch"
+ prim
+ caseOf: {
+ [180] -> [ ^ self genLowcodePushOneFloat32 ].
+ [181] -> [ ^ self genLowcodePushOneFloat64 ].
+ [182] -> [ ^ self genLowcodePushPhysicalFloat32 ].
+ [183] -> [ ^ self genLowcodePushPhysicalFloat64 ].
+ [184] -> [ ^ self genLowcodePushPhysicalInt32 ].
+ [185] -> [ ^ self genLowcodePushPhysicalInt64 ].
+ [186] -> [ ^ self genLowcodePushPhysicalPointer ].
+ [187] -> [ ^ self genLowcodePushSessionIdentifier ].
+ [188] -> [ ^ self genLowcodePushZero32 ].
+ [189] -> [ ^ self genLowcodePushZero64 ].
+ [190] -> [ ^ self genLowcodePushZeroFloat32 ].
+ [191] -> [ ^ self genLowcodePushZeroFloat64 ].
+ [192] -> [ ^ self genLowcodeRem32 ].
+ [193] -> [ ^ self genLowcodeRem64 ].
+ [194] -> [ ^ self genLowcodeRightShift32 ].
+ [195] -> [ ^ self genLowcodeRightShift64 ].
+ [196] -> [ ^ self genLowcodeSignExtend32From16 ].
+ [197] -> [ ^ self genLowcodeSignExtend32From8 ].
+ [198] -> [ ^ self genLowcodeSignExtend64From16 ].
+ [199] -> [ ^ self genLowcodeSignExtend64From32 ].
+ [200] -> [ ^ self genLowcodeSignExtend64From8 ].
+ [201] -> [ ^ self genLowcodeStoreFloat32ToMemory ].
+ [202] -> [ ^ self genLowcodeStoreFloat64ToMemory ].
+ [203] -> [ ^ self genLowcodeStoreInt16ToMemory ].
+ [204] -> [ ^ self genLowcodeStoreInt32ToMemory ].
+ [205] -> [ ^ self genLowcodeStoreInt64ToMemory ].
+ [206] -> [ ^ self genLowcodeStoreInt8ToMemory ].
+ [207] -> [ ^ self genLowcodeStoreLocalFloat32 ].
+ [208] -> [ ^ self genLowcodeStoreLocalFloat64 ].
+ [209] -> [ ^ self genLowcodeStoreLocalInt16 ].
+ [210] -> [ ^ self genLowcodeStoreLocalInt32 ].
+ [211] -> [ ^ self genLowcodeStoreLocalInt64 ].
+ [212] -> [ ^ self genLowcodeStoreLocalInt8 ].
+ [213] -> [ ^ self genLowcodeStoreLocalPointer ].
+ [214] -> [ ^ self genLowcodeStorePointerToMemory ].
+ [215] -> [ ^ self genLowcodeSub32 ].
+ [216] -> [ ^ self genLowcodeSub64 ].
+ [217] -> [ ^ self genLowcodeTruncate32To16 ].
+ [218] -> [ ^ self genLowcodeTruncate32To8 ].
+ [219] -> [ ^ self genLowcodeTruncate64To16 ].
+ [220] -> [ ^ self genLowcodeTruncate64To32 ].
+ [221] -> [ ^ self genLowcodeTruncate64To8 ].
+ [222] -> [ ^ self genLowcodeUdiv32 ].
+ [223] -> [ ^ self genLowcodeUdiv64 ].
+ [224] -> [ ^ self genLowcodeUint32Great ].
+ [225] -> [ ^ self genLowcodeUint32GreatEqual ].
+ [226] -> [ ^ self genLowcodeUint32Less ].
+ [227] -> [ ^ self genLowcodeUint32LessEqual ].
+ [228] -> [ ^ self genLowcodeUint32ToFloat32 ].
+ [229] -> [ ^ self genLowcodeUint32ToFloat64 ].
+ [230] -> [ ^ self genLowcodeUint64Great ].
+ [231] -> [ ^ self genLowcodeUint64GreatEqual ].
+ [232] -> [ ^ self genLowcodeUint64Less ].
+ [233] -> [ ^ self genLowcodeUint64LessEqual ].
+ [234] -> [ ^ self genLowcodeUint64ToFloat32 ].
+ [235] -> [ ^ self genLowcodeUint64ToFloat64 ].
+ [236] -> [ ^ self genLowcodeUmul32 ].
+ [237] -> [ ^ self genLowcodeUmul64 ].
+ [238] -> [ ^ self genLowcodeUnlockRegisters ].
+ [239] -> [ ^ self genLowcodeUnlockVM ].
+ }
+ otherwise: [ ^ self genLowcodeUnaryInlinePrimitive5: prim ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUnaryInlinePrimitive5: (in category 'inline primitive generators dispatch generated code') -----
+ genLowcodeUnaryInlinePrimitive5: prim
+ <option: #LowcodeVM> "Lowcode instruction generator dispatch"
+ prim
+ caseOf: {
+ [240] -> [ ^ self genLowcodeUrem32 ].
+ [241] -> [ ^ self genLowcodeUrem64 ].
+ [242] -> [ ^ self genLowcodeXor32 ].
+ [243] -> [ ^ self genLowcodeXor64 ].
+ [244] -> [ ^ self genLowcodeZeroExtend32From16 ].
+ [245] -> [ ^ self genLowcodeZeroExtend32From8 ].
+ [246] -> [ ^ self genLowcodeZeroExtend64From16 ].
+ [247] -> [ ^ self genLowcodeZeroExtend64From32 ].
+ [248] -> [ ^ self genLowcodeZeroExtend64From8 ].
+ }
+ otherwise: [ ^ EncounteredUnknownBytecode ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUnaryInlinePrimitive: (in category 'inline primitive generators dispatch generated code') -----
+ genLowcodeUnaryInlinePrimitive: prim
+ <option: #LowcodeVM> "Lowcode instruction generator dispatch"
+ prim
+ caseOf: {
+ [0] -> [ ^ self genLowcodeAdd32 ].
+ [1] -> [ ^ self genLowcodeAdd64 ].
+ [2] -> [ ^ self genLowcodeAlloca32 ].
+ [3] -> [ ^ self genLowcodeAlloca64 ].
+ [4] -> [ ^ self genLowcodeAnd32 ].
+ [5] -> [ ^ self genLowcodeAnd64 ].
+ [6] -> [ ^ self genLowcodeArithmeticRightShift32 ].
+ [7] -> [ ^ self genLowcodeArithmeticRightShift64 ].
+ [8] -> [ ^ self genLowcodeBeginCall ].
+ [9] -> [ ^ self genLowcodeCallArgumentFloat32 ].
+ [10] -> [ ^ self genLowcodeCallArgumentFloat64 ].
+ [11] -> [ ^ self genLowcodeCallArgumentInt32 ].
+ [12] -> [ ^ self genLowcodeCallArgumentInt64 ].
+ [13] -> [ ^ self genLowcodeCallArgumentPointer ].
+ [14] -> [ ^ self genLowcodeCallArgumentSpace ].
+ [15] -> [ ^ self genLowcodeCallArgumentStructure ].
+ [16] -> [ ^ self genLowcodeCallInstruction ].
+ [17] -> [ ^ self genLowcodeCallPhysical ].
+ [18] -> [ ^ self genLowcodeCheckSessionIdentifier ].
+ [19] -> [ ^ self genLowcodeCompareAndSwap32 ].
+ [20] -> [ ^ self genLowcodeDiv32 ].
+ [21] -> [ ^ self genLowcodeDiv64 ].
+ [22] -> [ ^ self genLowcodeDuplicateFloat32 ].
+ [23] -> [ ^ self genLowcodeDuplicateFloat64 ].
+ [24] -> [ ^ self genLowcodeDuplicateInt32 ].
+ [25] -> [ ^ self genLowcodeDuplicateInt64 ].
+ [26] -> [ ^ self genLowcodeDuplicatePointer ].
+ [27] -> [ ^ self genLowcodeEffectiveAddress32 ].
+ [28] -> [ ^ self genLowcodeEffectiveAddress64 ].
+ [29] -> [ ^ self genLowcodeEndCall ].
+ [30] -> [ ^ self genLowcodeEndCallNoCleanup ].
+ [31] -> [ ^ self genLowcodeFloat32Add ].
+ [32] -> [ ^ self genLowcodeFloat32Div ].
+ [33] -> [ ^ self genLowcodeFloat32Equal ].
+ [34] -> [ ^ self genLowcodeFloat32Great ].
+ [35] -> [ ^ self genLowcodeFloat32GreatEqual ].
+ [36] -> [ ^ self genLowcodeFloat32Less ].
+ [37] -> [ ^ self genLowcodeFloat32LessEqual ].
+ [38] -> [ ^ self genLowcodeFloat32Mul ].
+ [39] -> [ ^ self genLowcodeFloat32Neg ].
+ [40] -> [ ^ self genLowcodeFloat32NotEqual ].
+ [41] -> [ ^ self genLowcodeFloat32Sqrt ].
+ [42] -> [ ^ self genLowcodeFloat32Sub ].
+ [43] -> [ ^ self genLowcodeFloat32ToFloat64 ].
+ [44] -> [ ^ self genLowcodeFloat32ToInt32 ].
+ [45] -> [ ^ self genLowcodeFloat32ToInt64 ].
+ [46] -> [ ^ self genLowcodeFloat32ToUInt32 ].
+ [47] -> [ ^ self genLowcodeFloat32ToUInt64 ].
+ [48] -> [ ^ self genLowcodeFloat64Add ].
+ [49] -> [ ^ self genLowcodeFloat64Div ].
+ [50] -> [ ^ self genLowcodeFloat64Equal ].
+ [51] -> [ ^ self genLowcodeFloat64Great ].
+ [52] -> [ ^ self genLowcodeFloat64GreatEqual ].
+ [53] -> [ ^ self genLowcodeFloat64Less ].
+ [54] -> [ ^ self genLowcodeFloat64LessEqual ].
+ [55] -> [ ^ self genLowcodeFloat64Mul ].
+ [56] -> [ ^ self genLowcodeFloat64Neg ].
+ [57] -> [ ^ self genLowcodeFloat64NotEqual ].
+ [58] -> [ ^ self genLowcodeFloat64Sqrt ].
+ [59] -> [ ^ self genLowcodeFloat64Sub ].
+ }
+ otherwise: [ ^ self genLowcodeUnaryInlinePrimitive2: prim ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUnlockRegisters (in category 'inline primitive generators generated code') -----
+ genLowcodeUnlockRegisters
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ "Do nothing for now"
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUnlockVM (in category 'inline primitive generators generated code') -----
+ genLowcodeUnlockVM
+ <option: #LowcodeVM> "Lowcode instruction generator"
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUnpin (in category 'inline primitive generators generated code') -----
+ genLowcodeUnpin
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | object |
+
+ (object := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (object := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ object = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssTop popToReg: object.
+ self ssPop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUrem32 (in category 'inline primitive generators generated code') -----
+ genLowcodeUrem32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self DivR: second R: first Quo: second Rem: first.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeUrem64 (in category 'inline primitive generators generated code') -----
+ genLowcodeUrem64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh result resultLow resultHigh first second firstHigh |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+
+ (result := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: second)) bitOr: (self registerMaskFor: first))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := SendNumArgsReg)].
+ ((second = ReceiverResultReg or: [first = ReceiverResultReg]) or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self abort.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeXor32 (in category 'inline primitive generators generated code') -----
+ genLowcodeXor32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | second first |
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self XorR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeXor64 (in category 'inline primitive generators generated code') -----
+ genLowcodeXor64
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | secondLow firstLow secondHigh first second firstHigh |
+ BytesPerWord = 4 ifTrue: [
+
+ (secondLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (secondLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (secondHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: secondLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (secondHigh := Arg1Reg)].
+
+ (firstLow := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstLow := SendNumArgsReg)].
+
+ (firstHigh := backEnd availableRegisterOrNoneFor: (((self liveRegisters bitOr: (self registerMaskFor: secondLow)) bitOr: (self registerMaskFor: secondHigh)) bitOr: (self registerMaskFor: firstLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (firstHigh := ClassReg)].
+ (((secondLow = ReceiverResultReg or: [secondHigh = ReceiverResultReg]) or: [firstLow = ReceiverResultReg]) or: [firstHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: secondLow secondReg: secondHigh.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: firstLow secondReg: firstHigh.
+ self ssNativePop: 1.
+
+ self XorR: secondLow R: firstLow.
+ self XorR: secondHigh R: firstHigh.
+ self ssPushNativeRegister: firstLow secondRegister: firstHigh.
+
+ ] ifFalse: [
+
+ (second := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (second := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (first := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: second))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (first := Arg1Reg)].
+ (second = ReceiverResultReg or: [first = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: second.
+ self ssNativePop: 1.
+ self ssNativeTop nativePopToReg: first.
+ self ssNativePop: 1.
+
+ self XorR: second R: first.
+ self ssPushNativeRegister: first.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeZeroExtend32From16 (in category 'inline primitive generators generated code') -----
+ genLowcodeZeroExtend32From16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ZeroExtend16R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeZeroExtend32From8 (in category 'inline primitive generators generated code') -----
+ genLowcodeZeroExtend32From8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | value |
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ZeroExtend8R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeZeroExtend64From16 (in category 'inline primitive generators generated code') -----
+ genLowcodeZeroExtend64From16
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self ZeroExtend16R: valueLow R: valueLow.
+ self MoveCq: 0 R: valueHigh.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ZeroExtend16R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeZeroExtend64From32 (in category 'inline primitive generators generated code') -----
+ genLowcodeZeroExtend64From32
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | resultLow resultHigh value result |
+ BytesPerWord = 4 ifTrue: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (resultLow := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (resultLow := Arg1Reg)].
+
+ (resultHigh := backEnd availableRegisterOrNoneFor: ((self liveRegisters bitOr: (self registerMaskFor: value)) bitOr: (self registerMaskFor: resultLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (resultHigh := SendNumArgsReg)].
+ ((value = ReceiverResultReg or: [resultLow = ReceiverResultReg]) or: [resultHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self MoveR: value R: resultLow.
+ self MoveCq: 0 R: resultHigh.
+ self ssPushNativeRegister: resultLow secondRegister: resultHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (result := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: value))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (result := Arg1Reg)].
+ (value = ReceiverResultReg or: [result = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ZeroExtend32R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>genLowcodeZeroExtend64From8 (in category 'inline primitive generators generated code') -----
+ genLowcodeZeroExtend64From8
+ <option: #LowcodeVM> "Lowcode instruction generator"
+ | valueHigh value valueLow |
+ BytesPerWord = 4 ifTrue: [
+
+ (valueLow := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (valueLow := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+
+ (valueHigh := backEnd availableRegisterOrNoneFor: (self liveRegisters bitOr: (self registerMaskFor: valueLow))) = NoReg ifTrue:
+ [self ssAllocateRequiredReg: (valueHigh := Arg1Reg)].
+ (valueLow = ReceiverResultReg or: [valueHigh = ReceiverResultReg]) ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: valueLow secondReg: valueHigh.
+ self ssNativePop: 1.
+
+ self ZeroExtend8R: valueLow R: valueLow.
+ self MoveCq: 0 R: valueHigh.
+ self ssPushNativeRegister: valueLow secondRegister: valueHigh.
+
+ ] ifFalse: [
+
+ (value := backEnd availableRegisterOrNoneFor: self liveRegisters) = NoReg ifTrue:
+ [self ssAllocateRequiredReg:
+ (value := optStatus isReceiverResultRegLive
+ ifTrue: [Arg0Reg]
+ ifFalse: [ReceiverResultReg])].
+ value = ReceiverResultReg ifTrue:
+ [ optStatus isReceiverResultRegLive: false ].
+ self ssNativeTop nativePopToReg: value.
+ self ssNativePop: 1.
+
+ self ZeroExtend8R: value R: value.
+ self ssPushNativeRegister: value.
+
+ ].
+ ^ 0
+
+ !
Item was changed:
----- Method: StackToRegisterMappingCogit>>genUpArrowReturn (in category 'bytecode generators') -----
genUpArrowReturn
"Generate a method return from within a method or a block.
Frameless method activation looks like
CISCs (x86):
receiver
args
sp-> ret pc.
RISCs (ARM):
receiver
args
ret pc in LR.
A fully framed activation is described in CoInterpreter class>initializeFrameIndices.
Return pops receiver and arguments off the stack. Callee pushes the result."
| framelessReturn |
deadCode := true. "can't fall through"
inBlock > 0 ifTrue:
[self assert: needsFrame.
self CallRT: ceNonLocalReturnTrampoline.
self annotateBytecode: self Label.
^0].
self
cppIf: IMMUTABILITY
ifTrue: [framelessReturn := needsFrame and: [useTwoPaths not]]
ifFalse: [framelessReturn := needsFrame].
framelessReturn
ifTrue:
+ [
+ self cppIf: LowcodeVM ifTrue: [ hasNativeFrame ifTrue: [ self leaveNativeFrame ] ].
+ self MoveR: FPReg R: SPReg.
- [self MoveR: FPReg R: SPReg.
self PopR: FPReg.
backEnd hasLinkRegister ifTrue:
[self PopR: LinkReg].
self RetN: methodOrBlockNumArgs + 1 * objectMemory wordSize]
ifFalse:
[self RetN: ((methodOrBlockNumArgs > self numRegArgs
"A method with an interpreter prim will push its register args for the prim. If the failure
body is frameless the args must still be popped, see e.g. Behavior>>nextInstance."
or: [regArgsHaveBeenPushed])
ifTrue: [methodOrBlockNumArgs + 1 * objectMemory wordSize]
ifFalse: [0])].
^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>generateSistaRuntime (in category 'initialization') -----
+ generateSistaRuntime
+ "No sita vm"!
Item was changed:
----- Method: StackToRegisterMappingCogit>>initSimStackForFramefulMethod: (in category 'simulation stack') -----
initSimStackForFramefulMethod: startpc
<var: #desc type: #'CogSimStackEntry *'>
simSelf
type: SSBaseOffset;
spilled: true;
register: FPReg;
offset: FoxMFReceiver.
optStatus
isReceiverResultRegLive: false;
ssEntry: (self addressOf: simSelf).
simSpillBase := methodOrBlockNumTemps. "N.B. Includes num args"
simStackPtr := simSpillBase - 1.
+ self cppIf: LowcodeVM ifTrue: [
+ simNativeSpillBase := simNativeStackPtr := -1.
+ simNativeStackSize := 0.
+ ].
"args"
0 to: methodOrBlockNumArgs - 1 do:
[:i| | desc |
desc := self simStackAt: i.
desc
type: SSBaseOffset;
spilled: true;
register: FPReg;
offset: FoxCallerSavedIP + ((methodOrBlockNumArgs - i) * objectMemory wordSize);
bcptr: startpc].
"temps"
methodOrBlockNumArgs to: simStackPtr do:
[:i| | desc |
desc := self simStackAt: i.
desc
type: SSBaseOffset;
spilled: true;
register: FPReg;
offset: FoxMFReceiver - (i - methodOrBlockNumArgs + 1 * objectMemory wordSize);
bcptr: startpc]!
Item was changed:
----- Method: StackToRegisterMappingCogit>>initSimStackForFramelessBlock: (in category 'simulation stack') -----
initSimStackForFramelessBlock: startpc
"The register receiver (the closure itself) and args are pushed by the closure value primitive(s)
and hence a frameless block has all arguments and copied values pushed to the stack. However,
the method receiver (self) is put in the ReceiverResultRegister by the block entry."
| desc |
<var: #desc type: #'CogSimStackEntry *'>
simSelf
type: SSRegister;
spilled: false;
register: ReceiverResultReg.
optStatus
isReceiverResultRegLive: true;
ssEntry: (self addressOf: simSelf).
self assert: methodOrBlockNumTemps >= methodOrBlockNumArgs.
0 to: methodOrBlockNumTemps - 1 do:
[:i|
desc := self simStackAt: i.
desc
type: SSBaseOffset;
spilled: true;
register: SPReg;
offset: ((backEnd hasLinkRegister
ifTrue: [methodOrBlockNumArgs - 1- i]
ifFalse: [methodOrBlockNumArgs - i]) * objectMemory wordSize);
bcptr: startpc].
+ simSpillBase := simStackPtr := methodOrBlockNumTemps - 1.
+ self cppIf: LowcodeVM ifTrue: [
+ simNativeSpillBase := simNativeStackPtr := -1.
+ simNativeStackSize := 0.
+ ].!
- simSpillBase := simStackPtr := methodOrBlockNumTemps - 1!
Item was changed:
----- Method: StackToRegisterMappingCogit>>initSimStackForFramelessMethod: (in category 'simulation stack') -----
initSimStackForFramelessMethod: startpc
| desc |
<var: #desc type: #'CogSimStackEntry *'>
simSelf
type: SSRegister;
spilled: false;
register: ReceiverResultReg.
optStatus
isReceiverResultRegLive: true;
ssEntry: (self addressOf: simSelf).
self assert: methodOrBlockNumTemps = methodOrBlockNumArgs.
self assert: self numRegArgs <= 2.
(methodOrBlockNumArgs between: 1 and: self numRegArgs)
ifTrue:
[desc := self simStackAt: 0.
desc
type: SSRegister;
spilled: false;
register: Arg0Reg;
bcptr: startpc.
methodOrBlockNumArgs > 1 ifTrue:
[desc := self simStackAt: 1.
desc
type: SSRegister;
spilled: false;
register: Arg1Reg;
bcptr: startpc]]
ifFalse:
[0 to: methodOrBlockNumArgs - 1 do:
[:i|
desc := self simStackAt: i.
desc
type: SSBaseOffset;
register: SPReg;
spilled: true;
offset: ((backEnd hasLinkRegister
ifTrue: [methodOrBlockNumArgs - 1- i]
ifFalse: [methodOrBlockNumArgs - i]) * objectMemory wordSize);
bcptr: startpc]].
+ simSpillBase := simStackPtr := methodOrBlockNumArgs - 1.
+ self cppIf: LowcodeVM ifTrue: [
+ simNativeSpillBase := simNativeStackPtr := -1.
+ simNativeStackSize := 0.
+ ].!
- simSpillBase := simStackPtr := methodOrBlockNumArgs - 1!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>leaveNativeFrame (in category 'simulation stack') -----
+ leaveNativeFrame
+ <option: #LowcodeVM>
+ self assert: needsFrame.
+ self MoveMw: self frameOffsetOfPreviousNativeStackPointer r: FPReg R: TempReg.
+ self SubCq: 1 R: TempReg.
+ self MoveR: TempReg Aw: coInterpreter nativeStackPointerAddress!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>liveFloatRegisters (in category 'simulation stack') -----
+ liveFloatRegisters
+ | regsSet |
+ regsSet := 0.
+ (simSpillBase max: 0) to: simStackPtr do:
+ [:i|
+ regsSet := regsSet bitOr: (self simStackAt: i) floatRegisterMask].
+ self cppIf: LowcodeVM ifTrue: [
+ (simNativeSpillBase max: 0) to: simNativeStackPtr do:
+ [:i|
+ regsSet := regsSet bitOr: (self simNativeStackAt: i) nativeFloatRegisterMask].
+ ].
+ ^regsSet!
Item was changed:
----- Method: StackToRegisterMappingCogit>>liveRegisters (in category 'simulation stack') -----
liveRegisters
| regsSet |
needsFrame
ifTrue: [regsSet := 0]
ifFalse:
[regsSet := self registerMaskFor: ReceiverResultReg.
(methodOrBlockNumArgs <= self numRegArgs
and: [methodOrBlockNumArgs > 0]) ifTrue:
[regsSet := regsSet bitOr: (self registerMaskFor: Arg0Reg).
(self numRegArgs > 1 and: [methodOrBlockNumArgs > 1]) ifTrue:
[regsSet := regsSet bitOr: (self registerMaskFor: Arg1Reg)]]].
(simSpillBase max: 0) to: simStackPtr do:
[:i|
regsSet := regsSet bitOr: (self simStackAt: i) registerMask].
+ self cppIf: LowcodeVM ifTrue: [
+ (simNativeSpillBase max: 0) to: simNativeStackPtr do:
+ [:i|
+ regsSet := regsSet bitOr: (self simNativeStackAt: i) nativeRegisterMask].
+ ].
^regsSet!
Item was changed:
----- Method: StackToRegisterMappingCogit>>mapDeadDescriptorIfNeeded: (in category 'compile abstract instructions') -----
mapDeadDescriptorIfNeeded: descriptor
"insert nops for dead code that is mapped so that bc
to mc mapping is not many to one"
<var: #descriptor type: #'BytecodeDescriptor *'>
self flag: #annotateInstruction .
(descriptor isMapped
or: [inBlock > 0 and: [descriptor isMappedInBlock]])
ifTrue: [self annotateBytecode: self Nop].
^ 0!
Item was changed:
----- Method: StackToRegisterMappingCogit>>mergeWithFixupIfRequired: (in category 'simulation stack') -----
mergeWithFixupIfRequired: fixup
"If this bytecode has a fixup, some kind of merge needs to be done. There are 4 cases:
1) the bytecode has no fixup (fixup isNotAFixup)
do nothing
2) the bytecode has a non merge fixup
the fixup has needsNonMergeFixup.
The code generating non merge fixup (currently only special selector code) is responsible
for the merge so no need to do it.
We set deadCode to false as the instruction can be reached from jumps.
3) the bytecode has a merge fixup, but execution flow *cannot* fall through to the merge point.
the fixup has needsMergeFixup and deadCode = true.
ignores the current simStack as it does not mean anything
restores the simStack to the state the jumps to the merge point expects it to be.
4) the bytecode has a merge fixup and execution flow *can* fall through to the merge point.
the fixup has needsMergeFixup and deadCode = false.
flushes the stack to the stack pointer so the fall through execution path simStack is
in the state the merge point expects it to be.
restores the simStack to the state the jumps to the merge point expects it to be.
In addition, if this is a backjump merge point, we patch the fixup to hold the current simStackPtr
for later assertions."
<var: #fixup type: #'BytecodeFixup *'>
"case 1"
fixup notAFixup ifTrue: [^ 0].
"case 2"
fixup isNonMergeFixup ifTrue: [deadCode := false. ^ 0 ].
"cases 3 and 4"
self assert: fixup isMergeFixup.
self traceMerge: fixup.
+ deadCode ifTrue: [
+ "case 3"
+ simStackPtr := fixup simStackPtr.
+ self cppIf: LowcodeVM ifTrue: [
+ simNativeStackPtr := fixup simNativeStackPtr.
+ simNativeStackSize := fixup simNativeStackSize.
+ ]
+ ] ifFalse: [
+ "case 4"
+ self ssFlushTo: simStackPtr
+ ].
+
- deadCode
- ifTrue: [simStackPtr := fixup simStackPtr] "case 3"
- ifFalse: [self ssFlushTo: simStackPtr]. "case 4"
"cases 3 and 4"
deadCode := false.
+ fixup isBackwardBranchFixup ifTrue: [
+ fixup simStackPtr: simStackPtr.
+ self cppIf: LowcodeVM ifTrue: [
+ fixup simNativeStackPtr: simNativeStackPtr.
+ fixup simNativeStackSize: simNativeStackSize.
+ ]
+ ].
- fixup isBackwardBranchFixup ifTrue: [fixup simStackPtr: simStackPtr].
fixup targetInstruction: self Label.
self assert: simStackPtr = fixup simStackPtr.
+ self cppIf: LowcodeVM ifTrue: [
+ self assert: simNativeStackPtr = fixup simNativeStackPtr.
+ self assert: simNativeStackSize = fixup simNativeStackSize.
+ ].
+
self cCode: '' inSmalltalk:
[self assert: fixup simStackPtr = (self debugStackPointerFor: bytecodePC)].
self restoreSimStackAtMergePoint: fixup.
^0!
Item was changed:
----- Method: StackToRegisterMappingCogit>>restoreSimStackAtMergePoint: (in category 'simulation stack') -----
restoreSimStackAtMergePoint: fixup
<inline: true>
"All the execution paths reaching a merge point expect everything to be
spilled on stack and the optStatus is unknown. Throw away all simStack and
optStatus optimization state."
simSpillBase := methodOrBlockNumTemps.
optStatus isReceiverResultRegLive: false.
methodOrBlockNumTemps to: simStackPtr do:
[:i|
(self simStackAt: i)
type: SSSpill;
offset: FoxMFReceiver - (i - methodOrBlockNumArgs + 1 * objectMemory bytesPerOop);
register: FPReg;
spilled: true].
+ self cppIf: LowcodeVM ifTrue: [
+ 0 to: simNativeStackPtr do: [ :i |
+ (self simNativeStackAt: i)
+ ensureIsMarkedAsSpilled
+ ].
+ simNativeSpillBase := simNativeStackPtr + 1
+ ].
^ 0!
Item was changed:
----- Method: StackToRegisterMappingCogit>>scanBlock: (in category 'compile abstract instructions') -----
scanBlock: blockStart
"Scan the block to determine if the block needs a frame or not"
| descriptor pc end framelessStackDelta nExts pushingNils numPushNils |
<var: #blockStart type: #'BlockStart *'>
<var: #descriptor type: #'BytecodeDescriptor *'>
needsFrame := false.
+ self cppIf: LowcodeVM ifTrue: [ hasNativeFrame := false ].
prevBCDescriptor := nil.
methodOrBlockNumArgs := blockStart numArgs.
inBlock := InVanillaBlock.
pc := blockStart startpc.
end := blockStart startpc + blockStart span.
framelessStackDelta := nExts := extA := extB := 0.
+ extBFirstZero := false.
pushingNils := true.
[pc < end] whileTrue:
[byte0 := (objectMemory fetchByte: pc ofObject: methodObj) + bytecodeSetOffset.
descriptor := self generatorAt: byte0.
descriptor isExtension ifTrue:
[self loadSubsequentBytesForDescriptor: descriptor at: pc.
self perform: descriptor generator].
needsFrame ifFalse:
[(descriptor needsFrameFunction isNil
or: [self perform: descriptor needsFrameFunction with: framelessStackDelta])
ifTrue: [needsFrame := true]
ifFalse: [framelessStackDelta := framelessStackDelta + descriptor stackDelta]].
objectRepresentation maybeNoteDescriptor: descriptor blockStart: blockStart.
(pushingNils
and: [descriptor isExtension not]) ifTrue:
["Count the initial number of pushed nils acting as temp initializers. We can't tell
whether an initial pushNil is an operand reference or a temp initializer, except
when the pushNil is a jump target (has a fixup), which never happens:
self systemNavigation browseAllSelect:
[:m| | ebc |
(ebc := m embeddedBlockClosures
select: [:ea| ea decompile statements first isMessage]
thenCollect: [:ea| ea decompile statements first selector]) notEmpty
and: [(#(whileTrue whileFalse whileTrue: whileFalse:) intersection: ebc) notEmpty]]
or if the bytecode set has a push multiple nils bytecode. We simply count initial nils.
Rarely we may end up over-estimating. We will correct by checking the stack depth
at the end of the block in compileBlockBodies."
(numPushNils := self numPushNils: descriptor pc: pc nExts: nExts method: methodObj) > 0
ifTrue:
[self assert: (descriptor numBytes = 1
or: [descriptor generator == #genPushClosureTempsBytecode]).
blockStart numInitialNils: blockStart numInitialNils + numPushNils]
ifFalse:
[pushingNils := false]].
pc := self nextBytecodePCFor: descriptor at: pc exts: nExts in: methodObj.
descriptor isExtension
ifTrue: [nExts := nExts + 1]
ifFalse: [nExts := extA := extB := 0].
prevBCDescriptor := descriptor].
"It would be nice of this wasn't necessary but alas we need to do the eager
scan for frameless methods so that we don't end up popping too much off
the simulated stack, e.g. for pushNil; returnTopFromBlock methods."
needsFrame ifFalse:
[self assert: (framelessStackDelta >= 0 and: [blockStart numInitialNils >= framelessStackDelta]).
blockStart numInitialNils: blockStart numInitialNils - framelessStackDelta].
^0!
Item was changed:
----- Method: StackToRegisterMappingCogit>>scanMethod (in category 'compile abstract instructions') -----
scanMethod
"Scan the method (and all embedded blocks) to determine
- what the last bytecode is; extra bytes at the end of a method are used to encode things like source pointers or temp names
- if the method needs a frame or not
- what are the targets of any backward branches.
- how many blocks it creates
Answer the block count or on error a negative error code"
| latestContinuation nExts descriptor pc numBlocks distance targetPC framelessStackDelta seenInstVarStore |
<var: #descriptor type: #'BytecodeDescriptor *'>
needsFrame := useTwoPaths := seenInstVarStore := false.
+ self cppIf: LowcodeVM ifTrue: [ hasNativeFrame := false ].
self maybeInitNumFixups.
self maybeInitNumCounters.
prevBCDescriptor := nil.
NewspeakVM ifTrue:
[numIRCs := 0].
(primitiveIndex > 0
and: [coInterpreter isQuickPrimitiveIndex: primitiveIndex]) ifTrue:
[^0].
pc := latestContinuation := initialPC.
numBlocks := framelessStackDelta := nExts := extA := extB := 0.
+ extBFirstZero := false.
[pc <= endPC] whileTrue:
[byte0 := (objectMemory fetchByte: pc ofObject: methodObj) + bytecodeSetOffset.
descriptor := self generatorAt: byte0.
descriptor isExtension ifTrue:
[descriptor opcode = Nop ifTrue: "unknown bytecode tag; see Cogit class>>#generatorTableFrom:"
[^EncounteredUnknownBytecode].
self loadSubsequentBytesForDescriptor: descriptor at: pc.
self perform: descriptor generator].
(descriptor isReturn
and: [pc >= latestContinuation]) ifTrue:
[endPC := pc].
needsFrame ifFalse:
[(descriptor needsFrameFunction isNil
or: [self perform: descriptor needsFrameFunction with: framelessStackDelta])
ifTrue:
["With immutability we win simply by avoiding a frame build if the receiver is young and not immutable."
self cppIf: IMMUTABILITY
ifTrue: [descriptor is1ByteInstVarStore
ifTrue: [useTwoPaths := true]
ifFalse: [needsFrame := true. useTwoPaths := false]]
ifFalse: [needsFrame := true. useTwoPaths := false]]
ifFalse:
[framelessStackDelta := framelessStackDelta + descriptor stackDelta.
"Without immutability we win if there are two or more stores and the receiver is new."
self cppIf: IMMUTABILITY
ifTrue: []
ifFalse:
[descriptor is1ByteInstVarStore ifTrue:
[seenInstVarStore
ifTrue: [useTwoPaths := true]
ifFalse: [seenInstVarStore := true]]]]].
descriptor isBranch ifTrue:
[distance := self spanFor: descriptor at: pc exts: nExts in: methodObj.
targetPC := pc + descriptor numBytes + distance.
(self isBackwardBranch: descriptor at: pc exts: nExts in: methodObj)
ifTrue: [self initializeFixupAt: targetPC - initialPC]
ifFalse:
[latestContinuation := latestContinuation max: targetPC.
self maybeCountFixup.
self maybeCountCounter]].
descriptor isBlockCreation ifTrue:
[numBlocks := numBlocks + 1.
distance := self spanFor: descriptor at: pc exts: nExts in: methodObj.
targetPC := pc + descriptor numBytes + distance.
latestContinuation := latestContinuation max: targetPC.
self maybeCountFixup].
NewspeakVM ifTrue:
[descriptor hasIRC ifTrue:
[numIRCs := numIRCs + 1]].
pc := pc + descriptor numBytes.
descriptor isExtension
ifTrue: [nExts := nExts + 1]
ifFalse: [nExts := extA := extB := 0].
prevBCDescriptor := descriptor].
^numBlocks!
Item was changed:
----- Method: StackToRegisterMappingCogit>>setInterpreter: (in category 'initialization') -----
setInterpreter: aCoInterpreter
"Initialization of the code generator in the simulator.
These objects already exist in the generated C VM
or are used only in the simulation."
<doNotGenerate>
super setInterpreter: aCoInterpreter.
methodAbortTrampolines := CArrayAccessor on: (Array new: self numRegArgs + 2).
picAbortTrampolines := CArrayAccessor on: (Array new: self numRegArgs + 2).
picMissTrampolines := CArrayAccessor on: (Array new: self numRegArgs + 2).
simStack := CArrayAccessor on: ((1 to: self class simStackSlots) collect: [:i| self simStackEntryClass new cogit: self]).
+ simNativeStack := CArrayAccessor on: ((1 to: self class simStackSlots) collect: [:i| self simStackNativeEntryClass new cogit: self]).
simSelf := self simStackEntryClass new cogit: self.
optStatus := CogSSOptStatus new.
debugFixupBreaks := self class initializationOptions at: #debugFixupBreaks ifAbsent: [Set new].
numPushNilsFunction := self class numPushNilsFunction.
pushNilSizeFunction := self class pushNilSizeFunction!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>simNativeStackAt: (in category 'simulation stack') -----
+ simNativeStackAt: index
+ <cmacro: '(index) (simNativeStack + (index))'>
+ <returnTypeC: #'CogSimStackNativeEntry *'>
+ ^self addressOf: (simNativeStack at: index)!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>simStackNativeEntryClass (in category 'initialization') -----
+ simStackNativeEntryClass
+ <doNotGenerate>
+ ^CogSimStackNativeEntry!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssAllocateRequiredFloatReg: (in category 'simulation stack') -----
+ ssAllocateRequiredFloatReg: requiredReg
+ self ssAllocateRequiredFloatRegMask: (self registerMaskFor: requiredReg)
+ upThrough: simStackPtr upThroughNative: simNativeStackPtr!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssAllocateRequiredFloatRegMask:upThrough:upThroughNative: (in category 'simulation stack') -----
+ ssAllocateRequiredFloatRegMask: requiredRegsMask upThrough: stackPtr upThroughNative: nativeStackPtr
+ | lastRequired lastRequiredNative liveRegs |
+ lastRequired := -1.
+ lastRequiredNative := -1.
+ "compute live regs while noting the last occurrence of required regs.
+ If these are not free we must spill from simSpillBase to last occurrence.
+ Note we are conservative here; we could allocate FPReg in frameless methods."
+ liveRegs := NoReg.
+ (simSpillBase max: 0) to: stackPtr do:
+ [:i|
+ liveRegs := liveRegs bitOr: (self simStackAt: i) registerMask.
+ ((self simStackAt: i) floatRegisterMask bitAnd: requiredRegsMask) ~= 0 ifTrue:
+ [lastRequired := i]].
+ self cppIf: LowcodeVM ifTrue: [
+ (simNativeSpillBase max: 0) to: nativeStackPtr do:
+ [:i|
+ liveRegs := liveRegs bitOr: (self simNativeStackAt: i) nativeRegisterMask.
+ ((self simNativeStackAt: i) floatRegisterMask bitAnd: requiredRegsMask) ~= 0 ifTrue:
+ [lastRequiredNative := i]].
+ ].
+
+ "If any of requiredRegsMask are live we must spill."
+ (liveRegs bitAnd: requiredRegsMask) = 0 ifFalse:
+ ["Some live, must spill"
+ self ssFlushTo: lastRequired nativeFlushTo: lastRequiredNative.
+ self assert: (self liveFloatRegisters bitAnd: requiredRegsMask) = 0]!
Item was changed:
----- Method: StackToRegisterMappingCogit>>ssAllocateRequiredRegMask:upThrough: (in category 'simulation stack') -----
ssAllocateRequiredRegMask: requiredRegsMask upThrough: stackPtr
+ self ssAllocateRequiredRegMask: requiredRegsMask upThrough: stackPtr upThroughNative: simNativeStackPtr.
+ !
- | lastRequired liveRegs |
- lastRequired := -1.
- "compute live regs while noting the last occurrence of required regs.
- If these are not free we must spill from simSpillBase to last occurrence.
- Note we are conservative here; we could allocate FPReg in frameless methods."
- liveRegs := self registerMaskFor: FPReg and: SPReg.
- (simSpillBase max: 0) to: stackPtr do:
- [:i|
- liveRegs := liveRegs bitOr: (self simStackAt: i) registerMask.
- ((self simStackAt: i) registerMask bitAnd: requiredRegsMask) ~= 0 ifTrue:
- [lastRequired := i]].
- "If any of requiredRegsMask are live we must spill."
- (liveRegs bitAnd: requiredRegsMask) = 0 ifFalse:
- ["Some live, must spill"
- self ssFlushTo: lastRequired.
- self assert: (self liveRegisters bitAnd: requiredRegsMask) = 0]!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssAllocateRequiredRegMask:upThrough:upThroughNative: (in category 'simulation stack') -----
+ ssAllocateRequiredRegMask: requiredRegsMask upThrough: stackPtr upThroughNative: nativeStackPtr
+ | lastRequired lastRequiredNative liveRegs |
+ lastRequired := -1.
+ lastRequiredNative := -1.
+ "compute live regs while noting the last occurrence of required regs.
+ If these are not free we must spill from simSpillBase to last occurrence.
+ Note we are conservative here; we could allocate FPReg in frameless methods."
+ liveRegs := self registerMaskFor: FPReg and: SPReg.
+ (simSpillBase max: 0) to: stackPtr do:
+ [:i|
+ liveRegs := liveRegs bitOr: (self simStackAt: i) registerMask.
+ ((self simStackAt: i) registerMask bitAnd: requiredRegsMask) ~= 0 ifTrue:
+ [lastRequired := i]].
+ self cppIf: LowcodeVM ifTrue: [
+ (simNativeSpillBase max: 0) to: nativeStackPtr do:
+ [:i|
+ liveRegs := liveRegs bitOr: (self simNativeStackAt: i) nativeRegisterMask.
+ ((self simNativeStackAt: i) nativeRegisterMask bitAnd: requiredRegsMask) ~= 0 ifTrue:
+ [lastRequiredNative := i]].
+ ].
+ "If any of requiredRegsMask are live we must spill."
+ (liveRegs bitAnd: requiredRegsMask) = 0 ifFalse:
+ ["Some live, must spill"
+ self ssFlushTo: lastRequired nativeFlushTo: lastRequiredNative.
+ self assert: (self liveRegisters bitAnd: requiredRegsMask) = 0]!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssFlushAll (in category 'simulation stack') -----
+ ssFlushAll
+ self ssFlushTo: simStackPtr nativeFlushTo: simNativeStackPtr!
Item was changed:
----- Method: StackToRegisterMappingCogit>>ssFlushTo: (in category 'simulation stack') -----
ssFlushTo: index
+ self ssFlushTo: index nativeFlushTo: simNativeStackPtr.!
- methodOrBlockNumTemps to: simSpillBase - 1 do:
- [:i| self assert: (self simStackAt: i) spilled].
- simSpillBase <= index ifTrue:
- [(simSpillBase max: 0) to: index do:
- [:i|
- self assert: needsFrame.
- (self simStackAt: i)
- ensureSpilledAt: (self frameOffsetOfTemporary: i)
- from: FPReg].
- simSpillBase := index + 1]!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssFlushTo:nativeFlushTo: (in category 'simulation stack') -----
+ ssFlushTo: index nativeFlushTo: nativeIndex
+ self cppIf: LowcodeVM ifTrue: [
+ self ssNativeFlushTo: nativeIndex.
+ ].
+ methodOrBlockNumTemps to: simSpillBase - 1 do:
+ [:i| self assert: (self simStackAt: i) spilled].
+ simSpillBase <= index ifTrue:
+ [(simSpillBase max: 0) to: index do:
+ [:i|
+ self assert: needsFrame.
+ (self simStackAt: i)
+ ensureSpilledAt: (self frameOffsetOfTemporary: i)
+ from: FPReg].
+ simSpillBase := index + 1]!
Item was changed:
----- Method: StackToRegisterMappingCogit>>ssFlushUpThroughReceiverVariable: (in category 'simulation stack') -----
ssFlushUpThroughReceiverVariable: slotIndex
"Any occurrences on the stack of the value being stored (which is the top of stack)
must be flushed, and hence any values colder than them stack."
<var: #desc type: #'CogSimStackEntry *'>
+ self cppIf: LowcodeVM ifTrue: [ self ssNativeFlushTo: simNativeStackPtr. ].
self ssFlushUpThrough:
[ :desc |
desc type = SSBaseOffset
and: [desc register = ReceiverResultReg
and: [desc offset = (objectRepresentation slotOffsetOfInstVarIndex: slotIndex) ] ] ]!
Item was changed:
----- Method: StackToRegisterMappingCogit>>ssFlushUpThroughRegister: (in category 'simulation stack') -----
ssFlushUpThroughRegister: reg
"Any occurrences on the stack of the register must be
flushed, and hence any values colder than them stack."
<var: #desc type: #'CogSimStackEntry *'>
+ self cppIf: LowcodeVM ifTrue: [ self ssNativeFlushTo: simNativeStackPtr ].
self ssFlushUpThrough: [ :desc | desc type = SSRegister and: [ desc register = reg ] ]!
Item was changed:
----- Method: StackToRegisterMappingCogit>>ssFlushUpThroughTemporaryVariable: (in category 'simulation stack') -----
ssFlushUpThroughTemporaryVariable: tempIndex
"Any occurrences on the stack of the value being stored (which is the top of stack)
must be flushed, and hence any values colder than them stack."
<var: #desc type: #'CogSimStackEntry *'>
+ self cppIf: LowcodeVM ifTrue: [ self ssNativeFlushTo: simNativeStackPtr ].
self ssFlushUpThrough:
[ :desc |
desc type = SSBaseOffset
and: [desc register = FPReg
and: [desc offset = (self frameOffsetOfTemporary: tempIndex) ] ] ]!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssNativeFlushTo: (in category 'simulation stack') -----
+ ssNativeFlushTo: index
+ <option: #LowcodeVM>
+ | loadedPointer allocatedScratchRegister |
+ simNativeSpillBase <= index ifTrue: [
+ loadedPointer := false.
+ allocatedScratchRegister := false.
+
+ (simNativeSpillBase max: 0) to: index do: [:i|
+ loadedPointer ifFalse: [
+ self MoveMw: self frameOffsetOfNativeFramePointer r: FPReg R: TempReg.
+ loadedPointer := true.
+ ].
+
+ ((self simNativeStackAt: i) spillingNeedsScratchRegister and: [allocatedScratchRegister not ]) ifTrue: [
+ self PushR: FPReg.
+ allocatedScratchRegister := true.
+ ].
+
+ (self simNativeStackAt: i)
+ ensureSpilledSP: TempReg scratchRegister: FPReg
+ ].
+
+ simNativeSpillBase := index + 1.
+
+ allocatedScratchRegister ifTrue: [
+ self PopR: FPReg.
+ ].
+
+ loadedPointer ifTrue: [
+ self SubCq: simNativeStackSize R: TempReg.
+ self MoveR: TempReg Mw: self frameOffsetOfNativeStackPointer r: FPReg.
+ ]
+ ]!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssNativePop: (in category 'simulation stack') -----
+ ssNativePop: n
+ <option: #LowcodeVM>
+ self assert: (simNativeStackPtr - n >= -1).
+ simNativeStackPtr := simNativeStackPtr - n.
+ simNativeStackPtr >= 0 ifTrue: [
+ simNativeStackSize := self ssNativeTop offset
+ ] ifFalse: [
+ simNativeStackSize := 0.
+ ]!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssNativePush: (in category 'simulation stack') -----
+ ssNativePush: n
+ <option: #LowcodeVM>
+ simNativeStackPtr := simNativeStackPtr + n!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssNativeTop (in category 'simulation stack') -----
+ ssNativeTop
+ <option: #LowcodeVM>
+ <returnTypeC: #'CogSimStackNativeEntry *'>
+ self assert: simNativeStackPtr >= 0.
+ ^self simNativeStackAt: simNativeStackPtr!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssPopNativeSize: (in category 'simulation stack') -----
+ ssPopNativeSize: popSize
+ <option: #LowcodeVM>
+ | poppingSize stackPosition popCount |
+ poppingSize := 0.
+ stackPosition := simNativeStackPtr.
+ [ poppingSize < popSize and: [ stackPosition >= 0 ] ] whileTrue: [
+ poppingSize := poppingSize + (self simNativeStackAt: stackPosition) stackSpillSize.
+ stackPosition := stackPosition - 1
+ ].
+
+ self assert: poppingSize = popSize.
+ popCount := simNativeStackPtr - stackPosition.
+ self ssNativePop: popCount.!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssPushNativeConstantFloat32: (in category 'simulation stack') -----
+ ssPushNativeConstantFloat32: aFloat32
+ <option: #LowcodeVM>
+ <var: #aFloat32 type: #float>
+ self ssNativePush: 1.
+ simNativeSpillBase > simNativeStackPtr ifTrue:
+ [simNativeSpillBase := simNativeStackPtr max: 0].
+ simNativeStackSize := simNativeStackSize + BytesPerWord.
+ self ssNativeTop
+ type: SSConstantFloat32;
+ spilled: false;
+ offset: simNativeStackSize;
+ constantFloat32: aFloat32;
+ bcptr: bytecodePC.
+ ^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssPushNativeConstantFloat64: (in category 'simulation stack') -----
+ ssPushNativeConstantFloat64: aFloat64
+ <option: #LowcodeVM>
+ <var: #aFloat64 type: #double>
+ self ssNativePush: 1.
+ simNativeSpillBase > simNativeStackPtr ifTrue:
+ [simNativeSpillBase := simNativeStackPtr max: 0].
+ simNativeStackSize := simNativeStackSize + 8.
+ self ssNativeTop
+ type: SSConstantFloat64;
+ spilled: false;
+ offset: simNativeStackSize;
+ constantFloat64: aFloat64;
+ bcptr: bytecodePC.
+ ^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssPushNativeConstantInt32: (in category 'simulation stack') -----
+ ssPushNativeConstantInt32: anInt32
+ <option: #LowcodeVM>
+ self ssNativePush: 1.
+ simNativeSpillBase > simNativeStackPtr ifTrue:
+ [simNativeSpillBase := simNativeStackPtr max: 0].
+ simNativeStackSize := simNativeStackSize + BytesPerWord.
+ self ssNativeTop
+ type: SSConstantInt32;
+ spilled: false;
+ offset: simNativeStackSize;
+ constantInt32: anInt32;
+ bcptr: bytecodePC.
+ ^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssPushNativeConstantInt64: (in category 'simulation stack') -----
+ ssPushNativeConstantInt64: anInt64
+ <option: #LowcodeVM>
+ <var: #anInt64 type: #sqLong>
+ self ssNativePush: 1.
+ simNativeSpillBase > simNativeStackPtr ifTrue:
+ [simNativeSpillBase := simNativeStackPtr max: 0].
+ simNativeStackSize := simNativeStackSize + 8.
+ self ssNativeTop
+ type: SSConstantInt64;
+ spilled: false;
+ offset: simNativeStackSize;
+ constantInt64: anInt64;
+ bcptr: bytecodePC.
+ ^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssPushNativeConstantPointer: (in category 'simulation stack') -----
+ ssPushNativeConstantPointer: aNativePointer
+ <option: #LowcodeVM>
+ self ssNativePush: 1.
+ simNativeSpillBase > simNativeStackPtr ifTrue:
+ [simNativeSpillBase := simNativeStackPtr max: 0].
+ simNativeStackSize := simNativeStackSize + BytesPerWord.
+ self ssNativeTop
+ type: SSConstantNativePointer;
+ spilled: false;
+ offset: simNativeStackSize;
+ constantNativePointer: aNativePointer;
+ bcptr: bytecodePC.
+ ^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssPushNativeRegister: (in category 'simulation stack') -----
+ ssPushNativeRegister: reg
+ <option: #LowcodeVM>
+ self ssNativePush: 1.
+ simNativeSpillBase > simNativeStackPtr ifTrue:
+ [simNativeSpillBase := simNativeStackPtr max: 0].
+ simNativeStackSize := simNativeStackSize + BytesPerWord.
+ self ssNativeTop
+ type: SSNativeRegister;
+ spilled: false;
+ offset: simNativeStackSize;
+ register: reg;
+ bcptr: bytecodePC.
+ ^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssPushNativeRegister:secondRegister: (in category 'simulation stack') -----
+ ssPushNativeRegister: reg secondRegister: secondReg
+ <option: #LowcodeVM>
+ self ssNativePush: 1.
+ simNativeSpillBase > simNativeStackPtr ifTrue:
+ [simNativeSpillBase := simNativeStackPtr max: 0].
+ simNativeStackSize := simNativeStackSize + 8.
+ self ssNativeTop
+ type: SSRegisterPair;
+ spilled: false;
+ offset: simNativeStackSize;
+ register: reg;
+ registerSecond: secondReg;
+ bcptr: bytecodePC.
+ ^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssPushNativeRegisterDoubleFloat: (in category 'simulation stack') -----
+ ssPushNativeRegisterDoubleFloat: reg
+ <option: #LowcodeVM>
+ self ssNativePush: 1.
+ simNativeSpillBase > simNativeStackPtr ifTrue:
+ [simNativeSpillBase := simNativeStackPtr max: 0].
+ simNativeStackSize := simNativeStackSize + 8.
+ self ssNativeTop
+ type: SSRegisterDoubleFloat;
+ spilled: false;
+ offset: simNativeStackSize;
+ register: reg;
+ bcptr: bytecodePC.
+ ^0!
Item was added:
+ ----- Method: StackToRegisterMappingCogit>>ssPushNativeRegisterSingleFloat: (in category 'simulation stack') -----
+ ssPushNativeRegisterSingleFloat: reg
+ <option: #LowcodeVM>
+ self ssNativePush: 1.
+ simNativeSpillBase > simNativeStackPtr ifTrue:
+ [simNativeSpillBase := simNativeStackPtr max: 0].
+ simNativeStackSize := simNativeStackSize + BytesPerWord.
+ self ssNativeTop
+ type: SSRegisterSingleFloat;
+ spilled: false;
+ offset: simNativeStackSize;
+ register: reg;
+ bcptr: bytecodePC.
+ ^0!
Item was changed:
SharedPool subclass: #VMBasicConstants
instanceVariableNames: ''
+ classVariableNames: 'BaseHeaderSize BytesPerOop BytesPerWord COGMTVM COGVM DisownVMLockOutFullGC DoAssertionChecks DoExpensiveAssertionChecks GCCheckPrimCall GCModeBecome GCModeFreeSpace GCModeFull GCModeImageSegment GCModeIncremental GCModeNewSpace IMMUTABILITY LowcodeVM MULTIPLEBYTECODESETS NewspeakVM PharoVM PrimErrBadArgument PrimErrBadIndex PrimErrBadMethod PrimErrBadNumArgs PrimErrBadReceiver PrimErrGenericFailure PrimErrInappropriate PrimErrLimitExceeded PrimErrNamedInternal PrimErrNoCMemory PrimErrNoMemory PrimErrNoModification PrimErrNotFound PrimErrObjectIsPinned PrimErrObjectMayMove PrimErrUnsupported PrimErrWritePastObject PrimNoErr SPURVM STACKVM SistaVM VMBIGENDIAN'
- classVariableNames: 'BaseHeaderSize BytesPerOop BytesPerWord COGMTVM COGVM DisownVMLockOutFullGC DoAssertionChecks DoExpensiveAssertionChecks GCCheckPrimCall GCModeBecome GCModeFreeSpace GCModeFull GCModeImageSegment GCModeIncremental GCModeNewSpace IMMUTABILITY MULTIPLEBYTECODESETS NewspeakVM PharoVM PrimErrBadArgument PrimErrBadIndex PrimErrBadMethod PrimErrBadNumArgs PrimErrBadReceiver PrimErrGenericFailure PrimErrInappropriate PrimErrLimitExceeded PrimErrNamedInternal PrimErrNoCMemory PrimErrNoMemory PrimErrNoModification PrimErrNotFound PrimErrObjectIsPinned PrimErrObjectMayMove PrimErrUnsupported PrimErrWritePastObject PrimNoErr SPURVM STACKVM SistaVM VMBIGENDIAN'
poolDictionaries: ''
category: 'VMMaker-Interpreter'!
!VMBasicConstants commentStamp: '<historical>' prior: 0!
I am a shared pool for basic constants upon which the VM as a whole depends.
self ensureClassPool.
self classPool declare: #BytesPerWord from: VMSqueakV3ObjectRepresentationConstants classPool.
self classPool declare: #BaseHeaderSize from: VMSqueakV3ObjectRepresentationConstants classPool
(ObjectMemory classPool keys select: [:k| k beginsWith: 'Byte']) do:
[:k| self classPool declare: k from: ObjectMemory classPool]!
Item was changed:
----- Method: VMClass class>>initializeMiscConstants (in category 'initialization') -----
initializeMiscConstants
"Falsify the `what type of VM is this?' flags that are defined in the various interp.h files.
Subclass implementations need to include a super initializeMiscConstants"
| omc |
VMBIGENDIAN class. "Mention this for the benefit of CCodeGenerator>>emitCConstantsOn:"
SPURVM := STACKVM := COGVM := COGMTVM := false.
initializationOptions ifNil: [self initializationOptions: Dictionary new].
omc := initializationOptions at: #ObjectMemory ifAbsent: nil.
(omc isNil and: [self defaultObjectMemoryClass notNil]) ifTrue:
[omc := initializationOptions at: #ObjectMemory put: self defaultObjectMemoryClass name].
initializationOptions
at: #SqueakV3ObjectMemory "the good ole default"
ifAbsentPut: (omc
ifNil: [true]
ifNotNil: [(Smalltalk at: omc) includesBehavior: ObjectMemory]);
at: #SpurObjectMemory "the new contender"
ifAbsentPut: (omc
ifNil: [false]
ifNotNil: [(Smalltalk at: omc) includesBehavior: SpurMemoryManager]).
"Use ifAbsentPut: so that they will get copied back to the
VMMaker's options and dead code will likely be eliminated."
PharoVM := initializationOptions at: #PharoVM ifAbsentPut: [false].
NewspeakVM := initializationOptions at: #NewspeakVM ifAbsentPut: [false].
SistaVM := initializationOptions at: #SistaVM ifAbsentPut: [false].
+ LowcodeVM := initializationOptions at: #LowcodeVM ifAbsentPut: [false].
"But not these; they're compile-time"
MULTIPLEBYTECODESETS := initializationOptions at: #MULTIPLEBYTECODESETS ifAbsent: [false].
IMMUTABILITY := initializationOptions at: #IMMUTABILITY ifAbsent: [false].
"These must be set only if specified, not defaulted, because they are set on the command line or in include files."
initializationOptions
at: #VMBIGENDIAN ifPresent: [:value| VMBIGENDIAN := value];
at: #ObjectMemory ifPresent: [:value| SPURVM := value beginsWith: 'Spur'];
at: #STACKVM ifPresent: [:value| STACKVM := value];
at: #COGVM ifPresent: [:value| COGVM := initializationOptions at: #COGVM];
at: #COGMTVM ifPresent: [:value| COGMTVM := initializationOptions at: #COGMTVM]!
Item was added:
+ ----- Method: VMClass>>floatAtPointer: (in category 'memory access') -----
+ floatAtPointer: pointer
+ <doNotGenerate>
+ self halt.!
Item was added:
+ ----- Method: VMClass>>floatAtPointer:put: (in category 'memory access') -----
+ floatAtPointer: pointer put: value
+ <doNotGenerate>
+ self halt.!
Item was added:
+ ----- Method: VMClass>>free: (in category 'C library simulation') -----
+ free: pointer
+ <doNotGenerate>
+ "Do nothing"!
Item was added:
+ ----- Method: VMClass>>int16AtPointer: (in category 'memory access') -----
+ int16AtPointer: pointer
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 16 bit integer."
+ <doNotGenerate>
+
+ ^self shortAt: pointer!
Item was added:
+ ----- Method: VMClass>>int16AtPointer:put: (in category 'memory access') -----
+ int16AtPointer: pointer put: value
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 16 bit integer."
+ <doNotGenerate>
+
+ ^self shortAt: pointer put: value!
Item was added:
+ ----- Method: VMClass>>int32AtPointer: (in category 'memory access') -----
+ int32AtPointer: pointer
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 32 bit integer."
+ <doNotGenerate>
+
+ ^self longAt: pointer!
Item was added:
+ ----- Method: VMClass>>int32AtPointer:put: (in category 'memory access') -----
+ int32AtPointer: pointer put: value
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 32 bit integer."
+ <doNotGenerate>
+
+ ^self longAt: pointer put: value!
Item was added:
+ ----- Method: VMClass>>int64AtPointer: (in category 'memory access') -----
+ int64AtPointer: pointer
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is the width of a machine word."
+ <doNotGenerate>
+
+ ^self halt!
Item was added:
+ ----- Method: VMClass>>int64AtPointer:put: (in category 'memory access') -----
+ int64AtPointer: pointer put: longValue
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and longValue is the width of a machine word."
+ <doNotGenerate>
+
+ ^self halt.!
Item was added:
+ ----- Method: VMClass>>int8AtPointer: (in category 'memory access') -----
+ int8AtPointer: pointer
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 16 bit integer."
+ <doNotGenerate>
+
+ ^self at: pointer!
Item was added:
+ ----- Method: VMClass>>int8AtPointer:put: (in category 'memory access') -----
+ int8AtPointer: pointer put: value
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 16 bit integer."
+ <doNotGenerate>
+
+ ^self at: pointer put: value!
Item was added:
+ ----- Method: VMClass>>long64AtPointer: (in category 'memory access') -----
+ long64AtPointer: pointer
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is the width of a machine word."
+ <doNotGenerate>
+
+ ^self halt!
Item was added:
+ ----- Method: VMClass>>long64AtPointer:put: (in category 'memory access') -----
+ long64AtPointer: pointer put: longValue
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and longValue is the width of a machine word."
+ <doNotGenerate>
+
+ ^self halt.!
Item was added:
+ ----- Method: VMClass>>malloc: (in category 'C library simulation') -----
+ malloc: size
+ <doNotGenerate>
+ ^ ByteArray new: size!
Item was added:
+ ----- Method: VMClass>>pointerAtPointer: (in category 'memory access') -----
+ pointerAtPointer: pointer
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is the width of a machine word."
+ <doNotGenerate>
+
+ ^self longAt: pointer!
Item was added:
+ ----- Method: VMClass>>pointerAtPointer:put: (in category 'memory access') -----
+ pointerAtPointer: pointer put: value
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is the width of a machine word."
+ <doNotGenerate>
+
+ ^self longAt: pointer put: value!
Item was added:
+ ----- Method: VMClass>>singleFloatAtPointer: (in category 'memory access') -----
+ singleFloatAtPointer: pointer
+ <doNotGenerate>
+ self halt.!
Item was added:
+ ----- Method: VMClass>>singleFloatAtPointer:put: (in category 'memory access') -----
+ singleFloatAtPointer: pointer put: value
+ <doNotGenerate>
+ self halt.!
Item was added:
+ ----- Method: VMClass>>uint16AtPointer: (in category 'memory access') -----
+ uint16AtPointer: pointer
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 16 bit integer."
+ <doNotGenerate>
+
+ ^self shortAt: pointer!
Item was added:
+ ----- Method: VMClass>>uint16AtPointer:put: (in category 'memory access') -----
+ uint16AtPointer: pointer put: value
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 16 bit integer."
+ <doNotGenerate>
+
+ ^self shortAt: pointer put: value!
Item was added:
+ ----- Method: VMClass>>uint32AtPointer: (in category 'memory access') -----
+ uint32AtPointer: pointer
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 32 bit integer."
+ <doNotGenerate>
+
+ ^self longAt: pointer!
Item was added:
+ ----- Method: VMClass>>uint32AtPointer:put: (in category 'memory access') -----
+ uint32AtPointer: pointer put: value
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 32 bit integer."
+ <doNotGenerate>
+
+ ^self longAt: pointer put: value!
Item was added:
+ ----- Method: VMClass>>uint64AtPointer: (in category 'memory access') -----
+ uint64AtPointer: pointer
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is the width of a machine word."
+ <doNotGenerate>
+
+ ^self halt!
Item was added:
+ ----- Method: VMClass>>uint64AtPointer:put: (in category 'memory access') -----
+ uint64AtPointer: pointer put: longValue
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and longValue is the width of a machine word."
+ <doNotGenerate>
+
+ ^self halt.!
Item was added:
+ ----- Method: VMClass>>uint8AtPointer: (in category 'memory access') -----
+ uint8AtPointer: pointer
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 16 bit integer."
+ <doNotGenerate>
+
+ ^self at: pointer!
Item was added:
+ ----- Method: VMClass>>uint8AtPointer:put: (in category 'memory access') -----
+ uint8AtPointer: pointer put: value
+ "This gets implemented by Macros in C, where its types will also be checked.
+ pointer is a raw address, and the result is an 16 bit integer."
+ <doNotGenerate>
+
+ ^self at: pointer put: value!
Item was changed:
SharedPool subclass: #VMObjectIndices
instanceVariableNames: ''
+ classVariableNames: 'ActiveProcessIndex CharacterTable CharacterValueIndex ClassAlien ClassArray ClassBitmap ClassBlockClosure ClassBlockContext ClassByteArray ClassByteString ClassCharacter ClassExternalAddress ClassExternalData ClassExternalFunction ClassExternalLibrary ClassExternalStructure ClassFloat ClassFullBlockClosure ClassLargeNegativeInteger ClassLargePositiveInteger ClassMessage ClassMethodContext ClassMutex ClassPoint ClassSemaphore ClassSmallInteger ClassString ClassUnsafeAlien ClassWeakFinalizer ClosureFirstCopiedValueIndex ClosureIndex ClosureNumArgsIndex ClosureOuterContextIndex ClosureStartPCIndex CompactClasses ConstMinusOne ConstOne ConstTwo ConstZero ExcessSignalsIndex ExternalObjectsArray FalseObject FirstLinkIndex ForeignCallbackProcess FullClosureCompiledBlockIndex FullClosureFirstCopiedValueIndex FullClosureReceiverIndex HeaderIndex InstanceSpecificationIndex InstructionPointerIndex KeyIndex LastLinkIndex LiteralStart LowcodeContextMark LowcodeNativeContextClass MessageArgumentsIndex MessageLookupClassIndex MessageSelectorIndex MethodArrayIndex MethodDictionaryIndex MethodIndex MyListIndex NextLinkIndex NilObject PrimErrTableIndex PriorityIndex ProcessInExternalCodeTag ProcessListsIndex ProcessSignalingLowSpace ReceiverIndex SchedulerAssociation SelectorAboutToReturn SelectorAttemptToAssign SelectorCannotInterpret SelectorCannotReturn SelectorCounterTripped SelectorDoesNotUnderstand SelectorInvokeCallback SelectorMustBeBoolean SelectorRunWithIn SelectorSistaTrap SelectorStart SelectorUnknownBytecode SenderIndex SpecialSelectors StackPointerIndex StreamArrayIndex StreamIndexIndex StreamReadLimitIndex StreamWriteLimitIndex SuperclassIndex SuspendedContextIndex TheDisplay TheFinalizationSemaphore TheInputSemaphore TheInterruptSemaphore TheLowSpaceSemaphore TheTimerSemaphore TrueObject ValueIndex XIndex YIndex'
- classVariableNames: 'ActiveProcessIndex CharacterTable CharacterValueIndex ClassAlien ClassArray ClassBitmap ClassBlockClosure ClassBlockContext ClassByteArray ClassByteString ClassCharacter ClassExternalAddress ClassExternalData ClassExternalFunction ClassExternalLibrary ClassExternalStructure ClassFloat ClassFullBlockClosure ClassLargeNegativeInteger ClassLargePositiveInteger ClassMessage ClassMethodContext ClassMutex ClassPoint ClassSemaphore ClassSmallInteger ClassString ClassUnsafeAlien ClassWeakFinalizer ClosureFirstCopiedValueIndex ClosureIndex ClosureNumArgsIndex ClosureOuterContextIndex ClosureStartPCIndex CompactClasses ConstMinusOne ConstOne ConstTwo ConstZero ExcessSignalsIndex ExternalObjectsArray FalseObject FirstLinkIndex ForeignCallbackProcess FullClosureCompiledBlockIndex FullClosureFirstCopiedValueIndex FullClosureReceiverIndex HeaderIndex InstanceSpecificationIndex InstructionPointerIndex KeyIndex LastLinkIndex LiteralStart MessageArgumentsIndex MessageLookupClassIndex MessageSelectorIndex MethodArrayIndex MethodDictionaryIndex MethodIndex MyListIndex NextLinkIndex NilObject PrimErrTableIndex PriorityIndex ProcessInExternalCodeTag ProcessListsIndex ProcessSignalingLowSpace ReceiverIndex SchedulerAssociation SelectorAboutToReturn SelectorAttemptToAssign SelectorCannotInterpret SelectorCannotReturn SelectorCounterTripped SelectorDoesNotUnderstand SelectorInvokeCallback SelectorMustBeBoolean SelectorRunWithIn SelectorSistaTrap SelectorStart SelectorUnknownBytecode SenderIndex SpecialSelectors StackPointerIndex StreamArrayIndex StreamIndexIndex StreamReadLimitIndex StreamWriteLimitIndex SuperclassIndex SuspendedContextIndex TheDisplay TheFinalizationSemaphore TheInputSemaphore TheInterruptSemaphore TheLowSpaceSemaphore TheTimerSemaphore TrueObject ValueIndex XIndex YIndex'
poolDictionaries: ''
category: 'VMMaker-Interpreter'!
!VMObjectIndices commentStamp: '<historical>' prior: 0!
I am a shared pool for the constants that define object layout and well-known objects shared between the object memories (e.g. ObjectMemory, NewObjectMemory), the interpreters (e.g. StackInterpreter, CoInterpreter) and the object representations (e.g. ObjectRepresentationForSqueakV3).
self classPool declare: #Foo from: StackInterpreter classPool
(ObjectMemory classPool keys select: [:k| (k beginsWith: 'Class') and: [(k endsWith: 'Index') not]]) do:
[:k| self classPool declare: k from: ObjectMemory classPool]!
1
0
08 Sep '16
Branch: refs/heads/libtls
Home: https://github.com/OpenSmalltalk/opensmalltalk-vm
Commit: 3e23b2bfc21a5fab0cb1cafe52e36b5ec07944da
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/3e23b2bfc21a5fab0c…
Author: Tobias Pape <tobias(a)netshed.de>
Date: 2016-09-08 (Thu, 08 Sep 2016)
Changed paths:
M platforms/unix/plugins/SqueakSSL/Makefile.inc
M platforms/unix/plugins/SqueakSSL/sqUnixLibreSSL.c
Log Message:
-----------
[WIP] libtls: connect works
Commit: 0698e1a1407c46438a4fdd08a0022b44a736a02e
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/0698e1a1407c46438a…
Author: Tobias Pape <tobias(a)netshed.de>
Date: 2016-09-08 (Thu, 08 Sep 2016)
Changed paths:
M platforms/unix/plugins/SqueakSSL/sqUnixLibreSSL.c
Log Message:
-----------
[WIP] libtls: some enc/decrypting stuff works
Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/0476bba7e818...06…
1
0
[OpenSmalltalk/opensmalltalk-vm] 714029: Merge remote-tracking branch 'OpenSmalltalk/Cog' i...
by GitHub 07 Sep '16
by GitHub 07 Sep '16
07 Sep '16
Branch: refs/heads/Cog
Home: https://github.com/OpenSmalltalk/opensmalltalk-vm
Commit: 714029830116dff0692fc41cb8a6b960adfe1a74
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/714029830116dff069…
Author: Craig Latta <github(a)netjam.org>
Date: 2016-09-06 (Tue, 06 Sep 2016)
Changed paths:
M .appveyor.yml
M .gitattributes
M .gitignore
M .travis.yml
M .travis_build.sh
M .travis_deploy.sh
M build.linux32ARMv6/editnewspeakinstall.sh
M build.linux32ARMv6/makeall
M build.linux32ARMv6/makeallclean
M build.linux32ARMv6/makeallmakefiles
M build.linux32ARMv6/makeproduct
M build.linux32ARMv6/makeproductclean
M build.linux32ARMv6/mkNamedPrims.sh
M build.linux32ARMv6/newspeak.cog.spur/build.assert/mvm
M build.linux32ARMv6/newspeak.cog.spur/build.debug/mvm
M build.linux32ARMv6/newspeak.cog.spur/build/mvm
M build.linux32ARMv6/newspeak.cog.spur/makeallclean
M build.linux32ARMv6/newspeak.cog.spur/makealldirty
M build.linux32ARMv6/newspeak.stack.spur/build.assert/mvm
M build.linux32ARMv6/newspeak.stack.spur/build.debug/mvm
M build.linux32ARMv6/newspeak.stack.spur/build/mvm
M build.linux32ARMv6/newspeak.stack.spur/makeallclean
M build.linux32ARMv6/newspeak.stack.spur/makealldirty
M build.linux32ARMv6/squeak.cog.spur/build.assert/mvm
M build.linux32ARMv6/squeak.cog.spur/build.debug/mvm
M build.linux32ARMv6/squeak.cog.spur/build/mvm
M build.linux32ARMv6/squeak.cog.spur/makeallclean
M build.linux32ARMv6/squeak.cog.spur/makealldirty
M build.linux32ARMv6/squeak.stack.spur/build.assert/mvm
M build.linux32ARMv6/squeak.stack.spur/build.debug/mvm
M build.linux32ARMv6/squeak.stack.spur/build/mvm
M build.linux32ARMv6/squeak.stack.spur/makeallclean
M build.linux32ARMv6/squeak.stack.spur/makealldirty
M build.linux32ARMv6/squeak.stack.v3/build.assert/mvm
M build.linux32ARMv6/squeak.stack.v3/build.debug/mvm
M build.linux32ARMv6/squeak.stack.v3/build/mvm
M build.linux32ARMv6/squeak.stack.v3/makeallclean
M build.linux32ARMv6/squeak.stack.v3/makealldirty
M build.linux32ARMv7/editnewspeakinstall.sh
M build.linux32ARMv7/makeall
M build.linux32ARMv7/makeallclean
M build.linux32ARMv7/makeproduct
M build.linux32ARMv7/makeproductclean
M build.linux32ARMv7/mkNamedPrims.sh
M build.linux32ARMv7/newspeak.cog.spur/build.assert/mvm
M build.linux32ARMv7/newspeak.cog.spur/build.debug/mvm
M build.linux32ARMv7/newspeak.cog.spur/build/mvm
M build.linux32ARMv7/newspeak.stack.spur/build.assert/mvm
M build.linux32ARMv7/newspeak.stack.spur/build.debug/mvm
M build.linux32ARMv7/newspeak.stack.spur/build/mvm
M build.linux32x86/bochsx64/conf.COG
M build.linux32x86/bochsx64/conf.COG.dbg
M build.linux32x86/bochsx64/makeem
M build.linux32x86/bochsx86/conf.COG
M build.linux32x86/bochsx86/makeem
M build.linux32x86/editnewspeakinstall.sh
M build.linux32x86/gdbarm32/conf.COG
M build.linux32x86/gdbarm32/makeem
M build.linux32x86/makeall
M build.linux32x86/makeallclean
M build.linux32x86/makeallmakefiles
M build.linux32x86/makeproduct
M build.linux32x86/makeproductclean
M build.linux32x86/mkNamedPrims.sh
M build.linux32x86/newspeak.cog.spur/build.assert.itimerheartbeat/mvm
M build.linux32x86/newspeak.cog.spur/build.assert/mvm
M build.linux32x86/newspeak.cog.spur/build.debug.itimerheartbeat/mvm
M build.linux32x86/newspeak.cog.spur/build.debug/mvm
M build.linux32x86/newspeak.cog.spur/build.itimerheartbeat/mvm
M build.linux32x86/newspeak.cog.spur/build/mvm
M build.linux32x86/newspeak.cog.spur/makeallclean
M build.linux32x86/newspeak.cog.spur/makealldirty
M build.linux32x86/newspeak.sista.spur/makeallclean
M build.linux32x86/newspeak.sista.spur/makealldirty
M build.linux32x86/newspeak.stack.spur/build.assert/mvm
M build.linux32x86/newspeak.stack.spur/build.debug/mvm
M build.linux32x86/newspeak.stack.spur/build/mvm
M build.linux32x86/newspeak.stack.spur/makeallclean
M build.linux32x86/newspeak.stack.spur/makealldirty
M build.linux32x86/nsnac.cog.spur/build.assert.itimerheartbeat/mvm
M build.linux32x86/nsnac.cog.spur/build.assert/mvm
M build.linux32x86/nsnac.cog.spur/build.debug.itimerheartbeat/mvm
M build.linux32x86/nsnac.cog.spur/build.debug/mvm
M build.linux32x86/nsnac.cog.spur/build.itimerheartbeat/mvm
M build.linux32x86/nsnac.cog.spur/build/mvm
M build.linux32x86/nsnac.cog.spur/makeallclean
M build.linux32x86/nsnac.cog.spur/makealldirty
M build.linux32x86/squeak.cog.spur.immutability/build.assert/mvm
M build.linux32x86/squeak.cog.spur.immutability/build.debug/mvm
M build.linux32x86/squeak.cog.spur.immutability/build/mvm
M build.linux32x86/squeak.cog.spur.immutability/makeallclean
M build.linux32x86/squeak.cog.spur.immutability/makealldirty
M build.linux32x86/squeak.cog.spur/build.assert.itimerheartbeat/mvm
M build.linux32x86/squeak.cog.spur/build.assert/mvm
M build.linux32x86/squeak.cog.spur/build.debug.itimerheartbeat/mvm
M build.linux32x86/squeak.cog.spur/build.debug/mvm
M build.linux32x86/squeak.cog.spur/build.itimerheartbeat/mvm
M build.linux32x86/squeak.cog.spur/build/mvm
M build.linux32x86/squeak.cog.spur/makeallclean
M build.linux32x86/squeak.cog.spur/makealldirty
M build.linux32x86/squeak.cog.v3/build.assert.itimerheartbeat/mvm
M build.linux32x86/squeak.cog.v3/build.assert/mvm
M build.linux32x86/squeak.cog.v3/build.debug.itimerheartbeat/mvm
M build.linux32x86/squeak.cog.v3/build.debug/mvm
M build.linux32x86/squeak.cog.v3/build.itimerheartbeat/mvm
M build.linux32x86/squeak.cog.v3/build.multithreaded.assert/mvm
M build.linux32x86/squeak.cog.v3/build.multithreaded.debug/mvm
M build.linux32x86/squeak.cog.v3/build.multithreaded/mvm
M build.linux32x86/squeak.cog.v3/build/mvm
M build.linux32x86/squeak.cog.v3/makeallclean
M build.linux32x86/squeak.cog.v3/makealldirty
M build.linux32x86/squeak.sista.spur/build.assert.itimerheartbeat/mvm
M build.linux32x86/squeak.sista.spur/build.assert/mvm
M build.linux32x86/squeak.sista.spur/build.debug.itimerheartbeat/mvm
M build.linux32x86/squeak.sista.spur/build.debug/mvm
M build.linux32x86/squeak.sista.spur/build.itimerheartbeat/mvm
M build.linux32x86/squeak.sista.spur/build/mvm
M build.linux32x86/squeak.sista.spur/makeallclean
M build.linux32x86/squeak.sista.spur/makealldirty
M build.linux32x86/squeak.stack.spur/build.assert/mvm
M build.linux32x86/squeak.stack.spur/build.debug/mvm
M build.linux32x86/squeak.stack.spur/build/mvm
M build.linux32x86/squeak.stack.spur/makeallclean
M build.linux32x86/squeak.stack.spur/makealldirty
M build.linux32x86/squeak.stack.v3/build.assert/mvm
M build.linux32x86/squeak.stack.v3/build.debug/mvm
M build.linux32x86/squeak.stack.v3/build/mvm
M build.linux32x86/squeak.stack.v3/makeallclean
M build.linux32x86/squeak.stack.v3/makealldirty
M build.linux64x64/editnewspeakinstall.sh
M build.linux64x64/makeall
M build.linux64x64/makeallclean
M build.linux64x64/makeallmakefiles
M build.linux64x64/makeallsqueak
M build.linux64x64/makeproduct
M build.linux64x64/makeproductclean
M build.linux64x64/newspeak.cog.spur/build.assert.itimerheartbeat/mvm
M build.linux64x64/newspeak.cog.spur/build.assert/mvm
M build.linux64x64/newspeak.cog.spur/build.debug.itimerheartbeat/mvm
M build.linux64x64/newspeak.cog.spur/build.debug/mvm
M build.linux64x64/newspeak.cog.spur/build.itimerheartbeat/mvm
M build.linux64x64/newspeak.cog.spur/build/mvm
M build.linux64x64/newspeak.cog.spur/makeallclean
M build.linux64x64/newspeak.cog.spur/makealldirty
M build.linux64x64/newspeak.sista.spur/makeallclean
M build.linux64x64/newspeak.sista.spur/makealldirty
M build.linux64x64/newspeak.stack.spur/build.assert/mvm
M build.linux64x64/newspeak.stack.spur/build.debug/mvm
M build.linux64x64/newspeak.stack.spur/build/mvm
M build.linux64x64/newspeak.stack.spur/makeallclean
M build.linux64x64/newspeak.stack.spur/makealldirty
M build.linux64x64/squeak.cog.spur.immutability/build.assert/mvm
M build.linux64x64/squeak.cog.spur.immutability/build.debug/mvm
M build.linux64x64/squeak.cog.spur.immutability/build/mvm
M build.linux64x64/squeak.cog.spur.immutability/makeallclean
M build.linux64x64/squeak.cog.spur.immutability/makealldirty
M build.linux64x64/squeak.cog.spur/build.assert.itimerheartbeat/mvm
M build.linux64x64/squeak.cog.spur/build.assert/mvm
M build.linux64x64/squeak.cog.spur/build.debug.itimerheartbeat/mvm
M build.linux64x64/squeak.cog.spur/build.debug/mvm
M build.linux64x64/squeak.cog.spur/build.itimerheartbeat/mvm
M build.linux64x64/squeak.cog.spur/build/mvm
M build.linux64x64/squeak.cog.spur/makeallclean
M build.linux64x64/squeak.cog.spur/makealldirty
M build.linux64x64/squeak.sista.spur/makeallclean
M build.linux64x64/squeak.sista.spur/makealldirty
M build.linux64x64/squeak.stack.spur/build.assert/mvm
M build.linux64x64/squeak.stack.spur/build.debug/mvm
M build.linux64x64/squeak.stack.spur/build/mvm
M build.linux64x64/squeak.stack.spur/makeallclean
M build.linux64x64/squeak.stack.spur/makealldirty
M build.macos32x86/bochsx64/makeem
M build.macos32x86/bochsx86/makeem
M build.macos32x86/gdbarm32/makeem
M build.macos32x86/makeall
M build.macos32x86/makeallinstall
M build.macos32x86/makeproduct
M build.macos32x86/makeproductclean
M build.macos32x86/makeproductinstall
M build.macos32x86/makesista
M build.macos32x86/makespur
M build.macos32x86/newspeak.cog.spur/mvm
M build.macos32x86/newspeak.stack.spur/mvm
M build.macos32x86/pharo.cog.spur/mvm
M build.macos32x86/squeak.cog.spur+immutability/mvm
M build.macos32x86/squeak.cog.spur/mvm
M build.macos32x86/squeak.cog.v3/mvm
M build.macos32x86/squeak.sista.spur/mvm
M build.macos32x86/squeak.stack.spur/mvm
M build.macos32x86/squeak.stack.v3/mvm
M build.macos32x86/xcode/CocoaTemplate/CocoaTemplate/Info.plist
M build.macos64x64/bochsx64/makeem
M build.macos64x64/bochsx86/makeem
M build.macos64x64/gdbarm32/makeem
M build.macos64x64/makeall
M build.macos64x64/makeallinstall
M build.macos64x64/makeproduct
M build.macos64x64/makeproductinstall
M build.macos64x64/makesista
M build.macos64x64/makespur
M build.macos64x64/newspeak.cog.spur/mvm
M build.macos64x64/newspeak.stack.spur/mvm
M build.macos64x64/pharo.cog.spur/mvm
M build.macos64x64/squeak.cog.spur.immutability/mvm
M build.macos64x64/squeak.cog.spur/mvm
M build.macos64x64/squeak.sista.spur/mvm
M build.macos64x64/squeak.stack.spur/mvm
M build.win32x86/HowToBuild
M build.win32x86/bochsx64/makeem
M build.win32x86/bochsx86/makeem
M build.win32x86/common/Makefile
M build.win32x86/common/Makefile.plugin
M build.win32x86/common/Makefile.rules
A build.win32x86/common/Makefile.tools
M build.win32x86/makeall
M build.win32x86/makeallinstall
M build.win32x86/makeproduct
M build.win32x86/makeproductinstall
M build.win32x86/newspeak.cog.spur/mvm
M build.win32x86/newspeak.cog.spur/nsvm.exe.manifest
M build.win32x86/newspeak.stack.spur/mvm
M build.win32x86/newspeak.stack.spur/nsvm.exe.manifest
M build.win32x86/squeak.cog.spur/Croquet.exe.manifest
M build.win32x86/squeak.cog.spur/Squeak.exe.manifest
M build.win32x86/squeak.cog.spur/mvm
M build.win32x86/squeak.cog.v3/Croquet.exe.manifest
M build.win32x86/squeak.cog.v3/Squeak.exe.manifest
M build.win32x86/squeak.cog.v3/mvm
M build.win32x86/squeak.stack.spur/Croquet.exe.manifest
M build.win32x86/squeak.stack.spur/Squeak.exe.manifest
M build.win32x86/squeak.stack.spur/mvm
M build.win32x86/squeak.stack.v3/Croquet.exe.manifest
M build.win32x86/squeak.stack.v3/Squeak.exe.manifest
M build.win32x86/squeak.stack.v3/mvm
A build.win64x64/HowToBuild
A build.win64x64/common/Makefile
A build.win64x64/common/Makefile.plugin
A build.win64x64/common/Makefile.rules
A build.win64x64/common/Makefile.tools
A build.win64x64/makeall
A build.win64x64/makeallinstall
A build.win64x64/makeproduct
A build.win64x64/makeproductinstall
A build.win64x64/newspeak.cog.spur/Makefile
A build.win64x64/newspeak.cog.spur/installer/Component-with-sources.idt.in
A build.win64x64/newspeak.cog.spur/installer/Component.idt.in
A build.win64x64/newspeak.cog.spur/installer/Directory-with-sources.idt.in
A build.win64x64/newspeak.cog.spur/installer/Directory.idt.in
A build.win64x64/newspeak.cog.spur/installer/Feature.idt.in
A build.win64x64/newspeak.cog.spur/installer/FeatureComponents-with-sources.idt.in
A build.win64x64/newspeak.cog.spur/installer/FeatureComponents.idt.in
A build.win64x64/newspeak.cog.spur/installer/File-with-sources.idt.in
A build.win64x64/newspeak.cog.spur/installer/File.idt.in
A build.win64x64/newspeak.cog.spur/installer/Icon.idt.in
A build.win64x64/newspeak.cog.spur/installer/InstallerBackground.bmp
A build.win64x64/newspeak.cog.spur/installer/Makefile
A build.win64x64/newspeak.cog.spur/installer/Media.idt.in
A build.win64x64/newspeak.cog.spur/installer/NewspeakLicence.txt
A build.win64x64/newspeak.cog.spur/installer/Property.idt.in
A build.win64x64/newspeak.cog.spur/installer/Registry.idt.in
A build.win64x64/newspeak.cog.spur/installer/Shortcut.idt.in
A build.win64x64/newspeak.cog.spur/installer/Upgrade.idt.in
A build.win64x64/newspeak.cog.spur/installer/branding-sed-rules.gmk
A build.win64x64/newspeak.cog.spur/installer/branding.gmk
A build.win64x64/newspeak.cog.spur/installer/documentation.gmk
A build.win64x64/newspeak.cog.spur/installer/files-with-sources.ddf.in
A build.win64x64/newspeak.cog.spur/installer/files.ddf.in
A build.win64x64/newspeak.cog.spur/installer/index.html
A build.win64x64/newspeak.cog.spur/installer/installer-Windows.gmk
A build.win64x64/newspeak.cog.spur/installer/links
A build.win64x64/newspeak.cog.spur/installer/nopMain.c
A build.win64x64/newspeak.cog.spur/installer/nsvm.rc
A build.win64x64/newspeak.cog.spur/mvm
A build.win64x64/newspeak.cog.spur/nsvm.def.in
A build.win64x64/newspeak.cog.spur/nsvm.exe.manifest
A build.win64x64/newspeak.cog.spur/nsvm.ico
A build.win64x64/newspeak.cog.spur/nsvm.rc
A build.win64x64/newspeak.cog.spur/plugins.ext
A build.win64x64/newspeak.cog.spur/plugins.int
A build.win64x64/newspeak.stack.spur/Makefile
A build.win64x64/newspeak.stack.spur/mvm
A build.win64x64/newspeak.stack.spur/nsvm.def.in
A build.win64x64/newspeak.stack.spur/nsvm.exe.manifest
A build.win64x64/newspeak.stack.spur/nsvm.ico
A build.win64x64/newspeak.stack.spur/nsvm.rc
A build.win64x64/newspeak.stack.spur/plugins.ext
A build.win64x64/newspeak.stack.spur/plugins.int
A build.win64x64/squeak.cog.spur/Croquet.def.in
A build.win64x64/squeak.cog.spur/Croquet.exe.manifest
A build.win64x64/squeak.cog.spur/Croquet.ico
A build.win64x64/squeak.cog.spur/Croquet.rc
A build.win64x64/squeak.cog.spur/GreenCogSqueak.ico
A build.win64x64/squeak.cog.spur/Makefile
A build.win64x64/squeak.cog.spur/Squeak.def.in
A build.win64x64/squeak.cog.spur/Squeak.exe.manifest
A build.win64x64/squeak.cog.spur/Squeak.rc
A build.win64x64/squeak.cog.spur/mvm
A build.win64x64/squeak.cog.spur/plugins.ext
A build.win64x64/squeak.cog.spur/plugins.int
A build.win64x64/squeak.cog.spur/squeak.ico
A build.win64x64/squeak.stack.spur/Croquet.def.in
A build.win64x64/squeak.stack.spur/Croquet.exe.manifest
A build.win64x64/squeak.stack.spur/Croquet.ico
A build.win64x64/squeak.stack.spur/Croquet.rc
A build.win64x64/squeak.stack.spur/GreenCogSqueak.ico
A build.win64x64/squeak.stack.spur/Makefile
A build.win64x64/squeak.stack.spur/Squeak.def.in
A build.win64x64/squeak.stack.spur/Squeak.exe.manifest
A build.win64x64/squeak.stack.spur/Squeak.rc
A build.win64x64/squeak.stack.spur/mvm
A build.win64x64/squeak.stack.spur/plugins.ext
A build.win64x64/squeak.stack.spur/plugins.int
A build.win64x64/squeak.stack.spur/squeak.ico
M image/buildsistareaderimage.sh
M image/buildspurtrunk64image.sh
M image/buildspurtrunkreader64image.sh
M image/buildspurtrunkreaderimage.sh
M image/buildspurtrunkvmmakerimage.sh
M image/ensureSqueakV50sources.sh
M image/envvars.sh
M image/getGoodCogVM.sh
M image/getGoodSpurNsvm.sh
M image/getGoodSpurVM.sh
M image/getsqueak50.sh
M image/makegetnsvmscripts.sh
M image/makegetvmscripts.sh
M image/old/buildsqueak45vmmakerimage.sh
M image/old/buildsqueakcmakeimage.sh
M image/old/buildsqueaktrunkimage.sh
M image/old/buildsqueaktrunkvmmakerimage.sh
M image/old/ensureSqueakV41sources.sh
M image/old/getsqueak45.sh
M image/old/uploadspurimage.sh
M image/resizesqueakwindow.sh
M image/updatespurimage.sh
M image/updatevmmakerimage.sh
M image/uploadspurimage.sh
M nsspur64src/vm/cogit.h
M nsspur64src/vm/cogitX64.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 platforms/Cross/plugins/BitBltPlugin/BitBltGeneric.c
M platforms/Cross/plugins/FilePlugin/sqFilePluginBasicPrims.c
M platforms/Cross/plugins/IA32ABI/arm32ia32abicc.c
A platforms/Cross/plugins/IA32ABI/dax64win64business.h
M platforms/Cross/plugins/IA32ABI/ia32abi.h
M platforms/Cross/plugins/IA32ABI/ia32abicc.c
M platforms/Cross/plugins/IA32ABI/ppc32abicc.c
M platforms/Cross/plugins/IA32ABI/x64ia32abicc.c
A platforms/Cross/plugins/IA32ABI/x64win64ia32abicc.c
M platforms/Cross/plugins/IA32ABI/xabicc.c
M platforms/Cross/plugins/Mpeg3Plugin/libmpeg/make_package
M platforms/Cross/vm/sq.h
M platforms/Cross/vm/sqAtomicOps.h
M platforms/Cross/vm/sqCogStackAlignment.h
M platforms/Cross/vm/sqMemoryAccess.h
M platforms/Cross/vm/sqMemoryFence.h
M platforms/Cross/vm/sqSCCSVersion.h
M platforms/Cross/vm/sqVirtualMachine.c
M platforms/Cross/vm/sqVirtualMachine.h
M platforms/Mac OS/plugins/DropPlugin/sqMacDragDrop.c
M platforms/Mac OS/plugins/SqueakSSL/sqMacSSL.c
M platforms/Mac OS/vm/sqMacMain.c
M platforms/Mac OS/vm/sqMacUIAppleEvents.c
M platforms/Mac OS/vm/sqMacWindow.h
M platforms/Mac OS/vm/sqMacWindowUniversal.c
M platforms/iOS/plugins/SqueakSSL/sqMacSSL.c
M platforms/iOS/vm/Common/Classes/sqSqueakMainApp.m
M platforms/iOS/vm/Common/Classes/sqSqueakScreenAPI.m
M platforms/iOS/vm/Common/Classes/sqSqueakScreenAndWindow.m
M platforms/iOS/vm/OSX/Newspeak-Info.plist
M platforms/iOS/vm/OSX/Pharo-Info.plist
M platforms/iOS/vm/OSX/Squeak-Info.plist
M platforms/iOS/vm/OSX/sqMacUnixExternalPrims.m
M platforms/iOS/vm/OSX/sqSqueakMainApplication+screen.m
M platforms/iOS/vm/OSX/sqSqueakOSXApplication+events.m
M platforms/iOS/vm/OSX/sqSqueakOSXApplication.m
M platforms/iOS/vm/OSX/sqSqueakOSXCGView.h
M platforms/iOS/vm/OSX/sqSqueakOSXCGView.m
M platforms/iOS/vm/OSX/sqSqueakOSXOpenGLView.h
M platforms/iOS/vm/OSX/sqSqueakOSXOpenGLView.m
M platforms/iOS/vm/OSX/sqSqueakOSXView.h
M platforms/iOS/vm/iPhone/Classes/SqueakUIView.h
M platforms/iOS/vm/iPhone/Classes/SqueakUIView.m
M platforms/unix/config/build
M platforms/unix/plugins/SqueakSSL/sqUnixOpenSSL.c
M platforms/unix/vm-display-Quartz/SqueakView.m
M platforms/unix/vm-display-Quartz/sqUnixQuartz.m
M platforms/unix/vm-display-Quartz/zzz/sqUnixQuartz.m
M platforms/unix/vm-display-X11/sqUnixX11.c
M platforms/unix/vm-display-X11/sqUnixXdnd.c
M platforms/unix/vm/sqUnixHeartbeat.c
M platforms/unix/vm/sqUnixMain.c
M platforms/win32/plugins/B3DAcceleratorPlugin/sqWin32D3D.c
M platforms/win32/plugins/B3DAcceleratorPlugin/sqWin32OpenGL.c
M platforms/win32/plugins/B3DAcceleratorPlugin/sqWin32OpenGL.h
M platforms/win32/plugins/BochsIA32Plugin/Makefile
M platforms/win32/plugins/BochsIA32Plugin/Makefile.plugin
M platforms/win32/plugins/BochsX64Plugin/Makefile.plugin
M platforms/win32/plugins/DropPlugin/sqWin32Drop.c
M platforms/win32/plugins/FilePlugin/sqWin32File.h
M platforms/win32/plugins/HostWindowPlugin/sqWin32HostWindowPlugin.c
M platforms/win32/plugins/IA32ABI/Makefile
M platforms/win32/plugins/IA32ABI/Makefile.plugin
M platforms/win32/plugins/JoystickTabletPlugin/sqWin32Joystick.c
M platforms/win32/plugins/LocalePlugin/sqWin32Locale.c
M platforms/win32/plugins/MIDIPlugin/sqWin32MIDI.c
M platforms/win32/plugins/SecurityPlugin/sqWin32Security.c
M platforms/win32/plugins/SocketPlugin/sqWin32NewNet.c
M platforms/win32/plugins/SoundPlugin/sqWin32Sound.c
M platforms/win32/vm/config.h
M platforms/win32/vm/sqConfig.h
M platforms/win32/vm/sqPlatformSpecific.h
M platforms/win32/vm/sqWin32.h
M platforms/win32/vm/sqWin32Backtrace.c
M platforms/win32/vm/sqWin32Backtrace.h
M platforms/win32/vm/sqWin32DirectInput.c
M platforms/win32/vm/sqWin32Directory.c
M platforms/win32/vm/sqWin32DnsInfo.c
M platforms/win32/vm/sqWin32ExternalPrims.c
M platforms/win32/vm/sqWin32Main.c
M platforms/win32/vm/sqWin32PluginSupport.c
M platforms/win32/vm/sqWin32Prefs.c
M platforms/win32/vm/sqWin32Prefs.h
M platforms/win32/vm/sqWin32Service.c
M platforms/win32/vm/sqWin32SpurAlloc.c
M platforms/win32/vm/sqWin32Threads.c
M platforms/win32/vm/sqWin32Utils.c
M platforms/win32/vm/sqWin32VMProfile.c
M platforms/win32/vm/sqWin32Window.c
M platforms/win32/vm/version.c
M processors/ARM/mac/BUILD.sh
M processors/ARM/mac/BUILDarmsim-dbg.sh
M processors/ARM/mac/BUILDarmsim.sh
M processors/ARM/mac/BUILDbinutils.sh
M processors/IA32/bochs/build/batch-build.perl
M processors/IA32/bochs/build/macosx/make-dmg.sh
M processors/IA32/bochs/build/makeall.sh
M processors/IA32/bochs/build/redhat/make-rpm
M processors/IA32/bochs/makeem
M scripts/compileChangeHistory
M scripts/indentit
M scripts/lastCheckin
M scripts/mkARMstackvmarchives
M scripts/mkcogvmarchives
M scripts/mklinuxarchive
M scripts/mksistaarchives
M scripts/mkspur64vmarchives
M scripts/mkspurvmarchives
M scripts/mkvmarchives
M scripts/printRevAndTag
M scripts/updateSCCSVersions
M scripts/uploadARMvms
M scripts/uploadvms
M spur64src/vm/cogit.h
M spur64src/vm/cogitX64.c
M spur64src/vm/cointerp.c
M spur64src/vm/cointerp.h
M spur64src/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 spursrc/vm/interp.h
M spurstack64src/vm/gcc3x-interp.c
M spurstack64src/vm/interp.c
M spurstacksrc/vm/gcc3x-interp.c
M spurstacksrc/vm/interp.c
M spurstacksrc/vm/interp.h
M src/plugins/BitBltPlugin/BitBltPlugin.c
M src/plugins/Squeak3D/Squeak3D.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:
-----------
Merge remote-tracking branch 'OpenSmalltalk/Cog' into Cog
Commit: 70ada3a6e4983891a5dae08f04169fd661a74913
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/70ada3a6e4983891a5…
Author: Craig Latta <github(a)netjam.org>
Date: 2016-09-07 (Wed, 07 Sep 2016)
Changed paths:
M platforms/iOS/vm/OSX/sqMacUnixExternalPrims.m
Log Message:
-----------
Update sqMacUnixExternalPrims.m:tryLoadingBundle() for macOS Sierra, to
accommodate the fact that stringByAppendingPathExtension no longer
allows slashes.
Commit: 92e9af6566efb0843f49213d3ff54aad33c470a3
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/92e9af6566efb0843f…
Author: Eliot Miranda <eliot.miranda(a)gmail.com>
Date: 2016-09-07 (Wed, 07 Sep 2016)
Changed paths:
M platforms/iOS/vm/OSX/sqMacUnixExternalPrims.m
Log Message:
-----------
Merge pull request #48 from ccrraaiigg/Cog
update tryLoadingBundle() for macOS Sierra
Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/3b11fcf05214...92…
1
0