[Vm-dev] VM Maker Inbox: VMMaker.oscog.seperateMarking-eem.3224.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jul 26 23:35:45 UTC 2022
Eliot Miranda uploaded a new version of VMMaker to project VM Maker Inbox:
http://source.squeak.org/VMMakerInbox/VMMaker.oscog.seperateMarking-eem.3224.mcz
==================== Summary ====================
Name: VMMaker.oscog.seperateMarking-eem.3224
Author: eem
Time: 26 July 2022, 4:35:31.493577 pm
UUID: 2a317555-50ef-425f-b9f2-7732fe534889
Ancestors: VMMaker.oscog.seperateMarking-eem.3223
Better categorize a couple of primitives.
=============== Diff against VMMaker.oscog.seperateMarking-eem.3223 ===============
Item was changed:
+ ----- Method: InterpreterPrimitives>>primitiveCompareBytes (in category 'string primitives') -----
- ----- Method: InterpreterPrimitives>>primitiveCompareBytes (in category 'indexing primitives') -----
primitiveCompareBytes
"Primitive. Compare two byte-indexed objects for equality"
<export: true>
<primitiveMetadata: #FastCPrimitiveFlag>
| arg1 arg2 len |
arg1 := self stackValue: 1.
arg2 := self stackValue: 0.
"Quick identity test"
arg1 = arg2 ifTrue:
[^self methodReturnBool: true].
((objectMemory isBytes: arg1) and:[objectMemory isBytes: arg2]) ifFalse:
[^self primitiveFailFor: PrimErrBadArgument].
len := objectMemory numBytesOfBytes: arg1.
len = (objectMemory numBytesOfBytes: arg2) ifFalse:
[^self methodReturnBool: false].
0 to: len - 1 do:
[:i|
(objectMemory fetchByte: i ofObject: arg1) = (objectMemory fetchByte: i ofObject: arg2) ifFalse:
[^self methodReturnBool: false]].
^self methodReturnBool: true!
Item was changed:
+ ----- Method: InterpreterPrimitives>>primitiveForceTenure (in category 'memory space primitives') -----
- ----- Method: InterpreterPrimitives>>primitiveForceTenure (in category 'I/O primitives') -----
primitiveForceTenure
"Set force tenure flag to true, this forces a tenure operation on the next incremental GC"
<export: true>
<option: #SqueakV3ObjectMemory>
objectMemory forceTenureFlag: 1!
More information about the Vm-dev
mailing list