Ronie Salgado Faila uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-rsf.2066.mcz
==================== Summary ====================
Name: VMMaker.oscog-rsf.2066
Author: rsf
Time: 3 January 2017, 6:06:04.527721 am
UUID: 8d0771c5-662d-44dd-a8a2-6f50f39af378
Ancestors: VMMaker.oscog-eem.2065
I added methods for generating the sources of the Lowcode VM.
I added some missing entries in the IA32 concretize instruction the dispatch table.
After this, I have to fix: the order of the arguments used by the Lowcode trampolines, and the 16r00XX problem with the extB bytecode.
=============== Diff against VMMaker.oscog-eem.2065 ===============
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 >= CDQ ifTrue:
[^self dispatchConcretizeProcessorSpecific].
opcode caseOf: {
"Noops & Pseudo Ops"
[Label] -> [^self concretizeLabel].
[AlignmentNops] -> [^self concretizeAlignmentNops].
[Fill32] -> [^self concretizeFill32].
[Nop] -> [^self concretizeNop].
"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].
[XorRdRd] -> [^self concretizeXorRdRd].
[XorRsRs] -> [^self concretizeXorRsRs].
[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].
+ [MoveRsM32r] -> [^self concretizeMoveRsM32r].
[MoveM64rRd] -> [^self concretizeMoveM64rRd].
[MoveMwrR] -> [^self concretizeMoveMwrR].
[MoveXbrRR] -> [^self concretizeMoveXbrRR].
[MoveRXbrR] -> [^self concretizeMoveRXbrR].
[MoveXwrRR] -> [^self concretizeMoveXwrRR].
[MoveRXwrR] -> [^self concretizeMoveRXwrR].
[MoveRMwr] -> [^self concretizeMoveRMwr].
[MoveRdM64r] -> [^self concretizeMoveRdM64r].
[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].}!
- [ConvertRRd] -> [^self concretizeConvertRRd] }!
Item was added:
+ ----- Method: VMMaker class>>generateSqueakSpurLowcodeCogVM (in category 'configurations') -----
+ generateSqueakSpurLowcodeCogVM
+ "No primitives since we can use those for the Cog VM"
+ ^VMMaker
+ generate: CoInterpreter
+ and: StackToRegisterMappingCogit
+ with: #(ObjectMemory Spur32BitCoMemoryManager
+ SistaVM true
+ LowcodeVM true
+ MULTIPLEBYTECODESETS true
+ bytecodeTableInitializer initializeBytecodeTableForSqueakV3PlusClosuresSistaV1Hybrid)
+ to: (FileDirectory default pathFromURI: self sourceTree, '/spurlowcodesrc')
+ platformDir: (FileDirectory default pathFromURI: self sourceTree, '/platforms')
+ including:#()!
Item was added:
+ ----- Method: VMMaker class>>generateSqueakSpurLowcodeStackVM (in category 'configurations') -----
+ generateSqueakSpurLowcodeStackVM
+ "No primitives since we can use those from the Cog VM"
+ ^VMMaker
+ generate: StackInterpreter
+ with: #(ObjectMemory Spur32BitMemoryManager
+ SistaVM true
+ LowcodeVM true
+ FailImbalancedPrimitives false
+ MULTIPLEBYTECODESETS true
+ bytecodeTableInitializer initializeBytecodeTableForSqueakV3PlusClosuresSistaV1Hybrid)
+ to: (FileDirectory default pathFromURI: self sourceTree, '/spurlowcodestacksrc')
+ platformDir: (FileDirectory default pathFromURI: self sourceTree, '/platforms')
+ including: #()!
1
0
Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2065.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.2065
Author: eem
Time: 2 January 2017, 7:18:35.467191 pm
UUID: 89e981a5-b811-4530-b15c-64ca8711340a
Ancestors: VMMaker.oscog-eem.2064
SpurPlanningCompactor:
Fix slip in continueCopyAndUnmarkMobileObjectsFrom:withTop:.
In all the enumerators, strengthen the previousPin asserts and ignore unmarked objects when skipping past previousPin.
Nuke a couple of unused methods.
Habe printEntity: print the state bits such as isMarked:, isRemembered: et al.
Simulator:
Remember to update CogVMSimulator>>close also.
=============== Diff against VMMaker.oscog-eem.2064 ===============
Item was changed:
----- Method: CogVMSimulator>>close (in category 'initialization') -----
close "close any files that ST may have opened, etc"
+ pluginList do: [:assoc| | plugin | plugin := assoc value. plugin ~~ self ifTrue: [plugin close]]!
- pluginList do: [:plugin| plugin ~~ self ifTrue: [plugin close]]!
Item was added:
+ ----- Method: CogVMSimulator>>printHexnpnp: (in category 'debug printing') -----
+ printHexnpnp: anInteger
+ "Print n in hex, in the form '1234', unpadded"
+ traceOn ifTrue:
+ [transcript nextPutAll: ((anInteger ifNil: [0]) printStringBase: 16)]!
Item was added:
+ ----- Method: CurrentImageCoInterpreterFacade>>printHexnpnp: (in category 'printing') -----
+ printHexnpnp: anInteger
+ coInterpreter transcript nextPutAll: (anInteger printStringBase: 16)!
Item was changed:
----- Method: SpurMemoryManager>>printEntity: (in category 'debug printing') -----
printEntity: oop
<api>
+ | isObj |
+ isObj := false.
coInterpreter printHex: oop; space.
(self addressCouldBeObj: oop) ifFalse:
[^coInterpreter print: ((self isImmediate: oop) ifTrue: ['immediate'] ifFalse: ['unknown'])].
coInterpreter
print: ((self isFreeObject: oop) ifTrue: ['free'] ifFalse:
[(self isSegmentBridge: oop) ifTrue: ['bridge'] ifFalse:
[(self isForwarded: oop) ifTrue: ['forwarder'] ifFalse:
[(self classIndexOf: oop) <= self lastClassIndexPun ifTrue: ['pun/obj stack'] ifFalse:
+ [isObj := true. 'object']]]]);
+ space; printHex: (self bytesInObject: oop); print: '/'; printNum: (self bytesInObject: oop).
+ isObj ifTrue:
+ [coInterpreter
+ space;
+ print: ((self formatOf: oop) <= 16rF ifTrue: ['f:0'] ifFalse: ['f:']);
+ printHexnp: (self formatOf: oop);
+ print: ((self isGrey: oop) ifTrue: [' g'] ifFalse: [' .']);
+ print: ((self isImmutable: oop) ifTrue: ['i'] ifFalse: ['.']);
+ print: ((self isMarked: oop) ifTrue: ['m'] ifFalse: ['.']);
+ print: ((self isPinned: oop) ifTrue: ['p'] ifFalse: ['.']);
+ print: ((self isRemembered: oop) ifTrue: ['r'] ifFalse: ['.'])].
+ coInterpreter cr!
- ['object']]]]);
- space; printHex: (self bytesInObject: oop); print: '/'; printNum: (self bytesInObject: oop); cr!
Item was changed:
----- Method: SpurPlanningCompactor>>continueCopyAndUnmarkMobileObjectsFrom:withTop: (in category 'compaction') -----
continueCopyAndUnmarkMobileObjectsFrom: anUnpinnedEntity withTop: initialTop
"copyAndUnmarkMobileObjects has encountered a run of pinned objects around which
it cannot compact, but savedFirstFieldsSpace is still not full. Continue the pass with a
new firstFreeObject, resetting it before continuing.
Answer if the end of the heap was reached (savedFirstFieldsSpace has not overflowed)."
| result top savedFirstFreeObject savedFirstMobileObject nextFreeObject |
self assert: (self oop: anUnpinnedEntity isLessThan: manager endOfMemory).
self deny: (manager isPinned: anUnpinnedEntity).
savedFirstMobileObject := firstMobileObject.
nextFreeObject := self scanForFirstFreeAndFirstMobileObjectFrom: anUnpinnedEntity.
top := initialTop.
"Copy and unmark the run of immobile objects to match the enumeration in continuePlanCompactSavingForwardersFrom:toFinger:."
manager allOldSpaceEntitiesFrom: anUnpinnedEntity to: firstMobileObject do:
[:o|
(o < firstMobileObject
and: [manager isMarked: o]) ifTrue:
[(manager isPinned: o)
ifTrue:
[(manager isSegmentBridge: o) ifFalse:
[manager setIsMarkedOf: o to: false.
manager segmentManager notePinned: o]]
ifFalse:
[(top := top + manager bytesPerOop) >= savedFirstFieldsSpace limit ifTrue:
[^false].
self assert: o = (manager fetchPointer: 0 ofObject: o).
manager
setIsMarkedOf: o to: false;
+ storePointerUnchecked: 0 ofObject: o withValue: (manager longAt: top)]]].
- storePointerUnchecked: 0 ofObject: o withValue: (manager longAt: o)]]].
firstMobileObject := savedFirstMobileObject.
nextFreeObject ifNil:
[^true].
savedFirstFreeObject := firstFreeObject.
firstFreeObject := nextFreeObject.
result := self copyAndUnmarkMobileObjectsWithTop: top.
firstFreeObject := savedFirstFreeObject.
^result!
Item was changed:
----- Method: SpurPlanningCompactor>>copyAndUnmarkMobileObjectsWithTop: (in category 'compaction') -----
copyAndUnmarkMobileObjectsWithTop: initialTop
"Sweep the mobile portion of the heap, moving objects to their eventual locations, and clearing their marked bits.
Remember to update the savedFirstFields of pointer objects, as these have been forwarded.
This enumeration matches those in planCompactSavingForwarders and updatePointersInMobileObjects."
| toFinger top previousPin |
toFinger := manager startOfObject: firstFreeObject.
top := initialTop.
self deny: (manager isMarked: firstFreeObject).
manager allOldSpaceEntitiesForCompactingFrom: firstFreeObject do:
[:o|
self check: o.
+ self assert: (previousPin isNil or: [(manager isMarked: previousPin) and: [toFinger < previousPin]]).
- self assert: (previousPin isNil or: [toFinger < previousPin]).
(manager isMarked: o) ifTrue:
[(manager isPinned: o)
ifTrue:
[(manager isSegmentBridge: o) ifFalse:
[manager setIsMarkedOf: o to: false.
manager segmentManager notePinned: o].
previousPin ifNotNil:
[| limit |
limit := manager startOfObject: previousPin.
manager addFreeChunkWithBytes: limit - toFinger at: toFinger.
toFinger := manager addressAfter: previousPin.
self assert: toFinger < (manager startOfObject: o)].
previousPin := o]
ifFalse:
[| availableSpace bytes next |
(top := top + manager bytesPerOop) >= savedFirstFieldsSpace limit ifTrue:
[self freeFrom: toFinger upTo: (manager startOfObject: o) previousPin: previousPin.
^false].
[previousPin notNil
and: [availableSpace := (manager startOfObject: previousPin) - toFinger.
bytes := manager bytesInObject: o.
bytes ~= availableSpace
and: [bytes + (2 * manager allocationUnit) < availableSpace]]] whileTrue:
["The object does not fit in the space between toFinger and previousPin.
Move toFinger beyond previousPin and update previousPin appropriately."
availableSpace > 0 ifTrue:
[manager addFreeChunkWithBytes: availableSpace at: toFinger].
toFinger := manager addressAfter: previousPin.
next := manager objectStartingAt: toFinger.
next >= o ifTrue:
[^self continueCopyAndUnmarkMobileObjectsFrom: o withTop: top - manager bytesPerOop].
+ previousPin := ((manager isMarked: next) and: [manager isPinned: next]) ifTrue: [next]].
- previousPin := (manager isPinned: next) ifTrue: [next]].
toFinger := self copyAndUnmarkObject: o to: toFinger firstField: (manager longAt: top)]]].
self freeFrom: toFinger upTo: manager endOfMemory previousPin: previousPin.
^true!
Item was removed:
- ----- Method: SpurPlanningCompactor>>numPointerSlotsWhileCompactingOf:savedFirstFieldPointer: (in category 'private') -----
- numPointerSlotsWhileCompactingOf: obj savedFirstFieldPointer: firstFieldPtrOrNil
- "This is a version of SpurMemoryManager>>numPointerSlotsOf: that deals with the
- possibility of obj being a CompiledMethod whose header is in savedFirstFieldsSpace.
- Answer the number of pointer fields in the given object.
- Works with CompiledMethods, as well as ordinary objects."
- <inline: true>
- | fmt contextSize numLiterals header |
- fmt := manager formatOf: obj.
- fmt <= manager lastPointerFormat ifTrue:
- [(fmt = manager indexablePointersFormat
- and: [manager isContextNonImm: obj]) ifTrue:
- ["contexts end at the stack pointer"
- contextSize := coInterpreter fetchStackPointerOf: obj.
- ^CtxtTempFrameStart + contextSize].
- ^manager numSlotsOf: obj "all pointers"].
- self deny: fmt = manager forwardedFormat.
- fmt < manager firstCompiledMethodFormat ifTrue: [^0]. "no pointers"
-
- "CompiledMethod: contains both pointers and bytes"
- self assert: firstFieldPtrOrNil notNil == (self isMobile: obj).
- header := firstFieldPtrOrNil
- ifNil: [manager methodHeaderOf: obj]
- ifNotNil: [manager methodHeaderFromSavedFirstField: (manager longAt: firstFieldPtrOrNil)].
- numLiterals := manager literalCountOfMethodHeader: header.
- ^numLiterals + LiteralStart!
Item was changed:
----- Method: SpurPlanningCompactor>>planCompactSavingForwarders (in category 'compaction') -----
planCompactSavingForwarders
"Sweep the heap from firstFreeObject forwarding marked objects to where they
can be moved to, saving their forwarding pointer in savedFirstFieldsSpace.
Continue until either the end of the heap is reached or savedFirstFieldsSpace is full.
Answer if the end of the heap was reached (savedFirstFieldsSpace has not overflowed).
Note that this method is potentially recursive. If skipping a run of pinned objects
causes the the algorithm to encounter another run of immobile objects it will
recurse via continuePlanCompactSavingForwardersFrom:.
This enumeration matches those in updatePointersInMobileObjects and copyAndUnmarkMobileObjects."
| toFinger top previousPin |
savedFirstFieldsSpace top < savedFirstFieldsSpace start ifTrue:
[self logPhase: 'planning...'].
toFinger := manager startOfObject: firstFreeObject.
top := savedFirstFieldsSpace top.
self deny: (manager isMarked: firstFreeObject).
manager allOldSpaceEntitiesFrom: firstFreeObject do:
[:o|
self check: o.
+ self assert: (previousPin isNil or: [(manager isMarked: previousPin) and: [toFinger < previousPin]]).
- self assert: (previousPin isNil or: [toFinger < previousPin]).
(manager isMarked: o) ifTrue:
[(manager isPinned: o)
ifTrue: "The empty gaps between two adjacent pinned objects (when not filled below) are freed."
[previousPin ifNotNil:
[self assert: (manager startOfObject: previousPin) - toFinger >= (manager allocationUnit * 2).
toFinger := manager addressAfter: previousPin.
self assert: toFinger < (manager startOfObject: o)].
previousPin := o]
ifFalse:
[| availableSpace bytes next |
(top := top + manager bytesPerOop) >= savedFirstFieldsSpace limit ifTrue:
[savedFirstFieldsSpace top: top - manager bytesPerOop.
^false].
[previousPin notNil
and: [availableSpace := (manager startOfObject: previousPin) - toFinger.
bytes := manager bytesInObject: o.
bytes ~= availableSpace
and: [bytes + (2 * manager allocationUnit) < availableSpace]]] whileTrue:
["The object does not fit in the space between toFinger and previousPin.
Move toFinger beyond previousPin and update previousPin appropriately."
toFinger := manager addressAfter: previousPin.
next := manager objectStartingAt: toFinger.
next >= o ifTrue:
[savedFirstFieldsSpace top: top - manager bytesPerOop.
^self continuePlanCompactSavingForwardersFrom: o toFinger: toFinger].
+ previousPin := ((manager isMarked: next) and: [manager isPinned: next]) ifTrue: [next]].
- previousPin := (manager isPinned: next) ifTrue: [next]].
toFinger := self forwardMobileObject: o to: toFinger savedFirstFieldPtr: top]]].
savedFirstFieldsSpace top: top.
^true!
Item was removed:
- ----- Method: SpurPlanningCompactor>>updatePointersFrom:to:in: (in category 'compaction') -----
- updatePointersFrom: start to: finish in: obj
- <inline: true>
- start to: finish do:
- [:i| | oop fwd |
- oop := manager fetchPointer: i ofObject: obj.
- ((manager isNonImmediate: oop) and: [self isMobile: oop]) ifTrue:
- [self assert: (manager isMarked: oop).
- fwd := manager fetchPointer: 0 ofObject: oop.
- self assert: (self isPostMobile: fwd).
- manager storePointerUnchecked: i ofObject: obj withValue: fwd]]!
Item was changed:
----- Method: SpurPlanningCompactor>>updatePointersInMobileObjectsWithTop: (in category 'compaction') -----
updatePointersInMobileObjectsWithTop: initialTop
"Sweep the mobile portion of the heap, updating all references to objects to their eventual locations.
Remember to update the savedFirstFields of pointer objects, as these have been forwarded.
This enumeration matches that in planCompactSavingForwarders and copyAndUnmarkMobileObjects."
| toFinger top previousPin |
toFinger := manager startOfObject: firstFreeObject.
top := initialTop.
self deny: (manager isMarked: firstFreeObject).
manager allOldSpaceEntitiesFrom: firstFreeObject do:
[:o|
self check: o.
+ self assert: (previousPin isNil or: [(manager isMarked: previousPin) and: [toFinger < previousPin]]).
- self assert: (previousPin isNil or: [toFinger < previousPin]).
(manager isMarked: o) ifTrue:
[(manager isPinned: o)
ifTrue: "The empty gaps between two adjacent pinned objects (when not filled below) are freed."
[self updatePointersIn: o.
previousPin ifNotNil:
[toFinger := manager addressAfter: previousPin].
previousPin := o]
ifFalse:
[| availableSpace bytes next |
(top := top + manager bytesPerOop) >= savedFirstFieldsSpace limit ifTrue:
[^false].
[previousPin notNil
and: [availableSpace := (manager startOfObject: previousPin) - toFinger.
bytes := manager bytesInObject: o.
bytes ~= availableSpace
and: [bytes + (2 * manager allocationUnit) < availableSpace]]] whileTrue:
["The object does not fit in the space between toFinger and previousPin.
Move toFinger beyond previousPin and update previousPin appropriately."
toFinger := manager addressAfter: previousPin.
next := manager objectStartingAt: toFinger.
next >= o ifTrue:
[^self continueUpdatePointersInMobileObjectsFrom: o withTop: top - manager bytesPerOop].
+ previousPin := ((manager isMarked: next) and: [manager isPinned: next]) ifTrue: [next]].
- previousPin := (manager isPinned: next) ifTrue: [next]].
self updatePointersIn: o savedFirstFieldPointer: top.
toFinger := toFinger + (manager bytesInObject: o)]]].
^true!
Item was added:
+ ----- Method: StackInterpreter>>printHexnpnp: (in category 'debug printing') -----
+ printHexnpnp: n
+ "Print n in hex, in the form '1234', unpadded"
+ self print: '%lx' f: (self cCoerceSimple: n to: #'unsigned long')!
Item was added:
+ ----- Method: StackInterpreterSimulator>>printHexnpnp: (in category 'debug printing') -----
+ printHexnpnp: anInteger
+ "Print n in hex, in the form '1234', unpadded"
+ traceOn ifTrue:
+ [transcript nextPutAll: ((anInteger ifNil: [0]) printStringBase: 16)]!
1
0
[commit][3755] VMMaker 4.16. 1 - Support older Squeak images back to version 1.13 (circa 1996)
by commits＠squeakvm.org 03 Jan '17
by commits＠squeakvm.org 03 Jan '17
03 Jan '17
Revision: 3755
Author: lewis
Date: 2017-01-02 18:00:00 -0800 (Mon, 02 Jan 2017)
Log Message:
-----------
VMMaker 4.16.1 - Support older Squeak images back to version 1.13 (circa 1996)
This set of updates is based on SqueakJS as a reference implementation that
supports a full range of images from Squeak 1.13 through the latest Spur images.
Numbered primitives are identified in the primitive table, established by the
implementations of #initializePrimitiveTable in the various images. Class
PrimitiveTableHistory has been added to document known versions of the
primitive table.
Background: In general, primitives that originated as numbered primitives in early
Squeak versions have been reimplemented as named primitives in the base
interpreter and in various interpreter plugins. The goal is to reduce or eliminate
use of numbered primitives. Support for old images therefore amounts to reassiging
the old primitive numbers to named primitives where necessary to support
running an older image.
Strategy: Check if the current image #hasClosures based on the image format
number, then provide an older set of numbered primitives suitable for a range of
pre-closure images dating back to Squeak 1.13. Do this by starting with the
default primitive table, checking at entry to interpreter() to see if this is a
pre-closure image, then installing old primitives as needed in #updatePrimitiveTable.
Interpreter primitives that require a primitive number for older images are
added to the primitive table with #installPrimitive:at: and primitives that are now
implemented in interpreter plugins are loaded and installed in the primitive
table with #installPrimitive:from:at:.
Modified Paths:
--------------
trunk/src/ckformat.c
trunk/src/plugins/ADPCMCodecPlugin/ADPCMCodecPlugin.c
trunk/src/plugins/AioPlugin/AioPlugin.c
trunk/src/plugins/AsynchFilePlugin/AsynchFilePlugin.c
trunk/src/plugins/B2DPlugin/B2DPlugin.c
trunk/src/plugins/B3DAcceleratorPlugin/B3DAcceleratorPlugin.c
trunk/src/plugins/BMPReadWriterPlugin/BMPReadWriterPlugin.c
trunk/src/plugins/BitBltPlugin/BitBltPlugin.c
trunk/src/plugins/CameraPlugin/CameraPlugin.c
trunk/src/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c
trunk/src/plugins/CroquetPlugin/CroquetPlugin.c
trunk/src/plugins/DBusPlugin/DBusPlugin.c
trunk/src/plugins/DESPlugin/DESPlugin.c
trunk/src/plugins/DSAPrims/DSAPrims.c
trunk/src/plugins/DropPlugin/DropPlugin.c
trunk/src/plugins/FFTPlugin/FFTPlugin.c
trunk/src/plugins/FT2Plugin/FT2Plugin.c
trunk/src/plugins/FileCopyPlugin/FileCopyPlugin.c
trunk/src/plugins/FilePlugin/FilePlugin.c
trunk/src/plugins/FloatArrayPlugin/FloatArrayPlugin.c
trunk/src/plugins/FloatMathPlugin/FloatMathPlugin.c
trunk/src/plugins/GeniePlugin/GeniePlugin.c
trunk/src/plugins/HostWindowPlugin/HostWindowPlugin.c
trunk/src/plugins/ImmX11Plugin/ImmX11Plugin.c
trunk/src/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c
trunk/src/plugins/JPEGReaderPlugin/JPEGReaderPlugin.c
trunk/src/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c
trunk/src/plugins/KedamaPlugin2/KedamaPlugin2.c
trunk/src/plugins/Klatt/Klatt.c
trunk/src/plugins/LargeIntegers/LargeIntegers.c
trunk/src/plugins/LocalePlugin/LocalePlugin.c
trunk/src/plugins/MD5Plugin/MD5Plugin.c
trunk/src/plugins/MIDIPlugin/MIDIPlugin.c
trunk/src/plugins/Matrix2x3Plugin/Matrix2x3Plugin.c
trunk/src/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c
trunk/src/plugins/Mpeg3Plugin/Mpeg3Plugin.c
trunk/src/plugins/RePlugin/RePlugin.c
trunk/src/plugins/RomePlugin/RomePlugin.c
trunk/src/plugins/SHA256Plugin/SHA256Plugin.c
trunk/src/plugins/ScratchPlugin/ScratchPlugin.c
trunk/src/plugins/SecurityPlugin/SecurityPlugin.c
trunk/src/plugins/SerialPlugin/SerialPlugin.c
trunk/src/plugins/SocketPlugin/SocketPlugin.c
trunk/src/plugins/SoundCodecPrims/SoundCodecPrims.c
trunk/src/plugins/SoundGenerationPlugin/SoundGenerationPlugin.c
trunk/src/plugins/SoundPlugin/SoundPlugin.c
trunk/src/plugins/Squeak3D/Squeak3D.c
trunk/src/plugins/SqueakFFIPrims/SqueakFFIPrims.c
trunk/src/plugins/SqueakSSL/SqueakSSL.c
trunk/src/plugins/StarSqueakPlugin/StarSqueakPlugin.c
trunk/src/plugins/UUIDPlugin/UUIDPlugin.c
trunk/src/plugins/UnicodePlugin/UnicodePlugin.c
trunk/src/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c
trunk/src/plugins/WeDoPlugin/WeDoPlugin.c
trunk/src/plugins/XDisplayControlPlugin/XDisplayControlPlugin.c
trunk/src/plugins/ZipPlugin/ZipPlugin.c
trunk/src/vm/interp.c
trunk/src/vm/interp.h
trunk/src/vm/sqNamedPrims.h
Modified: trunk/src/ckformat.c
===================================================================
--- trunk/src/ckformat.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/ckformat.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -5,7 +5,7 @@
/* Usage: ckformat imageFileName */
/* --- DO NOT EDIT THIS FILE --- */
-/* --- Automatically generated from class ImageFormat 2016-11-08T17:28:37.639+01:00--- */
+/* --- Automatically generated from class ImageFormat 2017-01-02T20:53:17.937+01:00--- */
/* --- Source code is in package ImageFormat in the VMMaker repository --- */
/* --- DO NOT EDIT THIS FILE --- */
Modified: trunk/src/plugins/ADPCMCodecPlugin/ADPCMCodecPlugin.c
===================================================================
--- trunk/src/plugins/ADPCMCodecPlugin/ADPCMCodecPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/ADPCMCodecPlugin/ADPCMCodecPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:24 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:05 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- ADPCMCodecPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ ADPCMCodecPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "ADPCMCodecPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "ADPCMCodecPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -70,9 +70,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "ADPCMCodecPlugin 8 November 2016 (i)"
+ "ADPCMCodecPlugin 2 January 2017 (i)"
#else
- "ADPCMCodecPlugin 8 November 2016 (e)"
+ "ADPCMCodecPlugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/AioPlugin/AioPlugin.c
===================================================================
--- trunk/src/plugins/AioPlugin/AioPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/AioPlugin/AioPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,6 +1,6 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:37 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:17 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
UnixAioPlugin * uuid: nil
*/
@@ -86,9 +86,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "AioPlugin 8 November 2016 (i)"
+ "AioPlugin 2 January 2017 (i)"
#else
- "AioPlugin 8 November 2016 (e)"
+ "AioPlugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/AsynchFilePlugin/AsynchFilePlugin.c
===================================================================
--- trunk/src/plugins/AsynchFilePlugin/AsynchFilePlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/AsynchFilePlugin/AsynchFilePlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:24 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:05 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- AsynchFilePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ AsynchFilePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "AsynchFilePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "AsynchFilePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -67,9 +67,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "AsynchFilePlugin 8 November 2016 (i)"
+ "AsynchFilePlugin 2 January 2017 (i)"
#else
- "AsynchFilePlugin 8 November 2016 (e)"
+ "AsynchFilePlugin 2 January 2017 (e)"
#endif
;
static void * sCOAFfn;
Modified: trunk/src/plugins/B2DPlugin/B2DPlugin.c
===================================================================
--- trunk/src/plugins/B2DPlugin/B2DPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/B2DPlugin/B2DPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:26 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:07 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- BalloonEnginePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ BalloonEnginePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "BalloonEnginePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "BalloonEnginePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -447,9 +447,9 @@
static void * loadBBFn;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "B2DPlugin 8 November 2016 (i)"
+ "B2DPlugin 2 January 2017 (i)"
#else
- "B2DPlugin 8 November 2016 (e)"
+ "B2DPlugin 2 January 2017 (e)"
#endif
;
static int* objBuffer;
Modified: trunk/src/plugins/B3DAcceleratorPlugin/B3DAcceleratorPlugin.c
===================================================================
--- trunk/src/plugins/B3DAcceleratorPlugin/B3DAcceleratorPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/B3DAcceleratorPlugin/B3DAcceleratorPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:31 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:12 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- B3DAcceleratorPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ B3DAcceleratorPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "B3DAcceleratorPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "B3DAcceleratorPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -107,9 +107,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "B3DAcceleratorPlugin 8 November 2016 (i)"
+ "B3DAcceleratorPlugin 2 January 2017 (i)"
#else
- "B3DAcceleratorPlugin 8 November 2016 (e)"
+ "B3DAcceleratorPlugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/BMPReadWriterPlugin/BMPReadWriterPlugin.c
===================================================================
--- trunk/src/plugins/BMPReadWriterPlugin/BMPReadWriterPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/BMPReadWriterPlugin/BMPReadWriterPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:24 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:05 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- BMPReadWriterPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ BMPReadWriterPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "BMPReadWriterPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "BMPReadWriterPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -58,9 +58,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "BMPReadWriterPlugin 8 November 2016 (i)"
+ "BMPReadWriterPlugin 2 January 2017 (i)"
#else
- "BMPReadWriterPlugin 8 November 2016 (e)"
+ "BMPReadWriterPlugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/BitBltPlugin/BitBltPlugin.c
===================================================================
--- trunk/src/plugins/BitBltPlugin/BitBltPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/BitBltPlugin/BitBltPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:27 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:08 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- BitBltSimulation VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ BitBltSimulation VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "BitBltSimulation VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "BitBltSimulation VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -256,9 +256,9 @@
};
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "BitBltPlugin 8 November 2016 (i)"
+ "BitBltPlugin 2 January 2017 (i)"
#else
- "BitBltPlugin 8 November 2016 (e)"
+ "BitBltPlugin 2 January 2017 (e)"
#endif
;
static sqInt nWords;
Modified: trunk/src/plugins/CameraPlugin/CameraPlugin.c
===================================================================
--- trunk/src/plugins/CameraPlugin/CameraPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/CameraPlugin/CameraPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:32 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:13 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- CameraPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ CameraPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "CameraPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "CameraPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -64,9 +64,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "CameraPlugin 8 November 2016 (i)"
+ "CameraPlugin 2 January 2017 (i)"
#else
- "CameraPlugin 8 November 2016 (e)"
+ "CameraPlugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c
===================================================================
--- trunk/src/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:32 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:13 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- ClipboardExtendedPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ ClipboardExtendedPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "ClipboardExtendedPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "ClipboardExtendedPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -61,9 +61,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "ClipboardExtendedPlugin 8 November 2016 (i)"
+ "ClipboardExtendedPlugin 2 January 2017 (i)"
#else
- "ClipboardExtendedPlugin 8 November 2016 (e)"
+ "ClipboardExtendedPlugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/CroquetPlugin/CroquetPlugin.c
===================================================================
--- trunk/src/plugins/CroquetPlugin/CroquetPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/CroquetPlugin/CroquetPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:27 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:08 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- CroquetPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ CroquetPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "CroquetPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "CroquetPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -73,9 +73,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "CroquetPlugin 8 November 2016 (i)"
+ "CroquetPlugin 2 January 2017 (i)"
#else
- "CroquetPlugin 8 November 2016 (e)"
+ "CroquetPlugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/DBusPlugin/DBusPlugin.c
===================================================================
--- trunk/src/plugins/DBusPlugin/DBusPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/DBusPlugin/DBusPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,6 +1,6 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:32 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:13 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
DBusPlugin DBus-Plugin-dtl.35 uuid: 2ae30f08-4793-4acb-876b-c443a5f5e665
*/
@@ -143,9 +143,9 @@
static DBusMessageIter messageIter[DBUS_MAXIMUM_TYPE_RECURSION_DEPTH];
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "DBusPlugin 8 November 2016 (i)"
+ "DBusPlugin 2 January 2017 (i)"
#else
- "DBusPlugin 8 November 2016 (e)"
+ "DBusPlugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/DESPlugin/DESPlugin.c
===================================================================
--- trunk/src/plugins/DESPlugin/DESPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/DESPlugin/DESPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,6 +1,6 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:27 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:08 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
DESPlugin * CryptographyPlugins-rww.10 uuid: 8beefa4e-8411-4385-93ed-1c5d66481465
*/
@@ -69,9 +69,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "DESPlugin 8 November 2016 (i)"
+ "DESPlugin 2 January 2017 (i)"
#else
- "DESPlugin 8 November 2016 (e)"
+ "DESPlugin 2 January 2017 (e)"
#endif
;
static unsigned char pc1[56] = {
Modified: trunk/src/plugins/DSAPrims/DSAPrims.c
===================================================================
--- trunk/src/plugins/DSAPrims/DSAPrims.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/DSAPrims/DSAPrims.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,6 +1,6 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:27 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:08 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
DSAPlugin * CryptographyPlugins-rww.10 uuid: 8beefa4e-8411-4385-93ed-1c5d66481465
*/
@@ -67,9 +67,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "DSAPrims 8 November 2016 (i)"
+ "DSAPrims 2 January 2017 (i)"
#else
- "DSAPrims 8 November 2016 (e)"
+ "DSAPrims 2 January 2017 (e)"
#endif
;
static sqInt remainderDigitCount;
Modified: trunk/src/plugins/DropPlugin/DropPlugin.c
===================================================================
--- trunk/src/plugins/DropPlugin/DropPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/DropPlugin/DropPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:28 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:09 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- DropPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ DropPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "DropPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "DropPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -62,9 +62,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "DropPlugin 8 November 2016 (i)"
+ "DropPlugin 2 January 2017 (i)"
#else
- "DropPlugin 8 November 2016 (e)"
+ "DropPlugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/FFTPlugin/FFTPlugin.c
===================================================================
--- trunk/src/plugins/FFTPlugin/FFTPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/FFTPlugin/FFTPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:28 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:09 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- FFTPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ FFTPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "FFTPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "FFTPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -68,9 +68,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "FFTPlugin 8 November 2016 (i)"
+ "FFTPlugin 2 January 2017 (i)"
#else
- "FFTPlugin 8 November 2016 (e)"
+ "FFTPlugin 2 January 2017 (e)"
#endif
;
static sqInt nu;
Modified: trunk/src/plugins/FT2Plugin/FT2Plugin.c
===================================================================
--- trunk/src/plugins/FT2Plugin/FT2Plugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/FT2Plugin/FT2Plugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,4 +1,4 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:33 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:14 pm */
/* Automatically generated by
FT2PluginCodeGenerator * FreeType-nice.443 uuid: d8120335-a67f-4a64-94ea-90145046f7dc
from
@@ -121,9 +121,9 @@
static FT_Library library;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "FT2Plugin 8 November 2016 (i)"
+ "FT2Plugin 2 January 2017 (i)"
#else
- "FT2Plugin 8 November 2016 (e)"
+ "FT2Plugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/FileCopyPlugin/FileCopyPlugin.c
===================================================================
--- trunk/src/plugins/FileCopyPlugin/FileCopyPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/FileCopyPlugin/FileCopyPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:33 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:14 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- FileCopyPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ FileCopyPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "FileCopyPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "FileCopyPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -57,9 +57,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "FileCopyPlugin 8 November 2016 (i)"
+ "FileCopyPlugin 2 January 2017 (i)"
#else
- "FileCopyPlugin 8 November 2016 (e)"
+ "FileCopyPlugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/FilePlugin/FilePlugin.c
===================================================================
--- trunk/src/plugins/FilePlugin/FilePlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/FilePlugin/FilePlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:28 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:09 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- FilePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ FilePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "FilePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "FilePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -102,9 +102,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "FilePlugin 8 November 2016 (i)"
+ "FilePlugin 2 January 2017 (i)"
#else
- "FilePlugin 8 November 2016 (e)"
+ "FilePlugin 2 January 2017 (e)"
#endif
;
static void * sCCPfn;
Modified: trunk/src/plugins/FloatArrayPlugin/FloatArrayPlugin.c
===================================================================
--- trunk/src/plugins/FloatArrayPlugin/FloatArrayPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/FloatArrayPlugin/FloatArrayPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:28 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:09 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- FloatArrayPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ FloatArrayPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "FloatArrayPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "FloatArrayPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -72,9 +72,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "FloatArrayPlugin 8 November 2016 (i)"
+ "FloatArrayPlugin 2 January 2017 (i)"
#else
- "FloatArrayPlugin 8 November 2016 (e)"
+ "FloatArrayPlugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/FloatMathPlugin/FloatMathPlugin.c
===================================================================
--- trunk/src/plugins/FloatMathPlugin/FloatMathPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/FloatMathPlugin/FloatMathPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:28 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:09 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- FloatMathPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ FloatMathPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "FloatMathPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "FloatMathPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -79,9 +79,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "FloatMathPlugin 8 November 2016 (i)"
+ "FloatMathPlugin 2 January 2017 (i)"
#else
- "FloatMathPlugin 8 November 2016 (e)"
+ "FloatMathPlugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/GeniePlugin/GeniePlugin.c
===================================================================
--- trunk/src/plugins/GeniePlugin/GeniePlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/GeniePlugin/GeniePlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:28 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:09 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- GeniePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ GeniePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "GeniePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "GeniePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -61,9 +61,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "GeniePlugin v2.0 8 November 2016 (i)"
+ "GeniePlugin v2.0 2 January 2017 (i)"
#else
- "GeniePlugin v2.0 8 November 2016 (e)"
+ "GeniePlugin v2.0 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/HostWindowPlugin/HostWindowPlugin.c
===================================================================
--- trunk/src/plugins/HostWindowPlugin/HostWindowPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/HostWindowPlugin/HostWindowPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:34 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:14 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- HostWindowPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ HostWindowPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "HostWindowPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "HostWindowPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -66,9 +66,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "HostWindowPlugin 8 November 2016 (i)"
+ "HostWindowPlugin 2 January 2017 (i)"
#else
- "HostWindowPlugin 8 November 2016 (e)"
+ "HostWindowPlugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/ImmX11Plugin/ImmX11Plugin.c
===================================================================
--- trunk/src/plugins/ImmX11Plugin/ImmX11Plugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/ImmX11Plugin/ImmX11Plugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:34 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:15 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- ImmX11Plugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ ImmX11Plugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "ImmX11Plugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "ImmX11Plugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -84,9 +84,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "ImmX11Plugin 8 November 2016 (i)"
+ "ImmX11Plugin 2 January 2017 (i)"
#else
- "ImmX11Plugin 8 November 2016 (e)"
+ "ImmX11Plugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c
===================================================================
--- trunk/src/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:28 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:09 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- JPEGReadWriter2Plugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ JPEGReadWriter2Plugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "JPEGReadWriter2Plugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "JPEGReadWriter2Plugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -70,9 +70,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "JPEGReadWriter2Plugin 8 November 2016 (i)"
+ "JPEGReadWriter2Plugin 2 January 2017 (i)"
#else
- "JPEGReadWriter2Plugin 8 November 2016 (e)"
+ "JPEGReadWriter2Plugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/JPEGReaderPlugin/JPEGReaderPlugin.c
===================================================================
--- trunk/src/plugins/JPEGReaderPlugin/JPEGReaderPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/JPEGReaderPlugin/JPEGReaderPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:29 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:09 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- JPEGReaderPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ JPEGReaderPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "JPEGReaderPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "JPEGReaderPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -136,9 +136,9 @@
static sqInt jsReadLimit;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "JPEGReaderPlugin 8 November 2016 (i)"
+ "JPEGReaderPlugin 2 January 2017 (i)"
#else
- "JPEGReaderPlugin 8 November 2016 (e)"
+ "JPEGReaderPlugin 2 January 2017 (e)"
#endif
;
static int *residuals;
Modified: trunk/src/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c
===================================================================
--- trunk/src/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:29 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:10 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- JoystickTabletPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ JoystickTabletPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "JoystickTabletPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "JoystickTabletPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -62,9 +62,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "JoystickTabletPlugin 8 November 2016 (i)"
+ "JoystickTabletPlugin 2 January 2017 (i)"
#else
- "JoystickTabletPlugin 8 November 2016 (e)"
+ "JoystickTabletPlugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/KedamaPlugin2/KedamaPlugin2.c
===================================================================
--- trunk/src/plugins/KedamaPlugin2/KedamaPlugin2.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/KedamaPlugin2/KedamaPlugin2.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,6 +1,6 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:35 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:15 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
KedamaPlugin2 Kedama-Plugins-yo.1 uuid: 3fc7d691-0149-ba4d-a339-5d27cd44a2f8
*/
@@ -123,9 +123,9 @@
static unsigned int kedamaRandomSeed;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "KedamaPlugin2 8 November 2016 (i)"
+ "KedamaPlugin2 2 January 2017 (i)"
#else
- "KedamaPlugin2 8 November 2016 (e)"
+ "KedamaPlugin2 2 January 2017 (e)"
#endif
;
static unsigned int randA;
Modified: trunk/src/plugins/Klatt/Klatt.c
===================================================================
--- trunk/src/plugins/Klatt/Klatt.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/Klatt/Klatt.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:29 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:10 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- KlattSynthesizerPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ KlattSynthesizerPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "KlattSynthesizerPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "KlattSynthesizerPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -155,9 +155,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "Klatt 8 November 2016 (i)"
+ "Klatt 2 January 2017 (i)"
#else
- "Klatt 8 November 2016 (e)"
+ "Klatt 2 January 2017 (e)"
#endif
;
static float nlast;
Modified: trunk/src/plugins/LargeIntegers/LargeIntegers.c
===================================================================
--- trunk/src/plugins/LargeIntegers/LargeIntegers.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/LargeIntegers/LargeIntegers.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:29 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:10 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- LargeIntegersPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ LargeIntegersPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "LargeIntegersPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "LargeIntegersPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
Modified: trunk/src/plugins/LocalePlugin/LocalePlugin.c
===================================================================
--- trunk/src/plugins/LocalePlugin/LocalePlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/LocalePlugin/LocalePlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:29 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:10 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- LocalePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ LocalePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "LocalePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "LocalePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -71,9 +71,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "LocalePlugin 8 November 2016 (i)"
+ "LocalePlugin 2 January 2017 (i)"
#else
- "LocalePlugin 8 November 2016 (e)"
+ "LocalePlugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/MD5Plugin/MD5Plugin.c
===================================================================
--- trunk/src/plugins/MD5Plugin/MD5Plugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/MD5Plugin/MD5Plugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,6 +1,6 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:30 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:10 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
MD5Plugin * CryptographyPlugins-rww.10 uuid: 8beefa4e-8411-4385-93ed-1c5d66481465
*/
@@ -61,9 +61,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "MD5Plugin 8 November 2016 (i)"
+ "MD5Plugin 2 January 2017 (i)"
#else
- "MD5Plugin 8 November 2016 (e)"
+ "MD5Plugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/MIDIPlugin/MIDIPlugin.c
===================================================================
--- trunk/src/plugins/MIDIPlugin/MIDIPlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/MIDIPlugin/MIDIPlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:35 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:15 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- MIDIPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ MIDIPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "MIDIPlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "MIDIPlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -70,9 +70,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "MIDIPlugin 8 November 2016 (i)"
+ "MIDIPlugin 2 January 2017 (i)"
#else
- "MIDIPlugin 8 November 2016 (e)"
+ "MIDIPlugin 2 January 2017 (e)"
#endif
;
static sqInt simulator;
Modified: trunk/src/plugins/Matrix2x3Plugin/Matrix2x3Plugin.c
===================================================================
--- trunk/src/plugins/Matrix2x3Plugin/Matrix2x3Plugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/Matrix2x3Plugin/Matrix2x3Plugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:30 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:11 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- Matrix2x3Plugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ Matrix2x3Plugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "Matrix2x3Plugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "Matrix2x3Plugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -74,9 +74,9 @@
static double m23ResultY;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "Matrix2x3Plugin 8 November 2016 (i)"
+ "Matrix2x3Plugin 2 January 2017 (i)"
#else
- "Matrix2x3Plugin 8 November 2016 (e)"
+ "Matrix2x3Plugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c
===================================================================
--- trunk/src/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:30 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:11 pm */
/* Automatically generated by
- VMPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ VMPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- MiscPrimitivePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ MiscPrimitivePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "MiscPrimitivePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "MiscPrimitivePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -70,9 +70,9 @@
struct VirtualMachine* interpreterProxy;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "MiscPrimitivePlugin 8 November 2016 (i)"
+ "MiscPrimitivePlugin 2 January 2017 (i)"
#else
- "MiscPrimitivePlugin 8 November 2016 (e)"
+ "MiscPrimitivePlugin 2 January 2017 (e)"
#endif
;
Modified: trunk/src/plugins/Mpeg3Plugin/Mpeg3Plugin.c
===================================================================
--- trunk/src/plugins/Mpeg3Plugin/Mpeg3Plugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/Mpeg3Plugin/Mpeg3Plugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:35 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:16 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- Mpeg3Plugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ Mpeg3Plugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "Mpeg3Plugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "Mpeg3Plugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -101,9 +101,9 @@
static sqInt maximumNumberOfFilesToWatch;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "Mpeg3Plugin 8 November 2016 (i)"
+ "Mpeg3Plugin 2 January 2017 (i)"
#else
- "Mpeg3Plugin 8 November 2016 (e)"
+ "Mpeg3Plugin 2 January 2017 (e)"
#endif
;
static mpeg3_t *mpegFiles[1024+1];
Modified: trunk/src/plugins/RePlugin/RePlugin.c
===================================================================
--- trunk/src/plugins/RePlugin/RePlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/RePlugin/RePlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,10 +1,10 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:30 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:11 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
- RePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ RePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
*/
-static char __buildInfo[] = "RePlugin VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc " __DATE__ ;
+static char __buildInfo[] = "RePlugin VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69 " __DATE__ ;
@@ -79,9 +79,9 @@
static sqInt matchFlags;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "RePlugin 8 November 2016 (i)"
+ "RePlugin 2 January 2017 (i)"
#else
- "RePlugin 8 November 2016 (e)"
+ "RePlugin 2 January 2017 (e)"
#endif
;
static int netMemory = 0;
Modified: trunk/src/plugins/RomePlugin/RomePlugin.c
===================================================================
--- trunk/src/plugins/RomePlugin/RomePlugin.c 2016-12-21 23:43:50 UTC (rev 3754)
+++ trunk/src/plugins/RomePlugin/RomePlugin.c 2017-01-03 02:00:00 UTC (rev 3755)
@@ -1,6 +1,6 @@
-/* Smalltalk from Squeak4.5 with VMMaker 4.15.9 translated as C source on 8 November 2016 5:28:36 pm */
+/* Smalltalk from Squeak4.5 with VMMaker 4.16.1 translated as C source on 2 January 2017 8:53:16 pm */
/* Automatically generated by
- SmartSyntaxPluginCodeGenerator VMMaker-dtl.387 uuid: ef7038c9-f871-4632-b087-ba2f03a89ebc
+ SmartSyntaxPluginCodeGenerator VMMaker-dtl.390 uuid: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
from
RomePlugin Rome-Plugin-dtl.40 uuid: fc8fcc8b-edca-42ec-90db-24190e3e33fd
*/
@@ -199,9 +199,9 @@
static sqInt maxSurfaceID;
static const char *moduleName =
#ifdef SQUEAK_BUILTIN_PLUGIN
- "RomePlugin dtl.40 8 November 2016 (i)"
@@ Diff output truncated at 50000 characters. @@
1
0
David T. Lewis uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker-dtl.390.mcz
==================== Summary ====================
Name: VMMaker-dtl.390
Author: dtl
Time: 2 January 2017, 8:52:00.539 pm
UUID: 1fb628a6-18d2-4d86-b651-dc3b3d0cce69
Ancestors: VMMaker-dtl.389
VMMaker 4.16.1 - Support older Squeak images back to version 1.13 (circa 1996)
This set of updates is based on SqueakJS as a reference implementation that
supports a full range of images from Squeak 1.13 through the latest Spur images.
Numbered primitives are identified in the primitive table, established by the
implementations of #initializePrimitiveTable in the various images. Class
PrimitiveTableHistory has been added to document known versions of the
primitive table.
Background: In general, primitives that originated as numbered primitives in early
Squeak versions have been reimplemented as named primitives in the base
interpreter and in various interpreter plugins. The goal is to reduce or eliminate
use of numbered primitives. Support for old images therefore amounts to reassiging
the old primitive numbers to named primitives where necessary to support
running an older image.
Strategy: Check if the current image #hasClosures based on the image format
number, then provide an older set of numbered primitives suitable for a range of
pre-closure images dating back to Squeak 1.13. Do this by starting with the
default primitive table, checking at entry to interpreter() to see if this is a
pre-closure image, then installing old primitives as needed in #updatePrimitiveTable.
Interpreter primitives that require a primitive number for older images are
added to the primitive table with #installPrimitive:at: and primitives that are now
implemented in interpreter plugins are loaded and installed in the primitive
table with #installPrimitive:from:at:.
=============== Diff against VMMaker-dtl.389 ===============
Item was added:
+ ----- Method: ContextInterpreter>>initializeImageFormatVersion (in category 'image save/restore') -----
+ initializeImageFormatVersion
+ "Set the imageFormatVersionNumber. The imageFormatInitialVersion will
+ have been set at image load time. The imageFormatVerison may later by
+ updated by pushClosureCopyCopiedValuesBytecode in the case of a
+ non-closure image that is being updated automatically to use closures."
+
+ <inline: false>
+ imageFormatVersionNumber = 0 ifTrue: [
+ imageFormatInitialVersion caseOf: {
+ [ 6502 ] -> [ imageFormatVersionNumber := 6502 ] . "early 32 bit format"
+ [ 6504 ] -> [ imageFormatVersionNumber := 6504 ] . "closures"
+ [ 6505 ] -> [ imageFormatVersionNumber := 6504 ] . "float order was restored during image load"
+ [ 68000 ] -> [ imageFormatVersionNumber := 68000 ] . "early 64 bit format"
+ [ 68002 ] -> [ imageFormatVersionNumber := 68002 ] . "closures"
+ [ 68003 ] -> [ imageFormatVersionNumber := 68002 ] "float order was restored during image load"
+ } ].
+ !
Item was removed:
- ----- Method: ContextInterpreter>>initializeImageFormatVersionIfNeeded (in category 'image save/restore') -----
- initializeImageFormatVersionIfNeeded
- "Set the imageFormatVersionNumber to a default value for this word
- size. Normally this will have been set at image load time, but set it to
- a reasonable default if this has not been done."
-
- <inline: false>
- imageFormatVersionNumber = 0
- ifTrue: [objectMemory bytesPerWord == 8
- ifFalse: [imageFormatVersionNumber := 6502]
- ifTrue: [imageFormatVersionNumber := 68000]]
- !
Item was changed:
----- Method: ContextInterpreter>>interpret (in category 'interpreter shell') -----
interpret
"This is the main interpreter loop. It normally loops forever, fetching and executing bytecodes. When running in the context of a browser plugin VM, however, it must return control to the browser periodically. This should done only when the state of the currently running Squeak thread is safely stored in the object heap. Since this is the case at the moment that a check for interrupts is performed, that is when we return to the browser if it is time to do so. Interrupt checks happen quite frequently."
<inline: false> "should not be inlined into any senders"
+ self initializeImageFormatVersion.
- "Update the primitive table as required for the current running image."
self updatePrimitiveTable..
+ self browserPluginInitialiseIfNeeded. "record entry time when running as a browser plug-in"
- "record entry time when running as a browser plug-in"
- self browserPluginInitialiseIfNeeded.
- self initializeImageFormatVersionIfNeeded.
self internalizeIPandSP.
self fetchNextBytecode.
[true] whileTrue: [self dispatchOn: currentBytecode in: BytecodeTable].
localIP := localIP - 1. "undo the pre-increment of IP before returning"
self externalizeIPandSP.
!
Item was changed:
VMClass subclass: #InterpreterPrimitives
+ instanceVariableNames: 'objectMemory primitiveTable primFailCode argumentCount interruptKeycode newMethod preemptionYields'
- instanceVariableNames: 'objectMemory primitiveTable primitiveTableUpdated primFailCode argumentCount interruptKeycode newMethod preemptionYields'
classVariableNames: 'CrossedX EndOfRun InterpreterSourceVersion MillisecondClockMask PrimitiveExternalCallIndex PrimitiveTable'
poolDictionaries: 'VMObjectIndices VMSqueakV3ObjectRepresentationConstants'
category: 'VMMaker-Interpreter'!
!InterpreterPrimitives commentStamp: 'dtl 4/14/2013 23:16' prior: 0!
InterpreterPrimitives implements most of the VM's core primitives. It is the root of the interpreter hierarchy so as to share the core primitives amongst the various interpreters.
Instance Variables
argumentCount: <Integer>
messageSelector: <Integer>
newMethod: <Integer>
nextProfileTick: <Integer>
objectMemory: <ObjectMemory> (simulation only)
preemptionYields: <Boolean>
primFailCode: <Integer>
profileMethod: <Integer>
profileProcess: <Integer>
profileSemaphore: <Integer>
argumentCount
- the number of arguments of the current message
messageSelector
- the oop of the selector of the current message
newMethod
- the oop of the result of looking up the current message
nextProfileTick
- the millisecond clock value of the next profile tick (if profiling is in effect)
objectMemory
- the memory manager and garbage collector that manages the heap
preemptionYields
- a boolean controlling the process primitives. If true (old, incorrect, blue-book semantics) a preempted process is sent to the back of its run-queue. If false, a process preempted by a higher-priority process is put back at the head of its run queue, hence preserving cooperative scheduling within priorities.
primFailCode
- primtiive success/failure flag, 0 for success, otherwise the reason code for failure
profileMethod
- the oop of the method at the time nextProfileTick was reached
profileProcess
- the oop of the activeProcess at the time nextProfileTick was reached
profileSemaphore
- the oop of the semaphore to signal when nextProfileTick is reached
!
Item was added:
+ ----- Method: InterpreterPrimitives>>hasClosures (in category 'primitive table') -----
+ hasClosures
+ "True if the current image requires full closure support."
+
+ ^self imageFormatVersion ~= 6502 and: [self imageFormatVersion ~= 68000].!
Item was added:
+ ----- Method: InterpreterPrimitives>>installPrimitive:from:at: (in category 'primitive table') -----
+ installPrimitive: selector from: moduleName at: anInteger
+ "The primitive table is normally initialized at compile time. This allows an entry
+ in the table to be istalled at runtime. If the function cannot be loaded from the
+ named module, then let the numbered primitive fail."
+
+ <inline: false> "for readability"
+ <var: 'fn' declareC: 'void (*fn)(void)'>
+ | fn |
+ fn := self ioLoadFunction: selector From: moduleName.
+ fn = nil
+ ifTrue: [ primitiveTable at: anInteger put: #primitiveFail ]
+ ifFalse: [ primitiveTable at: anInteger put: fn ].
+ !
Item was changed:
----- Method: InterpreterPrimitives>>updatePrimitiveTable (in category 'primitive table') -----
updatePrimitiveTable
"Make any run time updates to the primitive table that may be required for supporting
the current running image. May be called by an interpreter that determines at run time
+ that it needs to provide support for an older image.
- that it neeces to provide support for an older image."
+ References: The SqueakJS dispatch table, which is known to run the full range of Squeak
+ images, is used as a reference, along with comparison to the Squeak VM table as of
+ January 2005 from VMMaker-tpr.22, which was the last version prior to converting
+ images to support full closures (dtl Dec 2016)"
- "As of VMMaker-dtl.387 8 November 2016 (VMMaker 4.15.9), these primitives were
- removed from the primitive table for consistency with recent Cog/Spur. They are still
- required for running many older Squeak images. Install them here to support those
- images."
+ | primitiveTableUpdated |
- "TODO Need a general way to set up the table at runtime for a range of images"
-
<inline: false>
+ <var: #primitiveTableUpdated type: 'static int'>
+ primitiveTableUpdated == true ifFalse: [
-
- primitiveTableUpdated = true ifFalse: [
primitiveTableUpdated := true.
+ self useOldPrimitives ifTrue: [
+ self installPrimitive: #primitiveNext at: 65.
+ self installPrimitive: #primitiveNextPut at: 66.
+ self installPrimitive: #primitiveAtEnd at: 67.
+
+ self installPrimitive: #primitiveBlockCopy at: 80.
+ self installPrimitive: #primitiveValue at: 81.
+ self installPrimitive: #primitiveValueWithArgs at: 82.
+
+ self installPrimitive: 'primitiveCopyBits' from: 'BitBltPlugin' at: 96.
+
+ self installPrimitive: #primitiveValueUninterruptably at: 123.
+
+ self installPrimitive: 'primitiveReadJoystick' from: 'JoystickTabletPlugin' at: 146.
+
+ self installPrimitive: 'primitiveWarpBits' from: 'BitBltPlugin' at: 147.
+
+ self installPrimitive: 'primitiveFileAtEnd' from: 'FilePlugin' at: 150.
+ self installPrimitive: 'primitiveFileClose' from: 'FilePlugin' at: 151.
+ self installPrimitive: 'primitiveFileGetPosition' from: 'FilePlugin' at: 152.
+ self installPrimitive: 'primitiveFileOpen' from: 'FilePlugin' at: 153.
+ self installPrimitive: 'primitiveFileRead' from: 'FilePlugin' at: 154.
+ self installPrimitive: 'primitiveFileSetPosition' from: 'FilePlugin' at: 155.
+ self installPrimitive: 'primitiveFileDelete' from: 'FilePlugin' at: 156.
+ self installPrimitive: 'primitiveFileSize' from: 'FilePlugin' at: 157.
+ self installPrimitive: 'primitiveFileWrite' from: 'FilePlugin' at: 158.
+ self installPrimitive: 'primitiveFileRename' from: 'FilePlugin' at: 159.
+ self installPrimitive: 'primitiveDirectoryCreate' from: 'FilePlugin' at: 160.
+ self installPrimitive: 'primitiveDirectoryDelimitor' from: 'FilePlugin'at: 161.
+ self installPrimitive: 'primitiveDirectoryLookup' from: 'FilePlugin' at: 162.
+ self installPrimitive: 'primitiveDirectoryDelete' from: 'FilePlugin' at: 163.
+ self installPrimitive: 'primitiveDirectorySetMacTypeAndCreator' from: 'FilePlugin' at: 169.
+
+ self installPrimitive: 'primitiveSoundStart' from: 'SoundPlugin' at: 170.
+ self installPrimitive: 'primitiveSoundStartWithSemaphore' from: 'SoundPlugin' at: 171.
+ self installPrimitive: 'primitiveSoundStop' from: 'SoundPlugin' at: 172.
+ self installPrimitive: 'primitiveSoundAvailableSpace' from: 'SoundPlugin' at: 173.
+ self installPrimitive: 'primitiveSoundPlaySamples' from: 'SoundPlugin' at: 174.
+ self installPrimitive: 'primitiveSoundPlaySilence' from: 'SoundPlugin' at: 175.
+ self installPrimitive: 'primWaveTableSoundmixSampleCountintostartingAtpan' from: 'SoundPlugin' at: 176.
+ self installPrimitive: 'primFMSoundmixSampleCountintostartingAtpan' from: 'SoundPlugin' at: 177.
+ self installPrimitive: 'primPluckedSoundmixSampleCountintostartingAtpan' from: 'SoundPlugin' at: 178.
+ self installPrimitive: 'primSampledSoundmixSampleCountintostartingAtpan' from: 'SoundPlugin' at: 179.
+ self installPrimitive: 'primitiveMixFMSound' from: 'SoundPlugin' at: 180.
+ self installPrimitive: 'primitiveMixPluckedSound' from: 'SoundPlugin' at: 181.
+ self installPrimitive: 'oldprimSampledSoundmixSampleCountintostartingAtleftVolrightVol' from: 'SoundPlugin' at: 182.
+ self installPrimitive: 'primitiveApplyReverb' from: 'SoundPlugin' at: 183.
+ self installPrimitive: 'primitiveMixLoopedSampledSound' from: 'SoundPlugin' at: 184.
+ self installPrimitive: 'primitiveMixSampledSound' from: 'SoundPlugin' at: 185.
+
+ self installPrimitive: 'primitiveSoundInsertSamples' from: 'SoundPlugin' at: 189.
+
+ self installPrimitive: 'primitiveSoundStopRecording' from: 'SoundPlugin' at: 191.
+ self installPrimitive: 'primitiveSoundGetRecordingSampleRate' from: 'SoundPlugin' at: 192.
+ self installPrimitive: 'primitiveSoundRecordSamples' from: 'SoundPlugin' at: 193.
+ self installPrimitive: 'primitiveSoundSetRecordLevel' from: 'SoundPlugin' at: 194.
+
+ self installPrimitive: 'primitiveInitializeNetwork' from: 'SocketPlugin' at: 200.
+ self installPrimitive: 'primitiveResolverStartNameLookup' from: 'SocketPlugin' at: 201.
+ self installPrimitive: 'primitiveResolverNameLookupResult' from: 'SocketPlugin' at: 202.
+ self installPrimitive: 'primitiveResolverStartAddressLookup' from: 'SocketPlugin' at: 203.
+ self installPrimitive: 'primitiveResolverAddressLookupResult' from: 'SocketPlugin' at: 204.
+ self installPrimitive: 'primitiveResolverAbortLookup' from: 'SocketPlugin' at: 205.
+ self installPrimitive: 'primitiveResolverLocalAddress' from: 'SocketPlugin' at: 206.
+ self installPrimitive: 'primitiveResolverStatus' from: 'SocketPlugin' at: 207.
+ self installPrimitive: 'primitiveResolverError' from: 'SocketPlugin' at: 208.
+ self installPrimitive: 'primitiveSocketCreate' from: 'SocketPlugin' at: 209.
+ self installPrimitive: 'primitiveSocketDestroy' from: 'SocketPlugin' at: 210.
+ self installPrimitive: 'primitiveSocketConnectionStatus' from: 'SocketPlugin' at: 211.
+ self installPrimitive: 'primitiveSocketError' from: 'SocketPlugin' at: 212.
+ self installPrimitive: 'primitiveSocketLocalAddress' from: 'SocketPlugin' at: 213.
+ self installPrimitive: 'primitiveSocketLocalPort' from: 'SocketPlugin' at: 214.
+ self installPrimitive: 'primitiveSocketRemoteAddress' from: 'SocketPlugin' at: 215.
+ self installPrimitive: 'primitiveSocketRemotePort' from: 'SocketPlugin' at: 216.
+ self installPrimitive: 'primitiveSocketConnectToPort' from: 'SocketPlugin' at: 217.
+ self installPrimitive: 'primitiveSocketListenOnPort' from: 'SocketPlugin' at: 218.
+ self installPrimitive: 'primitiveSocketCloseConnection' from: 'SocketPlugin' at: 219.
+ self installPrimitive: 'primitiveSocketAbortConnection' from: 'SocketPlugin' at: 220.
+ self installPrimitive: 'primitiveSocketReceiveDataBufCount' from: 'SocketPlugin' at: 221.
+ self installPrimitive: 'primitiveSocketReceiveDataAvailable' from: 'SocketPlugin' at: 222.
+ self installPrimitive: 'primitiveSocketSendDataBufCount' from: 'SocketPlugin' at: 223.
+ self installPrimitive: 'primitiveSocketSendDone' from: 'SocketPlugin' at: 224.
+
+ self installPrimitive: 'primitiveDecompressFromByteArray' from: 'MiscPrimitivePlugin' at: 234.
+ self installPrimitive: 'primitiveCompareString' from: 'MiscPrimitivePlugin' at: 235.
+ self installPrimitive: 'primitiveConvert8BitSigned' from: 'MiscPrimitivePlugin' at: 236.
+ self installPrimitive: 'primitiveCompressToByteArray' from: 'MiscPrimitivePlugin' at: 237.
+
+ self installPrimitive: 'primitiveSerialPortOpen' from: 'SerialPlugin' at: 238.
+ self installPrimitive: 'primitiveSerialPortClose' from: 'SerialPlugin' at: 239.
+ self installPrimitive: 'primitiveSerialPortWrite' from: 'SerialPlugin' at: 240.
+ self installPrimitive: 'primitiveSerialPortRead' from: 'SerialPlugin' at: 241.
+
+ self installPrimitive: 'primitiveTranslateStringWithTable' from: 'MiscPrimitivePlugin' at: 243.
+ self installPrimitive: 'primitiveFindFirstInString' from: 'MiscPrimitivePlugin' at: 244.
+ self installPrimitive: 'primitiveIndexOfAsciiInString' from: 'MiscPrimitivePlugin' at: 245.
+ self installPrimitive: 'primitiveFindSubstring' from: 'MiscPrimitivePlugin' at: 246.
+ ]
- self installPrimitive: #primitiveBlockCopy at: 80.
- self installPrimitive: #primitiveValue at: 81.
- self installPrimitive: #primitiveValueWithArgs at: 82.
- self installPrimitive: #primitiveValueUninterruptably at: 123.
]
!
Item was added:
+ ----- Method: InterpreterPrimitives>>useOldPrimitives (in category 'primitive table') -----
+ useOldPrimitives
+ "The primitives table changes over time. An image may require a specific set
+ of numbered primitives in order to function as originally intended, but in general
+ the images prior to the introduction of full block closures can run successfully with
+ one set of older primitives, and later images can use a more recent set.
+
+ Answer true if the older set of primitives should be used."
+
+ ^self hasClosures not
+ !
Item was added:
+ Object subclass: #PrimitiveTableHistory
+ instanceVariableNames: ''
+ classVariableNames: 'MaxPrimitiveIndex PrimitiveTable'
+ poolDictionaries: ''
+ category: 'VMMaker-Interpreter'!
+
+ !PrimitiveTableHistory commentStamp: 'dtl 12/26/2016 10:15' prior: 0!
+ PrimitiveTableHistory shows history and differences between versions of the primitive table.
+
+ Browse all recorded changes:
+ "PrimitiveTableHistory enumerate"
+
+ Changes from last pre-closure version to present:
+ "PrimitiveTableHistory differenceFrom: self lastPreClosuresVersion to: PrimitiveTableHistory current"
+
+ Early versions through Squeak 3.0 are extracted from changes and sources files
+ found on files.squeak.org. After Squeak 3.0 the VM was maintained externally.
+ Beginning in 2004, the VM was maintained in Monticello. Versions between Feb
+ 2001 and Feb 2004 are not recorded here.
+
+ Versions present in the source.squeak.org VMMaker repository:
+
+ VMMaker-tpr.2 tpr 2/11/2004 19:48
+ VMMaker-tpr.4 tpr 3/24/2004 21:25 initialization
+ VMMaker-tpr.9 ajh 7/19/2004 14:37 initialization
+ VMMaker-tpr.22 JMM 1/27/2005 15:05 initialization
+ VMMaker-eem.114 eem 2/18/2009 10:00 initialization
+ VMMaker-dtl.209 dtl 12/11/2010 13:08 initialization
+ VMMaker-dtl.256 dtl 10/15/2011 18:48 initialization
+ MMaker-dtl.260 dtl 11/25/2011 12:32 initialization
+ VMMaker-dtl.264 dtl 1/30/2012 22:00 initialization
+ VMMaker-dtl.278 dtl 7/4/2012 20:04 initialization
+ VMMaker-dtl.285 dtl 8/9/2012 07:55 initialization
+ VMMaker-dtl.295 dtl 1/5/2013 09:39 initialization
+ VMMaker-dtl.305 eem 3/14/2013 15:22 initialization
+ VMMaker-dtl.374 dtl 1/20/2016 20:08 initialization
+ VMMaker-dtl.375 dtl 1/23/2016 16:11 initialization
+ ** change to ContextInterpreter
+ VMMaker-dtl.381 dtl 1/23/2016 16:11 initialization
+ VMMaker-dtl.386 dtl 1/23/2016 16:11 initialization
+ ** change back to Interpreter
+ VMMaker-dtl.387 dtl 5/1/2016 21:20 initialization
+ VMMaker-dtl.388 dtl 5/1/2016 21:20 initialization
+ ** start runtime overrides here
+ VMMaker-dtl.389 dtl 12/21/2016 16:54 initialization (with udpdatePrimitiveTable dtl 12/21/2016 16:58 primitive table )!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>current (in category 'significant versions') -----
+ current
+ "Most recent version, which may possibly be overridden at runtime to provide
+ backward compatibility. This may be a version compatible with latest Cog/Spur
+ but not necessarily suitable for interpreter VM use."
+
+ "self current"
+ ^self table20161221!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>differenceFrom:to: (in category 'transforming') -----
+ differenceFrom: table1 to: table2
+
+ ^{ table1 difference: table2 . table2 difference: table1 }
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>enumerate (in category 'enumerating differences') -----
+ enumerate
+ "For each change to the primitive table beginning with the version from
+ Squeak 1.1, show the old and new table entiries."
+
+ "self enumerate"
+
+ | tables forwardDict reverseDict differenceDict |
+ forwardDict := Dictionary new.
+ tables := (self class selectors select: [ :sel | (sel beginsWith: #table) and: [ (sel includes: $: ) not] ]) sort.
+ tables inject: nil into: [ :last :sel |
+ last ifNotNil: [
+ forwardDict at: last -> sel
+ put: ((self perform: last) difference: (self perform: sel))].
+ sel ].
+ reverseDict := Dictionary new.
+ tables := tables reversed.
+ tables inject: nil into: [ :last :sel |
+ last ifNotNil: [
+ reverseDict at: sel -> last
+ put: ((self perform: last) difference: (self perform: sel))].
+ sel ].
+ differenceDict := Dictionary new.
+ forwardDict keysDo: [ :key |
+ differenceDict at: key put: {(forwardDict at: key) . (reverseDict at: key)}].
+ ^ differenceDict.
+
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>enumerateDifferencesByVersion (in category 'enumerating differences') -----
+ enumerateDifferencesByVersion
+
+ "self enumerateDifferencesByVersion"
+
+ | tables dict |
+ dict := Dictionary new.
+ tables := (self class selectors select: [ :sel | (sel beginsWith: #table) and: [ (sel includes: $: ) not] ]) sort.
+ tables inject: nil into: [ :last :sel |
+ last ifNotNil: [
+ dict at: last -> sel
+ put: ((self perform: last) difference: (self perform: sel))].
+ sel ].
+ ^ dict.
+
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>enumerateDifferencesVersusLatestForInterpreterVM (in category 'enumerating differences') -----
+ enumerateDifferencesVersusLatestForInterpreterVM
+
+ "self enumerateDifferencesVersusLatestForInterpreterVM"
+
+ | tables referencePoint dict |
+ dict := Dictionary new.
+ tables := (self class selectors select: [ :sel | (sel beginsWith: #table) and: [ (sel includes: $: ) not] ]) sort reversed.
+ referencePoint := self latestForInterpreterVM.
+ tables do: [ :table | dict at: table put: ((self perform: table) difference: referencePoint ) ].
+ ^ dict.
+
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>firstClosuresVersion (in category 'significant versions') -----
+ firstClosuresVersion
+ "The primitive table corresponding to the first closures enabled image"
+
+ "self firstClosuresVersion"
+ "self differenceFrom: self lastPreClosuresVersion to: self firstClosuresVersion"
+ "self differenceFrom: self firstClosuresVersion to: self latestForInterpreterVM"
+
+ ^self table20090218!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>firstKnownVersion (in category 'significant versions') -----
+ firstKnownVersion
+ "Extracted from the changes file of Squeak 1.1"
+
+ "self firstKnownVersion"
+ "self differenceFrom: self firstKnownVersion to: self firstVersionInRepository"
+
+ ^self table19961028!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>firstVersionInRepository (in category 'significant versions') -----
+ firstVersionInRepository
+ "The primitive table immediately prior to the first closures enabled image"
+
+ "self firstVersionInRepository"
+ "self differenceFrom: self firstVersionInRepository to: self latestForInterpreterVM"
+
+ ^self table20040211!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19961028Squeak11 (in category 'initialization history') -----
+ initializePrimitiveTable19961028Squeak11
+ "From changes file of Squeak 1.1, and remaining in effect through Squeak 1.17"
+
+ "'From Squeak 1.1 of September 21, 1996 on 23 September 1996 at 8:34:59 pm'!!"
+ "initializePrimitiveTable"
+ "Interpreter initializePrimitiveTable"
+ "Note: This table will be used to generate a C switch statement."
+
+ PrimitiveTable _ Array new: 256.
+ self table: PrimitiveTable from:
+ #(
+ "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail)
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 59 primitiveFail)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveFail) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveFail) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveFail) "Blue Book: primitiveTimeWordsInto"
+ (99 primitiveFail) "Blue Book: primitiveTickWordsInto"
+ (100 primitiveFail) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFail)
+ (117 primitiveFail)
+ (118 primitiveFail)
+ (119 primitiveFail)
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+ (126 primitiveFail)
+ (127 primitiveFail)
+
+ "AppleSmalltalk Primitives Start Here"
+
+ "Apple Miscellaneous Primitives (128-149)"
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 149 primitiveFail)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveFail)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence)
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 199 primitiveFail)
+
+ "Unimplemented Primitives (200-249)"
+ (200 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveFail)
+ (255 primitiveFail)
+ ).!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19970118Squeak118 (in category 'initialization history') -----
+ initializePrimitiveTable19970118Squeak118
+ "From changes file of Squeak 1.18"
+ "initializePrimitiveTable"
+ "Interpreter initializePrimitiveTable"
+ "Note: This table will be used to generate a C switch statement."
+
+ PrimitiveTable _ Array new: 256.
+ self table: PrimitiveTable from:
+ #(
+ "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail)
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveFail) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveFail) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveFail) "Blue Book: primitiveTimeWordsInto"
+ (99 primitiveFail) "Blue Book: primitiveTickWordsInto"
+ (100 primitiveFail) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFail)
+ (117 primitiveFail)
+ (118 primitiveFail)
+ (119 primitiveFail)
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+ (126 primitiveFail)
+ (127 primitiveFail)
+
+ "AppleSmalltalk Primitives Start Here"
+
+ "Apple Miscellaneous Primitives (128-149)"
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveFail)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveFail)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence)
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 199 primitiveFail)
+
+ "Unimplemented Primitives (200-249)"
+ (200 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveFail)
+ (255 primitiveFail)
+ ).!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19970617jm (in category 'initialization history') -----
+ initializePrimitiveTable19970617jm
+ "From changes file of Squeak 1.20"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'jm 6/17/97 07:07'!!
+ initializePrimitiveTable"
+ "Interpreter initializePrimitiveTable"
+ "Note: This table will be used to generate a C switch statement."
+
+ PrimitiveTable _ Array new: 256.
+ self table: PrimitiveTable from:
+ #(
+ "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail)
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveFail) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveFail) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveFail) "Blue Book: primitiveTimeWordsInto"
+ (99 primitiveFail) "Blue Book: primitiveTickWordsInto"
+ (100 primitiveFail) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFail)
+ (117 primitiveFail)
+ (118 primitiveFail)
+ (119 primitiveFail)
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+ (126 primitiveFail)
+ (127 primitiveFail)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveFail)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence)
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 229 primitiveFail)
+
+ "Unimplemented Primitives (230-249)"
+ (230 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveFail)
+ (255 primitiveFail)
+ ).!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19970918jm (in category 'initialization history') -----
+ initializePrimitiveTable19970918jm
+ "From changes file of Squeak 1.22"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'jm 9/18/97 21:09'!!
+ initializePrimitiveTable"
+ "Interpreter initializePrimitiveTable"
+ "This table generates a C switch statement."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 699.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex+1.
+ self table: PrimitiveTable from:
+ #(
+ "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail)
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveFail) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveFail) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveFail) "Blue Book: primitiveTimeWordsInto"
+ (99 primitiveFail) "Blue Book: primitiveTickWordsInto"
+ (100 primitiveFail) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFail)
+ (117 primitiveFail)
+ (118 primitiveFail)
+ (119 primitiveFail)
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+ (126 primitiveFail)
+ (127 primitiveFail)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveSoundStartWithSemaphore)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence) "obsolete; will be removed in the future"
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 188 primitiveFail)
+ (189 primitiveSoundInsertSamples)
+ (190 primitiveSoundStartRecording)
+ (191 primitiveSoundStopRecording)
+ (192 primitiveSoundGetRecordingSampleRate)
+ (193 primitiveSoundRecordSamples)
+ (194 primitiveSoundSetRecordLevel)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail)
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "Unassigned Primitives"
+ (520 primitiveBeep) "test of new primitive indices"
+ (521 699 primitiveFail)
+ ).!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19980114ikp (in category 'initialization history') -----
+ initializePrimitiveTable19980114ikp
+ "From changes file of Squeak 13"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'ikp 1/14/98 21:00'!!
+ initializePrimitiveTable"
+ "Interpreter initializePrimitiveTable"
+ "This table generates a C switch statement."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex+1.
+ self table: PrimitiveTable from:
+ #(
+ "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail)
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveFail) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveFail) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveFail) "Blue Book: primitiveTimeWordsInto"
+ (99 primitiveFail) "Blue Book: primitiveTickWordsInto"
+ (100 primitiveFail) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFail)
+ (117 primitiveFail)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+ (126 primitiveFail)
+ (127 primitiveFail)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveSoundStartWithSemaphore)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence) "obsolete; will be removed in the future"
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 primFMSoundmixSampleCountintostartingAtleftVolrightVol)
+ (181 primPluckedSoundmixSampleCountintostartingAtleftVolrightVol)
+ (182 primSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (183 188 primitiveFail)
+ (189 primitiveSoundInsertSamples)
+ (190 primitiveSoundStartRecording)
+ (191 primitiveSoundStopRecording)
+ (192 primitiveSoundGetRecordingSampleRate)
+ (193 primitiveSoundRecordSamples)
+ (194 primitiveSoundSetRecordLevel)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail)
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "Unassigned Primitives"
+ (520 primitiveBeep) "test of new primitive indices"
+ (521 700 primitiveFail)
+ ).!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19980121jm (in category 'initialization history') -----
+ initializePrimitiveTable19980121jm
+ "From changes file of Squeak 131"
+
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'jm 1/21/98 17:47'!!
+ initializePrimitiveTable"
+ "Interpreter initializePrimitiveTable"
+ "This table generates a C switch statement."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex+1.
+ self table: PrimitiveTable from:
+ #(
+ "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail)
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveFail) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveFail) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveFail) "Blue Book: primitiveTimeWordsInto"
+ (99 primitiveFail) "Blue Book: primitiveTickWordsInto"
+ (100 primitiveFail) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFail)
+ (117 primitiveFail)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+ (126 primitiveFail)
+ (127 primitiveFail)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveSoundStartWithSemaphore)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence) "obsolete; will be removed in the future"
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 primFMSoundmixSampleCountintostartingAtleftVolrightVol)
+ (181 primPluckedSoundmixSampleCountintostartingAtleftVolrightVol)
+ (182 primSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (183 primReverbSoundapplyReverbTostartingAtcount)
+ (184 188 primitiveFail)
+ (189 primitiveSoundInsertSamples)
+ (190 primitiveSoundStartRecording)
+ (191 primitiveSoundStopRecording)
+ (192 primitiveSoundGetRecordingSampleRate)
+ (193 primitiveSoundRecordSamples)
+ (194 primitiveSoundSetRecordLevel)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail)
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "Unassigned Primitives"
+ (520 primitiveBeep) "test of new primitive indices"
+ (521 700 primitiveFail)
+ ).!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19980518jm (in category 'initialization history') -----
+ initializePrimitiveTable19980518jm
+ "From sources file of Squeak 2.0 SqueakV2.sources"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'jm 5/18/1998 13:01'!!
+ initializePrimitiveTable"
+ "This table generates a C switch statement for primitive dispatching."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail)
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveFail) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveFail) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveFail) "Blue Book: primitiveTimeWordsInto"
+ (99 primitiveFail) "Blue Book: primitiveTickWordsInto"
+ (100 primitiveFail) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFail)
+ (117 primitiveFail)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveSoundStartWithSemaphore)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence) "obsolete; will be removed in the future"
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 primFMSoundmixSampleCountintostartingAtleftVolrightVol)
+ (181 primPluckedSoundmixSampleCountintostartingAtleftVolrightVol)
+ (182 primSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (183 primReverbSoundapplyReverbTostartingAtcount)
+ (184 188 primitiveFail)
+ (189 primitiveSoundInsertSamples)
+ (190 primitiveSoundStartRecording)
+ (191 primitiveSoundStopRecording)
+ (192 primitiveSoundGetRecordingSampleRate)
+ (193 primitiveSoundRecordSamples)
+ (194 primitiveSoundSetRecordLevel)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primBitmapdecompressfromByteArrayat)
+ (235 primStringcomparewithcollated)
+ (236 primSampledSoundconvert8bitSignedFromto16Bit)
+ (237 primBitmapcompresstoByteArray)
+ (238 primitiveSerialPortOpen)
+ (239 primitiveSerialPortClose)
+ (240 primitiveSerialPortWrite)
+ (241 primitiveSerialPortRead)
+ (242 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail)
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539)"
+ (520 primitiveFail)
+ (521 primitiveMIDIClosePort)
+ (522 primitiveMIDIGetClock)
+ (523 primitiveMIDIGetPortCount)
+ (524 primitiveMIDIGetPortDirectionality)
+ (525 primitiveMIDIGetPortName)
+ (526 primitiveMIDIOpenPort)
+ (527 primitiveMIDIParameterGetOrSet)
+ (528 primitiveMIDIRead)
+ (529 primitiveMIDIWrite)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Unassigned Primitives"
+ (540 700 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19980628jm (in category 'initialization history') -----
+ initializePrimitiveTable19980628jm
+ "From changes file of Squeak 2.1"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'jm 6/28/1998 12:49'!!
+ initializePrimitiveTable"
+ "This table generates a C switch statement for primitive dispatching."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveFail) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveFail) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveFail) "Blue Book: primitiveTimeWordsInto"
+ (99 primitiveFail) "Blue Book: primitiveTickWordsInto"
+ (100 primitiveFail) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFail)
+ (117 primitiveFail)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveSoundStartWithSemaphore)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence) "obsolete; will be removed in the future"
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 primFMSoundmixSampleCountintostartingAtleftVolrightVol)
+ (181 primPluckedSoundmixSampleCountintostartingAtleftVolrightVol)
+ (182 primSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (183 primReverbSoundapplyReverbTostartingAtcount)
+ (184 188 primitiveFail)
+ (189 primitiveSoundInsertSamples)
+ (190 primitiveSoundStartRecording)
+ (191 primitiveSoundStopRecording)
+ (192 primitiveSoundGetRecordingSampleRate)
+ (193 primitiveSoundRecordSamples)
+ (194 primitiveSoundSetRecordLevel)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primBitmapdecompressfromByteArrayat)
+ (235 primStringcomparewithcollated)
+ (236 primSampledSoundconvert8bitSignedFromto16Bit)
+ (237 primBitmapcompresstoByteArray)
+ (238 primitiveSerialPortOpen)
+ (239 primitiveSerialPortClose)
+ (240 primitiveSerialPortWrite)
+ (241 primitiveSerialPortRead)
+ (242 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail)
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539)"
+ (520 primitiveFail)
+ (521 primitiveMIDIClosePort)
+ (522 primitiveMIDIGetClock)
+ (523 primitiveMIDIGetPortCount)
+ (524 primitiveMIDIGetPortDirectionality)
+ (525 primitiveMIDIGetPortName)
+ (526 primitiveMIDIOpenPort)
+ (527 primitiveMIDIParameterGetOrSet)
+ (528 primitiveMIDIRead)
+ (529 primitiveMIDIWrite)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives"
+ (540 primitiveAsyncFileClose)
+ (541 primitiveAsyncFileOpen)
+ (542 primitiveAsyncFileReadResult)
+ (543 primitiveAsyncFileReadStart)
+ (544 primitiveAsyncFileWriteResult)
+ (545 primitiveAsyncFileWriteStart)
+
+ "Unassigned Primitives"
+ (546 700 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19980922jm (in category 'initialization history') -----
+ initializePrimitiveTable19980922jm
+ "From changes file of Squeak 2.2"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'jm 9/22/1998 16:52'!!
+ initializePrimitiveTable"
+ "This table generates a C switch statement for primitive dispatching."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveFail) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveFail) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveFail) "Blue Book: primitiveTimeWordsInto"
+ (99 primitiveFail) "Blue Book: primitiveTickWordsInto"
+ (100 primitiveFail) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFail)
+ (117 primitiveFail)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveSoundStartWithSemaphore)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence) "obsolete; will be removed in the future"
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 primFMSoundmixSampleCountintostartingAtleftVolrightVol)
+ (181 primPluckedSoundmixSampleCountintostartingAtleftVolrightVol)
+ (182 primSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (183 primReverbSoundapplyReverbTostartingAtcount)
+ (184 primLoopedSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (185 188 primitiveFail)
+ (189 primitiveSoundInsertSamples)
+ (190 primitiveSoundStartRecording)
+ (191 primitiveSoundStopRecording)
+ (192 primitiveSoundGetRecordingSampleRate)
+ (193 primitiveSoundRecordSamples)
+ (194 primitiveSoundSetRecordLevel)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primBitmapdecompressfromByteArrayat)
+ (235 primStringcomparewithcollated)
+ (236 primSampledSoundconvert8bitSignedFromto16Bit)
+ (237 primBitmapcompresstoByteArray)
+ (238 primitiveSerialPortOpen)
+ (239 primitiveSerialPortClose)
+ (240 primitiveSerialPortWrite)
+ (241 primitiveSerialPortRead)
+ (242 primitiveFail)
+ (243 primStringtranslatefromtotable)
+ (244 primStringfindFirstInStringinSetstartingAt)
+ (245 primStringindexOfAsciiinStringstartingAt)
+ (246 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail)
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539)"
+ (520 primitiveFail)
+ (521 primitiveMIDIClosePort)
+ (522 primitiveMIDIGetClock)
+ (523 primitiveMIDIGetPortCount)
+ (524 primitiveMIDIGetPortDirectionality)
+ (525 primitiveMIDIGetPortName)
+ (526 primitiveMIDIOpenPort)
+ (527 primitiveMIDIParameterGetOrSet)
+ (528 primitiveMIDIRead)
+ (529 primitiveMIDIWrite)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives"
+ (540 primitiveAsyncFileClose)
+ (541 primitiveAsyncFileOpen)
+ (542 primitiveAsyncFileReadResult)
+ (543 primitiveAsyncFileReadStart)
+ (544 primitiveAsyncFileWriteResult)
+ (545 primitiveAsyncFileWriteStart)
+
+ "Unassigned Primitives"
+ (546 700 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19990128di (in category 'initialization history') -----
+ initializePrimitiveTable19990128di
+ "From changes file of Squeak 2.3"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'di 1/11/1999 10:44'!!
+ initializePrimitiveTable"
+ "This table generates a C switch statement for primitive dispatching."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveFail) "Blue Book: primitiveTimeWordsInto"
+ (99 primitiveFail) "Blue Book: primitiveTickWordsInto"
+ (100 primitiveFail) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveSoundStartWithSemaphore)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence) "obsolete; will be removed in the future"
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 primFMSoundmixSampleCountintostartingAtleftVolrightVol)
+ (181 primPluckedSoundmixSampleCountintostartingAtleftVolrightVol)
+ (182 primSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (183 primReverbSoundapplyReverbTostartingAtcount)
+ (184 primLoopedSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (185 188 primitiveFail)
+ (189 primitiveSoundInsertSamples)
+ (190 primitiveSoundStartRecording)
+ (191 primitiveSoundStopRecording)
+ (192 primitiveSoundGetRecordingSampleRate)
+ (193 primitiveSoundRecordSamples)
+ (194 primitiveSoundSetRecordLevel)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primBitmapdecompressfromByteArrayat)
+ (235 primStringcomparewithcollated)
+ (236 primSampledSoundconvert8bitSignedFromto16Bit)
+ (237 primBitmapcompresstoByteArray)
+ (238 primitiveSerialPortOpen)
+ (239 primitiveSerialPortClose)
+ (240 primitiveSerialPortWrite)
+ (241 primitiveSerialPortRead)
+ (242 primitiveFail)
+ (243 primStringtranslatefromtotable)
+ (244 primStringfindFirstInStringinSetstartingAt)
+ (245 primStringindexOfAsciiinStringstartingAt)
+ (246 primStringfindSubstringinstartingAtmatchTable)
+ (247 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539)"
+ (520 primitiveFail)
+ (521 primitiveMIDIClosePort)
+ (522 primitiveMIDIGetClock)
+ (523 primitiveMIDIGetPortCount)
+ (524 primitiveMIDIGetPortDirectionality)
+ (525 primitiveMIDIGetPortName)
+ (526 primitiveMIDIOpenPort)
+ (527 primitiveMIDIParameterGetOrSet)
+ (528 primitiveMIDIRead)
+ (529 primitiveMIDIWrite)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives"
+ (540 primitiveAsyncFileClose)
+ (541 primitiveAsyncFileOpen)
+ (542 primitiveAsyncFileReadResult)
+ (543 primitiveAsyncFileReadStart)
+ (544 primitiveAsyncFileWriteResult)
+ (545 primitiveAsyncFileWriteStart)
+
+ "Unassigned Primitives"
+ (546 700 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19990421jm (in category 'initialization history') -----
+ initializePrimitiveTable19990421jm
+ "From changes file of Squeak 2.4"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'jm 4/10/1999 12:27'!!
+ initializePrimitiveTable "
+ "This table generates a C switch statement for primitive dispatching."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveFail) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveFail) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 primitiveDirectoryDelete)
+ (164 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveSoundStartWithSemaphore)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence) "obsolete; will be removed in the future"
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 primFMSoundmixSampleCountintostartingAtleftVolrightVol)
+ (181 primPluckedSoundmixSampleCountintostartingAtleftVolrightVol)
+ (182 primSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (183 primReverbSoundapplyReverbTostartingAtcount)
+ (184 primLoopedSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (185 188 primitiveFail)
+ (189 primitiveSoundInsertSamples)
+ (190 primitiveSoundStartRecording)
+ (191 primitiveSoundStopRecording)
+ (192 primitiveSoundGetRecordingSampleRate)
+ (193 primitiveSoundRecordSamples)
+ (194 primitiveSoundSetRecordLevel)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primBitmapdecompressfromByteArrayat)
+ (235 primStringcomparewithcollated)
+ (236 primSampledSoundconvert8bitSignedFromto16Bit)
+ (237 primBitmapcompresstoByteArray)
+ (238 primitiveSerialPortOpen)
+ (239 primitiveSerialPortClose)
+ (240 primitiveSerialPortWrite)
+ (241 primitiveSerialPortRead)
+ (242 primitiveFail)
+ (243 primStringtranslatefromtotable)
+ (244 primStringfindFirstInStringinSetstartingAt)
+ (245 primStringindexOfAsciiinStringstartingAt)
+ (246 primStringfindSubstringinstartingAtmatchTable)
+ (247 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539)"
+ (520 primitiveFail)
+ (521 primitiveMIDIClosePort)
+ (522 primitiveMIDIGetClock)
+ (523 primitiveMIDIGetPortCount)
+ (524 primitiveMIDIGetPortDirectionality)
+ (525 primitiveMIDIGetPortName)
+ (526 primitiveMIDIOpenPort)
+ (527 primitiveMIDIParameterGetOrSet)
+ (528 primitiveMIDIRead)
+ (529 primitiveMIDIWrite)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives"
+ (540 primitiveAsyncFileClose)
+ (541 primitiveAsyncFileOpen)
+ (542 primitiveAsyncFileReadResult)
+ (543 primitiveAsyncFileReadStart)
+ (544 primitiveAsyncFileWriteResult)
+ (545 primitiveAsyncFileWriteStart)
+ (546 547 primitiveFail)
+
+ "Pen Tablet Primitives"
+ (548 primitiveGetTabletParameters)
+ (549 primitiveReadTablet)
+
+ "Sound Codec Primitives"
+ (550 primADPCMCodecprivateDecodeMono)
+ (551 primADPCMCodecprivateDecodeStereo)
+ (552 primADPCMCodecprivateEncodeMono)
+ (553 primADPCMCodecprivateEncodeStereo)
+ (554 569 primitiveFail) "reserved for additional codec primitives"
+
+ "Unassigned Primitives"
+ (570 700 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19990920ar (in category 'initialization history') -----
+ initializePrimitiveTable19990920ar
+ "From changes file of Squeak 2.5 and Squeak 2.6"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'ar 7/16/1999 15:00'!!
+ initializePrimitiveTable "
+ "This table generates a C switch statement for primitive dispatching."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveFail)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 primitiveDirectoryDelete)
+ (164 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveSoundStartWithSemaphore)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence) "obsolete; will be removed in the future"
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 primFMSoundmixSampleCountintostartingAtleftVolrightVol)
+ (181 primPluckedSoundmixSampleCountintostartingAtleftVolrightVol)
+ (182 oldprimSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (183 primReverbSoundapplyReverbTostartingAtcount)
+ (184 primLoopedSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (185 primSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (186 188 primitiveFail)
+ (189 primitiveSoundInsertSamples)
+ (190 primitiveSoundStartRecording)
+ (191 primitiveSoundStopRecording)
+ (192 primitiveSoundGetRecordingSampleRate)
+ (193 primitiveSoundRecordSamples)
+ (194 primitiveSoundSetRecordLevel)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 primitiveSocketAccept)
+ (226 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primBitmapdecompressfromByteArrayat)
+ (235 primStringcomparewithcollated)
+ (236 primSampledSoundconvert8bitSignedFromto16Bit)
+ (237 primBitmapcompresstoByteArray)
+ (238 primitiveSerialPortOpen)
+ (239 primitiveSerialPortClose)
+ (240 primitiveSerialPortWrite)
+ (241 primitiveSerialPortRead)
+ (242 primitiveFail)
+ (243 primStringtranslatefromtotable)
+ (244 primStringfindFirstInStringinSetstartingAt)
+ (245 primStringindexOfAsciiinStringstartingAt)
+ (246 primStringfindSubstringinstartingAtmatchTable)
+ (247 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539)"
+ (520 primitiveFail)
+ (521 primitiveMIDIClosePort)
+ (522 primitiveMIDIGetClock)
+ (523 primitiveMIDIGetPortCount)
+ (524 primitiveMIDIGetPortDirectionality)
+ (525 primitiveMIDIGetPortName)
+ (526 primitiveMIDIOpenPort)
+ (527 primitiveMIDIParameterGetOrSet)
+ (528 primitiveMIDIRead)
+ (529 primitiveMIDIWrite)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives"
+ (540 primitiveAsyncFileClose)
+ (541 primitiveAsyncFileOpen)
+ (542 primitiveAsyncFileReadResult)
+ (543 primitiveAsyncFileReadStart)
+ (544 primitiveAsyncFileWriteResult)
+ (545 primitiveAsyncFileWriteStart)
+ (546 547 primitiveFail)
+
+ "Pen Tablet Primitives"
+ (548 primitiveGetTabletParameters)
+ (549 primitiveReadTablet)
+
+ "Sound Codec Primitives"
+ (550 primADPCMCodecprivateDecodeMono)
+ (551 primADPCMCodecprivateDecodeStereo)
+ (552 primADPCMCodecprivateEncodeMono)
+ (553 primADPCMCodecprivateEncodeStereo)
+ (554 569 primitiveFail) "reserved for additional codec primitives"
+
+ "Unassigned Primitives"
+ (570 700 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20000119ar (in category 'initialization history') -----
+ initializePrimitiveTable20000119ar
+ "From changes file of Squeak 2.7"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'ar 11/28/1999 19:39'!!
+ initializePrimitiveTable "
+ "This table generates a C switch statement for primitive dispatching."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveCopyBits)
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveDrawLoop)
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveReadJoystick)
+ (147 primitiveWarpBits)
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 primitiveFileAtEnd)
+ (151 primitiveFileClose)
+ (152 primitiveFileGetPosition)
+ (153 primitiveFileOpen)
+ (154 primitiveFileRead)
+ (155 primitiveFileSetPosition)
+ (156 primitiveFileDelete)
+ (157 primitiveFileSize)
+ (158 primitiveFileWrite)
+ (159 primitiveFileRename)
+ (160 primitiveDirectoryCreate)
+ (161 primitiveDirectoryDelimitor)
+ (162 primitiveDirectoryLookup)
+ (163 primitiveDirectoryDelete)
+ (164 168 primitiveFail)
+ (169 primitiveDirectorySetMacTypeAndCreator)
+
+ "Sound Primitives (170-199)"
+ (170 primitiveSoundStart)
+ (171 primitiveSoundStartWithSemaphore)
+ (172 primitiveSoundStop)
+ (173 primitiveSoundAvailableSpace)
+ (174 primitiveSoundPlaySamples)
+ (175 primitiveSoundPlaySilence) "obsolete; will be removed in the future"
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 primFMSoundmixSampleCountintostartingAtleftVolrightVol)
+ (181 primPluckedSoundmixSampleCountintostartingAtleftVolrightVol)
+ (182 oldprimSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (183 primReverbSoundapplyReverbTostartingAtcount)
+ (184 primLoopedSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (185 primSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (186 188 primitiveFail)
+ (189 primitiveSoundInsertSamples)
+ (190 primitiveSoundStartRecording)
+ (191 primitiveSoundStopRecording)
+ (192 primitiveSoundGetRecordingSampleRate)
+ (193 primitiveSoundRecordSamples)
+ (194 primitiveSoundSetRecordLevel)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 primitiveInitializeNetwork)
+ (201 primitiveResolverStartNameLookup)
+ (202 primitiveResolverNameLookupResult)
+ (203 primitiveResolverStartAddressLookup)
+ (204 primitiveResolverAddressLookupResult)
+ (205 primitiveResolverAbortLookup)
+ (206 primitiveResolverLocalAddress)
+ (207 primitiveResolverStatus)
+ (208 primitiveResolverError)
+ (209 primitiveSocketCreate)
+ (210 primitiveSocketDestroy)
+ (211 primitiveSocketConnectionStatus)
+ (212 primitiveSocketError)
+ (213 primitiveSocketLocalAddress)
+ (214 primitiveSocketLocalPort)
+ (215 primitiveSocketRemoteAddress)
+ (216 primitiveSocketRemotePort)
+ (217 primitiveSocketConnectToPort)
+ (218 primitiveSocketListenOnPort)
+ (219 primitiveSocketCloseConnection)
+ (220 primitiveSocketAbortConnection)
+ (221 primitiveSocketReceiveDataBufCount)
+ (222 primitiveSocketReceiveDataAvailable)
+ (223 primitiveSocketSendDataBufCount)
+ (224 primitiveSocketSendDone)
+ (225 primitiveSocketAccept)
+ (226 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primBitmapdecompressfromByteArrayat)
+ (235 primStringcomparewithcollated)
+ (236 primSampledSoundconvert8bitSignedFromto16Bit)
+ (237 primBitmapcompresstoByteArray)
+ (238 primitiveSerialPortOpen)
+ (239 primitiveSerialPortClose)
+ (240 primitiveSerialPortWrite)
+ (241 primitiveSerialPortRead)
+ (242 primitiveFail)
+ (243 primStringtranslatefromtotable)
+ (244 primStringfindFirstInStringinSetstartingAt)
+ (245 primStringindexOfAsciiinStringstartingAt)
+ (246 primStringfindSubstringinstartingAtmatchTable)
+ (247 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539)"
+ (520 primitiveFail)
+ (521 primitiveMIDIClosePort)
+ (522 primitiveMIDIGetClock)
+ (523 primitiveMIDIGetPortCount)
+ (524 primitiveMIDIGetPortDirectionality)
+ (525 primitiveMIDIGetPortName)
+ (526 primitiveMIDIOpenPort)
+ (527 primitiveMIDIParameterGetOrSet)
+ (528 primitiveMIDIRead)
+ (529 primitiveMIDIWrite)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives"
+ (540 primitiveAsyncFileClose)
+ (541 primitiveAsyncFileOpen)
+ (542 primitiveAsyncFileReadResult)
+ (543 primitiveAsyncFileReadStart)
+ (544 primitiveAsyncFileWriteResult)
+ (545 primitiveAsyncFileWriteStart)
+ (546 547 primitiveFail)
+
+ "Pen Tablet Primitives"
+ (548 primitiveGetTabletParameters)
+ (549 primitiveReadTablet)
+
+ "Sound Codec Primitives"
+ (550 primADPCMCodecprivateDecodeMono)
+ (551 primADPCMCodecprivateDecodeStereo)
+ (552 primADPCMCodecprivateEncodeMono)
+ (553 primADPCMCodecprivateEncodeStereo)
+ (554 569 primitiveFail) "reserved for additional codec primitives"
+
+ "Unassigned Primitives"
+ (570 700 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20000906tpr (in category 'initialization history') -----
+ initializePrimitiveTable20000906tpr
+ "From changes file of Squeak 2.8"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'TPR 5/23/2000 22:02'!!
+ initializePrimitiveTable "
+ "This table generates a C switch statement for primitive dispatching."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveFail) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveObsoleteIndexedPrimitive) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveObsoleteIndexedPrimitive) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveObsoleteIndexedPrimitive) "primitiveReadJoystick"
+ (147 primitiveObsoleteIndexedPrimitive) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169)"
+ (150 163 primitiveObsoleteIndexedPrimitive)
+ (164 168 primitiveFail)
+ (169 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Primitives (170-199)"
+ (170 175 primitiveObsoleteIndexedPrimitive)
+ (176 primWaveTableSoundmixSampleCountintostartingAtpan)
+ (177 primFMSoundmixSampleCountintostartingAtpan)
+ (178 primPluckedSoundmixSampleCountintostartingAtpan)
+ (179 primSampledSoundmixSampleCountintostartingAtpan)
+ (180 primFMSoundmixSampleCountintostartingAtleftVolrightVol)
+ (181 primPluckedSoundmixSampleCountintostartingAtleftVolrightVol)
+ (182 oldprimSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (183 primReverbSoundapplyReverbTostartingAtcount)
+ (184 primLoopedSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+ (185 primSampledSoundmixSampleCountintostartingAtleftVolrightVol)
+
+ (186 188 primitiveFail)
+ (189 194 primitiveObsoleteIndexedPrimitive)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229)"
+ (200 225 primitiveObsoleteIndexedPrimitive)
+ (226 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primBitmapdecompressfromByteArrayat)
+ (235 primStringcomparewithcollated)
+ (236 primSampledSoundconvert8bitSignedFromto16Bit)
+ (237 primBitmapcompresstoByteArray)
+ (238 241 primitiveObsoleteIndexedPrimitive)
+ (242 primitiveFail)
+ (243 primStringtranslatefromtotable)
+ (244 primStringfindFirstInStringinSetstartingAt)
+ (245 primStringindexOfAsciiinStringstartingAt)
+ (246 primStringfindSubstringinstartingAtmatchTable)
+ (247 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539)"
+ (520 529 primitiveObsoleteIndexedPrimitive)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives"
+ (540 545 primitiveObsoleteIndexedPrimitive)
+ (546 547 primitiveFail)
+
+ "Pen Tablet Primitives"
+ (548 primitiveObsoleteIndexedPrimitive)
+ (549 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Codec Primitives"
+ (550 primADPCMCodecprivateDecodeMono)
+ (551 primADPCMCodecprivateDecodeStereo)
+ (552 primADPCMCodecprivateEncodeMono)
+ (553 primADPCMCodecprivateEncodeStereo)
+ (554 569 primitiveFail) "reserved for additional codec primitives"
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 700 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20010203ar (in category 'initialization history') -----
+ initializePrimitiveTable20010203ar
+ "From sources file of Squeak 3.0"
+ "!!Interpreter class methodsFor: 'initialization' stamp: 'ar 2/3/2001 16:22'!!
+ initializePrimitiveTable "
+ "This table generates a C switch statement for primitive dispatching."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveObsoleteIndexedPrimitive) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveObsoleteIndexedPrimitive) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveFail) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail)
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ (146 primitiveObsoleteIndexedPrimitive) "primitiveReadJoystick"
+ (147 primitiveObsoleteIndexedPrimitive) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 164 primitiveObsoleteIndexedPrimitive)
+ (165 168 primitiveFail)
+ (169 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 185 primitiveObsoleteIndexedPrimitive)
+ (186 188 primitiveFail)
+ (189 194 primitiveObsoleteIndexedPrimitive)
+ (195 199 primitiveFail)
+
+ "Networking Primitives (200-229) - NO LONGER INDEXED"
+ (200 225 primitiveObsoleteIndexedPrimitive)
+ (226 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveObsoleteIndexedPrimitive) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveObsoleteIndexedPrimitive) "primStringcomparewithcollated"
+ (236 primitiveObsoleteIndexedPrimitive) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveObsoleteIndexedPrimitive) "primBitmapcompresstoByteArray"
+ (238 241 primitiveObsoleteIndexedPrimitive) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveObsoleteIndexedPrimitive) "primStringtranslatefromtotable"
+ (244 primitiveObsoleteIndexedPrimitive) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveObsoleteIndexedPrimitive) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveObsoleteIndexedPrimitive) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 249 primitiveFail)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539) - NO LONGER INDEXED"
+ (520 529 primitiveObsoleteIndexedPrimitive)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives - NO LONGER INDEXED"
+ (540 545 primitiveObsoleteIndexedPrimitive)
+ (546 547 primitiveFail)
+
+ "Pen Tablet Primitives - NO LONGER INDEXED"
+ (548 primitiveObsoleteIndexedPrimitive)
+ (549 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Codec Primitives - NO LONGER INDEXED"
+ (550 553 primitiveObsoleteIndexedPrimitive)
+ (554 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 700 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20040211tpr (in category 'initialization history') -----
+ initializePrimitiveTable20040211tpr
+ "This table generates a C switch statement for primitive dispatching."
+
+ "NOTE: The real limit here is 2047, but our C compiler currently barfs over 700"
+ MaxPrimitiveIndex _ 700.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveObsoleteIndexedPrimitive) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveObsoleteIndexedPrimitive) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveObsoleteIndexedPrimitive) "primitiveReadJoystick"
+ (147 primitiveObsoleteIndexedPrimitive) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 164 primitiveObsoleteIndexedPrimitive)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 185 primitiveObsoleteIndexedPrimitive)
+
+ "Closure primitives"
+ (186 primitiveClosureValue)
+ (187 primitiveClosureValueWithArgs)
+ (188 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (189 194 primitiveObsoleteIndexedPrimitive)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "Networking Primitives (200-229) - NO LONGER INDEXED"
+ (200 225 primitiveObsoleteIndexedPrimitive)
+ (226 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveObsoleteIndexedPrimitive) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveObsoleteIndexedPrimitive) "primStringcomparewithcollated"
+ (236 primitiveObsoleteIndexedPrimitive) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveObsoleteIndexedPrimitive) "primBitmapcompresstoByteArray"
+ (238 241 primitiveObsoleteIndexedPrimitive) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveObsoleteIndexedPrimitive) "primStringtranslatefromtotable"
+ (244 primitiveObsoleteIndexedPrimitive) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveObsoleteIndexedPrimitive) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveObsoleteIndexedPrimitive) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539) - NO LONGER INDEXED"
+ (520 529 primitiveObsoleteIndexedPrimitive)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives - NO LONGER INDEXED"
+ (540 545 primitiveObsoleteIndexedPrimitive)
+ (546 547 primitiveFail)
+
+ "Pen Tablet Primitives - NO LONGER INDEXED"
+ (548 primitiveObsoleteIndexedPrimitive)
+ (549 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Codec Primitives - NO LONGER INDEXED"
+ (550 553 primitiveObsoleteIndexedPrimitive)
+ (554 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 700 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20040324tpr (in category 'initialization history') -----
+ initializePrimitiveTable20040324tpr
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex _ 575.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveObsoleteIndexedPrimitive) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveObsoleteIndexedPrimitive) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveObsoleteIndexedPrimitive) "primitiveReadJoystick"
+ (147 primitiveObsoleteIndexedPrimitive) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 164 primitiveObsoleteIndexedPrimitive)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 185 primitiveObsoleteIndexedPrimitive)
+
+ "Closure primitives"
+ (186 primitiveClosureValue)
+ (187 primitiveClosureValueWithArgs)
+ (188 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (189 194 primitiveObsoleteIndexedPrimitive)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "Networking Primitives (200-229) - NO LONGER INDEXED"
+ (200 225 primitiveObsoleteIndexedPrimitive)
+ (226 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveObsoleteIndexedPrimitive) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveObsoleteIndexedPrimitive) "primStringcomparewithcollated"
+ (236 primitiveObsoleteIndexedPrimitive) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveObsoleteIndexedPrimitive) "primBitmapcompresstoByteArray"
+ (238 241 primitiveObsoleteIndexedPrimitive) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveObsoleteIndexedPrimitive) "primStringtranslatefromtotable"
+ (244 primitiveObsoleteIndexedPrimitive) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveObsoleteIndexedPrimitive) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveObsoleteIndexedPrimitive) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539) - NO LONGER INDEXED"
+ (520 529 primitiveObsoleteIndexedPrimitive)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives - NO LONGER INDEXED"
+ (540 545 primitiveObsoleteIndexedPrimitive)
+ (546 547 primitiveFail)
+
+ "Pen Tablet Primitives - NO LONGER INDEXED"
+ (548 primitiveObsoleteIndexedPrimitive)
+ (549 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Codec Primitives - NO LONGER INDEXED"
+ (550 553 primitiveObsoleteIndexedPrimitive)
+ (554 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20040719ajh (in category 'initialization history') -----
+ initializePrimitiveTable20040719ajh
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex _ 575.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveObsoleteIndexedPrimitive) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveObsoleteIndexedPrimitive) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveObsoleteIndexedPrimitive) "primitiveReadJoystick"
+ (147 primitiveObsoleteIndexedPrimitive) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 164 primitiveObsoleteIndexedPrimitive)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 185 primitiveObsoleteIndexedPrimitive)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveObsoleteIndexedPrimitive)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "Networking Primitives (200-229) - NO LONGER INDEXED"
+ (200 225 primitiveObsoleteIndexedPrimitive)
+ (226 229 primitiveFail)
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveObsoleteIndexedPrimitive) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveObsoleteIndexedPrimitive) "primStringcomparewithcollated"
+ (236 primitiveObsoleteIndexedPrimitive) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveObsoleteIndexedPrimitive) "primBitmapcompresstoByteArray"
+ (238 241 primitiveObsoleteIndexedPrimitive) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveObsoleteIndexedPrimitive) "primStringtranslatefromtotable"
+ (244 primitiveObsoleteIndexedPrimitive) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveObsoleteIndexedPrimitive) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveObsoleteIndexedPrimitive) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "MIDI Primitives (520-539) - NO LONGER INDEXED"
+ (520 529 primitiveObsoleteIndexedPrimitive)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives - NO LONGER INDEXED"
+ (540 545 primitiveObsoleteIndexedPrimitive)
+ (546 547 primitiveFail)
+
+ "Pen Tablet Primitives - NO LONGER INDEXED"
+ (548 primitiveObsoleteIndexedPrimitive)
+ (549 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Codec Primitives - NO LONGER INDEXED"
+ (550 553 primitiveObsoleteIndexedPrimitive)
+ (554 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20050127JMM (in category 'initialization history') -----
+ initializePrimitiveTable20050127JMM
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex _ 575.
+ PrimitiveTable _ Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveObsoleteIndexedPrimitive) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveObsoleteIndexedPrimitive) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveObsoleteIndexedPrimitive) "primitiveReadJoystick"
+ (147 primitiveObsoleteIndexedPrimitive) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 164 primitiveObsoleteIndexedPrimitive)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 185 primitiveObsoleteIndexedPrimitive)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveObsoleteIndexedPrimitive)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "Networking Primitives (200-225) - NO LONGER INDEXED"
+ (200 225 primitiveObsoleteIndexedPrimitive)
+
+ "Other Primitives (226-249)"
+ (226 primitiveFail)
+ (227 primitiveFail)
+ (228 primitiveFail)
+ (229 primitiveFail)
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveObsoleteIndexedPrimitive) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveObsoleteIndexedPrimitive) "primStringcomparewithcollated"
+ (236 primitiveObsoleteIndexedPrimitive) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveObsoleteIndexedPrimitive) "primBitmapcompresstoByteArray"
+ (238 241 primitiveObsoleteIndexedPrimitive) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveObsoleteIndexedPrimitive) "primStringtranslatefromtotable"
+ (244 primitiveObsoleteIndexedPrimitive) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveObsoleteIndexedPrimitive) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveObsoleteIndexedPrimitive) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ (520 primitiveFail)
+ "MIDI Primitives (521-539) - NO LONGER INDEXED"
+ (521 529 primitiveObsoleteIndexedPrimitive)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives - NO LONGER INDEXED"
+ (540 545 primitiveObsoleteIndexedPrimitive)
+ (546 547 primitiveFail)
+
+ "Pen Tablet Primitives - NO LONGER INDEXED"
+ (548 primitiveObsoleteIndexedPrimitive)
+ (549 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Codec Primitives - NO LONGER INDEXED"
+ (550 553 primitiveObsoleteIndexedPrimitive)
+ (554 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20090218eem (in category 'initialization history') -----
+ initializePrimitiveTable20090218eem
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ "32-bit logic is aliased to Integer prims above"
+ (20 39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveNext)
+ (66 primitiveNextPut)
+ (67 primitiveAtEnd)
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveObsoleteIndexedPrimitive) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveObsoleteIndexedPrimitive) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveObsoleteIndexedPrimitive) "primitiveReadJoystick"
+ (147 primitiveObsoleteIndexedPrimitive) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 164 primitiveObsoleteIndexedPrimitive)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 185 primitiveObsoleteIndexedPrimitive)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveObsoleteIndexedPrimitive)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 217 primitiveFail) "reserved for Cog primitives"
+ (218 primitiveDoNamedPrimitiveWithArgs)
+ (219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ "Other Primitives (230-249)"
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveObsoleteIndexedPrimitive) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveObsoleteIndexedPrimitive) "primStringcomparewithcollated"
+ (236 primitiveObsoleteIndexedPrimitive) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveObsoleteIndexedPrimitive) "primBitmapcompresstoByteArray"
+ (238 241 primitiveObsoleteIndexedPrimitive) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveObsoleteIndexedPrimitive) "primStringtranslatefromtotable"
+ (244 primitiveObsoleteIndexedPrimitive) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveObsoleteIndexedPrimitive) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveObsoleteIndexedPrimitive) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ (520 primitiveFail)
+ "MIDI Primitives (521-539) - NO LONGER INDEXED"
+ (521 529 primitiveObsoleteIndexedPrimitive)
+ (530 539 primitiveFail) "reserved for extended MIDI primitives"
+
+ "Experimental Asynchrous File Primitives - NO LONGER INDEXED"
+ (540 545 primitiveObsoleteIndexedPrimitive)
+ (546 547 primitiveFail)
+
+ "Pen Tablet Primitives - NO LONGER INDEXED"
+ (548 primitiveObsoleteIndexedPrimitive)
+ (549 primitiveObsoleteIndexedPrimitive)
+
+ "Sound Codec Primitives - NO LONGER INDEXED"
+ (550 553 primitiveObsoleteIndexedPrimitive)
+ (554 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail))!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20101211dtl (in category 'initialization history') -----
+ initializePrimitiveTable20101211dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveFail)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+ (38 primitiveFail)
+ (39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveFail)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 185 primitiveFail)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 241 primitiveFail) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20111015dtl (in category 'initialization history') -----
+ initializePrimitiveTable20111015dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveFail)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+ (38 primitiveFail)
+ (39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveEquivalent)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 185 primitiveFail)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 241 primitiveFail) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20111125dtl (in category 'initialization history') -----
+ initializePrimitiveTable20111125dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveFail)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+ (38 primitiveFail)
+ (39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveIdentical)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 185 primitiveFail)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 241 primitiveFail) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveInstVarsPutFromStack) "Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20120130dtl (in category 'initialization history') -----
+ initializePrimitiveTable20120130dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveFail)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+ (38 primitiveFail)
+ (39 primitiveFail)
+
+ "Float Primitives (40-59)"
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveIdentical)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 185 primitiveFail)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 241 primitiveFail) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail) "primitiveInstVarsPutFromStack. Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20120704dtl (in category 'initialization history') -----
+ initializePrimitiveTable20120704dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveFail)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+
+ "Float Primitives (38-59)"
+ (38 primitiveFloatAt)
+ (39 primitiveFloatAtPut)
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveIdentical)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 primitiveSetIdentityHash) "CogMemoryManager primitives"
+ (162 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 174 primitiveFail)
+
+ "CogMemoryManager primitives"
+ (175 primitiveBehaviorHash)
+ (176 primitiveMaxIdentityHash)
+ (177 185 primitiveFail)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 241 primitiveFail) "serial port primitives"
+ (242 primitiveFail)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail) "primitiveInstVarsPutFromStack. Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20120809dtl (in category 'initialization history') -----
+ initializePrimitiveTable20120809dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveFail)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+
+ "Float Primitives (38-59)"
+ (38 primitiveFloatAt)
+ (39 primitiveFloatAtPut)
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveIdentical)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 primitiveSetIdentityHash) "CogMemoryManager primitives"
+ (162 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 174 primitiveFail)
+
+ "CogMemoryManager primitives"
+ (175 primitiveBehaviorHash)
+ (176 primitiveMaxIdentityHash)
+ (177 185 primitiveFail)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 239 primitiveFail) "serial port primitives"
+ (240 primitiveUTCMicrosecondClock) "was serial port primitive"
+ (241 primitiveLocalMicrosecondClock) "was serial port primitive"
+ (242 primitiveFail)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail) "primitiveInstVarsPutFromStack. Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20130105dtl (in category 'initialization history') -----
+ initializePrimitiveTable20130105dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveRemLargeIntegers)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+
+ "Float Primitives (38-59)"
+ (38 primitiveFloatAt)
+ (39 primitiveFloatAtPut)
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveIdentical)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheSelective)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 primitiveSetIdentityHash) "CogMemoryManager primitives"
+ (162 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 174 primitiveFail)
+
+ "CogMemoryManager primitives"
+ (175 primitiveBehaviorHash)
+ (176 primitiveMaxIdentityHash)
+ (177 185 primitiveFail)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 239 primitiveFail) "serial port primitives"
+ (240 primitiveUTCMicrosecondClock) "was serial port primitive"
+ (241 primitiveLocalMicrosecondClock) "was serial port primitive"
+ (242 primitiveFail)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail) "primitiveInstVarsPutFromStack. Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20130314eem (in category 'initialization history') -----
+ initializePrimitiveTable20130314eem
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveRemLargeIntegers)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+
+ "Float Primitives (38-59)"
+ (38 primitiveFloatAt)
+ (39 primitiveFloatAtPut)
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveIdentical)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheBySelector)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 primitiveSetIdentityHash) "CogMemoryManager primitives"
+ (162 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 174 primitiveFail)
+
+ "CogMemoryManager primitives"
+ (175 primitiveBehaviorHash)
+ (176 primitiveMaxIdentityHash)
+ (177 185 primitiveFail)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 239 primitiveFail) "serial port primitives"
+ (240 primitiveUTCMicrosecondClock) "was serial port primitive"
+ (241 primitiveLocalMicrosecondClock) "was serial port primitive"
+ (242 primitiveFail)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail) "primitiveInstVarsPutFromStack. Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20160120dtl (in category 'initialization history') -----
+ initializePrimitiveTable20160120dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveRemLargeIntegers)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+
+ "Float Primitives (38-59)"
+ (38 primitiveFloatAt)
+ (39 primitiveFloatAtPut)
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveIdentical)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheBySelector)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 primitiveSetIdentityHash) "CogMemoryManager primitives"
+ (162 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 174 primitiveFail)
+
+ "CogMemoryManager primitives"
+ (175 primitiveBehaviorHash)
+ (176 primitiveMaxIdentityHash)
+ (177 185 primitiveFail)
+
+ "Old closure primitives"
+ (186 primitiveFail) "was primitiveClosureValue"
+ (187 primitiveFail) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 239 primitiveFail) "serial port primitives"
+ (240 primitiveUTCMicrosecondClock) "was serial port primitive"
+ (241 primitiveLocalMicrosecondClock) "was serial port primitive"
+ (242 primitiveSignalAtUTCMicroseconds)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail) "primitiveInstVarsPutFromStack. Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20160123dtl (in category 'initialization history') -----
+ initializePrimitiveTable20160123dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveRemLargeIntegers)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+
+ "Float Primitives (38-59)"
+ (38 primitiveFloatAt)
+ (39 primitiveFloatAtPut)
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveBlockCopy)
+ (81 primitiveValue)
+ (82 primitiveValueWithArgs)
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveIdentical)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheBySelector)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveValueUninterruptably) "@@@: Remove this when all VMs have support"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 primitiveSetIdentityHash) "CogMemoryManager primitives"
+ (162 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 174 primitiveFail)
+
+ "CogMemoryManager primitives"
+ (175 primitiveBehaviorHash)
+ (176 primitiveMaxIdentityHash)
+ (177 184 primitiveFail)
+
+ "CriticalSection primitives"
+ (185 primitiveExitCriticalSection) "similar to signal hence index = signal + 100"
+ (186 primitiveEnterCriticalSection) "similar to wait hence index = wait + 100. was primitiveClosureValue"
+ (187 primitiveTestAndSetOwnershipOfCriticalSection) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 239 primitiveFail) "serial port primitives"
+ (240 primitiveUTCMicrosecondClock) "was serial port primitive"
+ (241 primitiveLocalMicrosecondClock) "was serial port primitive"
+ (242 primitiveSignalAtUTCMicroseconds)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail) "primitiveInstVarsPutFromStack. Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick Push Const Methods"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick Push Const Methods"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20160501dtl (in category 'initialization history') -----
+ initializePrimitiveTable20160501dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveRemLargeIntegers)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+
+ "Float Primitives (38-59)"
+ (38 primitiveFloatAt)
+ (39 primitiveFloatAtPut)
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveFail) "Blue Book: primitiveValue"
+ (82 primitiveFail) "Blue Book: primitiveValueWithArgs"
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveIdentical)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheBySelector)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail) "was primitiveValueUninterruptably"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 primitiveSetIdentityHash) "CogMemoryManager primitives"
+ (162 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 174 primitiveFail)
+
+ "CogMemoryManager primitives"
+ (175 primitiveBehaviorHash)
+ (176 primitiveMaxIdentityHash)
+ (177 184 primitiveFail)
+
+ "CriticalSection primitives"
+ (185 primitiveExitCriticalSection) "similar to signal hence index = signal + 100"
+ (186 primitiveEnterCriticalSection) "similar to wait hence index = wait + 100. was primitiveClosureValue"
+ (187 primitiveTestAndSetOwnershipOfCriticalSection) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 239 primitiveFail) "serial port primitives"
+ (240 primitiveUTCMicrosecondClock) "was serial port primitive"
+ (241 primitiveLocalMicrosecondClock) "was serial port primitive"
+ (242 primitiveSignalAtUTCMicroseconds)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail) "primitiveInstVarsPutFromStack. Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick push const methods for context interpreter"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick push inst var methods (next 256) for context interpreter"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20161221dtl (in category 'initialization history') -----
+ initializePrimitiveTable20161221dtl
+ "This table generates a C function address table use in primitiveResponse along with dispatchFunctionPointerOn:in:"
+
+ "NOTE: The real limit here is 2047 because of the method header layout but there is no point in going over the needed size"
+
+ self flag: #updatePrimitiveTable. "these default assignments may be overridden at run time"
+
+ MaxPrimitiveIndex := 575.
+ PrimitiveTable := Array new: MaxPrimitiveIndex + 1.
+ self table: PrimitiveTable from:
+ #( "Integer Primitives (0-19)"
+ (0 primitiveFail)
+ (1 primitiveAdd)
+ (2 primitiveSubtract)
+ (3 primitiveLessThan)
+ (4 primitiveGreaterThan)
+ (5 primitiveLessOrEqual)
+ (6 primitiveGreaterOrEqual)
+ (7 primitiveEqual)
+ (8 primitiveNotEqual)
+ (9 primitiveMultiply)
+ (10 primitiveDivide)
+ (11 primitiveMod)
+ (12 primitiveDiv)
+ (13 primitiveQuo)
+ (14 primitiveBitAnd)
+ (15 primitiveBitOr)
+ (16 primitiveBitXor)
+ (17 primitiveBitShift)
+ (18 primitiveMakePoint)
+ (19 primitiveFail) "Guard primitive for simulation -- *must* fail"
+
+ "LargeInteger Primitives (20-39)"
+ (20 primitiveRemLargeIntegers)
+ (21 primitiveAddLargeIntegers)
+ (22 primitiveSubtractLargeIntegers)
+ (23 primitiveLessThanLargeIntegers)
+ (24 primitiveGreaterThanLargeIntegers)
+ (25 primitiveLessOrEqualLargeIntegers)
+ (26 primitiveGreaterOrEqualLargeIntegers)
+ (27 primitiveEqualLargeIntegers)
+ (28 primitiveNotEqualLargeIntegers)
+ (29 primitiveMultiplyLargeIntegers)
+ (30 primitiveDivideLargeIntegers)
+ (31 primitiveModLargeIntegers)
+ (32 primitiveDivLargeIntegers)
+ (33 primitiveQuoLargeIntegers)
+ (34 primitiveBitAndLargeIntegers)
+ (35 primitiveBitOrLargeIntegers)
+ (36 primitiveBitXorLargeIntegers)
+ (37 primitiveBitShiftLargeIntegers)
+
+ "Float Primitives (38-59)"
+ (38 primitiveFloatAt)
+ (39 primitiveFloatAtPut)
+ (40 primitiveAsFloat)
+ (41 primitiveFloatAdd)
+ (42 primitiveFloatSubtract)
+ (43 primitiveFloatLessThan)
+ (44 primitiveFloatGreaterThan)
+ (45 primitiveFloatLessOrEqual)
+ (46 primitiveFloatGreaterOrEqual)
+ (47 primitiveFloatEqual)
+ (48 primitiveFloatNotEqual)
+ (49 primitiveFloatMultiply)
+ (50 primitiveFloatDivide)
+ (51 primitiveTruncated)
+ (52 primitiveFractionalPart)
+ (53 primitiveExponent)
+ (54 primitiveTimesTwoPower)
+ (55 primitiveSquareRoot)
+ (56 primitiveSine)
+ (57 primitiveArctan)
+ (58 primitiveLogN)
+ (59 primitiveExp)
+
+ "Subscript and Stream Primitives (60-67)"
+ (60 primitiveAt)
+ (61 primitiveAtPut)
+ (62 primitiveSize)
+ (63 primitiveStringAt)
+ (64 primitiveStringAtPut)
+ (65 primitiveFail) "was primitiveNext which no longer pays its way (normal Smalltalk code is faster)"
+ (66 primitiveFail) "was primitiveNextPut which no longer pays its way (normal Smalltalk code is faster)"
+ (67 primitiveFail) "was primitiveAtEnd which no longer pays its way (normal Smalltalk code is faster)"
+
+ "StorageManagement Primitives (68-79)"
+ (68 primitiveObjectAt)
+ (69 primitiveObjectAtPut)
+ (70 primitiveNew)
+ (71 primitiveNewWithArg)
+ (72 primitiveArrayBecomeOneWay) "Blue Book: primitiveBecome"
+ (73 primitiveInstVarAt)
+ (74 primitiveInstVarAtPut)
+ (75 primitiveAsOop)
+ (76 primitiveStoreStackp) "Blue Book: primitiveAsObject"
+ (77 primitiveSomeInstance)
+ (78 primitiveNextInstance)
+ (79 primitiveNewMethod)
+
+ "Control Primitives (80-89)"
+ (80 primitiveFail) "Blue Book: primitiveBlockCopy"
+ (81 primitiveFail) "Blue Book: primitiveValue"
+ (82 primitiveFail) "Blue Book: primitiveValueWithArgs"
+ (83 primitivePerform)
+ (84 primitivePerformWithArgs)
+ (85 primitiveSignal)
+ (86 primitiveWait)
+ (87 primitiveResume)
+ (88 primitiveSuspend)
+ (89 primitiveFlushCache)
+
+ "Input/Output Primitives (90-109)"
+ (90 primitiveMousePoint)
+ (91 primitiveTestDisplayDepth) "Blue Book: primitiveCursorLocPut"
+ (92 primitiveSetDisplayMode) "Blue Book: primitiveCursorLink"
+ (93 primitiveInputSemaphore)
+ (94 primitiveGetNextEvent) "Blue Book: primitiveSampleInterval"
+ (95 primitiveInputWord)
+ (96 primitiveFail) "primitiveCopyBits"
+ (97 primitiveSnapshot)
+ (98 primitiveStoreImageSegment)
+ (99 primitiveLoadImageSegment)
+ (100 primitivePerformInSuperclass) "Blue Book: primitiveSignalAtTick"
+ (101 primitiveBeCursor)
+ (102 primitiveBeDisplay)
+ (103 primitiveScanCharacters)
+ (104 primitiveFail) "primitiveDrawLoop"
+ (105 primitiveStringReplace)
+ (106 primitiveScreenSize)
+ (107 primitiveMouseButtons)
+ (108 primitiveKbdNext)
+ (109 primitiveKbdPeek)
+
+ "System Primitives (110-119)"
+ (110 primitiveIdentical)
+ (111 primitiveClass)
+ (112 primitiveBytesLeft)
+ (113 primitiveQuit)
+ (114 primitiveExitToDebugger)
+ (115 primitiveChangeClass) "Blue Book: primitiveOopsLeft"
+ (116 primitiveFlushCacheByMethod)
+ (117 primitiveExternalCall)
+ (118 primitiveDoPrimitiveWithArgs)
+ (119 primitiveFlushCacheBySelector)
+ "Squeak 2.2 and earlier use 119. Squeak 2.3 and later use 116.
+ Both are supported for backward compatibility."
+
+ "Miscellaneous Primitives (120-127)"
+ (120 primitiveCalloutToFFI)
+ (121 primitiveImageName)
+ (122 primitiveNoop) "Blue Book: primitiveImageVolume"
+ (123 primitiveFail) "was primitiveValueUninterruptably"
+ (124 primitiveLowSpaceSemaphore)
+ (125 primitiveSignalAtBytesLeft)
+
+ "Squeak Primitives Start Here"
+
+ "Squeak Miscellaneous Primitives (128-149)"
+ (126 primitiveDeferDisplayUpdates)
+ (127 primitiveShowDisplayRect)
+ (128 primitiveArrayBecome)
+ (129 primitiveSpecialObjectsOop)
+ (130 primitiveFullGC)
+ (131 primitiveIncrementalGC)
+ (132 primitiveObjectPointsTo)
+ (133 primitiveSetInterruptKey)
+ (134 primitiveInterruptSemaphore)
+ (135 primitiveMillisecondClock)
+ (136 primitiveSignalAtMilliseconds)
+ (137 primitiveSecondsClock)
+ (138 primitiveSomeObject)
+ (139 primitiveNextObject)
+ (140 primitiveBeep)
+ (141 primitiveClipboardText)
+ (142 primitiveVMPath)
+ (143 primitiveShortAt)
+ (144 primitiveShortAtPut)
+ (145 primitiveConstantFill)
+ "NOTE: When removing the obsolete indexed primitives,
+ the following two should go become #primitiveIntegerAt / atPut"
+ (146 primitiveFail) "primitiveReadJoystick"
+ (147 primitiveFail) "primitiveWarpBits"
+ (148 primitiveClone)
+ (149 primitiveGetAttribute)
+
+ "File Primitives (150-169) - NO LONGER INDEXED"
+ (150 159 primitiveFail)
+ (160 primitiveAdoptInstance)
+ (161 primitiveSetIdentityHash) "CogMemoryManager primitives"
+ (162 164 primitiveFail)
+ (165 primitiveIntegerAt) "hacked in here for now"
+ (166 primitiveIntegerAtPut)
+ (167 primitiveYield)
+ (168 primitiveCopyObject)
+ (169 primitiveNotIdentical)
+
+ "Sound Primitives (170-199) - NO LONGER INDEXED"
+ (170 174 primitiveFail)
+
+ "CogMemoryManager primitives"
+ (175 primitiveBehaviorHash)
+ (176 primitiveMaxIdentityHash)
+ (177 184 primitiveFail)
+
+ "CriticalSection primitives"
+ (185 primitiveExitCriticalSection) "similar to signal hence index = signal + 100"
+ (186 primitiveEnterCriticalSection) "similar to wait hence index = wait + 100. was primitiveClosureValue"
+ (187 primitiveTestAndSetOwnershipOfCriticalSection) "was primitiveClosureValueWithArgs"
+
+ "Perform method directly"
+ (188 primitiveExecuteMethodArgsArray)
+ (189 primitiveExecuteMethod)
+
+ "Sound Primitives (continued) - NO LONGER INDEXED"
+ (190 194 primitiveFail)
+
+ "Unwind primitives"
+ (195 primitiveFindNextUnwindContext)
+ (196 primitiveTerminateTo)
+ (197 primitiveFindHandlerContext)
+ (198 primitiveMarkUnwindMethod)
+ (199 primitiveMarkHandlerMethod)
+
+ "new closure primitives (were Networking primitives)"
+ (200 primitiveClosureCopyWithCopiedValues)
+ (201 primitiveClosureValue) "value"
+ (202 primitiveClosureValue) "value:"
+ (203 primitiveClosureValue) "value:value:"
+ (204 primitiveClosureValue) "value:value:value:"
+ (205 primitiveClosureValue) "value:value:value:value:"
+ (206 primitiveClosureValueWithArgs) "valueWithArguments:"
+
+ (207 209 primitiveFail) "reserved for Cog primitives"
+
+ (210 primitiveAt) "Compatibility with Cog StackInterpreter Context primitives"
+ (211 primitiveAtPut) "Compatibility with Cog StackInterpreter Context primitives"
+ (212 primitiveSize) "Compatibility with Cog StackInterpreter Context primitives"
+ (213 219 primitiveFail) "reserved for Cog primitives"
+
+ (220 primitiveFail) "reserved for Cog primitives"
+
+ (221 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch"
+ (222 primitiveClosureValueNoContextSwitch) "valueNoContextSwitch:"
+
+ (223 229 primitiveFail) "reserved for Cog primitives"
+
+ (230 primitiveRelinquishProcessor)
+ (231 primitiveForceDisplayUpdate)
+ (232 primitiveFormPrint)
+ (233 primitiveSetFullScreen)
+ (234 primitiveFail) "primBitmapdecompressfromByteArrayat"
+ (235 primitiveFail) "primStringcomparewithcollated"
+ (236 primitiveFail) "primSampledSoundconvert8bitSignedFromto16Bit"
+ (237 primitiveFail) "primBitmapcompresstoByteArray"
+ (238 239 primitiveFail) "serial port primitives"
+ (240 primitiveUTCMicrosecondClock) "was serial port primitive"
+ (241 primitiveLocalMicrosecondClock) "was serial port primitive"
+ (242 primitiveSignalAtUTCMicroseconds)
+ (243 primitiveFail) "primStringtranslatefromtotable"
+ (244 primitiveFail) "primStringfindFirstInStringinSetstartingAt"
+ (245 primitiveFail) "primStringindexOfAsciiinStringstartingAt"
+ (246 primitiveFail) "primStringfindSubstringinstartingAtmatchTable"
+ (247 primitiveSnapshotEmbedded)
+ (248 primitiveInvokeObjectAsMethod)
+ (249 primitiveArrayBecomeOneWayCopyHash)
+
+ "VM Implementor Primitives (250-255)"
+ (250 clearProfile)
+ (251 dumpProfile)
+ (252 startProfiling)
+ (253 stopProfiling)
+ (254 primitiveVMParameter)
+ (255 primitiveFail) "primitiveInstVarsPutFromStack. Never used except in Disney tests. Remove after 2.3 release."
+
+ "Quick push const methods for context interpreter"
+ (256 primitivePushSelf)
+ (257 primitivePushTrue)
+ (258 primitivePushFalse)
+ (259 primitivePushNil)
+ (260 primitivePushMinusOne)
+ (261 primitivePushZero)
+ (262 primitivePushOne)
+ (263 primitivePushTwo)
+
+ "Quick push inst var methods (next 256) for context interpreter"
+ (264 519 primitiveLoadInstVar)
+
+ "These ranges used to be used by obsiolete indexed primitives."
+ (520 529 primitiveFail)
+ (530 539 primitiveFail)
+ (540 549 primitiveFail)
+ (550 559 primitiveFail)
+ (560 569 primitiveFail)
+
+ "External primitive support primitives"
+ (570 primitiveFlushExternalPrimitives)
+ (571 primitiveUnloadModule)
+ (572 primitiveListBuiltinModule)
+ (573 primitiveListExternalModule)
+ (574 primitiveFail) "reserved for addl. external support prims"
+
+ "Unassigned Primitives"
+ (575 primitiveFail)).
+ !
Item was added:
+ ----- Method: PrimitiveTableHistory class>>lastPreClosuresVersion (in category 'significant versions') -----
+ lastPreClosuresVersion
+ "The primitive table immediately prior to the first closures enabled image"
+
+ "self lastPreClosuresVersion"
+ "self differenceFrom: self lastPreClosuresVersion to: self firstClosuresVersion"
+ "self differenceFrom: self lastPreClosuresVersion to: self current"
+
+ ^self table20050127!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>lastVersionInOldFiles (in category 'significant versions') -----
+ lastVersionInOldFiles
+ "The version in the Squeak 3 sources file, after which the VM was maintained outside the base image"
+
+ "self lastVersionInOldFiles"
+ "self differenceFrom: self lastVersionInOldFiles to: self firstVersionInRepository"
+
+ ^self table20010203!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>latestForInterpreterVM (in category 'significant versions') -----
+ latestForInterpreterVM
+ "Most recent version suitable for interpreter VM use. Possibly a few versions
+ behind latest for oscog."
+
+ "self latestForInterpreterVM"
+ "self latestForInterpreterVM difference: self current"
+
+ ^self table20160123!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19961028 (in category 'tables') -----
+ table19961028
+ "self table19961028"
+ self initializePrimitiveTable19961028Squeak11.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19970118 (in category 'tables') -----
+ table19970118
+ "self table19970118"
+ self initializePrimitiveTable19970118Squeak118.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19970617 (in category 'tables') -----
+ table19970617
+ "self table19970617"
+ self initializePrimitiveTable19970617jm.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19970918 (in category 'tables') -----
+ table19970918
+ "self table19970918"
+ self initializePrimitiveTable19970918jm.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19980114 (in category 'tables') -----
+ table19980114
+ "self table19980114"
+ "self differenceFrom: self table19980114 to: self table19980121"
+
+ self initializePrimitiveTable19980114ikp.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19980121 (in category 'tables') -----
+ table19980121
+ "self table19980121"
+ "self differenceFrom: self firstKnownVersion to: self table19980121"
+
+ self initializePrimitiveTable19980121jm.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19980518 (in category 'tables') -----
+ table19980518
+ "self table19980518"
+
+ self initializePrimitiveTable19980518jm.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19980628 (in category 'tables') -----
+ table19980628
+ "self table19980628"
+
+ self initializePrimitiveTable19980628jm.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19980922 (in category 'tables') -----
+ table19980922
+ "self table19980922"
+
+ self initializePrimitiveTable19980922jm.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19990128 (in category 'tables') -----
+ table19990128
+ "self table19990128"
+ self initializePrimitiveTable19990128di.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19990421 (in category 'tables') -----
+ table19990421
+ "self table19990421"
+ self initializePrimitiveTable19990421jm.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table19990920 (in category 'tables') -----
+ table19990920
+ "self table19990920"
+ self initializePrimitiveTable19990920ar.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20000119 (in category 'tables') -----
+ table20000119
+ "self table20000119"
+ self initializePrimitiveTable20000119ar.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20000906 (in category 'tables') -----
+ table20000906
+ "self table20000906"
+ self initializePrimitiveTable20000906tpr.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20010203 (in category 'tables') -----
+ table20010203
+ "self table20010203"
+ self initializePrimitiveTable20010203ar.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20040211 (in category 'tables') -----
+ table20040211
+ "self table20040211"
+ self initializePrimitiveTable20040211tpr.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20040324 (in category 'tables') -----
+ table20040324
+ "self table20040324"
+ self initializePrimitiveTable20040324tpr.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20040719 (in category 'tables') -----
+ table20040719
+ "self table20040719"
+ self initializePrimitiveTable20040719ajh.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20050127 (in category 'tables') -----
+ table20050127
+ "self table20050127"
+ self initializePrimitiveTable20050127JMM.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20090218 (in category 'tables') -----
+ table20090218
+ "self table20090218"
+ self initializePrimitiveTable20090218eem.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20101211 (in category 'tables') -----
+ table20101211
+ "self table20101211"
+ self initializePrimitiveTable20101211dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20111015 (in category 'tables') -----
+ table20111015
+ "self table20111015"
+ self initializePrimitiveTable20111015dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20111125 (in category 'tables') -----
+ table20111125
+ "self table20111125"
+ self initializePrimitiveTable20111125dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20120130 (in category 'tables') -----
+ table20120130
+ "self table20120130"
+ self initializePrimitiveTable20120130dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20120704 (in category 'tables') -----
+ table20120704
+ "self table20120704"
+ self initializePrimitiveTable20120704dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20120809 (in category 'tables') -----
+ table20120809
+ "self table20120809"
+ self initializePrimitiveTable20120809dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20130105 (in category 'tables') -----
+ table20130105
+ "self table20130105"
+ self initializePrimitiveTable20130105dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20130314 (in category 'tables') -----
+ table20130314
+ "self table20130314"
+ self initializePrimitiveTable20130314eem.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20160120 (in category 'tables') -----
+ table20160120
+ "self table20160120"
+ self initializePrimitiveTable20160120dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20160123 (in category 'tables') -----
+ table20160123
+ "self table20160123"
+ self initializePrimitiveTable20160123dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20160501 (in category 'tables') -----
+ table20160501
+ "self table20160501"
+ self initializePrimitiveTable20160501dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table20161221 (in category 'tables') -----
+ table20161221
+ "self table20161221"
+ self initializePrimitiveTable20161221dtl.
+ ^ PrimitiveTable copy!
Item was added:
+ ----- Method: PrimitiveTableHistory class>>table:from: (in category 'transforming') -----
+ table: anArray from: specArray
+ "SpecArray is an array of either (index selector) or (index1
+ index2 selector)."
+
+ PrimitiveTable := specArray "just save specArray without conversion"
+
+ "| contiguous |
+ contiguous := 0.
+ specArray do: [:spec |
+ (spec at: 1) = contiguous
+ ifFalse: [self error: 'Non-contiguous table entry'].
+ spec size = 2
+ ifTrue: [anArray at: (spec at: 1) + 1
+ put: (spec at: 2).
+ contiguous := contiguous + 1]
+ ifFalse: [(spec at: 1) to: (spec at: 2) do: [:i | anArray at: i + 1 put: (spec at: 3)].
+ contiguous := contiguous + ((spec at: 2) - (spec at: 1)) + 1]]"!
Item was changed:
----- Method: VMMaker class>>versionString (in category 'version testing') -----
versionString
"VMMaker versionString"
+ ^'4.16.1'!
- ^'4.15.11'!
1
0
[OpenSmalltalk/opensmalltalk-vm] 23cbc6: Backport Pharo solution of doing fake key down for...
by GitHub 03 Jan '17
by GitHub 03 Jan '17
03 Jan '17
Branch: refs/heads/JMM/CMDKey
Home: https://github.com/OpenSmalltalk/opensmalltalk-vm
Commit: 23cbc6645f07583d5047dc77757e72b350756848
https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/23cbc6645f07583d50…
Author: johnmci <johnmci(a)smalltalkconsulting.com>
Date: 2017-01-02 (Mon, 02 Jan 2017)
Changed paths:
M platforms/iOS/vm/OSX/sqSqueakOSXOpenGLView.m
Log Message:
-----------
Backport Pharo solution of doing fake key down for modifier keys. Maybe a better solution than generating fake mouse event. Still it does not generate a keyUp, but image side should reflect the modifier value (say for shift) Also with image support know the difference between left/right shift.
1
0
Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2060.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.2060
Author: eem
Time: 30 December 2016, 5:35:05.715938 pm
UUID: f9dcc3c5-4596-4d3b-a6f1-40a2dde5c7f5
Ancestors: VMMaker.oscog-eem.2059
SocketPluginSimulator:
SocketPlugin simulation sufficient to do a diff of a changed package against source.squeak.org/trunk, and indeed sufficient to get far enough to provke an assert-fail in compaction.
Simulate only ipv4.
Clean up primitiveHasSocketAccess to be smart syntax and eliminate the cCode: from initialiseModule.
=============== Diff against VMMaker.oscog-eem.2059 ===============
Item was added:
+ ----- Method: NewCoObjectMemorySimulator>>signalSemaphoreWithIndex: (in category 'simulation only') -----
+ signalSemaphoreWithIndex: index
+ "hack around the CoInterpreter/ObjectMemory split refactoring"
+ ^coInterpreter signalSemaphoreWithIndex: index!
Item was added:
+ ----- Method: NewObjectMemorySimulator>>signalSemaphoreWithIndex: (in category 'simulation only') -----
+ signalSemaphoreWithIndex: index
+ "hack around the CoInterpreter/ObjectMemory split refactoring"
+ ^coInterpreter signalSemaphoreWithIndex: index!
Item was added:
+ ----- Method: SocketPlugin class>>simulatorClass (in category 'simulation') -----
+ simulatorClass
+ ^SmartSyntaxPluginSimulator!
Item was changed:
----- Method: SocketPlugin>>initialiseModule (in category 'initialize-release') -----
initialiseModule
<export: true>
sDSAfn := interpreterProxy ioLoadFunction: 'secDisableSocketAccess' From: 'SecurityPlugin'.
sHSAfn := interpreterProxy ioLoadFunction: 'secHasSocketAccess' From: 'SecurityPlugin'.
sCCTPfn := interpreterProxy ioLoadFunction: 'secCanConnectToPort' From: 'SecurityPlugin'.
sCCLOPfn := interpreterProxy ioLoadFunction: 'secCanListenOnPort' From: 'SecurityPlugin'.
sCCSOTfn := interpreterProxy ioLoadFunction: 'secCanCreateSocketOfType' From: 'SecurityPlugin'.
+ ^self socketInit!
- ^self cCode: 'socketInit()' inSmalltalk:[true]!
Item was changed:
----- Method: SocketPlugin>>primitiveHasSocketAccess (in category 'security primitives') -----
primitiveHasSocketAccess
+ self primitive: 'primitiveHasSocketAccess'.
- | hasAccess |
- <export: true>
"If the security plugin can be loaded, use it to check .
If not, assume it's ok"
+ ^(sHSAfn = 0
+ or: [self cCode: ' ((sqInt (*) (void)) sHSAfn)()' inSmalltalk: [true]]) asBooleanObj!
- hasAccess := sHSAfn = 0
- or: [self cCode: ' ((sqInt (*) (void)) sHSAfn)()' inSmalltalk:[true]].
- interpreterProxy pop: 1.
- interpreterProxy pushBool: hasAccess!
Item was added:
+ SocketPlugin subclass: #SocketPluginSimulator
+ instanceVariableNames: 'openSocketHandles externalSemaphores hostSocketToSimSocketMap simSocketToHostSocketMap fakeAddressCounter resolverSemaphoreIndex ipv6support'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'VMMaker-InterpreterSimulation'!
Item was added:
+ ----- Method: SocketPluginSimulator>>close (in category 'initialize-release') -----
+ close "close any sockets that ST may have opened"
+ openSocketHandles do: [:h | self closeAndDestroy: h].
+ Smalltalk unregisterExternalObjects: externalSemaphores!
Item was added:
+ ----- Method: SocketPluginSimulator>>closeAndDestroy: (in category 'initialize-release') -----
+ closeAndDestroy: socketHandle
+ "c.f. Socket closeAndDestroy: timeoutSeconds"
+ | fakeSocket |
+ fakeSocket := Socket basicNew.
+ [(fakeSocket primSocketConnectionStatus: socketHandle) = (Socket classPool at: #Connected) ifTrue:
+ [fakeSocket primSocketCloseConnection: socketHandle].
+ fakeSocket
+ primSocketAbortConnection: socketHandle;
+ primSocketDestroy: socketHandle]
+ on: SocketPrimitiveFailed
+ do: [:ex| Transcript cr; show: ex message]!
Item was added:
+ ----- Method: SocketPluginSimulator>>hostSocketHandleFromSimSocketHandle: (in category 'simulation support') -----
+ hostSocketHandleFromSimSocketHandle: socketHandleCArray
+ "Answer the corresponding host socketHandle for the simulation socketHandle, or nil if none, failing the primitive."
+ ^simSocketToHostSocketMap
+ at: (self simSocketHandleFrom: socketHandleCArray)
+ ifAbsent: [interpreterProxy primitiveFail. nil]!
Item was added:
+ ----- Method: SocketPluginSimulator>>ipv6support (in category 'accessing') -----
+ ipv6support
+
+ ^ ipv6support
+ !
Item was added:
+ ----- Method: SocketPluginSimulator>>ipv6support: (in category 'accessing') -----
+ ipv6support: anObject
+
+ ipv6support := anObject.
+ !
Item was added:
+ ----- Method: SocketPluginSimulator>>map:to:type:register:spawning:and:and: (in category 'simulation support') -----
+ map: hostSocketHandle to: simSockPtr type: socketType register: semaphores spawning: blockOne and: blockTwo and: blockThree
+ | simSocket |
+ "SQSocket is typedef struct { int sessionID; int socketType; void *privateSocketPtr; } SQSocket"
+ simSocket := ByteArray new: (self sizeof: #SQSocket).
+ simSocket
+ unsignedLongAt: 1 put: interpreterProxy getThisSessionID;
+ unsignedLongAt: 5 put: socketType.
+ simSocket size = 12
+ ifTrue: [simSocket unsignedLongAt: 9 put: (fakeAddressCounter := fakeAddressCounter + 64)]
+ ifFalse: [simSocket unsignedLongLongAt: 9 put: (fakeAddressCounter := fakeAddressCounter + 80)].
+ self assert: ((interpreterProxy isBytes: simSockPtr cPtrAsOop)
+ and: [(interpreterProxy numBytesOf: simSockPtr cPtrAsOop) = simSocket size]).
+ 1 to: simSocket size do:
+ [:i| simSockPtr at: i - 1 put: (simSocket at: i)].
+ self assert: (self simSocketHandleFrom: simSockPtr) = simSocket.
+ openSocketHandles add: hostSocketHandle.
+ hostSocketToSimSocketMap at: hostSocketHandle put: simSocket.
+ simSocketToHostSocketMap at: simSocket put: hostSocketHandle.
+ externalSemaphores addAll: semaphores.
+ "N.B. These don't need registering. Eventually they will end up
+ waiting on semaphores that have been unregistered, and hence
+ will get garbage collected, along with these processes."
+ blockOne fork.
+ blockTwo fork.
+ blockThree fork!
Item was added:
+ ----- Method: SocketPluginSimulator>>netAddressAsByteArrayFromInt: (in category 'simulation support') -----
+ netAddressAsByteArrayFromInt: netAddress
+ ^ByteArray
+ with: ((netAddress bitShift: -24) bitAnd: 16rFF)
+ with: ((netAddress bitShift: -16) bitAnd: 16rFF)
+ with: ((netAddress bitShift: -8) bitAnd: 16rFF)
+ with: (netAddress bitAnd: 16rFF)!
Item was added:
+ ----- Method: SocketPluginSimulator>>simSocketHandleFrom: (in category 'simulation support') -----
+ simSocketHandleFrom: socketHandleCArray
+ | simSocket |
+ "SQSocket is typedef struct { int sessionID; int socketType; void *privateSocketPtr; } SQSocket"
+ simSocket := ByteArray new: (self sizeof: #SQSocket).
+ 1 to: simSocket size do:
+ [:i|
+ simSocket at: i put: (socketHandleCArray at: i - 1)].
+ ^simSocket!
Item was added:
+ ----- Method: SocketPluginSimulator>>simulator: (in category 'accessing') -----
+ simulator: aSmartSyntaxPluginSimulator
+ super simulator: aSmartSyntaxPluginSimulator.
+ aSmartSyntaxPluginSimulator logging: true!
Item was added:
+ ----- Method: SocketPluginSimulator>>socketInit (in category 'initialize-release') -----
+ socketInit
+ openSocketHandles := Set new.
+ externalSemaphores := Set new.
+ hostSocketToSimSocketMap := Dictionary new.
+ simSocketToHostSocketMap := Dictionary new.
+ fakeAddressCounter := 16r50C4E70. "Socket, if you squint at it right..."
+ "Set all the security functions to zero so simulation does't need to work fully."
+ sDSAfn := sHSAfn := sCCTPfn := sCCLOPfn := sCCSOTfn := 0.
+ "for now..."
+ ipv6support := false.
+ ^true!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqNetworkInit: (in category 'simulation') -----
+ sqNetworkInit: resolverSemaIndex
+ "Simply assume the network is initialized."
+ (NetNameResolver classPool at: #HaveNetwork) ifFalse:
+ [NetNameResolver initializeNetwork].
+ resolverSemaphoreIndex
+ ifNil: [resolverSemaphoreIndex := resolverSemaIndex]
+ ifNotNil: [self assert: resolverSemaphoreIndex = resolverSemaIndex].
+ ^0!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqResolverHostNameSize (in category 'simulation') -----
+ sqResolverHostNameSize
+ ipv6support ifTrue: [^NetNameResolver primHostNameSize].
+ interpreterProxy primitiveFail!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqResolverNameLookupResult (in category 'simulation') -----
+ sqResolverNameLookupResult
+ "For now don't simulate the implicit semaphore."
+ | bytes |
+ bytes := NetNameResolver primNameLookupResult.
+ self assert: bytes size = 4.
+ "Effectively netAddressToInt: bytes"
+ ^ ((bytes at: 4)) +
+ ((bytes at: 3) <<8) +
+ ((bytes at: 2) <<16) +
+ ((bytes at: 1) <<24)!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqResolverStartName:Lookup: (in category 'simulation') -----
+ sqResolverStartName: aCArray Lookup: size
+ "For now don't simulate the implicit semaphore."
+ | hostName busy |
+ busy := NetNameResolver classPool at: #ResolverBusy.
+ hostName := self st: (String new: size) rn: aCArray cpy: size.
+ NetNameResolver primStartLookupOfName: hostName.
+ resolverSemaphoreIndex ifNotNil:
+ [[[NetNameResolver primNameResolverStatus = busy] whileTrue:
+ [(Delay forSeconds: 1) wait].
+ interpreterProxy signalSemaphoreWithIndex: resolverSemaphoreIndex] fork]
+ !
Item was added:
+ ----- Method: SocketPluginSimulator>>sqResolverStatus (in category 'simulation') -----
+ sqResolverStatus
+ ^NetNameResolver primNameResolverStatus!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqSocket:ConnectTo:Port: (in category 'simulation') -----
+ sqSocket: socketHandle ConnectTo: addr Port: port
+ ^[Socket basicNew
+ primSocket: ((self hostSocketHandleFromSimSocketHandle: socketHandle) ifNil: [^self])
+ connectTo: (self netAddressAsByteArrayFromInt: addr)
+ port: port]
+ on: SocketPrimitiveFailed
+ do: [:ex|
+ interpreterProxy primitiveFail.
+ 0]!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqSocket:CreateNetType:SocketType:RecvBytes:SendBytes:SemaID:ReadSemaID:WriteSemaID: (in category 'simulation') -----
+ sqSocket: sockPtr CreateNetType: netType SocketType: socketType RecvBytes: recvBufSize SendBytes: sendBufSize SemaID: semaIndex ReadSemaID: readSemaIndex WriteSemaID: writeSemaIndex
+ "Simulate the sqSocketCreateNetTypeSocketTypeRecvBytesSendBytesSemaIDReadSemaIDWriteSemaID function.
+ We descend beneath the Socket abstraftion to simulate as accurately as possible."
+ | semaphoresAndIndexes semaphores indexes socketHandle |
+ semaphoresAndIndexes := Smalltalk newExternalSemaphores: 3.
+ semaphores := semaphoresAndIndexes first.
+ indexes := semaphoresAndIndexes second.
+ socketHandle := [Socket basicNew
+ primSocketCreateNetwork: netType
+ type: socketType
+ receiveBufferSize: recvBufSize
+ sendBufSize: sendBufSize
+ semaIndex: indexes first
+ readSemaIndex: indexes second
+ writeSemaIndex: indexes third]
+ on: SocketPrimitiveFailed
+ do: [:ex|
+ #failed].
+ socketHandle == #failed ifTrue:
+ [interpreterProxy primitiveFail.
+ Smalltalk unregisterExternalObjects: semaphores.
+ ^self].
+ "N.B. There is now a Processor yield in doSignalExternalSemaphores: every 100 virtual microseconds.
+ This allows these to make progress. Their job is to map a host signal into a signal of the relevant index."
+ self map: socketHandle
+ to: sockPtr
+ type: socketType
+ register: semaphores
+ spawning: [[semaphores first wait. interpreterProxy signalSemaphoreWithIndex: semaIndex] repeat]
+ and: [[semaphores second wait. interpreterProxy signalSemaphoreWithIndex: readSemaIndex] repeat]
+ and: [[semaphores third wait. interpreterProxy signalSemaphoreWithIndex: writeSemaIndex] repeat]!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqSocket:ReceiveDataBuf:Count: (in category 'simulation') -----
+ sqSocket: socketHandleCArray ReceiveDataBuf: bufferStartCArray Count: numBytes
+ ^[| buffer n |
+ buffer := ByteArray new: numBytes.
+ n := Socket basicNew
+ primSocket: ((self hostSocketHandleFromSimSocketHandle: socketHandleCArray) ifNil: [^0])
+ receiveDataInto: buffer
+ startingAt: 1
+ count: numBytes.
+ 1 to: n do:
+ [:i|
+ bufferStartCArray at: i - 1 put: (buffer at: i)].
+ n]
+ on: SocketPrimitiveFailed
+ do: [:ex|
+ interpreterProxy primitiveFail.
+ 0]!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqSocket:SendDataBuf:Count: (in category 'simulation') -----
+ sqSocket: socketHandleCArray SendDataBuf: bufferStartCArray Count: numBytes
+ | data |
+ data := ByteArray new: numBytes.
+ 1 to: numBytes do:
+ [:i| data at: i put: (bufferStartCArray at: i - 1)].
+ ^[Socket basicNew
+ primSocket: ((self hostSocketHandleFromSimSocketHandle: socketHandleCArray) ifNil: [^0])
+ sendData: data
+ startIndex: 1
+ count: numBytes]
+ on: SocketPrimitiveFailed
+ do: [:ex|
+ interpreterProxy primitiveFail.
+ 0]!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqSocketConnectionStatus: (in category 'simulation') -----
+ sqSocketConnectionStatus: socketHandleCArray
+ ^[Socket basicNew
+ primSocketConnectionStatus: ((self hostSocketHandleFromSimSocketHandle: socketHandleCArray) ifNil: [^-1])]
+ on: SocketPrimitiveFailed
+ do: [:ex|
+ interpreterProxy primitiveFail.
+ -1]!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqSocketDestroy: (in category 'simulation') -----
+ sqSocketDestroy: socketHandleCArray
+ | simHandle hostHandle |
+ simHandle := self simSocketHandleFrom: socketHandleCArray.
+ hostHandle := simSocketToHostSocketMap removeKey: simHandle ifAbsent: [].
+ hostHandle ifNil:
+ [interpreterProxy primitiveFail.
+ ^self].
+ hostSocketToSimSocketMap removeKey: hostHandle ifAbsent: [].
+ [Socket basicNew primSocketDestroy: hostHandle]
+ on: SocketPrimitiveFailed
+ do: [:ex|
+ interpreterProxy primitiveFail]!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqSocketReceiveDataAvailable: (in category 'simulation') -----
+ sqSocketReceiveDataAvailable: socketHandleCArray
+ ^[Socket basicNew
+ primSocketReceiveDataAvailable: ((self hostSocketHandleFromSimSocketHandle: socketHandleCArray) ifNil: [^false])]
+ on: SocketPrimitiveFailed
+ do: [:ex|
+ interpreterProxy primitiveFail.
+ false]!
Item was added:
+ ----- Method: SocketPluginSimulator>>sqSocketSendDone: (in category 'simulation') -----
+ sqSocketSendDone: socketHandleCArray
+ ^[Socket basicNew
+ primSocketSendDone: ((self hostSocketHandleFromSimSocketHandle: socketHandleCArray) ifNil: [^false])]
+ on: SocketPrimitiveFailed
+ do: [:ex|
+ interpreterProxy primitiveFail.
+ false]!
Item was added:
+ ----- Method: SpurMemoryManager>>signalSemaphoreWithIndex: (in category 'simulation only') -----
+ signalSemaphoreWithIndex: index
+ "hack around the CoInterpreter/ObjectMemory split refactoring"
+ <doNotGenerate>
+ ^coInterpreter signalSemaphoreWithIndex: index!
Item was changed:
----- Method: StackInterpreterSimulator>>signalSemaphoreWithIndex: (in category 'process primitive support') -----
signalSemaphoreWithIndex: index
"This is a non-thread-safe simulation. See platforms/Cross/vm/sqExternalSemaphores.c
for the real code."
index <= 0 ifTrue: [^false].
index > externalSemaphoreSignalRequests size ifTrue:
[| newRequests newResponses |
newRequests := Array new: 1 << index highBit withAll: 0.
newResponses := newRequests copy.
newRequests
replaceFrom: 1
to: externalSemaphoreSignalRequests size
with: externalSemaphoreSignalRequests
startingAt: 1.
newResponses
replaceFrom: 1
to: externalSemaphoreSignalResponses size
with: externalSemaphoreSignalResponses
+ startingAt: 1.
+ externalSemaphoreSignalRequests := newRequests.
+ externalSemaphoreSignalResponses := newResponses].
- startingAt: 1].
externalSemaphoreSignalRequests
at: index
put: (externalSemaphoreSignalRequests at: index) + 1.
^true!
3
6