Vm-dev August 2021

vm-dev@lists.squeakfoundation.org

17 participants
161 discussions

[OpenSmalltalk/opensmalltalk-vm] 83613f: Fix compilation of the AArch32 simulator support c...
by Eliot Miranda 09 Aug '21

09 Aug '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 83613ff92f7aba5f9e67f40f938293d837dc9a69 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/83613ff92f7aba5f9e… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-08-09 (Mon, 09 Aug 2021) Changed paths: M processors/ARM/gdb-8.3.1/sim/arm/armos.c M processors/ARM/gdb-8.3.1/sim/arm/armulmem.c Log Message: ----------- Fix compilation of the AArch32 simulator support code.

1 0

VM Maker: VMMaker.oscog-eem.3033.mcz
by commits＠source.squeak.org 09 Aug '21

09 Aug '21

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.3033.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.3033 Author: eem Time: 9 August 2021, 1:36:42.474846 pm UUID: f561c302-005c-4fa1-bff2-8d965409d563 Ancestors: VMMaker.oscog-eem.3032 Cogit/AndreasSystemProfiling: fix major slip in genCheckForProfileTimerTick:; only take a sample if nextProfileTick > 0. primitiveFlushExternalPrimitives. primitiveUnloadModule & primitiveProfileSemaphore can also endure code movement and need to be side-ways called. Make sure ceActivateFailingPrimitiveMethod: gathers profile samples when profiling. Nuke ceCheckProfileTick and replace it by ceTakeProfileSample: which interpeets null as attributing to newMethod. Interpreter: abstract comparing a Smalltalk oop aganst a C string. Slng: eliminate warnigns of liveRegisters shadowing, and of repeated removals of the memory variable. =============== Diff against VMMaker.oscog-eem.3032 =============== Item was changed: ----- Method: CoInterpreter>>ceActivateFailingPrimitiveMethod: (in category 'enilopmarts') ----- ceActivateFailingPrimitiveMethod: aPrimitiveMethod "An external call or FFI primitive has failed. Build the frame and activate as appropriate. Enter either the interpreter or machine code depending on whether aPrimitiveMethod has been or is still cogged. Note that we could always interpret but want the efficiency of executing machine code if it is available." <api> | methodHeader result | self assert: primFailCode ~= 0. self assert: newMethod = aPrimitiveMethod. "If we're on Spur, retry the primitive, if appropriate, returning if successful after retry." objectMemory hasSpurMemoryManagerAPI ifTrue: [self retryPrimitiveOnFailure. self successful ifTrue: + [(profileSemaphore ~= objectMemory nilObject + and: [self ioHighResClock >= nextProfileTick]) ifTrue: + [self ceTakeProfileSample: nil]. + result := self stackTop. - [result := self stackTop. self stackTopPut: instructionPointer. self push: result. cogit ceEnterCogCodePopReceiverReg]]. methodHeader := self rawHeaderOf: aPrimitiveMethod. (self isCogMethodReference: methodHeader) ifTrue: [self activateNewCogMethod: (self cCoerceSimple: methodHeader to: #'CogMethod *') inInterpreter: false] ifFalse: [self activateNewMethod]! Item was removed: - ----- Method: CoInterpreter>>ceCheckProfileTick (in category 'cog jit support') ----- - ceCheckProfileTick - "Check if the profile timer has expired and if so take a sample. - If the primitive has failed sample the profileMethod as nil. - As a courtesy to compileInterpreterPrimitive: map NULL to nilObj." - <api> - newMethod ifNil: [newMethod := objectMemory nilObject]. - self cCode: [] inSmalltalk: - [newMethod = 0 ifTrue: [newMethod := objectMemory nilObject]. - "Get round the assert in checkProfileTick: when just testing." - nextProfileTick = 0 ifTrue: - [self ifTestProfilingAdvanceNextProfileTick]]. - self checkProfileTick: newMethod. - self cCode: [] inSmalltalk: - [self ifTestProfilingAdvanceNextProfileTick]! Item was changed: ----- Method: CoInterpreter>>ceTakeProfileSample: (in category 'cog jit support') ----- + ceTakeProfileSample: aCogMethodOrNil - ceTakeProfileSample: aCogMethod "A primitive has succeeded and the nextProfileTick has been reached (all done in machine code). + If aCogMethodOrNil is not nil then it is the cog method containing the primitive call. + If aCogMethodOrNil is nil then this has been called from primReturnEnterCogCode and newMethod Now take a sample. c.f. checkProfileTick:" <api> + <var: 'aCogMethodOrNil' type: #'CogMethod *'> + <inline: false> "Slang type inferrence can't deal with self ceTakeProfileSample: nil..." - <var: 'aCogMethod' type: #'CogMethod *'> self cCode: '' inSmalltalk: + [aCogMethodOrNil isInteger ifTrue: + [^self ceTakeProfileSample: (aCogMethodOrNil = 0 ifFalse: + [cogit cCoerceSimple: aCogMethodOrNil to: #'CogMethod *'])]]. - [aCogMethod isInteger ifTrue: - [^self ceTakeProfileSample: (cogit cCoerceSimple: aCogMethod to: #'CogMethod *')]]. profileProcess := self activeProcess. + profileMethod := aCogMethodOrNil + ifNil: [newMethod] + ifNotNil: [aCogMethodOrNil methodObject]. - profileMethod := aCogMethod methodObject. self forceInterruptCheck. self zeroNextProfileTick! Item was changed: ----- Method: CoInterpreter>>functionPointerForCompiledMethod:primitiveIndex:primitivePropertyFlagsInto: (in category 'cog jit support') ----- functionPointerForCompiledMethod: methodObj primitiveIndex: primitiveIndex primitivePropertyFlagsInto: flagsPtr <api> <returnTypeC: 'void (*functionPointerForCompiledMethodprimitiveIndexprimitivePropertyFlagsInto(sqInt methodObj, sqInt primitiveIndex, sqInt *flagsPtr))(void)'> + | functionPointer flags | - | functionPointer | <var: #functionPointer declareC: #'void (*functionPointer)(void)'> flagsPtr ifNotNil: + [flagsPtr at: 0 put: (flags := self primitivePropertyFlags: primitiveIndex)]. - [flagsPtr at: 0 put: (self primitivePropertyFlags: primitiveIndex)]. functionPointer := self functionPointerFor: primitiveIndex inClass: nil. functionPointer == #primitiveCalloutToFFI ifTrue: [^self functionForPrimitiveCallout]. functionPointer == #primitiveExternalCall ifTrue: [| lit | lit := self attemptToLinkExternalPrimitive: methodObj. "N.B. We only support the FastCPrimitiveFlag on Spur because Spur will *not* run a GC to satisfy an allocation in a primitive. The V3 ObjectMemory will and hence the depth of stack needed in a V3 primitive is probably too large to safely execute on a stack page." objectMemory hasSpurMemoryManagerAPI ifTrue: + [| metadataFlags shiftedMetadataFlags | + metadataFlags := objectMemory fetchPointer: ExternalCallLiteralFlagsIndex ofObject: lit. + (objectMemory isIntegerObject: metadataFlags) ifTrue: + [shiftedMetadataFlags := ((objectMemory integerValueOf: metadataFlags) + bitAnd: SpurPrimitiveFlagsMask) + bitShift: PrimitiveMetadataFlagsShift. + shiftedMetadataFlags > 0 ifTrue: + ["Intentionally clear all other flags if there are Spur metadata flags..." + flags := shiftedMetadataFlags]]]. + (self object: (objectMemory fetchPointer: ExternalCallLiteralTargetFunctionIndex ofObject: lit) + equalsString: #primitiveProfileSemaphore) ifTrue: + [flags := flags bitOr: PrimCallMayEndureCodeCompaction]. + profileSemaphore ~= objectMemory nilObject ifTrue: + [flags := flags bitOr: PrimCallCollectsProfileSamples]. + flagsPtr at: 0 put: flags. - [| flags shiftedMetadataFlags | - flags := objectMemory fetchPointer: ExternalCallLiteralFlagsIndex ofObject: lit. - (objectMemory isIntegerObject: flags) ifTrue: - [shiftedMetadataFlags := ((objectMemory integerValueOf: flags) bitAnd: SpurPrimitiveFlagsMask) bitShift: PrimitiveMetadataFlagsShift. - profileSemaphore ~= objectMemory nilObject ifTrue: - [shiftedMetadataFlags := shiftedMetadataFlags bitOr: PrimCallCollectsProfileSamples]. - shiftedMetadataFlags ~= 0 ifTrue: - [flagsPtr at: 0 put: shiftedMetadataFlags]]]. ^self functionForPrimitiveExternalCall: methodObj]. ^functionPointer! Item was changed: ----- Method: CoInterpreter>>isCodeCompactingPrimitiveIndex: (in category 'primitive support') ----- isCodeCompactingPrimitiveIndex: primIndex "If instVarAt:, slotAt: or shallowCopy operate on a Context then they compute a bytecode pc and hence may provoke a code compaction. Hence primitive invocation from these primitives must use a static return address (cePrimReturnEnterCogCode:). Note that the process switch primitives may also provoke a code compaction, which happens when switching to a process whose top context has a machine code pc but the method is no longer in the code cache. However, in this case they are switching process and don't go through the normal return. So we don't include them here." <inline: true> + self cCode: [] inSmalltalk: [#primitiveClone. #primitiveInstVarAt. #primitiveSlotAt. #primitiveFlushExternalPrimitives. #primitiveUnloadModule]. "For senders..." - self cCode: [] inSmalltalk: [#primitiveClone. #primitiveInstVarAt. #primitiveSlotAt]. "For senders..." ^primIndex = PrimNumberInstVarAt or: [primIndex = PrimNumberShallowCopy + or: [primIndex = PrimNumberSlotAt + or: [primIndex = PrimNumberFlushExternalPrimitives + or: [primIndex = PrimNumberUnoadModule]]]]! - or: [primIndex = PrimNumberSlotAt]]! Item was changed: ----- Method: CoInterpreter>>methodHasPrimitiveInPrimTracePlugin: (in category 'compiled methods') ----- methodHasPrimitiveInPrimTracePlugin: aMethodObj <inline: #never> + | lit pluginName ok | - | lit nameLength pluginName | ((self isExternalPrimitiveCall: aMethodObj) and: [(objectMemory literalCountOf: aMethodObj) > 0]) ifFalse: [^false]. lit := self literal: 0 ofMethod: aMethodObj. ((objectMemory isArray: lit) and: [(objectMemory numSlotsOf: lit) = 4]) ifFalse: [^false]. self assert: primTracePluginName notNil. pluginName := objectMemory fetchPointer: 0 ofObject: lit. (objectMemory isBytes: pluginName) ifFalse: [^false]. + ok := self object: pluginName equalsString: primTracePluginName. + ^ok! - nameLength := objectMemory numBytesOfBytes: pluginName. - ^(self strncmp: primTracePluginName - _: (objectMemory firstIndexableField: pluginName) - _: nameLength) = 0 - and: [(self strlen: primTracePluginName) = nameLength]! Item was changed: ----- Method: CoInterpreterMT class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator + self class == thisContext methodClass ifFalse: [^self]. "Don't duplicate decls in subclasses" aCCodeGenerator addHeaderFile:'"sqAtomicOps.h"'. "For THRLOG" aCCodeGenerator vmClass declareInterpreterVersionIn: aCCodeGenerator defaultName: 'Cog MT'. aCCodeGenerator var: #disowningVMThread type: #'CogVMThread *'. aCCodeGenerator var: #reenterThreadSchedulingLoop type: 'jmp_buf'.! Item was changed: ----- Method: CogX64Compiler>>concretizeMovePerfCnt64RL (in category 'generate machine code - concretize') ----- concretizeMovePerfCnt64RL "Generate code for 0x0: 50 pushq %rax 0x1: 52 pushq %rdx 0x2: 0f 31 rdtsc 0x4: 48 c1 e2 20 shlq $0x20, %rdx 0x8: 48 09 d0 orq %rdx, %rax 0xb: 48 89 f8 movq %rdi, %rax 0xe: 5a popq %rdx 0xf: 58 popq %rax et al" + | reg liveRegisterMask offset | - | reg liveRegisters offset | reg := operands at: 0. + liveRegisterMask := operands at: 1. - liveRegisters := operands at: 1. offset := 0. + (liveRegisterMask anyMask: (cogit registerMaskFor: RAX)) ifTrue: - (liveRegisters anyMask: (cogit registerMaskFor: RAX)) ifTrue: [machineCode at: 0 put: 16r50. "push %eax" offset := offset + 1]. + (liveRegisterMask anyMask: (cogit registerMaskFor: RDX)) ifTrue: - (liveRegisters anyMask: (cogit registerMaskFor: RDX)) ifTrue: [machineCode at: offset put: 16r52. "push %edx" offset := offset + 1]. "too lazy to define the swap cases for the moment..." self deny: reg = RDX. machineCode at: offset put: 16r0F; "rdtsc" at: offset + 1 put: 16r31; at: offset + 2 put: (self rexR: 0 x: 0 b: RDX); "shlq $0x20, %rdx" at: offset + 3 put: 16rC1; at: offset + 4 put: (self mod: ModReg RM: RDX RO: 4); at: offset + 5 put: 32; at: offset + 6 put: (self rexR: RDX x: 0 b: RAX); "orq %rax, %rdx" at: offset + 7 put: 16r0B; at: offset + 8 put: (self mod: ModReg RM: RAX RO: RDX). offset := offset + 9. reg ~= RAX ifTrue: [machineCode at: offset put: (self rexR: RAX x: 0 b: reg); "movq %rDEST, %rax" at: offset + 1 put: 16r89; at: offset + 2 put: (self mod: ModReg RM: reg RO: RAX). offset := offset + 3]. + (liveRegisterMask anyMask: (cogit registerMaskFor: RDX)) ifTrue: - (liveRegisters anyMask: (cogit registerMaskFor: RDX)) ifTrue: [machineCode at: offset put: 16r5A. "pop %edx" offset := offset + 1]. + (liveRegisterMask anyMask: (cogit registerMaskFor: RAX)) ifTrue: - (liveRegisters anyMask: (cogit registerMaskFor: RAX)) ifTrue: [machineCode at: offset put: 16r58. "pop %eax" offset := offset + 1]. ^offset "{ cogit processor disassembleInstructionAt: 0 In: machineCode object. cogit processor disassembleInstructionAt: 2 In: machineCode object. cogit processor disassembleInstructionAt: 6 In: machineCode object. cogit processor disassembleInstructionAt: 9 In: machineCode object }"! Item was changed: ----- Method: Cogit>>MovePerfCnt64R:L: (in category 'abstract instructions') ----- + MovePerfCnt64R: destReg L: liveRegisterMask - MovePerfCnt64R: destReg L: liveRegisters <returnTypeC: #'AbstractInstruction *'> self assert: (backEnd has64BitPerformanceCounter and: [objectMemory wordSize = 8]). + ^self gen: MovePerfCnt64RL operand: destReg operand: liveRegisterMask! - ^self gen: MovePerfCnt64RL operand: destReg operand: liveRegisters! Item was changed: ----- Method: Cogit>>MovePerfCnt64R:R:L: (in category 'abstract instructions') ----- + MovePerfCnt64R: destRegLo R: destRegHi L: liveRegisterMask - MovePerfCnt64R: destRegLo R: destRegHi L: liveRegisters <returnTypeC: #'AbstractInstruction *'> self assert: (backEnd has64BitPerformanceCounter and: [objectMemory wordSize = 4]). + ^self gen: MovePerfCnt64RRL operand: destRegLo operand: destRegHi operand: liveRegisterMask! - ^self gen: MovePerfCnt64RRL operand: destRegLo operand: destRegHi operand: liveRegisters! Item was changed: ----- Method: NewObjectMemory>>findString: (in category 'debug support') ----- findString: aCString "Print the oops of all string-like things that have the same characters as aCString" <api> <var: #aCString type: #'char *'> + | aCStringStrlen obj sz | + aCStringStrlen := self strlen: aCString. - | cssz obj sz | - cssz := self strlen: aCString. obj := self firstObject. [self oop: obj isLessThan: freeStart] whileTrue: [(self isFreeObject: obj) ifTrue: [sz := self sizeOfFree: obj] ifFalse: + [(self object: obj equalsString: aCString ofSize: aCStringStrlen) ifTrue: - [((self isBytesNonImm: obj) - and: [(self lengthOf: obj) = cssz - and: [(self strncmp: aCString _: (self pointerForOop: obj + self baseHeaderSize) _: cssz) = 0]]) ifTrue: [coInterpreter printHex: obj; space; printOopShort: obj; cr]. sz := self sizeBitsOf: obj]. obj := self oopFromChunk: obj + sz]! Item was changed: ----- Method: NewObjectMemory>>findStringBeginningWith: (in category 'debug support') ----- findStringBeginningWith: aCString "Print the oops of all string-like things that start with the same characters as aCString" <api> <var: #aCString type: #'char *'> + | aCStringStrlen obj sz | + aCStringStrlen := self strlen: aCString. - | cssz obj sz | - cssz := self strlen: aCString. obj := self firstObject. [self oop: obj isLessThan: freeStart] whileTrue: [(self isFreeObject: obj) ifTrue: [sz := self sizeOfFree: obj] ifFalse: + [(self object: obj equalsString: aCString ofSize: aCStringStrlen) ifTrue: - [((self isBytesNonImm: obj) - and: [(self lengthOf: obj) >= cssz - and: [(self strncmp: aCString _: (self pointerForOop: obj + self baseHeaderSize) _: cssz) = 0]]) ifTrue: [coInterpreter printHex: obj; space; printNum: (self lengthOf: obj); space; printOopShort: obj; cr]. sz := self sizeBitsOf: obj]. obj := self oopFromChunk: obj + sz]! Item was changed: ----- Method: SimpleStackBasedCogit>>genCheckForProfileTimerTick: (in category 'primitive generators') ----- + genCheckForProfileTimerTick: liveRegisterMask + "Compare the performance counter against the nextProfileTick, if nextProfileTick + and answer the jump taken if the performance counter has past nextProfileTick. + So implement (nextProfileTick > 0 and: [self ioHighResClock > nextProfileTick]) ifTrue:" - genCheckForProfileTimerTick: liveRegisters <inline: #always> objectMemory wordSize = 8 ifTrue: + [| reg skip jump | - [| reg | reg := backEnd preferredRegisterForMovePerfCnt64RL = NoReg ifTrue: [Arg0Reg] ifFalse: [backEnd preferredRegisterForMovePerfCnt64RL]. - self MovePerfCnt64R: reg L: liveRegisters. self MoveAw: coInterpreter nextProfileTickAddress R: Arg1Reg. + self CmpCq: 0 R: Arg1Reg. + skip := self JumpZero: 0. + self MovePerfCnt64R: reg L: liveRegisterMask. self CmpR: Arg1Reg R: reg. + jump := self JumpAboveOrEqual: 0. + skip jmpTarget: self Label. + ^jump] - ^self JumpAboveOrEqual: 0] ifFalse: + [| effectiveLiveRegisters regLo regHi skip jump | - [| effectiveLiveRegisters regLo regHi | self flag: #endianness. + self deny: ((self registerMaskFor: ClassReg and: SendNumArgsReg) anyMask: liveRegisterMask). + effectiveLiveRegisters := liveRegisterMask bitOr: (self registerMaskFor: ClassReg and: SendNumArgsReg). - self deny: ((self registerMaskFor: ClassReg and: SendNumArgsReg) anyMask: liveRegisters). - effectiveLiveRegisters := liveRegisters bitOr: (self registerMaskFor: ClassReg and: SendNumArgsReg). regLo := Arg0Reg. regHi := Arg1Reg. backEnd preferredRegisterPairForMovePerfCnt64RRLInto: [:prefRegLo :prefRegHi| + (self register: prefRegLo isInMask: liveRegisterMask) ifFalse: - (self register: prefRegLo isInMask: liveRegisters) ifFalse: [regLo := prefRegLo]. + (self register: prefRegHi isInMask: liveRegisterMask) ifFalse: - (self register: prefRegHi isInMask: liveRegisters) ifFalse: [regHi := prefRegHi]]. self MoveAw: coInterpreter nextProfileTickAddress R: ClassReg. self MoveAw: coInterpreter nextProfileTickAddress + 4 R: SendNumArgsReg. + self AddR: ClassReg R: SendNumArgsReg R: regLo. + skip := self JumpZero: 0. + self MovePerfCnt64R: regLo R: regHi L: liveRegisterMask. - self MovePerfCnt64R: regLo R: regHi L: liveRegisters. self SubR: ClassReg R: regLo. self SubbR: SendNumArgsReg R: regHi. + jump := self JumpAboveOrEqual: 0. + skip jmpTarget: self Label. + ^jump]! - ^self JumpAboveOrEqual: 0]! Item was changed: ----- Method: SimpleStackBasedCogit>>genPrimReturnEnterCogCodeEnilopmart: (in category 'initialization') ----- genPrimReturnEnterCogCodeEnilopmart: profiling "Generate the substitute return code for an external or FFI primitive call. On success simply return, extracting numArgs from newMethod. On primitive failure call ceActivateFailingPrimitiveMethod: newMethod." | jmpSample continuePostSample jmpFail | <var: #jmpSample type: #'AbstractInstruction *'> <var: #continuePostSample type: #'AbstractInstruction *'> <var: #jmpFail type: #'AbstractInstruction *'> self zeroOpcodeIndex. backEnd hasVarBaseRegister ifTrue: [self MoveCq: self varBaseAddress R: VarBaseReg]. "Must happen sometime" "Test primitive failure" self MoveAw: coInterpreter primFailCodeAddress R: TempReg. self flag: 'ask concrete code gen if move sets condition codes?'. self CmpCq: 0 R: TempReg. jmpFail := self JumpNonZero: 0. (profiling and: [backEnd has64BitPerformanceCounter]) ifTrue: [jmpSample := self genCheckForProfileTimerTick: (self registerMaskFor: NoReg). continuePostSample := self Label]. "Switch back to the Smalltalk stack. Stack better be in either of these two states: success: stackPointer -> result (was receiver) arg1 ... argN return pc failure: receiver arg1 ... stackPointer -> argN return pc We push the instructionPointer to reestablish the return pc in the success case, but leave it to ceActivateFailingPrimitiveMethod: to do so in the failure case." backEnd hasLinkRegister ifTrue: [backEnd genLoadStackPointers. "Switch back to Smalltalk stack." backEnd hasPCRegister ifTrue: [self PopR: ReceiverResultReg. "Pop result from stack" self MoveAw: coInterpreter instructionPointerAddress R: PCReg] "Return" ifFalse: [self MoveMw: 0 r: SPReg R: ReceiverResultReg. "Fetch result from stack" self MoveAw: coInterpreter instructionPointerAddress R: LinkReg. "Get ret pc" self RetN: objectMemory wordSize]] "Return, popping result from stack" ifFalse: [self MoveAw: coInterpreter instructionPointerAddress R: ClassReg. "Get return pc" backEnd genLoadStackPointers. "Switch back to Smalltalk stack." self MoveMw: 0 r: SPReg R: ReceiverResultReg. "Fetch result from stack" self MoveR: ClassReg Mw: 0 r: SPReg. "Restore return pc" self RetN: 0]. "Return, popping result from stack" "Primitive failed. Invoke C code to build the frame and continue." jmpFail jmpTarget: (self MoveAw: coInterpreter newMethodAddress R: SendNumArgsReg). "Reload sp with CStackPointer; easier than popping args of checkProfileTick." self MoveAw: self cStackPointerAddress R: SPReg. self compileCallFor: #ceActivateFailingPrimitiveMethod: numArgs: 1 arg: SendNumArgsReg arg: nil arg: nil arg: nil resultReg: NoReg regsToSave: self emptyRegisterMask. "On Spur ceActivateFailingPrimitiveMethod: may retry the primitive and return if successful. So continue by returning to the caller. Switch back to the Smalltalk stack. Stack should be in this state: success: stackPointer -> result (was receiver) arg1 ... argN return pc We can push the instructionPointer or load it into the LinkRegister to reestablish the return pc" self MoveAw: coInterpreter instructionPointerAddress R: (backEnd hasLinkRegister ifTrue: [LinkReg] ifFalse: [ClassReg]). backEnd genLoadStackPointers. backEnd hasLinkRegister ifTrue: + [self MoveMw: 0 r: SPReg R: ReceiverResultReg] "Fetch result from stack" - [self MoveMw: 0 r: SPReg R: ReceiverResultReg] "Fetch result from stack" ifFalse: [self MoveMw: objectMemory wordSize r: SPReg R: ReceiverResultReg. "Fetch result from stack" + self PushR: ClassReg]. "Restore return pc on CISCs" - self PushR: ClassReg]. "Restore return pc on CISCs" self RetN: objectMemory wordSize. "return to caller, popping receiver" (profiling and: [backEnd has64BitPerformanceCounter]) ifTrue: + ["Call ceTakeProfileSample: to record sample and then continue. newMethod - ["Call ceCheckProfileTick to record sample and then continue. newMethod should be up-to-date. Need to save and restore the link reg around this call." jmpSample jmpTarget: self Label. + backEnd genMarshallNArgs: 1 arg: 0 arg: 0 arg: 0 arg: 0. + self CallFullRT: (self cCode: [#ceTakeProfileSample: asUnsignedInteger] + inSmalltalk: [self simulatedTrampolineFor: #ceTakeProfileSample:]). + backEnd genRemoveNArgsFromStack: 1. - backEnd genMarshallNArgs: 0 arg: 0 arg: 0 arg: 0 arg: 0. - self CallFullRT: (self cCode: [#ceCheckProfileTick asUnsignedInteger] - inSmalltalk: [self simulatedTrampolineFor: #ceCheckProfileTick]). - backEnd genRemoveNArgsFromStack: 0. self Jump: continuePostSample]! Item was changed: ----- Method: SpurMemoryManager class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator + self class == thisContext methodClass ifFalse: [^self]. "Don't duplicate decls in subclasses" aCCodeGenerator removeVariable: 'memory'. "memory is a simulation time thing only" self declareCAsOop: #( freeStart scavengeThreshold newSpaceStart newSpaceLimit pastSpaceStart lowSpaceThreshold freeOldSpaceStart oldSpaceStart endOfMemory) in: aCCodeGenerator. self declareCAsUSqLong: (self allInstVarNames select: [:ivn| ivn endsWith: 'Usecs']), #(statAllocatedBytes) in: aCCodeGenerator. aCCodeGenerator var: #lastHash type: #usqInt; var: #freeListsMask type: #usqInt; var: #freeLists type: #'sqInt *'; var: #objStackInvalidBecause type: #'char *'; var: #unscannedEphemerons type: #SpurContiguousObjStack; var: #heapGrowthToSizeGCRatio type: #float; var: #heapSizeAtPreviousGC type: #usqInt; var: #totalFreeOldSpace type: #usqInt; var: #maxOldSpaceSize type: #usqInt. aCCodeGenerator var: #oldSpaceUsePriorToScavenge type: #sqLong. aCCodeGenerator var: #remapBuffer declareC: 'sqInt remapBuffer[RemapBufferSize + 1 /* ', (RemapBufferSize + 1) printString, ' */]'. aCCodeGenerator var: #extraRoots declareC: 'sqInt *extraRoots[ExtraRootsSize + 1 /* ', (ExtraRootsSize + 1) printString, ' */]'! Item was changed: ----- Method: SpurMemoryManager>>findString: (in category 'debug support') ----- findString: aCString "Print the oops of all string-like things that have the same characters as aCString" <api> <var: #aCString type: #'char *'> + | aCStringStrlen | + aCStringStrlen := self strlen: aCString. - | cssz | - cssz := self strlen: aCString. self allObjectsDo: [:obj| + (self object: obj equalsString: aCString ofSize: aCStringStrlen) ifTrue: - ((self isBytesNonImm: obj) - and: [(self lengthOf: obj) = cssz - and: [(self strncmp: aCString _: (self pointerForOop: obj + self baseHeaderSize) _: cssz) = 0]]) ifTrue: [coInterpreter printHex: obj; space; printOopShort: obj; cr]]! Item was changed: ----- Method: SpurMemoryManager>>findStringBeginningWith: (in category 'debug support') ----- findStringBeginningWith: aCString "Print the oops of all string-like things that start with the same characters as aCString" <api> <var: #aCString type: #'char *'> + | aCStringStrlen | + aCStringStrlen := self strlen: aCString. - | cssz | - cssz := self strlen: aCString. self allObjectsDo: [:obj| + (self object: obj equalsString: aCString ofSize: aCStringStrlen) ifTrue: + [coInterpreter printHex: obj; space; printNum: (self lengthOf: obj); space; printOopShort: obj; cr]]! - ((self isBytesNonImm: obj) - and: [(self lengthOf: obj) >= cssz - and: [(self strncmp: aCString _: (self pointerForOop: obj + self baseHeaderSize) _: cssz) = 0]]) ifTrue: - [coInterpreter printHex: obj; space; printNum: (self lengthOf: obj); space; printOopShort: obj; cr]]! Item was changed: ----- Method: StackInterpreter class>>initializePrimitiveTable (in category 'initialization') ----- (excessive size, no diff calculated) Item was changed: ----- Method: StackInterpreter>>initializeExtraClassInstVarIndices (in category 'initialization') ----- initializeExtraClassInstVarIndices "Initialize metaclassNumSlots and thisClassIndex which are used in debug printing, and classNameIndex which is used not only for debug printing but for is:KindOf: & is:MemberOf: via classNameOf:is: (evil but a reality we have to accept)." | classArrayObj classArrayClass | classArrayObj := objectMemory splObj: ClassArray. classArrayClass := objectMemory fetchClassOfNonImm: classArrayObj. metaclassNumSlots := objectMemory numSlotsOf: classArrayClass. "determine actual Metaclass instSize" thisClassIndex := 5. "default" + InstanceSpecificationIndex + 1 to: (objectMemory numSlotsOf: classArrayClass) do: - InstanceSpecificationIndex + 1 to: (objectMemory lengthOf: classArrayClass) do: [:i| (objectMemory fetchPointer: i - 1 ofObject: classArrayClass) = classArrayObj ifTrue: [thisClassIndex := i - 1]]. classNameIndex := 6. "default" + InstanceSpecificationIndex + 1 to: (objectMemory numSlotsOf: classArrayObj) do: - InstanceSpecificationIndex + 1 to: (objectMemory lengthOf: classArrayObj) do: [:i| | oop | oop := objectMemory fetchPointer: i - 1 ofObject: classArrayObj. + (self object: oop equalsString: 'Array') ifTrue: - ((objectMemory isBytes: oop) - and: [(objectMemory lengthOf: oop) = 5 - and: [(objectMemory strncmp: 'Array' _: (objectMemory firstFixedField: oop) _: 5) = 0]]) ifTrue: [classNameIndex := i - 1]]! Item was added: + ----- Method: StackInterpreter>>object:equalsString: (in category 'utilities') ----- + object: anOop equalsString: aCString + ^self object: anOop equalsString: aCString ofSize: (self strlen: aCString)! Item was added: + ----- Method: StackInterpreter>>object:equalsString:ofSize: (in category 'utilities') ----- + object: anOop equalsString: aCString ofSize: aCStringStrlen + | size | + ^(objectMemory isBytes: anOop) + and: [(size := objectMemory numBytesOfBytes: anOop) = aCStringStrlen + and: [(self strncmp: aCString _: (objectMemory firstIndexableField: anOop) _: aCStringStrlen) = 0]]! Item was changed: SharedPool subclass: #VMBytecodeConstants instanceVariableNames: '' + classVariableNames: 'BytecodeSetHasDirectedSuperSend CtxtTempFrameStart LargeContextBit LargeContextSize LargeContextSlots NewsqueakV4BytecodeSet PrimNumberDoExternalCall PrimNumberDoPrimitive PrimNumberExternalCall PrimNumberFFICall PrimNumberFlushExternalPrimitives PrimNumberInstVarAt PrimNumberShallowCopy PrimNumberSlotAt PrimNumberUnoadModule SistaV1BytecodeSet SmallContextSize SmallContextSlots SqueakV3PlusClosuresBytecodeSet' - classVariableNames: 'BytecodeSetHasDirectedSuperSend CtxtTempFrameStart LargeContextBit LargeContextSize LargeContextSlots NewsqueakV4BytecodeSet PrimNumberDoExternalCall PrimNumberDoPrimitive PrimNumberExternalCall PrimNumberFFICall PrimNumberInstVarAt PrimNumberShallowCopy PrimNumberSlotAt SistaV1BytecodeSet SmallContextSize SmallContextSlots SqueakV3PlusClosuresBytecodeSet' poolDictionaries: 'VMBasicConstants' category: 'VMMaker-Interpreter'! !VMBytecodeConstants commentStamp: '<historical>' prior: 0! self ensureClassPool. #(CtxtTempFrameStart LargeContextBit LargeContextSize SmallContextSize) do: [:k| self classPool declare: k from: ObjectMemory classPool]!

1 0

VM Maker: VMMakerUI-eem.45.mcz
by commits＠source.squeak.org 09 Aug '21

09 Aug '21

Eliot Miranda uploaded a new version of VMMakerUI to project VM Maker: http://source.squeak.org/VMMaker/VMMakerUI-eem.45.mcz ==================== Summary ==================== Name: VMMakerUI-eem.45 Author: eem Time: 9 August 2021, 1:02:50.72182 pm UUID: 7b08a9a4-296e-4d87-82b6-2c1efef07090 Ancestors: VMMakerUI-eem.44 Fix the extra halt on hitting proceed in the click step dialog. =============== Diff against VMMakerUI-eem.44 =============== Item was changed: ----- Method: Cogit>>setClickStepBreakBlock (in category '*VMMakerUI-user interface') ----- setClickStepBreakBlock "Set the break block to present a confirmer, breaking if true, and restoring the previous break block. If an open debugger on the receiver can be found, proceed it." <doNotGenerate> | previousBreakBlock previousAtEachStepBlock previousBreakPC previousSingleStep previousClickConfirm result | (breakBlock isNil or: [breakBlock method ~~ thisContext method]) ifTrue: [previousBreakBlock := breakBlock. previousAtEachStepBlock := coInterpreter atEachStepBlock. previousBreakPC := breakPC. previousSingleStep := singleStep. previousClickConfirm := clickConfirm. breakBlock := [:ign| (processor pc ~= previousBreakPC and: [(result := self promptClickStep) == true]) ifTrue: [false] ifFalse: [breakBlock := previousBreakBlock. coInterpreter atEachStepBlock: previousAtEachStepBlock. breakPC := previousBreakPC == true ifTrue: [false] ifFalse: [previousBreakPC]. singleStep := previousSingleStep. clickConfirm := previousClickConfirm. + result ~~ #proceed]]. - true]]. coInterpreter atEachStepBlock: [previousAtEachStepBlock value. (coInterpreter localIP ~= previousBreakPC and: [(result := self promptClickStep) == true]) ifFalse: [breakBlock := previousBreakBlock. coInterpreter atEachStepBlock: previousAtEachStepBlock. breakPC := previousBreakPC == true ifTrue: [false] ifFalse: [previousBreakPC]. singleStep := previousSingleStep. clickConfirm := previousClickConfirm. self halt]]. singleStep := breakPC := clickConfirm := result ~~ #proceed]. (World submorphs detect: [:m| m model isDebugger and: [(m model interruptedProcess suspendedContext ifNil: [false] "happens if we're debugging this very method..." ifNotNil: [:suspendedContext| suspendedContext findContextSuchThat: [:ctxt| (ctxt receiver == self and: [ctxt selector == #simulateCogCodeAt: or: [ctxt selector == #simulateLeafCallOf:]]) or: [ctxt receiver == coInterpreter and: [ctxt selector == #interpret]]]]) notNil]] ifNone: []) ifNotNil: [:debuggerWindow| WorldState addDeferredUIMessage: [debuggerWindow model proceed]]!

1 0

[OpenSmalltalk/opensmalltalk-vm] Add vector engine plugin (#578)
by David T Lewis 08 Aug '21

08 Aug '21

Update the VMMaker build scripts to add a repository for VectorEnginePlugin, using a squeaksource mirror of Juan's repository for convenience. Development source for VectorEnginePlugin is Packages/Features/VectorEnginePlugin.pck.st from repository https://github.com/Cuis-Smalltalk/Cuis-Smalltalk-Dev. Disable compiler optimization for VectorEnginePlugin. For gcc this is not an issue, but with llvm any compiler optimization results in a broken plugin (various symptoms). Add -O0 to XCFLAGS in makefile.inc to override any previous definition of -O in CFLAGS. Not included in this PR: VectorEnginePlugin needs to be added to various plugin.ext files. So far I have tested only X86 Linux, so this should be the subject of separate updates. You can view, comment on, or merge this pull request online at: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/578 -- Commit Summary -- * Add VectorEnginePlugin by Juan Vuletich. * Set preference Scanner allowUnderscoreAsAssignment for VectorEnginePlugin * Merge branch 'Cog' into add-VectorEnginePlugin * Disable compiler optimization for VectorEnginePlugin. -- File Changes -- M image/BuildPharo6VMMakerImage.st (2) M image/BuildSqueakSpurTrunkVMMakerImage.st (2) A platforms/unix/plugins/VectorEnginePlugin/Makefile.inc (3) -- Patch Links -- https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/578.patch https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/578.diff -- You are receiving this because you are subscribed to this thread. Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/pull/578

3 8

OI version of squeak 4.19.9 - cog-spur 5.0.3031
by stes＠PANDORA.BE 08 Aug '21

08 Aug '21

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256 OpenIndiana was updated with the latest version of Squeak Classical VM: squeak was updated from 4.19.6 to 4.19.9 This version of squeak 'classic' corresponds to subversion version 3808. The binaries are both 32bit and 64bit. Also the Cuis VectorEnginePlugin is now the one from the subversion repo, as the VEP (VectorEnginePlugin) is now in the official subversion repo. For OpenSmalltalk, cog-spur and stack-spur were updated to 5.0.3031 (latest version) and the VEP is also included as an optional plugin. http://docs.openindiana.org/handbook/community/squeak/index.html for more info. Regards, David Stes -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 iQEcBAEBCAAGBQJhEDJZAAoJENdFDkXGicizy2wH/0Y/7sdSdr66iz5SZYq1qLvU 8PCVJqd26PRENtx1HmsqTS6dJ0xs4Ny/8e5MRh7sOIYJI9FLROKmzRqzytiO38oc bDuDVkL50iAGARFP0nIyDXFtA7FHbdYcfIw66eF3R7IReYOK0SUCVjeIJMEckklP Tn/rvOA+rItwyY41Ltxn8HbpG7E/tArlLVTytCEDu4B5cbGpHKMLPuuTRgxsl2mg n7gNw+XWdYhQp5id9s6BIXtlOH/8vbNDJJdiDt3lZ7KZpdiC6qFyR3sN9wPB71gf TgBFFvqo+wiAHtsreoSfkHN5/TQSB20lunCxXtZ9S3D++ua8+84vaedoOWFvYUs= =gpgf -----END PGP SIGNATURE-----

1 0

[OpenSmalltalk/opensmalltalk-vm] 80abb4: Disable compiler optimization for VectorEnginePlugin.
by David T Lewis 08 Aug '21

08 Aug '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 80abb4043bd07b7f96f9c2599434d921c9a19cae https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/80abb4043bd07b7f96… Author: David T. Lewis <lewis(a)mail.msen.com> Date: 2021-08-08 (Sun, 08 Aug 2021) Changed paths: A platforms/unix/plugins/VectorEnginePlugin/Makefile.inc Log Message: ----------- Disable compiler optimization for VectorEnginePlugin. For gcc this is not an issue, but with llvm any compiler optimization results in a broken plugin (various symptoms). Add -O0 to XCFLAGS in makefile.inc to override any previous definition of -O in CFLAGS. Commit: c4890ab882c37aa53e32d2eb8aaa0a13082fabf1 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/c4890ab882c37aa53e… Author: David T. Lewis <lewis(a)mail.msen.com> Date: 2021-08-08 (Sun, 08 Aug 2021) Changed paths: A src/plugins/VectorEnginePlugin/VectorEnginePlugin.c Log Message: ----------- Add generated source for VectorEnginePlugin Commit: 504c482c621a8f0f79f46c83fb1552df1cca5479 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/504c482c621a8f0f79… Author: David T. Lewis <lewis(a)mail.msen.com> Date: 2021-08-08 (Sun, 08 Aug 2021) Changed paths: M build.linux32ARMv6/pharo.cog.spur/plugins.ext M build.linux32ARMv6/squeak.cog.spur/plugins.ext M build.linux32ARMv6/squeak.cog.v3/plugins.ext M build.linux32ARMv6/squeak.stack.spur/plugins.ext M build.linux32ARMv6/squeak.stack.v3/plugins.ext M build.linux32x86/pharo.cog.spur.lowcode/plugins.ext M build.linux32x86/pharo.cog.spur/plugins.ext M build.linux32x86/pharo.sista.spur/plugins.ext M build.linux32x86/pharo.stack.spur.lowcode/plugins.ext M build.linux32x86/squeak.cog.spur/plugins.ext M build.linux32x86/squeak.cog.v3/plugins.ext M build.linux32x86/squeak.sista.spur/plugins.ext M build.linux32x86/squeak.stack.spur/plugins.ext M build.linux32x86/squeak.stack.v3/plugins.ext M build.linux64ARMv8/pharo.stack.spur/plugins.ext M build.linux64ARMv8/squeak.cog.spur/plugins.ext M build.linux64ARMv8/squeak.cogmt.spur/plugins.ext M build.linux64ARMv8/squeak.stack.spur/plugins.ext M build.linux64x64/pharo.cog.spur/plugins.ext M build.linux64x64/squeak.cog.spur/plugins.ext M build.linux64x64/squeak.stack.spur/plugins.ext Log Message: ----------- Add VectorEnginePlugin as external plugin for Linux build configurations Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/67e8148ecf1a...50…

2 1

[OpenSmalltalk/opensmalltalk-vm] 9b3a9d: Make sure COGDEFS is passed through to plugin make...
by Eliot Miranda 08 Aug '21

08 Aug '21

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 9b3a9da1764d58b0bd355f92d326350802f2176b https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/9b3a9da1764d58b0bd… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-08-02 (Mon, 02 Aug 2021) Changed paths: M build.macos32x86/common/Makefile.vm M build.macos64ARMv8/common/Makefile.vm M build.macos64x64/common/Makefile.vm M build.win32x86/common/Makefile M build.win32x86/common/Makefile.msvc M build.win64x64/common/Makefile M build.win64x64/common/Makefile.msvc Log Message: ----------- Make sure COGDEFS is passed through to plugin makes (e.g. if set in Makefile). This on windows and macos. [ci skip] Commit: 67e8148ecf1a9db391a658ba8c8e904d3a5b1578 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/67e8148ecf1a9db391… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2021-08-07 (Sat, 07 Aug 2021) Changed paths: M .github/workflows/extra-arm.yml M .github/workflows/extra.yml M README.md M build.linux32ARMv6/newspeak.cog.spur/build.assert/mvm M build.linux32ARMv6/newspeak.cog.spur/build.debug/mvm M build.linux32ARMv6/newspeak.cog.spur/build/mvm M build.linux32ARMv6/newspeak.stack.spur/build.assert/mvm M build.linux32ARMv6/newspeak.stack.spur/build.debug/mvm M build.linux32ARMv6/newspeak.stack.spur/build/mvm M build.linux32ARMv6/pharo.cog.spur/build.assert/mvm M build.linux32ARMv6/pharo.cog.spur/build.debug/mvm M build.linux32ARMv6/pharo.cog.spur/build/mvm M build.linux32ARMv6/squeak.cog.spur/build.assert/mvm M build.linux32ARMv6/squeak.cog.spur/build.debug/mvm M build.linux32ARMv6/squeak.cog.spur/build/mvm M build.linux32ARMv6/squeak.cog.v3/build.assert/mvm M build.linux32ARMv6/squeak.cog.v3/build.debug/mvm M build.linux32ARMv6/squeak.cog.v3/build/mvm M build.linux32ARMv6/squeak.stack.spur/build.assert/mvm M build.linux32ARMv6/squeak.stack.spur/build.debug/mvm M build.linux32ARMv6/squeak.stack.spur/build/mvm M build.linux32ARMv6/squeak.stack.v3/build.assert/mvm M build.linux32ARMv6/squeak.stack.v3/build.debug/mvm M build.linux32ARMv6/squeak.stack.v3/build/mvm M build.linux32ARMv7/newspeak.cog.spur/build.assert/mvm M build.linux32ARMv7/newspeak.cog.spur/build.debug/mvm M build.linux32ARMv7/newspeak.cog.spur/build/mvm M build.linux32ARMv7/newspeak.stack.spur/build.assert/mvm M build.linux32ARMv7/newspeak.stack.spur/build.debug/mvm M build.linux32ARMv7/newspeak.stack.spur/build/mvm M build.linux32x86/newspeak.cog.spur/build.assert.itimerheartbeat/mvm M build.linux32x86/newspeak.cog.spur/build.assert/mvm M build.linux32x86/newspeak.cog.spur/build.debug.itimerheartbeat/mvm M build.linux32x86/newspeak.cog.spur/build.debug/mvm M build.linux32x86/newspeak.cog.spur/build.itimerheartbeat/mvm M build.linux32x86/newspeak.cog.spur/build/mvm M build.linux32x86/newspeak.stack.spur/build.assert/mvm M build.linux32x86/newspeak.stack.spur/build.debug/mvm M build.linux32x86/newspeak.stack.spur/build/mvm M build.linux32x86/nsnac.cog.spur/build.assert.itimerheartbeat/mvm M build.linux32x86/nsnac.cog.spur/build.assert/mvm M build.linux32x86/nsnac.cog.spur/build.debug.itimerheartbeat/mvm M build.linux32x86/nsnac.cog.spur/build.debug/mvm M build.linux32x86/nsnac.cog.spur/build.itimerheartbeat/mvm M build.linux32x86/nsnac.cog.spur/build/mvm M build.linux32x86/pharo.cog.spur.lowcode/build.assert.itimerheartbeat/mvm M build.linux32x86/pharo.cog.spur.lowcode/build.assert/mvm M build.linux32x86/pharo.cog.spur.lowcode/build.debug.itimerheartbeat/mvm M build.linux32x86/pharo.cog.spur.lowcode/build.debug/mvm M build.linux32x86/pharo.cog.spur.lowcode/build.itimerheartbeat/mvm M build.linux32x86/pharo.cog.spur.lowcode/build/mvm M build.linux32x86/pharo.cog.spur.minheadless/build.assert.itimerheartbeat/mvm M build.linux32x86/pharo.cog.spur.minheadless/build.debug.itimerheartbeat/mvm M build.linux32x86/pharo.cog.spur.minheadless/build.itimerheartbeat/mvm M build.linux32x86/pharo.cog.spur/build.assert.itimerheartbeat/mvm M build.linux32x86/pharo.cog.spur/build.assert/mvm M build.linux32x86/pharo.cog.spur/build.debug.itimerheartbeat/mvm M build.linux32x86/pharo.cog.spur/build.debug/mvm M build.linux32x86/pharo.cog.spur/build.itimerheartbeat/mvm M build.linux32x86/pharo.cog.spur/build/mvm M build.linux32x86/pharo.sista.spur/build.assert.itimerheartbeat/mvm M build.linux32x86/pharo.sista.spur/build.assert/mvm M build.linux32x86/pharo.sista.spur/build.debug.itimerheartbeat/mvm M build.linux32x86/pharo.sista.spur/build.debug/mvm M build.linux32x86/pharo.sista.spur/build.itimerheartbeat/mvm M build.linux32x86/pharo.sista.spur/build/mvm M build.linux32x86/pharo.stack.spur.lowcode/build.assert.itimerheartbeat/mvm M build.linux32x86/pharo.stack.spur.lowcode/build.assert/mvm M build.linux32x86/pharo.stack.spur.lowcode/build.debug.itimerheartbeat/mvm M build.linux32x86/pharo.stack.spur.lowcode/build.debug/mvm M build.linux32x86/pharo.stack.spur.lowcode/build.itimerheartbeat/mvm M build.linux32x86/pharo.stack.spur.lowcode/build/mvm M build.linux32x86/squeak.cog.spur/build.assert.itimerheartbeat/mvm M build.linux32x86/squeak.cog.spur/build.assert/mvm M build.linux32x86/squeak.cog.spur/build.debug.itimerheartbeat/mvm M build.linux32x86/squeak.cog.spur/build.debug/mvm M build.linux32x86/squeak.cog.spur/build.itimerheartbeat/mvm M build.linux32x86/squeak.cog.spur/build/mvm M build.linux32x86/squeak.cog.v3/build.assert.itimerheartbeat/mvm M build.linux32x86/squeak.cog.v3/build.assert/mvm M build.linux32x86/squeak.cog.v3/build.debug.itimerheartbeat/mvm M build.linux32x86/squeak.cog.v3/build.debug/mvm M build.linux32x86/squeak.cog.v3/build.itimerheartbeat/mvm M build.linux32x86/squeak.cog.v3/build.multithreaded.assert/mvm M build.linux32x86/squeak.cog.v3/build.multithreaded.debug/mvm M build.linux32x86/squeak.cog.v3/build.multithreaded/mvm M build.linux32x86/squeak.cog.v3/build/mvm M build.linux32x86/squeak.sista.spur/build.assert.itimerheartbeat/mvm M build.linux32x86/squeak.sista.spur/build.assert/mvm M build.linux32x86/squeak.sista.spur/build.debug.itimerheartbeat/mvm M build.linux32x86/squeak.sista.spur/build.debug/mvm M build.linux32x86/squeak.sista.spur/build.itimerheartbeat/mvm M build.linux32x86/squeak.sista.spur/build/mvm M build.linux32x86/squeak.stack.spur/build.assert/mvm M build.linux32x86/squeak.stack.spur/build.debug/mvm M build.linux32x86/squeak.stack.spur/build/mvm M build.linux32x86/squeak.stack.v3/build.assert/mvm M build.linux32x86/squeak.stack.v3/build.debug/mvm M build.linux32x86/squeak.stack.v3/build/mvm M build.linux64ARMv8/pharo.stack.spur/build.debug/mvm M build.linux64ARMv8/pharo.stack.spur/build/mvm M build.linux64ARMv8/squeak.cog.spur/build.assert/mvm M build.linux64ARMv8/squeak.cog.spur/build.debug/mvm M build.linux64ARMv8/squeak.cog.spur/build/mvm M build.linux64ARMv8/squeak.cogmt.spur/build.assert/mvm M build.linux64ARMv8/squeak.cogmt.spur/build.debug/mvm M build.linux64ARMv8/squeak.cogmt.spur/build/mvm M build.linux64ARMv8/squeak.stack.spur/build.assert/mvm M build.linux64ARMv8/squeak.stack.spur/build.debug/mvm M build.linux64ARMv8/squeak.stack.spur/build/mvm M build.linux64x64/newspeak.cog.spur/build.assert.itimerheartbeat/mvm M build.linux64x64/newspeak.cog.spur/build.assert/mvm M build.linux64x64/newspeak.cog.spur/build.debug.itimerheartbeat/mvm M build.linux64x64/newspeak.cog.spur/build.debug/mvm M build.linux64x64/newspeak.cog.spur/build.itimerheartbeat/mvm M build.linux64x64/newspeak.cog.spur/build/mvm M build.linux64x64/newspeak.stack.spur/build.assert/mvm M build.linux64x64/newspeak.stack.spur/build.debug/mvm M build.linux64x64/newspeak.stack.spur/build/mvm M build.linux64x64/nsnac.cog.spur/build.assert.itimerheartbeat/mvm M build.linux64x64/nsnac.cog.spur/build.assert/mvm M build.linux64x64/nsnac.cog.spur/build.debug.itimerheartbeat/mvm M build.linux64x64/nsnac.cog.spur/build.debug/mvm M build.linux64x64/nsnac.cog.spur/build.itimerheartbeat/mvm M build.linux64x64/nsnac.cog.spur/build/mvm M build.linux64x64/pharo.cog.spur.minheadless/build.assert.itimerheartbeat/mvm M build.linux64x64/pharo.cog.spur.minheadless/build.debug.itimerheartbeat/mvm M build.linux64x64/pharo.cog.spur.minheadless/build.itimerheartbeat/mvm M build.linux64x64/pharo.cog.spur/build.assert.itimerheartbeat/mvm M build.linux64x64/pharo.cog.spur/build.assert/mvm M build.linux64x64/pharo.cog.spur/build.debug.itimerheartbeat/mvm M build.linux64x64/pharo.cog.spur/build.debug/mvm M build.linux64x64/pharo.cog.spur/build.itimerheartbeat/mvm M build.linux64x64/pharo.cog.spur/build/mvm M build.linux64x64/squeak.cog.spur/build.assert.itimerheartbeat/mvm M build.linux64x64/squeak.cog.spur/build.assert/mvm M build.linux64x64/squeak.cog.spur/build.debug.itimerheartbeat/mvm M build.linux64x64/squeak.cog.spur/build.debug/mvm M build.linux64x64/squeak.cog.spur/build.itimerheartbeat/mvm M build.linux64x64/squeak.cog.spur/build/mvm M build.linux64x64/squeak.stack.spur/build.assert/mvm M build.linux64x64/squeak.stack.spur/build.debug/mvm M build.linux64x64/squeak.stack.spur/build/mvm M build.sunos32x86/squeak.cog.spur/build/mvm M build.sunos32x86/squeak.stack.spur/build/mvm M build.sunos64x64/squeak.cog.spur/build/mvm M build.sunos64x64/squeak.stack.spur/build/mvm M build.win32x86/squeak.cog.spur.lowcode/mvm M build.win32x86/squeak.cog.spur/mvm M build.win32x86/squeak.sista.spur/mvm M image/BuildSqueakSpurTrunkVMMakerImage.st R nsspursrc/vm/cogitMIPSEL.c M platforms/Cross/plugins/GdbARMv8Plugin/sqGdbARMv8Plugin.c M platforms/Cross/vm/sq.h M platforms/Cross/vm/sqNamedPrims.c M platforms/iOS/vm/OSX/sqMacUnixExternalPrims.m M platforms/minheadless/common/sqExternalPrimitives.c M platforms/unix/vm/sqUnixExternalPrims.c M platforms/unix/vm/sqUnixHeartbeat.c M platforms/win32/vm/sqWin32ExternalPrims.c M processors/ARM/gdb-8.3.1/sim/aarch64/sim-main.h M processors/ARM/gdb-8.3.1/sim/aarch64/simulator.c M scripts/ci/actions_prepare_linux_x86.sh M spur64src/vm/cogit.h M spur64src/vm/cogitARMv8.c M spur64src/vm/cogitX64SysV.c M spur64src/vm/cogitX64WIN64.c M spur64src/vm/cointerp.c M spur64src/vm/cointerp.h M spur64src/vm/cointerpmt.c M spur64src/vm/cointerpmt.h M spur64src/vm/gcc3x-cointerp.c M spur64src/vm/gcc3x-cointerpmt.c M spurlowcode64src/vm/cogit.h M spurlowcode64src/vm/cogitARMv8.c M spurlowcode64src/vm/cogitX64SysV.c M spurlowcode64src/vm/cogitX64WIN64.c M spurlowcode64src/vm/cointerp.c M spurlowcode64src/vm/cointerp.h M spurlowcode64src/vm/gcc3x-cointerp.c M spurlowcodesrc/vm/cogit.c M spurlowcodesrc/vm/cogit.h M spurlowcodesrc/vm/cogitARMv5.c M spurlowcodesrc/vm/cogitIA32.c R spurlowcodesrc/vm/cogitMIPSEL.c M spurlowcodesrc/vm/cointerp.c M spurlowcodesrc/vm/cointerp.h M spurlowcodesrc/vm/gcc3x-cointerp.c M spurlowcodestack64src/vm/gcc3x-interp.c M spurlowcodestack64src/vm/interp.c M spurlowcodestacksrc/vm/gcc3x-interp.c M spurlowcodestacksrc/vm/interp.c M spursista64src/vm/cogit.h M spursista64src/vm/cogitARMv8.c M spursista64src/vm/cogitX64SysV.c M spursista64src/vm/cogitX64WIN64.c M spursista64src/vm/cointerp.c M spursista64src/vm/cointerp.h M spursista64src/vm/gcc3x-cointerp.c M spursistasrc/vm/cogit.c M spursistasrc/vm/cogit.h M spursistasrc/vm/cogitARMv5.c M spursistasrc/vm/cogitIA32.c R spursistasrc/vm/cogitMIPSEL.c M spursistasrc/vm/cointerp.c M spursistasrc/vm/cointerp.h M spursistasrc/vm/gcc3x-cointerp.c M spursrc/vm/cogit.c M spursrc/vm/cogit.h M spursrc/vm/cogitARMv5.c M spursrc/vm/cogitIA32.c R spursrc/vm/cogitMIPSEL.c M spursrc/vm/cointerp.c M spursrc/vm/cointerp.h M spursrc/vm/cointerpmt.c M spursrc/vm/cointerpmt.h M spursrc/vm/gcc3x-cointerp.c M spursrc/vm/gcc3x-cointerpmt.c M spurstack64src/vm/gcc3x-interp.c M spurstack64src/vm/interp.c M spurstack64src/vm/validImage.c M spurstacksrc/vm/gcc3x-interp.c M spurstacksrc/vm/interp.c M spurstacksrc/vm/validImage.c M src/plugins/ADPCMCodecPlugin/ADPCMCodecPlugin.c M src/plugins/AioPlugin/AioPlugin.c M src/plugins/AsynchFilePlugin/AsynchFilePlugin.c M src/plugins/B2DPlugin/B2DPlugin.c M src/plugins/B3DAcceleratorPlugin/B3DAcceleratorPlugin.c M src/plugins/BMPReadWriterPlugin/BMPReadWriterPlugin.c M src/plugins/BitBltPlugin/BitBltPlugin.c M src/plugins/BochsIA32Plugin/BochsIA32Plugin.c M src/plugins/BochsX64Plugin/BochsX64Plugin.c M src/plugins/CameraPlugin/CameraPlugin.c M src/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c M src/plugins/CroquetPlugin/CroquetPlugin.c M src/plugins/DESPlugin/DESPlugin.c M src/plugins/DSAPrims/DSAPrims.c M src/plugins/DropPlugin/DropPlugin.c M src/plugins/FFTPlugin/FFTPlugin.c M src/plugins/FileAttributesPlugin/FileAttributesPlugin.c M src/plugins/FileCopyPlugin/FileCopyPlugin.c M src/plugins/FilePlugin/FilePlugin.c M src/plugins/Float64ArrayPlugin/Float64ArrayPlugin.c M src/plugins/FloatArrayPlugin/FloatArrayPlugin.c M src/plugins/FloatMathPlugin/FloatMathPlugin.c M src/plugins/GdbARMPlugin/GdbARMPlugin.c M src/plugins/GdbARMv8Plugin/GdbARMv8Plugin.c M src/plugins/GeniePlugin/GeniePlugin.c M src/plugins/HostWindowPlugin/HostWindowPlugin.c M src/plugins/IA32ABI/IA32ABI.c M src/plugins/ImmX11Plugin/ImmX11Plugin.c M src/plugins/InternetConfigPlugin/InternetConfigPlugin.c M src/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c M src/plugins/JPEGReaderPlugin/JPEGReaderPlugin.c M src/plugins/JoystickTabletPlugin/JoystickTabletPlugin.c M src/plugins/Klatt/Klatt.c M src/plugins/LargeIntegers/LargeIntegers.c M src/plugins/LocalePlugin/LocalePlugin.c M src/plugins/MD5Plugin/MD5Plugin.c M src/plugins/MIDIPlugin/MIDIPlugin.c M src/plugins/MacMenubarPlugin/MacMenubarPlugin.c M src/plugins/Matrix2x3Plugin/Matrix2x3Plugin.c M src/plugins/MiscPrimitivePlugin/MiscPrimitivePlugin.c M src/plugins/Mpeg3Plugin/Mpeg3Plugin.c M src/plugins/QuicktimePlugin/QuicktimePlugin.c M src/plugins/RePlugin/RePlugin.c M src/plugins/SHA2Plugin/SHA2Plugin.c M src/plugins/ScratchPlugin/ScratchPlugin.c M src/plugins/SecurityPlugin/SecurityPlugin.c M src/plugins/SerialPlugin/SerialPlugin.c M src/plugins/SocketPlugin/SocketPlugin.c M src/plugins/SoundCodecPrims/SoundCodecPrims.c M src/plugins/SoundGenerationPlugin/SoundGenerationPlugin.c M src/plugins/SoundPlugin/SoundPlugin.c M src/plugins/Squeak3D/Squeak3D.c M src/plugins/SqueakFFIPrims/ARM32FFIPlugin.c M src/plugins/SqueakFFIPrims/ARM64FFIPlugin.c M src/plugins/SqueakFFIPrims/IA32FFIPlugin.c M src/plugins/SqueakFFIPrims/X64SysVFFIPlugin.c M src/plugins/SqueakFFIPrims/X64Win64FFIPlugin.c M src/plugins/SqueakSSL/SqueakSSL.c M src/plugins/StarSqueakPlugin/StarSqueakPlugin.c M src/plugins/UUIDPlugin/UUIDPlugin.c M src/plugins/UnicodePlugin/UnicodePlugin.c M src/plugins/UnixOSProcessPlugin/UnixOSProcessPlugin.c M src/plugins/VMProfileLinuxSupportPlugin/VMProfileLinuxSupportPlugin.c M src/plugins/VMProfileMacSupportPlugin/VMProfileMacSupportPlugin.c M src/plugins/WeDoPlugin/WeDoPlugin.c M src/plugins/Win32OSProcessPlugin/Win32OSProcessPlugin.c M src/plugins/XDisplayControlPlugin/XDisplayControlPlugin.c M src/plugins/ZipPlugin/ZipPlugin.c M src/vm/cogit.c M src/vm/cogit.h M src/vm/cogitARMv5.c M src/vm/cogitIA32.c R src/vm/cogitMIPSEL.c M src/vm/cointerp.c M src/vm/cointerp.h M src/vm/gcc3x-cointerp.c M stacksrc/vm/gcc3x-interp.c M stacksrc/vm/interp.c Log Message: ----------- Merge branch 'Cog' of https://github.com/OpenSmalltalk/opensmalltalk-vm into Cog Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/46d713f36e01...67…

1 0

VM Maker: VMMaker-dtl.430.mcz
by commits＠source.squeak.org 07 Aug '21

07 Aug '21

David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.430.mcz ==================== Summary ==================== Name: VMMaker-dtl.430 Author: dtl Time: 7 August 2021, 11:06:41.117 am UUID: d4216d8c-e7c8-43ea-aea9-33b5c7542efc Ancestors: VMMaker-dtl.429 Run FixUnderscores on PrimitiveTableHistory. This is the historical record of changing primitive table assignments. Update the old methods so as not to require the underscore assignment preference. =============== Diff against VMMaker-dtl.429 =============== Item was changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable19990920ar (in category 'initialization history') ----- (excessive size, no diff calculated) Item was changed: ----- Method: PrimitiveTableHistory class>>initializePrimitiveTable20000119ar (in category 'initialization history') ----- (excessive size, no diff calculated) Item was changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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 changed: ----- 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. - 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)). !

1 0

VM Maker: VMMaker.oscog-eem.3032.mcz
by commits＠source.squeak.org 07 Aug '21

07 Aug '21

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.3032.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.3032 Author: eem Time: 6 August 2021, 3:07:44.151308 pm UUID: dbec694d-7e87-4069-897c-b41dd2535256 Ancestors: VMMaker.oscog-eem.3031 Cogit: implement simulation support for AndreasSystemProfiler that doesn't require it to be loaded. Fix a slip in CogX64Compiler>>#concretizeMovePerfCnt64RL. Fix stack access bugs in compileInterpreterPrimitive:flags: after calling ceTakeProfileSample:, and in genPrimReturnEnterCogCodeEnilopmart: on calling ceCheckProfileTick. =============== Diff against VMMaker.oscog-eem.3031 =============== Item was changed: ----- Method: CoInterpreter>>ceCheckProfileTick (in category 'cog jit support') ----- ceCheckProfileTick "Check if the profile timer has expired and if so take a sample. If the primitive has failed sample the profileMethod as nil. As a courtesy to compileInterpreterPrimitive: map NULL to nilObj." <api> newMethod ifNil: [newMethod := objectMemory nilObject]. self cCode: [] inSmalltalk: [newMethod = 0 ifTrue: [newMethod := objectMemory nilObject]. "Get round the assert in checkProfileTick: when just testing." + nextProfileTick = 0 ifTrue: + [self ifTestProfilingAdvanceNextProfileTick]]. + self checkProfileTick: newMethod. + self cCode: [] inSmalltalk: + [self ifTestProfilingAdvanceNextProfileTick]! - (nextProfileTick = 0 and: [InitializationOptions at: #profiling ifAbsent: [false]]) ifTrue: - [nextProfileTick := 1]]. - self checkProfileTick: newMethod! Item was changed: ----- Method: CoInterpreter>>ceTakeProfileSample: (in category 'cog jit support') ----- ceTakeProfileSample: aCogMethod "A primitive has succeeded and the nextProfileTick has been reached (all done in machine code). Now take a sample. c.f. checkProfileTick:" <api> <var: 'aCogMethod' type: #'CogMethod *'> self cCode: '' inSmalltalk: [aCogMethod isInteger ifTrue: [^self ceTakeProfileSample: (cogit cCoerceSimple: aCogMethod to: #'CogMethod *')]]. profileProcess := self activeProcess. profileMethod := aCogMethod methodObject. self forceInterruptCheck. + self zeroNextProfileTick! - nextProfileTick := 0! Item was changed: ----- Method: CoInterpreterMT>>checkForEventsMayContextSwitch: (in category 'process primitive support') ----- checkForEventsMayContextSwitch: mayContextSwitch "Check for possible interrupts and handle one if necessary. Answer if a context switch has occurred." | switched sema now | <inline: false> <var: #now type: #usqLong> self assertSaneThreadAndProcess. cogit assertCStackWellAligned. statCheckForEvents := statCheckForEvents + 1. "restore the stackLimit if it has been smashed." self restoreStackLimit. self externalWriteBackHeadFramePointers. self assert: stackPage = stackPages mostRecentlyUsedPage. "Allow the platform to do anything it needs to do synchronously." self ioSynchronousCheckForEvents. self checkCogCompiledCodeCompactionCalledFor. objectMemory needGCFlag ifTrue: ["sufficientSpaceAfterGC: runs the incremental GC and then, if not enough space is available, the fullGC." (objectMemory sufficientSpaceAfterGC: 0) ifFalse: [self setSignalLowSpaceFlagAndSaveProcess]]. mayContextSwitch ifFalse: [^false]. switched := false. self assert: deferThreadSwitch not. deferThreadSwitch := true. (profileProcess ~= objectMemory nilObject or: [nextProfileTick > 0 and:[self ioHighResClock >= nextProfileTick]]) ifTrue: + [self zeroNextProfileTick. - [nextProfileTick := 0. "Take a sample (if not already done so) for the profiler if it is active. This must be done before any of the synchronousSignals below or else we will attribute a pause in ioRelinquishProcessor to the newly activated process." profileProcess = objectMemory nilObject ifTrue: [profileProcess := self activeProcess. profileMethod := objectMemory nilObject]. "and signal the profiler semaphore if it is present" (profileSemaphore ~= objectMemory nilObject and: [self synchronousSignal: profileSemaphore]) ifTrue: [switched := true]]. objectMemory signalLowSpace ifTrue: [objectMemory signalLowSpace: false. "reset flag" sema := objectMemory splObj: TheLowSpaceSemaphore. (sema ~= objectMemory nilObject and: [self synchronousSignal: sema]) ifTrue: [switched := true]]. "inIOProcessEvents prevents reentrancy into ioProcessEvents and allows disabling ioProcessEvents e.g. for native GUIs. We would like to manage that here but can't since the platform code may choose to call ioProcessEvents itself in various places." false ifTrue: [((now := self ioUTCMicroseconds) >= nextPollUsecs and: [inIOProcessEvents = 0]) ifTrue: [statIOProcessEvents := statIOProcessEvents + 1. inIOProcessEvents := inIOProcessEvents + 1. self ioProcessEvents. "sets interruptPending if interrupt key pressed; may callback" inIOProcessEvents > 0 ifTrue: [inIOProcessEvents := inIOProcessEvents - 1]. nextPollUsecs := now + 20000 "msecs to wait before next call to ioProcessEvents. Note that strictly speaking we might need to update 'now' at this point since ioProcessEvents could take a very long time on some platforms"]] ifFalse: [(now := self ioUTCMicroseconds) >= nextPollUsecs ifTrue: [statIOProcessEvents := statIOProcessEvents + 1. self ioProcessEvents. "sets interruptPending if interrupt key pressed; may callback" nextPollUsecs := now + 20000 "msecs to wait before next call to ioProcessEvents. Note that strictly speaking we might need to update 'now' at this point since ioProcessEvents could take a very long time on some platforms"]]. interruptPending ifTrue: [interruptPending := false. "reset interrupt flag" sema := objectMemory splObj: TheInterruptSemaphore. (sema ~= objectMemory nilObject and: [self synchronousSignal: sema]) ifTrue: [switched := true]]. nextWakeupUsecs ~= 0 ifTrue: [now >= nextWakeupUsecs ifTrue: [nextWakeupUsecs := 0. "set timer interrupt to 0 for 'no timer'" sema := objectMemory splObj: TheTimerSemaphore. (sema ~= objectMemory nilObject and: [self synchronousSignal: sema]) ifTrue: [switched := true]]]. "signal any pending finalizations" pendingFinalizationSignals > 0 ifTrue: [pendingFinalizationSignals := 0. sema := objectMemory splObj: TheFinalizationSemaphore. (sema ~= objectMemory nilObject and: [self synchronousSignal: sema]) ifTrue: [switched := true]]. "signal all semaphores in semaphoresToSignal" self signalExternalSemaphores ifTrue: [switched := true]. deferThreadSwitch := false. checkThreadActivation ifTrue: [checkThreadActivation := false. self cedeToHigherPriorityThreads]. "N.B. This may not return if we do switch." self threadSwitchIfNecessary: self activeProcess from: CSCheckEvents. ^switched! Item was added: + ----- Method: CogAbstractInstruction>>genLoadStackPointerForPrimCall: (in category 'smalltalk calling convention') ----- + genLoadStackPointerForPrimCall: spareReg + "Switch back to the Smalltalk stack where there may be a C return address on top of stack below + the last primitive argument. Assign SPReg first because typically it is used immediately afterwards." + self hasLinkRegister + ifTrue: [cogit MoveAw: cogit stackPointerAddress R: SPReg] + ifFalse: + [cogit + MoveAw: cogit stackPointerAddress R: spareReg; + "N.B. dont use SubCq:R:R: since it may generate MoveR:spareRegR:SPReg;SubCq:wordSize R:SPReg + which allows for the ret addr to be smashed by an interrupt between the two instructions." + SubCq: objectMemory wordSize R: spareReg; + MoveR: spareReg R: SPReg]. + ^0! Item was changed: CoInterpreterMT subclass: #CogVMSimulator + instanceVariableNames: 'parent enableCog byteCount lastPollCount lastExtPC sendCount lookupCount printSends traceOn myBitBlt displayForm fakeForm imageName pluginList mappedPluginEntries quitBlock transcript displayView eventTransformer printFrameAtEachStep printBytecodeAtEachStep systemAttributes uniqueIndices uniqueIndex breakCount atEachStepBlock startMicroseconds lastYieldMicroseconds externalSemaphoreSignalRequests externalSemaphoreSignalResponses extSemTabSize debugStackDepthDictionary performFilters eventQueue effectiveCogCodeSize expectedSends expecting inputSemaphoreIndex zeroNextProfileTickCount' - instanceVariableNames: 'parent enableCog byteCount lastPollCount lastExtPC sendCount lookupCount printSends traceOn myBitBlt displayForm fakeForm imageName pluginList mappedPluginEntries quitBlock transcript displayView eventTransformer printFrameAtEachStep printBytecodeAtEachStep systemAttributes uniqueIndices uniqueIndex breakCount atEachStepBlock startMicroseconds lastYieldMicroseconds externalSemaphoreSignalRequests externalSemaphoreSignalResponses extSemTabSize debugStackDepthDictionary performFilters eventQueue effectiveCogCodeSize expectedSends expecting inputSemaphoreIndex' classVariableNames: 'ByteCountsPerMicrosecond ExpectedSends NLRFailures NLRSuccesses StackAlteringPrimitives' poolDictionaries: '' category: 'VMMaker-JITSimulation'! !CogVMSimulator commentStamp: 'eem 9/3/2013 11:16' prior: 0! This class defines basic memory access and primitive simulation so that the CoInterpreter can run simulated in the Squeak environment. It also defines a number of handy object viewing methods to facilitate pawing around in the object memory. Remember that you can test the Cogit using its class-side in-image compilation facilities. To see the thing actually run, you could (after backing up this image and changes), execute (CogVMSimulator new openOn: Smalltalk imageName) test and be patient both to wait for things to happen, and to accept various things that may go wrong depending on how large or unusual your image may be. We usually do this with a small and simple benchmark image. Here's an example to launch the simulator in a window. The bottom-right window has a menu packed with useful stuff: (CogVMSimulator newWithOptions: #(Cogit StackToRegisterMappingCogit)) desiredNumStackPages: 8; openOn: '/Users/eliot/Cog/startreader.image'; openAsMorph; run Here's a hairier example that I (Eliot) actually use in daily development with some of the breakpoint facilities commented out. | cos proc opts | CoInterpreter initializeWithOptions: (opts := Dictionary newFromPairs: #(Cogit StackToRegisterMappingCogit)). CogVMSimulator chooseAndInitCogitClassWithOpts: opts. cos := CogVMSimulator new. "cos initializeThreadSupport." "to test the multi-threaded VM" cos desiredNumStackPages: 8. "to set the size of the stack zone" "cos desiredCogCodeSize: 8 * 1024 * 1024." "to set the size of the Cogit's code zone" cos openOn: '/Users/eliot/Squeak/Squeak4.4/trunk44.image'. "choose your favourite image" "cos setBreakSelector: 'r:degrees:'." "set a breakpoint at a specific selector" proc := cos cogit processor. "cos cogit sendTrace: 7." "turn on tracing" "set a complex breakpoint at a specific point in machine code" "cos cogit singleStep: true; breakPC: 16r56af; breakBlock: [:cg| cos framePointer > 16r101F3C and: [(cos longAt: cos framePointer - 4) = 16r2479A and: [(cos longAt: 16r101F30) = (cos longAt: 16r101F3C) or: [(cos longAt: 16r101F2C) = (cos longAt: 16r101F3C)]]]]; sendTrace: 1". "[cos cogit compilationTrace: -1] on: MessageNotUnderstood do: [:ex|]." "turn on compilation tracing in the StackToRegisterMappingCogit" "cos cogit setBreakMethod: 16rB38880." cos openAsMorph; "toggleTranscript;" "toggleTranscript will send output to the Transcript instead of the morph's rather small window" halt; run! Item was added: + ----- Method: CogVMSimulator>>ifTestProfilingAdvanceNextProfileTick (in category 'simulation only') ----- + ifTestProfilingAdvanceNextProfileTick + "bump nextProfileTick along if simulating; but not by much so the mechanism is stressed a lot" + (InitializationOptions at: #profiling ifAbsent: [false]) ifTrue: + [nextProfileTick := self ioHighResClock + ((InitializationOptions at: #profileIncrement ifAbsent: [10000])). + self assert: nextProfileTick > (self ioHighResClock + 5000)]! Item was changed: ----- Method: CogVMSimulator>>initialize (in category 'initialize-release') ----- initialize "Initialize the CogVMSimulator when running the interpreter inside Smalltalk. The primary responsibility of this method is to allocate Smalltalk Arrays for variables that will be declared as statically-allocated global arrays in the translated code." super initialize. transcript := Transcript. objectMemory ifNil: [objectMemory := self class objectMemoryClass simulatorClass new]. cogit ifNil: [cogit := self class cogitClass new setInterpreter: self]. objectMemory coInterpreter: self cogit: cogit. (cogit numRegArgs > 0 and: [VMClass initializationOptions at: #CheckStackDepth ifAbsent: [true]]) ifTrue: [debugStackDepthDictionary := Dictionary new]. cogThreadManager ifNotNil: [super initialize]. self assert: ConstMinusOne = (objectMemory integerObjectOf: -1). cogMethodZone := cogit methodZone. "Because Slang can't remove intermediate implicit receivers (cogit methodZone foo doesn't reduce to foo())" enableCog := true. methodCache := Array new: MethodCacheSize. nsMethodCache := Array new: NSMethodCacheSize. atCache := nil. self flushMethodCache. cogCompiledCodeCompactionCalledFor := false. gcSemaphoreIndex := 0. externalSemaphoreSignalRequests := externalSemaphoreSignalResponses := #(). externalPrimitiveTable := CArrayAccessor on: (Array new: MaxExternalPrimitiveTableSize). externalPrimitiveTableFirstFreeIndex := 0. primitiveTable := self class primitiveTable copy. self initializePluginEntries. desiredNumStackPages := InitializationOptions at: #desiredNumStackPages ifAbsent: [0]. desiredEdenBytes := InitializationOptions at: #desiredEdenBytes ifAbsent: [0]. desiredCogCodeSize := InitializationOptions at: #desiredCogCodeSize ifAbsent: [0]. "This is initialized on loading the image, but convenient for testing stack page values..." numStackPages := self defaultNumStackPages. startMicroseconds := lastYieldMicroseconds := self ioUTCStartMicroseconds. maxLiteralCountForCompile := MaxLiteralCountForCompile. minBackwardJumpCountForCompile := MinBackwardJumpCountForCompile. flagInterpretedMethods := false. "initialize InterpreterSimulator variables used for debugging" byteCount := lastPollCount := sendCount := lookupCount := 0. quitBlock := [^self close]. traceOn := true. printSends := printFrameAtEachStep := printBytecodeAtEachStep := false. myBitBlt := BitBltSimulator new setInterpreter: self. displayForm := fakeForm := 'Display has not yet been installed' asDisplayText form. suppressHeartbeatFlag := deferSmash := deferredSmash := false. systemAttributes := Dictionary new. primTraceLog := CArrayAccessor on: (Array new: 256 withAll: 0). primTraceLogIndex := 0. traceLog := CArrayAccessor on: (Array new: TraceBufferSize withAll: 0). traceLogIndex := 0. traceSources := TraceSources. statCodeCompactionCount := 0. statCodeCompactionUsecs := 0. + extSemTabSize := 256. + zeroNextProfileTickCount := 0! - extSemTabSize := 256! Item was changed: ----- Method: CogVMSimulator>>ioHighResClock (in category 'I/O primitives support') ----- ioHighResClock + ^cogit backEnd has64BitPerformanceCounter + ifTrue: [cogit ioHighResClock] + ifFalse: [self ioUTCMicroseconds]! - ^self ioUTCMicroseconds! Item was added: + ----- Method: CogVMSimulator>>zeroNextProfileTick (in category 'simulation only') ----- + zeroNextProfileTick + zeroNextProfileTickCount := zeroNextProfileTickCount + 1. + super zeroNextProfileTick. + self ifTestProfilingAdvanceNextProfileTick! Item was changed: ----- Method: CogX64Compiler>>concretizeMovePerfCnt64RL (in category 'generate machine code - concretize') ----- concretizeMovePerfCnt64RL "Generate code for 0x0: 50 pushq %rax 0x1: 52 pushq %rdx 0x2: 0f 31 rdtsc 0x4: 48 c1 e2 20 shlq $0x20, %rdx 0x8: 48 09 d0 orq %rdx, %rax 0xb: 48 89 f8 movq %rdi, %rax 0xe: 5a popq %rdx 0xf: 58 popq %rax et al" | reg liveRegisters offset | reg := operands at: 0. liveRegisters := operands at: 1. offset := 0. (liveRegisters anyMask: (cogit registerMaskFor: RAX)) ifTrue: [machineCode at: 0 put: 16r50. "push %eax" offset := offset + 1]. (liveRegisters anyMask: (cogit registerMaskFor: RDX)) ifTrue: [machineCode at: offset put: 16r52. "push %edx" offset := offset + 1]. "too lazy to define the swap cases for the moment..." self deny: reg = RDX. machineCode at: offset put: 16r0F; "rdtsc" at: offset + 1 put: 16r31; at: offset + 2 put: (self rexR: 0 x: 0 b: RDX); "shlq $0x20, %rdx" at: offset + 3 put: 16rC1; at: offset + 4 put: (self mod: ModReg RM: RDX RO: 4); at: offset + 5 put: 32; at: offset + 6 put: (self rexR: RDX x: 0 b: RAX); "orq %rax, %rdx" at: offset + 7 put: 16r0B; at: offset + 8 put: (self mod: ModReg RM: RAX RO: RDX). offset := offset + 9. reg ~= RAX ifTrue: [machineCode + at: offset put: (self rexR: RAX x: 0 b: reg); "movq %rDEST, %rax" + at: offset + 1 put: 16r89; + at: offset + 2 put: (self mod: ModReg RM: reg RO: RAX). - at: 11 put: (self rexR: reg x: 0 b: RAX); "movq %rDEST, %rax" - at: 12 put: 16r89; - at: 13 put: (self mod: ModReg RM: RAX RO: reg). offset := offset + 3]. (liveRegisters anyMask: (cogit registerMaskFor: RDX)) ifTrue: [machineCode at: offset put: 16r5A. "pop %edx" offset := offset + 1]. (liveRegisters anyMask: (cogit registerMaskFor: RAX)) ifTrue: [machineCode at: offset put: 16r58. "pop %eax" offset := offset + 1]. ^offset "{ cogit processor disassembleInstructionAt: 0 In: machineCode object. - cogit processor disassembleInstructionAt: 1 In: machineCode object. cogit processor disassembleInstructionAt: 2 In: machineCode object. + cogit processor disassembleInstructionAt: 6 In: machineCode object. + cogit processor disassembleInstructionAt: 9 In: machineCode object }"! - cogit processor disassembleInstructionAt: 4 In: machineCode object. - cogit processor disassembleInstructionAt: 8 In: machineCode object. - cogit processor disassembleInstructionAt: 11 In: machineCode object. - cogit processor disassembleInstructionAt: 14 In: machineCode object. - cogit processor disassembleInstructionAt: 15 In: machineCode object }"! Item was changed: CogClass subclass: #Cogit (excessive size, no diff calculated) Item was changed: ----- Method: Cogit class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator | backEnd | backEnd := CogCompilerClass basicNew. #( 'coInterpreter' 'objectMemory' 'methodZone' 'objectRepresentation' 'cogBlockMethodSurrogateClass' 'cogMethodSurrogateClass' 'nsSendCacheSurrogateClass' + 'threadManager' 'processor' 'lastNInstructions' 'simulatedAddresses' 'ioHighResClock' - 'threadManager' 'processor' 'lastNInstructions' 'simulatedAddresses' 'simulatedTrampolines' 'simulatedVariableGetters' 'simulatedVariableSetters' 'processorFrameValid' 'printRegisters' 'printInstructions' 'clickConfirm' 'singleStep' 'codeZoneIsExecutableNotWritable' 'debugAPISelector' 'shortCutTrampolineBlocks') do: [:simulationVariableNotNeededForRealVM| aCCodeGenerator removeVariable: simulationVariableNotNeededForRealVM]. NewspeakVM ifFalse: [#( 'selfSendTrampolines' 'dynamicSuperSendTrampolines' 'implicitReceiverSendTrampolines' 'outerSendTrampolines' 'ceEnclosingObjectTrampoline' 'numIRCs' 'indexOfIRC' 'theIRCs') do: [:variableNotNeededInNormalVM| aCCodeGenerator removeVariable: variableNotNeededInNormalVM]]. aCCodeGenerator removeConstant: #COGMTVM. "this should be defined at compile time" "N.B. We *do not* include sq.h; it pulls in conflicting definitions now that sqVirtualMachine.h declares cointerp's functions, and declares some of them inaccurately for histrical reasons. We pull in CoInterpreter's api via cointerp.h which is accurate." aCCodeGenerator addHeaderFile:'"sqConfig.h"'; "config.h must be first on linux" addHeaderFile:'<stddef.h>'; "for e.g. offsetof" addHeaderFile:'<stdio.h>'; addHeaderFile:'<stdlib.h>'; addHeaderFile:'<string.h>'; addHeaderFile:'"sqPlatformSpecific.h"'; "e.g. solaris overrides things for sqCogStackAlignment.h" addHeaderFile:'"sqMemoryAccess.h"'; addHeaderFile:'"sqCogStackAlignment.h"'; addHeaderFile:'"dispdbg.h"'; "must precede cointerp.h & cogit.h otherwise NoDbgRegParms gets screwed up" addHeaderFile:'"cogmethod.h"'. NewspeakVM ifTrue: [aCCodeGenerator addHeaderFile:'"nssendcache.h"']. aCCodeGenerator addHeaderFile:'#if COGMTVM'; addHeaderFile:'"cointerpmt.h"'; addHeaderFile:'#else'; addHeaderFile:'"cointerp.h"'; addHeaderFile:'#endif'; addHeaderFile:'"cogit.h"'. aCCodeGenerator var: #ceGetFP declareC: 'usqIntptr_t (*ceGetFP)(void)'; var: #ceGetSP declareC: 'usqIntptr_t (*ceGetSP)(void)'; var: #ceCaptureCStackPointers declareC: 'void (*ceCaptureCStackPointers)(void)'; var: #ceInvokeInterpret declareC: 'void (*ceInvokeInterpret)(void)'; var: #ceEnterCogCodePopReceiverReg declareC: 'void (*ceEnterCogCodePopReceiverReg)(void)'; var: #realCEEnterCogCodePopReceiverReg declareC: 'void (*realCEEnterCogCodePopReceiverReg)(void)'; var: #ceCallCogCodePopReceiverReg declareC: 'void (*ceCallCogCodePopReceiverReg)(void)'; var: #realCECallCogCodePopReceiverReg declareC: 'void (*realCECallCogCodePopReceiverReg)(void)'; var: #ceCallCogCodePopReceiverAndClassRegs declareC: 'void (*ceCallCogCodePopReceiverAndClassRegs)(void)'; var: #realCECallCogCodePopReceiverAndClassRegs declareC: 'void (*realCECallCogCodePopReceiverAndClassRegs)(void)'; var: #postCompileHook declareC: 'void (*postCompileHook)(CogMethod *)'; var: #openPICList declareC: 'CogMethod *openPICList = 0'; var: #maxMethodBefore type: #'CogBlockMethod *'; var: 'enumeratingCogMethod' type: #'CogMethod *'. aCCodeGenerator var: #ceTryLockVMOwner declareC: '#if COGMTVM\usqIntptr_t (*ceTryLockVMOwner)(usqIntptr_t)\#endif'. backEnd numICacheFlushOpcodes > 0 ifTrue: [aCCodeGenerator var: #ceFlushICache declareC: 'static void (*ceFlushICache)(usqIntptr_t from, usqIntptr_t to)']. aCCodeGenerator var: #ceFlushDCache declareC: '#if DUAL_MAPPED_CODE_ZONE\static void (*ceFlushDCache)(usqIntptr_t from, usqIntptr_t to)\#endif'; var: #codeToDataDelta declareC: '#if DUAL_MAPPED_CODE_ZONE\static sqInt codeToDataDelta\#else\# define codeToDataDelta 0\#endif'. aCCodeGenerator declareVar: 'aMethodLabel' type: #'AbstractInstruction'; "Has to come lexicographically before backEnd & methodLabel" var: #backEnd declareC: 'AbstractInstruction * const backEnd = &aMethodLabel'; var: #methodLabel declareC: 'AbstractInstruction * const methodLabel = &aMethodLabel'. self declareC: #(abstractOpcodes stackCheckLabel blockEntryLabel blockEntryNoContextSwitch stackOverflowCall sendMiss entry noCheckEntry selfSendEntry dynSuperEntry fullBlockNoContextSwitchEntry fullBlockEntry picMNUAbort picInterpretAbort endCPICCase0 endCPICCase1 cPICEndOfCodeLabel) as: #'AbstractInstruction *' in: aCCodeGenerator. aCCodeGenerator declareVar: #cPICPrototype type: #'CogMethod *'; declareVar: #blockStarts type: #'BlockStart *'; declareVar: #fixups type: #'BytecodeFixup *'; declareVar: #methodZoneBase type: #usqInt. aCCodeGenerator var: #ordinarySendTrampolines declareC: 'sqInt ordinarySendTrampolines[NumSendTrampolines]'; var: #superSendTrampolines declareC: 'sqInt superSendTrampolines[NumSendTrampolines]'. BytecodeSetHasDirectedSuperSend ifTrue: [aCCodeGenerator var: #directedSuperSendTrampolines declareC: 'sqInt directedSuperSendTrampolines[NumSendTrampolines]'; var: #directedSuperBindingSendTrampolines declareC: 'sqInt directedSuperBindingSendTrampolines[NumSendTrampolines]']. NewspeakVM ifTrue: [aCCodeGenerator var: #selfSendTrampolines declareC: 'sqInt selfSendTrampolines[NumSendTrampolines]'; var: #dynamicSuperSendTrampolines declareC: 'sqInt dynamicSuperSendTrampolines[NumSendTrampolines]'; var: #implicitReceiverSendTrampolines declareC: 'sqInt implicitReceiverSendTrampolines[NumSendTrampolines]'; var: #outerSendTrampolines declareC: 'sqInt outerSendTrampolines[NumSendTrampolines]']. aCCodeGenerator addConstantForBinding: self bindingForNumTrampolines; var: #trampolineAddresses declareC: 'static char *trampolineAddresses[NumTrampolines*2]'; var: #objectReferencesInRuntime declareC: 'static usqInt objectReferencesInRuntime[NumObjRefsInRuntime+1]'; var: #labelCounter type: #int; var: #traceFlags declareC: 'int traceFlags = 8 /* prim trace log on by default */'; var: #cStackAlignment declareC: 'const int cStackAlignment = STACK_ALIGN_BYTES'. aCCodeGenerator declareVar: #minValidCallAddress type: #'usqIntptr_t'. aCCodeGenerator vmClass generatorTable ifNotNil: [:bytecodeGenTable| aCCodeGenerator var: #generatorTable declareC: 'static BytecodeDescriptor generatorTable[', bytecodeGenTable size printString, ']', (self tableInitializerFor: bytecodeGenTable in: aCCodeGenerator)]. "In C the abstract opcode names clash with the Smalltalk generator syntactic sugar. Most of the syntactic sugar is inlined, but alas some remains. Rename the syntactic sugar to avoid the clash." (self organization listAtCategoryNamed: #'abstract instructions') do: [:s| aCCodeGenerator addSelectorTranslation: s to: 'g', (aCCodeGenerator cFunctionNameFor: s)]. aCCodeGenerator addSelectorTranslation: #halt: to: 'haltmsg'. self declareFlagVarsAsByteIn: aCCodeGenerator! Item was changed: ----- Method: Cogit>>initializeCodeZoneFrom:upTo: (in category 'initialization') ----- initializeCodeZoneFrom: startAddress upTo: endAddress <api> self initializeBackend. self sqMakeMemoryExecutableFrom: startAddress To: endAddress CodeToDataDelta: (self cppIf: #DUAL_MAPPED_CODE_ZONE ifTrue: [self addressOf: codeToDataDelta put: [:v| codeToDataDelta := v]] ifFalse: [nil]). + codeBase := methodZoneBase := startAddress. backEnd stopsFrom: startAddress to: endAddress - 1. self cCode: '' inSmalltalk: [self initializeProcessor. + backEnd stopsFrom: 0 to: guardPageSize - 1. + backEnd has64BitPerformanceCounter ifTrue: + [self initializeSimulationIOHighResClockForProfiling]]. - backEnd stopsFrom: 0 to: guardPageSize - 1]. - codeBase := methodZoneBase := startAddress. minValidCallAddress := (codeBase min: coInterpreter interpretAddress) min: coInterpreter primitiveFailAddress. methodZone manageFrom: methodZoneBase to: endAddress. self assertValidDualZone. backEnd detectFeatures. self maybeGenerateCacheFlush. self generateVMOwnerLockFunctions. self genGetLeafCallStackPointers. self generateStackPointerCapture. self generateTrampolines. self computeEntryOffsets. self computeFullBlockEntryOffsets. self generateClosedPICPrototype. self alignMethodZoneBase. "None of the above is executed beyond ceCheckFeatures, so a bulk flush now is the leanest thing to do." backEnd flushICacheFrom: startAddress to: methodZoneBase asUnsignedInteger. self maybeFlushWritableZoneFrom: startAddress to: methodZoneBase asUnsignedInteger. "Repeat so that now the methodZone ignores the generated run-time." methodZone manageFrom: methodZoneBase to: endAddress. "N.B. this is assumed to be the last thing done in initialization; see Cogit>>initialized. This is done only to compute openPICSize; the generated code is discarded." self generateOpenPICPrototype! Item was added: + ----- Method: Cogit>>initializeSimulationIOHighResClockForProfiling (in category 'simulation only') ----- + initializeSimulationIOHighResClockForProfiling + "For simulating timing, hack in ioHighResClock in the guard page" + self allocateOpcodes: 4 bytecodes: 0. + objectRepresentation wordSize = 8 + ifTrue: + [self MovePerfCnt64R: ABIResultReg L: ABICalleeSavedRegisterMask] + ifFalse: + [self MovePerfCnt64R: ABIResultReg R: ABIResultRegHigh L: ABICalleeSavedRegisterMask]. + self RetN: 0. + ioHighResClock := self outputInstructionsForGeneratedRuntimeAt: codeBase - (backEnd machineCodeBytes * 2). + self resetMethodZoneBase: codeBase. + coInterpreter ifTestProfilingAdvanceNextProfileTick + + "self disassembleFrom: ioHighResClock to: self class guardPageSize"! Item was added: + ----- Method: Cogit>>ioHighResClock (in category 'simulation only') ----- + ioHighResClock + <doNotGenerate> + | end memory savedsp | + end := self class guardPageSize. + memory := coInterpreter memory. + (coInterpreter isOnRumpCStack: (savedsp := processor sp)) ifFalse: + [processor sp: (coInterpreter heapBase bitAnd: (cStackAlignment - 1) bitInvert)]. + processor simulateLeafCallOf: ioHighResClock nextpc: end memory: memory. + [processor pc ~= end] whileTrue: + [processor + singleStepIn: memory + minimumAddress: ioHighResClock + readOnlyBelow: end]. + processor sp: savedsp. + backEnd class wordSize = 8 ifTrue: + [^processor cResultRegister]. + ^(processor cResultRegisterHigh bitShift: 32) + processor cResultRegister + + "self disassembleFrom: ioHighResClock to: self class guardPageSize"! Item was changed: ----- Method: SimpleStackBasedCogit>>compileInterpreterPrimitive:flags: (in category 'primitive generators') ----- compileInterpreterPrimitive: primitiveRoutine flags: flags "Compile a call to an interpreter primitive. Call the C routine with the usual stack-switching dance, test the primFailCode and then either return on success or continue to the method body." <var: #primitiveRoutine declareC: 'void (*primitiveRoutine)(void)'> | jmp continueAfterProfileSample jumpToTakeSample | self deny: (backEnd hasVarBaseRegister and: [self register: VarBaseReg isInMask: ABICallerSavedRegisterMask]). "Save processor fp, sp and return pc in the interpreter's frame stack and instruction pointers" self genExternalizePointersForPrimitiveCall. "Switch to the C stack." self genLoadCStackPointersForPrimCall. "Old old full prim trace is in VMMaker-eem.550 and prior. Old simpler full prim trace is in VMMaker-eem.2969 and prior." (coInterpreter recordPrimTraceForMethod: methodObj) ifTrue: [self genFastPrimTraceUsing: ClassReg and: SendNumArgsReg]. "Clear the primFailCode and set argumentCount" self MoveCq: 0 R: TempReg. self MoveR: TempReg Aw: coInterpreter primFailCodeAddress. methodOrBlockNumArgs ~= 0 ifTrue: [self AddCq: methodOrBlockNumArgs R: TempReg]. "As small or smaller than move on most archs" self MoveR: TempReg Aw: coInterpreter argumentCountAddress. "If required, set primitiveFunctionPointer and newMethod" (flags anyMask: PrimCallNeedsPrimitiveFunction) ifTrue: [self MoveCw: primitiveRoutine asInteger R: TempReg. self MoveR: TempReg Aw: coInterpreter primitiveFunctionPointerAddress]. (flags anyMask: PrimCallNeedsNewMethod+PrimCallMayEndureCodeCompaction) ifTrue: ["The ceActivateFailingPrimitiveMethod: machinery can't handle framelessness." (flags anyMask: PrimCallMayEndureCodeCompaction) ifTrue: [needsFrame := true]. methodLabel addDependent: (self annotateAbsolutePCRef: (self MoveCw: methodLabel asInteger R: ClassReg)). self MoveMw: (self offset: CogMethod of: #methodObject) r: ClassReg R: TempReg. self MoveR: TempReg Aw: coInterpreter newMethodAddress]. "Invoke the primitive. If the primitive (potentially) contains a call-back then its code may disappear and consequently we cannot return here, sicne here may evaporate. Instead sideways-call the routine, substituting cePrimReturnEnterCogCode[Profiling] as the return address, so the call always returns there." self PrefetchAw: coInterpreter primFailCodeAddress. (flags anyMask: PrimCallMayEndureCodeCompaction) ifTrue: ["On Spur ceActivateFailingPrimitiveMethod: would like to retry if forwarders are found. So insist on PrimCallNeedsPrimitiveFunction being set too." objectMemory hasSpurMemoryManagerAPI ifTrue: [self assert: (flags anyMask: PrimCallNeedsPrimitiveFunction)]. backEnd genMarshallNArgs: 0 arg: nil arg: nil arg: nil arg: nil; genSubstituteReturnAddress: ((flags anyMask: PrimCallCollectsProfileSamples) ifTrue: [cePrimReturnEnterCogCodeProfiling] ifFalse: [cePrimReturnEnterCogCode]). self JumpFullRT: primitiveRoutine asInteger. ^0]. "Call the C primitive routine." backEnd genMarshallNArgs: 0 arg: 0 arg: 0 arg: 0 arg: 0. self CallFullRT: primitiveRoutine asInteger. backEnd genRemoveNArgsFromStack: 0. objectRepresentation maybeCompileRetryOnPrimitiveFail: primitiveIndex. "Switch back to the Smalltalk stack. Stack better be in either of these two states: success: stackPointer -> result (was receiver) arg1 ... argN return pc failure: receiver arg1 ... stackPointer -> argN return pc" backEnd genLoadStackPointersForPrimCall: ClassReg. "genLoadStackPointersForPrimCall: leaves the stack in these states: NoLinkRegister LinkRegister success: result (was receiver) stackPointer -> result (was receiver) stackPointer -> arg1 arg1 ... ... argN argN return pc failure: receiver receiver arg1 arg1 ... ... argN stackPointer -> argN stackPointer -> return pc which corresponds to the stack on entry after pushRegisterArgs. In either case we can write the instructionPointer to top of stack or load it into the LinkRegister to reestablish the return pc." backEnd hasLinkRegister ifTrue: [self MoveAw: coInterpreter instructionPointerAddress R: LinkReg] ifFalse: [self MoveAw: coInterpreter instructionPointerAddress R: ClassReg. self MoveR: ClassReg Mw: 0 r: SPReg]. "Test primitive failure" self MoveAw: coInterpreter primFailCodeAddress R: TempReg. self flag: 'ask concrete code gen if move sets condition codes?'. self CmpCq: 0 R: TempReg. jmp := self JumpNonZero: 0. "placing the test here attributes the tick to the primitive plus any checkForAndFollowForwardedPrimitiveState scanning, but attributes all of a failing primitive to the current method (in ceStackOverflow: on frame build)." (backEnd has64BitPerformanceCounter and: [flags anyMask: PrimCallCollectsProfileSamples]) ifTrue: [jumpToTakeSample := self genCheckForProfileTimerTick: (self registerMaskFor: NoReg)]. "Fetch result from stack" continueAfterProfileSample := self MoveMw: (backEnd hasLinkRegister ifTrue: [0] ifFalse: [objectMemory wordSize]) r: SPReg R: ReceiverResultReg. self RetN: objectMemory wordSize. "return to caller, popping receiver" (backEnd has64BitPerformanceCounter and: [flags anyMask: PrimCallCollectsProfileSamples]) ifTrue: [jumpToTakeSample jmpTarget: self Label. self genTakeProfileSample. + backEnd genLoadStackPointerForPrimCall: ClassReg. backEnd hasLinkRegister ifTrue: [self MoveAw: coInterpreter instructionPointerAddress R: LinkReg] ifFalse: [self MoveAw: coInterpreter instructionPointerAddress R: ClassReg. self MoveR: ClassReg Mw: 0 r: SPReg]. self Jump: continueAfterProfileSample]. "Jump to restore of receiver reg and proceed to frame build for failure." jmp jmpTarget: self Label. "Restore receiver reg from stack. If on RISCs ret pc is in LinkReg, if on CISCs ret pc is on stack." self MoveMw: objectMemory wordSize * (methodOrBlockNumArgs + (backEnd hasLinkRegister ifTrue: [0] ifFalse: [1])) r: SPReg R: ReceiverResultReg. ^0! Item was changed: ----- Method: SimpleStackBasedCogit>>genCheckForProfileTimerTick: (in category 'primitive generators') ----- genCheckForProfileTimerTick: liveRegisters <inline: #always> objectMemory wordSize = 8 ifTrue: [| reg | reg := backEnd preferredRegisterForMovePerfCnt64RL = NoReg ifTrue: [Arg0Reg] ifFalse: [backEnd preferredRegisterForMovePerfCnt64RL]. self MovePerfCnt64R: reg L: liveRegisters. self MoveAw: coInterpreter nextProfileTickAddress R: Arg1Reg. + self CmpR: Arg1Reg R: reg. + ^self JumpAboveOrEqual: 0] - self CmpR: reg R: Arg1Reg. - ^self JumpGreaterOrEqual: 0] ifFalse: [| effectiveLiveRegisters regLo regHi | self flag: #endianness. self deny: ((self registerMaskFor: ClassReg and: SendNumArgsReg) anyMask: liveRegisters). effectiveLiveRegisters := liveRegisters bitOr: (self registerMaskFor: ClassReg and: SendNumArgsReg). regLo := Arg0Reg. regHi := Arg1Reg. backEnd preferredRegisterPairForMovePerfCnt64RRLInto: [:prefRegLo :prefRegHi| (self register: prefRegLo isInMask: liveRegisters) ifFalse: [regLo := prefRegLo]. (self register: prefRegHi isInMask: liveRegisters) ifFalse: [regHi := prefRegHi]]. self MoveAw: coInterpreter nextProfileTickAddress R: ClassReg. self MoveAw: coInterpreter nextProfileTickAddress + 4 R: SendNumArgsReg. self MovePerfCnt64R: regLo R: regHi L: liveRegisters. + self SubR: ClassReg R: regLo. + self SubbR: SendNumArgsReg R: regHi. + ^self JumpAboveOrEqual: 0]! - self SubR: regLo R: ClassReg. - self SubbR: regHi R: SendNumArgsReg. - ^self JumpGreaterOrEqual: 0]! Item was changed: ----- Method: SimpleStackBasedCogit>>genPrimReturnEnterCogCodeEnilopmart: (in category 'initialization') ----- genPrimReturnEnterCogCodeEnilopmart: profiling "Generate the substitute return code for an external or FFI primitive call. On success simply return, extracting numArgs from newMethod. On primitive failure call ceActivateFailingPrimitiveMethod: newMethod." | jmpSample continuePostSample jmpFail | <var: #jmpSample type: #'AbstractInstruction *'> <var: #continuePostSample type: #'AbstractInstruction *'> <var: #jmpFail type: #'AbstractInstruction *'> self zeroOpcodeIndex. backEnd hasVarBaseRegister ifTrue: [self MoveCq: self varBaseAddress R: VarBaseReg]. "Must happen sometime" "Test primitive failure" self MoveAw: coInterpreter primFailCodeAddress R: TempReg. self flag: 'ask concrete code gen if move sets condition codes?'. self CmpCq: 0 R: TempReg. jmpFail := self JumpNonZero: 0. (profiling and: [backEnd has64BitPerformanceCounter]) ifTrue: [jmpSample := self genCheckForProfileTimerTick: (self registerMaskFor: NoReg). continuePostSample := self Label]. "Switch back to the Smalltalk stack. Stack better be in either of these two states: success: stackPointer -> result (was receiver) arg1 ... argN return pc failure: receiver arg1 ... stackPointer -> argN return pc We push the instructionPointer to reestablish the return pc in the success case, but leave it to ceActivateFailingPrimitiveMethod: to do so in the failure case." backEnd hasLinkRegister ifTrue: [backEnd genLoadStackPointers. "Switch back to Smalltalk stack." backEnd hasPCRegister ifTrue: [self PopR: ReceiverResultReg. "Pop result from stack" self MoveAw: coInterpreter instructionPointerAddress R: PCReg] "Return" ifFalse: [self MoveMw: 0 r: SPReg R: ReceiverResultReg. "Fetch result from stack" self MoveAw: coInterpreter instructionPointerAddress R: LinkReg. "Get ret pc" self RetN: objectMemory wordSize]] "Return, popping result from stack" ifFalse: [self MoveAw: coInterpreter instructionPointerAddress R: ClassReg. "Get return pc" backEnd genLoadStackPointers. "Switch back to Smalltalk stack." self MoveMw: 0 r: SPReg R: ReceiverResultReg. "Fetch result from stack" self MoveR: ClassReg Mw: 0 r: SPReg. "Restore return pc" self RetN: 0]. "Return, popping result from stack" "Primitive failed. Invoke C code to build the frame and continue." jmpFail jmpTarget: (self MoveAw: coInterpreter newMethodAddress R: SendNumArgsReg). "Reload sp with CStackPointer; easier than popping args of checkProfileTick." self MoveAw: self cStackPointerAddress R: SPReg. self compileCallFor: #ceActivateFailingPrimitiveMethod: numArgs: 1 arg: SendNumArgsReg arg: nil arg: nil arg: nil resultReg: NoReg regsToSave: self emptyRegisterMask. "On Spur ceActivateFailingPrimitiveMethod: may retry the primitive and return if successful. So continue by returning to the caller. Switch back to the Smalltalk stack. Stack should be in this state: success: stackPointer -> result (was receiver) arg1 ... argN return pc We can push the instructionPointer or load it into the LinkRegister to reestablish the return pc" self MoveAw: coInterpreter instructionPointerAddress R: (backEnd hasLinkRegister ifTrue: [LinkReg] ifFalse: [ClassReg]). backEnd genLoadStackPointers. backEnd hasLinkRegister ifTrue: [self MoveMw: 0 r: SPReg R: ReceiverResultReg] "Fetch result from stack" ifFalse: [self MoveMw: objectMemory wordSize r: SPReg R: ReceiverResultReg. "Fetch result from stack" self PushR: ClassReg]. "Restore return pc on CISCs" self RetN: objectMemory wordSize. "return to caller, popping receiver" (profiling and: [backEnd has64BitPerformanceCounter]) ifTrue: + ["Call ceCheckProfileTick to record sample and then continue. newMethod - ["Call ceCheckProfileTick: to record sample and then continue. newMethod should be up-to-date. Need to save and restore the link reg around this call." jmpSample jmpTarget: self Label. + backEnd genMarshallNArgs: 0 arg: 0 arg: 0 arg: 0 arg: 0. + self CallFullRT: (self cCode: [#ceCheckProfileTick asUnsignedInteger] + inSmalltalk: [self simulatedTrampolineFor: #ceCheckProfileTick]). + backEnd genRemoveNArgsFromStack: 0. - backEnd saveAndRestoreLinkRegAround: - [self CallFullRT: (self cCode: '(usqIntptr_t)ceCheckProfileTick' - inSmalltalk: [self simulatedTrampolineFor: #ceCheckProfileTick])]. self Jump: continuePostSample]! Item was changed: ----- Method: StackInterpreter>>checkForEventsMayContextSwitch: (in category 'process primitive support') ----- checkForEventsMayContextSwitch: mayContextSwitch "Check for possible interrupts and handle one if necessary. Answer if a context switch has occurred." | switched sema now | <inline: false> <var: #now type: #usqLong> statCheckForEvents := statCheckForEvents + 1. "restore the stackLimit if it has been smashed." self restoreStackLimit. self externalWriteBackHeadFramePointers. self assert: stackPage = stackPages mostRecentlyUsedPage. "Allow the platform to do anything it needs to do synchronously." self ioSynchronousCheckForEvents. self checkCogCompiledCodeCompactionCalledFor. objectMemory needGCFlag ifTrue: ["sufficientSpaceAfterGC: runs the incremental GC and then, if not enough space is available, the fullGC." (objectMemory sufficientSpaceAfterGC: 0) ifFalse: [self setSignalLowSpaceFlagAndSaveProcess]]. mayContextSwitch ifFalse: [^false]. switched := false. (profileProcess ~= objectMemory nilObject or: [nextProfileTick > 0 and:[self ioHighResClock >= nextProfileTick]]) ifTrue: + [self zeroNextProfileTick. - [nextProfileTick := 0. "Take a sample (if not already done so) for the profiler if it is active. This must be done before any of the synchronousSignals below or else we will attribute a pause in ioRelinquishProcessor to the newly activated process." profileProcess = objectMemory nilObject ifTrue: [profileProcess := self activeProcess. profileMethod := objectMemory nilObject]. "and signal the profiler semaphore if it is present" (profileSemaphore ~= objectMemory nilObject and: [self synchronousSignal: profileSemaphore]) ifTrue: [switched := true]]. objectMemory signalLowSpace ifTrue: [objectMemory signalLowSpace: false. "reset flag" sema := objectMemory splObj: TheLowSpaceSemaphore. (sema ~= objectMemory nilObject and: [self synchronousSignal: sema]) ifTrue: [switched := true]]. "inIOProcessEvents prevents reentrancy into ioProcessEvents and allows disabling ioProcessEvents e.g. for native GUIs. We would like to manage that here but can't since the platform code may choose to call ioProcessEvents itself in various places." false ifTrue: [((now := self ioUTCMicroseconds) >= nextPollUsecs and: [inIOProcessEvents = 0]) ifTrue: [statIOProcessEvents := statIOProcessEvents + 1. inIOProcessEvents := inIOProcessEvents + 1. self ioProcessEvents. "sets interruptPending if interrupt key pressed; may callback" inIOProcessEvents > 0 ifTrue: [inIOProcessEvents := inIOProcessEvents - 1]. nextPollUsecs := now + 20000 "msecs to wait before next call to ioProcessEvents. Note that strictly speaking we might need to update 'now' at this point since ioProcessEvents could take a very long time on some platforms"]] ifFalse: [(now := self ioUTCMicroseconds) >= nextPollUsecs ifTrue: [statIOProcessEvents := statIOProcessEvents + 1. self ioProcessEvents. "sets interruptPending if interrupt key pressed; may callback" nextPollUsecs := now + 20000 "msecs to wait before next call to ioProcessEvents. Note that strictly speaking we might need to update 'now' at this point since ioProcessEvents could take a very long time on some platforms"]]. interruptPending ifTrue: [interruptPending := false. "reset interrupt flag" sema := objectMemory splObj: TheInterruptSemaphore. (sema ~= objectMemory nilObject and: [self synchronousSignal: sema]) ifTrue: [switched := true]]. nextWakeupUsecs ~= 0 ifTrue: [now >= nextWakeupUsecs ifTrue: [nextWakeupUsecs := 0. "set timer interrupt to 0 for 'no timer'" sema := objectMemory splObj: TheTimerSemaphore. (sema ~= objectMemory nilObject and: [self synchronousSignal: sema]) ifTrue: [switched := true]]]. "signal any pending finalizations" pendingFinalizationSignals > 0 ifTrue: [pendingFinalizationSignals := 0. sema := objectMemory splObj: TheFinalizationSemaphore. (sema ~= objectMemory nilObject and: [self synchronousSignal: sema]) ifTrue: [switched := true]]. "signal all semaphores in semaphoresToSignal" self signalExternalSemaphores ifTrue: [switched := true]. ^switched! Item was changed: ----- Method: StackInterpreter>>checkProfileTick: (in category 'process primitive support') ----- checkProfileTick: aPrimitiveMethod "Check if the profile timer has expired and if so take a sample. If the primitive has failed sample the profileMethod as nil." <inline: false> self assert: nextProfileTick ~= 0. self ioHighResClock >= nextProfileTick ifTrue: [profileProcess := self activeProcess. profileMethod := self successful ifTrue: [aPrimitiveMethod] ifFalse: [objectMemory nilObject]. self forceInterruptCheck. + self zeroNextProfileTick]! - nextProfileTick := 0]! Item was added: + ----- Method: StackInterpreter>>zeroNextProfileTick (in category 'process primitive support') ----- + zeroNextProfileTick + "this is a hook for the simulator..." + <inline: #always> + nextProfileTick := 0!

1 0

[OpenSmalltalk/opensmalltalk-vm] Getting a segmentation fault on the latest squeak.cog.spur (#574)
by Joseph Turco 06 Aug '21

06 Aug '21

Hello, I have a raspberry pi zero w. i was trying to get the latest stable squeak.cog.spur32ARMv6 to run on my system. When ever i run it, i get a `segmentation fault` with both the Squeak 5.3 image as well as another smalltalk image called "Cuis smalltalk". Is it not working with raspberry pi zeros? -- You are receiving this because you are subscribed to this thread. Reply to this email directly or view it on GitHub: https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/574

9 37

← Newer
1
...
7
8
9
10
11
12
13
...
17
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev August 2021