Vm-dev January 2016

vm-dev@lists.squeakfoundation.org

40 participants
156 discussions

[commit][3547] CogVM source as per VMMaker.oscog-eem.1623
by commits＠squeakvm.org 09 Jan '16

09 Jan '16

Revision: 3547 Author: eliot Date: 2016-01-09 08:25:07 -0800 (Sat, 09 Jan 2016) Log Message: ----------- CogVM source as per VMMaker.oscog-eem.1623 Spur: Fix a bug with out-of-place two-way become, which got the hash copy the wrong way round. By default, the hash stays with the reference in two-way become. Fix what appears to be a compiler bug with in-place two-way-become by treating the headers to be swapped so that remembered flags are swapped and hash bits are swapped if required. Cogit: Execute the "abstract registers simply name concrete registers" coup. Now abstract registers are also non-negative values and all the negation nonsense with register masks is eliminated. Refactor primitive generation so that all primitives reside in CogObjectRepresentation and subclasses, except for genPrimitiveClosureValue and genPrimitivePerform. This eliminates the outer/inner distinction and the need for a separate compileFallbackToInterpreterPrimitive:. Eliminate the enabled function from a CogPrimitiveDescriptor, adding the enablement calls to the relevant primitives, and discarding the unused primitiveIndex arguments. MIPS Cogit: Implement I-cache flush with <asm/cachectl.h>. Use signed shift when generating I-type instructions. Handle optional floating-point (i.e. the current MIPSEL) by adding <option: #DPFPReg0> to all floating point routines hence eliding them on MIPS. Misc Cogit: Eliminate some obsolete assignments to maxSize in computeFooSize methods. Implement machine code SmallFloat primitives. Fix conversion bug in maybeGenConvertIfSmallFloatIn:. Streamline genJumpNotSmallFloatValueBits:scratch:'s isolation of the exponent. Slang: Avoid computing variable and return types prematurely i.e. don't derive types from as-yet-untyped methods. sqConfig.h: Add NeverInline support for the Clang C compiler. Spur Bootstrap for Cuis: Cope with there being no methodClassAsociation: in MorphFloat.st Modified Paths: -------------- branches/Cog/image/old/MorphFloat.st branches/Cog/nsspursrc/vm/cogit.h branches/Cog/nsspursrc/vm/cogitARMv5.c branches/Cog/nsspursrc/vm/cogitIA32.c branches/Cog/nsspursrc/vm/cogitMIPSEL.c branches/Cog/nsspursrc/vm/cointerp.c branches/Cog/nsspursrc/vm/cointerp.h branches/Cog/nsspursrc/vm/gcc3x-cointerp.c branches/Cog/nsspurstack64src/vm/gcc3x-interp.c branches/Cog/nsspurstack64src/vm/interp.c branches/Cog/nsspurstacksrc/vm/gcc3x-interp.c branches/Cog/nsspurstacksrc/vm/interp.c branches/Cog/platforms/Mac OS/vm/sqConfig.h branches/Cog/platforms/iOS/vm/OSX/sqConfig.h branches/Cog/platforms/iOS/vm/iPhone/sqConfig.h branches/Cog/platforms/unix/vm/sqConfig.h branches/Cog/platforms/win32/vm/sqConfig.h branches/Cog/spur64src/vm/cogit.h branches/Cog/spur64src/vm/cogitX64.c branches/Cog/spur64src/vm/cointerp.c branches/Cog/spur64src/vm/cointerp.h branches/Cog/spur64src/vm/gcc3x-cointerp.c branches/Cog/spursistasrc/vm/cogit.h branches/Cog/spursistasrc/vm/cogitARMv5.c branches/Cog/spursistasrc/vm/cogitIA32.c branches/Cog/spursistasrc/vm/cogitMIPSEL.c branches/Cog/spursistasrc/vm/cointerp.c branches/Cog/spursistasrc/vm/cointerp.h branches/Cog/spursistasrc/vm/gcc3x-cointerp.c branches/Cog/spursrc/vm/cogit.h branches/Cog/spursrc/vm/cogitARMv5.c branches/Cog/spursrc/vm/cogitIA32.c branches/Cog/spursrc/vm/cogitMIPSEL.c branches/Cog/spursrc/vm/cointerp.c branches/Cog/spursrc/vm/cointerp.h branches/Cog/spursrc/vm/gcc3x-cointerp.c branches/Cog/spurstack64src/vm/gcc3x-interp.c branches/Cog/spurstack64src/vm/interp.c branches/Cog/spurstacksrc/vm/gcc3x-interp.c branches/Cog/spurstacksrc/vm/interp.c branches/Cog/src/vm/cogit.h branches/Cog/src/vm/cogitARMv5.c branches/Cog/src/vm/cogitIA32.c branches/Cog/src/vm/cogitMIPSEL.c branches/Cog/src/vm/cointerp.c branches/Cog/src/vm/cointerp.h branches/Cog/src/vm/cointerpmt.c branches/Cog/src/vm/cointerpmt.h branches/Cog/src/vm/gcc3x-cointerp.c branches/Cog/src/vm/gcc3x-cointerpmt.c branches/Cog/stacksrc/vm/gcc3x-interp.c branches/Cog/stacksrc/vm/interp.c Property Changed: ---------------- branches/Cog/platforms/Cross/vm/sqSCCSVersion.h Modified: branches/Cog/image/old/MorphFloat.st =================================================================== --- branches/Cog/image/old/MorphFloat.st 2015-12-19 02:58:35 UTC (rev 3546) +++ branches/Cog/image/old/MorphFloat.st 2016-01-09 16:25:07 UTC (rev 3547) @@ -100,7 +100,9 @@ binding := bfc binding. bfc selectorsAndMethodsDo: [:s :m| - m methodClassAssociation: binding]. + [m methodClassAssociation: binding] + on: MessageNotUnderstood + do: [:ex| m literalAt: m numLiterals put: binding]]. bfc organization removeEmptyCategories; sortCategories]. "shrink method dictionaries after removals; rehash does not shrink :-(" {boxedFloat. boxedFloat class} do: Modified: branches/Cog/nsspursrc/vm/cogit.h =================================================================== --- branches/Cog/nsspursrc/vm/cogit.h 2015-12-19 02:58:35 UTC (rev 3546) +++ branches/Cog/nsspursrc/vm/cogit.h 2016-01-09 16:25:07 UTC (rev 3547) @@ -1,5 +1,5 @@ /* Automatically generated by - CCodeGenerator VMMaker.oscog-eem.1608 uuid: bf1e1bd4-7dd4-47e2-bb33-3a988cc4c276 + CCodeGenerator VMMaker.oscog-eem.1623 uuid: 796c33c7-b025-4e0c-bd4e-1d3fa3d71f22 */ Modified: branches/Cog/nsspursrc/vm/cogitARMv5.c =================================================================== --- branches/Cog/nsspursrc/vm/cogitARMv5.c 2015-12-19 02:58:35 UTC (rev 3546) +++ branches/Cog/nsspursrc/vm/cogitARMv5.c 2016-01-09 16:25:07 UTC (rev 3547) @@ -1,9 +1,9 @@ /* Automatically generated by - CCodeGenerator VMMaker.oscog-eem.1608 uuid: bf1e1bd4-7dd4-47e2-bb33-3a988cc4c276 + CCodeGenerator VMMaker.oscog-eem.1621 uuid: 45817ea7-f2d1-4538-bfe4-c748be944bf2 from - StackToRegisterMappingCogit VMMaker.oscog-eem.1608 uuid: bf1e1bd4-7dd4-47e2-bb33-3a988cc4c276 + StackToRegisterMappingCogit VMMaker.oscog-eem.1621 uuid: 45817ea7-f2d1-4538-bfe4-c748be944bf2 */ -static char __buildInfo[] = "StackToRegisterMappingCogit VMMaker.oscog-eem.1608 uuid: bf1e1bd4-7dd4-47e2-bb33-3a988cc4c276 " __DATE__ ; +static char __buildInfo[] = "StackToRegisterMappingCogit VMMaker.oscog-eem.1621 uuid: 45817ea7-f2d1-4538-bfe4-c748be944bf2 " __DATE__ ; char *__cogitBuildInfo = __buildInfo; @@ -78,7 +78,6 @@ typedef struct { sqInt (*primitiveGenerator )(void); sqInt primNumArgs; - sqInt (*enabled )(sqInt); } PrimitiveDescriptor; #define CogPrimitiveDescriptor PrimitiveDescriptor @@ -129,8 +128,8 @@ #define AndOpcode 0 #define AndRR 91 #define AnnotationShift 5 -#define Arg0Reg -7 -#define Arg1Reg -8 +#define Arg0Reg 4 +#define Arg1Reg 5 #define ArithmeticShiftRightCqR 80 #define ArithmeticShiftRightRR 81 #define BadRegisterSet 1 @@ -148,7 +147,7 @@ #define ClassBlockClosureCompactIndex 37 #define ClassFloatCompactIndex 34 #define ClassMethodContextCompactIndex 36 -#define ClassReg -5 +#define ClassReg 8 #define ClosureFirstCopiedValueIndex 3 #define ClosureIndex 4 #define ClosureNumArgsIndex 2 @@ -174,39 +173,25 @@ #define ConstZero 1 #define ConvertRRd 115 #define CS 2 -#define D0 0 -#define D1 1 -#define D2 2 -#define D3 3 -#define D4 4 -#define D5 5 -#define D6 6 -#define D7 7 #define Debug DEBUGVM #define DisplacementMask 0x1F #define DisplacementX2N 0 #define DivRdRd 113 -#define DPFPReg0 -21 -#define DPFPReg1 -22 -#define DPFPReg2 -23 -#define DPFPReg3 -24 -#define DPFPReg4 -25 -#define DPFPReg5 -26 -#define DPFPReg6 -27 -#define DPFPReg7 -28 +#define DPFPReg0 0 +#define DPFPReg1 1 +#define DPFPReg2 2 #define EncounteredUnknownBytecode -6 #define EQ 0 #define Fill32 4 #define FirstAnnotation 64 #define FirstJump 11 -#define FirstShortJump 15 #define FirstSpecialSelector 176 #define FoxCallerSavedIP 4 #define FoxMethod -4 #define FoxMFReceiver -12 #define FoxSavedFP 0 #define FoxThisContext -8 -#define FPReg -1 +#define FPReg 11 #define GCModeBecome 8 #define GCModeFull 1 #define GCModeNewSpace 2 @@ -215,6 +200,7 @@ #define HasBytecodePC 4 #define HeaderIndex 0 #define HI 8 +#define IMMUTABILITY 0 #define InstanceSpecificationIndex 2 #define InstructionPointerIndex 1 #define InsufficientCodeSpace -2 @@ -263,7 +249,7 @@ #define LargeContextSlots 62 #define LastJump 39 #define LE 13 -#define LinkReg -17 +#define LinkReg 14 #define Literal 2 #define LiteralStart 1 #define LoadEffectiveAddressMwrR 77 @@ -323,7 +309,7 @@ #define NegateR 79 #define NewspeakVM 1 #define Nop 5 -#define NoReg null +#define NoReg -1 #define NotFullyInitialized -1 #define NSCClassTagIndex 0 #define NSCEnclosingObjectIndex 1 @@ -339,7 +325,7 @@ #define OrOpcode 12 #define OrRR 92 #define PC 15 -#define PCReg -19 +#define PCReg 15 #define PL 5 #define PopR 72 #define PrefetchAw 76 @@ -353,29 +339,22 @@ #define PushCw 75 #define PushR 73 #define R0 0 -#define R11 11 -#define R12 12 -#define R4 4 -#define R5 5 -#define R6 6 -#define R7 7 -#define R8 8 #define ReceiverIndex 5 -#define ReceiverResultReg -3 +#define ReceiverResultReg 7 #define RetN 8 -#define RISCTempReg -18 +#define RISCTempReg 12 #define RsbOpcode 3 -#define Scratch0Reg -9 +#define Scratch0Reg 12 #define SelectorCannotInterpret 34 #define SelectorDoesNotUnderstand 20 #define SenderIndex 0 -#define SendNumArgsReg -6 +#define SendNumArgsReg 6 #define ShouldNotJIT -8 #define SistaVM 0 #define SMULL 116 #define SmallContextSlots 22 #define SP 13 -#define SPReg -2 +#define SPReg 13 #define SqrtRd 114 #define SSBaseOffset 1 #define SSConstant 2 @@ -388,13 +367,13 @@ #define SubOpcode 2 #define SubRdRd 111 #define SubRR 90 -#define TempReg -4 +#define TempReg 0 #define TstCqR 99 #define TstOpcode 8 #define UnfailingPrimitive 3 #define UnimplementedPrimitive -7 #define ValueIndex 1 -#define VarBaseReg -20 +#define VarBaseReg 10 #define VC 7 #define VS 6 #define XorCqR 100 @@ -434,7 +413,6 @@ static sqInt NoDbgRegParms isAFixup(AbstractInstruction * self_in_isAFixup, void *fixupOrAddress); static sqInt NoDbgRegParms isAnInstruction(AbstractInstruction * self_in_isAnInstruction, AbstractInstruction *addressOrInstruction); static sqInt NoDbgRegParms isJump(AbstractInstruction * self_in_isJump); -static sqInt NoDbgRegParms isLongJump(AbstractInstruction * self_in_isLongJump); static sqInt NoDbgRegParms isWithinMwOffsetRange(AbstractInstruction * self_in_isWithinMwOffsetRange, sqInt anAddress); static AbstractInstruction * NoDbgRegParms jmpTarget(AbstractInstruction * self_in_jmpTarget, AbstractInstruction *anAbstractInstruction); static usqInt NoDbgRegParms labelOffset(AbstractInstruction * self_in_labelOffset); @@ -445,7 +423,6 @@ static AbstractInstruction * NoDbgRegParms resolveJumpTarget(AbstractInstruction * self_in_resolveJumpTarget); static sqInt NoDbgRegParms rewriteConditionalJumpLongAttarget(AbstractInstruction * self_in_rewriteConditionalJumpLongAttarget, sqInt callSiteReturnAddress, sqInt callTargetAddress); static sqInt NoDbgRegParms setLabelOffset(AbstractInstruction * self_in_setLabelOffset, sqInt aValue); -static sqInt NoDbgRegParms abstractRegisterForConcreteRegister(AbstractInstruction * self_in_abstractRegisterForConcreteRegister, sqInt reg); static sqInt NoDbgRegParms addsrnimmror(AbstractInstruction * self_in_addsrnimmror, sqInt destReg, sqInt srcReg, sqInt immediate, sqInt rot); static sqInt NoDbgRegParms addrnimmror(AbstractInstruction * self_in_addrnimmror, sqInt destReg, sqInt srcReg, sqInt immediate, sqInt rot); static sqInt NoDbgRegParms addrnrm(AbstractInstruction * self_in_addrnrm, sqInt destReg, sqInt srcReg, sqInt addReg); @@ -462,8 +439,6 @@ static sqInt NoDbgRegParms computeMaximumSize(AbstractInstruction * self_in_computeMaximumSize); static sqInt NoDbgRegParms concreteCalleeSavedRegisterMask(AbstractInstruction * self_in_concreteCalleeSavedRegisterMask); static sqInt NoDbgRegParms concreteCallerSavedRegisterMask(AbstractInstruction * self_in_concreteCallerSavedRegisterMask); -static sqInt NoDbgRegParms concreteDPFPRegister(AbstractInstruction * self_in_concreteDPFPRegister, sqInt registerIndex); -static sqInt NoDbgRegParms concreteRegister(AbstractInstruction * self_in_concreteRegister, sqInt registerIndex); static sqInt NoDbgRegParms concretizeAt(AbstractInstruction * self_in_concretizeAt, sqInt actualAddress); static usqInt NoDbgRegParms concretizeCMPSMULL(AbstractInstruction * self_in_concretizeCMPSMULL); static void NoDbgRegParms concretizeConditionalInstruction(AbstractInstruction * self_in_concretizeConditionalInstruction); @@ -471,7 +446,6 @@ static usqInt NoDbgRegParms concretizeMSR(AbstractInstruction * self_in_concretizeMSR); static usqInt NoDbgRegParms concretizeSMULL(AbstractInstruction * self_in_concretizeSMULL); static sqInt NoDbgRegParms conditionIsNotNever(AbstractInstruction * self_in_conditionIsNotNever, sqInt instr); -static sqInt NoDbgRegParms cResultRegister(AbstractInstruction * self_in_cResultRegister); static sqInt NoDbgRegParms dataOpTyperdrnrmlsr(AbstractInstruction * self_in_dataOpTyperdrnrmlsr, sqInt armOpcode, sqInt destReg, sqInt srcReg, sqInt addReg, sqInt shft); static void NoDbgRegParms dispatchConcretize(AbstractInstruction * self_in_dispatchConcretize); static sqInt NoDbgRegParms fmsrFromto(AbstractInstruction * self_in_fmsrFromto, sqInt regA, sqInt regB); @@ -488,7 +462,8 @@ static sqInt NoDbgRegParms genRemoveNArgsFromStack(AbstractInstruction * self_in_genRemoveNArgsFromStack, sqInt n); static AbstractInstruction * NoDbgRegParms genRestoreRegs(AbstractInstruction * self_in_genRestoreRegs); static AbstractInstruction * NoDbgRegParms genRestoreRegsExcept(AbstractInstruction * self_in_genRestoreRegsExcept, sqInt abstractReg); -static AbstractInstruction * NoDbgRegParms genSaveRegisters(AbstractInstruction * self_in_genSaveRegisters); +static AbstractInstruction * NoDbgRegParms genSaveRegForCCall(AbstractInstruction * self_in_genSaveRegForCCall); +static AbstractInstruction * NoDbgRegParms genSaveRegsForCCall(AbstractInstruction * self_in_genSaveRegsForCCall); static sqInt NoDbgRegParms genSaveStackPointers(AbstractInstruction * self_in_genSaveStackPointers); static AbstractInstruction * NoDbgRegParms genSubstituteReturnAddress(AbstractInstruction * self_in_genSubstituteReturnAddress, sqInt retpc); static sqInt NoDbgRegParms hasLinkRegister(AbstractInstruction * self_in_hasLinkRegister); @@ -625,7 +600,6 @@ static void compileEntry(void); static sqInt compileMethodBody(void); static sqInt NoDbgRegParms compilePICAbort(sqInt numArgs); -static sqInt compilePrimitive(void); static void NoDbgRegParms compileTrampolineFornumArgsargargargargsaveRegspushLinkRegresultReg(void *aRoutine, sqInt numArgs, sqInt regOrConst0, sqInt regOrConst1, sqInt regOrConst2, sqInt regOrConst3, sqInt saveRegs, sqInt pushLinkReg, sqInt resultRegOrNone); static void computeEntryOffsets(void); static void computeMaximumSizes(void); @@ -681,6 +655,7 @@ static sqInt NoDbgRegParms genSafeTrampolineForcalledargarg(void *aRoutine, char *aString, sqInt regOrConst0, sqInt regOrConst1); static sqInt NoDbgRegParms genSmalltalkToCStackSwitch(sqInt pushLinkReg); static sqInt NoDbgRegParms genTrampolineForcalled(void *aRoutine, char *aString); +static sqInt NoDbgRegParms genTrampolineForcalledargargarg(void *aRoutine, char *aString, sqInt regOrConst0, sqInt regOrConst1, sqInt regOrConst2); static sqInt NoDbgRegParms genTrampolineForcalledargargargresult(void *aRoutine, char *aString, sqInt regOrConst0, sqInt regOrConst1, sqInt regOrConst2, sqInt resultReg); static sqInt NoDbgRegParms genTrampolineForcalledargargresult(void *aRoutine, char *aString, sqInt regOrConst0, sqInt regOrConst1, sqInt resultReg); static sqInt NoDbgRegParms genTrampolineForcalledargresult(void *aRoutine, char *aString, sqInt regOrConst0, sqInt resultReg); @@ -738,12 +713,14 @@ static sqInt maybeAllocAndInitIRCs(void); static sqInt NoDbgRegParms maybeFreeCogMethodDoesntLookKosher(CogMethod *cogMethod); static void NoDbgRegParms maybeMarkCountersIn(CogMethod *cogMethod); -static sqInt NoDbgRegParms mclassIsSmallInteger(sqInt ignoredPrimIndex); +static sqInt mclassIsSmallInteger(void); extern usqInt mcPCForBackwardBranchstartBcpcin(sqInt bcpc, sqInt startbcpc, CogBlockMethod *cogMethod); +static sqInt methodNumArgs(void); static sqInt NoDbgRegParms methodhasSameCodeAscheckPenultimate(sqInt methodA, sqInt methodB, sqInt comparePenultimateLiteral); extern sqInt minCogMethodAddress(void); extern sqInt mnuOffset(void); static AbstractInstruction * NoDbgRegParms gNegateR(sqInt reg); +static sqInt NoDbgRegParms needsFrameIfImmutability(sqInt stackDelta); static sqInt NoDbgRegParms needsFrameIfInBlock(sqInt stackDelta); static sqInt NoDbgRegParms needsFrameNever(sqInt stackDelta); static sqInt NoDbgRegParms noAssertMethodClassAssociationOf(sqInt methodPointer); @@ -757,15 +734,10 @@ static sqInt picAbortDiscriminatorValue(void); static sqInt picInterpretAbortOffset(void); static AbstractInstruction * previousInstruction(void); -static PrimitiveDescriptor * primitiveGeneratorOrNil(void); extern void printCogMethodFor(void *address); extern void printTrampolineTable(void); -static sqInt NoDbgRegParms processorHasDivQuoRemAndMClassIsSmallInteger(sqInt ignoredPrimIndex); -static sqInt NoDbgRegParms processorHasDivQuoRem(sqInt ignoredPrimIndex); -static sqInt NoDbgRegParms processorHasDoublePrecisionFloatingPointSupport(sqInt ignoredPrimIndex); -static sqInt NoDbgRegParms processorHasMultiplyAndMClassIsSmallInteger(sqInt ignoredPrimIndex); -static sqInt NoDbgRegParms processorHasMultiply(sqInt ignoredPrimIndex); -static AbstractInstruction * NoDbgRegParms gRetN(sqInt offset); +static sqInt processorHasDivQuoRemAndMClassIsSmallInteger(void); +static sqInt processorHasMultiplyAndMClassIsSmallInteger(void); static void NoDbgRegParms recordGeneratedRunTimeaddress(char *aString, sqInt address); extern sqInt recordPrimTraceFunc(void); static void recordRunTimeObjectReferences(void); @@ -784,9 +756,9 @@ extern void setSelectorOfto(CogMethod *cogMethod, sqInt aSelectorOop); static sqInt NoDbgRegParms spanForCleanBlockStartingAt(sqInt startPC); extern sqInt traceLinkedSendOffset(void); +static sqInt NoDbgRegParms trampolineArgConstant(sqInt booleanOrInteger); static char * NoDbgRegParms trampolineNamenumArgs(char *routinePrefix, sqInt numArgs); static char * NoDbgRegParms trampolineNamenumRegArgs(char *routinePrefix, sqInt numArgs); -static sqInt unimplementedPrimitive(void); static sqInt unknownBytecode(void); extern void unlinkAllSends(void); static sqInt NoDbgRegParms unlinkIfFreeOrLinkedSendpcof(sqInt annotation, char *mcpc, sqInt theSelector); @@ -836,9 +808,45 @@ static sqInt NoDbgRegParms checkValidObjectReference(sqInt anOop); static AbstractInstruction * NoDbgRegParms genCmpClassFloatCompactIndexR(sqInt reg); static AbstractInstruction * NoDbgRegParms genCmpClassMethodContextCompactIndexR(sqInt reg); -static sqInt NoDbgRegParms genInnerPrimitiveNewMethod(sqInt retNoffset); +static sqInt NoDbgRegParms genDoubleArithmeticpreOpCheck(sqInt arithmeticOperator, AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)); +static sqInt NoDbgRegParms genDoubleComparisoninvert(AbstractInstruction *(*jumpOpcodeGenerator)(void *), sqInt invertComparison); static AbstractInstruction * NoDbgRegParms genJumpSmallIntegerscratchReg(sqInt aRegister, sqInt scratch); static sqInt NoDbgRegParms genLoadSlotsourceRegdestReg(sqInt index, sqInt sourceReg, sqInt destReg); +static sqInt genPrimitiveAdd(void); +static sqInt genPrimitiveAsFloat(void); +static sqInt genPrimitiveBitAnd(void); +static sqInt genPrimitiveBitOr(void); +static sqInt genPrimitiveBitShift(void); +static sqInt genPrimitiveBitXor(void); +static sqInt genPrimitiveClass(void); +static sqInt genPrimitiveDiv(void); +static sqInt genPrimitiveDivide(void); +static sqInt genPrimitiveEqual(void); +static sqInt genPrimitiveFloatAdd(void); +static sqInt genPrimitiveFloatDivide(void); +static sqInt genPrimitiveFloatEqual(void); +static sqInt genPrimitiveFloatGreaterOrEqual(void); +static sqInt genPrimitiveFloatGreaterThan(void); +static sqInt genPrimitiveFloatLessOrEqual(void); +static sqInt genPrimitiveFloatLessThan(void); +static sqInt genPrimitiveFloatMultiply(void); +static sqInt genPrimitiveFloatNotEqual(void); +static sqInt genPrimitiveFloatSquareRoot(void); +static sqInt genPrimitiveFloatSubtract(void); +static sqInt genPrimitiveGreaterOrEqual(void); +static sqInt genPrimitiveGreaterThan(void); +static sqInt genPrimitiveIdentical(void); +static sqInt genPrimitiveLessOrEqual(void); +static sqInt genPrimitiveLessThan(void); +static sqInt genPrimitiveMod(void); +static sqInt genPrimitiveMultiply(void); +static sqInt genPrimitiveNewMethod(void); +static sqInt genPrimitiveNotEqual(void); +static sqInt genPrimitiveNotIdentical(void); +static sqInt genPrimitiveQuo(void); +static sqInt genPrimitiveSubtract(void); +static sqInt NoDbgRegParms genSmallIntegerComparison(sqInt jumpOpcode); +static sqInt NoDbgRegParms genSmallIntegerComparisonorDoubleComparisoninvert(sqInt jumpOpcode, AbstractInstruction *(*jumpFPOpcodeGenerator)(void *), sqInt invertComparison); static sqInt NoDbgRegParms isUnannotatableConstant(CogSimStackEntry *simStackEntry); static sqInt NoDbgRegParms maybeGenConvertIfSmallFloatInscratchRegintoandJumpTo(sqInt oopReg, sqInt scratch, sqInt dpReg, AbstractInstruction *targetInst); static sqInt NoDbgRegParms genAddSmallIntegerTagsTo(sqInt aRegister); @@ -852,19 +860,19 @@ static sqInt NoDbgRegParms genGetHashFieldNonImmOfinto(sqInt instReg, sqInt destReg); static AbstractInstruction * NoDbgRegParms genGetInlineCacheClassTagFromintoforEntry(sqInt sourceReg, sqInt destReg, sqInt forEntry); static sqInt NoDbgRegParms genGetOverflowSlotsOfinto(sqInt srcReg, sqInt destReg); -static sqInt NoDbgRegParms genInnerPrimitiveAtPut(sqInt retNoffset); -static sqInt NoDbgRegParms genInnerPrimitiveAt(sqInt retNoffset); -static sqInt NoDbgRegParms genInnerPrimitiveIdentityHash(sqInt retNoffset); -static sqInt NoDbgRegParms genInnerPrimitiveMirrorNewWithArg(sqInt retNoffset); -static sqInt NoDbgRegParms genInnerPrimitiveMirrorNew(sqInt retNoffset); -static sqInt NoDbgRegParms genInnerPrimitiveNewWithArg(sqInt retNoffset); -static sqInt NoDbgRegParms genInnerPrimitiveNew(sqInt retNoffset); -static sqInt NoDbgRegParms genInnerPrimitiveStringAtPut(sqInt retNoffset); static AbstractInstruction * NoDbgRegParms genJumpIsSmallIntegerValuescratch(sqInt aRegister, sqInt scratchReg); static AbstractInstruction * NoDbgRegParms genJumpNotSmallIntegerInScratchReg(sqInt aRegister); static AbstractInstruction * NoDbgRegParms genJumpNotSmallIntegerValuescratch(sqInt aRegister, sqInt scratchReg); static AbstractInstruction * NoDbgRegParms genJumpNotSmallInteger(sqInt aRegister); static AbstractInstruction * NoDbgRegParms genJumpSmallInteger(sqInt aRegister); +static sqInt genPrimitiveAt(void); +static sqInt genPrimitiveAtPut(void); +static sqInt genPrimitiveIdentityHash(void); +static sqInt genPrimitiveMirrorNew(void); +static sqInt genPrimitiveMirrorNewWithArg(void); +static sqInt genPrimitiveNew(void); +static sqInt genPrimitiveNewWithArg(void); +static sqInt genPrimitiveStringAtPut(void); static sqInt NoDbgRegParms genRemoveSmallIntegerTagsInScratchReg(sqInt scratchReg); static sqInt NoDbgRegParms genShiftAwaySmallIntegerTagsInScratchReg(sqInt scratchReg); static sqInt NoDbgRegParms inlineCacheTagForInstance(sqInt oop); @@ -904,21 +912,20 @@ static sqInt NoDbgRegParms genGetFormatOfintoleastSignificantHalfOfBaseHeaderIntoScratch(sqInt sourceReg, sqInt destReg, sqInt scratchRegOrNone); static sqInt NoDbgRegParms genGetNumSlotsOfinto(sqInt srcReg, sqInt destReg); static sqInt NoDbgRegParms genGetRawSlotSizeOfNonImminto(sqInt sourceReg, sqInt destReg); -static sqInt NoDbgRegParms genInnerPrimitiveAsCharacterinReg(sqInt retNOffset, sqInt reg); -static sqInt NoDbgRegParms genInnerPrimitiveCharacterValue(sqInt retNOffset); -static sqInt NoDbgRegParms genInnerPrimitiveIdenticalorNotIf(sqInt retNoffset, sqInt orNot); -static sqInt NoDbgRegParms genInnerPrimitiveObjectAt(sqInt retNOffset); -static sqInt NoDbgRegParms genInnerPrimitiveSize(sqInt retNoffset); -static sqInt NoDbgRegParms genInnerPrimitiveStringAt(sqInt retNoffset); static AbstractInstruction * NoDbgRegParms genJumpImmediate(sqInt aRegister); static AbstractInstruction * NoDbgRegParms genJumpNotCharacterInScratchReg(sqInt reg); static sqInt NoDbgRegParms genNewArrayOfSizeinitialized(sqInt size, sqInt initialized); static sqInt NoDbgRegParms genNoPopCreateClosureAtnumArgsnumCopiedcontextNumArgslargeinBlock(sqInt bcpc, sqInt numArgs, sqInt numCopied, sqInt ctxtNumArgs, sqInt isLargeCtxt, sqInt isInBlock); +static sqInt genPrimitiveAsCharacter(void); +static sqInt genPrimitiveCharacterValue(void); +static sqInt NoDbgRegParms genPrimitiveIdenticalOrNotIf(sqInt orNot); +static sqInt genPrimitiveObjectAt(void); +static sqInt genPrimitiveSize(void); +static sqInt genPrimitiveStringAt(void); static sqInt NoDbgRegParms genSetSmallIntegerTagsIn(sqInt scratchReg); static sqInt genStoreCheckContextReceiverTrampoline(void); static sqInt NoDbgRegParms genStoreCheckReceiverRegvalueRegscratchReginFrame(sqInt destReg, sqInt valueReg, sqInt scratchReg, sqInt inFrame); -static sqInt NoDbgRegParms genStoreImmediateInSourceRegslotIndexdestReg(sqInt sourceReg, sqInt index, sqInt destReg); -static sqInt NoDbgRegParms genStoreSourceRegslotIndexdestRegscratchReginFrame(sqInt sourceReg, sqInt index, sqInt destReg, sqInt scratchReg, sqInt inFrame); +static sqInt NoDbgRegParms genStoreSourceRegslotIndexdestRegscratchReginFrameneedsStoreCheck(sqInt sourceReg, sqInt index, sqInt destReg, sqInt scratchReg, sqInt inFrame, sqInt needsStoreCheck); static sqInt NoDbgRegParms genStoreSourceRegslotIndexintoNewObjectInDestReg(sqInt sourceReg, sqInt index, sqInt destReg); static sqInt getActiveContextAllocatesInMachineCode(void); static sqInt hasSpurMemoryManagerAPI(void); @@ -970,12 +977,12 @@ static sqInt resetForBlockCompile(void); static sqInt saveForBlockCompile(void); static sqInt compileBlockDispatch(void); -static sqInt NoDbgRegParms compileFallbackToInterpreterPrimitive(sqInt code); static void compileGetErrorCode(void); static sqInt NoDbgRegParms compileInterpreterPrimitive(void (*primitiveRoutine)(void)); static AbstractInstruction * NoDbgRegParms compileOpenPICMethodCacheProbeForwithShiftbaseRegOrNone(sqInt selector, sqInt shift, sqInt baseRegOrNone); static void NoDbgRegParms compileOpenPICnumArgs(sqInt selector, sqInt numArgs); static AbstractInstruction * NoDbgRegParms compilePerformMethodCacheProbeForwithShiftbaseRegOrNone(sqInt selectorReg, sqInt shift, sqInt baseRegOrNone); +static sqInt compilePrimitive(void); static sqInt extendedPushBytecode(void); static sqInt extendedStoreAndPopBytecode(void); static sqInt extendedStoreBytecode(void); @@ -1015,24 +1022,8 @@ static sqInt genLongUnconditionalForwardJump(void); static sqInt NoDbgRegParms genLookupForPerformNumArgs(sqInt numArgs); static AbstractInstruction * NoDbgRegParms genMoveConstantR(sqInt constant, sqInt reg); -static AbstractInstruction * NoDbgRegParms genMoveTrueR(sqInt reg); +static sqInt NoDbgRegParms genMoveTrueR(sqInt reg); static sqInt NoDbgRegParms genMustBeBooleanTrampolineForcalled(sqInt boolean, char *trampolineName); -static sqInt genPrimitiveEqual(void); -static sqInt genPrimitiveFloatAdd(void); -static sqInt genPrimitiveFloatDivide(void); -static sqInt genPrimitiveFloatEqual(void); -static sqInt genPrimitiveFloatGreaterOrEqual(void); -static sqInt genPrimitiveFloatGreaterThan(void); -static sqInt genPrimitiveFloatLessOrEqual(void); -static sqInt genPrimitiveFloatLessThan(void); -static sqInt genPrimitiveFloatMultiply(void); -static sqInt genPrimitiveFloatNotEqual(void); -static sqInt genPrimitiveFloatSubtract(void); -static sqInt genPrimitiveGreaterOrEqual(void); -static sqInt genPrimitiveGreaterThan(void); -static sqInt genPrimitiveLessOrEqual(void); -static sqInt genPrimitiveLessThan(void); -static sqInt genPrimitiveNotEqual(void); static void NoDbgRegParms genPrimReturnEnterCogCodeEnilopmart(sqInt profiling); static sqInt genPushClosureTempsBytecode(void); static sqInt genPushConstantFalseBytecode(void); @@ -1073,6 +1064,7 @@ static void maybeCompileAllocFillerCheck(void); static sqInt methodUsesPrimitiveErrorCode(void); static sqInt numSpecialSelectors(void); +static PrimitiveDescriptor * primitiveGeneratorOrNil(void); extern void recordCallOffsetIn(CogMethod *cogMethod); static sqInt NoDbgRegParms registerisInMask(sqInt reg, sqInt mask); static sqInt returnRegForStoreCheck(void); @@ -1110,8 +1102,6 @@ static sqInt NoDbgRegParms freeAnyRegNotConflictingWith(sqInt regMask); static void (*genCallPICEnilopmartNumArgs(sqInt numArgs))(void) ; static sqInt genCallPrimitiveBytecode(void); -static sqInt NoDbgRegParms genDoubleArithmeticpreOpCheck(sqInt arithmeticOperator, AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)); -static sqInt NoDbgRegParms genDoubleComparisoninvert(AbstractInstruction *(*jumpOpcodeGenerator)(void *), sqInt invertComparison); static sqInt NoDbgRegParms genEqualsEqualsNoBranchArgIsConstantrcvrIsConstantargRegrcvrReg(sqInt argIsConstant, sqInt rcvrIsConstant, sqInt argReg, sqInt rcvrRegOrNone); static sqInt genExternalizePointersForPrimitiveCall(void); static sqInt genExtPushClosureBytecode(void); @@ -1128,36 +1118,9 @@ static sqInt NoDbgRegParms genPICAbortTrampolineFor(sqInt numArgs); static sqInt NoDbgRegParms genPICMissTrampolineFor(sqInt numArgs); static sqInt genPopStackBytecode(void); -static sqInt genPrimitiveAdd(void); -static sqInt genPrimitiveAsCharacter(void); -static sqInt genPrimitiveAsFloat(void); -static sqInt genPrimitiveAt(void); -static sqInt genPrimitiveAtPut(void); -static sqInt genPrimitiveBitAnd(void); -static sqInt genPrimitiveBitOr(void); -static sqInt genPrimitiveBitShift(void); -static sqInt genPrimitiveBitXor(void); -static sqInt genPrimitiveCharacterValue(void); -static sqInt genPrimitiveClass(void); static sqInt genPrimitiveClosureValue(void); -static sqInt genPrimitiveDiv(void); -static sqInt genPrimitiveDivide(void); -static sqInt genPrimitiveFloatSquareRoot(void); -static sqInt genPrimitiveIdentical(void); -static sqInt genPrimitiveIdentityHash(void); -static sqInt genPrimitiveMod(void); -static sqInt genPrimitiveMultiply(void); -static sqInt genPrimitiveNew(void); -static sqInt genPrimitiveNewMethod(void); -static sqInt genPrimitiveNewWithArg(void); -static sqInt genPrimitiveNotIdentical(void); -static sqInt genPrimitiveObjectAt(void); static sqInt genPrimitivePerform(void); -static sqInt genPrimitiveQuo(void); -static sqInt genPrimitiveSize(void); -static sqInt genPrimitiveStringAt(void); -static sqInt genPrimitiveStringAtPut(void); -static sqInt genPrimitiveSubtract(void); +static AbstractInstruction * genPrimReturn(void); static sqInt genPushActiveContextBytecode(void); static sqInt genPushClosureCopyCopiedValuesBytecode(void); static sqInt NoDbgRegParms genPushEnclosingObjectAt(sqInt level); @@ -1177,8 +1140,6 @@ static sqInt NoDbgRegParms genSendSupernumArgs(sqInt selectorIndex, sqInt numArgs); static sqInt NoDbgRegParms genSendTrampolineFornumArgscalledargargargarg(void *aRoutine, sqInt numArgs, char *aString, sqInt regOrConst0, sqInt regOrConst1, sqInt regOrConst2, sqInt regOrConst3); static sqInt NoDbgRegParms genSendnumArgs(sqInt selectorIndex, sqInt numArgs); -static sqInt NoDbgRegParms genSmallIntegerComparison(sqInt jumpOpcode); -static sqInt NoDbgRegParms genSmallIntegerComparisonorDoubleComparisoninvert(sqInt jumpOpcode, AbstractInstruction *(*jumpFPOpcodeGenerator)(void *), sqInt invertComparison); static sqInt genSpecialSelectorArithmetic(void); static sqInt genSpecialSelectorClass(void); static sqInt genSpecialSelectorComparison(void); @@ -1227,6 +1188,7 @@ static sqInt NoDbgRegParms ssPushDesc(CogSimStackEntry simStackEntry); static sqInt NoDbgRegParms ssPushRegister(sqInt reg); static void NoDbgRegParms ssPush(sqInt n); +static void NoDbgRegParms ssStoreAndReplacePoptoReg(sqInt popBoolean, sqInt reg); static sqInt NoDbgRegParms ssStorePoptoPreferredReg(sqInt popBoolean, sqInt preferredReg); static void NoDbgRegParms ssStorePoptoReg(sqInt popBoolean, sqInt reg); static CogSimStackEntry * ssTop(void); @@ -1268,6 +1230,7 @@ void (*ceCallCogCodePopReceiverArg0Regs)(void); void (*ceCallCogCodePopReceiverArg1Arg0Regs)(void); void (*ceCallCogCodePopReceiverReg)(void); +static sqInt ceCannotAssignToWithIndexTrampoline; sqInt ceCannotResumeTrampoline; void (*ceCaptureCStackPointers)(void); static unsigned long (*ceCheckFeaturesFunction)(void); @@ -1430,14 +1393,14 @@ { genPushLiteralVariableBytecode, 0, needsFrameNever, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, { genPushLiteralVariableBytecode, 0, needsFrameNever, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, { genPushLiteralVariableBytecode, 0, needsFrameNever, 1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, { genStoreAndPopTemporaryVariableBytecode, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, { genStoreAndPopTemporaryVariableBytecode, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, { genStoreAndPopTemporaryVariableBytecode, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, @@ -1766,14 +1729,14 @@ { genSendAbsentImplicit0ArgsBytecode, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1 }, { genSendAbsentImplicit0ArgsBytecode, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1 }, { genSendAbsentImplicit0ArgsBytecode, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, - { genStoreAndPopReceiverVariableBytecode, 0, needsFrameNever, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, + { genStoreAndPopReceiverVariableBytecode, 0, needsFrameIfImmutability, -1, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0 }, { genStoreAndPopTemporaryVariableBytecode, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, { genStoreAndPopTemporaryVariableBytecode, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, { genStoreAndPopTemporaryVariableBytecode, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0 }, @@ -2098,7 +2061,7 @@ { sqInt cResultReg; - cResultReg = cResultRegister(self_in_genWriteCResultIntoReg); + cResultReg = R0; if (abstractRegister != cResultReg) { genoperandoperand(MoveRR, cResultReg, abstractRegister); } @@ -2191,14 +2154,7 @@ return ((((self_in_isJump->opcode)) >= FirstJump) && (((self_in_isJump->opcode)) <= LastJump)); } - /* CogAbstractInstruction>>#isLongJump */ -static sqInt NoDbgRegParms -isLongJump(AbstractInstruction * self_in_isLongJump) -{ - return ((((self_in_isLongJump->opcode)) >= FirstJump) && (((self_in_isLongJump->opcode)) <= (FirstShortJump - 1))); -} - /* Answer if an address can be accessed using the offset in a MoveMw:r:R: or similar instruction. We assume this is true for 32-bit processors and expect 64-bit processors @@ -2329,54 +2285,7 @@ return ((self_in_setLabelOffset->operands))[1] = aValue; } - /* CogARMCompiler>>#abstractRegisterForConcreteRegister: */ -static sqInt NoDbgRegParms -abstractRegisterForConcreteRegister(AbstractInstruction * self_in_abstractRegisterForConcreteRegister, sqInt reg) -{ - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, TempReg)) == reg) { - return TempReg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, ReceiverResultReg)) == reg) { - return ReceiverResultReg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, ClassReg)) == reg) { - return ClassReg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, SendNumArgsReg)) == reg) { - return SendNumArgsReg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, Arg0Reg)) == reg) { - return Arg0Reg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, Arg1Reg)) == reg) { - return Arg1Reg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, FPReg)) == reg) { - return FPReg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, SPReg)) == reg) { - return SPReg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, LinkReg)) == reg) { - return LinkReg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, RISCTempReg)) == reg) { - return RISCTempReg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, PCReg)) == reg) { - return PCReg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, VarBaseReg)) == reg) { - return VarBaseReg; - } - if ((concreteRegister(self_in_abstractRegisterForConcreteRegister, Scratch0Reg)) == reg) { - return Scratch0Reg; - } - error("could not find abstract register"); - return 0; -} - /* Remember the ROR is doubled by the cpu so use 30>>1 etc ADDS destReg, srcREg, #immediate ROR #rot */ @@ -2509,7 +2418,7 @@ static sqInt NoDbgRegParms callerSavedRegisterMask(AbstractInstruction * self_in_callerSavedRegisterMask) { - return registerMaskForand(abstractRegisterForConcreteRegister(self_in_callerSavedRegisterMask, 0), abstractRegisterForConcreteRegister(self_in_callerSavedRegisterMask, 12)); + return registerMaskForand(0, 12); } @@ -2853,117 +2762,6 @@ } -/* Map a possibly abstract double-precision floating-point register into a - concrete one. - Abstract registers (defined in CogAbstractOpcodes) are all negative. If - registerIndex is negative assume it is an abstract register. */ - - /* CogARMCompiler>>#concreteDPFPRegister: */ -static sqInt NoDbgRegParms -concreteDPFPRegister(AbstractInstruction * self_in_concreteDPFPRegister, sqInt registerIndex) -{ - - switch (registerIndex) { - case DPFPReg0: - return D0; - - case DPFPReg1: - return D1; - - case DPFPReg2: - return D2; - - case DPFPReg3: - return D3; - - case DPFPReg4: - return D4; - - case DPFPReg5: - return D5; - - case DPFPReg6: - return D6; - - case DPFPReg7: - return D7; - - default: - assert(((registerIndex >= D0) && (registerIndex <= D7))); - return registerIndex; - - } -} - - -/* Map a possibly abstract register into a concrete one. Abstract registers - (defined in CogAbstractOpcodes) are all negative. If registerIndex is - negative assume it is an abstract register. */ -/* N.B. According to BSABI, R0-R3 are caller-save, R4-R12 are callee save. - Note that R9 might be a special register for the implementation. In some - slides it is refered to as sb. R10 can contain the stack limit (sl), R11 - the fp. R12 is an - intra-procedure scratch instruction pointer for link purposes. It can also - be used. - R10 is used as temporary inside a single abstract opcode implementation */ -/* R0-R3 are used when calling back to the interpreter. Using them would - require saving and restoring their values, so they are omitted so far. R12 - is the only - scratch register at the moment.. */ - - /* CogARMCompiler>>#concreteRegister: */ -static sqInt NoDbgRegParms -concreteRegister(AbstractInstruction * self_in_concreteRegister, sqInt registerIndex) -{ - - switch (registerIndex) { - case TempReg: - return R0; - - case ClassReg: - return R8; - - case ReceiverResultReg: - return R7; - - case SendNumArgsReg: - return R6; - - case SPReg: - return SP; - - case FPReg: - return R11; - - case Arg0Reg: - return R4; - - case Arg1Reg: - return R5; - - case VarBaseReg: - return ConcreteVarBaseReg; - - case RISCTempReg: - return ConcreteIPReg; - - case Scratch0Reg: - return R12; - - case LinkReg: - return LR; - - case PCReg: - return PC; - - default: - assert(((registerIndex >= R0) && (registerIndex <= PC))); - return registerIndex; - - } -} - - /* Generate concrete machine code for the instruction at actualAddress, setting machineCodeSize, and answer the following address. */ /* Generate concrete machine code for the instruction at actualAddress, @@ -2990,13 +2788,15 @@ static usqInt NoDbgRegParms concretizeCMPSMULL(AbstractInstruction * self_in_concretizeCMPSMULL) { - sqInt hiReg; - sqInt loReg; + sqInt aWord; + unsigned long hiReg; + unsigned long loReg; - hiReg = concreteRegister(self_in_concretizeCMPSMULL, ((self_in_concretizeCMPSMULL->operands))[0]); - loReg = concreteRegister(self_in_concretizeCMPSMULL, ((self_in_concretizeCMPSMULL->operands))[1]); + hiReg = ((self_in_concretizeCMPSMULL->operands))[0]; + loReg = ((self_in_concretizeCMPSMULL->operands))[1]; /* begin machineCodeAt:put: */ - ((self_in_concretizeCMPSMULL->machineCode))[0 / 4] = ((((((AL << 28) | ((0 << 25) | ((CmpOpcode << 21) | (1 << 20)))) | ((hiReg << 16) | (0 << 12))) + (0x1F << 7)) + (2 << 5)) + loReg); + aWord = (((((AL << 28) | ((0 << 25) | ((CmpOpcode << 21) | (1 << 20)))) | ((hiReg << 16) | (0 << 12))) + (0x1F << 7)) + (2 << 5)) + loReg; + ((self_in_concretizeCMPSMULL->machineCode))[0 / 4] = aWord; return ((self_in_concretizeCMPSMULL->machineCodeSize) = 4); } @@ -3056,9 +2856,9 @@ concretizeMSR(AbstractInstruction * self_in_concretizeMSR) { sqInt aWord; - sqInt flags; + unsigned long flags; - flags = concreteRegister(self_in_concretizeMSR, ((self_in_concretizeMSR->operands))[0]); + flags = ((self_in_concretizeMSR->operands))[0]; /* begin machineCodeAt:put: */ aWord = msr(self_in_concretizeMSR, flags); ((self_in_concretizeMSR->machineCode))[0 / 4] = aWord; @@ -3072,18 +2872,20 @@ static usqInt NoDbgRegParms concretizeSMULL(AbstractInstruction * self_in_concretizeSMULL) { + sqInt aWord; sqInt hiResultReg; sqInt loResultReg; - sqInt srcA; - sqInt srcB; + unsigned long srcA; + unsigned long srcB; /* NOTE: srcB contains the other mutiplicand at this point. It is OK to use it as the destination for the low part of the result and in fact this saves us moving it later */ - srcA = concreteRegister(self_in_concretizeSMULL, ((self_in_concretizeSMULL->operands))[0]); - loResultReg = (srcB = concreteRegister(self_in_concretizeSMULL, ((self_in_concretizeSMULL->operands))[1])); - hiResultReg = concreteRegister(self_in_concretizeSMULL, RISCTempReg); + srcA = ((self_in_concretizeSMULL->operands))[0]; + loResultReg = (srcB = ((self_in_concretizeSMULL->operands))[1]); + hiResultReg = RISCTempReg; /* begin machineCodeAt:put: */ - ((self_in_concretizeSMULL->machineCode))[0 / 4] = ((((((AL << 28) | ((0 << 25) | ((6 << 21) | (0 << 20)))) | ((hiResultReg << 16) | (loResultReg << 12))) + (srcA << 8)) + (9 << 4)) + srcB); + aWord = (((((AL << 28) | ((0 << 25) | ((6 << 21) | (0 << 20)))) | ((hiResultReg << 16) | (loResultReg << 12))) + (srcA << 8)) + (9 << 4)) + srcB; + ((self_in_concretizeSMULL->machineCode))[0 / 4] = aWord; return ((self_in_concretizeSMULL->machineCodeSize) = 4); } @@ -3100,18 +2902,6 @@ } -/* Answer the abstract register for the C result register. - Only partially implemented. Works on x86 since TempReg = EAX = C result - reg. */ - - /* CogARMCompiler>>#cResultRegister */ -static sqInt NoDbgRegParms -cResultRegister(AbstractInstruction * self_in_cResultRegister) -{ - return R0; -} - - /* return an {opcode} destReg, srcReg, addReg lsl #shft */ /* important detail - a 0 shft requires setting the shift-type code to 0 to avoid potential instruction confusion @@ -3229,15 +3019,28 @@ sqInt aWord65; sqInt aWord66; sqInt aWord67; + sqInt aWord68; + sqInt aWord69; sqInt aWord7; + sqInt aWord70; + sqInt aWord71; + sqInt aWord72; + sqInt aWord73; + sqInt aWord74; + sqInt aWord75; + sqInt aWord76; + sqInt aWord77; + sqInt aWord78; + sqInt aWord79; sqInt aWord8; + sqInt aWord80; sqInt aWord9; - sqInt base; - sqInt base1; - sqInt base2; - sqInt base3; - sqInt baseReg; - sqInt baseReg1; + unsigned long base; + unsigned long base1; + unsigned long base2; + unsigned long base3; + unsigned long baseReg; + unsigned long baseReg1; usqInt constant; usqInt constant1; unsigned long constant10; @@ -3254,31 +3057,31 @@ unsigned long constant8; unsigned long constant9; AbstractInstruction *dependentChain; - sqInt dest; - sqInt dest1; + unsigned long dest; + unsigned long dest1; unsigned long destAddr; unsigned long destAddr1; - sqInt destReg; - sqInt destReg1; - sqInt destReg10; - sqInt destReg11; - sqInt destReg12; - sqInt destReg2; - sqInt destReg3; - sqInt destReg4; - sqInt destReg5; - sqInt destReg6; - sqInt destReg7; - sqInt destReg8; - sqInt destReg9; + unsigned long destReg; + unsigned long destReg1; + unsigned long destReg10; + unsigned long destReg11; + unsigned long destReg12; + unsigned long destReg2; + unsigned long destReg3; + unsigned long destReg4; + unsigned long destReg5; + unsigned long destReg6; + unsigned long destReg7; + unsigned long destReg8; + unsigned long destReg9; sqInt distance; sqInt distance1; sqInt distance2; - sqInt distReg; - sqInt distReg1; - sqInt distReg2; - sqInt dstReg; - sqInt dstReg1; + unsigned long distReg; + unsigned long distReg1; + unsigned long distReg2; + unsigned long dstReg; + unsigned long dstReg1; sqInt flagsOrOpcode; sqInt flagsOrOpcode1; sqInt flagsOrOpcode2; @@ -3287,7 +3090,7 @@ sqInt flagsOrOpcode5; sqInt flagsOrOpcode6; sqInt flagsOrOpcode7; - sqInt fpReg; + unsigned long fpReg; sqInt hb; sqInt hb1; sqInt hb2; @@ -3332,39 +3135,39 @@ sqInt immediate7; sqInt immediate8; sqInt immediate9; - sqInt index; - sqInt index1; - sqInt index2; - sqInt index3; + unsigned long index; + unsigned long index1; + unsigned long index2; + unsigned long index3; usqInt instrOffset; - sqInt instrOffset1; - sqInt instrOffset10; - sqInt instrOffset11; - sqInt instrOffset12; - sqInt instrOffset13; - sqInt instrOffset14; - sqInt instrOffset15; - sqInt instrOffset16; - sqInt instrOffset17; - sqInt instrOffset18; + usqInt instrOffset1; + usqInt instrOffset10; + usqInt instrOffset11; + usqInt instrOffset12; + usqInt instrOffset13; + usqInt instrOffset14; + usqInt instrOffset15; + usqInt instrOffset16; + usqInt instrOffset17; + usqInt instrOffset18; usqInt instrOffset19; - sqInt instrOffset2; - sqInt instrOffset20; - sqInt instrOffset21; + usqInt instrOffset2; + usqInt instrOffset20; + usqInt instrOffset21; usqInt instrOffset22; usqInt instrOffset23; - sqInt instrOffset24; - sqInt instrOffset25; - sqInt instrOffset26; - sqInt instrOffset27; - sqInt instrOffset28; + usqInt instrOffset24; + usqInt instrOffset25; + usqInt instrOffset26; + usqInt instrOffset27; + usqInt instrOffset28; usqInt instrOffset3; - sqInt instrOffset4; + usqInt instrOffset4; sqInt instrOffset5; - sqInt instrOffset6; - sqInt instrOffset7; - sqInt instrOffset8; - sqInt instrOffset9; + usqInt instrOffset6; + usqInt instrOffset7; + usqInt instrOffset8; + usqInt instrOffset9; sqInt invert; sqInt invert1; sqInt invert2; @@ -3457,77 +3260,77 @@ sqInt offset8; sqInt offset9; sqInt p; - sqInt rd; - sqInt rd1; - sqInt rd10; - sqInt rd11; - sqInt rd12; - sqInt rd13; - sqInt rd14; - sqInt rd15; - sqInt rd16; - sqInt rd17; - sqInt rd18; - sqInt rd19; - sqInt rd2; - sqInt rd20; - sqInt rd21; - sqInt rd22; - sqInt rd23; - sqInt rd24; - sqInt rd3; - sqInt rd4; - sqInt rd5; - sqInt rd6; - sqInt rd7; - sqInt rd8; - sqInt rd9; - sqInt reg; - sqInt reg1; - sqInt reg2; - sqInt reg3; - sqInt reg4; - sqInt reg5; - sqInt reg6; - sqInt reg7; - sqInt regA; - sqInt regB; - sqInt regLHS; - sqInt regLHS1; - sqInt regLHS2; - sqInt regLHS3; - sqInt regLHS4; - sqInt regRHS; - sqInt regRHS1; - sqInt regRHS2; - sqInt regRHS3; - sqInt rn; - sqInt rn1; - sqInt rn10; - sqInt rn11; - sqInt rn12; - sqInt rn13; - sqInt rn14; - sqInt rn15; - sqInt rn16; - sqInt rn17; - sqInt rn18; - sqInt rn19; - sqInt rn2; - sqInt rn20; - sqInt rn21; - sqInt rn22; - sqInt rn23; - sqInt rn24; - sqInt rn25; - sqInt rn26; - sqInt rn3; - sqInt rn4; - sqInt rn5; - sqInt rn6; - sqInt rn7; - sqInt rn8; - sqInt rn9; + unsigned long rd; + unsigned long rd1; + unsigned long rd10; + unsigned long rd11; + unsigned long rd12; + unsigned long rd13; + unsigned long rd14; + unsigned long rd15; + unsigned long rd16; + unsigned long rd17; + unsigned long rd18; + unsigned long rd19; + unsigned long rd2; + unsigned long rd20; + unsigned long rd21; + unsigned long rd22; + unsigned long rd23; + unsigned long rd24; + unsigned long rd3; + unsigned long rd4; + unsigned long rd5; + unsigned long rd6; + unsigned long rd7; + unsigned long rd8; + unsigned long rd9; + unsigned long reg; + unsigned long reg1; + unsigned long reg2; + unsigned long reg3; + unsigned long reg4; + unsigned long reg5; + unsigned long reg6; + unsigned long reg7; + unsigned long regA; + unsigned long regB; + unsigned long regLHS; + unsigned long regLHS1; + unsigned long regLHS2; + unsigned long regLHS3; + unsigned long regLHS4; + unsigned long regRHS; + unsigned long regRHS1; + unsigned long regRHS2; + unsigned long regRHS3; + unsigned long rn; + unsigned long rn1; + unsigned long rn10; + unsigned long rn11; + unsigned long rn12; + unsigned long rn13; + unsigned long rn14; + unsigned long rn15; + unsigned long rn16; + unsigned long rn17; + unsigned long rn18; + unsigned long rn19; + unsigned long rn2; + unsigned long rn20; + unsigned long rn21; + unsigned long rn22; + unsigned long rn23; + unsigned long rn24; + unsigned long rn25; + unsigned long rn26; + unsigned long rn3; + unsigned long rn4; + unsigned long rn5; + unsigned long rn6; + unsigned long rn7; + unsigned long rn8; + unsigned long rn9; sqInt rot; sqInt rot1; sqInt rot10; @@ -3542,29 +3345,29 @@ sqInt rot7; sqInt rot8; sqInt rot9; - sqInt src; - sqInt src1; + unsigned long src; + unsigned long src1; unsigned long srcAddr; unsigned long srcAddr1; - sqInt srcReg; - sqInt srcReg1; - sqInt srcReg10; - sqInt srcReg11; - sqInt srcReg12; - sqInt srcReg13; - sqInt srcReg14; - sqInt srcReg15; - sqInt srcReg16; - sqInt srcReg17; - sqInt srcReg18; - sqInt srcReg2; - sqInt srcReg3; - sqInt srcReg4; - sqInt srcReg5; - sqInt srcReg6; - sqInt srcReg7; - sqInt srcReg8; - sqInt srcReg9; + unsigned long srcReg; + unsigned long srcReg1; + unsigned long srcReg10; + unsigned long srcReg11; + unsigned long srcReg12; + unsigned long srcReg13; + unsigned long srcReg14; + unsigned long srcReg15; + unsigned long srcReg16; + unsigned long srcReg17; + unsigned long srcReg18; + unsigned long srcReg2; + unsigned long srcReg3; + unsigned long srcReg4; + unsigned long srcReg5; + unsigned long srcReg6; + unsigned long srcReg7; + unsigned long srcReg8; + unsigned long srcReg9; sqInt u; sqInt u1; sqInt u2; @@ -3658,11 +3461,11 @@ assert(addressIsInCurrentCompilation((((self_in_dispatchConcretize->dependent))->address))); assert((abs(((((self_in_dispatchConcretize->dependent))->address)) - (((self_in_dispatchConcretize->address)) + 8))) < (1 << 12)); /* begin machineCodeAt:put: */ - aWord42 = ldrrnplusimm(self_in_dispatchConcretize, ConcreteIPReg, PC, (((((self_in_dispatchConcretize->dependent))->address)) >= (((self_in_dispatchConcretize->address)) + 8) + aWord43 = ldrrnplusimm(self_in_dispatchConcretize, ConcreteIPReg, PC, (((((self_in_dispatchConcretize->dependent))->address)) >= (((self_in_dispatchConcretize->address)) + 8) ? 1 @@ Diff output truncated at 50000 characters. @@

1 0

Re: [Pharo-dev] problem with become:?
by Eliot Miranda 09 Jan '16

09 Jan '16

Hi Doru, On Fri, Jan 8, 2016 at 12:02 PM, Tudor Girba <tudor(a)tudorgirba.com> wrote: > Hi, > > If I execute the following code in the latest Pharo image: > > Object subclass: #A > instanceVariableNames: '' > classVariableNames: '' > package: 'AA'. > Object subclass: #B > instanceVariableNames: '' > classVariableNames: '' > package: 'AA'. > a := A new. > b := B new. > a become: b. > a class > > ==> “A". > > In a pre-Spur image, I used to get “B”. Is this a bug, or is there a > change I am not aware of? > > Cheers, > Doru > Looks like a bug to me. I'll fix it asap. > > > -- > www.tudorgirba.com > www.feenk.com > > "Things happen when they happen, > not when you talk about them happening." > > > -- _,,,^..^,,,_ best, Eliot

4 6

VM Maker: VMMaker.oscog-eem.1623.mcz
by commits＠source.squeak.org 09 Jan '16

09 Jan '16

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.1623.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.1623 Author: eem Time: 8 January 2016, 10:56:32.739189 pm UUID: 796c33c7-b025-4e0c-bd4e-1d3fa3d71f22 Ancestors: VMMaker.oscog-eem.1622 Fix a bug with out-of-place two-way become, which got the hash copy the wrong way round. By default, the hash stays with the reference in two-way become. Fix what appears to be a compiler bug with in-place two-way-become by treating the headers to be swapped so that remembered flags are swapped and hash bits are swapped if required. =============== Diff against VMMaker.oscog-eem.1622 =============== Item was removed: - ----- Method: Spur64BitMemoryManager>>identityHashFullWordMask (in category 'header access') ----- - identityHashFullWordMask - ^16r3fffff00000000! Item was added: + ----- Method: SpurMemoryManager>>cleverSwapHeaders:and:copyHashFlag: (in category 'become implementation') ----- + cleverSwapHeaders: obj1 and: obj2 copyHashFlag: copyHashFlag + "swap headers, but swapping headers swaps remembered bits and hashes; + remembered bits must be unswapped and hashes may be unswapped if + copyHash is false." + "This variant doesn't tickle a compiler bug in gcc and clang. See naiveSwapHeaders:and:copyHashFlag:" + <inline: true> + | header1 header2 remembered1 remembered2 | + header1 := self long64At: obj1. + header2 := self long64At: obj2. + remembered1 := header1 bitAnd: 1 << self rememberedBitShift. + remembered2 := header2 bitAnd: 1 << self rememberedBitShift. + remembered1 ~= remembered2 ifTrue: + [header1 := header1 - remembered1 + remembered2. + header2 := header2 - remembered2 + remembered1]. + "swapping headers swaps hash; if not copyHashFlag then unswap hash" + copyHashFlag ifFalse: + [| hash1 hash2 | + hash1 := header1 bitAnd: self identityHashFullWordMask. + hash2 := header2 bitAnd: self identityHashFullWordMask. + hash1 ~= hash2 ifTrue: + [header1 := header1 - hash1 + hash2. + header2 := header2 - hash2 + hash1]]. + self long64At: obj1 put: header2. + self long64At: obj2 put: header1! Item was added: + ----- Method: SpurMemoryManager>>identityHashFullWordMask (in category 'header access') ----- + identityHashFullWordMask + ^16r3fffff00000000! Item was changed: ----- Method: SpurMemoryManager>>inPlaceBecome:and:copyHashFlag: (in category 'become implementation') ----- inPlaceBecome: obj1 and: obj2 copyHashFlag: copyHashFlag + <inline: #never> "in an effort to fix a compiler bug with two-way become post r3427" "Do become in place by swapping object contents." + | o1HasYoung o2HasYoung fmt | - | headerTemp temp1 temp2 o1HasYoung o2HasYoung fmt | self assert: (self numSlotsOf: obj1) = (self numSlotsOf: obj2). self assert: ((self rawHashBitsOf: obj1) = 0 or: [(self classOrNilAtIndex: (self rawHashBitsOf: obj1)) ~= obj1]). self assert: ((self rawHashBitsOf: obj2) = 0 or: [(self classOrNilAtIndex: (self rawHashBitsOf: obj2)) ~= obj2]). + "swap headers, but swapping headers swaps remembered bits and hashes; + remembered bits must be unswapped and hashes may be unswapped if + copyHash is false." + false + ifTrue: [self naiveSwapHeaders: obj1 and: obj2 copyHashFlag: copyHashFlag] + ifFalse: [self cleverSwapHeaders: obj1 and: obj2 copyHashFlag: copyHashFlag]. - "swap headers, but swapping headers swaps remembered bits; - these need to be unswapped." - temp1 := self isRemembered: obj1. - temp2 := self isRemembered: obj2. - headerTemp := self long64At: obj1. - self long64At: obj1 put: (self long64At: obj2). - self long64At: obj2 put: headerTemp. - self setIsRememberedOf: obj1 to: temp1. - self setIsRememberedOf: obj2 to: temp2. - "swapping headers swaps hash; if !!copyHashFlag undo hash copy" - copyHashFlag ifFalse: - [temp1 := self rawHashBitsOf: obj1. - self setHashBitsOf: obj1 to: (self rawHashBitsOf: obj2). - self setHashBitsOf: obj2 to: temp1]. o1HasYoung := o2HasYoung := false. 0 to: (self numSlotsOf: obj1) - 1 do: + [:i| | temp1 temp2 | - [:i| temp1 := self fetchPointer: i ofObject: obj1. temp2 := self fetchPointer: i ofObject: obj2. + self storePointerUnchecked: i ofObject: obj1 withValue: temp2. + self storePointerUnchecked: i ofObject: obj2 withValue: temp1. - self storePointerUnchecked: i - ofObject: obj1 - withValue: temp2. - self storePointerUnchecked: i - ofObject: obj2 - withValue: temp1. (self isYoung: temp2) ifTrue: [o1HasYoung := true]. (self isYoung: temp1) ifTrue: [o2HasYoung := true]]. + (o1HasYoung and: [self isOldObject: obj1]) ifTrue: - (self isOldObject: obj1) ifTrue: [fmt := self formatOf: obj1. + (self isPureBitsFormat: fmt) ifFalse: - (o1HasYoung and: [(self isPureBitsFormat: fmt) not]) ifTrue: [self possibleRootStoreInto: obj1]]. + (o2HasYoung and: [self isOldObject: obj2]) ifTrue: - (self isOldObject: obj2) ifTrue: [fmt := self formatOf: obj2. + (self isPureBitsFormat: fmt) ifFalse: - (o2HasYoung and: [(self isPureBitsFormat: fmt) not]) ifTrue: [self possibleRootStoreInto: obj2]]! Item was added: + ----- Method: SpurMemoryManager>>naiveSwapHeaders:and:copyHashFlag: (in category 'become implementation') ----- + naiveSwapHeaders: obj1 and: obj2 copyHashFlag: copyHashFlag + "swap headers, but swapping headers swaps remembered bits and hashes; + remembered bits must be unswapped and hashes may be unswapped if + copyHash is false." + "This variant tickles a compiler bug in gcc and clang. See cleverSwapHeaders:and:copyHashFlag:" + <inline: true> + | headerTemp remembered1 remembered2 hashTemp | + remembered1 := self isRemembered: obj1. + remembered2 := self isRemembered: obj2. + headerTemp := self long64At: obj1. + self long64At: obj1 put: (self long64At: obj2). + self long64At: obj2 put: headerTemp. + self setIsRememberedOf: obj1 to: remembered1. + self setIsRememberedOf: obj2 to: remembered2. + "swapping headers swaps hash; if !!copyHashFlag undo hash copy" + copyHashFlag ifFalse: + [hashTemp := self rawHashBitsOf: obj1. + self setHashBitsOf: obj1 to: (self rawHashBitsOf: obj2). + self setHashBitsOf: obj2 to: hashTemp]! Item was changed: ----- Method: SpurMemoryManager>>outOfPlaceBecome:and:copyHashFlag: (in category 'become implementation') ----- outOfPlaceBecome: obj1 and: obj2 copyHashFlag: copyHashFlag + <inline: #never> "in an effort to fix a compiler bug with two-way become post r3427" "Allocate two new objects, n1 & n2. Copy the contents appropriately. Convert obj1 and obj2 into forwarding objects pointing to n2 and n1 respectively" | clone1 clone2 | clone1 := (self isContextNonImm: obj1) ifTrue: [coInterpreter cloneContext: obj1] ifFalse: [self clone: obj1]. clone2 := (self isContextNonImm: obj2) ifTrue: [coInterpreter cloneContext: obj2] ifFalse: [self clone: obj2]. copyHashFlag ifTrue: - [self setHashBitsOf: clone1 to: (self rawHashBitsOf: obj2). - self setHashBitsOf: clone2 to: (self rawHashBitsOf: obj1)] - ifFalse: [self setHashBitsOf: clone1 to: (self rawHashBitsOf: obj1). + self setHashBitsOf: clone2 to: (self rawHashBitsOf: obj2)] + ifFalse: + [self setHashBitsOf: clone1 to: (self rawHashBitsOf: obj2). + self setHashBitsOf: clone2 to: (self rawHashBitsOf: obj1)]. - self setHashBitsOf: clone2 to: (self rawHashBitsOf: obj2)]. self forward: obj1 to: clone2; forward: obj2 to: clone1. ((self isYoungObject: obj1) ~= (self isYoungObject: clone2) or: [(self isYoungObject: obj2) ~= (self isYoungObject: clone1)]) ifTrue: [becomeEffectsFlags := becomeEffectsFlags bitOr: OldBecameNewFlag]!

1 0

VM Maker: VMMaker.oscog-eem.1622.mcz
by commits＠source.squeak.org 09 Jan '16

09 Jan '16

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.1622.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.1622 Author: eem Time: 8 January 2016, 5:26:15.890666 pm UUID: aa713001-52dc-4142-b483-57dd0339e464 Ancestors: VMMaker.oscog-eem.1621 StackInterpreter & IMMUTABILITY: Doh! currentBytecode is only inlined in methods marked with <expandCases> so storeAndPopReceiverVariableBytecode needs to grab currentBytecode before fetchNextBytecode in C also. =============== Diff against VMMaker.oscog-eem.1621 =============== Item was changed: ----- Method: StackInterpreter>>storeAndPopReceiverVariableBytecode (in category 'stack bytecodes') ----- storeAndPopReceiverVariableBytecode + | rcvr top instVarIndex | - | rcvr top | rcvr := self receiver. top := self internalStackTop. + instVarIndex := currentBytecode bitAnd: 7. self internalPop: 1. + self fetchNextBytecode. + objectMemory + storePointerImmutabilityCheck: instVarIndex + ofObject: rcvr + withValue: top! - self - cCode: "Slang will inline currentBytecode to a constant so this will work in C" - [self fetchNextBytecode. - objectMemory - storePointerImmutabilityCheck: (currentBytecode bitAnd: 7) - ofObject: rcvr - withValue: top] - inSmalltalk: "But in Smalltalk we must use the currentBytecode's value, not the next. - We cant use the following code when generating C code as slang - won't inline currentBytecode correctly due to the extra temp." - [ | instVarIndex | - instVarIndex := currentBytecode bitAnd: 7. - self fetchNextBytecode. - objectMemory - storePointerImmutabilityCheck: instVarIndex - ofObject: rcvr - withValue: top]!

1 0

VM Maker: VMMaker.oscog-eem.1621.mcz
by commits＠source.squeak.org 09 Jan '16

09 Jan '16

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.1621.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.1621 Author: eem Time: 8 January 2016, 4:13:32.748993 pm UUID: 45817ea7-f2d1-4538-bfe4-c748be944bf2 Ancestors: VMMaker.oscog-eem.1620 Cogit: Fix translation changes needed for last commit. =============== Diff against VMMaker.oscog-eem.1620 =============== Item was changed: ----- Method: CCodeGenerator>>emitCConstants:on: (in category 'C code generator') ----- emitCConstants: constList on: aStream "Store the global variable declarations on the given stream." constList isEmpty ifTrue: [^self]. aStream cr; nextPutAll: '/*** Constants ***/'; cr. (self sortStrings: constList) do: [:varName| | node default value | node := constants at: varName. node name isEmpty ifFalse: ["If the definition includes a C comment, take it as is, otherwise convert the value from Smalltalk to C. Allow the class to provide an alternative definition, either of just the value or the whole shebang." default := (node value isString and: [node value includesSubString: '/*']) ifTrue: [node value] ifFalse: [self cLiteralFor: node value name: varName]. + default = #undefined + ifTrue: [aStream nextPutAll: '#undef '; nextPutAll: node name; cr] + ifFalse: + [value := vmClass + ifNotNil: + [(vmClass specialValueForConstant: node name default: default) + ifNotNil: [:specialDef| specialDef] + ifNil: [default]] + ifNil: [default]. + value first ~= $# ifTrue: + [aStream nextPutAll: '#define '; nextPutAll: node name; space]. + aStream nextPutAll: value; cr]]]. - value := vmClass - ifNotNil: - [(vmClass specialValueForConstant: node name default: default) - ifNotNil: [:specialDef| specialDef] - ifNil: [default]] - ifNil: [default]. - value first ~= $# ifTrue: - [aStream nextPutAll: '#define '; nextPutAll: node name; space]. - aStream nextPutAll: value; cr]]. aStream cr! Item was changed: VMStructType subclass: #CogPrimitiveDescriptor + instanceVariableNames: 'primitiveGenerator primNumArgs' - instanceVariableNames: 'primitiveGenerator primNumArgs enabled' classVariableNames: '' poolDictionaries: '' category: 'VMMaker-JIT'! Item was changed: ----- Method: Cogit class>>tableFunctions (in category 'translation') ----- tableFunctions "self tableFunctions" self cogitClass ~= self ifTrue: [^Set new]. generatorTable ifNil: [^Set new]. ^Set new addAll: (generatorTable object collect: [:ea| ea generator]); addAll: (generatorTable object select: [:ea| ea spanFunction notNil] thenCollect: [:ea| ea spanFunction]); addAll: (generatorTable object select: [:ea| ea needsFrameFunction notNil] thenCollect: [:ea| ea needsFrameFunction]); addAll: (primitiveTable object select: [:ea| ea notNil and: [ea primitiveGenerator notNil]] thenCollect: [:ea| ea primitiveGenerator]); - addAll: (primitiveTable object - select: [:ea| ea notNil and: [ea enabled notNil]] - thenCollect: [:ea| ea enabled]); asSortedCollection: [:a :b| a caseInsensitiveLessOrEqual: b]! Item was changed: ----- Method: SimpleStackBasedCogit class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator + aCCodeGenerator vmClass primitiveTable ifNotNil: - aCCodeGenerator vmClass primitiveGeneratorTable ifNotNil: [:bytecodeGenTable| aCCodeGenerator var: #primitiveGeneratorTable declareC: 'static PrimitiveDescriptor primitiveGeneratorTable[MaxCompiledPrimitiveIndex+1]', (self tableInitializerFor: aCCodeGenerator vmClass primitiveTable in: aCCodeGenerator)]. aCCodeGenerator var: #externalPrimCallOffsets declareC: 'sqInt externalPrimCallOffsets[MaxNumArgs + 1]'; var: #externalPrimJumpOffsets declareC: 'sqInt externalPrimJumpOffsets[MaxNumArgs + 1]'; var: #externalSetPrimOffsets declareC: 'sqInt externalSetPrimOffsets[MaxNumArgs + 1]'; var: #primSetFunctionLabel type: #'AbstractInstruction *'; var: #primInvokeInstruction type: #'AbstractInstruction *'!

1 0

VM Maker: VMMaker.oscog-eem.1620.mcz
by commits＠source.squeak.org 09 Jan '16

09 Jan '16

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.1620.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.1620 Author: eem Time: 7 January 2016, 3:03:10.883236 pm UUID: 2b2d0809-32ab-49a2-887e-a61d1efb2c17 Ancestors: VMMaker.oscog-cb.1619 Cogit: Refactor primitive generation so that all primitives reside in CogObjectRepresentation and subclasses, except for genPrimitiveClosureValue and genPrimitivePerform. This eliminates the outer/inner distinction and the need for a separate compileFallbackToInterpreterPrimitive:. It aklso eliminates the difference between SimpleStackBasedCogit and StackToRegisterMappingCogit versions, having the object representation ask the cogits to load args into registers as required, and hence StackToRegisterMappingCogit>>#genLoadArgAtDepth:into: is now a no-op instead of an error. Eliminate the enabled function from a CogPrimitiveDescriptor, adding the enablement calls to the relevant primitives, and discarding the unused primitiveIndex arguments. Handle optional floating-point (i.e. the current MIPSEL) by adding <option: #DPFPReg0> to all floating point routines (except 64-bit Spur, which currently insists, but this could change) and modifying Slang to not output these methods (but the C generation hans not been tested yet; very soon...). Status: The simulator works. I will test generation of cogitMIPSEL.c very soon, but want to commit this now rather than continue to sit on it. =============== Diff against VMMaker.oscog-cb.1619 =============== Item was changed: ----- Method: CogMIPSELCompiler class>>initializeAbstractRegisters (in category 'class initialization') ----- initializeAbstractRegisters "Assign the abstract registers with the identities/indices of the relevant concrete registers." "See MIPSConstants>>initializeRegisters for a description of the C ABI." "Note we can fit all of the abstract registers in C preserved registers, and not need to save or restore them at runtime calls." super initializeAbstractRegisters. ReceiverResultReg := S0. Arg0Reg := S1. Arg1Reg := S2. ClassReg := S3. SendNumArgsReg := S4. TempReg := S5. VarBaseReg := S6. "Must be callee saved" SPReg := SP. FPReg := FP. RISCTempReg := AT. LinkReg := RA. self flag: #todo. + "Scratch0Reg := ??. + Scratch1Reg := ??. + Scratch2Reg := ??. + Scratch3Reg := ??. + Scratch4Reg := ??. + Scratch5Reg := ??. + Scratch6Reg := ??. + Scratch7Reg := ??." - Scratch0Reg := NoReg. - Scratch1Reg := NoReg. - Scratch2Reg := NoReg. - Scratch3Reg := NoReg. - Scratch4Reg := NoReg. - Scratch5Reg := NoReg. - Scratch6Reg := NoReg. - Scratch7Reg := NoReg. self flag: #todo. + "DPFPReg0 := ??. + DPFPReg1 := ??. + DPFPReg2 := ??. + DPFPReg3 := ??. + DPFPReg4 := ??. + DPFPReg5 := ??. + DPFPReg6 := ??. + DPFPReg7 := ??. + DPFPReg8 := ??. + DPFPReg9 := ??. + DPFPReg10 := ??. + DPFPReg11 := ??. + DPFPReg12 := ??. + DPFPReg13 := ??. + DPFPReg14 := ??. + DPFPReg15 := ??"! - DPFPReg0 := NoReg. - DPFPReg1 := NoReg. - DPFPReg2 := NoReg. - DPFPReg3 := NoReg. - DPFPReg4 := NoReg. - DPFPReg5 := NoReg. - DPFPReg6 := NoReg. - DPFPReg7 := NoReg. - DPFPReg8 := NoReg. - DPFPReg9 := NoReg. - DPFPReg10 := NoReg. - DPFPReg11 := NoReg. - DPFPReg12 := NoReg. - DPFPReg13 := NoReg. - DPFPReg14 := NoReg. - DPFPReg15 := NoReg. - - ! Item was added: + ----- Method: CogObjectRepresentation>>genDoubleArithmetic:preOpCheck: (in category 'primitive generators') ----- + genDoubleArithmetic: arithmeticOperator preOpCheck: preOpCheckOrNil + <option: #DPFPReg0> + <var: #preOpCheckOrNil declareC: 'AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)'> + | jumpFailClass jumpFailAlloc jumpFailCheck jumpImmediate jumpNonInt doOp | + <var: #jumpFailClass type: #'AbstractInstruction *'> + <var: #jumpFailAlloc type: #'AbstractInstruction *'> + <var: #jumpImmediate type: #'AbstractInstruction *'> + <var: #jumpNonInt type: #'AbstractInstruction *'> + <var: #jumpFailCheck type: #'AbstractInstruction *'> + <var: #doOp type: #'AbstractInstruction *'> + cogit processorHasDoublePrecisionFloatingPointSupport ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + self genGetDoubleValueOf: ReceiverResultReg into: DPFPReg0. + cogit MoveR: Arg0Reg R: ClassReg. + jumpImmediate := self genJumpImmediate: Arg0Reg. + self genGetCompactClassIndexNonImmOf: Arg0Reg into: SendNumArgsReg. + self genCmpClassFloatCompactIndexR: SendNumArgsReg. + jumpFailClass := cogit JumpNonZero: 0. + self genGetDoubleValueOf: Arg0Reg into: DPFPReg1. + doOp := cogit Label. + preOpCheckOrNil ifNotNil: + [jumpFailCheck := cogit perform: preOpCheckOrNil with: DPFPReg0 with: DPFPReg1]. + cogit gen: arithmeticOperator operand: DPFPReg1 operand: DPFPReg0. + jumpFailAlloc := self + genAllocFloatValue: DPFPReg0 + into: SendNumArgsReg + scratchReg: ClassReg + scratchReg: TempReg. + cogit MoveR: SendNumArgsReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpImmediate jmpTarget: cogit Label. + self maybeGenConvertIfSmallFloatIn: Arg0Reg scratchReg: TempReg into: DPFPReg1 andJumpTo: doOp. + self smallIntegerIsOnlyImmediateType ifFalse: + [jumpNonInt := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg]. + self genConvertSmallIntegerToIntegerInReg: ClassReg. + cogit ConvertR: ClassReg Rd: DPFPReg1. + cogit Jump: doOp. + jumpFailAlloc jmpTarget: (jumpFailClass jmpTarget: cogit Label). + self smallIntegerIsOnlyImmediateType ifFalse: + [jumpNonInt jmpTarget: jumpFailClass getJmpTarget]. + preOpCheckOrNil ifNotNil: + [jumpFailCheck jmpTarget: jumpFailClass getJmpTarget]. + ^0! Item was added: + ----- Method: CogObjectRepresentation>>genDoubleComparison:invert: (in category 'primitive generators') ----- + genDoubleComparison: jumpOpcodeGenerator invert: invertComparison + <option: #DPFPReg0> + <var: #jumpOpcodeGenerator declareC: 'AbstractInstruction *(*jumpOpcodeGenerator)(void *)'> + | jumpFail jumpImmediate jumpNonInt jumpCond compare | + <var: #jumpImmediate type: #'AbstractInstruction *'> + <var: #jumpNonInt type: #'AbstractInstruction *'> + <var: #jumpCond type: #'AbstractInstruction *'> + <var: #compare type: #'AbstractInstruction *'> + <var: #jumpFail type: #'AbstractInstruction *'> + cogit processorHasDoublePrecisionFloatingPointSupport ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + self genGetDoubleValueOf: ReceiverResultReg into: DPFPReg0. + jumpImmediate := self genJumpImmediate: Arg0Reg. + self genGetCompactClassIndexNonImmOf: Arg0Reg into: SendNumArgsReg. + self genCmpClassFloatCompactIndexR: SendNumArgsReg. + jumpFail := cogit JumpNonZero: 0. + self genGetDoubleValueOf: Arg0Reg into: DPFPReg1. + invertComparison "May need to invert for NaNs" + ifTrue: [compare := cogit CmpRd: DPFPReg0 Rd: DPFPReg1] + ifFalse: [compare := cogit CmpRd: DPFPReg1 Rd: DPFPReg0]. + jumpCond := cogit perform: jumpOpcodeGenerator with: 0. "FP jumps are a little weird" + cogit genMoveFalseR: ReceiverResultReg. + cogit genPrimReturn. + jumpCond jmpTarget: (cogit genMoveTrueR: ReceiverResultReg). + cogit genPrimReturn. + jumpImmediate jmpTarget: cogit Label. + self maybeGenConvertIfSmallFloatIn: Arg0Reg scratchReg: TempReg into: DPFPReg1 andJumpTo: compare. + self smallIntegerIsOnlyImmediateType ifFalse: + [jumpNonInt := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg]. + self genConvertSmallIntegerToIntegerInReg: Arg0Reg. + cogit ConvertR: Arg0Reg Rd: DPFPReg1. + cogit Jump: compare. + jumpFail jmpTarget: cogit Label. + self smallIntegerIsOnlyImmediateType ifFalse: + [jumpNonInt jmpTarget: jumpFail getJmpTarget]. + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genFastPrimFail (in category 'primitive generators') ----- + genFastPrimFail + <doNotGenerate> + ^cogit genFastPrimFail! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveAsCharacter:inReg: (in category 'primitive generators') ----- - genInnerPrimitiveAsCharacter: retNOffset inReg: reg - "subclasses override if they can" - ^cogit unimplementedPrimitive! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveAt: (in category 'primitive generators') ----- - genInnerPrimitiveAt: retNoffset - "Implement the guts of primitiveAt" - ^self subclassResponsibility! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveAtPut: (in category 'primitive generators') ----- - genInnerPrimitiveAtPut: retNoffset - "subclasses override if they can" - ^cogit unimplementedPrimitive! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveCharacterValue: (in category 'primitive generators') ----- - genInnerPrimitiveCharacterValue: retNOffset - "subclasses override if they can" - ^cogit unimplementedPrimitive! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveMirrorNew: (in category 'primitive generators') ----- - genInnerPrimitiveMirrorNew: retNoffset - <option: #NewspeakVM> - "subclasses override if they can" - ^cogit unimplementedPrimitive! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveMirrorNewWithArg: (in category 'primitive generators') ----- - genInnerPrimitiveMirrorNewWithArg: retNoffset - <option: #NewspeakVM> - "subclasses override if they can" - ^cogit unimplementedPrimitive! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveNew: (in category 'primitive generators') ----- - genInnerPrimitiveNew: retNoffset - "subclasses override if they can" - ^cogit unimplementedPrimitive! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveNewMethod: (in category 'primitive generators') ----- - genInnerPrimitiveNewMethod: retNoffset - "subclasses override if they can" - ^cogit unimplementedPrimitive! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveNewWithArg: (in category 'primitive generators') ----- - genInnerPrimitiveNewWithArg: retNoffset - "subclasses override if they can" - ^cogit unimplementedPrimitive! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveObjectAt: (in category 'primitive generators') ----- - genInnerPrimitiveObjectAt: retNOffset - "subclasses override if they can" - ^cogit unimplementedPrimitive! Item was removed: - ----- Method: CogObjectRepresentation>>genInnerPrimitiveStringAtPut: (in category 'primitive generators') ----- - genInnerPrimitiveStringAtPut: retNoffset - "subclasses override if they can" - ^cogit unimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveAdd (in category 'primitive generators') ----- + genPrimitiveAdd + | jumpNotSI jumpOvfl | + <var: #jumpNotSI type: #'AbstractInstruction *'> + <var: #jumpOvfl type: #'AbstractInstruction *'> + cogit mclassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + cogit MoveR: Arg0Reg R: ClassReg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + self genRemoveSmallIntegerTagsInScratchReg: ClassReg. + cogit AddR: ReceiverResultReg R: ClassReg. + jumpOvfl := cogit JumpOverflow: 0. + cogit MoveR: ClassReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpOvfl jmpTarget: (jumpNotSI jmpTarget: cogit Label). + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveAsCharacter (in category 'primitive generators') ----- + genPrimitiveAsCharacter + "subclasses override if they can" + ^UnimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveAsFloat (in category 'primitive generators') ----- + genPrimitiveAsFloat + <option: #DPFPReg0> + | jumpFailAlloc | + <var: #jumpFailAlloc type: #'AbstractInstruction *'> + cogit processorHasDoublePrecisionFloatingPointSupport ifFalse: + [^UnimplementedPrimitive]. + cogit MoveR: ReceiverResultReg R: TempReg. + self genConvertSmallIntegerToIntegerInReg: TempReg. + cogit ConvertR: TempReg Rd: DPFPReg0. + jumpFailAlloc := self + genAllocFloatValue: DPFPReg0 + into: SendNumArgsReg + scratchReg: ClassReg + scratchReg: TempReg. + cogit MoveR: SendNumArgsReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpFailAlloc jmpTarget: cogit Label. + ^0! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveAt (in category 'primitive generators') ----- + genPrimitiveAt + "subclasses override if they can" + ^UnimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveAtPut (in category 'primitive generators') ----- + genPrimitiveAtPut + "subclasses override if they can" + ^UnimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveBitAnd (in category 'primitive generators') ----- + genPrimitiveBitAnd + | jumpNotSI | + <var: #jumpNotSI type: #'AbstractInstruction *'> + cogit mclassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + "Whether the SmallInteger tags are zero or non-zero, anding them together will preserve them." + cogit AndR: Arg0Reg R: ReceiverResultReg. + cogit genPrimReturn. + jumpNotSI jmpTarget: cogit Label. + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveBitOr (in category 'primitive generators') ----- + genPrimitiveBitOr + | jumpNotSI | + <var: #jumpNotSI type: #'AbstractInstruction *'> + cogit mclassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + "Whether the SmallInteger tags are zero or non-zero, oring them together will preserve them." + cogit OrR: Arg0Reg R: ReceiverResultReg. + cogit genPrimReturn. + jumpNotSI jmpTarget: cogit Label. + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveBitShift (in category 'primitive generators') ----- + genPrimitiveBitShift + "rTemp := rArg0 + rClass := tTemp + rTemp := rTemp & 1 + jz nonInt + rClass >>= 1 + cmp 0,rClass + jge neg + cmp 31,rClass // numSmallIntegerBits, jge for sign + jge tooBig + rTemp := rReceiver + rTemp <<= rClass + rTemp >>= rClass (arithmetic) + cmp rTemp,rReceiver + jnz ovfl + rReceiver := rReceiver - 1 + rReceiver := rReceiver <<= rClass + rReceiver := rReceiver + 1 + ret + neg: + rClass := 0 - rClass + cmp 31,rClass // numSmallIntegerBits + jge inRange + rClass := 31 + inRange + rReceiver := rReceiver >>= rClass. + rReceiver := rReceiver | smallIntegerTags. + ret + ovfl + tooBig + nonInt: + fail" + | jumpNotSI jumpOvfl jumpNegative jumpTooBig jumpInRange | + <var: #jumpNotSI type: #'AbstractInstruction *'> + <var: #jumpOvfl type: #'AbstractInstruction *'> + <var: #jumpNegative type: #'AbstractInstruction *'> + <var: #jumpTooBig type: #'AbstractInstruction *'> + <var: #jumpInRange type: #'AbstractInstruction *'> + cogit mclassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + cogit MoveR: Arg0Reg R: ClassReg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: ClassReg. + (cogit lastOpcode setsConditionCodesFor: JumpNegative) ifFalse: + [cogit CmpCq: 0 R: ClassReg]. "N.B. FLAGS := ClassReg - 0" + jumpNegative := cogit JumpNegative: 0. + cogit CmpCq: self numSmallIntegerBits R: ClassReg. "N.B. FLAGS := ClassReg - numSmallIntegerBits" + jumpTooBig := cogit JumpGreaterOrEqual: 0. + cogit MoveR: ReceiverResultReg R: TempReg. + cogit LogicalShiftLeftR: ClassReg R: TempReg. + cogit ArithmeticShiftRightR: ClassReg R: TempReg. + cogit CmpR: TempReg R: ReceiverResultReg. "N.B. FLAGS := RRReg - TempReg" + jumpOvfl := cogit JumpNonZero: 0. + self genRemoveSmallIntegerTagsInScratchReg: ReceiverResultReg. + cogit LogicalShiftLeftR: ClassReg R: ReceiverResultReg. + self genAddSmallIntegerTagsTo: ReceiverResultReg. + cogit genPrimReturn. + jumpNegative jmpTarget: (cogit NegateR: ClassReg). + cogit CmpCq: self numSmallIntegerBits R: ClassReg. "N.B. FLAGS := ClassReg - numSmallIntegerBits" + jumpInRange := cogit JumpLessOrEqual: 0. + cogit MoveCq: self numSmallIntegerBits R: ClassReg. + jumpInRange jmpTarget: (cogit ArithmeticShiftRightR: ClassReg R: ReceiverResultReg). + self genClearAndSetSmallIntegerTagsIn: ReceiverResultReg. + cogit genPrimReturn. + jumpNotSI jmpTarget: (jumpTooBig jmpTarget: (jumpOvfl jmpTarget: cogit Label)). + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveBitXor (in category 'primitive generators') ----- + genPrimitiveBitXor + | jumpNotSI | + <var: #jumpNotSI type: #'AbstractInstruction *'> + cogit mclassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + "Clear one or the other tag so that xoring will preserve them." + self genRemoveSmallIntegerTagsInScratchReg: Arg0Reg. + cogit XorR: Arg0Reg R: ReceiverResultReg. + cogit genPrimReturn. + jumpNotSI jmpTarget: cogit Label. + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveCharacterValue (in category 'primitive generators') ----- + genPrimitiveCharacterValue + "subclasses override if they can" + ^UnimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveClass (in category 'primitive generators') ----- + genPrimitiveClass + | reg | + reg := ReceiverResultReg. + cogit methodNumArgs > 0 ifTrue: + [cogit methodNumArgs > 1 ifTrue: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: (reg := Arg0Reg)]. + (self + genGetClassObjectOf: reg + into: ReceiverResultReg + scratchReg: TempReg + instRegIsReceiver: reg = ReceiverResultReg) = BadRegisterSet ifTrue: + [self + genGetClassObjectOf: reg + into: ClassReg + scratchReg: TempReg + instRegIsReceiver: reg = ReceiverResultReg. + cogit MoveR: ClassReg R: ReceiverResultReg]. + cogit genPrimReturn. + ^UnfailingPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveClosureValue (in category 'primitive generators') ----- + genPrimitiveClosureValue + "Defer to the cogit for this one. This is for two reasons: + a) Cogit's version speeds up cull: et al by not calling the interpreter primitive if numArgs is wrong. + Our convention for compiling the interpreter primitive call doesn't agree with this usage. + b) Cogit refuses to compile primitiveClosureValueNoContextSwitch until the blockNoContextSwitchOffset + is known, and that isn't information the CogObjectRepresentation is privvy to." + <doNotGenerate> + ^cogit genPrimitiveClosureValue! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveDiv (in category 'primitive generators') ----- + genPrimitiveDiv + | jumpNotSI jumpIsSI jumpZero jumpExact jumpSameSign convert | + <var: #convert type: #'AbstractInstruction *'> + <var: #jumpIsSI type: #'AbstractInstruction *'> + <var: #jumpZero type: #'AbstractInstruction *'> + <var: #jumpNotSI type: #'AbstractInstruction *'> + <var: #jumpExact type: #'AbstractInstruction *'> + <var: #jumpSameSign type: #'AbstractInstruction *'> + cogit processorHasDivQuoRemAndMClassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + cogit MoveR: Arg0Reg R: ClassReg. + cogit MoveR: Arg0Reg R: Arg1Reg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + "We must shift away the tags, not just subtract them, so that the + overflow case doesn't actually overflow the machine instruction." + self genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. + (cogit lastOpcode setsConditionCodesFor: JumpZero) ifFalse: + [cogit CmpCq: 0 R: ClassReg]. + jumpZero := cogit JumpZero: 0. + cogit MoveR: ReceiverResultReg R: TempReg. + self genShiftAwaySmallIntegerTagsInScratchReg: TempReg. + cogit DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. + "If remainder is zero we must check for overflow." + cogit CmpCq: 0 R: ClassReg. + jumpExact := cogit JumpZero: 0. + "If arg and remainder signs are different we must round down." + cogit XorR: ClassReg R: Arg1Reg. + (cogit lastOpcode setsConditionCodesFor: JumpZero) ifFalse: + [cogit CmpCq: 0 R: Arg1Reg]. + jumpSameSign := cogit JumpGreaterOrEqual: 0. + cogit SubCq: 1 R: TempReg. + jumpSameSign jmpTarget: (convert := cogit Label). + self genConvertIntegerToSmallIntegerInReg: TempReg. + cogit MoveR: TempReg R: ReceiverResultReg. + cogit genPrimReturn. + "test for overflow; the only case is SmallInteger minVal // -1" + jumpExact jmpTarget: cogit Label. + jumpIsSI := self genJumpIsSmallIntegerValue: TempReg scratch: Arg1Reg. + jumpIsSI jmpTarget: convert. + jumpZero jmpTarget: (jumpNotSI jmpTarget: cogit Label). + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveDivide (in category 'primitive generators') ----- + genPrimitiveDivide + | jumpNotSI jumpZero jumpInexact jumpOverflow | + <var: #jumpNotSI type: #'AbstractInstruction *'> + <var: #jumpZero type: #'AbstractInstruction *'> + <var: #jumpInexact type: #'AbstractInstruction *'> + <var: #jumpOverflow type: #'AbstractInstruction *'> + cogit processorHasDivQuoRemAndMClassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + cogit MoveR: Arg0Reg R: ClassReg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + "We must shift away the tags, not just subtract them, so that the + overflow case doesn't actually overflow the machine instruction." + self genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. + jumpZero := cogit JumpZero: 0. + cogit MoveR: ReceiverResultReg R: TempReg. + self genShiftAwaySmallIntegerTagsInScratchReg: TempReg. + cogit DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. + "If remainder is non-zero fail." + cogit CmpCq: 0 R: ClassReg. + jumpInexact := cogit JumpNonZero: 0. + "test for overflow; the only case is SmallInteger minVal / -1" + jumpOverflow := self genJumpNotSmallIntegerValue: TempReg scratch: Arg1Reg. + self genConvertIntegerToSmallIntegerInReg: TempReg. + cogit MoveR: TempReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpOverflow jmpTarget: (jumpInexact jmpTarget: (jumpZero jmpTarget: (jumpNotSI jmpTarget: cogit Label))). + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveEqual (in category 'primitive generators') ----- + genPrimitiveEqual + ^self + genSmallIntegerComparison: JumpZero + orDoubleComparison: #JumpFPEqual: + invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatAdd (in category 'primitive generators') ----- + genPrimitiveFloatAdd + <option: #DPFPReg0> + ^self genDoubleArithmetic: AddRdRd preOpCheck: nil! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatDivide (in category 'primitive generators') ----- + genPrimitiveFloatDivide + <option: #DPFPReg0> + ^self + genDoubleArithmetic: DivRdRd + preOpCheck: #genDoubleFailIfZeroArgRcvr:arg:! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatEqual (in category 'primitive generators') ----- + genPrimitiveFloatEqual + <option: #DPFPReg0> + ^self genDoubleComparison: #JumpFPEqual: invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatGreaterOrEqual (in category 'primitive generators') ----- + genPrimitiveFloatGreaterOrEqual + <option: #DPFPReg0> + ^self genDoubleComparison: #JumpFPGreaterOrEqual: invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatGreaterThan (in category 'primitive generators') ----- + genPrimitiveFloatGreaterThan + <option: #DPFPReg0> + ^self genDoubleComparison: #JumpFPGreater: invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatLessOrEqual (in category 'primitive generators') ----- + genPrimitiveFloatLessOrEqual + <option: #DPFPReg0> + ^self genDoubleComparison: #JumpFPGreaterOrEqual: invert: true! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatLessThan (in category 'primitive generators') ----- + genPrimitiveFloatLessThan + <option: #DPFPReg0> + ^self genDoubleComparison: #JumpFPGreater: invert: true! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatMultiply (in category 'primitive generators') ----- + genPrimitiveFloatMultiply + <option: #DPFPReg0> + ^self genDoubleArithmetic: MulRdRd preOpCheck: nil! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatNotEqual (in category 'primitive generators') ----- + genPrimitiveFloatNotEqual + <option: #DPFPReg0> + ^self genDoubleComparison: #JumpFPNotEqual: invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatSquareRoot (in category 'primitive generators') ----- + genPrimitiveFloatSquareRoot + <option: #DPFPReg0> + | jumpFailAlloc | + <var: #jumpFailAlloc type: #'AbstractInstruction *'> + cogit processorHasDoublePrecisionFloatingPointSupport ifFalse: + [^UnimplementedPrimitive]. + self genGetDoubleValueOf: ReceiverResultReg into: DPFPReg0. + cogit SqrtRd: DPFPReg0. + jumpFailAlloc := self + genAllocFloatValue: DPFPReg0 + into: SendNumArgsReg + scratchReg: ClassReg + scratchReg: TempReg. + cogit MoveR: SendNumArgsReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpFailAlloc jmpTarget: cogit Label. + ^0! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveFloatSubtract (in category 'primitive generators') ----- + genPrimitiveFloatSubtract + <option: #DPFPReg0> + ^self genDoubleArithmetic: SubRdRd preOpCheck: nil! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveGreaterOrEqual (in category 'primitive generators') ----- + genPrimitiveGreaterOrEqual + ^self + genSmallIntegerComparison: JumpGreaterOrEqual + orDoubleComparison: #JumpFPGreaterOrEqual: + invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveGreaterThan (in category 'primitive generators') ----- + genPrimitiveGreaterThan + ^self + genSmallIntegerComparison: JumpGreater + orDoubleComparison: #JumpFPGreater: + invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveIdentical (in category 'primitive generators') ----- + genPrimitiveIdentical + ^self genPrimitiveIdenticalOrNotIf: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveLessOrEqual (in category 'primitive generators') ----- + genPrimitiveLessOrEqual + ^self + genSmallIntegerComparison: JumpLessOrEqual + orDoubleComparison: #JumpFPGreaterOrEqual: + invert: true! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveLessThan (in category 'primitive generators') ----- + genPrimitiveLessThan + ^self + genSmallIntegerComparison: JumpLess + orDoubleComparison: #JumpFPGreater: + invert: true! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveMod (in category 'primitive generators') ----- + genPrimitiveMod + | jumpNotSI jumpZero jumpExact jumpSameSign | + <var: #jumpNotSI type: #'AbstractInstruction *'> + <var: #jumpZero type: #'AbstractInstruction *'> + <var: #jumpExact type: #'AbstractInstruction *'> + <var: #jumpSameSign type: #'AbstractInstruction *'> + cogit processorHasDivQuoRemAndMClassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + cogit MoveR: Arg0Reg R: ClassReg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + self genRemoveSmallIntegerTagsInScratchReg: ClassReg. + jumpZero := cogit JumpZero: 0. + cogit MoveR: ClassReg R: Arg1Reg. + cogit MoveR: ReceiverResultReg R: TempReg. + self genRemoveSmallIntegerTagsInScratchReg: TempReg. + cogit DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. + "If remainder is zero we're done." + cogit CmpCq: 0 R: ClassReg. + jumpExact := cogit JumpZero: 0. + "If arg and remainder signs are different we must reflect around zero." + cogit XorR: ClassReg R: Arg1Reg. + (cogit lastOpcode setsConditionCodesFor: JumpZero) ifFalse: + [cogit CmpCq: 0 R: Arg1Reg]. + jumpSameSign := cogit JumpGreaterOrEqual: 0. + cogit XorR: ClassReg R: Arg1Reg. + cogit AddR: Arg1Reg R: ClassReg. + jumpSameSign jmpTarget: (jumpExact jmpTarget: cogit Label). + self genSetSmallIntegerTagsIn: ClassReg. + cogit MoveR: ClassReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpZero jmpTarget: (jumpNotSI jmpTarget: cogit Label). + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveMultiply (in category 'primitive generators') ----- + genPrimitiveMultiply + | jumpNotSI jumpOvfl | + <var: #jumpNotSI type: #'AbstractInstruction *'> + <var: #jumpOvfl type: #'AbstractInstruction *'> + (cogit processorHasMultiplyAndMClassIsSmallInteger) ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + cogit MoveR: Arg0Reg R: ClassReg. + cogit MoveR: ReceiverResultReg R: Arg1Reg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + self genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. + self genRemoveSmallIntegerTagsInScratchReg: Arg1Reg. + cogit MulR: Arg1Reg R: ClassReg. + jumpOvfl := cogit JumpOverflow: 0. + self genSetSmallIntegerTagsIn: ClassReg. + cogit MoveR: ClassReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpOvfl jmpTarget: (jumpNotSI jmpTarget: cogit Label). + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveNew (in category 'primitive generators') ----- + genPrimitiveNew + "subclasses override if they can" + ^UnimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveNewMethod (in category 'primitive generators') ----- + genPrimitiveNewMethod + "subclasses override if they can" + ^UnimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveNewWithArg (in category 'primitive generators') ----- + genPrimitiveNewWithArg + "subclasses override if they can" + ^UnimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveNotEqual (in category 'primitive generators') ----- + genPrimitiveNotEqual + ^self + genSmallIntegerComparison: JumpNonZero + orDoubleComparison: #JumpFPNotEqual: + invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveNotIdentical (in category 'primitive generators') ----- + genPrimitiveNotIdentical + ^self genPrimitiveIdenticalOrNotIf: true! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveObjectAt (in category 'primitive generators') ----- + genPrimitiveObjectAt + "subclasses override if they can" + ^UnimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitivePerform (in category 'primitive generators') ----- + genPrimitivePerform + "Defer to the cogit for this one. All the code is method-cache related." + <doNotGenerate> + ^cogit genPrimitivePerform! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveQuo (in category 'primitive generators') ----- + genPrimitiveQuo + | convert jumpNotSI jumpZero jumpIsSI jumpExact | + <var: #convert type: #'AbstractInstruction *'> + <var: #jumpIsSI type: #'AbstractInstruction *'> + <var: #jumpZero type: #'AbstractInstruction *'> + <var: #jumpNotSI type: #'AbstractInstruction *'> + <var: #jumpExact type: #'AbstractInstruction *'> + cogit processorHasDivQuoRemAndMClassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + cogit MoveR: Arg0Reg R: ClassReg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + "We must shift away the tags, not just subtract them, so that the + overflow case doesn't actually overflow the machine instruction." + self genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. + (cogit lastOpcode setsConditionCodesFor: JumpZero) ifFalse: + [cogit CmpCq: 0 R: ClassReg]. + jumpZero := cogit JumpZero: 0. + cogit MoveR: ReceiverResultReg R: TempReg. + self genShiftAwaySmallIntegerTagsInScratchReg: TempReg. + cogit DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. + "If remainder is zero we must check for overflow." + cogit CmpCq: 0 R: ClassReg. + jumpExact := cogit JumpZero: 0. + convert := cogit Label. + self genConvertIntegerToSmallIntegerInReg: TempReg. + cogit MoveR: TempReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpExact jmpTarget: cogit Label. + jumpIsSI := self genJumpIsSmallIntegerValue: TempReg scratch: Arg1Reg. + jumpIsSI jmpTarget: convert. + jumpZero jmpTarget: (jumpNotSI jmpTarget: cogit Label). + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatAdd (in category 'primitive generators') ----- + genPrimitiveSmallFloatAdd + <option: #Spur64BitMemoryManager> + ^self genSmallFloatArithmetic: AddRdRd preOpCheck: nil! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatDivide (in category 'primitive generators') ----- + genPrimitiveSmallFloatDivide + <option: #Spur64BitMemoryManager> + ^self genSmallFloatArithmetic: DivRdRd preOpCheck: #genDoubleFailIfZeroArgRcvr:arg:! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatEqual (in category 'primitive generators') ----- + genPrimitiveSmallFloatEqual + <option: #Spur64BitMemoryManager> + ^self genSmallFloatComparison: #JumpFPEqual: invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatGreaterOrEqual (in category 'primitive generators') ----- + genPrimitiveSmallFloatGreaterOrEqual + <option: #Spur64BitMemoryManager> + ^self genSmallFloatComparison: #JumpFPGreaterOrEqual: invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatGreaterThan (in category 'primitive generators') ----- + genPrimitiveSmallFloatGreaterThan + <option: #Spur64BitMemoryManager> + ^self genSmallFloatComparison: #JumpFPGreater: invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatLessOrEqual (in category 'primitive generators') ----- + genPrimitiveSmallFloatLessOrEqual + <option: #Spur64BitMemoryManager> + ^self genSmallFloatComparison: #JumpFPGreaterOrEqual: invert: true! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatLessThan (in category 'primitive generators') ----- + genPrimitiveSmallFloatLessThan + <option: #Spur64BitMemoryManager> + ^self genSmallFloatComparison: #JumpFPGreater: invert: true! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatMultiply (in category 'primitive generators') ----- + genPrimitiveSmallFloatMultiply + <option: #Spur64BitMemoryManager> + ^self genSmallFloatArithmetic: MulRdRd preOpCheck: nil! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatNotEqual (in category 'primitive generators') ----- + genPrimitiveSmallFloatNotEqual + <option: #Spur64BitMemoryManager> + ^self genSmallFloatComparison: #JumpFPNotEqual: invert: false! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatSquareRoot (in category 'primitive generators') ----- + genPrimitiveSmallFloatSquareRoot + <option: #Spur64BitMemoryManager> + | jumpFailAlloc | + <var: #jumpFailAlloc type: #'AbstractInstruction *'> + self genGetSmallFloatValueOf: ReceiverResultReg scratch: SendNumArgsReg into: DPFPReg0. + cogit SqrtRd: DPFPReg0. + jumpFailAlloc := self + genAllocFloatValue: DPFPReg0 + into: SendNumArgsReg + scratchReg: ClassReg + scratchReg: TempReg. + cogit MoveR: SendNumArgsReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpFailAlloc jmpTarget: cogit Label. + ^0! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSmallFloatSubtract (in category 'primitive generators') ----- + genPrimitiveSmallFloatSubtract + <option: #Spur64BitMemoryManager> + ^self genSmallFloatArithmetic: SubRdRd preOpCheck: nil! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveStringAtPut (in category 'primitive generators') ----- + genPrimitiveStringAtPut + "subclasses override if they can" + ^UnimplementedPrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genPrimitiveSubtract (in category 'primitive generators') ----- + genPrimitiveSubtract + | jumpNotSI jumpOvfl | + <var: #jumpNotSI type: #'AbstractInstruction *'> + <var: #jumpOvfl type: #'AbstractInstruction *'> + cogit mclassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + cogit MoveR: ReceiverResultReg R: TempReg. + cogit SubR: Arg0Reg R: TempReg. + jumpOvfl := cogit JumpOverflow: 0. + self genAddSmallIntegerTagsTo: TempReg. + cogit MoveR: TempReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpOvfl jmpTarget: (jumpNotSI jmpTarget: cogit Label). + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genQuickReturnConst (in category 'primitive generators') ----- + genQuickReturnConst + <doNotGenerate> + ^cogit genQuickReturnConst! Item was added: + ----- Method: CogObjectRepresentation>>genQuickReturnInstVar (in category 'primitive generators') ----- + genQuickReturnInstVar + <doNotGenerate> + ^cogit genQuickReturnInstVar! Item was added: + ----- Method: CogObjectRepresentation>>genQuickReturnSelf (in category 'primitive generators') ----- + genQuickReturnSelf + <doNotGenerate> + ^cogit genQuickReturnSelf! Item was added: + ----- Method: CogObjectRepresentation>>genSmallIntegerComparison: (in category 'primitive generators') ----- + genSmallIntegerComparison: jumpOpcode + | jumpFail jumpTrue | + <var: #jumpFail type: #'AbstractInstruction *'> + <var: #jumpTrue type: #'AbstractInstruction *'> + cogit mclassIsSmallInteger ifFalse: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpFail := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + cogit CmpR: Arg0Reg R: ReceiverResultReg. "N.B. FLAGS := RRReg - Arg0Reg" + jumpTrue := cogit genConditionalBranch: jumpOpcode operand: 0. + cogit genMoveFalseR: ReceiverResultReg. + cogit genPrimReturn. + jumpTrue jmpTarget: (cogit genMoveTrueR: ReceiverResultReg). + cogit genPrimReturn. + jumpFail jmpTarget: cogit Label. + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentation>>genSmallIntegerComparison:orDoubleComparison:invert: (in category 'primitive generators') ----- + genSmallIntegerComparison: jumpOpcode orDoubleComparison: jumpFPOpcodeGenerator invert: invertComparison + "Stack looks like + return address" + | jumpNonInt jumpFail jumpCond r | + <var: #jumpFPOpcodeGenerator declareC: 'AbstractInstruction *(*jumpFPOpcodeGenerator)(void *)'> + <var: #jumpNonInt type: #'AbstractInstruction *'> + <var: #jumpCond type: #'AbstractInstruction *'> + <var: #jumpFail type: #'AbstractInstruction *'> + r := self genSmallIntegerComparison: jumpOpcode. + r < 0 ifTrue: + [^r]. + self cppIf: #DPFPReg0 defined ifTrue: + "Fall through on non-SmallInteger argument. Argument may be a Float : let us check or fail" + [self smallIntegerIsOnlyImmediateType ifFalse: + [jumpNonInt := self genJumpImmediate: Arg0Reg]. + self genGetCompactClassIndexNonImmOf: Arg0Reg into: SendNumArgsReg. + self genCmpClassFloatCompactIndexR: SendNumArgsReg. + jumpFail := cogit JumpNonZero: 0. + + "It was a Float, so convert the receiver to double and perform the operation" + self genConvertSmallIntegerToIntegerInReg: ReceiverResultReg. + cogit ConvertR: ReceiverResultReg Rd: DPFPReg0. + self genGetDoubleValueOf: Arg0Reg into: DPFPReg1. + invertComparison "May need to invert for NaNs" + ifTrue: [cogit CmpRd: DPFPReg0 Rd: DPFPReg1] + ifFalse: [cogit CmpRd: DPFPReg1 Rd: DPFPReg0]. + jumpCond := cogit perform: jumpFPOpcodeGenerator with: 0. "FP jumps are a little weird" + cogit genMoveFalseR: ReceiverResultReg. + cogit genPrimReturn. + jumpCond jmpTarget: (cogit genMoveTrueR: ReceiverResultReg). + cogit genPrimReturn. + + self smallIntegerIsOnlyImmediateType + ifTrue: [jumpFail jmpTarget: cogit Label] + ifFalse: [jumpNonInt jmpTarget: (jumpFail jmpTarget: cogit Label)]]. + ^CompletePrimitive! Item was removed: - ----- Method: CogObjectRepresentationFor32BitSpur>>genInnerPrimitiveAt: (in category 'primitive generators') ----- - genInnerPrimitiveAt: retNoffset - "Implement the guts of primitiveAt" - | formatReg convertToIntAndReturn - jumpNotIndexable jumpImmediate jumpBadIndex - jumpIsBytes jumpIsShorts jumpIsWords jumpWordTooBig jumpIsArray jumpHasFixedFields jumpIsContext - jumpBytesOutOfBounds jumpShortsOutOfBounds jumpWordsOutOfBounds jumpArrayOutOfBounds jumpFixedFieldsOutOfBounds | - <inline: true> - "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" - <var: #jumpIsBytes type: #'AbstractInstruction *'> - <var: #jumpIsShorts type: #'AbstractInstruction *'> - <var: #jumpBadIndex type: #'AbstractInstruction *'> - <var: #jumpIsContext type: #'AbstractInstruction *'> - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpWordTooBig type: #'AbstractInstruction *'> - <var: #jumpNotIndexable type: #'AbstractInstruction *'> - <var: #jumpHasFixedFields type: #'AbstractInstruction *'> - <var: #convertToIntAndReturn type: #'AbstractInstruction *'> - <var: #jumpArrayOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpShortsOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpFixedFieldsOutOfBounds type: #'AbstractInstruction *'> - - jumpImmediate := self genJumpImmediate: ReceiverResultReg. - cogit MoveR: Arg0Reg R: Arg1Reg. - jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - self genConvertSmallIntegerToIntegerInReg: Arg1Reg. - cogit SubCq: 1 R: Arg1Reg. "1-rel => 0-rel" - - "formatReg := self formatOf: ReceiverResultReg" - self genGetFormatOf: ReceiverResultReg - into: (formatReg := SendNumArgsReg) - leastSignificantHalfOfBaseHeaderIntoScratch: TempReg. - - self genGetNumSlotsOf: ReceiverResultReg into: ClassReg. - - "dispatch on format in a combination of highest dynamic frequency order first and convenience. - 0 = 0 sized objects (UndefinedObject True False et al) - 1 = non-indexable objects with inst vars (Point et al) - 2 = indexable objects with no inst vars (Array et al) - 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) - 4 = weak indexable objects with inst vars (WeakArray et al) - 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) - 6 unused, reserved for exotic pointer objects? - 7 Forwarded Object, 1st field is pointer, rest of fields are ignored - 8 unused, reserved for exotic non-pointer objects? - 9 (?) 64-bit indexable - 10 - 11 32-bit indexable - 12 - 15 16-bit indexable - 16 - 23 byte indexable - 24 - 31 compiled method" - cogit CmpCq: objectMemory firstByteFormat R: formatReg. - jumpIsBytes := cogit JumpAboveOrEqual: 0. - cogit CmpCq: objectMemory arrayFormat R: formatReg. - jumpIsArray := cogit JumpZero: 0. - jumpNotIndexable := cogit JumpBelow: 0. - cogit CmpCq: objectMemory weakArrayFormat R: formatReg. - jumpHasFixedFields := cogit JumpBelowOrEqual: 0. - cogit CmpCq: objectMemory firstShortFormat R: formatReg. - jumpIsShorts := cogit JumpAboveOrEqual: 0. - cogit CmpCq: objectMemory firstLongFormat R: formatReg. - jumpIsWords := cogit JumpAboveOrEqual: 0. - "For now ignore 64-bit indexability." - jumpNotIndexable jmpTarget: cogit Label. - jumpNotIndexable := cogit Jump: 0. - - jumpIsBytes jmpTarget: - (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: ClassReg). - cogit AndCq: objectMemory wordSize - 1 R: formatReg. - cogit SubR: formatReg R: ClassReg; - CmpR: Arg1Reg R: ClassReg. - jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddCq: objectMemory baseHeaderSize R: Arg1Reg. - cogit backEnd byteReadsZeroExtend - ifTrue: - [cogit MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg] - ifFalse: - [cogit "formatReg already contains a value <= 16r1f, so no need to zero it" - MoveXbr: Arg1Reg R: ReceiverResultReg R: formatReg; - MoveR: formatReg R: ReceiverResultReg]. - convertToIntAndReturn := cogit Label. - self genConvertIntegerToSmallIntegerInReg: ReceiverResultReg. - cogit RetN: retNoffset. - - jumpIsShorts jmpTarget: - (cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: ClassReg). - cogit AndCq: 1 R: formatReg. - cogit SubR: formatReg R: ClassReg; - CmpR: Arg1Reg R: ClassReg. - jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddR: Arg1Reg R: ReceiverResultReg. - cogit MoveM16: objectMemory baseHeaderSize r: ReceiverResultReg R: ReceiverResultReg. - cogit Jump: convertToIntAndReturn. - - jumpIsWords jmpTarget: - (cogit CmpR: Arg1Reg R: ClassReg). - jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. - cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: TempReg. - cogit SubCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. - jumpWordTooBig := self jumpNotSmallIntegerUnsignedValueInRegister: TempReg. - cogit MoveR: TempReg R: ReceiverResultReg. - cogit Jump: convertToIntAndReturn. - - jumpHasFixedFields jmpTarget: - (cogit AndCq: objectMemory classIndexMask R: TempReg). - cogit MoveR: TempReg R: formatReg. - cogit CmpCq: ClassMethodContextCompactIndex R: TempReg. - jumpIsContext := cogit JumpZero: 0. - cogit PushR: ClassReg. - self genGetClassObjectOfClassIndex: formatReg into: ClassReg scratchReg: TempReg. - self genLoadSlot: InstanceSpecificationIndex sourceReg: ClassReg destReg: formatReg. - cogit PopR: ClassReg. - self genConvertSmallIntegerToIntegerInReg: formatReg. - cogit - AndCq: objectMemory fixedFieldsOfClassFormatMask R: formatReg; - SubR: formatReg R: ClassReg; - CmpR: Arg1Reg R: ClassReg. - jumpFixedFieldsOutOfBounds := cogit JumpBelowOrEqual: 0. - "index is (formatReg (fixed fields) + Arg1Reg (0-rel index)) * wordSize + baseHeaderSize" - cogit AddR: formatReg R: Arg1Reg. - cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. - cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. - cogit RetN: retNoffset. - - jumpIsArray jmpTarget: - (cogit CmpR: Arg1Reg R: ClassReg). - jumpArrayOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. - cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. - cogit RetN: retNoffset. - - jumpFixedFieldsOutOfBounds jmpTarget: - (jumpArrayOutOfBounds jmpTarget: - (jumpBytesOutOfBounds jmpTarget: - (jumpShortsOutOfBounds jmpTarget: - (jumpWordsOutOfBounds jmpTarget: - (jumpWordTooBig jmpTarget: - (jumpNotIndexable jmpTarget: - (jumpIsContext jmpTarget: - (jumpBadIndex jmpTarget: - (jumpImmediate jmpTarget: cogit Label))))))))). - - ^0! Item was removed: - ----- Method: CogObjectRepresentationFor32BitSpur>>genInnerPrimitiveAtPut: (in category 'primitive generators') ----- - genInnerPrimitiveAtPut: retNoffset - "Implement the guts of primitiveAtPut" - | formatReg jumpImmediate jumpBadIndex jumpImmutable - jumpNotIndexablePointers jumpNotIndexableBits - jumpIsContext jumpIsCompiledMethod jumpIsBytes jumpHasFixedFields - jumpArrayOutOfBounds jumpFixedFieldsOutOfBounds - jumpWordsOutOfBounds jumpBytesOutOfBounds jumpBytesOutOfRange - jumpNonSmallIntegerValue jumpNegative jumpShortsUnsupported jumpNotPointers - | - <inline: true> - "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" - <var: #jumpIsBytes type: #'AbstractInstruction *'> - <var: #jumpNegative type: #'AbstractInstruction *'> - <var: #jumpBadIndex type: #'AbstractInstruction *'> - <var: #jumpIsContext type: #'AbstractInstruction *'> - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpHasFixedFields type: #'AbstractInstruction *'> - <var: #jumpNotIndexableBits type: #'AbstractInstruction *'> - <var: #jumpArrayOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpShortsUnsupported type: #'AbstractInstruction *'> - <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpNotIndexablePointers type: #'AbstractInstruction *'> - - jumpImmediate := self genJumpImmediate: ReceiverResultReg. - jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - self genConvertSmallIntegerToIntegerInReg: Arg0Reg. - cogit SubCq: 1 R: Arg0Reg. "1-rel => 0-rel" - - "formatReg := self formatOf: ReceiverResultReg" - self cppIf: IMMUTABILITY - ifTrue: - [ self genGetFormatOf: ReceiverResultReg - into: (formatReg := SendNumArgsReg) - leastSignificantHalfOfBaseHeaderIntoScratch: TempReg. - jumpImmutable := self genJumpBaseHeaderImmutable: TempReg ] - ifFalse: - [ self genGetFormatOf: ReceiverResultReg - into: (formatReg := SendNumArgsReg) - leastSignificantHalfOfBaseHeaderIntoScratch: NoReg ]. - - self genGetNumSlotsOf: ReceiverResultReg into: ClassReg. - - "dispatch on format in a combination of highest dynamic frequency order first and convenience. - 0 = 0 sized objects (UndefinedObject True False et al) - 1 = non-indexable objects with inst vars (Point et al) - 2 = indexable objects with no inst vars (Array et al) - 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) - 4 = weak indexable objects with inst vars (WeakArray et al) - 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) - 6 unused, reserved for exotic pointer objects? - 7 Forwarded Object, 1st field is pointer, rest of fields are ignored - 8 unused, reserved for exotic non-pointer objects? - 9 (?) 64-bit indexable - 10 - 11 32-bit indexable - 12 - 15 16-bit indexable - 16 - 23 byte indexable - 24 - 31 compiled method" - cogit CmpCq: objectMemory weakArrayFormat R: formatReg. - jumpNotPointers := cogit JumpAbove: 0. - "optimistic store check; assume index in range (almost always is)." - self genStoreCheckReceiverReg: ReceiverResultReg - valueReg: Arg1Reg - scratchReg: TempReg - inFrame: false. - - cogit CmpCq: objectMemory arrayFormat R: formatReg. - jumpNotIndexablePointers := cogit JumpBelow: 0. - jumpHasFixedFields := cogit JumpNonZero: 0. - cogit CmpR: Arg0Reg R: ClassReg. - jumpArrayOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg0Reg. - cogit MoveR: Arg1Reg Xwr: Arg0Reg R: ReceiverResultReg. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - cogit RetN: retNoffset. - - jumpHasFixedFields jmpTarget: cogit Label. - self genGetClassIndexOfNonImm: ReceiverResultReg into: formatReg. - cogit CmpCq: ClassMethodContextCompactIndex R: formatReg. - jumpIsContext := cogit JumpZero: 0. - "get # fixed fields in formatReg" - cogit PushR: ClassReg. - self genGetClassObjectOfClassIndex: formatReg into: ClassReg scratchReg: TempReg. - self genLoadSlot: InstanceSpecificationIndex sourceReg: ClassReg destReg: formatReg. - cogit PopR: ClassReg. - self genConvertSmallIntegerToIntegerInReg: formatReg. - cogit AndCq: objectMemory fixedFieldsOfClassFormatMask R: formatReg. - cogit SubR: formatReg R: ClassReg. - cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: formatReg. - cogit CmpR: Arg0Reg R: ClassReg. - jumpFixedFieldsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddR: formatReg R: Arg0Reg. - cogit MoveR: Arg1Reg Xwr: Arg0Reg R: ReceiverResultReg. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - cogit RetN: retNoffset. - - jumpNotPointers jmpTarget: - (cogit CmpCq: objectMemory firstCompiledMethodFormat R: formatReg). - jumpIsCompiledMethod := cogit JumpAboveOrEqual: 0. - jumpNonSmallIntegerValue := self genJumpNotSmallInteger: Arg1Reg scratchReg: TempReg. - cogit CmpCq: objectMemory firstByteFormat R: formatReg. - jumpIsBytes := cogit JumpAboveOrEqual: 0. - cogit CmpCq: objectMemory firstShortFormat R: formatReg. - jumpShortsUnsupported := cogit JumpAboveOrEqual: 0. - cogit CmpCq: objectMemory firstLongFormat R: formatReg. - "For now ignore 64-bit indexability." - jumpNotIndexableBits := cogit JumpBelow: 0. - - cogit CmpR: Arg0Reg R: ClassReg. - jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit MoveR: Arg1Reg R: TempReg. - self genConvertSmallIntegerToIntegerInReg: TempReg. - (cogit lastOpcode setsConditionCodesFor: JumpNegative) ifFalse: - [self CmpCq: 0 R: ClassReg]. "N.B. FLAGS := ClassReg - 0" - jumpNegative := cogit JumpNegative: 0. - cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg0Reg. - cogit MoveR: TempReg Xwr: Arg0Reg R: ReceiverResultReg. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - cogit RetN: retNoffset. - - jumpIsBytes jmpTarget: - (cogit CmpCq: (objectMemory integerObjectOf: 255) R: Arg1Reg). - jumpBytesOutOfRange := cogit JumpAbove: 0. - cogit LogicalShiftLeftCq: objectMemory shiftForWord R: ClassReg. - cogit AndCq: objectMemory wordSize - 1 R: formatReg. - cogit SubR: formatReg R: ClassReg; - CmpR: Arg0Reg R: ClassReg. - jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit MoveR: Arg1Reg R: TempReg. - self genConvertSmallIntegerToIntegerInReg: TempReg. - cogit AddCq: objectMemory baseHeaderSize R: Arg0Reg. - cogit MoveR: TempReg Xbr: Arg0Reg R: ReceiverResultReg. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - cogit RetN: retNoffset. - - "there are no shorts as yet. so this is dead code: - jumpIsShorts jmpTarget: - (cogit CmpCq: (objectMemory integerObjectOf: 65535) R: Arg1Reg). - jumpShortsOutOfRange := cogit JumpAbove: 0. - cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: ClassReg. - cogit AndCq: 1 R: formatReg. - cogit SubR: formatReg R: ClassReg; - CmpR: Arg0Reg R: ClassReg. - jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit MoveR: Arg1Reg R: TempReg. - cogit genConvertSmallIntegerToIntegerInReg: TempReg. - cogit AddR: Arg0Reg R: ReceiverResultReg. - cogit MoveR: TempReg M16: objectMemory baseHeaderSize r: ReceiverResultReg. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - jumpShortsDone := cogit Jump: 0." - - jumpIsContext jmpTarget: - (jumpNegative jmpTarget: - (jumpNotIndexableBits jmpTarget: - (jumpBytesOutOfRange jmpTarget: - (jumpIsCompiledMethod jmpTarget: - (jumpArrayOutOfBounds jmpTarget: - (jumpBytesOutOfBounds jmpTarget: - (jumpShortsUnsupported jmpTarget: - (jumpWordsOutOfBounds jmpTarget: - (jumpNotIndexablePointers jmpTarget: - (jumpNonSmallIntegerValue jmpTarget: - (jumpFixedFieldsOutOfBounds jmpTarget: cogit Label))))))))))). - - self cppIf: IMMUTABILITY ifTrue: [ jumpImmutable jmpTarget: cogit Label ]. - - cogit AddCq: 1 R: Arg0Reg. "0-rel => 1-rel" - self genConvertIntegerToSmallIntegerInReg: Arg0Reg. - - jumpBadIndex jmpTarget: (jumpImmediate jmpTarget: cogit Label). - - ^0! Item was removed: - ----- Method: CogObjectRepresentationFor32BitSpur>>genInnerPrimitiveIdentityHash: (in category 'primitive generators') ----- - genInnerPrimitiveIdentityHash: retNoffset - | jumpImm jumpSI jumpNotSet ret | - <var: #jumpSI type: #'AbstractInstruction *'> - <var: #jumpImm type: #'AbstractInstruction *'> - <var: #jumpNotSet type: #'AbstractInstruction *'> - jumpImm := self genJumpImmediate: ReceiverResultReg. - self genGetHashFieldNonImmOf: ReceiverResultReg asSmallIntegerInto: TempReg. - cogit CmpCq: ConstZero R: TempReg. - jumpNotSet := cogit JumpZero: 0. - cogit MoveR: TempReg R: ReceiverResultReg. - ret := cogit RetN: retNoffset. - jumpImm jmpTarget: cogit Label. - jumpSI := self genJumpSmallInteger: ReceiverResultReg. - jumpSI jmpTarget: ret. - self genConvertCharacterToSmallIntegerInReg: ReceiverResultReg. - cogit Jump: ret. - jumpNotSet jmpTarget: cogit Label. - ^0! Item was removed: - ----- Method: CogObjectRepresentationFor32BitSpur>>genInnerPrimitiveMirrorNew: (in category 'primitive generators') ----- - genInnerPrimitiveMirrorNew: retNoffset - "Implement 1-arg (instantiateFixedClass:) primitiveNew for convenient cases: - - the class argument has a hash - - the class argument is fixed size (excluding ephemerons to save instructions & miniscule time) - - single word header/num slots < numSlotsMask - - the result fits in eden (actually below scavengeThreshold)" - - <option: #NewspeakVM> - | halfHeaderReg fillReg instSpecReg byteSizeReg - jumpImmediate jumpUnhashed jumpNotFixedPointers jumpTooSmall jumpBadFormat - jumpNoSpace jumpTooBig jumpHasSlots jumpVariableOrEphemeron - fillLoop skip | - <var: 'skip' type: #'AbstractInstruction *'> - <var: 'fillLoop' type: #'AbstractInstruction *'> - <var: 'jumpTooBig' type: #'AbstractInstruction *'> - <var: 'jumpHasSlots' type: #'AbstractInstruction *'> - <var: 'jumpNoSpace' type: #'AbstractInstruction *'> - <var: 'jumpTooSmall' type: #'AbstractInstruction *'> - <var: 'jumpUnhashed' type: #'AbstractInstruction *'> - <var: 'jumpImmediate' type: #'AbstractInstruction *'> - <var: 'jumpBadFormat' type: #'AbstractInstruction *'> - <var: 'jumpNotFixedPointers' type: #'AbstractInstruction *'> - <var: 'jumpVariableOrEphemeron' type: #'AbstractInstruction *'> - - "half header will contain 1st half of header (classIndex/class's hash & format), - then 2nd half of header (numSlots/fixed size) and finally fill value (nilObject)." - halfHeaderReg := fillReg := SendNumArgsReg. - "inst spec will hold class's instance specification, then byte size and finally end of new object." - instSpecReg := byteSizeReg := ClassReg. - - "get freeStart as early as possible so as not to wait later..." - cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. - - "validate class arg; sigh, this mirror crap hobbles unfairly; there is a better way with selector namespaces..." - jumpImmediate := self genJumpImmediate: Arg0Reg. - - "Is the class arg pointers with at least 3 fields?" - self genGetFormatOf: Arg0Reg - into: TempReg - leastSignificantHalfOfBaseHeaderIntoScratch: NoReg. - cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg. - jumpNotFixedPointers := cogit JumpNonZero: 0. - - self genGetRawSlotSizeOfNonImm: Arg0Reg into: TempReg. - cogit CmpCq: InstanceSpecificationIndex + 1 R: TempReg. - jumpTooSmall := cogit JumpLess: 0. - - "get class's hash & fail if 0" - self genGetHashFieldNonImmOf: Arg0Reg into: halfHeaderReg. - jumpUnhashed := cogit JumpZero: 0. - - "get class's format inst var for both inst spec (format field) and num fixed fields" - self genLoadSlot: InstanceSpecificationIndex sourceReg: Arg0Reg destReg: instSpecReg. - jumpBadFormat := self genJumpNotSmallInteger: instSpecReg scratchReg: TempReg. - self genConvertSmallIntegerToIntegerInReg: instSpecReg. - cogit MoveR: instSpecReg R: TempReg. - cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth R: TempReg. - cogit AndCq: objectMemory formatMask R: TempReg. - cogit AndCq: objectMemory fixedFieldsOfClassFormatMask R: instSpecReg. - "fail if not fixed or if ephemeron (rare beasts so save the cycles)" - cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg. - jumpVariableOrEphemeron := cogit JumpAbove: 0. - cogit CmpCq: objectMemory numSlotsMask R: instSpecReg. - jumpTooBig := cogit JumpAboveOrEqual: 0. - "Add format to classIndex/format half header; other word contains numSlots" - cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. - cogit AddR: TempReg R: halfHeaderReg. - "write half header now; it frees halfHeaderReg" - cogit MoveR: halfHeaderReg Mw: 0 r: Arg1Reg. - "save unrounded numSlots for header" - cogit MoveR: instSpecReg R: halfHeaderReg. - "compute byte size; remember 0-sized objects still need 1 slot & allocation is - rounded up to 8 bytes." - cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" - jumpHasSlots := cogit JumpNonZero: 0. - cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. - skip := cogit Jump: 0. - "round up to allocationUnit" - jumpHasSlots jmpTarget: - (cogit MoveR: byteSizeReg R: TempReg). - cogit AndCq: 1 R: TempReg. - cogit AddR: TempReg R: byteSizeReg. - cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg. - cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. - skip jmpTarget: - "shift halfHeaderReg to put numSlots in correct place" - (cogit LogicalShiftLeftCq: objectMemory numSlotsHalfShift R: halfHeaderReg). - "check if allocation fits (freeSize + byteSize < scavengeThreshold); scavengeThreshold is constant." - cogit AddR: Arg1Reg R: byteSizeReg. - cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. - jumpNoSpace := cogit JumpAboveOrEqual: 0. - "write back new freeStart; get result. byteSizeReg holds new freeStart, the limit of the object" - cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - "write other half of header (numSlots/identityHash)" - cogit MoveR: halfHeaderReg Mw: 4 r: Arg1Reg. - "now fill" - cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. - cogit MoveCq: objectMemory nilObject R: fillReg. - "at least two words; so can make this a [fill 2 words. reached limit?] whileFalse" - fillLoop := - cogit MoveR: fillReg Mw: 0 r: Arg1Reg. - cogit MoveR: fillReg Mw: 4 r: Arg1Reg. - cogit AddCq: 8 R: Arg1Reg. - cogit CmpR: Arg1Reg R: byteSizeReg. - cogit JumpAbove: fillLoop. - cogit RetN: retNoffset. - - jumpNotFixedPointers jmpTarget: - (jumpBadFormat jmpTarget: - (jumpTooSmall jmpTarget: - (jumpImmediate jmpTarget: - (jumpUnhashed jmpTarget: - (jumpVariableOrEphemeron jmpTarget: - (jumpTooBig jmpTarget: - (jumpNoSpace jmpTarget: cogit Label))))))). - - ^0! Item was removed: - ----- Method: CogObjectRepresentationFor32BitSpur>>genInnerPrimitiveMirrorNewWithArg: (in category 'primitive generators') ----- - genInnerPrimitiveMirrorNewWithArg: retNoffset - "Implement instantiateVariableClass:withSize: for convenient cases: - - the class argument has a hash - - the class argument is variable and not compiled method - - single word header/num slots < numSlotsMask - - the result fits in eden - See superclass method for dynamic frequencies of formats. - For the moment we implement only arrayFormat, firstByteFormat & firstLongFormat" - - <option: #NewspeakVM> - | halfHeaderReg fillReg instSpecReg byteSizeReg maxSlots - jumpArrayTooBig jumpByteTooBig jumpLongTooBig - jumpArrayFormat jumpByteFormat jumpBytePrepDone jumpLongPrepDone - jumpUnhashed jumpTooSmall jumpImmediate jumpNotFixedPointers - jumpNElementsNonInt jumpFailCuzFixed jumpNoSpace jumpHasSlots fillLoop skip | - <var: 'skip' type: #'AbstractInstruction *'> - <var: 'fillLoop' type: #'AbstractInstruction *'> - <var: 'jumpHasSlots' type: #'AbstractInstruction *'> - <var: 'jumpNoSpace' type: #'AbstractInstruction *'> - <var: 'jumpTooSmall' type: #'AbstractInstruction *'> - <var: 'jumpUnhashed' type: #'AbstractInstruction *'> - <var: 'jumpImmediate' type: #'AbstractInstruction *'> - <var: 'jumpByteFormat' type: #'AbstractInstruction *'> - <var: 'jumpByteTooBig' type: #'AbstractInstruction *'> - <var: 'jumpLongTooBig' type: #'AbstractInstruction *'> - <var: 'jumpArrayFormat' type: #'AbstractInstruction *'> - <var: 'jumpArrayTooBig' type: #'AbstractInstruction *'> - <var: 'jumpFailCuzFixed' type: #'AbstractInstruction *'> - <var: 'jumpBytePrepDone' type: #'AbstractInstruction *'> - <var: 'jumpLongPrepDone' type: #'AbstractInstruction *'> - <var: 'jumpNElementsNonInt' type: #'AbstractInstruction *'> - <var: 'jumpNotFixedPointers' type: #'AbstractInstruction *'> - - "half header will contain 1st half of header (classIndex/class's hash & format), - then 2nd half of header (numSlots) and finally fill value (nilObject)." - halfHeaderReg := fillReg := SendNumArgsReg. - "inst spec will hold class's instance specification and then byte size and finally numSlots half of header" - instSpecReg := byteSizeReg := ClassReg. - "The max slots we'll allocate here are those for a single header" - maxSlots := objectMemory numSlotsMask - 1. - - "check size and fail if not a +ve integer" - jumpNElementsNonInt := self genJumpNotSmallInteger: Arg1Reg scratchReg: TempReg. - - "Is the class arg pointers with at least 3 fields?" - jumpImmediate := self genJumpImmediate: Arg0Reg. - - self genGetFormatOf: Arg0Reg - into: TempReg - leastSignificantHalfOfBaseHeaderIntoScratch: NoReg. - cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg. - jumpNotFixedPointers := cogit JumpNonZero: 0. - - self genGetRawSlotSizeOfNonImm: Arg0Reg into: TempReg. - cogit CmpCq: InstanceSpecificationIndex + 1 R: TempReg. - jumpTooSmall := cogit JumpLess: 0. - - "get class's hash & fail if 0" - self genGetHashFieldNonImmOf: Arg0Reg into: halfHeaderReg. - jumpUnhashed := cogit JumpZero: 0. - - "The basicNew: code below (copied from genInnerPrimitiveNewWithArg:) expects class - in ReceiverResultReg and size in Arg0Reg. Shuffle args to match, undoing on failure." - cogit - PushR: ReceiverResultReg; - MoveR: Arg0Reg R: ReceiverResultReg; - MoveR: Arg1Reg R: Arg0Reg. - - "get freeStart as early as possible so as not to wait later..." - cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. - "get class's format inst var for inst spec (format field)" - self genLoadSlot: InstanceSpecificationIndex sourceReg: ReceiverResultReg destReg: instSpecReg. - cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth + self numSmallIntegerTagBits R: instSpecReg. - cogit AndCq: objectMemory formatMask R: instSpecReg. - "Add format to classIndex/format half header now" - cogit MoveR: instSpecReg R: TempReg. - cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. - cogit AddR: TempReg R: halfHeaderReg. - "get integer value of num fields in TempReg now" - cogit MoveR: Arg0Reg R: TempReg. - self genConvertSmallIntegerToIntegerInReg: TempReg. - "dispatch on format, failing if not variable or if compiled method" - cogit CmpCq: objectMemory arrayFormat R: instSpecReg. - jumpArrayFormat := cogit JumpZero: 0. - cogit CmpCq: objectMemory firstByteFormat R: instSpecReg. - jumpByteFormat := cogit JumpZero: 0. - cogit CmpCq: objectMemory firstLongFormat R: instSpecReg. - jumpFailCuzFixed := cogit JumpNonZero: 0. - - cogit CmpCq: (objectMemory integerObjectOf: maxSlots) R: Arg0Reg. - jumpLongTooBig := cogit JumpAbove: 0. - "save num elements/slot size to instSpecReg" - cogit MoveR: TempReg R: instSpecReg. - "push fill value" - cogit PushCq: 0. - jumpLongPrepDone := cogit Jump: 0. "go allocate" - - jumpByteFormat jmpTarget: - (cogit CmpCq: (objectMemory integerObjectOf: maxSlots * objectMemory wordSize) R: Arg0Reg). - jumpByteTooBig := cogit JumpAbove: 0. - "save num elements to instSpecReg" - cogit MoveR: TempReg R: instSpecReg. - "compute odd bits and add into halfHeaderReg; oddBits := 4 - nElements bitAnd: 3" - cogit MoveCq: objectMemory wordSize R: TempReg. - cogit SubR: instSpecReg R: TempReg. - cogit AndCq: objectMemory wordSize - 1 R: TempReg. - cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. - cogit AddR: TempReg R: halfHeaderReg. - "round up num elements to numSlots in instSpecReg" - cogit AddCq: objectMemory wordSize - 1 R: instSpecReg. - cogit LogicalShiftRightCq: objectMemory shiftForWord R: instSpecReg. - "push fill value" - cogit PushCq: 0. - jumpBytePrepDone := cogit Jump: 0. "go allocate" - - jumpArrayFormat jmpTarget: - (cogit CmpCq: (objectMemory integerObjectOf: maxSlots) R: Arg0Reg). - jumpArrayTooBig := cogit JumpAbove: 0. - "save num elements/slot size to instSpecReg" - cogit MoveR: TempReg R: instSpecReg. - "push fill value" - cogit PushCw: objectMemory nilObject. - "fall through to allocate" - - jumpBytePrepDone jmpTarget: - (jumpLongPrepDone jmpTarget: cogit Label). - - "write half header now; it frees halfHeaderReg" - cogit MoveR: halfHeaderReg Mw: 0 r: Arg1Reg. - "save numSlots to halfHeaderReg" - cogit MoveR: instSpecReg R: halfHeaderReg. - "compute byte size; remember 0-sized objects still need 1 slot & allocation is - rounded up to 8 bytes." - cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" - jumpHasSlots := cogit JumpNonZero: 0. - cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. - skip := cogit Jump: 0. - "round up to allocationUnit" - jumpHasSlots jmpTarget: - (cogit MoveR: byteSizeReg R: TempReg). - cogit AndCq: 1 R: TempReg. - cogit AddR: TempReg R: byteSizeReg. - cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg. - cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. - skip jmpTarget: - "shift halfHeaderReg to put numSlots in correct place" - (cogit LogicalShiftLeftCq: objectMemory numSlotsHalfShift R: halfHeaderReg). - "check if allocation fits" - cogit AddR: Arg1Reg R: byteSizeReg. - cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. - jumpNoSpace := cogit JumpAboveOrEqual: 0. - "get result, increment freeStart and write it back. Arg1Reg holds new freeStart, the limit of the object" - cogit MoveR: Arg1Reg R: ReceiverResultReg. - cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. - "write other half of header (numSlots/0 identityHash)" - cogit MoveR: halfHeaderReg Mw: 4 r: ReceiverResultReg. - "now fill" - cogit PopR: fillReg. - cogit PopR: TempReg. "discard pushed receiver" - cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. - "at least two words; so can make this a [fill 2 words. reached limit?] whileFalse" - fillLoop := - cogit MoveR: fillReg Mw: 0 r: Arg1Reg. - cogit MoveR: fillReg Mw: 4 r: Arg1Reg. - cogit AddCq: 8 R: Arg1Reg. - cogit CmpR: Arg1Reg R: byteSizeReg. - cogit JumpAbove: fillLoop. - cogit RetN: retNoffset. - - "pop discarded fill value & fall through to failure" - jumpNoSpace jmpTarget: (cogit PopR: TempReg). - - jumpFailCuzFixed jmpTarget: - (jumpArrayTooBig jmpTarget: - (jumpByteTooBig jmpTarget: - (jumpLongTooBig jmpTarget: cogit Label))). - - "unshuffle arguments" - cogit - MoveR: Arg0Reg R: Arg1Reg; - MoveR: ReceiverResultReg R: Arg0Reg; - PopR: ReceiverResultReg. - - jumpUnhashed jmpTarget: - (jumpImmediate jmpTarget: - (jumpNotFixedPointers jmpTarget: - (jumpTooSmall jmpTarget: - (jumpNElementsNonInt jmpTarget: cogit Label)))). - - ^0! Item was removed: - ----- Method: CogObjectRepresentationFor32BitSpur>>genInnerPrimitiveNew: (in category 'primitive generators') ----- - genInnerPrimitiveNew: retNoffset - "Implement primitiveNew for convenient cases: - - the receiver has a hash - - the receiver is fixed size (excluding ephemerons to save instructions & miniscule time) - - single word header/num slots < numSlotsMask - - the result fits in eden (actually below scavengeThreshold)" - - | halfHeaderReg fillReg instSpecReg byteSizeReg - jumpUnhashed jumpVariableOrEphemeron jumpNoSpace jumpTooBig jumpHasSlots - fillLoop skip | - <var: 'skip' type: #'AbstractInstruction *'> - <var: 'fillLoop' type: #'AbstractInstruction *'> - <var: 'jumpTooBig' type: #'AbstractInstruction *'> - <var: 'jumpHasSlots' type: #'AbstractInstruction *'> - <var: 'jumpNoSpace' type: #'AbstractInstruction *'> - <var: 'jumpUnhashed' type: #'AbstractInstruction *'> - <var: 'jumpVariableOrEphemeron' type: #'AbstractInstruction *'> - - "half header will contain 1st half of header (classIndex/class's hash & format), - then 2nd half of header (numSlots/fixed size) and finally fill value (nilObject)." - halfHeaderReg := fillReg := SendNumArgsReg. - "inst spec will hold class's instance specification, then byte size and finally end of new object." - instSpecReg := byteSizeReg := ClassReg. - - "get freeStart as early as possible so as not to wait later..." - cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. - "get class's hash & fail if 0" - self genGetHashFieldNonImmOf: ReceiverResultReg into: halfHeaderReg. - jumpUnhashed := cogit JumpZero: 0. - "get class's format inst var for both inst spec (format field) and num fixed fields" - self genLoadSlot: InstanceSpecificationIndex sourceReg: ReceiverResultReg destReg: TempReg. - self genConvertSmallIntegerToIntegerInReg: TempReg. - cogit MoveR: TempReg R: instSpecReg. - cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth R: TempReg. - cogit AndCq: objectMemory formatMask R: TempReg. - cogit AndCq: objectMemory fixedFieldsOfClassFormatMask R: instSpecReg. - "fail if not fixed or if ephemeron (rare beasts so save the cycles)" - cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg. - jumpVariableOrEphemeron := cogit JumpAbove: 0. - cogit CmpCq: objectMemory numSlotsMask R: instSpecReg. - jumpTooBig := cogit JumpAboveOrEqual: 0. - "Add format to classIndex/format half header; other word contains numSlots" - cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. - cogit AddR: TempReg R: halfHeaderReg. - "write half header now; it frees halfHeaderReg" - cogit MoveR: halfHeaderReg Mw: 0 r: Arg1Reg. - "save unrounded numSlots for header" - cogit MoveR: instSpecReg R: halfHeaderReg. - "compute byte size; remember 0-sized objects still need 1 slot & allocation is - rounded up to 8 bytes." - cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" - jumpHasSlots := cogit JumpNonZero: 0. - cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. - skip := cogit Jump: 0. - "round up to allocationUnit" - jumpHasSlots jmpTarget: - (cogit MoveR: byteSizeReg R: TempReg). - cogit AndCq: 1 R: TempReg. - cogit AddR: TempReg R: byteSizeReg. - cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg. - cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. - skip jmpTarget: - "shift halfHeaderReg to put numSlots in correct place" - (cogit LogicalShiftLeftCq: objectMemory numSlotsHalfShift R: halfHeaderReg). - "check if allocation fits (freeSize + byteSize < scavengeThreshold); scavengeThreshold is constant." - cogit AddR: Arg1Reg R: byteSizeReg. - cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. - jumpNoSpace := cogit JumpAboveOrEqual: 0. - "write back new freeStart; get result. byteSizeReg holds new freeStart, the limit of the object" - cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - "write other half of header (numSlots/identityHash)" - cogit MoveR: halfHeaderReg Mw: 4 r: Arg1Reg. - "now fill" - cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. - cogit MoveCq: objectMemory nilObject R: fillReg. - "at least two words; so can make this a [fill 2 words. reached limit?] whileFalse" - fillLoop := - cogit MoveR: fillReg Mw: 0 r: Arg1Reg. - cogit MoveR: fillReg Mw: 4 r: Arg1Reg. - cogit AddCq: 8 R: Arg1Reg. - cogit CmpR: Arg1Reg R: byteSizeReg. - cogit JumpAbove: fillLoop. - cogit RetN: retNoffset. - - jumpUnhashed jmpTarget: - (jumpVariableOrEphemeron jmpTarget: - (jumpTooBig jmpTarget: - (jumpNoSpace jmpTarget: cogit Label))). - - ^0! Item was removed: - ----- Method: CogObjectRepresentationFor32BitSpur>>genInnerPrimitiveNewWithArg: (in category 'primitive generators') ----- - genInnerPrimitiveNewWithArg: retNoffset - "Implement primitiveNewWithArg for convenient cases: - - the receiver has a hash - - the receiver is variable and not compiled method - - single word header/num slots < numSlotsMask - - the result fits in eden - See superclass method for dynamic frequencies of formats. - For the moment we implement only arrayFormat, firstByteFormat & firstLongFormat" - - | halfHeaderReg fillReg instSpecReg byteSizeReg maxSlots - jumpArrayTooBig jumpByteTooBig jumpLongTooBig - jumpArrayFormat jumpByteFormat jumpBytePrepDone jumpLongPrepDone - jumpUnhashed jumpNElementsNonInt jumpFailCuzFixed jumpNoSpace jumpHasSlots fillLoop skip | - <var: 'skip' type: #'AbstractInstruction *'> - <var: 'fillLoop' type: #'AbstractInstruction *'> - <var: 'jumpHasSlots' type: #'AbstractInstruction *'> - <var: 'jumpNoSpace' type: #'AbstractInstruction *'> - <var: 'jumpUnhashed' type: #'AbstractInstruction *'> - <var: 'jumpByteFormat' type: #'AbstractInstruction *'> - <var: 'jumpByteTooBig' type: #'AbstractInstruction *'> - <var: 'jumpLongTooBig' type: #'AbstractInstruction *'> - <var: 'jumpArrayFormat' type: #'AbstractInstruction *'> - <var: 'jumpArrayTooBig' type: #'AbstractInstruction *'> - <var: 'jumpFailCuzFixed' type: #'AbstractInstruction *'> - <var: 'jumpBytePrepDone' type: #'AbstractInstruction *'> - <var: 'jumpLongPrepDone' type: #'AbstractInstruction *'> - <var: 'jumpNElementsNonInt' type: #'AbstractInstruction *'> - - "half header will contain 1st half of header (classIndex/class's hash & format), - then 2nd half of header (numSlots) and finally fill value (nilObject)." - halfHeaderReg := fillReg := SendNumArgsReg. - "inst spec will hold class's instance specification and then byte size and finally numSlots half of header" - instSpecReg := byteSizeReg := ClassReg. - "The max slots we'll allocate here are those for a single header" - maxSlots := objectMemory numSlotsMask - 1. - - "get freeStart as early as possible so as not to wait later..." - cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. - "get class's hash & fail if 0" - self genGetHashFieldNonImmOf: ReceiverResultReg into: halfHeaderReg. - jumpUnhashed := cogit JumpZero: 0. - "get index and fail if not a +ve integer" - jumpNElementsNonInt := self genJumpNotSmallInteger: Arg0Reg. - "get class's format inst var for inst spec (format field)" - self genLoadSlot: InstanceSpecificationIndex sourceReg: ReceiverResultReg destReg: instSpecReg. - cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth + self numSmallIntegerTagBits R: instSpecReg. - cogit AndCq: objectMemory formatMask R: instSpecReg. - "Add format to classIndex/format half header now" - cogit MoveR: instSpecReg R: TempReg. - cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. - cogit AddR: TempReg R: halfHeaderReg. - "get integer value of num fields in TempReg now" - cogit MoveR: Arg0Reg R: TempReg. - self genConvertSmallIntegerToIntegerInReg: TempReg. - "dispatch on format, failing if not variable or if compiled method" - cogit CmpCq: objectMemory arrayFormat R: instSpecReg. - jumpArrayFormat := cogit JumpZero: 0. - cogit CmpCq: objectMemory firstByteFormat R: instSpecReg. - jumpByteFormat := cogit JumpZero: 0. - cogit CmpCq: objectMemory firstLongFormat R: instSpecReg. - jumpFailCuzFixed := cogit JumpNonZero: 0. - - cogit CmpCq: (objectMemory integerObjectOf: maxSlots) R: Arg0Reg. - jumpLongTooBig := cogit JumpAbove: 0. - "save num elements/slot size to instSpecReg" - cogit MoveR: TempReg R: instSpecReg. - "push fill value" - cogit PushCq: 0. - jumpLongPrepDone := cogit Jump: 0. "go allocate" - - jumpByteFormat jmpTarget: - (cogit CmpCq: (objectMemory integerObjectOf: maxSlots * objectMemory wordSize) R: Arg0Reg). - jumpByteTooBig := cogit JumpAbove: 0. - "save num elements to instSpecReg" - cogit MoveR: TempReg R: instSpecReg. - "compute odd bits and add into halfHeaderReg; oddBits := 4 - nElements bitAnd: 3" - cogit MoveCq: objectMemory wordSize R: TempReg. - cogit SubR: instSpecReg R: TempReg. - cogit AndCq: objectMemory wordSize - 1 R: TempReg. - cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. - cogit AddR: TempReg R: halfHeaderReg. - "round up num elements to numSlots in instSpecReg" - cogit AddCq: objectMemory wordSize - 1 R: instSpecReg. - cogit LogicalShiftRightCq: objectMemory shiftForWord R: instSpecReg. - "push fill value" - cogit PushCq: 0. - jumpBytePrepDone := cogit Jump: 0. "go allocate" - - jumpArrayFormat jmpTarget: - (cogit CmpCq: (objectMemory integerObjectOf: maxSlots) R: Arg0Reg). - jumpArrayTooBig := cogit JumpAbove: 0. - "save num elements/slot size to instSpecReg" - cogit MoveR: TempReg R: instSpecReg. - "push fill value" - cogit PushCw: objectMemory nilObject. - "fall through to allocate" - - jumpBytePrepDone jmpTarget: - (jumpLongPrepDone jmpTarget: cogit Label). - - "write half header now; it frees halfHeaderReg" - cogit MoveR: halfHeaderReg Mw: 0 r: Arg1Reg. - "save numSlots to halfHeaderReg" - cogit MoveR: instSpecReg R: halfHeaderReg. - "compute byte size; remember 0-sized objects still need 1 slot & allocation is - rounded up to 8 bytes." - cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" - jumpHasSlots := cogit JumpNonZero: 0. - cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. - skip := cogit Jump: 0. - "round up to allocationUnit" - jumpHasSlots jmpTarget: - (cogit MoveR: byteSizeReg R: TempReg). - cogit AndCq: 1 R: TempReg. - cogit AddR: TempReg R: byteSizeReg. - cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg. - cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. - skip jmpTarget: - "shift halfHeaderReg to put numSlots in correct place" - (cogit LogicalShiftLeftCq: objectMemory numSlotsHalfShift R: halfHeaderReg). - "check if allocation fits" - cogit AddR: Arg1Reg R: byteSizeReg. - cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. - jumpNoSpace := cogit JumpAboveOrEqual: 0. - "get result, increment freeStart and write it back. Arg1Reg holds new freeStart, the limit of the object" - cogit MoveR: Arg1Reg R: ReceiverResultReg. - cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. - "write other half of header (numSlots/0 identityHash)" - cogit MoveR: halfHeaderReg Mw: 4 r: ReceiverResultReg. - "now fill" - cogit PopR: fillReg. - cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. - "at least two words; so can make this a [fill 2 words. reached limit?] whileFalse" - fillLoop := - cogit MoveR: fillReg Mw: 0 r: Arg1Reg. - cogit MoveR: fillReg Mw: 4 r: Arg1Reg. - cogit AddCq: 8 R: Arg1Reg. - cogit CmpR: Arg1Reg R: byteSizeReg. - cogit JumpAbove: fillLoop. - cogit RetN: retNoffset. - - "pop discarded fill value & fall through to failure" - jumpNoSpace jmpTarget: (cogit PopR: TempReg). - - jumpUnhashed jmpTarget: - (jumpFailCuzFixed jmpTarget: - (jumpArrayTooBig jmpTarget: - (jumpByteTooBig jmpTarget: - (jumpLongTooBig jmpTarget: - (jumpNElementsNonInt jmpTarget: cogit Label))))). - - ^0! Item was removed: - ----- Method: CogObjectRepresentationFor32BitSpur>>genInnerPrimitiveStringAtPut: (in category 'primitive generators') ----- - genInnerPrimitiveStringAtPut: retNoffset - "Implement the guts of primitiveStringAtPut" - | formatReg jumpBadIndex jumpBadArg jumpWordsDone jumpBytesOutOfRange - jumpIsBytes jumpNotString jumpIsCompiledMethod jumpImmutable - jumpBytesOutOfBounds jumpWordsOutOfBounds jumpShortsUnsupported | - <inline: true> - "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" - <var: #jumpBadArg type: #'AbstractInstruction *'> - <var: #jumpIsBytes type: #'AbstractInstruction *'> - <var: #jumpBadIndex type: #'AbstractInstruction *'> - <var: #jumpWordsDone type: #'AbstractInstruction *'> - <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpShortsUnsupported type: #'AbstractInstruction *'> - <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> - - jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg. - cogit MoveR: Arg1Reg R: TempReg. - jumpBadArg := self genJumpNotCharacterInScratchReg: TempReg. - self genConvertSmallIntegerToIntegerInReg: Arg0Reg. - cogit SubCq: 1 R: Arg0Reg. "1-rel => 0-rel" - - "formatReg := self formatOf: ReceiverResultReg" - self cppIf: IMMUTABILITY - ifTrue: - [ self genGetFormatOf: ReceiverResultReg - into: (formatReg := SendNumArgsReg) - leastSignificantHalfOfBaseHeaderIntoScratch: TempReg. - jumpImmutable := self genJumpBaseHeaderImmutable: TempReg ] - ifFalse: - [ self genGetFormatOf: ReceiverResultReg - into: (formatReg := SendNumArgsReg) - leastSignificantHalfOfBaseHeaderIntoScratch: NoReg ]. - - self genGetNumSlotsOf: ReceiverResultReg into: ClassReg. - - "dispatch on format; words and/or bytes. - 0 to 8 = pointer objects, forwarders, reserved. - 9 (?) 64-bit indexable - 10 - 11 32-bit indexable - 12 - 15 16-bit indexable (but unused) - 16 - 23 byte indexable - 24 - 31 compiled method" - cogit CmpCq: objectMemory firstLongFormat R: formatReg. - jumpNotString := cogit JumpBelowOrEqual: 0. - cogit CmpCq: objectMemory firstCompiledMethodFormat R: formatReg. - jumpIsCompiledMethod := cogit JumpAboveOrEqual: 0. - cogit CmpCq: objectMemory firstByteFormat R: formatReg. - jumpIsBytes := cogit JumpGreaterOrEqual: 0. - cogit CmpCq: objectMemory firstShortFormat R: formatReg. - jumpShortsUnsupported := cogit JumpGreaterOrEqual: 0. - - cogit CmpR: Arg0Reg R: ClassReg. - jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit MoveR: Arg1Reg R: TempReg. - self genConvertSmallIntegerToIntegerInReg: TempReg. - cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg0Reg. - cogit MoveR: TempReg Xwr: Arg0Reg R: ReceiverResultReg. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - jumpWordsDone := cogit Jump: 0. - - "there are no shorts as yet. so this is dead code: - jumpIsShorts jmpTarget: - (cogit CmpCq: (objectMemory integerObjectOf: 65535) R: Arg1Reg). - jumpShortsOutOfRange := cogit JumpAbove: 0. - cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: ClassReg. - cogit AndCq: 1 R: formatReg. - cogit SubR: formatReg R: ClassReg; - CmpR: Arg0Reg R: ClassReg. - jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit MoveR: Arg1Reg R: TempReg. - cogit genConvertSmallIntegerToIntegerInReg: TempReg. - cogit AddR: Arg0Reg R: ReceiverResultReg. - cogit MoveR: TempReg M16: objectMemory baseHeaderSize r: ReceiverResultReg. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - jumpShortsDone := cogit Jump: 0." - - jumpIsBytes jmpTarget: - (cogit CmpCq: (objectMemory characterObjectOf: 255) R: Arg1Reg). - jumpBytesOutOfRange := cogit JumpAbove: 0. - cogit LogicalShiftLeftCq: objectMemory shiftForWord R: ClassReg. - cogit AndCq: objectMemory wordSize - 1 R: formatReg. - cogit SubR: formatReg R: ClassReg; - CmpR: Arg0Reg R: ClassReg. - jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit MoveR: Arg1Reg R: TempReg. - self genConvertCharacterToCodeInReg: TempReg. - cogit AddCq: objectMemory baseHeaderSize R: Arg0Reg. - cogit MoveR: TempReg Xbr: Arg0Reg R: ReceiverResultReg. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - - jumpWordsDone jmpTarget: - (cogit RetN: retNoffset). - - jumpBadArg jmpTarget: - (jumpNotString jmpTarget: - (jumpBytesOutOfRange jmpTarget: - (jumpIsCompiledMethod jmpTarget: - (jumpBytesOutOfBounds jmpTarget: - (jumpShortsUnsupported jmpTarget: - (jumpWordsOutOfBounds jmpTarget: cogit Label)))))). - - self cppIf: IMMUTABILITY ifTrue: [ jumpImmutable jmpTarget: cogit Label ]. - - cogit AddCq: 1 R: Arg0Reg. "0-rel => 1-rel" - self genConvertIntegerToSmallIntegerInReg: Arg0Reg. - - jumpBadIndex jmpTarget: cogit Label. - - ^0! Item was added: + ----- Method: CogObjectRepresentationFor32BitSpur>>genPrimitiveAt (in category 'primitive generators') ----- + genPrimitiveAt + "Implement the guts of primitiveAt" + | formatReg convertToIntAndReturn + jumpNotIndexable jumpImmediate jumpBadIndex + jumpIsBytes jumpIsShorts jumpIsWords jumpWordTooBig jumpIsArray jumpHasFixedFields jumpIsContext + jumpBytesOutOfBounds jumpShortsOutOfBounds jumpWordsOutOfBounds jumpArrayOutOfBounds jumpFixedFieldsOutOfBounds | + <inline: true> + "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" + <var: #jumpIsBytes type: #'AbstractInstruction *'> + <var: #jumpIsShorts type: #'AbstractInstruction *'> + <var: #jumpBadIndex type: #'AbstractInstruction *'> + <var: #jumpIsContext type: #'AbstractInstruction *'> + <var: #jumpImmediate type: #'AbstractInstruction *'> + <var: #jumpWordTooBig type: #'AbstractInstruction *'> + <var: #jumpNotIndexable type: #'AbstractInstruction *'> + <var: #jumpHasFixedFields type: #'AbstractInstruction *'> + <var: #convertToIntAndReturn type: #'AbstractInstruction *'> + <var: #jumpArrayOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpShortsOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpFixedFieldsOutOfBounds type: #'AbstractInstruction *'> + + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpImmediate := self genJumpImmediate: ReceiverResultReg. + cogit MoveR: Arg0Reg R: Arg1Reg. + jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: Arg1Reg. + cogit SubCq: 1 R: Arg1Reg. "1-rel => 0-rel" + + "formatReg := self formatOf: ReceiverResultReg" + self genGetFormatOf: ReceiverResultReg + into: (formatReg := SendNumArgsReg) + leastSignificantHalfOfBaseHeaderIntoScratch: TempReg. + + self genGetNumSlotsOf: ReceiverResultReg into: ClassReg. + + "dispatch on format in a combination of highest dynamic frequency order first and convenience. + 0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 unused, reserved for exotic pointer objects? + 7 Forwarded Object, 1st field is pointer, rest of fields are ignored + 8 unused, reserved for exotic non-pointer objects? + 9 (?) 64-bit indexable + 10 - 11 32-bit indexable + 12 - 15 16-bit indexable + 16 - 23 byte indexable + 24 - 31 compiled method" + cogit CmpCq: objectMemory firstByteFormat R: formatReg. + jumpIsBytes := cogit JumpAboveOrEqual: 0. + cogit CmpCq: objectMemory arrayFormat R: formatReg. + jumpIsArray := cogit JumpZero: 0. + jumpNotIndexable := cogit JumpBelow: 0. + cogit CmpCq: objectMemory weakArrayFormat R: formatReg. + jumpHasFixedFields := cogit JumpBelowOrEqual: 0. + cogit CmpCq: objectMemory firstShortFormat R: formatReg. + jumpIsShorts := cogit JumpAboveOrEqual: 0. + cogit CmpCq: objectMemory firstLongFormat R: formatReg. + jumpIsWords := cogit JumpAboveOrEqual: 0. + "For now ignore 64-bit indexability." + jumpNotIndexable jmpTarget: cogit Label. + jumpNotIndexable := cogit Jump: 0. + + jumpIsBytes jmpTarget: + (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: ClassReg). + cogit AndCq: objectMemory wordSize - 1 R: formatReg. + cogit SubR: formatReg R: ClassReg; + CmpR: Arg1Reg R: ClassReg. + jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddCq: objectMemory baseHeaderSize R: Arg1Reg. + cogit backEnd byteReadsZeroExtend + ifTrue: + [cogit MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg] + ifFalse: + [cogit "formatReg already contains a value <= 16r1f, so no need to zero it" + MoveXbr: Arg1Reg R: ReceiverResultReg R: formatReg; + MoveR: formatReg R: ReceiverResultReg]. + convertToIntAndReturn := cogit Label. + self genConvertIntegerToSmallIntegerInReg: ReceiverResultReg. + cogit genPrimReturn. + + jumpIsShorts jmpTarget: + (cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: ClassReg). + cogit AndCq: 1 R: formatReg. + cogit SubR: formatReg R: ClassReg; + CmpR: Arg1Reg R: ClassReg. + jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddR: Arg1Reg R: ReceiverResultReg. + cogit MoveM16: objectMemory baseHeaderSize r: ReceiverResultReg R: ReceiverResultReg. + cogit Jump: convertToIntAndReturn. + + jumpIsWords jmpTarget: + (cogit CmpR: Arg1Reg R: ClassReg). + jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. + cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: TempReg. + cogit SubCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. + jumpWordTooBig := self jumpNotSmallIntegerUnsignedValueInRegister: TempReg. + cogit MoveR: TempReg R: ReceiverResultReg. + cogit Jump: convertToIntAndReturn. + + jumpHasFixedFields jmpTarget: + (cogit AndCq: objectMemory classIndexMask R: TempReg). + cogit MoveR: TempReg R: formatReg. + cogit CmpCq: ClassMethodContextCompactIndex R: TempReg. + jumpIsContext := cogit JumpZero: 0. + cogit PushR: ClassReg. + self genGetClassObjectOfClassIndex: formatReg into: ClassReg scratchReg: TempReg. + self genLoadSlot: InstanceSpecificationIndex sourceReg: ClassReg destReg: formatReg. + cogit PopR: ClassReg. + self genConvertSmallIntegerToIntegerInReg: formatReg. + cogit + AndCq: objectMemory fixedFieldsOfClassFormatMask R: formatReg; + SubR: formatReg R: ClassReg; + CmpR: Arg1Reg R: ClassReg. + jumpFixedFieldsOutOfBounds := cogit JumpBelowOrEqual: 0. + "index is (formatReg (fixed fields) + Arg1Reg (0-rel index)) * wordSize + baseHeaderSize" + cogit AddR: formatReg R: Arg1Reg. + cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. + cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. + cogit genPrimReturn. + + jumpIsArray jmpTarget: + (cogit CmpR: Arg1Reg R: ClassReg). + jumpArrayOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. + cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. + cogit genPrimReturn. + + jumpFixedFieldsOutOfBounds jmpTarget: + (jumpArrayOutOfBounds jmpTarget: + (jumpBytesOutOfBounds jmpTarget: + (jumpShortsOutOfBounds jmpTarget: + (jumpWordsOutOfBounds jmpTarget: + (jumpWordTooBig jmpTarget: + (jumpNotIndexable jmpTarget: + (jumpIsContext jmpTarget: + (jumpBadIndex jmpTarget: + (jumpImmediate jmpTarget: cogit Label))))))))). + + ^0! Item was added: + ----- Method: CogObjectRepresentationFor32BitSpur>>genPrimitiveAtPut (in category 'primitive generators') ----- + genPrimitiveAtPut + "Implement the guts of primitiveAtPut" + | formatReg jumpImmediate jumpBadIndex jumpImmutable + jumpNotIndexablePointers jumpNotIndexableBits + jumpIsContext jumpIsCompiledMethod jumpIsBytes jumpHasFixedFields + jumpArrayOutOfBounds jumpFixedFieldsOutOfBounds + jumpWordsOutOfBounds jumpBytesOutOfBounds jumpBytesOutOfRange + jumpNonSmallIntegerValue jumpNegative jumpShortsUnsupported jumpNotPointers + | + <inline: true> + "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" + <var: #jumpIsBytes type: #'AbstractInstruction *'> + <var: #jumpNegative type: #'AbstractInstruction *'> + <var: #jumpBadIndex type: #'AbstractInstruction *'> + <var: #jumpIsContext type: #'AbstractInstruction *'> + <var: #jumpImmediate type: #'AbstractInstruction *'> + <var: #jumpHasFixedFields type: #'AbstractInstruction *'> + <var: #jumpNotIndexableBits type: #'AbstractInstruction *'> + <var: #jumpArrayOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpShortsUnsupported type: #'AbstractInstruction *'> + <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpNotIndexablePointers type: #'AbstractInstruction *'> + + cogit genLoadArgAtDepth: 1 into: Arg0Reg. + cogit genLoadArgAtDepth: 0 into: Arg1Reg. + jumpImmediate := self genJumpImmediate: ReceiverResultReg. + jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: Arg0Reg. + cogit SubCq: 1 R: Arg0Reg. "1-rel => 0-rel" + + "formatReg := self formatOf: ReceiverResultReg" + self cppIf: IMMUTABILITY + ifTrue: + [ self genGetFormatOf: ReceiverResultReg + into: (formatReg := SendNumArgsReg) + leastSignificantHalfOfBaseHeaderIntoScratch: TempReg. + jumpImmutable := self genJumpBaseHeaderImmutable: TempReg ] + ifFalse: + [ self genGetFormatOf: ReceiverResultReg + into: (formatReg := SendNumArgsReg) + leastSignificantHalfOfBaseHeaderIntoScratch: NoReg ]. + + self genGetNumSlotsOf: ReceiverResultReg into: ClassReg. + + "dispatch on format in a combination of highest dynamic frequency order first and convenience. + 0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 unused, reserved for exotic pointer objects? + 7 Forwarded Object, 1st field is pointer, rest of fields are ignored + 8 unused, reserved for exotic non-pointer objects? + 9 (?) 64-bit indexable + 10 - 11 32-bit indexable + 12 - 15 16-bit indexable + 16 - 23 byte indexable + 24 - 31 compiled method" + cogit CmpCq: objectMemory weakArrayFormat R: formatReg. + jumpNotPointers := cogit JumpAbove: 0. + "optimistic store check; assume index in range (almost always is)." + self genStoreCheckReceiverReg: ReceiverResultReg + valueReg: Arg1Reg + scratchReg: TempReg + inFrame: false. + + cogit CmpCq: objectMemory arrayFormat R: formatReg. + jumpNotIndexablePointers := cogit JumpBelow: 0. + jumpHasFixedFields := cogit JumpNonZero: 0. + cogit CmpR: Arg0Reg R: ClassReg. + jumpArrayOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg0Reg. + cogit MoveR: Arg1Reg Xwr: Arg0Reg R: ReceiverResultReg. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + cogit genPrimReturn. + + jumpHasFixedFields jmpTarget: cogit Label. + self genGetClassIndexOfNonImm: ReceiverResultReg into: formatReg. + cogit CmpCq: ClassMethodContextCompactIndex R: formatReg. + jumpIsContext := cogit JumpZero: 0. + "get # fixed fields in formatReg" + cogit PushR: ClassReg. + self genGetClassObjectOfClassIndex: formatReg into: ClassReg scratchReg: TempReg. + self genLoadSlot: InstanceSpecificationIndex sourceReg: ClassReg destReg: formatReg. + cogit PopR: ClassReg. + self genConvertSmallIntegerToIntegerInReg: formatReg. + cogit AndCq: objectMemory fixedFieldsOfClassFormatMask R: formatReg. + cogit SubR: formatReg R: ClassReg. + cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: formatReg. + cogit CmpR: Arg0Reg R: ClassReg. + jumpFixedFieldsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddR: formatReg R: Arg0Reg. + cogit MoveR: Arg1Reg Xwr: Arg0Reg R: ReceiverResultReg. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + cogit genPrimReturn. + + jumpNotPointers jmpTarget: + (cogit CmpCq: objectMemory firstCompiledMethodFormat R: formatReg). + jumpIsCompiledMethod := cogit JumpAboveOrEqual: 0. + jumpNonSmallIntegerValue := self genJumpNotSmallInteger: Arg1Reg scratchReg: TempReg. + cogit CmpCq: objectMemory firstByteFormat R: formatReg. + jumpIsBytes := cogit JumpAboveOrEqual: 0. + cogit CmpCq: objectMemory firstShortFormat R: formatReg. + jumpShortsUnsupported := cogit JumpAboveOrEqual: 0. + cogit CmpCq: objectMemory firstLongFormat R: formatReg. + "For now ignore 64-bit indexability." + jumpNotIndexableBits := cogit JumpBelow: 0. + + cogit CmpR: Arg0Reg R: ClassReg. + jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit MoveR: Arg1Reg R: TempReg. + self genConvertSmallIntegerToIntegerInReg: TempReg. + (cogit lastOpcode setsConditionCodesFor: JumpNegative) ifFalse: + [self CmpCq: 0 R: ClassReg]. "N.B. FLAGS := ClassReg - 0" + jumpNegative := cogit JumpNegative: 0. + cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg0Reg. + cogit MoveR: TempReg Xwr: Arg0Reg R: ReceiverResultReg. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + cogit genPrimReturn. + + jumpIsBytes jmpTarget: + (cogit CmpCq: (objectMemory integerObjectOf: 255) R: Arg1Reg). + jumpBytesOutOfRange := cogit JumpAbove: 0. + cogit LogicalShiftLeftCq: objectMemory shiftForWord R: ClassReg. + cogit AndCq: objectMemory wordSize - 1 R: formatReg. + cogit SubR: formatReg R: ClassReg; + CmpR: Arg0Reg R: ClassReg. + jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit MoveR: Arg1Reg R: TempReg. + self genConvertSmallIntegerToIntegerInReg: TempReg. + cogit AddCq: objectMemory baseHeaderSize R: Arg0Reg. + cogit MoveR: TempReg Xbr: Arg0Reg R: ReceiverResultReg. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + cogit genPrimReturn. + + "there are no shorts as yet. so this is dead code: + jumpIsShorts jmpTarget: + (cogit CmpCq: (objectMemory integerObjectOf: 65535) R: Arg1Reg). + jumpShortsOutOfRange := cogit JumpAbove: 0. + cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: ClassReg. + cogit AndCq: 1 R: formatReg. + cogit SubR: formatReg R: ClassReg; + CmpR: Arg0Reg R: ClassReg. + jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit MoveR: Arg1Reg R: TempReg. + cogit genConvertSmallIntegerToIntegerInReg: TempReg. + cogit AddR: Arg0Reg R: ReceiverResultReg. + cogit MoveR: TempReg M16: objectMemory baseHeaderSize r: ReceiverResultReg. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + jumpShortsDone := cogit Jump: 0." + + jumpIsContext jmpTarget: + (jumpNegative jmpTarget: + (jumpNotIndexableBits jmpTarget: + (jumpBytesOutOfRange jmpTarget: + (jumpIsCompiledMethod jmpTarget: + (jumpArrayOutOfBounds jmpTarget: + (jumpBytesOutOfBounds jmpTarget: + (jumpShortsUnsupported jmpTarget: + (jumpWordsOutOfBounds jmpTarget: + (jumpNotIndexablePointers jmpTarget: + (jumpNonSmallIntegerValue jmpTarget: + (jumpFixedFieldsOutOfBounds jmpTarget: cogit Label))))))))))). + + self cppIf: IMMUTABILITY ifTrue: [ jumpImmutable jmpTarget: cogit Label ]. + + cogit AddCq: 1 R: Arg0Reg. "0-rel => 1-rel" + self genConvertIntegerToSmallIntegerInReg: Arg0Reg. + + jumpBadIndex jmpTarget: (jumpImmediate jmpTarget: cogit Label). + + ^0! Item was added: + ----- Method: CogObjectRepresentationFor32BitSpur>>genPrimitiveIdentityHash (in category 'primitive generators') ----- + genPrimitiveIdentityHash + | jumpImm jumpSI jumpNotSet ret | + <var: #jumpSI type: #'AbstractInstruction *'> + <var: #jumpImm type: #'AbstractInstruction *'> + <var: #jumpNotSet type: #'AbstractInstruction *'> + jumpImm := self genJumpImmediate: ReceiverResultReg. + self genGetHashFieldNonImmOf: ReceiverResultReg asSmallIntegerInto: TempReg. + cogit CmpCq: ConstZero R: TempReg. + jumpNotSet := cogit JumpZero: 0. + cogit MoveR: TempReg R: ReceiverResultReg. + ret := cogit genPrimReturn. + jumpImm jmpTarget: cogit Label. + jumpSI := self genJumpSmallInteger: ReceiverResultReg. + jumpSI jmpTarget: ret. + self genConvertCharacterToSmallIntegerInReg: ReceiverResultReg. + cogit Jump: ret. + jumpNotSet jmpTarget: cogit Label. + ^0! Item was added: + ----- Method: CogObjectRepresentationFor32BitSpur>>genPrimitiveMirrorNew (in category 'primitive generators') ----- + genPrimitiveMirrorNew + "Implement 1-arg (instantiateFixedClass:) primitiveNew for convenient cases: + - the class argument has a hash + - the class argument is fixed size (excluding ephemerons to save instructions & miniscule time) + - single word header/num slots < numSlotsMask + - the result fits in eden (actually below scavengeThreshold)" + + <option: #NewspeakVM> + | halfHeaderReg fillReg instSpecReg byteSizeReg + jumpImmediate jumpUnhashed jumpNotFixedPointers jumpTooSmall jumpBadFormat + jumpNoSpace jumpTooBig jumpHasSlots jumpVariableOrEphemeron + fillLoop skip | + <var: 'skip' type: #'AbstractInstruction *'> + <var: 'fillLoop' type: #'AbstractInstruction *'> + <var: 'jumpTooBig' type: #'AbstractInstruction *'> + <var: 'jumpHasSlots' type: #'AbstractInstruction *'> + <var: 'jumpNoSpace' type: #'AbstractInstruction *'> + <var: 'jumpTooSmall' type: #'AbstractInstruction *'> + <var: 'jumpUnhashed' type: #'AbstractInstruction *'> + <var: 'jumpImmediate' type: #'AbstractInstruction *'> + <var: 'jumpBadFormat' type: #'AbstractInstruction *'> + <var: 'jumpNotFixedPointers' type: #'AbstractInstruction *'> + <var: 'jumpVariableOrEphemeron' type: #'AbstractInstruction *'> + + self assert: cogit methodNumArgs = 1. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + + "half header will contain 1st half of header (classIndex/class's hash & format), + then 2nd half of header (numSlots/fixed size) and finally fill value (nilObject)." + halfHeaderReg := fillReg := SendNumArgsReg. + "inst spec will hold class's instance specification, then byte size and finally end of new object." + instSpecReg := byteSizeReg := ClassReg. + + "get freeStart as early as possible so as not to wait later..." + cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. + + "validate class arg; sigh, this mirror crap hobbles unfairly; there is a better way with selector namespaces..." + jumpImmediate := self genJumpImmediate: Arg0Reg. + + "Is the class arg pointers with at least 3 fields?" + self genGetFormatOf: Arg0Reg + into: TempReg + leastSignificantHalfOfBaseHeaderIntoScratch: NoReg. + cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg. + jumpNotFixedPointers := cogit JumpNonZero: 0. + + self genGetRawSlotSizeOfNonImm: Arg0Reg into: TempReg. + cogit CmpCq: InstanceSpecificationIndex + 1 R: TempReg. + jumpTooSmall := cogit JumpLess: 0. + + "get class's hash & fail if 0" + self genGetHashFieldNonImmOf: Arg0Reg into: halfHeaderReg. + jumpUnhashed := cogit JumpZero: 0. + + "get class's format inst var for both inst spec (format field) and num fixed fields" + self genLoadSlot: InstanceSpecificationIndex sourceReg: Arg0Reg destReg: instSpecReg. + jumpBadFormat := self genJumpNotSmallInteger: instSpecReg scratchReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: instSpecReg. + cogit MoveR: instSpecReg R: TempReg. + cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth R: TempReg. + cogit AndCq: objectMemory formatMask R: TempReg. + cogit AndCq: objectMemory fixedFieldsOfClassFormatMask R: instSpecReg. + "fail if not fixed or if ephemeron (rare beasts so save the cycles)" + cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg. + jumpVariableOrEphemeron := cogit JumpAbove: 0. + cogit CmpCq: objectMemory numSlotsMask R: instSpecReg. + jumpTooBig := cogit JumpAboveOrEqual: 0. + "Add format to classIndex/format half header; other word contains numSlots" + cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. + cogit AddR: TempReg R: halfHeaderReg. + "write half header now; it frees halfHeaderReg" + cogit MoveR: halfHeaderReg Mw: 0 r: Arg1Reg. + "save unrounded numSlots for header" + cogit MoveR: instSpecReg R: halfHeaderReg. + "compute byte size; remember 0-sized objects still need 1 slot & allocation is + rounded up to 8 bytes." + cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" + jumpHasSlots := cogit JumpNonZero: 0. + cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. + skip := cogit Jump: 0. + "round up to allocationUnit" + jumpHasSlots jmpTarget: + (cogit MoveR: byteSizeReg R: TempReg). + cogit AndCq: 1 R: TempReg. + cogit AddR: TempReg R: byteSizeReg. + cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg. + cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. + skip jmpTarget: + "shift halfHeaderReg to put numSlots in correct place" + (cogit LogicalShiftLeftCq: objectMemory numSlotsHalfShift R: halfHeaderReg). + "check if allocation fits (freeSize + byteSize < scavengeThreshold); scavengeThreshold is constant." + cogit AddR: Arg1Reg R: byteSizeReg. + cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. + jumpNoSpace := cogit JumpAboveOrEqual: 0. + "write back new freeStart; get result. byteSizeReg holds new freeStart, the limit of the object" + cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + "write other half of header (numSlots/identityHash)" + cogit MoveR: halfHeaderReg Mw: 4 r: Arg1Reg. + "now fill" + cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. + cogit MoveCq: objectMemory nilObject R: fillReg. + "at least two words; so can make this a [fill 2 words. reached limit?] whileFalse" + fillLoop := + cogit MoveR: fillReg Mw: 0 r: Arg1Reg. + cogit MoveR: fillReg Mw: 4 r: Arg1Reg. + cogit AddCq: 8 R: Arg1Reg. + cogit CmpR: Arg1Reg R: byteSizeReg. + cogit JumpAbove: fillLoop. + cogit genPrimReturn. + + jumpNotFixedPointers jmpTarget: + (jumpBadFormat jmpTarget: + (jumpTooSmall jmpTarget: + (jumpImmediate jmpTarget: + (jumpUnhashed jmpTarget: + (jumpVariableOrEphemeron jmpTarget: + (jumpTooBig jmpTarget: + (jumpNoSpace jmpTarget: cogit Label))))))). + + ^0! Item was added: + ----- Method: CogObjectRepresentationFor32BitSpur>>genPrimitiveMirrorNewWithArg (in category 'primitive generators') ----- + genPrimitiveMirrorNewWithArg + "Implement instantiateVariableClass:withSize: for convenient cases: + - the class argument has a hash + - the class argument is variable and not compiled method + - single word header/num slots < numSlotsMask + - the result fits in eden + See superclass method for dynamic frequencies of formats. + For the moment we implement only arrayFormat, firstByteFormat & firstLongFormat" + + <option: #NewspeakVM> + | halfHeaderReg fillReg instSpecReg byteSizeReg maxSlots + jumpArrayTooBig jumpByteTooBig jumpLongTooBig + jumpArrayFormat jumpByteFormat jumpBytePrepDone jumpLongPrepDone + jumpUnhashed jumpTooSmall jumpImmediate jumpNotFixedPointers + jumpNElementsNonInt jumpFailCuzFixed jumpNoSpace jumpHasSlots fillLoop skip | + <var: 'skip' type: #'AbstractInstruction *'> + <var: 'fillLoop' type: #'AbstractInstruction *'> + <var: 'jumpHasSlots' type: #'AbstractInstruction *'> + <var: 'jumpNoSpace' type: #'AbstractInstruction *'> + <var: 'jumpTooSmall' type: #'AbstractInstruction *'> + <var: 'jumpUnhashed' type: #'AbstractInstruction *'> + <var: 'jumpImmediate' type: #'AbstractInstruction *'> + <var: 'jumpByteFormat' type: #'AbstractInstruction *'> + <var: 'jumpByteTooBig' type: #'AbstractInstruction *'> + <var: 'jumpLongTooBig' type: #'AbstractInstruction *'> + <var: 'jumpArrayFormat' type: #'AbstractInstruction *'> + <var: 'jumpArrayTooBig' type: #'AbstractInstruction *'> + <var: 'jumpFailCuzFixed' type: #'AbstractInstruction *'> + <var: 'jumpBytePrepDone' type: #'AbstractInstruction *'> + <var: 'jumpLongPrepDone' type: #'AbstractInstruction *'> + <var: 'jumpNElementsNonInt' type: #'AbstractInstruction *'> + <var: 'jumpNotFixedPointers' type: #'AbstractInstruction *'> + + self assert: cogit methodNumArgs = 2. + cogit genLoadArgAtDepth: 1 into: Arg0Reg. "class arg" + cogit genLoadArgAtDepth: 0 into: Arg1Reg. "num indexable slots arg" + + "half header will contain 1st half of header (classIndex/class's hash & format), + then 2nd half of header (numSlots) and finally fill value (nilObject)." + halfHeaderReg := fillReg := SendNumArgsReg. + "inst spec will hold class's instance specification and then byte size and finally numSlots half of header" + instSpecReg := byteSizeReg := ClassReg. + "The max slots we'll allocate here are those for a single header" + maxSlots := objectMemory numSlotsMask - 1. + + "check size and fail if not a +ve integer" + jumpNElementsNonInt := self genJumpNotSmallInteger: Arg1Reg scratchReg: TempReg. + + "Is the class arg pointers with at least 3 fields?" + jumpImmediate := self genJumpImmediate: Arg0Reg. + + self genGetFormatOf: Arg0Reg + into: TempReg + leastSignificantHalfOfBaseHeaderIntoScratch: NoReg. + cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg. + jumpNotFixedPointers := cogit JumpNonZero: 0. + + self genGetRawSlotSizeOfNonImm: Arg0Reg into: TempReg. + cogit CmpCq: InstanceSpecificationIndex + 1 R: TempReg. + jumpTooSmall := cogit JumpLess: 0. + + "get class's hash & fail if 0" + self genGetHashFieldNonImmOf: Arg0Reg into: halfHeaderReg. + jumpUnhashed := cogit JumpZero: 0. + + "The basicNew: code below (copied from genInnerPrimitiveNewWithArg:) expects class + in ReceiverResultReg and size in Arg0Reg. Shuffle args to match, undoing on failure." + cogit + PushR: ReceiverResultReg; + MoveR: Arg0Reg R: ReceiverResultReg; + MoveR: Arg1Reg R: Arg0Reg. + + "get freeStart as early as possible so as not to wait later..." + cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. + "get class's format inst var for inst spec (format field)" + self genLoadSlot: InstanceSpecificationIndex sourceReg: ReceiverResultReg destReg: instSpecReg. + cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth + self numSmallIntegerTagBits R: instSpecReg. + cogit AndCq: objectMemory formatMask R: instSpecReg. + "Add format to classIndex/format half header now" + cogit MoveR: instSpecReg R: TempReg. + cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. + cogit AddR: TempReg R: halfHeaderReg. + "get integer value of num fields in TempReg now" + cogit MoveR: Arg0Reg R: TempReg. + self genConvertSmallIntegerToIntegerInReg: TempReg. + "dispatch on format, failing if not variable or if compiled method" + cogit CmpCq: objectMemory arrayFormat R: instSpecReg. + jumpArrayFormat := cogit JumpZero: 0. + cogit CmpCq: objectMemory firstByteFormat R: instSpecReg. + jumpByteFormat := cogit JumpZero: 0. + cogit CmpCq: objectMemory firstLongFormat R: instSpecReg. + jumpFailCuzFixed := cogit JumpNonZero: 0. + + cogit CmpCq: (objectMemory integerObjectOf: maxSlots) R: Arg0Reg. + jumpLongTooBig := cogit JumpAbove: 0. + "save num elements/slot size to instSpecReg" + cogit MoveR: TempReg R: instSpecReg. + "push fill value" + cogit PushCq: 0. + jumpLongPrepDone := cogit Jump: 0. "go allocate" + + jumpByteFormat jmpTarget: + (cogit CmpCq: (objectMemory integerObjectOf: maxSlots * objectMemory wordSize) R: Arg0Reg). + jumpByteTooBig := cogit JumpAbove: 0. + "save num elements to instSpecReg" + cogit MoveR: TempReg R: instSpecReg. + "compute odd bits and add into halfHeaderReg; oddBits := 4 - nElements bitAnd: 3" + cogit MoveCq: objectMemory wordSize R: TempReg. + cogit SubR: instSpecReg R: TempReg. + cogit AndCq: objectMemory wordSize - 1 R: TempReg. + cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. + cogit AddR: TempReg R: halfHeaderReg. + "round up num elements to numSlots in instSpecReg" + cogit AddCq: objectMemory wordSize - 1 R: instSpecReg. + cogit LogicalShiftRightCq: objectMemory shiftForWord R: instSpecReg. + "push fill value" + cogit PushCq: 0. + jumpBytePrepDone := cogit Jump: 0. "go allocate" + + jumpArrayFormat jmpTarget: + (cogit CmpCq: (objectMemory integerObjectOf: maxSlots) R: Arg0Reg). + jumpArrayTooBig := cogit JumpAbove: 0. + "save num elements/slot size to instSpecReg" + cogit MoveR: TempReg R: instSpecReg. + "push fill value" + cogit PushCw: objectMemory nilObject. + "fall through to allocate" + + jumpBytePrepDone jmpTarget: + (jumpLongPrepDone jmpTarget: cogit Label). + + "write half header now; it frees halfHeaderReg" + cogit MoveR: halfHeaderReg Mw: 0 r: Arg1Reg. + "save numSlots to halfHeaderReg" + cogit MoveR: instSpecReg R: halfHeaderReg. + "compute byte size; remember 0-sized objects still need 1 slot & allocation is + rounded up to 8 bytes." + cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" + jumpHasSlots := cogit JumpNonZero: 0. + cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. + skip := cogit Jump: 0. + "round up to allocationUnit" + jumpHasSlots jmpTarget: + (cogit MoveR: byteSizeReg R: TempReg). + cogit AndCq: 1 R: TempReg. + cogit AddR: TempReg R: byteSizeReg. + cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg. + cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. + skip jmpTarget: + "shift halfHeaderReg to put numSlots in correct place" + (cogit LogicalShiftLeftCq: objectMemory numSlotsHalfShift R: halfHeaderReg). + "check if allocation fits" + cogit AddR: Arg1Reg R: byteSizeReg. + cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. + jumpNoSpace := cogit JumpAboveOrEqual: 0. + "get result, increment freeStart and write it back. Arg1Reg holds new freeStart, the limit of the object" + cogit MoveR: Arg1Reg R: ReceiverResultReg. + cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. + "write other half of header (numSlots/0 identityHash)" + cogit MoveR: halfHeaderReg Mw: 4 r: ReceiverResultReg. + "now fill" + cogit PopR: fillReg. + cogit PopR: TempReg. "discard pushed receiver" + cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. + "at least two words; so can make this a [fill 2 words. reached limit?] whileFalse" + fillLoop := + cogit MoveR: fillReg Mw: 0 r: Arg1Reg. + cogit MoveR: fillReg Mw: 4 r: Arg1Reg. + cogit AddCq: 8 R: Arg1Reg. + cogit CmpR: Arg1Reg R: byteSizeReg. + cogit JumpAbove: fillLoop. + cogit genPrimReturn. + + "pop discarded fill value & fall through to failure" + jumpNoSpace jmpTarget: (cogit PopR: TempReg). + + jumpFailCuzFixed jmpTarget: + (jumpArrayTooBig jmpTarget: + (jumpByteTooBig jmpTarget: + (jumpLongTooBig jmpTarget: cogit Label))). + + "unshuffle arguments" + cogit + MoveR: Arg0Reg R: Arg1Reg; + MoveR: ReceiverResultReg R: Arg0Reg; + PopR: ReceiverResultReg. + + jumpUnhashed jmpTarget: + (jumpImmediate jmpTarget: + (jumpNotFixedPointers jmpTarget: + (jumpTooSmall jmpTarget: + (jumpNElementsNonInt jmpTarget: cogit Label)))). + + ^0! Item was added: + ----- Method: CogObjectRepresentationFor32BitSpur>>genPrimitiveNew (in category 'primitive generators') ----- + genPrimitiveNew + "Implement primitiveNew for convenient cases: + - the receiver has a hash + - the receiver is fixed size (excluding ephemerons to save instructions & miniscule time) + - single word header/num slots < numSlotsMask + - the result fits in eden (actually below scavengeThreshold)" + + | halfHeaderReg fillReg instSpecReg byteSizeReg + jumpUnhashed jumpVariableOrEphemeron jumpNoSpace jumpTooBig jumpHasSlots + fillLoop skip | + <var: 'skip' type: #'AbstractInstruction *'> + <var: 'fillLoop' type: #'AbstractInstruction *'> + <var: 'jumpTooBig' type: #'AbstractInstruction *'> + <var: 'jumpHasSlots' type: #'AbstractInstruction *'> + <var: 'jumpNoSpace' type: #'AbstractInstruction *'> + <var: 'jumpUnhashed' type: #'AbstractInstruction *'> + <var: 'jumpVariableOrEphemeron' type: #'AbstractInstruction *'> + + NewspeakVM ifTrue: + [cogit methodNumArgs = 1 ifTrue: + [^self genPrimitiveMirrorNew]]. + cogit methodNumArgs ~= 0 ifTrue: + [^UnimplementedPrimitive]. + + "half header will contain 1st half of header (classIndex/class's hash & format), + then 2nd half of header (numSlots/fixed size) and finally fill value (nilObject)." + halfHeaderReg := fillReg := SendNumArgsReg. + "inst spec will hold class's instance specification, then byte size and finally end of new object." + instSpecReg := byteSizeReg := ClassReg. + + "get freeStart as early as possible so as not to wait later..." + cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. + "get class's hash & fail if 0" + self genGetHashFieldNonImmOf: ReceiverResultReg into: halfHeaderReg. + jumpUnhashed := cogit JumpZero: 0. + "get class's format inst var for both inst spec (format field) and num fixed fields" + self genLoadSlot: InstanceSpecificationIndex sourceReg: ReceiverResultReg destReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: TempReg. + cogit MoveR: TempReg R: instSpecReg. + cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth R: TempReg. + cogit AndCq: objectMemory formatMask R: TempReg. + cogit AndCq: objectMemory fixedFieldsOfClassFormatMask R: instSpecReg. + "fail if not fixed or if ephemeron (rare beasts so save the cycles)" + cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg. + jumpVariableOrEphemeron := cogit JumpAbove: 0. + cogit CmpCq: objectMemory numSlotsMask R: instSpecReg. + jumpTooBig := cogit JumpAboveOrEqual: 0. + "Add format to classIndex/format half header; other word contains numSlots" + cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. + cogit AddR: TempReg R: halfHeaderReg. + "write half header now; it frees halfHeaderReg" + cogit MoveR: halfHeaderReg Mw: 0 r: Arg1Reg. + "save unrounded numSlots for header" + cogit MoveR: instSpecReg R: halfHeaderReg. + "compute byte size; remember 0-sized objects still need 1 slot & allocation is + rounded up to 8 bytes." + cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" + jumpHasSlots := cogit JumpNonZero: 0. + cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. + skip := cogit Jump: 0. + "round up to allocationUnit" + jumpHasSlots jmpTarget: + (cogit MoveR: byteSizeReg R: TempReg). + cogit AndCq: 1 R: TempReg. + cogit AddR: TempReg R: byteSizeReg. + cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg. + cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. + skip jmpTarget: + "shift halfHeaderReg to put numSlots in correct place" + (cogit LogicalShiftLeftCq: objectMemory numSlotsHalfShift R: halfHeaderReg). + "check if allocation fits (freeSize + byteSize < scavengeThreshold); scavengeThreshold is constant." + cogit AddR: Arg1Reg R: byteSizeReg. + cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. + jumpNoSpace := cogit JumpAboveOrEqual: 0. + "write back new freeStart; get result. byteSizeReg holds new freeStart, the limit of the object" + cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + "write other half of header (numSlots/identityHash)" + cogit MoveR: halfHeaderReg Mw: 4 r: Arg1Reg. + "now fill" + cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. + cogit MoveCq: objectMemory nilObject R: fillReg. + "at least two words; so can make this a [fill 2 words. reached limit?] whileFalse" + fillLoop := + cogit MoveR: fillReg Mw: 0 r: Arg1Reg. + cogit MoveR: fillReg Mw: 4 r: Arg1Reg. + cogit AddCq: 8 R: Arg1Reg. + cogit CmpR: Arg1Reg R: byteSizeReg. + cogit JumpAbove: fillLoop. + cogit genPrimReturn. + + jumpUnhashed jmpTarget: + (jumpVariableOrEphemeron jmpTarget: + (jumpTooBig jmpTarget: + (jumpNoSpace jmpTarget: cogit Label))). + + ^0! Item was added: + ----- Method: CogObjectRepresentationFor32BitSpur>>genPrimitiveNewWithArg (in category 'primitive generators') ----- + genPrimitiveNewWithArg + "Implement primitiveNewWithArg for convenient cases: + - the receiver has a hash + - the receiver is variable and not compiled method + - single word header/num slots < numSlotsMask + - the result fits in eden + See superclass method for dynamic frequencies of formats. + For the moment we implement only arrayFormat, firstByteFormat & firstLongFormat" + + | halfHeaderReg fillReg instSpecReg byteSizeReg maxSlots + jumpArrayTooBig jumpByteTooBig jumpLongTooBig + jumpArrayFormat jumpByteFormat jumpBytePrepDone jumpLongPrepDone + jumpUnhashed jumpNElementsNonInt jumpFailCuzFixed jumpNoSpace jumpHasSlots fillLoop skip | + <var: 'skip' type: #'AbstractInstruction *'> + <var: 'fillLoop' type: #'AbstractInstruction *'> + <var: 'jumpHasSlots' type: #'AbstractInstruction *'> + <var: 'jumpNoSpace' type: #'AbstractInstruction *'> + <var: 'jumpUnhashed' type: #'AbstractInstruction *'> + <var: 'jumpByteFormat' type: #'AbstractInstruction *'> + <var: 'jumpByteTooBig' type: #'AbstractInstruction *'> + <var: 'jumpLongTooBig' type: #'AbstractInstruction *'> + <var: 'jumpArrayFormat' type: #'AbstractInstruction *'> + <var: 'jumpArrayTooBig' type: #'AbstractInstruction *'> + <var: 'jumpFailCuzFixed' type: #'AbstractInstruction *'> + <var: 'jumpBytePrepDone' type: #'AbstractInstruction *'> + <var: 'jumpLongPrepDone' type: #'AbstractInstruction *'> + <var: 'jumpNElementsNonInt' type: #'AbstractInstruction *'> + + NewspeakVM ifTrue: + [cogit methodNumArgs = 2 ifTrue: + [^self genPrimitiveMirrorNewWithArg]]. + cogit methodNumArgs ~= 1 ifTrue: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + + "half header will contain 1st half of header (classIndex/class's hash & format), + then 2nd half of header (numSlots) and finally fill value (nilObject)." + halfHeaderReg := fillReg := SendNumArgsReg. + "inst spec will hold class's instance specification and then byte size and finally numSlots half of header" + instSpecReg := byteSizeReg := ClassReg. + "The max slots we'll allocate here are those for a single header" + maxSlots := objectMemory numSlotsMask - 1. + + "get freeStart as early as possible so as not to wait later..." + cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. + "get class's hash & fail if 0" + self genGetHashFieldNonImmOf: ReceiverResultReg into: halfHeaderReg. + jumpUnhashed := cogit JumpZero: 0. + "get index and fail if not a +ve integer" + jumpNElementsNonInt := self genJumpNotSmallInteger: Arg0Reg. + "get class's format inst var for inst spec (format field)" + self genLoadSlot: InstanceSpecificationIndex sourceReg: ReceiverResultReg destReg: instSpecReg. + cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth + self numSmallIntegerTagBits R: instSpecReg. + cogit AndCq: objectMemory formatMask R: instSpecReg. + "Add format to classIndex/format half header now" + cogit MoveR: instSpecReg R: TempReg. + cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. + cogit AddR: TempReg R: halfHeaderReg. + "get integer value of num fields in TempReg now" + cogit MoveR: Arg0Reg R: TempReg. + self genConvertSmallIntegerToIntegerInReg: TempReg. + "dispatch on format, failing if not variable or if compiled method" + cogit CmpCq: objectMemory arrayFormat R: instSpecReg. + jumpArrayFormat := cogit JumpZero: 0. + cogit CmpCq: objectMemory firstByteFormat R: instSpecReg. + jumpByteFormat := cogit JumpZero: 0. + cogit CmpCq: objectMemory firstLongFormat R: instSpecReg. + jumpFailCuzFixed := cogit JumpNonZero: 0. + + cogit CmpCq: (objectMemory integerObjectOf: maxSlots) R: Arg0Reg. + jumpLongTooBig := cogit JumpAbove: 0. + "save num elements/slot size to instSpecReg" + cogit MoveR: TempReg R: instSpecReg. + "push fill value" + cogit PushCq: 0. + jumpLongPrepDone := cogit Jump: 0. "go allocate" + + jumpByteFormat jmpTarget: + (cogit CmpCq: (objectMemory integerObjectOf: maxSlots * objectMemory wordSize) R: Arg0Reg). + jumpByteTooBig := cogit JumpAbove: 0. + "save num elements to instSpecReg" + cogit MoveR: TempReg R: instSpecReg. + "compute odd bits and add into halfHeaderReg; oddBits := 4 - nElements bitAnd: 3" + cogit MoveCq: objectMemory wordSize R: TempReg. + cogit SubR: instSpecReg R: TempReg. + cogit AndCq: objectMemory wordSize - 1 R: TempReg. + cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. + cogit AddR: TempReg R: halfHeaderReg. + "round up num elements to numSlots in instSpecReg" + cogit AddCq: objectMemory wordSize - 1 R: instSpecReg. + cogit LogicalShiftRightCq: objectMemory shiftForWord R: instSpecReg. + "push fill value" + cogit PushCq: 0. + jumpBytePrepDone := cogit Jump: 0. "go allocate" + + jumpArrayFormat jmpTarget: + (cogit CmpCq: (objectMemory integerObjectOf: maxSlots) R: Arg0Reg). + jumpArrayTooBig := cogit JumpAbove: 0. + "save num elements/slot size to instSpecReg" + cogit MoveR: TempReg R: instSpecReg. + "push fill value" + cogit PushCw: objectMemory nilObject. + "fall through to allocate" + + jumpBytePrepDone jmpTarget: + (jumpLongPrepDone jmpTarget: cogit Label). + + "write half header now; it frees halfHeaderReg" + cogit MoveR: halfHeaderReg Mw: 0 r: Arg1Reg. + "save numSlots to halfHeaderReg" + cogit MoveR: instSpecReg R: halfHeaderReg. + "compute byte size; remember 0-sized objects still need 1 slot & allocation is + rounded up to 8 bytes." + cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" + jumpHasSlots := cogit JumpNonZero: 0. + cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. + skip := cogit Jump: 0. + "round up to allocationUnit" + jumpHasSlots jmpTarget: + (cogit MoveR: byteSizeReg R: TempReg). + cogit AndCq: 1 R: TempReg. + cogit AddR: TempReg R: byteSizeReg. + cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg. + cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. + skip jmpTarget: + "shift halfHeaderReg to put numSlots in correct place" + (cogit LogicalShiftLeftCq: objectMemory numSlotsHalfShift R: halfHeaderReg). + "check if allocation fits" + cogit AddR: Arg1Reg R: byteSizeReg. + cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. + jumpNoSpace := cogit JumpAboveOrEqual: 0. + "get result, increment freeStart and write it back. Arg1Reg holds new freeStart, the limit of the object" + cogit MoveR: Arg1Reg R: ReceiverResultReg. + cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. + "write other half of header (numSlots/0 identityHash)" + cogit MoveR: halfHeaderReg Mw: 4 r: ReceiverResultReg. + "now fill" + cogit PopR: fillReg. + cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. + "at least two words; so can make this a [fill 2 words. reached limit?] whileFalse" + fillLoop := + cogit MoveR: fillReg Mw: 0 r: Arg1Reg. + cogit MoveR: fillReg Mw: 4 r: Arg1Reg. + cogit AddCq: 8 R: Arg1Reg. + cogit CmpR: Arg1Reg R: byteSizeReg. + cogit JumpAbove: fillLoop. + cogit genPrimReturn. + + "pop discarded fill value & fall through to failure" + jumpNoSpace jmpTarget: (cogit PopR: TempReg). + + jumpUnhashed jmpTarget: + (jumpFailCuzFixed jmpTarget: + (jumpArrayTooBig jmpTarget: + (jumpByteTooBig jmpTarget: + (jumpLongTooBig jmpTarget: + (jumpNElementsNonInt jmpTarget: cogit Label))))). + + ^0! Item was added: + ----- Method: CogObjectRepresentationFor32BitSpur>>genPrimitiveStringAtPut (in category 'primitive generators') ----- + genPrimitiveStringAtPut + "Implement the guts of primitiveStringAtPut" + | formatReg jumpBadIndex jumpBadArg jumpWordsDone jumpBytesOutOfRange + jumpIsBytes jumpNotString jumpIsCompiledMethod jumpImmutable + jumpBytesOutOfBounds jumpWordsOutOfBounds jumpShortsUnsupported | + <inline: true> + "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" + <var: #jumpBadArg type: #'AbstractInstruction *'> + <var: #jumpIsBytes type: #'AbstractInstruction *'> + <var: #jumpBadIndex type: #'AbstractInstruction *'> + <var: #jumpWordsDone type: #'AbstractInstruction *'> + <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpShortsUnsupported type: #'AbstractInstruction *'> + <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> + + cogit genLoadArgAtDepth: 1 into: Arg0Reg. + cogit genLoadArgAtDepth: 0 into: Arg1Reg. + + jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg. + cogit MoveR: Arg1Reg R: TempReg. + jumpBadArg := self genJumpNotCharacterInScratchReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: Arg0Reg. + cogit SubCq: 1 R: Arg0Reg. "1-rel => 0-rel" + + "formatReg := self formatOf: ReceiverResultReg" + self cppIf: IMMUTABILITY + ifTrue: + [ self genGetFormatOf: ReceiverResultReg + into: (formatReg := SendNumArgsReg) + leastSignificantHalfOfBaseHeaderIntoScratch: TempReg. + jumpImmutable := self genJumpBaseHeaderImmutable: TempReg ] + ifFalse: + [ self genGetFormatOf: ReceiverResultReg + into: (formatReg := SendNumArgsReg) + leastSignificantHalfOfBaseHeaderIntoScratch: NoReg ]. + + self genGetNumSlotsOf: ReceiverResultReg into: ClassReg. + + "dispatch on format; words and/or bytes. + 0 to 8 = pointer objects, forwarders, reserved. + 9 (?) 64-bit indexable + 10 - 11 32-bit indexable + 12 - 15 16-bit indexable (but unused) + 16 - 23 byte indexable + 24 - 31 compiled method" + cogit CmpCq: objectMemory firstLongFormat R: formatReg. + jumpNotString := cogit JumpBelowOrEqual: 0. + cogit CmpCq: objectMemory firstCompiledMethodFormat R: formatReg. + jumpIsCompiledMethod := cogit JumpAboveOrEqual: 0. + cogit CmpCq: objectMemory firstByteFormat R: formatReg. + jumpIsBytes := cogit JumpGreaterOrEqual: 0. + cogit CmpCq: objectMemory firstShortFormat R: formatReg. + jumpShortsUnsupported := cogit JumpGreaterOrEqual: 0. + + cogit CmpR: Arg0Reg R: ClassReg. + jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit MoveR: Arg1Reg R: TempReg. + self genConvertSmallIntegerToIntegerInReg: TempReg. + cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg0Reg. + cogit MoveR: TempReg Xwr: Arg0Reg R: ReceiverResultReg. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + jumpWordsDone := cogit Jump: 0. + + "there are no shorts as yet. so this is dead code: + jumpIsShorts jmpTarget: + (cogit CmpCq: (objectMemory integerObjectOf: 65535) R: Arg1Reg). + jumpShortsOutOfRange := cogit JumpAbove: 0. + cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: ClassReg. + cogit AndCq: 1 R: formatReg. + cogit SubR: formatReg R: ClassReg; + CmpR: Arg0Reg R: ClassReg. + jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit MoveR: Arg1Reg R: TempReg. + cogit genConvertSmallIntegerToIntegerInReg: TempReg. + cogit AddR: Arg0Reg R: ReceiverResultReg. + cogit MoveR: TempReg M16: objectMemory baseHeaderSize r: ReceiverResultReg. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + jumpShortsDone := cogit Jump: 0." + + jumpIsBytes jmpTarget: + (cogit CmpCq: (objectMemory characterObjectOf: 255) R: Arg1Reg). + jumpBytesOutOfRange := cogit JumpAbove: 0. + cogit LogicalShiftLeftCq: objectMemory shiftForWord R: ClassReg. + cogit AndCq: objectMemory wordSize - 1 R: formatReg. + cogit SubR: formatReg R: ClassReg; + CmpR: Arg0Reg R: ClassReg. + jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit MoveR: Arg1Reg R: TempReg. + self genConvertCharacterToCodeInReg: TempReg. + cogit AddCq: objectMemory baseHeaderSize R: Arg0Reg. + cogit MoveR: TempReg Xbr: Arg0Reg R: ReceiverResultReg. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + + jumpWordsDone jmpTarget: cogit genPrimReturn. + + jumpBadArg jmpTarget: + (jumpNotString jmpTarget: + (jumpBytesOutOfRange jmpTarget: + (jumpIsCompiledMethod jmpTarget: + (jumpBytesOutOfBounds jmpTarget: + (jumpShortsUnsupported jmpTarget: + (jumpWordsOutOfBounds jmpTarget: cogit Label)))))). + + self cppIf: IMMUTABILITY + ifTrue: [jumpImmutable jmpTarget: cogit Label]. + + cogit AddCq: 1 R: Arg0Reg. "0-rel => 1-rel" + self genConvertIntegerToSmallIntegerInReg: Arg0Reg. + + jumpBadIndex jmpTarget: cogit Label. + + ^0! Item was removed: - ----- Method: CogObjectRepresentationFor64BitSpur>>genInnerPrimitiveAt: (in category 'primitive generators') ----- - genInnerPrimitiveAt: retNoffset - "Implement the guts of primitiveAt" - | formatReg convertToIntAndReturn - jumpNotIndexable jumpImmediate jumpBadIndex - jumpIsBytes jumpIsShorts jumpIsWords jumpIsArray jumpHasFixedFields jumpIsContext - jumpBytesOutOfBounds jumpShortsOutOfBounds jumpWordsOutOfBounds jumpArrayOutOfBounds jumpFixedFieldsOutOfBounds | - <inline: true> - "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" - <var: #jumpIsBytes type: #'AbstractInstruction *'> - <var: #jumpIsShorts type: #'AbstractInstruction *'> - <var: #jumpBadIndex type: #'AbstractInstruction *'> - <var: #jumpIsContext type: #'AbstractInstruction *'> - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpNotIndexable type: #'AbstractInstruction *'> - <var: #jumpHasFixedFields type: #'AbstractInstruction *'> - <var: #convertToIntAndReturn type: #'AbstractInstruction *'> - <var: #jumpArrayOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpShortsOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpFixedFieldsOutOfBounds type: #'AbstractInstruction *'> - - jumpImmediate := self genJumpImmediate: ReceiverResultReg. - cogit MoveR: Arg0Reg R: Arg1Reg. - jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - self genConvertSmallIntegerToIntegerInReg: Arg1Reg. - cogit SubCq: 1 R: Arg1Reg. "1-rel => 0-rel" - - "formatReg := self formatOf: ReceiverResultReg" - self genGetFormatOf: ReceiverResultReg - into: (formatReg := SendNumArgsReg) - leastSignificantHalfOfBaseHeaderIntoScratch: TempReg. - - self genGetNumSlotsOf: ReceiverResultReg into: ClassReg. - - "dispatch on format in a combination of highest dynamic frequency order first and convenience. - 0 = 0 sized objects (UndefinedObject True False et al) - 1 = non-indexable objects with inst vars (Point et al) - 2 = indexable objects with no inst vars (Array et al) - 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) - 4 = weak indexable objects with inst vars (WeakArray et al) - 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) - 6 unused, reserved for exotic pointer objects? - 7 Forwarded Object, 1st field is pointer, rest of fields are ignored - 8 unused, reserved for exotic non-pointer objects? - 9 (?) 64-bit indexable - 10 - 11 32-bit indexable - 12 - 15 16-bit indexable - 16 - 23 byte indexable - 24 - 31 compiled method" - cogit CmpCq: objectMemory firstByteFormat R: formatReg. - jumpIsBytes := cogit JumpAboveOrEqual: 0. - cogit CmpCq: objectMemory arrayFormat R: formatReg. - jumpIsArray := cogit JumpZero: 0. - jumpNotIndexable := cogit JumpBelow: 0. - cogit CmpCq: objectMemory weakArrayFormat R: formatReg. - jumpHasFixedFields := cogit JumpBelowOrEqual: 0. - cogit CmpCq: objectMemory firstShortFormat R: formatReg. - jumpIsShorts := cogit JumpAboveOrEqual: 0. - cogit CmpCq: objectMemory firstLongFormat R: formatReg. - jumpIsWords := cogit JumpAboveOrEqual: 0. - "For now ignore 64-bit indexability." - jumpNotIndexable jmpTarget: cogit Label. - jumpNotIndexable := cogit Jump: 0. - - jumpIsBytes jmpTarget: - (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: ClassReg). - cogit AndCq: objectMemory wordSize - 1 R: formatReg. - cogit SubR: formatReg R: ClassReg; - CmpR: Arg1Reg R: ClassReg. - jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddCq: objectMemory baseHeaderSize R: Arg1Reg. - cogit backEnd byteReadsZeroExtend - ifTrue: - [cogit MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg] - ifFalse: - [cogit "formatReg already contains a value <= 16r1f, so no need to zero it" - MoveXbr: Arg1Reg R: ReceiverResultReg R: formatReg; - MoveR: formatReg R: ReceiverResultReg]. - convertToIntAndReturn := cogit Label. - self genConvertIntegerToSmallIntegerInReg: ReceiverResultReg. - cogit RetN: retNoffset. - - jumpIsShorts jmpTarget: - (cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: ClassReg). - cogit AndCq: 1 R: formatReg. - cogit SubR: formatReg R: ClassReg; - CmpR: Arg1Reg R: ClassReg. - jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddR: Arg1Reg R: ReceiverResultReg. - cogit MoveM16: objectMemory baseHeaderSize r: ReceiverResultReg R: ReceiverResultReg. - cogit Jump: convertToIntAndReturn. - - jumpIsWords jmpTarget: - (cogit CmpR: Arg1Reg R: ClassReg). - jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddCq: objectMemory baseHeaderSize >> (objectMemory shiftForWord - 1) R: Arg1Reg. - cogit MoveX32r: Arg1Reg R: ReceiverResultReg R: TempReg. - cogit MoveR: TempReg R: ReceiverResultReg. - cogit Jump: convertToIntAndReturn. - - jumpHasFixedFields jmpTarget: - (cogit AndCq: objectMemory classIndexMask R: TempReg). - cogit MoveR: TempReg R: formatReg. - cogit CmpCq: ClassMethodContextCompactIndex R: TempReg. - jumpIsContext := cogit JumpZero: 0. - self genGetClassObjectOfClassIndex: formatReg into: Scratch0Reg scratchReg: TempReg. - self genLoadSlot: InstanceSpecificationIndex sourceReg: Scratch0Reg destReg: formatReg. - self genConvertSmallIntegerToIntegerInReg: formatReg. - cogit - AndCq: objectMemory fixedFieldsOfClassFormatMask R: formatReg; - SubR: formatReg R: ClassReg; - CmpR: Arg1Reg R: ClassReg. - jumpFixedFieldsOutOfBounds := cogit JumpBelowOrEqual: 0. - "index is (formatReg (fixed fields) + Arg1Reg (0-rel index)) * wordSize + baseHeaderSize" - cogit AddR: formatReg R: Arg1Reg. - cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. - cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. - cogit RetN: retNoffset. - - jumpIsArray jmpTarget: - (cogit CmpR: Arg1Reg R: ClassReg). - jumpArrayOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. - cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. - cogit RetN: retNoffset. - - jumpFixedFieldsOutOfBounds jmpTarget: - (jumpArrayOutOfBounds jmpTarget: - (jumpBytesOutOfBounds jmpTarget: - (jumpShortsOutOfBounds jmpTarget: - (jumpWordsOutOfBounds jmpTarget: - (jumpNotIndexable jmpTarget: - (jumpIsContext jmpTarget: - (jumpBadIndex jmpTarget: - (jumpImmediate jmpTarget: cogit Label)))))))). - - ^0! Item was removed: - ----- Method: CogObjectRepresentationFor64BitSpur>>genInnerPrimitiveIdentityHash: (in category 'primitive generators') ----- - genInnerPrimitiveIdentityHash: retNoffset - | jumpImm jumpSF jumpNotSet ret | - <var: #jumpSF type: #'AbstractInstruction *'> - <var: #jumpImm type: #'AbstractInstruction *'> - <var: #jumpNotSet type: #'AbstractInstruction *'> - jumpImm := self genJumpImmediate: ReceiverResultReg. "uses TstCqR" - self genGetHashFieldNonImmOf: ReceiverResultReg asSmallIntegerInto: TempReg. - cogit CmpCq: ConstZero R: TempReg. - jumpNotSet := cogit JumpZero: 0. - cogit MoveR: TempReg R: ReceiverResultReg. - ret := cogit RetN: retNoffset. - jumpImm jmpTarget: cogit Label. - jumpSF := cogit "Fail SmallFloat because their hash uses rotatedFloatBitsOf: the oop" - AndCq: objectMemory tagMask R: ReceiverResultReg R: TempReg; - CmpCq: objectMemory smallIntegerTag R: TempReg; - JumpZero: ret; - CmpCq: objectMemory characterTag R: TempReg; - JumpNonZero: 0. - self genConvertCharacterToSmallIntegerInReg: ReceiverResultReg. - cogit Jump: ret. - jumpNotSet jmpTarget: (jumpSF jmpTarget: cogit Label). - ^0! Item was removed: - ----- Method: CogObjectRepresentationFor64BitSpur>>genInnerPrimitiveNew: (in category 'primitive generators') ----- - genInnerPrimitiveNew: retNoffset - "Implement primitiveNew for convenient cases: - - the receiver has a hash - - the receiver is fixed size (excluding ephemerons to save instructions & miniscule time) - - single word header/num slots < numSlotsMask - - the result fits in eden (actually below scavengeThreshold)" - - | headerReg fillReg instSpecReg byteSizeReg - jumpUnhashed jumpVariableOrEphemeron jumpNoSpace jumpTooBig jumpHasSlots - fillLoop skip | - <var: 'skip' type: #'AbstractInstruction *'> - <var: 'fillLoop' type: #'AbstractInstruction *'> - <var: 'jumpTooBig' type: #'AbstractInstruction *'> - <var: 'jumpHasSlots' type: #'AbstractInstruction *'> - <var: 'jumpNoSpace' type: #'AbstractInstruction *'> - <var: 'jumpUnhashed' type: #'AbstractInstruction *'> - <var: 'jumpVariableOrEphemeron' type: #'AbstractInstruction *'> - - "header will contain classIndex/class's hash & format & numSlots/fixed size and finally fill value (nilObject)." - headerReg := fillReg := SendNumArgsReg. - "inst spec will hold class's instance specification, then byte size and finally end of new object." - instSpecReg := byteSizeReg := ClassReg. - - "get freeStart as early as possible so as not to wait later..." - cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. - "get class's hash & fail if 0" - self genGetHashFieldNonImmOf: ReceiverResultReg into: headerReg. - jumpUnhashed := cogit JumpZero: 0. - "get class's format inst var for both inst spec (format field) and num fixed fields" - self genLoadSlot: InstanceSpecificationIndex sourceReg: ReceiverResultReg destReg: TempReg. - self genConvertSmallIntegerToIntegerInReg: TempReg. - cogit MoveR: TempReg R: instSpecReg. - cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth R: TempReg. - cogit AndCq: objectMemory formatMask R: TempReg. - cogit AndCq: objectMemory fixedFieldsOfClassFormatMask R: instSpecReg. - "fail if not fixed or if ephemeron (rare beasts so save the cycles)" - cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg. - jumpVariableOrEphemeron := cogit JumpAbove: 0. - cogit CmpCq: objectMemory numSlotsMask R: instSpecReg. - jumpTooBig := cogit JumpAboveOrEqual: 0. - "Add format to classIndex/format in header; the add in numSlots" - cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. - cogit AddR: TempReg R: headerReg. - cogit MoveR: instSpecReg R: TempReg. - cogit LogicalShiftLeftCq: objectMemory numSlotsFullShift R: TempReg. - cogit AddR: TempReg R: headerReg. - "compute byte size; remember 0-sized objects still need 1 slot." - cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" - jumpHasSlots := cogit JumpNonZero: 0. - cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. - skip := cogit Jump: 0. - "round up to allocationUnit" - jumpHasSlots jmpTarget: - (cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg). - cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. - skip jmpTarget: - "check if allocation fits (freeSize + byteSize < scavengeThreshold); scavengeThreshold is constant." - (cogit AddR: Arg1Reg R: byteSizeReg). - cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. - jumpNoSpace := cogit JumpAboveOrEqual: 0. - "write back new freeStart; get result. byteSizeReg holds new freeStart, the limit of the object" - cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. - cogit MoveR: Arg1Reg R: ReceiverResultReg. - "write header" - cogit MoveR: headerReg Mw: 0 r: Arg1Reg. - "now fill" - cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. - cogit MoveCq: objectMemory nilObject R: fillReg. - fillLoop := - cogit MoveR: fillReg Mw: 0 r: Arg1Reg. - cogit AddCq: 8 R: Arg1Reg. - cogit CmpR: Arg1Reg R: byteSizeReg. - cogit JumpAbove: fillLoop. - cogit RetN: retNoffset. - - jumpUnhashed jmpTarget: - (jumpVariableOrEphemeron jmpTarget: - (jumpTooBig jmpTarget: - (jumpNoSpace jmpTarget: cogit Label))). - - ^0! Item was removed: - ----- Method: CogObjectRepresentationFor64BitSpur>>genInnerPrimitiveNewWithArg: (in category 'primitive generators') ----- - genInnerPrimitiveNewWithArg: retNoffset - "Implement primitiveNewWithArg for convenient cases: - - the receiver has a hash - - the receiver is variable and not compiled method - - single word header/num slots < numSlotsMask - - the result fits in eden - See superclass method for dynamic frequencies of formats. - For the moment we implement only arrayFormat, firstByteFormat & firstLongFormat" - - | headerReg fillReg instSpecReg byteSizeReg maxSlots - jumpArrayTooBig jumpByteTooBig jumpLongTooBig - jumpArrayFormat jumpByteFormat jumpBytePrepDone jumpLongPrepDone - jumpUnhashed jumpNElementsNonInt jumpFailCuzFixed jumpNoSpace jumpHasSlots fillLoop skip | - <var: 'skip' type: #'AbstractInstruction *'> - <var: 'fillLoop' type: #'AbstractInstruction *'> - <var: 'jumpHasSlots' type: #'AbstractInstruction *'> - <var: 'jumpNoSpace' type: #'AbstractInstruction *'> - <var: 'jumpUnhashed' type: #'AbstractInstruction *'> - <var: 'jumpByteFormat' type: #'AbstractInstruction *'> - <var: 'jumpByteTooBig' type: #'AbstractInstruction *'> - <var: 'jumpLongTooBig' type: #'AbstractInstruction *'> - <var: 'jumpArrayFormat' type: #'AbstractInstruction *'> - <var: 'jumpArrayTooBig' type: #'AbstractInstruction *'> - <var: 'jumpFailCuzFixed' type: #'AbstractInstruction *'> - <var: 'jumpBytePrepDone' type: #'AbstractInstruction *'> - <var: 'jumpLongPrepDone' type: #'AbstractInstruction *'> - <var: 'jumpNElementsNonInt' type: #'AbstractInstruction *'> - - "header will contain classIndex/class's hash & format & numSlots/fixed size" - headerReg := SendNumArgsReg. - "Assume there's an available scratch register on 64-bit machines. This holds the saved numFixedFields and then the value to fill with" - fillReg := Scratch0Reg. - self assert: fillReg > 0. - "inst spec will hold class's instance specification and then byte size" - instSpecReg := byteSizeReg := ClassReg. - "The max slots we'll allocate here are those for a single header" - maxSlots := objectMemory numSlotsMask - 1. - - "get freeStart as early as possible so as not to wait later..." - cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. - "get class's hash & fail if 0" - self genGetHashFieldNonImmOf: ReceiverResultReg into: headerReg. - jumpUnhashed := cogit JumpZero: 0. - "get index and fail if not a +ve integer" - jumpNElementsNonInt := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - "get class's format inst var for inst spec (format field)" - self genLoadSlot: InstanceSpecificationIndex sourceReg: ReceiverResultReg destReg: instSpecReg. - cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth + self numSmallIntegerTagBits R: instSpecReg. - cogit AndCq: objectMemory formatMask R: instSpecReg. - "Add format to classIndex/format header now" - cogit MoveR: instSpecReg R: TempReg. - cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. - cogit AddR: TempReg R: headerReg. - "get integer value of num fields in fillReg now" - cogit MoveR: Arg0Reg R: fillReg. - self genConvertSmallIntegerToIntegerInReg: fillReg. - "dispatch on format, failing if not variable or if compiled method" - cogit CmpCq: objectMemory arrayFormat R: instSpecReg. - jumpArrayFormat := cogit JumpZero: 0. - cogit CmpCq: objectMemory firstByteFormat R: instSpecReg. - jumpByteFormat := cogit JumpZero: 0. - cogit CmpCq: objectMemory firstLongFormat R: instSpecReg. - jumpFailCuzFixed := cogit JumpNonZero: 0. - - cogit CmpCq: (objectMemory integerObjectOf: maxSlots * 2) R: Arg0Reg. - jumpLongTooBig := cogit JumpAbove: 0. - "save num elements/slot size to instSpecReg" - cogit MoveR: fillReg R: instSpecReg. - "compute odd bits and add into headerReg; oddBits := 2 - nElements bitAnd: 1" - cogit MoveCq: objectMemory wordSize / 4 R: TempReg. - cogit SubR: instSpecReg R: TempReg. - cogit AndCq: objectMemory wordSize / 4 - 1 R: TempReg. - cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. - cogit AddR: TempReg R: headerReg. - "round up num elements to numSlots in instSpecReg" - cogit AddCq: objectMemory wordSize / 4 - 1 R: instSpecReg. - cogit LogicalShiftRightCq: objectMemory shiftForWord - 2 R: instSpecReg. - cogit MoveCq: 0 R: fillReg. - jumpLongPrepDone := cogit Jump: 0. "go allocate" - - jumpByteFormat jmpTarget: - (cogit CmpCq: (objectMemory integerObjectOf: maxSlots * objectMemory wordSize) R: Arg0Reg). - jumpByteTooBig := cogit JumpAbove: 0. - "save num elements to instSpecReg" - cogit MoveR: fillReg R: instSpecReg. - "compute odd bits and add into headerReg; oddBits := 4 - nElements bitAnd: 3" - cogit MoveCq: objectMemory wordSize R: TempReg. - cogit SubR: instSpecReg R: TempReg. - cogit AndCq: objectMemory wordSize - 1 R: TempReg. - cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. - cogit AddR: TempReg R: headerReg. - "round up num elements to numSlots in instSpecReg" - cogit AddCq: objectMemory wordSize - 1 R: instSpecReg. - cogit LogicalShiftRightCq: objectMemory shiftForWord R: instSpecReg. - cogit MoveCq: 0 R: fillReg. - jumpBytePrepDone := cogit Jump: 0. "go allocate" - - jumpArrayFormat jmpTarget: - (cogit CmpCq: (objectMemory integerObjectOf: maxSlots) R: Arg0Reg). - jumpArrayTooBig := cogit JumpAbove: 0. - "save num elements/slot size to instSpecReg" - cogit MoveR: fillReg R: instSpecReg. - cogit MoveCq: objectMemory nilObject R: fillReg. - "fall through to allocate" - - jumpBytePrepDone jmpTarget: - (jumpLongPrepDone jmpTarget: cogit Label). - - "store numSlots to headerReg" - cogit MoveR: instSpecReg R: TempReg. - cogit LogicalShiftLeftCq: objectMemory numSlotsFullShift R: TempReg. - cogit AddR: TempReg R: headerReg. - "compute byte size; remember 0-sized objects still need 1 slot." - cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" - jumpHasSlots := cogit JumpNonZero: 0. - cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. - skip := cogit Jump: 0. - jumpHasSlots jmpTarget: - (cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg). - cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. - skip jmpTarget: - "check if allocation fits" - (cogit AddR: Arg1Reg R: byteSizeReg). - cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. - jumpNoSpace := cogit JumpAboveOrEqual: 0. - "get result, increment freeStart and write it back. Arg1Reg holds new freeStart, the limit of the object" - cogit MoveR: Arg1Reg R: ReceiverResultReg. - cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. - "write other half of header (numSlots/0 identityHash)" - cogit MoveR: headerReg Mw: 0 r: ReceiverResultReg. - "now fill" - cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. - fillLoop := - cogit MoveR: fillReg Mw: 0 r: Arg1Reg. - cogit AddCq: 8 R: Arg1Reg. - cogit CmpR: Arg1Reg R: byteSizeReg. - cogit JumpAbove: fillLoop. - cogit RetN: retNoffset. - - jumpNoSpace jmpTarget: - (jumpUnhashed jmpTarget: - (jumpFailCuzFixed jmpTarget: - (jumpArrayTooBig jmpTarget: - (jumpByteTooBig jmpTarget: - (jumpLongTooBig jmpTarget: - (jumpNElementsNonInt jmpTarget: cogit Label)))))). - - ^0! Item was added: + ----- Method: CogObjectRepresentationFor64BitSpur>>genPrimitiveAt (in category 'primitive generators') ----- + genPrimitiveAt + | formatReg convertToIntAndReturn + jumpNotIndexable jumpImmediate jumpBadIndex + jumpIsBytes jumpIsShorts jumpIsWords jumpIsArray jumpHasFixedFields jumpIsContext + jumpBytesOutOfBounds jumpShortsOutOfBounds jumpWordsOutOfBounds jumpArrayOutOfBounds jumpFixedFieldsOutOfBounds | + <inline: true> + "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" + <var: #jumpIsBytes type: #'AbstractInstruction *'> + <var: #jumpIsShorts type: #'AbstractInstruction *'> + <var: #jumpBadIndex type: #'AbstractInstruction *'> + <var: #jumpIsContext type: #'AbstractInstruction *'> + <var: #jumpImmediate type: #'AbstractInstruction *'> + <var: #jumpNotIndexable type: #'AbstractInstruction *'> + <var: #jumpHasFixedFields type: #'AbstractInstruction *'> + <var: #convertToIntAndReturn type: #'AbstractInstruction *'> + <var: #jumpArrayOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpShortsOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpFixedFieldsOutOfBounds type: #'AbstractInstruction *'> + + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpImmediate := self genJumpImmediate: ReceiverResultReg. + cogit MoveR: Arg0Reg R: Arg1Reg. + jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: Arg1Reg. + cogit SubCq: 1 R: Arg1Reg. "1-rel => 0-rel" + + "formatReg := self formatOf: ReceiverResultReg" + self genGetFormatOf: ReceiverResultReg + into: (formatReg := SendNumArgsReg) + leastSignificantHalfOfBaseHeaderIntoScratch: TempReg. + + self genGetNumSlotsOf: ReceiverResultReg into: ClassReg. + + "dispatch on format in a combination of highest dynamic frequency order first and convenience. + 0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 unused, reserved for exotic pointer objects? + 7 Forwarded Object, 1st field is pointer, rest of fields are ignored + 8 unused, reserved for exotic non-pointer objects? + 9 (?) 64-bit indexable + 10 - 11 32-bit indexable + 12 - 15 16-bit indexable + 16 - 23 byte indexable + 24 - 31 compiled method" + cogit CmpCq: objectMemory firstByteFormat R: formatReg. + jumpIsBytes := cogit JumpAboveOrEqual: 0. + cogit CmpCq: objectMemory arrayFormat R: formatReg. + jumpIsArray := cogit JumpZero: 0. + jumpNotIndexable := cogit JumpBelow: 0. + cogit CmpCq: objectMemory weakArrayFormat R: formatReg. + jumpHasFixedFields := cogit JumpBelowOrEqual: 0. + cogit CmpCq: objectMemory firstShortFormat R: formatReg. + jumpIsShorts := cogit JumpAboveOrEqual: 0. + cogit CmpCq: objectMemory firstLongFormat R: formatReg. + jumpIsWords := cogit JumpAboveOrEqual: 0. + "For now ignore 64-bit indexability." + jumpNotIndexable jmpTarget: cogit Label. + jumpNotIndexable := cogit Jump: 0. + + jumpIsBytes jmpTarget: + (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: ClassReg). + cogit AndCq: objectMemory wordSize - 1 R: formatReg. + cogit SubR: formatReg R: ClassReg; + CmpR: Arg1Reg R: ClassReg. + jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddCq: objectMemory baseHeaderSize R: Arg1Reg. + cogit backEnd byteReadsZeroExtend + ifTrue: + [cogit MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg] + ifFalse: + [cogit "formatReg already contains a value <= 16r1f, so no need to zero it" + MoveXbr: Arg1Reg R: ReceiverResultReg R: formatReg; + MoveR: formatReg R: ReceiverResultReg]. + convertToIntAndReturn := cogit Label. + self genConvertIntegerToSmallIntegerInReg: ReceiverResultReg. + cogit genPrimReturn. + + jumpIsShorts jmpTarget: + (cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: ClassReg). + cogit AndCq: 1 R: formatReg. + cogit SubR: formatReg R: ClassReg; + CmpR: Arg1Reg R: ClassReg. + jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddR: Arg1Reg R: ReceiverResultReg. + cogit MoveM16: objectMemory baseHeaderSize r: ReceiverResultReg R: ReceiverResultReg. + cogit Jump: convertToIntAndReturn. + + jumpIsWords jmpTarget: + (cogit CmpR: Arg1Reg R: ClassReg). + jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddCq: objectMemory baseHeaderSize >> (objectMemory shiftForWord - 1) R: Arg1Reg. + cogit MoveX32r: Arg1Reg R: ReceiverResultReg R: TempReg. + cogit MoveR: TempReg R: ReceiverResultReg. + cogit Jump: convertToIntAndReturn. + + jumpHasFixedFields jmpTarget: + (cogit AndCq: objectMemory classIndexMask R: TempReg). + cogit MoveR: TempReg R: formatReg. + cogit CmpCq: ClassMethodContextCompactIndex R: TempReg. + jumpIsContext := cogit JumpZero: 0. + self genGetClassObjectOfClassIndex: formatReg into: Scratch0Reg scratchReg: TempReg. + self genLoadSlot: InstanceSpecificationIndex sourceReg: Scratch0Reg destReg: formatReg. + self genConvertSmallIntegerToIntegerInReg: formatReg. + cogit + AndCq: objectMemory fixedFieldsOfClassFormatMask R: formatReg; + SubR: formatReg R: ClassReg; + CmpR: Arg1Reg R: ClassReg. + jumpFixedFieldsOutOfBounds := cogit JumpBelowOrEqual: 0. + "index is (formatReg (fixed fields) + Arg1Reg (0-rel index)) * wordSize + baseHeaderSize" + cogit AddR: formatReg R: Arg1Reg. + cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. + cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. + cogit genPrimReturn. + + jumpIsArray jmpTarget: + (cogit CmpR: Arg1Reg R: ClassReg). + jumpArrayOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. + cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. + cogit genPrimReturn. + + jumpFixedFieldsOutOfBounds jmpTarget: + (jumpArrayOutOfBounds jmpTarget: + (jumpBytesOutOfBounds jmpTarget: + (jumpShortsOutOfBounds jmpTarget: + (jumpWordsOutOfBounds jmpTarget: + (jumpNotIndexable jmpTarget: + (jumpIsContext jmpTarget: + (jumpBadIndex jmpTarget: + (jumpImmediate jmpTarget: cogit Label)))))))). + + ^0! Item was added: + ----- Method: CogObjectRepresentationFor64BitSpur>>genPrimitiveIdentityHash (in category 'primitive generators') ----- + genPrimitiveIdentityHash + | jumpImm jumpSF jumpNotSet ret | + <var: #jumpSF type: #'AbstractInstruction *'> + <var: #jumpImm type: #'AbstractInstruction *'> + <var: #jumpNotSet type: #'AbstractInstruction *'> + jumpImm := self genJumpImmediate: ReceiverResultReg. "uses TstCqR" + self genGetHashFieldNonImmOf: ReceiverResultReg asSmallIntegerInto: TempReg. + cogit CmpCq: ConstZero R: TempReg. + jumpNotSet := cogit JumpZero: 0. + cogit MoveR: TempReg R: ReceiverResultReg. + ret := cogit genPrimReturn. + jumpImm jmpTarget: cogit Label. + jumpSF := cogit "Fail SmallFloat because their hash uses rotatedFloatBitsOf: the oop" + AndCq: objectMemory tagMask R: ReceiverResultReg R: TempReg; + CmpCq: objectMemory smallIntegerTag R: TempReg; + JumpZero: ret; + CmpCq: objectMemory characterTag R: TempReg; + JumpNonZero: 0. + self genConvertCharacterToSmallIntegerInReg: ReceiverResultReg. + cogit Jump: ret. + jumpNotSet jmpTarget: (jumpSF jmpTarget: cogit Label). + ^0! Item was added: + ----- Method: CogObjectRepresentationFor64BitSpur>>genPrimitiveNew (in category 'primitive generators') ----- + genPrimitiveNew + "Implement primitiveNew for convenient cases: + - the receiver has a hash + - the receiver is fixed size (excluding ephemerons to save instructions & miniscule time) + - single word header/num slots < numSlotsMask + - the result fits in eden (actually below scavengeThreshold)" + + | headerReg fillReg instSpecReg byteSizeReg + jumpUnhashed jumpVariableOrEphemeron jumpNoSpace jumpTooBig jumpHasSlots + fillLoop skip | + <var: 'skip' type: #'AbstractInstruction *'> + <var: 'fillLoop' type: #'AbstractInstruction *'> + <var: 'jumpTooBig' type: #'AbstractInstruction *'> + <var: 'jumpHasSlots' type: #'AbstractInstruction *'> + <var: 'jumpNoSpace' type: #'AbstractInstruction *'> + <var: 'jumpUnhashed' type: #'AbstractInstruction *'> + <var: 'jumpVariableOrEphemeron' type: #'AbstractInstruction *'> + + NewspeakVM ifTrue: + [cogit methodNumArgs = 1 ifTrue: + [^self genPrimitiveMirrorNew]]. + cogit methodNumArgs ~= 0 ifTrue: + [^UnimplementedPrimitive]. + + "header will contain classIndex/class's hash & format & numSlots/fixed size and finally fill value (nilObject)." + headerReg := fillReg := SendNumArgsReg. + "inst spec will hold class's instance specification, then byte size and finally end of new object." + instSpecReg := byteSizeReg := ClassReg. + + "get freeStart as early as possible so as not to wait later..." + cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. + "get class's hash & fail if 0" + self genGetHashFieldNonImmOf: ReceiverResultReg into: headerReg. + jumpUnhashed := cogit JumpZero: 0. + "get class's format inst var for both inst spec (format field) and num fixed fields" + self genLoadSlot: InstanceSpecificationIndex sourceReg: ReceiverResultReg destReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: TempReg. + cogit MoveR: TempReg R: instSpecReg. + cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth R: TempReg. + cogit AndCq: objectMemory formatMask R: TempReg. + cogit AndCq: objectMemory fixedFieldsOfClassFormatMask R: instSpecReg. + "fail if not fixed or if ephemeron (rare beasts so save the cycles)" + cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg. + jumpVariableOrEphemeron := cogit JumpAbove: 0. + cogit CmpCq: objectMemory numSlotsMask R: instSpecReg. + jumpTooBig := cogit JumpAboveOrEqual: 0. + "Add format to classIndex/format in header; the add in numSlots" + cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. + cogit AddR: TempReg R: headerReg. + cogit MoveR: instSpecReg R: TempReg. + cogit LogicalShiftLeftCq: objectMemory numSlotsFullShift R: TempReg. + cogit AddR: TempReg R: headerReg. + "compute byte size; remember 0-sized objects still need 1 slot." + cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" + jumpHasSlots := cogit JumpNonZero: 0. + cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. + skip := cogit Jump: 0. + "round up to allocationUnit" + jumpHasSlots jmpTarget: + (cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg). + cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. + skip jmpTarget: + "check if allocation fits (freeSize + byteSize < scavengeThreshold); scavengeThreshold is constant." + (cogit AddR: Arg1Reg R: byteSizeReg). + cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. + jumpNoSpace := cogit JumpAboveOrEqual: 0. + "write back new freeStart; get result. byteSizeReg holds new freeStart, the limit of the object" + cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. + cogit MoveR: Arg1Reg R: ReceiverResultReg. + "write header" + cogit MoveR: headerReg Mw: 0 r: Arg1Reg. + "now fill" + cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. + cogit MoveCq: objectMemory nilObject R: fillReg. + fillLoop := + cogit MoveR: fillReg Mw: 0 r: Arg1Reg. + cogit AddCq: 8 R: Arg1Reg. + cogit CmpR: Arg1Reg R: byteSizeReg. + cogit JumpAbove: fillLoop. + cogit genPrimReturn. + + jumpUnhashed jmpTarget: + (jumpVariableOrEphemeron jmpTarget: + (jumpTooBig jmpTarget: + (jumpNoSpace jmpTarget: cogit Label))). + + ^0! Item was added: + ----- Method: CogObjectRepresentationFor64BitSpur>>genPrimitiveNewWithArg (in category 'primitive generators') ----- + genPrimitiveNewWithArg + "Implement primitiveNewWithArg for convenient cases: + - the receiver has a hash + - the receiver is variable and not compiled method + - single word header/num slots < numSlotsMask + - the result fits in eden + See superclass method for dynamic frequencies of formats. + For the moment we implement only arrayFormat, firstByteFormat & firstLongFormat" + + | headerReg fillReg instSpecReg byteSizeReg maxSlots + jumpArrayTooBig jumpByteTooBig jumpLongTooBig + jumpArrayFormat jumpByteFormat jumpBytePrepDone jumpLongPrepDone + jumpUnhashed jumpNElementsNonInt jumpFailCuzFixed jumpNoSpace jumpHasSlots fillLoop skip | + <var: 'skip' type: #'AbstractInstruction *'> + <var: 'fillLoop' type: #'AbstractInstruction *'> + <var: 'jumpHasSlots' type: #'AbstractInstruction *'> + <var: 'jumpNoSpace' type: #'AbstractInstruction *'> + <var: 'jumpUnhashed' type: #'AbstractInstruction *'> + <var: 'jumpByteFormat' type: #'AbstractInstruction *'> + <var: 'jumpByteTooBig' type: #'AbstractInstruction *'> + <var: 'jumpLongTooBig' type: #'AbstractInstruction *'> + <var: 'jumpArrayFormat' type: #'AbstractInstruction *'> + <var: 'jumpArrayTooBig' type: #'AbstractInstruction *'> + <var: 'jumpFailCuzFixed' type: #'AbstractInstruction *'> + <var: 'jumpBytePrepDone' type: #'AbstractInstruction *'> + <var: 'jumpLongPrepDone' type: #'AbstractInstruction *'> + <var: 'jumpNElementsNonInt' type: #'AbstractInstruction *'> + + NewspeakVM ifTrue: + [cogit methodNumArgs = 2 ifTrue: + [^self genPrimitiveMirrorNewWithArg]]. + cogit methodNumArgs ~= 1 ifTrue: + [^UnimplementedPrimitive]. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + + "header will contain classIndex/class's hash & format & numSlots/fixed size" + headerReg := SendNumArgsReg. + "Assume there's an available scratch register on 64-bit machines. This holds the saved numFixedFields and then the value to fill with" + fillReg := Scratch0Reg. + self assert: fillReg > 0. + "inst spec will hold class's instance specification and then byte size" + instSpecReg := byteSizeReg := ClassReg. + "The max slots we'll allocate here are those for a single header" + maxSlots := objectMemory numSlotsMask - 1. + + "get freeStart as early as possible so as not to wait later..." + cogit MoveAw: objectMemory freeStartAddress R: Arg1Reg. + "get class's hash & fail if 0" + self genGetHashFieldNonImmOf: ReceiverResultReg into: headerReg. + jumpUnhashed := cogit JumpZero: 0. + "get index and fail if not a +ve integer" + jumpNElementsNonInt := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + "get class's format inst var for inst spec (format field)" + self genLoadSlot: InstanceSpecificationIndex sourceReg: ReceiverResultReg destReg: instSpecReg. + cogit LogicalShiftRightCq: objectMemory fixedFieldsFieldWidth + self numSmallIntegerTagBits R: instSpecReg. + cogit AndCq: objectMemory formatMask R: instSpecReg. + "Add format to classIndex/format header now" + cogit MoveR: instSpecReg R: TempReg. + cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. + cogit AddR: TempReg R: headerReg. + "get integer value of num fields in fillReg now" + cogit MoveR: Arg0Reg R: fillReg. + self genConvertSmallIntegerToIntegerInReg: fillReg. + "dispatch on format, failing if not variable or if compiled method" + cogit CmpCq: objectMemory arrayFormat R: instSpecReg. + jumpArrayFormat := cogit JumpZero: 0. + cogit CmpCq: objectMemory firstByteFormat R: instSpecReg. + jumpByteFormat := cogit JumpZero: 0. + cogit CmpCq: objectMemory firstLongFormat R: instSpecReg. + jumpFailCuzFixed := cogit JumpNonZero: 0. + + cogit CmpCq: (objectMemory integerObjectOf: maxSlots * 2) R: Arg0Reg. + jumpLongTooBig := cogit JumpAbove: 0. + "save num elements/slot size to instSpecReg" + cogit MoveR: fillReg R: instSpecReg. + "compute odd bits and add into headerReg; oddBits := 2 - nElements bitAnd: 1" + cogit MoveCq: objectMemory wordSize / 4 R: TempReg. + cogit SubR: instSpecReg R: TempReg. + cogit AndCq: objectMemory wordSize / 4 - 1 R: TempReg. + cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. + cogit AddR: TempReg R: headerReg. + "round up num elements to numSlots in instSpecReg" + cogit AddCq: objectMemory wordSize / 4 - 1 R: instSpecReg. + cogit LogicalShiftRightCq: objectMemory shiftForWord - 2 R: instSpecReg. + cogit MoveCq: 0 R: fillReg. + jumpLongPrepDone := cogit Jump: 0. "go allocate" + + jumpByteFormat jmpTarget: + (cogit CmpCq: (objectMemory integerObjectOf: maxSlots * objectMemory wordSize) R: Arg0Reg). + jumpByteTooBig := cogit JumpAbove: 0. + "save num elements to instSpecReg" + cogit MoveR: fillReg R: instSpecReg. + "compute odd bits and add into headerReg; oddBits := 4 - nElements bitAnd: 3" + cogit MoveCq: objectMemory wordSize R: TempReg. + cogit SubR: instSpecReg R: TempReg. + cogit AndCq: objectMemory wordSize - 1 R: TempReg. + cogit LogicalShiftLeftCq: objectMemory formatShift R: TempReg. + cogit AddR: TempReg R: headerReg. + "round up num elements to numSlots in instSpecReg" + cogit AddCq: objectMemory wordSize - 1 R: instSpecReg. + cogit LogicalShiftRightCq: objectMemory shiftForWord R: instSpecReg. + cogit MoveCq: 0 R: fillReg. + jumpBytePrepDone := cogit Jump: 0. "go allocate" + + jumpArrayFormat jmpTarget: + (cogit CmpCq: (objectMemory integerObjectOf: maxSlots) R: Arg0Reg). + jumpArrayTooBig := cogit JumpAbove: 0. + "save num elements/slot size to instSpecReg" + cogit MoveR: fillReg R: instSpecReg. + cogit MoveCq: objectMemory nilObject R: fillReg. + "fall through to allocate" + + jumpBytePrepDone jmpTarget: + (jumpLongPrepDone jmpTarget: cogit Label). + + "store numSlots to headerReg" + cogit MoveR: instSpecReg R: TempReg. + cogit LogicalShiftLeftCq: objectMemory numSlotsFullShift R: TempReg. + cogit AddR: TempReg R: headerReg. + "compute byte size; remember 0-sized objects still need 1 slot." + cogit CmpCq: 0 R: byteSizeReg. "a.k.a. instSpecReg" + jumpHasSlots := cogit JumpNonZero: 0. + cogit MoveCq: objectMemory baseHeaderSize * 2 R: byteSizeReg. + skip := cogit Jump: 0. + jumpHasSlots jmpTarget: + (cogit AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: byteSizeReg). + cogit LogicalShiftLeftCq: objectMemory shiftForWord R: byteSizeReg. + skip jmpTarget: + "check if allocation fits" + (cogit AddR: Arg1Reg R: byteSizeReg). + cogit CmpCq: objectMemory getScavengeThreshold R: byteSizeReg. + jumpNoSpace := cogit JumpAboveOrEqual: 0. + "get result, increment freeStart and write it back. Arg1Reg holds new freeStart, the limit of the object" + cogit MoveR: Arg1Reg R: ReceiverResultReg. + cogit MoveR: byteSizeReg Aw: objectMemory freeStartAddress. + "write other half of header (numSlots/0 identityHash)" + cogit MoveR: headerReg Mw: 0 r: ReceiverResultReg. + "now fill" + cogit LoadEffectiveAddressMw: objectMemory baseHeaderSize r: ReceiverResultReg R: Arg1Reg. + fillLoop := + cogit MoveR: fillReg Mw: 0 r: Arg1Reg. + cogit AddCq: 8 R: Arg1Reg. + cogit CmpR: Arg1Reg R: byteSizeReg. + cogit JumpAbove: fillLoop. + cogit genPrimReturn. + + jumpNoSpace jmpTarget: + (jumpUnhashed jmpTarget: + (jumpFailCuzFixed jmpTarget: + (jumpArrayTooBig jmpTarget: + (jumpByteTooBig jmpTarget: + (jumpLongTooBig jmpTarget: + (jumpNElementsNonInt jmpTarget: cogit Label)))))). + + ^0! Item was added: + ----- Method: CogObjectRepresentationFor64BitSpur>>genSmallFloatArithmetic:preOpCheck: (in category 'primitive generators') ----- + genSmallFloatArithmetic: arithmeticOperator preOpCheck: preOpCheckOrNil + <var: #preOpCheckOrNil declareC: 'AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)'> + | jumpFailClass jumpFailAlloc jumpFailCheck jumpImmediate jumpNonInt doOp | + <var: #jumpFailClass type: #'AbstractInstruction *'> + <var: #jumpFailAlloc type: #'AbstractInstruction *'> + <var: #jumpNonInt type: #'AbstractInstruction *'> + <var: #jumpImmediate type: #'AbstractInstruction *'> + <var: #jumpFailCheck type: #'AbstractInstruction *'> + <var: #doOp type: #'AbstractInstruction *'> + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + self genGetSmallFloatValueOf: ReceiverResultReg scratch: SendNumArgsReg into: DPFPReg0. + cogit MoveR: Arg0Reg R: ClassReg. + jumpImmediate := self genJumpImmediate: Arg0Reg. + self genGetCompactClassIndexNonImmOf: Arg0Reg into: SendNumArgsReg. + self genCmpClassFloatCompactIndexR: SendNumArgsReg. + jumpFailClass := cogit JumpNonZero: 0. + self genGetDoubleValueOf: Arg0Reg into: DPFPReg1. + doOp := cogit Label. + preOpCheckOrNil ifNotNil: + [jumpFailCheck := cogit perform: preOpCheckOrNil with: DPFPReg0 with: DPFPReg1]. + cogit gen: arithmeticOperator operand: DPFPReg1 operand: DPFPReg0. + jumpFailAlloc := self + genAllocFloatValue: DPFPReg0 + into: SendNumArgsReg + scratchReg: ClassReg + scratchReg: TempReg. + cogit MoveR: SendNumArgsReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpImmediate jmpTarget: cogit Label. + self maybeGenConvertIfSmallFloatIn: Arg0Reg scratchReg: TempReg into: DPFPReg1 andJumpTo: doOp. + jumpNonInt := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: ClassReg. + cogit ConvertR: ClassReg Rd: DPFPReg1. + cogit Jump: doOp. + jumpFailClass jmpTarget: cogit Label. + jumpNonInt jmpTarget: jumpFailClass getJmpTarget. + preOpCheckOrNil ifNotNil: + [jumpFailCheck jmpTarget: jumpFailClass getJmpTarget]. + jumpFailAlloc jmpTarget: cogit Label. + ^0! Item was added: + ----- Method: CogObjectRepresentationFor64BitSpur>>genSmallFloatComparison:invert: (in category 'primitive generators') ----- + genSmallFloatComparison: jumpOpcodeGenerator invert: invertComparison + "Receiver and arg in registers. + Stack looks like + return address" + <var: #jumpOpcodeGenerator declareC: 'AbstractInstruction *(*jumpOpcodeGenerator)(void *)'> + | jumpFail jumpImmediate jumpNonInt jumpCond compare | + <var: #jumpImmediate type: #'AbstractInstruction *'> + <var: #jumpNonInt type: #'AbstractInstruction *'> + <var: #jumpCond type: #'AbstractInstruction *'> + <var: #compare type: #'AbstractInstruction *'> + <var: #jumpFail type: #'AbstractInstruction *'> + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + self genGetSmallFloatValueOf: ReceiverResultReg scratch: SendNumArgsReg into: DPFPReg0. + jumpImmediate := self genJumpImmediate: Arg0Reg. + self genGetCompactClassIndexNonImmOf: Arg0Reg into: SendNumArgsReg. + self genCmpClassFloatCompactIndexR: SendNumArgsReg. + jumpFail := cogit JumpNonZero: 0. + self genGetDoubleValueOf: Arg0Reg into: DPFPReg1. + invertComparison "May need to invert for NaNs" + ifTrue: [compare := cogit CmpRd: DPFPReg0 Rd: DPFPReg1] + ifFalse: [compare := cogit CmpRd: DPFPReg1 Rd: DPFPReg0]. + jumpCond := cogit perform: jumpOpcodeGenerator with: 0. "FP jumps are a little weird" + cogit genMoveFalseR: ReceiverResultReg. + cogit genPrimReturn. + jumpCond jmpTarget: (cogit genMoveTrueR: ReceiverResultReg). + cogit genPrimReturn. + jumpImmediate jmpTarget: cogit Label. + self maybeGenConvertIfSmallFloatIn: Arg0Reg scratchReg: TempReg into: DPFPReg1 andJumpTo: compare. + jumpNonInt := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: Arg0Reg. + cogit ConvertR: Arg0Reg Rd: DPFPReg1. + cogit Jump: compare. + jumpNonInt jmpTarget: (jumpFail jmpTarget: cogit Label). + ^CompletePrimitive! Item was removed: - ----- Method: CogObjectRepresentationForSpur>>genInnerPrimitiveAsCharacter:inReg: (in category 'primitive generators') ----- - genInnerPrimitiveAsCharacter: retNOffset inReg: reg - | jumpNotInt jumpOutOfRange | - <var: 'jumpNotInt' type: #'AbstractInstruction *'> - <var: 'jumpOutOfRange' type: #'AbstractInstruction *'> - reg ~= ReceiverResultReg ifTrue: - [jumpNotInt := self genJumpNotSmallInteger: reg scratchReg: TempReg]. - cogit MoveR: reg R: TempReg. - self genConvertSmallIntegerToIntegerInReg: TempReg. - cogit CmpCq: 1 << 30 - 1 R: TempReg. - jumpOutOfRange := cogit JumpAbove: 0. - self genConvertSmallIntegerToCharacterInReg: reg. - reg ~= ReceiverResultReg ifTrue: - [cogit MoveR: reg R: ReceiverResultReg]. - cogit RetN: retNOffset. - jumpOutOfRange jmpTarget: cogit Label. - reg ~= ReceiverResultReg ifTrue: - [jumpNotInt jmpTarget: jumpOutOfRange getJmpTarget]. - ^0! Item was removed: - ----- Method: CogObjectRepresentationForSpur>>genInnerPrimitiveCharacterValue: (in category 'primitive generators') ----- - genInnerPrimitiveCharacterValue: retNOffset - self genConvertCharacterToSmallIntegerInReg: ReceiverResultReg. - cogit RetN: retNOffset. - ^UnfailingPrimitive! Item was removed: - ----- Method: CogObjectRepresentationForSpur>>genInnerPrimitiveIdentical:orNotIf: (in category 'primitive generators') ----- - genInnerPrimitiveIdentical: retNoffset orNotIf: orNot - | jumpImmediate jumpCmp | - <var: #jumpCmp type: #'AbstractInstruction *'> - <var: #jumpImmediate type: #'AbstractInstruction *'> - jumpImmediate := self genJumpImmediate: Arg0Reg. - self genEnsureObjInRegNotForwarded: Arg0Reg scratchReg: TempReg. - jumpImmediate jmpTarget: - (cogit CmpR: Arg0Reg R: ReceiverResultReg). - jumpCmp := orNot - ifTrue: [cogit JumpZero: 0] - ifFalse: [cogit JumpNonZero: 0]. - cogit genMoveTrueR: ReceiverResultReg. - cogit RetN: retNoffset. - jumpCmp jmpTarget: (cogit genMoveFalseR: ReceiverResultReg). - cogit RetN: retNoffset. - ^0! Item was removed: - ----- Method: CogObjectRepresentationForSpur>>genInnerPrimitiveIdentityHash: (in category 'primitive generators') ----- - genInnerPrimitiveIdentityHash: retNoffset - self subclassResponsibility! Item was removed: - ----- Method: CogObjectRepresentationForSpur>>genInnerPrimitiveNew: (in category 'primitive generators') ----- - genInnerPrimitiveNew: retNoffset - "Implement primitiveNew for convenient cases: - - the receiver has a hash - - the receiver is fixed size (excluding ephemerons to save instructions & miniscule time) - - single word header/num slots < numSlotsMask - - the result fits in eden" - - self subclassResponsibility! Item was removed: - ----- Method: CogObjectRepresentationForSpur>>genInnerPrimitiveNewWithArg: (in category 'primitive generators') ----- - genInnerPrimitiveNewWithArg: retNoffset - "Implement primitiveNewWithArg for convenient cases: - - the receiver has a hash - - the receiver is variable and not compiled method - - single word header/num slots < numSlotsMask - - the result fits in eden - - Here are some dynamic frequencies of class formats in the interpreter doing startUp - and recompiling ArrayedCollection in a Squeak4.1 image: - {3251->#arrayFormat. (Array) - 1685->#firstByteFormat. (ByteString, LargePositiveInteger, very few ByteArray) - 1533->#firstLongFormat. (Bitmaps, Floats, MatrixTransform2x3, WordArray) - 110->#weakArrayFormat. (WeakArray, WeakMessageSend) - 35->#indexablePointersFormat. (MethodContext) - 5->#nonIndexablePointerFormat (DirectoryEntry)}" - - self subclassResponsibility! Item was removed: - ----- Method: CogObjectRepresentationForSpur>>genInnerPrimitiveObjectAt: (in category 'primitive generators') ----- - genInnerPrimitiveObjectAt: retNOffset - | headerReg - jumpBadIndex jumpNotCogMethod jumpBounds jumpNotHeaderIndex | - <var: #jumpBounds type: #'AbstractInstruction *'> - <var: #jumpBadIndex type: #'AbstractInstruction *'> - <var: #jumpNotCogMethod type: #'AbstractInstruction *'> - <var: #jumpNotHeaderIndex type: #'AbstractInstruction *'> - jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - "get header into Arg1Reg..." - cogit MoveMw: objectMemory baseHeaderSize r: ReceiverResultReg R: (headerReg := Arg1Reg). - jumpNotCogMethod := self genJumpSmallInteger: headerReg scratchReg: TempReg. - cogit MoveMw: (cogit offset: CogMethod of: #methodHeader) r: headerReg R: headerReg. - jumpNotCogMethod jmpTarget: (cogit - CmpCq: (objectMemory integerObjectOf: 1) R: Arg0Reg). - jumpNotHeaderIndex := cogit JumpNonZero: 0. - cogit - MoveR: headerReg R: ReceiverResultReg; - RetN: retNOffset. - jumpNotHeaderIndex jmpTarget: (cogit - AndCq: (objectMemory integerObjectOf: coInterpreter alternateHeaderNumLiteralsMask) R: headerReg). - cogit - SubCq: (objectMemory integerObjectOf: 1) - objectMemory smallIntegerTag R: Arg0Reg; - CmpR: headerReg R: Arg0Reg. - jumpBounds := cogit JumpAbove: 0. - - self genConvertSmallIntegerToIntegerInReg: Arg0Reg. - cogit - AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg0Reg; - MoveXwr: Arg0Reg R: ReceiverResultReg R: ReceiverResultReg; - RetN: retNOffset. - - jumpBounds jmpTarget: (cogit - AddCq: (objectMemory integerObjectOf: 1) - objectMemory smallIntegerTag R: Arg0Reg). - jumpBadIndex jmpTarget: cogit Label. - ^CompletePrimitive! Item was removed: - ----- Method: CogObjectRepresentationForSpur>>genInnerPrimitiveSize: (in category 'primitive generators') ----- - genInnerPrimitiveSize: retNoffset - | jumpImm jumpNotIndexable jumpIsContext | - "c.f. StackInterpreter>>stSizeOf: lengthOf:baseHeader:format: fixedFieldsOf:format:length:" - <var: #jumpImm type: #'AbstractInstruction *'> - <var: #jumpIsContext type: #'AbstractInstruction *'> - <var: #jumpNotIndexable type: #'AbstractInstruction *'> - jumpImm := self genJumpImmediate: ReceiverResultReg. - self - genGetSizeOf: ReceiverResultReg - into: ClassReg - formatReg: SendNumArgsReg - scratchReg: TempReg - abortJumpsInto: [:jnx :jic| jumpNotIndexable := jnx. jumpIsContext := jic]. - self genConvertIntegerToSmallIntegerInReg: ClassReg. - cogit MoveR: ClassReg R: ReceiverResultReg. - cogit RetN: retNoffset. - jumpImm jmpTarget: (jumpNotIndexable jmpTarget: (jumpIsContext jmpTarget: cogit Label)). - ^0! Item was removed: - ----- Method: CogObjectRepresentationForSpur>>genInnerPrimitiveStringAt: (in category 'primitive generators') ----- - genInnerPrimitiveStringAt: retNoffset - "Implement the guts of primitiveStringAt; dispatch on size" - | formatReg jumpNotIndexable jumpBadIndex done - jumpIsBytes jumpIsShorts jumpIsWords jumpWordTooBig - jumpBytesOutOfBounds jumpShortsOutOfBounds jumpWordsOutOfBounds | - <inline: true> - "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" - <var: #done type: #'AbstractInstruction *'> - <var: #jumpIsBytes type: #'AbstractInstruction *'> - <var: #jumpIsShorts type: #'AbstractInstruction *'> - <var: #jumpIsWords type: #'AbstractInstruction *'> - <var: #jumpBadIndex type: #'AbstractInstruction *'> - <var: #jumpWordTooBig type: #'AbstractInstruction *'> - <var: #jumpNotIndexable type: #'AbstractInstruction *'> - <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpShortsOutOfBounds type: #'AbstractInstruction *'> - <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> - - cogit MoveR: Arg0Reg R: Arg1Reg. - jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - self genConvertSmallIntegerToIntegerInReg: Arg1Reg. - cogit SubCq: 1 R: Arg1Reg. "1-rel => 0-rel" - - self genGetFormatOf: ReceiverResultReg - into: (formatReg := SendNumArgsReg) - leastSignificantHalfOfBaseHeaderIntoScratch: NoReg. - - self genGetNumSlotsOf: ReceiverResultReg into: ClassReg. - - "dispatch on format in a combination of highest dynamic frequency order first and convenience. - 0 = 0 sized objects (UndefinedObject True False et al) - 1 = non-indexable objects with inst vars (Point et al) - 2 = indexable objects with no inst vars (Array et al) - 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) - 4 = weak indexable objects with inst vars (WeakArray et al) - 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) - 6 unused, reserved for exotic pointer objects? - 7 Forwarded Object, 1st field is pointer, rest of fields are ignored - 8 unused, reserved for exotic non-pointer objects? - 9 (?) 64-bit indexable - 10 - 11 32-bit indexable - 12 - 15 16-bit indexable - 16 - 23 byte indexable - 24 - 31 compiled method" - cogit CmpCq: objectMemory firstByteFormat R: formatReg. - jumpIsBytes := cogit JumpGreaterOrEqual: 0. - cogit CmpCq: objectMemory firstShortFormat R: formatReg. - jumpIsShorts := cogit JumpGreaterOrEqual: 0. - cogit CmpCq: objectMemory firstLongFormat R: formatReg. - jumpIsWords := cogit JumpGreaterOrEqual: 0. - jumpNotIndexable := cogit Jump: 0. - - jumpIsBytes jmpTarget: - (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: ClassReg). - cogit AndCq: objectMemory wordSize - 1 R: formatReg. - cogit SubR: formatReg R: ClassReg; - CmpR: Arg1Reg R: ClassReg. - jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddCq: objectMemory baseHeaderSize R: Arg1Reg. - cogit MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. - cogit backEnd byteReadsZeroExtend ifFalse: - [cogit AndCq: 255 R: ReceiverResultReg]. - done := cogit Label. - self genConvertIntegerToCharacterInReg: ReceiverResultReg. - cogit RetN: retNoffset. - - jumpIsShorts jmpTarget: - (cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: ClassReg). - cogit AndCq: 1 R: formatReg. - cogit SubR: formatReg R: ClassReg; - CmpR: Arg1Reg R: ClassReg. - jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddR: Arg1Reg R: ReceiverResultReg. - cogit MoveM16: objectMemory baseHeaderSize r: ReceiverResultReg R: ReceiverResultReg. - cogit Jump: done. - - jumpIsWords jmpTarget: - (cogit CmpR: Arg1Reg R: ClassReg). - jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. - cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. - cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: TempReg. - cogit SubCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. - jumpWordTooBig := self jumpNotCharacterUnsignedValueInRegister: TempReg. - cogit MoveR: TempReg R: ReceiverResultReg. - cogit Jump: done. - - jumpBytesOutOfBounds jmpTarget: - (jumpShortsOutOfBounds jmpTarget: - (jumpWordsOutOfBounds jmpTarget: - (jumpWordTooBig jmpTarget: - (jumpNotIndexable jmpTarget: - (jumpBadIndex jmpTarget: cogit Label))))). - - ^0! Item was added: + ----- Method: CogObjectRepresentationForSpur>>genPrimitiveAsCharacter (in category 'primitive generators') ----- + genPrimitiveAsCharacter + | reg jumpNotInt jumpOutOfRange | + <var: 'jumpNotInt' type: #'AbstractInstruction *'> + <var: 'jumpOutOfRange' type: #'AbstractInstruction *'> + cogit methodNumArgs = 0 + ifTrue: [reg := ReceiverResultReg] + ifFalse: + [cogit methodNumArgs > 1 ifTrue: + [^UnimplementedPrimitive]. + reg := Arg0Reg. + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpNotInt := self genJumpNotSmallInteger: reg scratchReg: TempReg]. + cogit MoveR: reg R: TempReg. + self genConvertSmallIntegerToIntegerInReg: TempReg. + cogit CmpCq: 1 << 30 - 1 R: TempReg. + jumpOutOfRange := cogit JumpAbove: 0. + self genConvertSmallIntegerToCharacterInReg: reg. + reg ~= ReceiverResultReg ifTrue: + [cogit MoveR: reg R: ReceiverResultReg]. + cogit genPrimReturn. + jumpOutOfRange jmpTarget: cogit Label. + reg ~= ReceiverResultReg ifTrue: + [jumpNotInt jmpTarget: jumpOutOfRange getJmpTarget]. + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentationForSpur>>genPrimitiveCharacterValue (in category 'primitive generators') ----- + genPrimitiveCharacterValue + self genConvertCharacterToSmallIntegerInReg: ReceiverResultReg. + cogit genPrimReturn. + ^UnfailingPrimitive! Item was added: + ----- Method: CogObjectRepresentationForSpur>>genPrimitiveIdenticalOrNotIf: (in category 'primitive generators') ----- + genPrimitiveIdenticalOrNotIf: orNot + | jumpImmediate jumpCmp | + <var: #jumpCmp type: #'AbstractInstruction *'> + <var: #jumpImmediate type: #'AbstractInstruction *'> + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpImmediate := self genJumpImmediate: Arg0Reg. + self genEnsureObjInRegNotForwarded: Arg0Reg scratchReg: TempReg. + jumpImmediate jmpTarget: + (cogit CmpR: Arg0Reg R: ReceiverResultReg). + jumpCmp := orNot + ifTrue: [cogit JumpZero: 0] + ifFalse: [cogit JumpNonZero: 0]. + cogit genMoveTrueR: ReceiverResultReg. + cogit genPrimReturn. + jumpCmp jmpTarget: (cogit genMoveFalseR: ReceiverResultReg). + cogit genPrimReturn. + ^UnfailingPrimitive! Item was added: + ----- Method: CogObjectRepresentationForSpur>>genPrimitiveIdentityHash (in category 'primitive generators') ----- + genPrimitiveIdentityHash + self subclassResponsibility! Item was added: + ----- Method: CogObjectRepresentationForSpur>>genPrimitiveObjectAt (in category 'primitive generators') ----- + genPrimitiveObjectAt + | headerReg + jumpBadIndex jumpNotCogMethod jumpBounds jumpNotHeaderIndex | + <var: #jumpBounds type: #'AbstractInstruction *'> + <var: #jumpBadIndex type: #'AbstractInstruction *'> + <var: #jumpNotCogMethod type: #'AbstractInstruction *'> + <var: #jumpNotHeaderIndex type: #'AbstractInstruction *'> + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + "get header into Arg1Reg..." + cogit MoveMw: objectMemory baseHeaderSize r: ReceiverResultReg R: (headerReg := Arg1Reg). + jumpNotCogMethod := self genJumpSmallInteger: headerReg scratchReg: TempReg. + cogit MoveMw: (cogit offset: CogMethod of: #methodHeader) r: headerReg R: headerReg. + jumpNotCogMethod jmpTarget: (cogit + CmpCq: (objectMemory integerObjectOf: 1) R: Arg0Reg). + jumpNotHeaderIndex := cogit JumpNonZero: 0. + cogit + MoveR: headerReg R: ReceiverResultReg; + genPrimReturn. + jumpNotHeaderIndex jmpTarget: (cogit + AndCq: (objectMemory integerObjectOf: coInterpreter alternateHeaderNumLiteralsMask) R: headerReg). + cogit + SubCq: (objectMemory integerObjectOf: 1) - objectMemory smallIntegerTag R: Arg0Reg; + CmpR: headerReg R: Arg0Reg. + jumpBounds := cogit JumpAbove: 0. + + self genConvertSmallIntegerToIntegerInReg: Arg0Reg. + cogit + AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg0Reg; + MoveXwr: Arg0Reg R: ReceiverResultReg R: ReceiverResultReg; + genPrimReturn. + + jumpBounds jmpTarget: (cogit + AddCq: (objectMemory integerObjectOf: 1) - objectMemory smallIntegerTag R: Arg0Reg). + jumpBadIndex jmpTarget: cogit Label. + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentationForSpur>>genPrimitiveSize (in category 'primitive generators') ----- + genPrimitiveSize + | jumpImm jumpNotIndexable jumpIsContext | + "c.f. StackInterpreter>>stSizeOf: lengthOf:baseHeader:format: fixedFieldsOf:format:length:" + <var: #jumpImm type: #'AbstractInstruction *'> + <var: #jumpIsContext type: #'AbstractInstruction *'> + <var: #jumpNotIndexable type: #'AbstractInstruction *'> + jumpImm := self genJumpImmediate: ReceiverResultReg. + self + genGetSizeOf: ReceiverResultReg + into: ClassReg + formatReg: SendNumArgsReg + scratchReg: TempReg + abortJumpsInto: [:jnx :jic| jumpNotIndexable := jnx. jumpIsContext := jic]. + self genConvertIntegerToSmallIntegerInReg: ClassReg. + cogit MoveR: ClassReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpImm jmpTarget: (jumpNotIndexable jmpTarget: (jumpIsContext jmpTarget: cogit Label)). + ^CompletePrimitive! Item was added: + ----- Method: CogObjectRepresentationForSpur>>genPrimitiveStringAt (in category 'primitive generators') ----- + genPrimitiveStringAt + "Implement the guts of primitiveStringAt; dispatch on size" + | formatReg jumpNotIndexable jumpBadIndex done + jumpIsBytes jumpIsShorts jumpIsWords jumpWordTooBig + jumpBytesOutOfBounds jumpShortsOutOfBounds jumpWordsOutOfBounds | + <inline: true> + "c.f. StackInterpreter>>stSizeOf: SpurMemoryManager>>lengthOf:format: fixedFieldsOf:format:length:" + <var: #done type: #'AbstractInstruction *'> + <var: #jumpIsBytes type: #'AbstractInstruction *'> + <var: #jumpIsShorts type: #'AbstractInstruction *'> + <var: #jumpIsWords type: #'AbstractInstruction *'> + <var: #jumpBadIndex type: #'AbstractInstruction *'> + <var: #jumpWordTooBig type: #'AbstractInstruction *'> + <var: #jumpNotIndexable type: #'AbstractInstruction *'> + <var: #jumpBytesOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpShortsOutOfBounds type: #'AbstractInstruction *'> + <var: #jumpWordsOutOfBounds type: #'AbstractInstruction *'> + + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + cogit MoveR: Arg0Reg R: Arg1Reg. + jumpBadIndex := self genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. + self genConvertSmallIntegerToIntegerInReg: Arg1Reg. + cogit SubCq: 1 R: Arg1Reg. "1-rel => 0-rel" + + self genGetFormatOf: ReceiverResultReg + into: (formatReg := SendNumArgsReg) + leastSignificantHalfOfBaseHeaderIntoScratch: NoReg. + + self genGetNumSlotsOf: ReceiverResultReg into: ClassReg. + + "dispatch on format in a combination of highest dynamic frequency order first and convenience. + 0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 unused, reserved for exotic pointer objects? + 7 Forwarded Object, 1st field is pointer, rest of fields are ignored + 8 unused, reserved for exotic non-pointer objects? + 9 (?) 64-bit indexable + 10 - 11 32-bit indexable + 12 - 15 16-bit indexable + 16 - 23 byte indexable + 24 - 31 compiled method" + cogit CmpCq: objectMemory firstByteFormat R: formatReg. + jumpIsBytes := cogit JumpGreaterOrEqual: 0. + cogit CmpCq: objectMemory firstShortFormat R: formatReg. + jumpIsShorts := cogit JumpGreaterOrEqual: 0. + cogit CmpCq: objectMemory firstLongFormat R: formatReg. + jumpIsWords := cogit JumpGreaterOrEqual: 0. + jumpNotIndexable := cogit Jump: 0. + + jumpIsBytes jmpTarget: + (cogit LogicalShiftLeftCq: objectMemory shiftForWord R: ClassReg). + cogit AndCq: objectMemory wordSize - 1 R: formatReg. + cogit SubR: formatReg R: ClassReg; + CmpR: Arg1Reg R: ClassReg. + jumpBytesOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddCq: objectMemory baseHeaderSize R: Arg1Reg. + cogit MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. + cogit backEnd byteReadsZeroExtend ifFalse: + [cogit AndCq: 255 R: ReceiverResultReg]. + done := cogit Label. + self genConvertIntegerToCharacterInReg: ReceiverResultReg. + cogit genPrimReturn. + + jumpIsShorts jmpTarget: + (cogit LogicalShiftLeftCq: objectMemory shiftForWord - 1 R: ClassReg). + cogit AndCq: 1 R: formatReg. + cogit SubR: formatReg R: ClassReg; + CmpR: Arg1Reg R: ClassReg. + jumpShortsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddR: Arg1Reg R: ReceiverResultReg. + cogit MoveM16: objectMemory baseHeaderSize r: ReceiverResultReg R: ReceiverResultReg. + cogit Jump: done. + + jumpIsWords jmpTarget: + (cogit CmpR: Arg1Reg R: ClassReg). + jumpWordsOutOfBounds := cogit JumpBelowOrEqual: 0. + cogit AddCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. + cogit MoveXwr: Arg1Reg R: ReceiverResultReg R: TempReg. + cogit SubCq: objectMemory baseHeaderSize >> objectMemory shiftForWord R: Arg1Reg. + jumpWordTooBig := self jumpNotCharacterUnsignedValueInRegister: TempReg. + cogit MoveR: TempReg R: ReceiverResultReg. + cogit Jump: done. + + jumpBytesOutOfBounds jmpTarget: + (jumpShortsOutOfBounds jmpTarget: + (jumpWordsOutOfBounds jmpTarget: + (jumpWordTooBig jmpTarget: + (jumpNotIndexable jmpTarget: + (jumpBadIndex jmpTarget: cogit Label))))). + + ^CompletePrimitive! Item was removed: - ----- Method: CogObjectRepresentationForSqueakV3>>genInnerPrimitiveAt: (in category 'primitive generators') ----- - genInnerPrimitiveAt: retNoffset - | jumpSI jumpNotSI jumpNotIndexable jumpIsContext jumpBounds jumpFmtGt4 jumpFmtEq2 jumpFmtLt8 jumpFmtGt11 jumpLarge | - "c.f. StackInterpreter>>stSizeOf: lengthOf:baseHeader:format: fixedFieldsOf:format:length:" - <var: #jumpSI type: #'AbstractInstruction *'> - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpNotIndexable type: #'AbstractInstruction *'> - <var: #jumpIsContext type: #'AbstractInstruction *'> - <var: #jumpBounds type: #'AbstractInstruction *'> - <var: #jumpFmtGt4 type: #'AbstractInstruction *'> - <var: #jumpFmtEq2 type: #'AbstractInstruction *'> - <var: #jumpFmtLt8 type: #'AbstractInstruction *'> - <var: #jumpFmtGt11 type: #'AbstractInstruction *'> - <var: #jumpLarge type: #'AbstractInstruction *'> - jumpSI := self genJumpSmallInteger: ReceiverResultReg. - cogit MoveR: Arg0Reg R: Arg1Reg. - jumpNotSI := self genJumpNotSmallInteger: Arg0Reg. - self - genGetSizeOf: ReceiverResultReg - into: ClassReg - formatReg: SendNumArgsReg - scratchReg: TempReg - abortJumpsInto: [:jnx :jic| jumpNotIndexable := jnx. jumpIsContext := jic]. - self genConvertSmallIntegerToIntegerInReg: Arg1Reg. - cogit SubCq: 1 R: Arg1Reg. - cogit CmpR: ClassReg R: Arg1Reg. - jumpBounds := cogit JumpAboveOrEqual: 0. - "This is tedious. Because of register pressure on x86 (and the baroque - complexity of the size computation) we have to recompute the format - because it may have been smashed computing the fixed fields. But at - least we have the fixed fields, if any, in formatReg and recomputing - these is more expensive than recomputing format. In any case this - should still be faster than the interpreter and we hope this object - representation's days are numbered." - cogit - MoveMw: 0 r: ReceiverResultReg R: ClassReg; "self baseHeader: receiver" - LogicalShiftRightCq: objectMemory instFormatFieldLSB R: ClassReg; - AndCq: self instFormatFieldMask R: ClassReg; "self formatOfHeader: ClassReg" - CmpCq: 4 R: ClassReg. - jumpFmtGt4 := cogit JumpGreater: 0. - cogit CmpCq: 2 R: ClassReg. "Common case, e.g. Array, has format = 2" - jumpFmtEq2 := cogit JumpZero: 0. - cogit AddR: SendNumArgsReg R: Arg1Reg. "Add fixed fields to index" - jumpFmtEq2 jmpTarget: cogit Label. - cogit "Too lazy [knackered, more like. ed.] to define index with displacement addressing right now" - AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: Arg1Reg; - MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg; - RetN: retNoffset. - jumpFmtGt4 jmpTarget: cogit Label. - "Byte objects have formats 8 through 15, Compiled methods being 12 through 15; - fail for CompiledMethod allowing the CoInterpeter to impose stricter bounds checks." - cogit CmpCq: 8 R: ClassReg. - jumpFmtLt8 := cogit JumpLess: 0. - cogit CmpCq: 11 R: ClassReg. - jumpFmtGt11 := cogit JumpGreater: 0. - cogit - AddCq: objectMemory baseHeaderSize R: Arg1Reg; - MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. - self genConvertIntegerToSmallIntegerInReg: ReceiverResultReg. - cogit RetN: retNoffset. - jumpFmtLt8 jmpTarget: cogit Label. - self assert: objectMemory wordSize = 4. "documenting my laziness" - cogit "Too lazy [knackered, more like. ed.] to define index with displacement addressing right now" - AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: Arg1Reg; - MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg; - CmpCq: 16r3FFFFFFF R: ReceiverResultReg. - jumpLarge := cogit JumpAbove: 0. - self genConvertIntegerToSmallIntegerInReg: ReceiverResultReg. - cogit RetN: retNoffset. - jumpLarge jmpTarget: (cogit CallRT: cePositive32BitIntegerTrampoline). - cogit - MoveR: TempReg R: ReceiverResultReg; - RetN: retNoffset. - jumpSI jmpTarget: - (jumpNotSI jmpTarget: - (jumpNotIndexable jmpTarget: - (jumpIsContext jmpTarget: - (jumpBounds jmpTarget: - (jumpFmtGt11 jmpTarget: - cogit Label))))). - ^0! Item was removed: - ----- Method: CogObjectRepresentationForSqueakV3>>genInnerPrimitiveIdentical:orNotIf: (in category 'primitive generators') ----- - genInnerPrimitiveIdentical: retNoffset orNotIf: orNot - | jumpCmp | - <var: #jumpCmp type: #'AbstractInstruction *'> - cogit CmpR: Arg0Reg R: ReceiverResultReg. - jumpCmp := orNot - ifTrue: [cogit JumpZero: 0] - ifFalse: [cogit JumpNonZero: 0]. - cogit genMoveTrueR: ReceiverResultReg. - cogit RetN: retNoffset. - jumpCmp jmpTarget: (cogit genMoveFalseR: ReceiverResultReg). - cogit RetN: retNoffset. - ^0! Item was removed: - ----- Method: CogObjectRepresentationForSqueakV3>>genInnerPrimitiveIdentityHash: (in category 'primitive generators') ----- - genInnerPrimitiveIdentityHash: retNOffset - | jumpSI | - <var: #jumpSI type: #'AbstractInstruction *'> - jumpSI := self genJumpSmallInteger: ReceiverResultReg. - self genGetHashFieldNonImmOf: ReceiverResultReg asSmallIntegerInto: TempReg. - cogit MoveR: TempReg R: ReceiverResultReg. - cogit RetN: retNOffset. - jumpSI jmpTarget: cogit Label. - ^0! Item was removed: - ----- Method: CogObjectRepresentationForSqueakV3>>genInnerPrimitiveSize: (in category 'primitive generators') ----- - genInnerPrimitiveSize: retNoffset - | jumpSI jumpNotIndexable jumpIsContext | - "c.f. StackInterpreter>>stSizeOf: lengthOf:baseHeader:format: fixedFieldsOf:format:length:" - <var: #jumpSI type: #'AbstractInstruction *'> - <var: #jumpIsContext type: #'AbstractInstruction *'> - <var: #jumpNotIndexable type: #'AbstractInstruction *'> - jumpSI := self genJumpSmallInteger: ReceiverResultReg. - self - genGetSizeOf: ReceiverResultReg - into: ClassReg - formatReg: SendNumArgsReg - scratchReg: TempReg - abortJumpsInto: [:jnx :jic| jumpNotIndexable := jnx. jumpIsContext := jic]. - self genConvertIntegerToSmallIntegerInReg: ClassReg. - cogit MoveR: ClassReg R: ReceiverResultReg. - cogit RetN: retNoffset. - jumpSI jmpTarget: (jumpNotIndexable jmpTarget: (jumpIsContext jmpTarget: cogit Label)). - ^0! Item was removed: - ----- Method: CogObjectRepresentationForSqueakV3>>genInnerPrimitiveStringAt: (in category 'primitive generators') ----- - genInnerPrimitiveStringAt: retNOffset - | jumpNotSI jumpNotByteIndexable jumpBounds jumpShortHeader jumpSkip | - "c.f. StackInterpreter>>stSizeOf: lengthOf:baseHeader:format: fixedFieldsOf:format:length:" - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpNotByteIndexable type: #'AbstractInstruction *'> - <var: #jumpBounds type: #'AbstractInstruction *'> - <var: #jumpShortHeader type: #'AbstractInstruction *'> - <var: #jumpSkip type: #'AbstractInstruction *'> - cogit MoveR: Arg0Reg R: Arg1Reg. - jumpNotSI := self genJumpNotSmallInteger: Arg0Reg. - cogit - MoveMw: 0 r: ReceiverResultReg R: TempReg; "self baseHeader: receiver" - MoveR: TempReg R: ClassReg; "copy header word; we'll need it later" - LogicalShiftRightCq: objectMemory instFormatFieldLSB R: TempReg; - AndCq: self instFormatFieldMask R: TempReg; "self formatOfHeader: destReg" - MoveR: TempReg R: SendNumArgsReg; - AndCq: 3 R: SendNumArgsReg; "get odd bytes from format (if it turns out to be bytes)" - SubR: SendNumArgsReg R: TempReg; - CmpCq: 8 R: TempReg. "check format is 8" - jumpNotByteIndexable := cogit JumpNonZero: 0. - cogit - MoveR: ClassReg R: TempReg; - AndCq: TypeMask R: TempReg; - CmpCq: HeaderTypeSizeAndClass R: TempReg. "(hdr bitAnd: TypeMask) = HeaderTypeSizeAndClass" - jumpShortHeader := cogit JumpNonZero: 0. - self assert: Size4Bit = 0. - cogit - MoveMw: 0 - (2 * objectMemory wordSize) r: ReceiverResultReg R: ClassReg; "(self sizeHeader: oop) bitAnd: LongSizeMask" - AndCq: LongSizeMask signedIntFromLong R: ClassReg. - jumpSkip := cogit Jump: 0. - jumpShortHeader jmpTarget: (cogit AndCq: SizeMask R: ClassReg). "hdr bitAnd: SizeMask" - jumpSkip jmpTarget: (cogit SubCq: objectMemory baseHeaderSize R: ClassReg). "sz - BaseHeaderSize" - cogit SubR: SendNumArgsReg R: ClassReg. "sz - (fmt bitAnd: 3)" - self genConvertSmallIntegerToIntegerInReg: Arg1Reg. - cogit SubCq: 1 R: Arg1Reg. - cogit CmpR: ClassReg R: Arg1Reg. - jumpBounds := cogit JumpAboveOrEqual: 0. - cogit AddCq: objectMemory baseHeaderSize R: Arg1Reg. - cogit genMoveConstant: objectMemory characterTable R: Arg0Reg. - cogit MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg; - AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: ReceiverResultReg. - cogit MoveXwr: ReceiverResultReg R: Arg0Reg R: ReceiverResultReg. - cogit RetN: retNOffset. - jumpNotSI jmpTarget: - (jumpNotByteIndexable jmpTarget: - (jumpBounds jmpTarget: - cogit Label)). - ^0! Item was added: + ----- Method: CogObjectRepresentationForSqueakV3>>genPrimitiveAt (in category 'primitive generators') ----- + genPrimitiveAt + | jumpSI jumpNotSI jumpNotIndexable jumpIsContext jumpBounds jumpFmtGt4 jumpFmtEq2 jumpFmtLt8 jumpFmtGt11 jumpLarge | + "c.f. StackInterpreter>>stSizeOf: lengthOf:baseHeader:format: fixedFieldsOf:format:length:" + <var: #jumpSI type: #'AbstractInstruction *'> + <var: #jumpNotSI type: #'AbstractInstruction *'> + <var: #jumpNotIndexable type: #'AbstractInstruction *'> + <var: #jumpIsContext type: #'AbstractInstruction *'> + <var: #jumpBounds type: #'AbstractInstruction *'> + <var: #jumpFmtGt4 type: #'AbstractInstruction *'> + <var: #jumpFmtEq2 type: #'AbstractInstruction *'> + <var: #jumpFmtLt8 type: #'AbstractInstruction *'> + <var: #jumpFmtGt11 type: #'AbstractInstruction *'> + <var: #jumpLarge type: #'AbstractInstruction *'> + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpSI := self genJumpSmallInteger: ReceiverResultReg. + cogit MoveR: Arg0Reg R: Arg1Reg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg. + self + genGetSizeOf: ReceiverResultReg + into: ClassReg + formatReg: SendNumArgsReg + scratchReg: TempReg + abortJumpsInto: [:jnx :jic| jumpNotIndexable := jnx. jumpIsContext := jic]. + self genConvertSmallIntegerToIntegerInReg: Arg1Reg. + cogit SubCq: 1 R: Arg1Reg. + cogit CmpR: ClassReg R: Arg1Reg. + jumpBounds := cogit JumpAboveOrEqual: 0. + "This is tedious. Because of register pressure on x86 (and the baroque + complexity of the size computation) we have to recompute the format + because it may have been smashed computing the fixed fields. But at + least we have the fixed fields, if any, in formatReg and recomputing + these is more expensive than recomputing format. In any case this + should still be faster than the interpreter and we hope this object + representation's days are numbered." + cogit + MoveMw: 0 r: ReceiverResultReg R: ClassReg; "self baseHeader: receiver" + LogicalShiftRightCq: objectMemory instFormatFieldLSB R: ClassReg; + AndCq: self instFormatFieldMask R: ClassReg; "self formatOfHeader: ClassReg" + CmpCq: 4 R: ClassReg. + jumpFmtGt4 := cogit JumpGreater: 0. + cogit CmpCq: 2 R: ClassReg. "Common case, e.g. Array, has format = 2" + jumpFmtEq2 := cogit JumpZero: 0. + cogit AddR: SendNumArgsReg R: Arg1Reg. "Add fixed fields to index" + jumpFmtEq2 jmpTarget: cogit Label. + cogit "Too lazy [knackered, more like. ed.] to define index with displacement addressing right now" + AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: Arg1Reg; + MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg; + genPrimReturn. + jumpFmtGt4 jmpTarget: cogit Label. + "Byte objects have formats 8 through 15, Compiled methods being 12 through 15; + fail for CompiledMethod allowing the CoInterpeter to impose stricter bounds checks." + cogit CmpCq: 8 R: ClassReg. + jumpFmtLt8 := cogit JumpLess: 0. + cogit CmpCq: 11 R: ClassReg. + jumpFmtGt11 := cogit JumpGreater: 0. + cogit + AddCq: objectMemory baseHeaderSize R: Arg1Reg; + MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg. + self genConvertIntegerToSmallIntegerInReg: ReceiverResultReg. + cogit genPrimReturn. + jumpFmtLt8 jmpTarget: cogit Label. + self assert: objectMemory wordSize = 4. "documenting my laziness" + cogit "Too lazy [knackered, more like. ed.] to define index with displacement addressing right now" + AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: Arg1Reg; + MoveXwr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg; + CmpCq: 16r3FFFFFFF R: ReceiverResultReg. + jumpLarge := cogit JumpAbove: 0. + self genConvertIntegerToSmallIntegerInReg: ReceiverResultReg. + cogit genPrimReturn. + jumpLarge jmpTarget: (cogit CallRT: cePositive32BitIntegerTrampoline). + cogit + MoveR: TempReg R: ReceiverResultReg; + genPrimReturn. + jumpSI jmpTarget: + (jumpNotSI jmpTarget: + (jumpNotIndexable jmpTarget: + (jumpIsContext jmpTarget: + (jumpBounds jmpTarget: + (jumpFmtGt11 jmpTarget: + cogit Label))))). + ^0! Item was added: + ----- Method: CogObjectRepresentationForSqueakV3>>genPrimitiveIdenticalOrNotIf: (in category 'primitive generators') ----- + genPrimitiveIdenticalOrNotIf: orNot + | jumpCmp | + <var: #jumpCmp type: #'AbstractInstruction *'> + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + jumpCmp := orNot + ifTrue: [cogit JumpZero: 0] + ifFalse: [cogit JumpNonZero: 0]. + cogit genMoveTrueR: ReceiverResultReg. + cogit genPrimReturn. + jumpCmp jmpTarget: (cogit genMoveFalseR: ReceiverResultReg). + cogit genPrimReturn. + ^UnfailingPrimitive! Item was added: + ----- Method: CogObjectRepresentationForSqueakV3>>genPrimitiveIdentityHash (in category 'primitive generators') ----- + genPrimitiveIdentityHash + | jumpSI | + <var: #jumpSI type: #'AbstractInstruction *'> + jumpSI := self genJumpSmallInteger: ReceiverResultReg. + self genGetHashFieldNonImmOf: ReceiverResultReg asSmallIntegerInto: TempReg. + cogit MoveR: TempReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpSI jmpTarget: cogit Label. + ^0! Item was added: + ----- Method: CogObjectRepresentationForSqueakV3>>genPrimitiveSize (in category 'primitive generators') ----- + genPrimitiveSize + | jumpSI jumpNotIndexable jumpIsContext | + "c.f. StackInterpreter>>stSizeOf: lengthOf:baseHeader:format: fixedFieldsOf:format:length:" + <var: #jumpSI type: #'AbstractInstruction *'> + <var: #jumpIsContext type: #'AbstractInstruction *'> + <var: #jumpNotIndexable type: #'AbstractInstruction *'> + jumpSI := self genJumpSmallInteger: ReceiverResultReg. + self + genGetSizeOf: ReceiverResultReg + into: ClassReg + formatReg: SendNumArgsReg + scratchReg: TempReg + abortJumpsInto: [:jnx :jic| jumpNotIndexable := jnx. jumpIsContext := jic]. + self genConvertIntegerToSmallIntegerInReg: ClassReg. + cogit MoveR: ClassReg R: ReceiverResultReg. + cogit genPrimReturn. + jumpSI jmpTarget: (jumpNotIndexable jmpTarget: (jumpIsContext jmpTarget: cogit Label)). + ^0! Item was added: + ----- Method: CogObjectRepresentationForSqueakV3>>genPrimitiveStringAt (in category 'primitive generators') ----- + genPrimitiveStringAt + | jumpNotSI jumpNotByteIndexable jumpBounds jumpShortHeader jumpSkip | + "c.f. StackInterpreter>>stSizeOf: lengthOf:baseHeader:format: fixedFieldsOf:format:length:" + <var: #jumpNotSI type: #'AbstractInstruction *'> + <var: #jumpNotByteIndexable type: #'AbstractInstruction *'> + <var: #jumpBounds type: #'AbstractInstruction *'> + <var: #jumpShortHeader type: #'AbstractInstruction *'> + <var: #jumpSkip type: #'AbstractInstruction *'> + cogit genLoadArgAtDepth: 0 into: Arg0Reg. + cogit MoveR: Arg0Reg R: Arg1Reg. + jumpNotSI := self genJumpNotSmallInteger: Arg0Reg. + cogit + MoveMw: 0 r: ReceiverResultReg R: TempReg; "self baseHeader: receiver" + MoveR: TempReg R: ClassReg; "copy header word; we'll need it later" + LogicalShiftRightCq: objectMemory instFormatFieldLSB R: TempReg; + AndCq: self instFormatFieldMask R: TempReg; "self formatOfHeader: destReg" + MoveR: TempReg R: SendNumArgsReg; + AndCq: 3 R: SendNumArgsReg; "get odd bytes from format (if it turns out to be bytes)" + SubR: SendNumArgsReg R: TempReg; + CmpCq: 8 R: TempReg. "check format is 8" + jumpNotByteIndexable := cogit JumpNonZero: 0. + cogit + MoveR: ClassReg R: TempReg; + AndCq: TypeMask R: TempReg; + CmpCq: HeaderTypeSizeAndClass R: TempReg. "(hdr bitAnd: TypeMask) = HeaderTypeSizeAndClass" + jumpShortHeader := cogit JumpNonZero: 0. + self assert: Size4Bit = 0. + cogit + MoveMw: 0 - (2 * objectMemory wordSize) r: ReceiverResultReg R: ClassReg; "(self sizeHeader: oop) bitAnd: LongSizeMask" + AndCq: LongSizeMask signedIntFromLong R: ClassReg. + jumpSkip := cogit Jump: 0. + jumpShortHeader jmpTarget: (cogit AndCq: SizeMask R: ClassReg). "hdr bitAnd: SizeMask" + jumpSkip jmpTarget: (cogit SubCq: objectMemory baseHeaderSize R: ClassReg). "sz - BaseHeaderSize" + cogit SubR: SendNumArgsReg R: ClassReg. "sz - (fmt bitAnd: 3)" + self genConvertSmallIntegerToIntegerInReg: Arg1Reg. + cogit SubCq: 1 R: Arg1Reg. + cogit CmpR: ClassReg R: Arg1Reg. + jumpBounds := cogit JumpAboveOrEqual: 0. + cogit AddCq: objectMemory baseHeaderSize R: Arg1Reg. + cogit genMoveConstant: objectMemory characterTable R: Arg0Reg. + cogit MoveXbr: Arg1Reg R: ReceiverResultReg R: ReceiverResultReg; + AddCq: objectMemory baseHeaderSize / objectMemory wordSize R: ReceiverResultReg. + cogit MoveXwr: ReceiverResultReg R: Arg0Reg R: ReceiverResultReg. + cogit genPrimReturn. + jumpNotSI jmpTarget: + (jumpNotByteIndexable jmpTarget: + (jumpBounds jmpTarget: + cogit Label)). + ^0! Item was changed: ----- Method: CogPrimitiveDescriptor class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') ----- instVarNamesAndTypesForTranslationDo: aBinaryBlock "enumerate aBinaryBlock with the names and C type strings for the inst vars to include in a PrimitiveDescriptor struct." self instVarNames do: [:ivn| aBinaryBlock value: ivn + value: (ivn = 'primitiveGenerator' + ifTrue: [#('sqInt (*' ')(void)')] + ifFalse: [#sqInt])]! - value: (ivn caseOf: { - ['primitiveGenerator'] -> [#('sqInt (*' ')(void)')]. - ['enabled'] -> [#('sqInt (*' ')(sqInt)')] } - otherwise: [#sqInt])]! Item was removed: - ----- Method: CogPrimitiveDescriptor>>enabled (in category 'accessing') ----- - enabled - "Answer the value of enabled" - - ^enabled! Item was removed: - ----- Method: CogPrimitiveDescriptor>>enabled: (in category 'accessing') ----- - enabled: anObject - "Set the value of enabled" - - ^enabled := anObject! Item was changed: CogClass subclass: #Cogit + instanceVariableNames: 'coInterpreter objectMemory objectRepresentation processor threadManager methodZone methodZoneBase codeBase minValidCallAddress lastNInstructions simulatedAddresses simulatedTrampolines simulatedVariableGetters simulatedVariableSetters printRegisters printInstructions compilationTrace clickConfirm breakPC breakBlock singleStep guardPageSize traceFlags traceStores breakMethod methodObj enumeratingCogMethod methodHeader initialPC endPC methodOrBlockNumArgs inBlock needsFrame hasYoungReferent primitiveIndex backEnd literalsManager callerSavedRegMask postCompileHook methodLabel stackCheckLabel blockEntryLabel blockEntryNoContextSwitch blockNoContextSwitchOffset stackOverflowCall sendMiss missOffset entryPointMask checkedEntryAlignment uncheckedEntryAlignment cmEntryOffset entry cmNoCheckEntryOffset noCheckEntry picMNUAbort picInterpretAbort endCPICCase0 endCPICCase1 firstCPICCaseOffset cPICCaseSize cPICEndSize closedPICSize openPICSize fixups abstractOpcodes generatorTable byte0 byte1 byte2 byte3 bytecodePC bytecodeSetOffset opcodeIndex numAbstractOpcodes blockStarts blockCount labelCounter cStackAlignment expectedSPAlignment expectedFPAlignment codeModified maxLitIndex ceMethodAbortTrampoline cePICAbortTrampoline ceCheckForInterruptTrampoline ceCPICMissTrampoline ceReturnToInterpreterTrampoline ceBaseFrameReturnTrampoline ceSendMustBeBooleanAddTrueTrampoline ceSendMustBeBooleanAddFalseTrampoline ceCannotResumeTrampoline ceEnterCogCodePopReceiverReg ceCallCogCodePopReceiverReg ceCallCogCodePopReceiverAndClassRegs cePrimReturnEnterCogCode cePrimReturnEnterCogCodeProfiling ceNonLocalReturnTrampoline ceFetchContextInstVarTrampoline ceStoreContextInstVarTrampoline ceEnclosingObjectTrampoline ceCaptureCStackPointers ceFlushICache ceCheckFeaturesFunction ceTraceLinkedSendTrampoline ceTraceBlockActivationTrampoline ceTraceStoreTrampoline ceGetSP ordinarySendTrampolines superSendTrampolines directedSuperSendTrampolines dynamicSuperSendTrampolines outerSendTrampolines selfSendTrampolines firstSend lastSend realCEEnterCogCodePopReceiverReg realCECallCogCodePopReceiverReg realCECallCogCodePopReceiverAndClassRegs trampolineTableIndex trampolineAddresses objectReferencesInRuntime runtimeObjectRefIndex cFramePointerInUse debugPrimCallStackOffset ceTryLockVMOwner ceUnlockVMOwner extA extB tempOop numIRCs indexOfIRC theIRCs implicitReceiverSendTrampolines cogMethodSurrogateClass cogBlockMethodSurrogateClass nsSendCacheSurrogateClass CStackPointer CFramePointer cPICPrototype cPICEndOfCodeOffset cPICEndOfCodeLabel maxCPICCases debugOpcodeIndices disassemblingMethod' - instanceVariableNames: 'coInterpreter objectMemory objectRepresentation processor threadManager methodZone methodZoneBase codeBase minValidCallAddress lastNInstructions simulatedAddresses simulatedTrampolines simulatedVariableGetters simulatedVariableSetters printRegisters printInstructions compilationTrace clickConfirm breakPC breakBlock singleStep guardPageSize traceFlags traceStores breakMethod methodObj enumeratingCogMethod methodHeader initialPC endPC methodOrBlockNumArgs inBlock needsFrame hasYoungReferent primitiveIndex backEnd literalsManager callerSavedRegMask postCompileHook methodLabel stackCheckLabel blockEntryLabel blockEntryNoContextSwitch blockNoContextSwitchOffset stackOverflowCall sendMiss missOffset entryPointMask checkedEntryAlignment uncheckedEntryAlignment cmEntryOffset entry cmNoCheckEntryOffset noCheckEntry picMNUAbort picInterpretAbort endCPICCase0 endCPICCase1 firstCPICCaseOffset cPICCaseSize cPICEndSize closedPICSize openPICSize fixups abstractOpcodes generatorTable primitiveGeneratorTable byte0 byte1 byte2 byte3 bytecodePC bytecodeSetOffset opcodeIndex numAbstractOpcodes blockStarts blockCount labelCounter cStackAlignment expectedSPAlignment expectedFPAlignment codeModified maxLitIndex ceMethodAbortTrampoline cePICAbortTrampoline ceCheckForInterruptTrampoline ceCPICMissTrampoline ceReturnToInterpreterTrampoline ceBaseFrameReturnTrampoline ceSendMustBeBooleanAddTrueTrampoline ceSendMustBeBooleanAddFalseTrampoline ceCannotResumeTrampoline ceEnterCogCodePopReceiverReg ceCallCogCodePopReceiverReg ceCallCogCodePopReceiverAndClassRegs cePrimReturnEnterCogCode cePrimReturnEnterCogCodeProfiling ceNonLocalReturnTrampoline ceFetchContextInstVarTrampoline ceStoreContextInstVarTrampoline ceEnclosingObjectTrampoline ceCaptureCStackPointers ceFlushICache ceCheckFeaturesFunction ceTraceLinkedSendTrampoline ceTraceBlockActivationTrampoline ceTraceStoreTrampoline ceGetSP ordinarySendTrampolines superSendTrampolines directedSuperSendTrampolines dynamicSuperSendTrampolines outerSendTrampolines selfSendTrampolines firstSend lastSend realCEEnterCogCodePopReceiverReg realCECallCogCodePopReceiverReg realCECallCogCodePopReceiverAndClassRegs trampolineTableIndex trampolineAddresses objectReferencesInRuntime runtimeObjectRefIndex cFramePointerInUse debugPrimCallStackOffset ceTryLockVMOwner ceUnlockVMOwner extA extB tempOop numIRCs indexOfIRC theIRCs implicitReceiverSendTrampolines cogMethodSurrogateClass cogBlockMethodSurrogateClass nsSendCacheSurrogateClass CStackPointer CFramePointer cPICPrototype cPICEndOfCodeOffset cPICEndOfCodeLabel maxCPICCases debugOpcodeIndices disassemblingMethod' classVariableNames: 'AltBlockCreationBytecodeSize AltFirstSpecialSelector AltNSSendIsPCAnnotated AltNumSpecialSelectors AnnotationConstantNames AnnotationShift AnnotationsWithBytecodePCs BlockCreationBytecodeSize Debug DisplacementMask DisplacementX2N EagerInstructionDecoration FirstAnnotation FirstSpecialSelector HasBytecodePC IsAbsPCReference IsAnnotationExtension IsDirectedSuperSend IsDisplacementX2N IsNSDynamicSuperSend IsNSImplicitReceiverSend IsNSSelfSend IsNSSendCall IsObjectReference IsRelativeCall IsSendCall IsSuperSend MapEnd MaxCompiledPrimitiveIndex MaxStackAllocSize MaxX2NDisplacement NSCClassTagIndex NSCEnclosingObjectIndex NSCNumArgsIndex NSCSelectorIndex NSCTargetIndex NSSendIsPCAnnotated NumObjRefsInRuntime NumOopsPerNSC NumSpecialSelectors NumTrampolines ProcessorClass' poolDictionaries: 'CogAbstractRegisters CogCompilationConstants CogMethodConstants CogRTLOpcodes VMBasicConstants VMBytecodeConstants VMObjectIndices VMStackFrameOffsets' category: 'VMMaker-JIT'! Cogit class instanceVariableNames: 'generatorTable primitiveTable'! !Cogit commentStamp: 'eem 4/6/2015 15:56' prior: 0! I am the code generator for the Cog VM. My job is to produce machine code versions of methods for faster execution and to manage inline caches for faster send performance. I can be tested in the current image using my class-side in-image compilation facilities. e.g. try StackToRegisterMappingCogit genAndDis: (Integer >> #benchFib) I have concrete subclasses that implement different levels of optimization: SimpleStackBasedCogit is the simplest code generator. StackToRegisterMappingCogit is the current production code generator It defers pushing operands to the stack until necessary and implements a register-based calling convention for low-arity sends. StackToRegisterMappingCogit is an experimental code generator with support for counting conditional branches, intended to support adaptive optimization. coInterpreter <CoInterpreterSimulator> the VM's interpreter with which I cooperate methodZoneManager <CogMethodZoneManager> the manager of the machine code zone objectRepresentation <CogObjectRepresentation> the object used to generate object accesses processor <BochsIA32Alien|?> the simulator that executes the IA32/x86 machine code I generate when simulating execution in Smalltalk simulatedTrampolines <Dictionary of Integer -> MessageSend> the dictionary mapping trap jump addresses to run-time routines used to warp from simulated machine code in to the Smalltalk run-time. simulatedVariableGetters <Dictionary of Integer -> MessageSend> the dictionary mapping trap read addresses to variables in run-time objects used to allow simulated machine code to read variables in the Smalltalk run-time. simulatedVariableSetters <Dictionary of Integer -> MessageSend> the dictionary mapping trap write addresses to variables in run-time objects used to allow simulated machine code to write variables in the Smalltalk run-time. printRegisters printInstructions clickConfirm <Boolean> flags controlling debug printing and code simulation breakPC <Integer> machine code pc breakpoint cFramePointer cStackPointer <Integer> the variables representing the C stack & frame pointers, which must change on FFI callback and return selectorOop <sqInt> the oop of the methodObj being compiled methodObj <sqInt> the bytecode method being compiled initialPC endPC <Integer> the start and end pcs of the methodObj being compiled methodOrBlockNumArgs <Integer> argument count of current method or block being compiled needsFrame <Boolean> whether methodObj or block needs a frame to execute primitiveIndex <Integer> primitive index of current method being compiled methodLabel <CogAbstractOpcode> label for the method header blockEntryLabel <CogAbstractOpcode> label for the start of the block dispatch code stackOverflowCall <CogAbstractOpcode> label for the call of ceStackOverflow in the method prolog sendMissCall <CogAbstractOpcode> label for the call of ceSICMiss in the method prolog entryOffset <Integer> offset of method entry code from start (header) of method entry <CogAbstractOpcode> label for the first instruction of the method entry code noCheckEntryOffset <Integer> offset of the start of a method proper (after the method entry code) from start (header) of method noCheckEntry <CogAbstractOpcode> label for the first instruction of start of a method proper fixups <Array of <AbstractOpcode Label | nil>> the labels for forward jumps that will be fixed up when reaching the relevant bytecode. fixup shas one element per byte in methodObj's bytecode abstractOpcodes <Array of <AbstractOpcode>> the code generated when compiling methodObj byte0 byte1 byte2 byte3 <Integer> individual bytes of current bytecode being compiled in methodObj bytecodePointer <Integer> bytecode pc (same as Smalltalk) of the current bytecode being compiled opcodeIndex <Integer> the index of the next free entry in abstractOpcodes (this code is translated into C where OrderedCollection et al do not exist) numAbstractOpcodes <Integer> the number of elements in abstractOpcocdes blockStarts <Array of <BlockStart>> the starts of blocks in the current method blockCount the index into blockStarts as they are being noted, and hence eventually the total number of blocks in the current method labelCounter <Integer> a nicety for numbering labels not needed in the production system but probably not expensive enough to worry about ceStackOverflowTrampoline <Integer> ceSend0ArgsTrampoline <Integer> ceSend1ArgsTrampoline <Integer> ceSend2ArgsTrampoline <Integer> ceSendNArgsTrampoline <Integer> ceSendSuper0ArgsTrampoline <Integer> ceSendSuper1ArgsTrampoline <Integer> ceSendSuper2ArgsTrampoline <Integer> ceSendSuperNArgsTrampoline <Integer> ceSICMissTrampoline <Integer> ceCPICMissTrampoline <Integer> ceStoreCheckTrampoline <Integer> ceReturnToInterpreterTrampoline <Integer> ceBaseFrameReturnTrampoline <Integer> ceSendMustBeBooleanTrampoline <Integer> ceClosureCopyTrampoline <Integer> the various trampolines (system-call-like jumps from machine code to the run-time). See Cogit>>generateTrampolines for the mapping from trampoline to run-time routine and then read the run-time routine for a funcitonal description. ceEnterCogCodePopReceiverReg <Integer> the enilopmart (jump from run-time to machine-code) methodZoneBase <Integer> ! Cogit class instanceVariableNames: 'generatorTable primitiveTable'! Item was changed: ----- Method: Cogit class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator #( 'coInterpreter' 'objectMemory' 'methodZone' 'objectRepresentation' 'cogBlockMethodSurrogateClass' 'cogMethodSurrogateClass' 'nsSendCacheSurrogateClass' 'threadManager' 'processor' 'lastNInstructions' 'simulatedAddresses' 'simulatedTrampolines' 'simulatedVariableGetters' 'simulatedVariableSetters' 'printRegisters' 'printInstructions' 'clickConfirm' 'singleStep') do: [:simulationVariableNotNeededForRealVM| aCCodeGenerator removeVariable: simulationVariableNotNeededForRealVM]. NewspeakVM ifFalse: [#( 'selfSendTrampolines' 'dynamicSuperSendTrampolines' 'implicitReceiverSendTrampolines' 'outerSendTrampolines' 'ceEnclosingObjectTrampoline' 'numIRCs' 'indexOfIRC' 'theIRCs') do: [:variableNotNeededInNormalVM| aCCodeGenerator removeVariable: variableNotNeededInNormalVM]]. aCCodeGenerator removeConstant: #COGMTVM. "this should be defined at compile time" aCCodeGenerator addHeaderFile:'<stddef.h>'; "for e.g. offsetof" addHeaderFile:'"sqCogStackAlignment.h"'; addHeaderFile:'"dispdbg.h"'; "must precede cointerp.h & cogit.h otherwise NoDbgRegParms gets screwed up" addHeaderFile:'"cogmethod.h"'. NewspeakVM ifTrue: [aCCodeGenerator addHeaderFile:'"nssendcache.h"']. aCCodeGenerator addHeaderFile:'#if COGMTVM'; addHeaderFile:'"cointerpmt.h"'; addHeaderFile:'#else'; addHeaderFile:'"cointerp.h"'; addHeaderFile:'#endif'; addHeaderFile:'"cogit.h"'. aCCodeGenerator var: #ceGetSP declareC: 'unsigned long (*ceGetSP)(void)'; var: #ceCaptureCStackPointers declareC: 'void (*ceCaptureCStackPointers)(void)'; var: #ceEnterCogCodePopReceiverReg declareC: 'void (*ceEnterCogCodePopReceiverReg)(void)'; var: #realCEEnterCogCodePopReceiverReg declareC: 'void (*realCEEnterCogCodePopReceiverReg)(void)'; var: #ceCallCogCodePopReceiverReg declareC: 'void (*ceCallCogCodePopReceiverReg)(void)'; var: #realCECallCogCodePopReceiverReg declareC: 'void (*realCECallCogCodePopReceiverReg)(void)'; var: #ceCallCogCodePopReceiverAndClassRegs declareC: 'void (*ceCallCogCodePopReceiverAndClassRegs)(void)'; var: #realCECallCogCodePopReceiverAndClassRegs declareC: 'void (*realCECallCogCodePopReceiverAndClassRegs)(void)'; var: #ceFlushICache declareC: 'static void (*ceFlushICache)(unsigned long from, unsigned long to)'; var: #ceCheckFeaturesFunction declareC: 'static unsigned long (*ceCheckFeaturesFunction)(void)'; var: #ceTryLockVMOwner declareC: 'unsigned long (*ceTryLockVMOwner)(void)'; var: #ceUnlockVMOwner declareC: 'void (*ceUnlockVMOwner)(void)'; var: #postCompileHook declareC: 'void (*postCompileHook)(CogMethod *)'; var: #openPICList declareC: 'CogMethod *openPICList = 0'; var: #maxMethodBefore type: #'CogBlockMethod *'. 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 picMNUAbort picInterpretAbort endCPICCase0 endCPICCase1 cPICEndOfCodeLabel) as: #'AbstractInstruction *' in: aCCodeGenerator. aCCodeGenerator declareVar: #blockStarts type: #'BlockStart *'; declareVar: #fixups type: #'BytecodeFixup *'. aCCodeGenerator var: #ordinarySendTrampolines declareC: 'sqInt ordinarySendTrampolines[NumSendTrampolines]'; var: #superSendTrampolines declareC: 'sqInt superSendTrampolines[NumSendTrampolines]'; var: #directedSuperSendTrampolines declareC: 'sqInt directedSuperSendTrampolines[NumSendTrampolines]'; var: #selfSendTrampolines declareC: 'sqInt selfSendTrampolines[NumSendTrampolines]'; var: #dynamicSuperSendTrampolines declareC: 'sqInt dynamicSuperSendTrampolines[NumSendTrampolines]'; var: #implicitReceiverSendTrampolines declareC: 'sqInt implicitReceiverSendTrampolines[NumSendTrampolines]'; var: #outerSendTrampolines declareC: 'sqInt outerSendTrampolines[NumSendTrampolines]'; var: #trampolineAddresses declareC: 'static char *trampolineAddresses[NumTrampolines*2]'; var: #objectReferencesInRuntime declareC: 'static usqInt objectReferencesInRuntime[NumObjRefsInRuntime]'; var: #labelCounter type: #int; var: #traceFlags declareC: 'int traceFlags = 8 /* prim trace log on by default */'; var: #cStackAlignment declareC: 'const int cStackAlignment = STACK_ALIGN_BYTES'. aCCodeGenerator declareVar: #CFramePointer type: #'void *'; declareVar: #CStackPointer type: #'void *'; declareVar: #minValidCallAddress type: #'unsigned long'; declareVar: #debugPrimCallStackOffset type: #'unsigned long'. aCCodeGenerator vmClass generatorTable ifNotNil: [:bytecodeGenTable| aCCodeGenerator var: #generatorTable declareC: 'static BytecodeDescriptor generatorTable[', bytecodeGenTable size, ']', (self tableInitializerFor: bytecodeGenTable - in: aCCodeGenerator); - var: #primitiveGeneratorTable - declareC: 'static PrimitiveDescriptor primitiveGeneratorTable[MaxCompiledPrimitiveIndex+1]', - (self tableInitializerFor: aCCodeGenerator vmClass primitiveTable in: aCCodeGenerator)]. "In C the abstract opcode names clash with the Smalltak generator syntactic sugar. Most of the syntactic sugar is inlined, but alas some remains. Rename the syntactic sugar to avoid the clash." (self organization listAtCategoryNamed: #'abstract instructions') do: [:s| aCCodeGenerator addSelectorTranslation: s to: 'g', (aCCodeGenerator cFunctionNameFor: s)]. aCCodeGenerator addSelectorTranslation: #halt: to: 'haltmsg'! Item was removed: - ----- Method: Cogit class>>table:from: (in category 'class initialization') ----- - table: primArray from: specArray - "Fill in the specified entries in the primitive table." - specArray do: - [:spec | - (self shouldIncludeMethodForSelector: spec second) ifTrue: - [(primArray at: spec first put: CogPrimitiveDescriptor new) - primitiveGenerator: spec second; - primNumArgs: (spec at: 3 ifAbsent: -1); - enabled: (spec at: 4 ifAbsent: nil)]]. - primArray object withIndexDo: - [:generator :i| - generator ifNil: - [(primArray object at: i put: CogPrimitiveDescriptor new) - primNumArgs: -1]]! Item was removed: - ----- Method: Cogit>>compilePrimitive (in category 'compile abstract instructions') ----- - compilePrimitive - "Compile a primitive. If possible, performance-critical primtiives will - be generated by their own routines (primitiveGenerator). Otherwise, - if there is a primitive at all, we 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." - <inline: false> - | primitiveDescriptor primitiveRoutine | - <var: #primitiveDescriptor type: #'PrimitiveDescriptor *'> - <var: #primitiveRoutine declareC: 'void (*primitiveRoutine)(void)'> - primitiveIndex = 0 ifTrue: [^0]. - "If a descriptor specifies an argument count (by numArgs >= 0) then it must match - for the generated code to be correct. For example for speed many primitives use - ResultReceiverReg instead of accessing the stack, so the receiver better be at - numArgs down the stack. Use the interpreter version if not. Likewise if it has an - enabled function that must answer true for the generated code to be correct." - ((primitiveDescriptor := self primitiveGeneratorOrNil) notNil - and: [primitiveDescriptor primitiveGenerator notNil - and: [(primitiveDescriptor primNumArgs < 0 "means don't care" - or: [primitiveDescriptor primNumArgs = (coInterpreter argumentCountOf: methodObj)]) - and: [primitiveDescriptor enabled isNil - or: [self perform: primitiveDescriptor enabled with: primitiveIndex]]]]) ifTrue: - [^self perform: primitiveDescriptor primitiveGenerator]. - ((primitiveRoutine := coInterpreter - functionPointerForCompiledMethod: methodObj - primitiveIndex: primitiveIndex) isNil "no primitive" - or: [primitiveRoutine = (coInterpreter functionPointerFor: 0 inClass: nil) "routine = primitiveFail"]) ifTrue: - [^self genFastPrimFail]. - minValidCallAddress := minValidCallAddress min: primitiveRoutine asUnsignedInteger. - ^self compileInterpreterPrimitive: primitiveRoutine! Item was added: + ----- Method: Cogit>>mclassIsSmallInteger (in category 'initialization') ----- + mclassIsSmallInteger + ^(coInterpreter methodClassOf: methodObj) = objectMemory classSmallInteger! Item was removed: - ----- Method: Cogit>>mclassIsSmallInteger: (in category 'initialization') ----- - mclassIsSmallInteger: ignoredPrimIndex - ^(coInterpreter methodClassOf: methodObj) = objectMemory classSmallInteger! Item was added: + ----- Method: Cogit>>methodNumArgs (in category 'accessing') ----- + methodNumArgs + ^methodOrBlockNumArgs! Item was removed: - ----- Method: Cogit>>primitiveGeneratorOrNil (in category 'compile abstract instructions') ----- - primitiveGeneratorOrNil - "If there is a generator for the current primitive then answer it; - otherwise answer nil." - <returnTypeC: #'PrimitiveDescriptor *'> - | primitiveDescriptor | - <var: #primitiveDescriptor type: #'PrimitiveDescriptor *'> - (coInterpreter isQuickPrimitiveIndex: primitiveIndex) ifTrue: - [primitiveDescriptor := self addressOf: (primitiveGeneratorTable at: 0). "an unused one" - primitiveDescriptor primitiveGenerator: (coInterpreter quickPrimitiveGeneratorFor: primitiveIndex). - ^primitiveDescriptor]. - (primitiveIndex between: 1 and: MaxCompiledPrimitiveIndex) ifTrue: - [^self addressOf: (primitiveGeneratorTable at: primitiveIndex)]. - ^nil! Item was removed: - ----- Method: Cogit>>processorHasDivQuoRem: (in category 'initialization') ----- - processorHasDivQuoRem: ignoredPrimIndex - ^backEnd canDivQuoRem! Item was added: + ----- Method: Cogit>>processorHasDivQuoRemAndMClassIsSmallInteger (in category 'initialization') ----- + processorHasDivQuoRemAndMClassIsSmallInteger + ^backEnd canDivQuoRem and: [self mclassIsSmallInteger]! Item was removed: - ----- Method: Cogit>>processorHasDivQuoRemAndMClassIsSmallInteger: (in category 'initialization') ----- - processorHasDivQuoRemAndMClassIsSmallInteger: ignoredPrimIndex - ^(self processorHasDivQuoRem: ignoredPrimIndex) - and: [self mclassIsSmallInteger: ignoredPrimIndex]! Item was added: + ----- Method: Cogit>>processorHasDoublePrecisionFloatingPointSupport (in category 'initialization') ----- + processorHasDoublePrecisionFloatingPointSupport + <option: #DPFPReg0> + <inline: true> + ^backEnd hasDoublePrecisionFloatingPointSupport! Item was removed: - ----- Method: Cogit>>processorHasDoublePrecisionFloatingPointSupport: (in category 'initialization') ----- - processorHasDoublePrecisionFloatingPointSupport: ignoredPrimIndex - ^backEnd hasDoublePrecisionFloatingPointSupport! Item was removed: - ----- Method: Cogit>>processorHasMultiply: (in category 'initialization') ----- - processorHasMultiply: ignoredPrimIndex - ^backEnd canMulRR! Item was added: + ----- Method: Cogit>>processorHasMultiplyAndMClassIsSmallInteger (in category 'initialization') ----- + processorHasMultiplyAndMClassIsSmallInteger + ^backEnd canMulRR and: [self mclassIsSmallInteger]! Item was removed: - ----- Method: Cogit>>processorHasMultiplyAndMClassIsSmallInteger: (in category 'initialization') ----- - processorHasMultiplyAndMClassIsSmallInteger: ignoredPrimIndex - ^(self processorHasMultiply: ignoredPrimIndex) - and: [self mclassIsSmallInteger: ignoredPrimIndex]! Item was changed: ----- Method: Cogit>>setInterpreter: (in category 'initialization') ----- setInterpreter: aCoInterpreter "Initialization of the code generator in the simulator. These objects already exist in the generated C VM or are used only in the simulation." <doNotGenerate> coInterpreter := aCoInterpreter. objectMemory := aCoInterpreter objectMemory. threadManager := aCoInterpreter threadManager. "N.B. may be nil" methodZone := CogMethodZone new. objectRepresentation := objectMemory objectRepresentationClass forCogit: self methodZone: methodZone. methodZone setInterpreter: aCoInterpreter objectRepresentation: objectRepresentation cogit: self. generatorTable := self class generatorTable. - primitiveGeneratorTable := self class primitiveTable. processor := ProcessorClass new. simulatedAddresses := Dictionary new. simulatedTrampolines := Dictionary new. simulatedVariableGetters := Dictionary new. simulatedVariableSetters := Dictionary new. traceStores := 0. traceFlags := (self class initializationOptions at: #recordPrimTrace ifAbsent: [true]) ifTrue: [8] "record prim trace on by default (see Cogit class>>decareCVarsIn:)" ifFalse: [0]. debugPrimCallStackOffset := 0. singleStep := printRegisters := printInstructions := clickConfirm := false. backEnd := CogCompilerClass for: self. methodLabel := CogCompilerClass for: self. (literalsManager := backEnd class literalsManagerClass new) cogit: self. ordinarySendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines). superSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines). BytecodeSetHasDirectedSuperSend ifTrue: [directedSuperSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines)]. NewspeakVM ifTrue: [selfSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines). dynamicSuperSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines). implicitReceiverSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines). outerSendTrampolines := CArrayAccessor on: (Array new: NumSendTrampolines)]. "debug metadata" objectReferencesInRuntime := CArrayAccessor on: (Array new: NumObjRefsInRuntime). runtimeObjectRefIndex := 0. "debug metadata" trampolineAddresses := CArrayAccessor on: (Array new: NumTrampolines * 2). trampolineTableIndex := 0. extA := extB := 0. compilationTrace ifNil: [compilationTrace := self class initializationOptions at: #compilationTrace ifAbsent: [0]]. debugOpcodeIndices := self class initializationOptions at: #debugOpcodeIndices ifAbsent: [Set new].! Item was removed: - ----- Method: Cogit>>unimplementedPrimitive (in category 'accessing') ----- - unimplementedPrimitive - ^UnimplementedPrimitive! Item was added: + ----- Method: CurrentImageCoInterpreterFacade>>characterObjectOf: (in category 'accessing') ----- + characterObjectOf: anInteger + ^objectMemory characterObjectOf: anInteger! Item was changed: Cogit subclass: #SimpleStackBasedCogit + instanceVariableNames: 'primitiveGeneratorTable primSetFunctionLabel primInvokeInstruction externalPrimCallOffsets externalPrimJumpOffsets externalSetPrimOffsets' - instanceVariableNames: 'primSetFunctionLabel primInvokeInstruction externalPrimCallOffsets externalPrimJumpOffsets externalSetPrimOffsets' classVariableNames: '' poolDictionaries: 'VMMethodCacheConstants VMObjectIndices' category: 'VMMaker-JIT'! !SimpleStackBasedCogit commentStamp: '<historical>' prior: 0! I am the stage one JIT for Cog that does not attempt to eliminate the stack via deferred code generation.! Item was changed: ----- Method: SimpleStackBasedCogit class>>declareCVarsIn: (in category 'translation') ----- declareCVarsIn: aCCodeGenerator + + aCCodeGenerator vmClass primitiveGeneratorTable ifNotNil: + [:bytecodeGenTable| + aCCodeGenerator + var: #primitiveGeneratorTable + declareC: 'static PrimitiveDescriptor primitiveGeneratorTable[MaxCompiledPrimitiveIndex+1]', + (self tableInitializerFor: aCCodeGenerator vmClass primitiveTable + in: aCCodeGenerator)]. aCCodeGenerator var: #externalPrimCallOffsets declareC: 'sqInt externalPrimCallOffsets[MaxNumArgs + 1]'; var: #externalPrimJumpOffsets declareC: 'sqInt externalPrimJumpOffsets[MaxNumArgs + 1]'; var: #externalSetPrimOffsets declareC: 'sqInt externalSetPrimOffsets[MaxNumArgs + 1]'; var: #primSetFunctionLabel type: #'AbstractInstruction *'; var: #primInvokeInstruction type: #'AbstractInstruction *'! Item was changed: ----- Method: SimpleStackBasedCogit class>>initializePrimitiveTableForNewsqueak (in category 'class initialization') ----- initializePrimitiveTableForNewsqueak "Initialize the table of primitive generators. This does not include normal primitives implemented in the coInterpreter. N.B. primitives that don't have an explicit arg count (the integer following the generator) may be variadic." + "SimpleStackBasedCogit initializePrimitiveTableForNewsqueak" - "SimpleStackBasedCogit initializePrimitiveTableForSqueakV3" MaxCompiledPrimitiveIndex := self objectRepresentationClass wordSize = 8 ifTrue: [555] ifFalse: [222]. primitiveTable := CArrayAccessor on: (Array new: MaxCompiledPrimitiveIndex + 1). self table: primitiveTable from: #( "Integer Primitives (0-19)" + (1 genPrimitiveAdd 1) + (2 genPrimitiveSubtract 1) + (3 genPrimitiveLessThan 1) + (4 genPrimitiveGreaterThan 1) + (5 genPrimitiveLessOrEqual 1) + (6 genPrimitiveGreaterOrEqual 1) + (7 genPrimitiveEqual 1) + (8 genPrimitiveNotEqual 1) + (9 genPrimitiveMultiply 1) + (10 genPrimitiveDivide 1) + (11 genPrimitiveMod 1) + (12 genPrimitiveDiv 1) + (13 genPrimitiveQuo 1) + (14 genPrimitiveBitAnd 1) + (15 genPrimitiveBitOr 1) + (16 genPrimitiveBitXor 1) + (17 genPrimitiveBitShift 1) - (1 genPrimitiveAdd 1 mclassIsSmallInteger:) - (2 genPrimitiveSubtract 1 mclassIsSmallInteger:) - (3 genPrimitiveLessThan 1 mclassIsSmallInteger:) - (4 genPrimitiveGreaterThan 1 mclassIsSmallInteger:) - (5 genPrimitiveLessOrEqual 1 mclassIsSmallInteger:) - (6 genPrimitiveGreaterOrEqual 1 mclassIsSmallInteger:) - (7 genPrimitiveEqual 1 mclassIsSmallInteger:) - (8 genPrimitiveNotEqual 1 mclassIsSmallInteger:) - (9 genPrimitiveMultiply 1 processorHasMultiplyAndMClassIsSmallInteger:) - (10 genPrimitiveDivide 1 processorHasDivQuoRemAndMClassIsSmallInteger:) - (11 genPrimitiveMod 1 processorHasDivQuoRemAndMClassIsSmallInteger:) - (12 genPrimitiveDiv 1 processorHasDivQuoRemAndMClassIsSmallInteger:) - (13 genPrimitiveQuo 1 processorHasDivQuoRemAndMClassIsSmallInteger:) - (14 genPrimitiveBitAnd 1 mclassIsSmallInteger:) - (15 genPrimitiveBitOr 1 mclassIsSmallInteger:) - (16 genPrimitiveBitXor 1 mclassIsSmallInteger:) - (17 genPrimitiveBitShift 1 mclassIsSmallInteger:) "(18 primitiveMakePoint)" "(19 primitiveFail)" "Guard primitive for simulation -- *must* fail" "LargeInteger Primitives (20-39)" "(20 primitiveFail)" "(21 primitiveAddLargeIntegers)" "(22 primitiveSubtractLargeIntegers)" "(23 primitiveLessThanLargeIntegers)" "(24 primitiveGreaterThanLargeIntegers)" "(25 primitiveLessOrEqualLargeIntegers)" "(26 primitiveGreaterOrEqualLargeIntegers)" "(27 primitiveEqualLargeIntegers)" "(28 primitiveNotEqualLargeIntegers)" "(29 primitiveMultiplyLargeIntegers)" "(30 primitiveDivideLargeIntegers)" "(31 primitiveModLargeIntegers)" "(32 primitiveDivLargeIntegers)" "(33 primitiveQuoLargeIntegers)" "(34 primitiveBitAndLargeIntegers)" "(35 primitiveBitOrLargeIntegers)" "(36 primitiveBitXorLargeIntegers)" "(37 primitiveBitShiftLargeIntegers)" "Float Primitives (38-59)" + "(38 genPrimitiveFloatAt)" + "(39 genPrimitiveFloatAtPut)" + (40 genPrimitiveAsFloat 0) + (41 genPrimitiveFloatAdd 1) + (42 genPrimitiveFloatSubtract 1) + (43 genPrimitiveFloatLessThan 1) + (44 genPrimitiveFloatGreaterThan 1) + (45 genPrimitiveFloatLessOrEqual 1) + (46 genPrimitiveFloatGreaterOrEqual 1) + (47 genPrimitiveFloatEqual 1) + (48 genPrimitiveFloatNotEqual 1) + (49 genPrimitiveFloatMultiply 1) + (50 genPrimitiveFloatDivide 1) + "(51 genPrimitiveTruncated)" + "(52 genPrimitiveFractionalPart)" + "(53 genPrimitiveExponent)" + "(54 genPrimitiveTimesTwoPower)" + (55 genPrimitiveFloatSquareRoot 0) + "(56 genPrimitiveSine)" + "(57 genPrimitiveArctan)" + "(58 genPrimitiveLogN)" + "(59 genPrimitiveExp)" - "(38 primitiveFloatAt)" - "(39 primitiveFloatAtPut)" - (40 genPrimitiveAsFloat 0 processorHasDoublePrecisionFloatingPointSupport:) - (41 genPrimitiveFloatAdd 1 processorHasDoublePrecisionFloatingPointSupport:) - (42 genPrimitiveFloatSubtract 1 processorHasDoublePrecisionFloatingPointSupport:) - (43 genPrimitiveFloatLessThan 1 processorHasDoublePrecisionFloatingPointSupport:) - (44 genPrimitiveFloatGreaterThan 1 processorHasDoublePrecisionFloatingPointSupport:) - (45 genPrimitiveFloatLessOrEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (46 genPrimitiveFloatGreaterOrEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (47 genPrimitiveFloatEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (48 genPrimitiveFloatNotEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (49 genPrimitiveFloatMultiply 1 processorHasDoublePrecisionFloatingPointSupport:) - (50 genPrimitiveFloatDivide 1 processorHasDoublePrecisionFloatingPointSupport:) - "(51 primitiveTruncated)" - "(52 primitiveFractionalPart)" - "(53 primitiveExponent)" - "(54 primitiveTimesTwoPower)" - (55 genPrimitiveFloatSquareRoot 0 processorHasDoublePrecisionFloatingPointSupport:) - "(56 primitiveSine)" - "(57 primitiveArctan)" - "(58 primitiveLogN)" - "(59 primitiveExp)" "Subscript and Stream Primitives (60-67)" (60 genPrimitiveAt 1) (61 genPrimitiveAtPut 2) (62 genPrimitiveSize 0) (63 genPrimitiveStringAt 1) (64 genPrimitiveStringAtPut 2) "The stream primitives no longer pay their way; normal Smalltalk code is faster." (65 genFastPrimFail)"was primitiveNext" (66 genFastPrimFail) "was primitiveNextPut" (67 genFastPrimFail) "was primitiveAtEnd" "StorageManagement Primitives (68-79)" (68 genPrimitiveObjectAt 1) "Good for debugger/InstructionStream performance" "(69 primitiveObjectAtPut)" (70 genPrimitiveNew) "For VMMirror support 1 argument instantiateFixedClass: as well as baiscNew" (71 genPrimitiveNewWithArg) "For VMMirror support 2 argument instantiateVariableClass:withSize: as well as baiscNew:" "(72 primitiveArrayBecomeOneWay)" "Blue Book: primitiveBecome" "(73 primitiveInstVarAt)" "(74 primitiveInstVarAtPut)" (75 genPrimitiveIdentityHash 0) "(76 primitiveStoreStackp)" "Blue Book: primitiveAsObject" "(77 primitiveSomeInstance)" "(78 primitiveNextInstance)" (79 genPrimitiveNewMethod 2) "Control Primitives (80-89)" "(80 primitiveFail)" "Blue Book: primitiveBlockCopy" "(81 primitiveFail)" "Blue Book: primitiveValue" "(82 primitiveFail)" "Blue Book: primitiveValueWithArgs" (83 genPrimitivePerform) "(84 primitivePerformWithArgs)" "(85 primitiveSignal)" "(86 primitiveWait)" "(87 primitiveResume)" "(88 primitiveSuspend)" "(89 primitiveFlushCache)" "System Primitives (110-119)" (110 genPrimitiveIdentical 1) (111 genPrimitiveClass) "For objectClass: and VMMirror support 1 argument classOf: as well as class" "(112 primitiveBytesLeft)" "(113 primitiveQuit)" "(114 primitiveExitToDebugger)" "(115 primitiveChangeClass)" "Blue Book: primitiveOopsLeft" "(116 primitiveFlushCacheByMethod)" "(117 primitiveExternalCall)" "(118 primitiveDoPrimitiveWithArgs)" "(119 primitiveFlushCacheSelective)" (169 genPrimitiveNotIdentical 1) (170 genPrimitiveAsCharacter) "SmallInteger>>asCharacter, Character class>>value:" (171 genPrimitiveCharacterValue 0) "Character>>value" "(173 primitiveSlotAt 1)" "(174 primitiveSlotAtPut 2)" (175 genPrimitiveIdentityHash 0) "Behavior>>identityHash" "Old closure primitives" "(186 primitiveFail)" "was primitiveClosureValue" "(187 primitiveFail)" "was primitiveClosureValueWithArgs" "Perform method directly" "(188 primitiveExecuteMethodArgsArray)" "(189 primitiveExecuteMethod)" "Unwind primitives" "(195 primitiveFindNextUnwindContext)" "(196 primitiveTerminateTo)" "(197 primitiveFindHandlerContext)" (198 genFastPrimFail "primitiveMarkUnwindMethod") (199 genFastPrimFail "primitiveMarkHandlerMethod") "new closure primitives" "(200 primitiveClosureCopyWithCopiedValues)" (201 genPrimitiveClosureValue 0) "value" (202 genPrimitiveClosureValue 1) "value:" (203 genPrimitiveClosureValue 2) "value:value:" (204 genPrimitiveClosureValue 3) "value:value:value:" (205 genPrimitiveClosureValue 4) "value:value:value:value:" "(206 genPrimitiveClosureValueWithArgs)" "valueWithArguments:" "(210 primitiveContextAt)" "(211 primitiveContextAtPut)" "(212 primitiveContextSize)" "(218 primitiveDoNamedPrimitiveWithArgs)" "(219 primitiveFail)" "reserved for Cog primitives" "(220 primitiveFail)" "reserved for Cog primitives" (221 genPrimitiveClosureValue 0) "valueNoContextSwitch" (222 genPrimitiveClosureValue 1) "valueNoContextSwitch:" "SmallFloat primitives (540-559)" + (541 genPrimitiveSmallFloatAdd 1) + (542 genPrimitiveSmallFloatSubtract 1) + (543 genPrimitiveSmallFloatLessThan 1) + (544 genPrimitiveSmallFloatGreaterThan 1) + (545 genPrimitiveSmallFloatLessOrEqual 1) + (546 genPrimitiveSmallFloatGreaterOrEqual 1) + (547 genPrimitiveSmallFloatEqual 1) + (548 genPrimitiveSmallFloatNotEqual 1) + (549 genPrimitiveSmallFloatMultiply 1) + (550 genPrimitiveSmallFloatDivide 1) + "(551 genPrimitiveSmallFloatTruncated 0)" + "(552 genPrimitiveSmallFloatFractionalPart 0)" + "(553 genPrimitiveSmallFloatExponent 0)" + "(554 genPrimitiveSmallFloatTimesTwoPower 1)" + (555 genPrimitiveSmallFloatSquareRoot 0) + "(556 genPrimitiveSmallFloatSine 0)" + "(557 genPrimitiveSmallFloatArctan 0)" + "(558 genPrimitiveSmallFloatLogN 0)" + "(559 genPrimitiveSmallFloatExp 0)" - (541 genPrimitiveSmallFloatAdd 1 processorHasDoublePrecisionFloatingPointSupport:) - (542 genPrimitiveSmallFloatSubtract 1 processorHasDoublePrecisionFloatingPointSupport:) - (543 genPrimitiveSmallFloatLessThan 1 processorHasDoublePrecisionFloatingPointSupport:) - (544 genPrimitiveSmallFloatGreaterThan 1 processorHasDoublePrecisionFloatingPointSupport:) - (545 genPrimitiveSmallFloatLessOrEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (546 genPrimitiveSmallFloatGreaterOrEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (547 genPrimitiveSmallFloatEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (548 genPrimitiveSmallFloatNotEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (549 genPrimitiveSmallFloatMultiply 1 processorHasDoublePrecisionFloatingPointSupport:) - (550 genPrimitiveSmallFloatDivide 1 processorHasDoublePrecisionFloatingPointSupport:) - "(551 genPrimitiveSmallFloatTruncated 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(552 genPrimitiveSmallFloatFractionalPart 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(553 genPrimitiveSmallFloatExponent 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(554 genPrimitiveSmallFloatTimesTwoPower 1 processorHasDoublePrecisionFloatingPointSupport:)" - (555 genPrimitiveSmallFloatSquareRoot 0 processorHasDoublePrecisionFloatingPointSupport:) - "(556 genPrimitiveSmallFloatSine 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(557 genPrimitiveSmallFloatArctan 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(558 genPrimitiveSmallFloatLogN 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(559 genPrimitiveSmallFloatExp 0 processorHasDoublePrecisionFloatingPointSupport:)" )! Item was changed: ----- Method: SimpleStackBasedCogit class>>initializePrimitiveTableForSqueak (in category 'class initialization') ----- initializePrimitiveTableForSqueak "Initialize the table of primitive generators. This does not include normal primitives implemented in the coInterpreter. N.B. primitives that don't have an explicit arg count (the integer following the generator) may be variadic." "SimpleStackBasedCogit initializePrimitiveTableForSqueak" MaxCompiledPrimitiveIndex := self objectRepresentationClass wordSize = 8 ifTrue: [555] ifFalse: [222]. primitiveTable := CArrayAccessor on: (Array new: MaxCompiledPrimitiveIndex + 1). self table: primitiveTable from: #( "Integer Primitives (0-19)" + (1 genPrimitiveAdd 1) + (2 genPrimitiveSubtract 1) + (3 genPrimitiveLessThan 1) + (4 genPrimitiveGreaterThan 1) + (5 genPrimitiveLessOrEqual 1) + (6 genPrimitiveGreaterOrEqual 1) + (7 genPrimitiveEqual 1) + (8 genPrimitiveNotEqual 1) + (9 genPrimitiveMultiply 1) + (10 genPrimitiveDivide 1) + (11 genPrimitiveMod 1) + (12 genPrimitiveDiv 1) + (13 genPrimitiveQuo 1) + (14 genPrimitiveBitAnd 1) + (15 genPrimitiveBitOr 1) + (16 genPrimitiveBitXor 1) + (17 genPrimitiveBitShift 1) - (1 genPrimitiveAdd 1 mclassIsSmallInteger:) - (2 genPrimitiveSubtract 1 mclassIsSmallInteger:) - (3 genPrimitiveLessThan 1 mclassIsSmallInteger:) - (4 genPrimitiveGreaterThan 1 mclassIsSmallInteger:) - (5 genPrimitiveLessOrEqual 1 mclassIsSmallInteger:) - (6 genPrimitiveGreaterOrEqual 1 mclassIsSmallInteger:) - (7 genPrimitiveEqual 1 mclassIsSmallInteger:) - (8 genPrimitiveNotEqual 1 mclassIsSmallInteger:) - (9 genPrimitiveMultiply 1 processorHasMultiplyAndMClassIsSmallInteger:) - (10 genPrimitiveDivide 1 processorHasDivQuoRemAndMClassIsSmallInteger:) - (11 genPrimitiveMod 1 processorHasDivQuoRemAndMClassIsSmallInteger:) - (12 genPrimitiveDiv 1 processorHasDivQuoRemAndMClassIsSmallInteger:) - (13 genPrimitiveQuo 1 processorHasDivQuoRemAndMClassIsSmallInteger:) - (14 genPrimitiveBitAnd 1 mclassIsSmallInteger:) - (15 genPrimitiveBitOr 1 mclassIsSmallInteger:) - (16 genPrimitiveBitXor 1 mclassIsSmallInteger:) - (17 genPrimitiveBitShift 1 mclassIsSmallInteger:) "(18 primitiveMakePoint)" "(19 primitiveFail)" "Guard primitive for simulation -- *must* fail" "LargeInteger Primitives (20-39)" "(20 primitiveFail)" "(21 primitiveAddLargeIntegers)" "(22 primitiveSubtractLargeIntegers)" "(23 primitiveLessThanLargeIntegers)" "(24 primitiveGreaterThanLargeIntegers)" "(25 primitiveLessOrEqualLargeIntegers)" "(26 primitiveGreaterOrEqualLargeIntegers)" "(27 primitiveEqualLargeIntegers)" "(28 primitiveNotEqualLargeIntegers)" "(29 primitiveMultiplyLargeIntegers)" "(30 primitiveDivideLargeIntegers)" "(31 primitiveModLargeIntegers)" "(32 primitiveDivLargeIntegers)" "(33 primitiveQuoLargeIntegers)" "(34 primitiveBitAndLargeIntegers)" "(35 primitiveBitOrLargeIntegers)" "(36 primitiveBitXorLargeIntegers)" "(37 primitiveBitShiftLargeIntegers)" "Float Primitives (38-59)" "(38 genPrimitiveFloatAt)" "(39 genPrimitiveFloatAtPut)" + (40 genPrimitiveAsFloat 0) + (41 genPrimitiveFloatAdd 1) + (42 genPrimitiveFloatSubtract 1) + (43 genPrimitiveFloatLessThan 1) + (44 genPrimitiveFloatGreaterThan 1) + (45 genPrimitiveFloatLessOrEqual 1) + (46 genPrimitiveFloatGreaterOrEqual 1) + (47 genPrimitiveFloatEqual 1) + (48 genPrimitiveFloatNotEqual 1) + (49 genPrimitiveFloatMultiply 1) + (50 genPrimitiveFloatDivide 1) - (40 genPrimitiveAsFloat 0 processorHasDoublePrecisionFloatingPointSupport:) - (41 genPrimitiveFloatAdd 1 processorHasDoublePrecisionFloatingPointSupport:) - (42 genPrimitiveFloatSubtract 1 processorHasDoublePrecisionFloatingPointSupport:) - (43 genPrimitiveFloatLessThan 1 processorHasDoublePrecisionFloatingPointSupport:) - (44 genPrimitiveFloatGreaterThan 1 processorHasDoublePrecisionFloatingPointSupport:) - (45 genPrimitiveFloatLessOrEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (46 genPrimitiveFloatGreaterOrEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (47 genPrimitiveFloatEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (48 genPrimitiveFloatNotEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (49 genPrimitiveFloatMultiply 1 processorHasDoublePrecisionFloatingPointSupport:) - (50 genPrimitiveFloatDivide 1 processorHasDoublePrecisionFloatingPointSupport:) "(51 genPrimitiveTruncated)" "(52 genPrimitiveFractionalPart)" "(53 genPrimitiveExponent)" "(54 genPrimitiveTimesTwoPower)" + (55 genPrimitiveFloatSquareRoot 0) - (55 genPrimitiveFloatSquareRoot 0 processorHasDoublePrecisionFloatingPointSupport:) "(56 genPrimitiveSine)" "(57 genPrimitiveArctan)" "(58 genPrimitiveLogN)" "(59 genPrimitiveExp)" "Subscript and Stream Primitives (60-67)" (60 genPrimitiveAt 1) (61 genPrimitiveAtPut 2) (62 genPrimitiveSize 0) (63 genPrimitiveStringAt 1) (64 genPrimitiveStringAtPut 2) "The stream primitives no longer pay their way; normal Smalltalk code is faster." (65 genFastPrimFail)"was primitiveNext" (66 genFastPrimFail) "was primitiveNextPut" (67 genFastPrimFail) "was primitiveAtEnd" "StorageManagement Primitives (68-79)" (68 genPrimitiveObjectAt 1) "Good for debugger/InstructionStream performance" "(69 primitiveObjectAtPut)" (70 genPrimitiveNew 0) (71 genPrimitiveNewWithArg 1) "(72 primitiveArrayBecomeOneWay)" "Blue Book: primitiveBecome" "(73 primitiveInstVarAt)" "(74 primitiveInstVarAtPut)" (75 genPrimitiveIdentityHash 0) "(76 primitiveStoreStackp)" "Blue Book: primitiveAsObject" "(77 primitiveSomeInstance)" "(78 primitiveNextInstance)" (79 genPrimitiveNewMethod 2) "Control Primitives (80-89)" "(80 primitiveFail)" "Blue Book: primitiveBlockCopy" "(81 primitiveFail)" "Blue Book: primitiveValue" "(82 primitiveFail)" "Blue Book: primitiveValueWithArgs" (83 genPrimitivePerform) "(84 primitivePerformWithArgs)" "(85 primitiveSignal)" "(86 primitiveWait)" "(87 primitiveResume)" "(88 primitiveSuspend)" "(89 primitiveFlushCache)" "System Primitives (110-119)" (110 genPrimitiveIdentical 1) (111 genPrimitiveClass) "Support both class and Context>>objectClass:" "(112 primitiveBytesLeft)" "(113 primitiveQuit)" "(114 primitiveExitToDebugger)" "(115 primitiveChangeClass)" "Blue Book: primitiveOopsLeft" "(116 primitiveFlushCacheByMethod)" "(117 primitiveExternalCall)" "(118 primitiveDoPrimitiveWithArgs)" "(119 primitiveFlushCacheSelective)" (169 genPrimitiveNotIdentical 1) (170 genPrimitiveAsCharacter) "SmallInteger>>asCharacter, Character class>>value:" (171 genPrimitiveCharacterValue 0) "Character>>value" "(173 primitiveSlotAt 1)" "(174 primitiveSlotAtPut 2)" (175 genPrimitiveIdentityHash 0) "Behavior>>identityHash" "Old closure primitives" "(186 primitiveFail)" "was primitiveClosureValue" "(187 primitiveFail)" "was primitiveClosureValueWithArgs" "Perform method directly" "(188 primitiveExecuteMethodArgsArray)" "(189 primitiveExecuteMethod)" "Unwind primitives" "(195 primitiveFindNextUnwindContext)" "(196 primitiveTerminateTo)" "(197 primitiveFindHandlerContext)" (198 genFastPrimFail "primitiveMarkUnwindMethod") (199 genFastPrimFail "primitiveMarkHandlerMethod") "new closure primitives" "(200 primitiveClosureCopyWithCopiedValues)" (201 genPrimitiveClosureValue 0) "value" (202 genPrimitiveClosureValue 1) "value:" (203 genPrimitiveClosureValue 2) "value:value:" (204 genPrimitiveClosureValue 3) "value:value:value:" (205 genPrimitiveClosureValue 4) "value:value:value:value:" "(206 genPrimitiveClosureValueWithArgs)" "valueWithArguments:" "(210 primitiveContextAt)" "(211 primitiveContextAtPut)" "(212 primitiveContextSize)" "(218 primitiveDoNamedPrimitiveWithArgs)" "(219 primitiveFail)" "reserved for Cog primitives" "(220 primitiveFail)" "reserved for Cog primitives" (221 genPrimitiveClosureValue 0) "valueNoContextSwitch" (222 genPrimitiveClosureValue 1) "valueNoContextSwitch:" "SmallFloat primitives (540-559)" + (541 genPrimitiveSmallFloatAdd 1) + (542 genPrimitiveSmallFloatSubtract 1) + (543 genPrimitiveSmallFloatLessThan 1) + (544 genPrimitiveSmallFloatGreaterThan 1) + (545 genPrimitiveSmallFloatLessOrEqual 1) + (546 genPrimitiveSmallFloatGreaterOrEqual 1) + (547 genPrimitiveSmallFloatEqual 1) + (548 genPrimitiveSmallFloatNotEqual 1) + (549 genPrimitiveSmallFloatMultiply 1) + (550 genPrimitiveSmallFloatDivide 1) + "(551 genPrimitiveSmallFloatTruncated 0)" + "(552 genPrimitiveSmallFloatFractionalPart 0)" + "(553 genPrimitiveSmallFloatExponent 0)" + "(554 genPrimitiveSmallFloatTimesTwoPower 1)" + (555 genPrimitiveSmallFloatSquareRoot 0) + "(556 genPrimitiveSmallFloatSine 0)" + "(557 genPrimitiveSmallFloatArctan 0)" + "(558 genPrimitiveSmallFloatLogN 0)" + "(559 genPrimitiveSmallFloatExp 0)" - (541 genPrimitiveSmallFloatAdd 1 processorHasDoublePrecisionFloatingPointSupport:) - (542 genPrimitiveSmallFloatSubtract 1 processorHasDoublePrecisionFloatingPointSupport:) - (543 genPrimitiveSmallFloatLessThan 1 processorHasDoublePrecisionFloatingPointSupport:) - (544 genPrimitiveSmallFloatGreaterThan 1 processorHasDoublePrecisionFloatingPointSupport:) - (545 genPrimitiveSmallFloatLessOrEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (546 genPrimitiveSmallFloatGreaterOrEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (547 genPrimitiveSmallFloatEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (548 genPrimitiveSmallFloatNotEqual 1 processorHasDoublePrecisionFloatingPointSupport:) - (549 genPrimitiveSmallFloatMultiply 1 processorHasDoublePrecisionFloatingPointSupport:) - (550 genPrimitiveSmallFloatDivide 1 processorHasDoublePrecisionFloatingPointSupport:) - "(551 genPrimitiveSmallFloatTruncated 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(552 genPrimitiveSmallFloatFractionalPart 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(553 genPrimitiveSmallFloatExponent 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(554 genPrimitiveSmallFloatTimesTwoPower 1 processorHasDoublePrecisionFloatingPointSupport:)" - (555 genPrimitiveSmallFloatSquareRoot 0 processorHasDoublePrecisionFloatingPointSupport:) - "(556 genPrimitiveSmallFloatSine 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(557 genPrimitiveSmallFloatArctan 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(558 genPrimitiveSmallFloatLogN 0 processorHasDoublePrecisionFloatingPointSupport:)" - "(559 genPrimitiveSmallFloatExp 0 processorHasDoublePrecisionFloatingPointSupport:)" )! Item was added: + ----- Method: SimpleStackBasedCogit class>>table:from: (in category 'class initialization') ----- + table: primArray from: specArray + "Fill in the specified entries in the primitive table." + specArray do: + [:spec | + (spec second == #genFastPrimFail + or: [self objectRepresentationClass shouldIncludeMethodForSelector: spec second]) ifTrue: + [(primArray at: spec first put: CogPrimitiveDescriptor new) + primitiveGenerator: spec second; + primNumArgs: (spec at: 3 ifAbsent: -1)]]. + primArray object withIndexDo: + [:generator :i| + generator ifNil: + [(primArray object at: i put: CogPrimitiveDescriptor new) + primNumArgs: -1]]! Item was removed: - ----- Method: SimpleStackBasedCogit>>compileFallbackToInterpreterPrimitive: (in category 'primitive generators') ----- - compileFallbackToInterpreterPrimitive: code - <inline: false> - (code < 0 and: [code ~= UnimplementedPrimitive]) ifTrue: "Generator failed, so no point continuing..." - [^code]. - code = UnfailingPrimitive ifTrue: - [^0]. - (code = CompletePrimitive - and: [(self methodUsesPrimitiveErrorCode) not]) ifTrue: - [^0]. - ^self compileInterpreterPrimitive: (coInterpreter - functionPointerForCompiledMethod: methodObj - primitiveIndex: primitiveIndex)! Item was added: + ----- Method: SimpleStackBasedCogit>>compilePrimitive (in category 'primitive generators') ----- + compilePrimitive + "Compile a primitive. If possible, performance-critical primtiives will + be generated by their own routines (primitiveGenerator). Otherwise, + if there is a primitive at all, we 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." + <inline: false> + | code opcodeIndexAtPrimitive primitiveDescriptor primitiveRoutine | + <var: #primitiveDescriptor type: #'PrimitiveDescriptor *'> + <var: #primitiveRoutine declareC: 'void (*primitiveRoutine)(void)'> + primitiveIndex = 0 ifTrue: [^0]. + code := 0. + "Note opcodeIndex so that compileFallbackToInterpreterPrimitive: + can discard arg load instructions for unimplemented primitives." + opcodeIndexAtPrimitive := opcodeIndex. + "If a descriptor specifies an argument count (by numArgs >= 0) then it must match + for the generated code to be correct. For example for speed many primitives use + ResultReceiverReg instead of accessing the stack, so the receiver better be at + numArgs down the stack. Use the interpreter version if not." + ((primitiveDescriptor := self primitiveGeneratorOrNil) notNil + and: [primitiveDescriptor primitiveGenerator notNil + and: [(primitiveDescriptor primNumArgs < 0 "means don't care" + or: [primitiveDescriptor primNumArgs = (coInterpreter argumentCountOf: methodObj)])]]) ifTrue: + [code := objectRepresentation perform: primitiveDescriptor primitiveGenerator]. + (code < 0 and: [code ~= UnimplementedPrimitive]) ifTrue: "Generator failed, so no point continuing..." + [^code]. + code = UnfailingPrimitive ifTrue: + [^0]. + (code = CompletePrimitive + and: [(self methodUsesPrimitiveErrorCode) not]) ifTrue: + [^0]. + "Discard any arg load code generated by the primitive generator." + code = UnimplementedPrimitive ifTrue: + [opcodeIndex := opcodeIndexAtPrimitive]. + ((primitiveRoutine := coInterpreter + functionPointerForCompiledMethod: methodObj + primitiveIndex: primitiveIndex) isNil "no primitive" + or: [primitiveRoutine = (coInterpreter functionPointerFor: 0 inClass: nil) "routine = primitiveFail"]) ifTrue: + [^self genFastPrimFail]. + minValidCallAddress := minValidCallAddress min: primitiveRoutine asUnsignedInteger. + ^self compileInterpreterPrimitive: primitiveRoutine! Item was added: + ----- Method: SimpleStackBasedCogit>>evaluateTrampolineCallBlock:protectLinkRegIfNot: (in category 'trampoline support') ----- + evaluateTrampolineCallBlock: block protectLinkRegIfNot: inFrame + <inline: true> + inFrame + ifFalse: + [ backEnd saveAndRestoreLinkRegAround: [ block value ] ] + ifTrue: + [ block value ].! Item was removed: - ----- Method: SimpleStackBasedCogit>>genDoubleArithmetic:preOpCheck: (in category 'primitive generators') ----- - genDoubleArithmetic: arithmeticOperator preOpCheck: preOpCheckOrNil - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address" - <var: #preOpCheckOrNil declareC: 'AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)'> - | jumpFailClass jumpFailAlloc jumpFailCheck jumpImmediate jumpNonInt doOp fail | - <var: #jumpFailClass type: #'AbstractInstruction *'> - <var: #jumpFailAlloc type: #'AbstractInstruction *'> - <var: #jumpNonInt type: #'AbstractInstruction *'> - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpFailCheck type: #'AbstractInstruction *'> - <var: #doOp type: #'AbstractInstruction *'> - <var: #fail type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: ClassReg. - objectRepresentation genGetDoubleValueOf: ReceiverResultReg into: DPFPReg0. - jumpImmediate := objectRepresentation genJumpImmediate: ClassReg. - objectRepresentation genGetCompactClassIndexNonImmOf: ClassReg into: SendNumArgsReg. - objectRepresentation genCmpClassFloatCompactIndexR: SendNumArgsReg. - jumpFailClass := self JumpNonZero: 0. - objectRepresentation genGetDoubleValueOf: ClassReg into: DPFPReg1. - doOp := self Label. - preOpCheckOrNil ifNotNil: - [jumpFailCheck := self perform: preOpCheckOrNil with: DPFPReg0 with: DPFPReg1]. - self gen: arithmeticOperator operand: DPFPReg1 operand: DPFPReg0. - jumpFailAlloc := objectRepresentation - genAllocFloatValue: DPFPReg0 - into: SendNumArgsReg - scratchReg: ClassReg - scratchReg: TempReg. - self MoveR: SendNumArgsReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpImmediate jmpTarget: self Label. - objectRepresentation maybeGenConvertIfSmallFloatIn: Arg0Reg scratchReg: TempReg into: DPFPReg1 andJumpTo: doOp. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt := objectRepresentation genJumpNotSmallInteger: ClassReg scratchReg: TempReg]. - objectRepresentation genConvertSmallIntegerToIntegerInReg: ClassReg. - self ConvertR: ClassReg Rd: DPFPReg1. - self Jump: doOp. - jumpFailAlloc jmpTarget: self Label. - self compileFallbackToInterpreterPrimitive: 0. - fail := self Label. - jumpFailClass jmpTarget: fail. - preOpCheckOrNil ifNotNil: - [jumpFailCheck jmpTarget: fail]. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt jmpTarget: fail]. - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genDoubleComparison:invert: (in category 'primitive generators') ----- - genDoubleComparison: jumpOpcodeGenerator invert: invertComparison - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address" - <var: #jumpOpcodeGenerator declareC: 'AbstractInstruction *(*jumpOpcodeGenerator)(void *)'> - | jumpFail jumpImmediate jumpNonInt jumpCond compare | - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpNonInt type: #'AbstractInstruction *'> - <var: #jumpCond type: #'AbstractInstruction *'> - <var: #compare type: #'AbstractInstruction *'> - <var: #jumpFail type: #'AbstractInstruction *'> - - self genLoadArgAtDepth: 0 into: ClassReg. - objectRepresentation genGetDoubleValueOf: ReceiverResultReg into: DPFPReg0. - jumpImmediate := objectRepresentation genJumpImmediate: ClassReg. - objectRepresentation genGetCompactClassIndexNonImmOf: ClassReg into: SendNumArgsReg. - objectRepresentation genCmpClassFloatCompactIndexR: SendNumArgsReg. - jumpFail := self JumpNonZero: 0. - objectRepresentation genGetDoubleValueOf: ClassReg into: DPFPReg1. - invertComparison "May need to invert for NaNs" - ifTrue: [compare := self CmpRd: DPFPReg0 Rd: DPFPReg1] - ifFalse: [compare := self CmpRd: DPFPReg1 Rd: DPFPReg0]. - jumpCond := self perform: jumpOpcodeGenerator with: 0. "FP jumps are a little weird" - self genMoveFalseR: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpCond jmpTarget: (self genMoveTrueR: ReceiverResultReg). - self RetN: (self primRetNOffsetFor: 1). - jumpImmediate jmpTarget: self Label. - objectRepresentation maybeGenConvertIfSmallFloatIn: ClassReg scratchReg: TempReg into: DPFPReg1 andJumpTo: compare. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt := objectRepresentation genJumpNotSmallInteger: ClassReg scratchReg: TempReg]. - objectRepresentation genConvertSmallIntegerToIntegerInReg: ClassReg. - self ConvertR: ClassReg Rd: DPFPReg1. - self Jump: compare. - jumpFail jmpTarget: self Label. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt jmpTarget: jumpFail getJmpTarget]. - ^0! Item was changed: ----- Method: SimpleStackBasedCogit>>genDoubleFailIfZeroArgRcvr:arg: (in category 'primitive generators') ----- genDoubleFailIfZeroArgRcvr: rcvrReg arg: argReg + <option: #DPFPReg0> <returnTypeC: #'AbstractInstruction *'> self MoveCq: 0 R: TempReg. self ConvertR: TempReg Rd: DPFPReg2. self CmpRd: DPFPReg2 Rd: argReg. ^self JumpFPEqual: 0! Item was changed: ----- Method: SimpleStackBasedCogit>>genFastPrimFail (in category 'primitive generators') ----- genFastPrimFail primitiveIndex := 0. + ^UnfailingPrimitive! - ^0! Item was added: + ----- Method: SimpleStackBasedCogit>>genPrimReturn (in category 'primitive generators') ----- + genPrimReturn + "Generate a return that cuts back the stack to remove the receiver + and arguments after an invocation of a primitive with nargs arguments. + This is similar to a Pascal calling convention." + <inline: true> + ^self RetN: methodOrBlockNumArgs + 1 * objectMemory wordSize! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveAdd (in category 'primitive generators') ----- - genPrimitiveAdd - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address" - | jumpNotSI jumpOvfl | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpOvfl type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: TempReg. - self MoveR: TempReg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallIntegerInScratchReg: TempReg. - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: ClassReg. - self MoveR: ReceiverResultReg R: TempReg. - self AddR: ClassReg R: TempReg. - jumpOvfl := self JumpOverflow: 0. - self MoveR: TempReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpOvfl jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveAsCharacter (in category 'primitive generators') ----- - genPrimitiveAsCharacter - | na r | - na := coInterpreter argumentCountOf: methodObj. - na <= 1 - ifTrue: - [na = 1 ifTrue: - [self genLoadArgAtDepth: 0 into: Arg0Reg]. - r := objectRepresentation - genInnerPrimitiveAsCharacter: (self primRetNOffsetFor: na) - inReg: (na = 0 ifTrue: [ReceiverResultReg] ifFalse: [Arg0Reg])] - ifFalse: [r := 0]. - ^self compileFallbackToInterpreterPrimitive: r! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveAsFloat (in category 'primitive generators') ----- - genPrimitiveAsFloat - "Stack looks like - receiver (also in ResultReceiverReg) - return address" - | jumpFailAlloc | - <var: #jumpFailAlloc type: #'AbstractInstruction *'> - self MoveR: ReceiverResultReg R: ClassReg. - objectRepresentation genConvertSmallIntegerToIntegerInReg: ClassReg. - self ConvertR: ClassReg Rd: DPFPReg0. - jumpFailAlloc := objectRepresentation - genAllocFloatValue: DPFPReg0 - into: SendNumArgsReg - scratchReg: ClassReg - scratchReg: TempReg. - self MoveR: SendNumArgsReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 0). - jumpFailAlloc jmpTarget: self Label. - ^self compileFallbackToInterpreterPrimitive: 0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveAt (in category 'primitive generators') ----- - genPrimitiveAt - self genLoadArgAtDepth: 0 into: Arg0Reg. - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveAt: (self primRetNOffsetFor: 1))! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveAtPut (in category 'primitive generators') ----- - genPrimitiveAtPut - | savedIndex r | - savedIndex := opcodeIndex. - self genLoadArgAtDepth: 1 into: Arg0Reg. - self genLoadArgAtDepth: 0 into: Arg1Reg. - r := objectRepresentation genInnerPrimitiveAtPut: (self primRetNOffsetFor: 2). - "If primitive is unimplemented, discard arg load." - r = UnimplementedPrimitive ifTrue: - [opcodeIndex := savedIndex]. - ^self compileFallbackToInterpreterPrimitive: r! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveBitAnd (in category 'primitive generators') ----- - genPrimitiveBitAnd - | jumpNotSI | - <var: #jumpNotSI type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: TempReg. - self MoveR: TempReg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallIntegerInScratchReg: TempReg. - "Whether the SmallInteger tags are zero or non-zero, anding them together will preserve them." - self AndR: ClassReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpNotSI jmpTarget: self Label. - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveBitOr (in category 'primitive generators') ----- - genPrimitiveBitOr - | jumpNotSI | - <var: #jumpNotSI type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: TempReg. - self MoveR: TempReg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallIntegerInScratchReg: TempReg. - "Whether the SmallInteger tags are zero or non-zero, oring them together will preserve them." - self OrR: ClassReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpNotSI jmpTarget: self Label. - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveBitShift (in category 'primitive generators') ----- - genPrimitiveBitShift - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address - - rTemp := ArgOffset(SP) - rClass := tTemp - rTemp := rTemp & 1 - jz nonInt - rClass >>= 1 - cmp 0,rClass - jge neg - cmp 31,rClass // numSmallIntegerBits, jge for sign - jge tooBig - rTemp := rReceiver - rTemp <<= rClass - rTemp >>= rClass (arithmetic) - cmp rTemp,rReceiver - jnz ovfl - rReceiver := rReceiver - 1 - rReceiver := rReceiver <<= rClass - rReceiver := rReceiver + 1 - ret - neg: - rClass := 0 - rClass - cmp 31,rClass - jge inRange - rClass := 31 - inRange - rReceiver := rReceiver >>= rClass. - rReceiver := rReceiver | 1. - ret - ovfl - tooBig - nonInt: - fail" - | jumpNotSI jumpOvfl jumpNegative jumpTooBig jumpInRange | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpOvfl type: #'AbstractInstruction *'> - <var: #jumpNegative type: #'AbstractInstruction *'> - <var: #jumpTooBig type: #'AbstractInstruction *'> - <var: #jumpInRange type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: TempReg. - self MoveR: TempReg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallIntegerInScratchReg: TempReg. - objectRepresentation genConvertSmallIntegerToIntegerInReg: ClassReg. - (self lastOpcode setsConditionCodesFor: JumpNegative) ifFalse: - [self CmpCq: 0 R: ClassReg]. "N.B. FLAGS := ClassReg - 0" - jumpNegative := self JumpNegative: 0. - self CmpCq: objectRepresentation numSmallIntegerBits R: ClassReg. "N.B. FLAGS := ClassReg - 31" - jumpTooBig := self JumpGreaterOrEqual: 0. - self MoveR: ReceiverResultReg R: TempReg. - self LogicalShiftLeftR: ClassReg R: TempReg. - self ArithmeticShiftRightR: ClassReg R: TempReg. - self CmpR: TempReg R: ReceiverResultReg. "N.B. FLAGS := RRReg - TempReg" - jumpOvfl := self JumpNonZero: 0. - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: ReceiverResultReg. - self LogicalShiftLeftR: ClassReg R: ReceiverResultReg. - objectRepresentation genAddSmallIntegerTagsTo: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpNegative jmpTarget: (self NegateR: ClassReg). - self CmpCq: objectRepresentation numSmallIntegerBits R: ClassReg. "N.B. FLAGS := ClassReg - 31" - jumpInRange := self JumpLessOrEqual: 0. - self MoveCq: objectRepresentation numSmallIntegerBits R: ClassReg. - jumpInRange jmpTarget: (self ArithmeticShiftRightR: ClassReg R: ReceiverResultReg). - objectRepresentation genClearAndSetSmallIntegerTagsIn: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpNotSI jmpTarget: (jumpTooBig jmpTarget: (jumpOvfl jmpTarget: self Label)). - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveBitXor (in category 'primitive generators') ----- - genPrimitiveBitXor - | jumpNotSI | - <var: #jumpNotSI type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into:TempReg. - self MoveR: TempReg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallIntegerInScratchReg: TempReg. - "Clear one or the other tag so that xoring will preserve them." - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: ClassReg. - self XorR: ClassReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpNotSI jmpTarget: self Label. - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveCharacterValue (in category 'primitive generators') ----- - genPrimitiveCharacterValue - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveCharacterValue: (self primRetNOffsetFor: 0))! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveClass (in category 'primitive generators') ----- - genPrimitiveClass - methodOrBlockNumArgs > 0 ifTrue: - [methodOrBlockNumArgs > 1 ifTrue: - [^self compileFallbackToInterpreterPrimitive: 0]. - self genLoadArgAtDepth: 0 into: ReceiverResultReg]. - (objectRepresentation - genGetClassObjectOf: ReceiverResultReg - into: ReceiverResultReg - scratchReg: TempReg - instRegIsReceiver: (NewspeakVM ifTrue: [methodOrBlockNumArgs = 0] ifFalse: [true])) = BadRegisterSet ifTrue: - [objectRepresentation - genGetClassObjectOf: ReceiverResultReg - into: ClassReg - scratchReg: TempReg - instRegIsReceiver: (NewspeakVM ifTrue: [methodOrBlockNumArgs = 0] ifFalse: [true]). - self MoveR: ClassReg R: ReceiverResultReg]. - self RetN: (self primRetNOffsetFor: methodOrBlockNumArgs). - ^0! Item was changed: ----- Method: SimpleStackBasedCogit>>genPrimitiveClosureValue (in category 'primitive generators') ----- genPrimitiveClosureValue "Check the argument count. Fail if wrong. Get the method from the outerContext and see if it is cogged. If so, jump to the block entry or the no-context-switch entry, as appropriate, and we're done. If not, invoke the interpreter primitive." | jumpFailNArgs jumpFail1 jumpFail2 jumpFail3 jumpFail4 jumpBCMethod primitiveRoutine result | <var: #jumpFail1 type: #'AbstractInstruction *'> <var: #jumpFail2 type: #'AbstractInstruction *'> <var: #jumpFail3 type: #'AbstractInstruction *'> <var: #jumpFail4 type: #'AbstractInstruction *'> <var: #jumpFailNArgs type: #'AbstractInstruction *'> <var: #jumpBCMethod type: #'AbstractInstruction *'> <var: #primitiveRoutine declareC: 'void (*primitiveRoutine)()'> objectRepresentation genLoadSlot: ClosureNumArgsIndex sourceReg: ReceiverResultReg destReg: TempReg. self CmpCq: (objectMemory integerObjectOf: methodOrBlockNumArgs) R: TempReg. jumpFailNArgs := self JumpNonZero: 0. objectRepresentation genLoadSlot: ClosureOuterContextIndex sourceReg: ReceiverResultReg destReg: ClassReg. jumpFail1 := objectRepresentation genJumpImmediate: ClassReg. objectRepresentation genGetCompactClassIndexNonImmOf: ClassReg into: TempReg. objectRepresentation genCmpClassMethodContextCompactIndexR: TempReg. jumpFail2 := self JumpNonZero: 0. "We defer unforwarding the receiver to the prologue; scanning blocks for inst var refs and only unforwarding if the block refers to inst vars." (false and: [objectRepresentation hasSpurMemoryManagerAPI]) ifTrue: [objectRepresentation genLoadSlot: ReceiverIndex sourceReg: ClassReg destReg: SendNumArgsReg; genEnsureOopInRegNotForwarded: SendNumArgsReg scratchReg: TempReg updatingSlot: ReceiverIndex in: ClassReg]. objectRepresentation genLoadSlot: MethodIndex sourceReg: ClassReg destReg: SendNumArgsReg. jumpFail3 := objectRepresentation genJumpImmediate: SendNumArgsReg. objectRepresentation genGetFormatOf: SendNumArgsReg into: TempReg. self CmpCq: objectMemory firstCompiledMethodFormat R: TempReg. jumpFail4 := self JumpLess: 0. objectRepresentation genLoadSlot: HeaderIndex sourceReg: SendNumArgsReg destReg: ClassReg. jumpBCMethod := objectRepresentation genJumpImmediate: ClassReg. self MoveM16: (self offset: CogMethod of: #blockEntryOffset) r: ClassReg R: TempReg. self AddR: ClassReg R: TempReg. primitiveRoutine := coInterpreter functionPointerForCompiledMethod: methodObj primitiveIndex: primitiveIndex. primitiveRoutine = #primitiveClosureValueNoContextSwitch ifTrue: [blockNoContextSwitchOffset = nil ifTrue: [^NotFullyInitialized]. self SubCq: blockNoContextSwitchOffset R: TempReg]. self JumpR: TempReg. jumpBCMethod jmpTarget: (jumpFail1 jmpTarget: (jumpFail2 jmpTarget: (jumpFail3 jmpTarget: (jumpFail4 jmpTarget: self Label)))). (result := self compileInterpreterPrimitive: primitiveRoutine) < 0 ifTrue: [^result]. jumpFailNArgs jmpTarget: self Label. + ^CompletePrimitive! - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveDiv (in category 'primitive generators') ----- - genPrimitiveDiv - | jumpNotSI jumpIsSI jumpZero jumpExact jumpSameSign convert | - <var: #convert type: #'AbstractInstruction *'> - <var: #jumpIsSI type: #'AbstractInstruction *'> - <var: #jumpZero type: #'AbstractInstruction *'> - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpExact type: #'AbstractInstruction *'> - <var: #jumpSameSign type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: TempReg. - self MoveR: TempReg R: ClassReg. - self MoveR: TempReg R: Arg1Reg. - jumpNotSI := objectRepresentation genJumpNotSmallIntegerInScratchReg: TempReg. - "We must shift away the tags, not just subtract them, so that the - overflow case doesn't actually overflow the machine instruction." - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. - (self lastOpcode setsConditionCodesFor: JumpZero) ifFalse: - [self CmpCq: 0 R: ClassReg]. - jumpZero := self JumpZero: 0. - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: TempReg. - self DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. - "If remainder is zero we must check for overflow." - self CmpCq: 0 R: ClassReg. - jumpExact := self JumpZero: 0. - "If arg and remainder signs are different we must round down." - self XorR: ClassReg R: Arg1Reg. - (self lastOpcode setsConditionCodesFor: JumpZero) ifFalse: - [self CmpCq: 0 R: Arg1Reg]. - jumpSameSign := self JumpGreaterOrEqual: 0. - self SubCq: 1 R: TempReg. - jumpSameSign jmpTarget: (convert := self Label). - objectRepresentation genConvertIntegerToSmallIntegerInReg: TempReg. - self MoveR: TempReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - "test for overflow; the only case is SmallInteger minVal // -1" - jumpExact jmpTarget: self Label. - jumpIsSI := objectRepresentation genJumpIsSmallIntegerValue: TempReg scratch: Arg1Reg. - jumpIsSI jmpTarget: convert. - jumpZero jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveDivide (in category 'primitive generators') ----- - genPrimitiveDivide - | jumpNotSI jumpZero jumpInexact jumpOverflow | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpZero type: #'AbstractInstruction *'> - <var: #jumpInexact type: #'AbstractInstruction *'> - <var: #jumpOverflow type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: Arg0Reg. - self MoveR: Arg0Reg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - "We must shift away the tags, not just subtract them, so that the - overflow case doesn't actually overflow the machine instruction." - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. - jumpZero := self JumpZero: 0. - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: TempReg. - self DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. - "If remainder is non-zero fail." - self CmpCq: 0 R: ClassReg. - jumpInexact := self JumpNonZero: 0. - "test for overflow; the only case is SmallInteger minVal / -1" - jumpOverflow := objectRepresentation genJumpNotSmallIntegerValue: TempReg scratch: Arg1Reg. - objectRepresentation genConvertIntegerToSmallIntegerInReg: TempReg. - self MoveR: TempReg R: ReceiverResultReg. - self RetN: 0. - jumpOverflow jmpTarget: (jumpInexact jmpTarget: (jumpZero jmpTarget: (jumpNotSI jmpTarget: self Label))). - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveEqual (in category 'primitive generators') ----- - genPrimitiveEqual - ^self genSmallIntegerComparison: JumpZero - orDoubleComparison: #JumpFPEqual: - invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatAdd (in category 'primitive generators') ----- - genPrimitiveFloatAdd - ^self genDoubleArithmetic: AddRdRd preOpCheck: nil! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatDivide (in category 'primitive generators') ----- - genPrimitiveFloatDivide - ^self genDoubleArithmetic: DivRdRd preOpCheck: #genDoubleFailIfZeroArgRcvr:arg:! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatEqual (in category 'primitive generators') ----- - genPrimitiveFloatEqual - ^self genDoubleComparison: #JumpFPEqual: invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatGreaterOrEqual (in category 'primitive generators') ----- - genPrimitiveFloatGreaterOrEqual - ^self genDoubleComparison: #JumpFPGreaterOrEqual: invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatGreaterThan (in category 'primitive generators') ----- - genPrimitiveFloatGreaterThan - ^self genDoubleComparison: #JumpFPGreater: invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatLessOrEqual (in category 'primitive generators') ----- - genPrimitiveFloatLessOrEqual - ^self genDoubleComparison: #JumpFPGreaterOrEqual: invert: true! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatLessThan (in category 'primitive generators') ----- - genPrimitiveFloatLessThan - ^self genDoubleComparison: #JumpFPGreater: invert: true! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatMultiply (in category 'primitive generators') ----- - genPrimitiveFloatMultiply - ^self genDoubleArithmetic: MulRdRd preOpCheck: nil! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatNotEqual (in category 'primitive generators') ----- - genPrimitiveFloatNotEqual - ^self genDoubleComparison: #JumpFPNotEqual: invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatSquareRoot (in category 'primitive generators') ----- - genPrimitiveFloatSquareRoot - "Stack looks like - receiver (also in ResultReceiverReg) - return address" - | jumpFailAlloc | - <var: #jumpFailAlloc type: #'AbstractInstruction *'> - objectRepresentation genGetDoubleValueOf: ReceiverResultReg into: DPFPReg0. - self SqrtRd: DPFPReg0. - jumpFailAlloc := objectRepresentation - genAllocFloatValue: DPFPReg0 - into: SendNumArgsReg - scratchReg: ClassReg - scratchReg: TempReg. - self MoveR: SendNumArgsReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 0). - jumpFailAlloc jmpTarget: self Label. - ^self compileFallbackToInterpreterPrimitive: 0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveFloatSubtract (in category 'primitive generators') ----- - genPrimitiveFloatSubtract - ^self genDoubleArithmetic: SubRdRd preOpCheck: nil! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveGreaterOrEqual (in category 'primitive generators') ----- - genPrimitiveGreaterOrEqual - ^self genSmallIntegerComparison: JumpGreaterOrEqual - orDoubleComparison: #JumpFPGreaterOrEqual: - invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveGreaterThan (in category 'primitive generators') ----- - genPrimitiveGreaterThan - ^self genSmallIntegerComparison: JumpGreater - orDoubleComparison: #JumpFPGreater: - invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveIdentical (in category 'primitive generators') ----- - genPrimitiveIdentical - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address" - self genLoadArgAtDepth: 0 into: Arg0Reg. - ^objectRepresentation - genInnerPrimitiveIdentical: (self primRetNOffsetFor: 1) - orNotIf: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveIdentityHash (in category 'primitive generators') ----- - genPrimitiveIdentityHash - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveIdentityHash: (self primRetNOffsetFor: 0))! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveLessOrEqual (in category 'primitive generators') ----- - genPrimitiveLessOrEqual - ^self - genSmallIntegerComparison: JumpLessOrEqual - orDoubleComparison: #JumpFPGreaterOrEqual: - invert: true! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveLessThan (in category 'primitive generators') ----- - genPrimitiveLessThan - ^self - genSmallIntegerComparison: JumpLess - orDoubleComparison: #JumpFPGreater: - invert: true! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveMod (in category 'primitive generators') ----- - genPrimitiveMod - | jumpNotSI jumpZero jumpExact jumpSameSign | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpZero type: #'AbstractInstruction *'> - <var: #jumpExact type: #'AbstractInstruction *'> - <var: #jumpSameSign type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: TempReg. - self MoveR: TempReg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallIntegerInScratchReg: TempReg. - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: ClassReg. - jumpZero := self JumpZero: 0. - self MoveR: ClassReg R: Arg1Reg. - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: TempReg. - self DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. - "If remainder is zero we're done." - self CmpCq: 0 R: ClassReg. - jumpExact := self JumpZero: 0. - "If arg and remainder signs are different we must reflect around zero." - self XorR: ClassReg R: Arg1Reg. - (self lastOpcode setsConditionCodesFor: JumpZero) ifFalse: - [self CmpCq: 0 R: Arg1Reg]. - jumpSameSign := self JumpGreaterOrEqual: 0. - self XorR: ClassReg R: Arg1Reg. - self AddR: Arg1Reg R: ClassReg. - jumpSameSign jmpTarget: (jumpExact jmpTarget: self Label). - objectRepresentation genSetSmallIntegerTagsIn: ClassReg. - self MoveR: ClassReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpZero jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveMultiply (in category 'primitive generators') ----- - genPrimitiveMultiply - | jumpNotSI jumpOvfl | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpOvfl type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: TempReg. - self MoveR: TempReg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallIntegerInScratchReg: TempReg. - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: TempReg. - self MulR: TempReg R: ClassReg. - jumpOvfl := self JumpOverflow: 0. - objectRepresentation genSetSmallIntegerTagsIn: ClassReg. - self MoveR: ClassReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpOvfl jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveNew (in category 'primitive generators') ----- - genPrimitiveNew - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveNew: (self primRetNOffsetFor: 0))! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveNewMethod (in category 'primitive generators') ----- - genPrimitiveNewMethod - | r savedIndex | - savedIndex := opcodeIndex. - self genLoadArgAtDepth: 0 into: Arg0Reg. - r := objectRepresentation genInnerPrimitiveNewMethod: (self primRetNOffsetFor: 2). - "If primitive is unimplemented, discard arg load." - r = UnimplementedPrimitive ifTrue: - [opcodeIndex := savedIndex]. - ^self compileFallbackToInterpreterPrimitive: r! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveNewWithArg (in category 'primitive generators') ----- - genPrimitiveNewWithArg - | savedIndex r | - savedIndex := opcodeIndex. - self genLoadArgAtDepth: 0 into: Arg0Reg. - r := objectRepresentation genInnerPrimitiveNewWithArg: (self primRetNOffsetFor: 1). - "If primitive is unimplemented, discard arg load." - r = UnimplementedPrimitive ifTrue: - [opcodeIndex := savedIndex]. - "Call the interpreter primitive either when the machine-code primitive - fails, or if the machine-code primitive is unimplemented." - ^self compileFallbackToInterpreterPrimitive: r! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveNotEqual (in category 'primitive generators') ----- - genPrimitiveNotEqual - ^self genSmallIntegerComparison: JumpNonZero - orDoubleComparison: #JumpFPNotEqual: - invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveNotIdentical (in category 'primitive generators') ----- - genPrimitiveNotIdentical - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address" - self genLoadArgAtDepth: 0 into: Arg0Reg. - ^objectRepresentation - genInnerPrimitiveIdentical: (self primRetNOffsetFor: 1) - orNotIf: true! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveObjectAt (in category 'primitive generators') ----- - genPrimitiveObjectAt - | savedIndex r | - savedIndex := opcodeIndex. - self genLoadArgAtDepth: 0 into: Arg0Reg. - r := objectRepresentation genInnerPrimitiveObjectAt: (self primRetNOffsetFor: 1). - "If primitive is unimplemented, discard arg load." - r = UnimplementedPrimitive ifTrue: - [opcodeIndex := savedIndex]. - ^self compileFallbackToInterpreterPrimitive: r! Item was changed: ----- Method: SimpleStackBasedCogit>>genPrimitivePerform (in category 'primitive generators') ----- genPrimitivePerform "Generate an in-line perform primitive. The lookup code requires the selector to be in Arg0Reg. adjustArgumentsForPerform: adjusts the arguments once genLookupForPerformNumArgs: has generated the code for the lookup." + self MoveMw: (backEnd hasLinkRegister + ifTrue: [methodOrBlockNumArgs - 1] + ifFalse: [methodOrBlockNumArgs]) * objectMemory wordSize + r: SPReg + R: Arg0Reg. + ^self genLookupForPerformNumArgs: methodOrBlockNumArgs! - self MoveMw: methodOrBlockNumArgs - 1 * objectMemory wordSize r: SPReg R: Arg0Reg. - self genLookupForPerformNumArgs: methodOrBlockNumArgs. - ^self compileInterpreterPrimitive: (coInterpreter - functionPointerForCompiledMethod: methodObj - primitiveIndex: primitiveIndex)! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveQuo (in category 'primitive generators') ----- - genPrimitiveQuo - | convert jumpNotSI jumpZero jumpIsSI jumpExact | - <var: #convert type: #'AbstractInstruction *'> - <var: #jumpIsSI type: #'AbstractInstruction *'> - <var: #jumpZero type: #'AbstractInstruction *'> - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpExact type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: Arg0Reg. - self MoveR: Arg0Reg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - "We must shift away the tags, not just subtract them, so that the - overflow case doesn't actually overflow the machine instruction." - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. - (self lastOpcode setsConditionCodesFor: JumpZero) ifFalse: - [self CmpCq: 0 R: ClassReg]. - jumpZero := self JumpZero: 0. - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: TempReg. - self DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. - "If remainder is zero we must check for overflow." - self CmpCq: 0 R: ClassReg. - jumpExact := self JumpZero: 0. - convert := self Label. - objectRepresentation genConvertIntegerToSmallIntegerInReg: TempReg. - self MoveR: TempReg R: ReceiverResultReg. - self RetN: 0. - jumpExact jmpTarget: self Label. - jumpIsSI := objectRepresentation genJumpIsSmallIntegerValue: TempReg scratch: Arg1Reg. - jumpIsSI jmpTarget: convert. - jumpZero jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSize (in category 'primitive generators') ----- - genPrimitiveSize - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveSize: (self primRetNOffsetFor: 0))! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatAdd (in category 'primitive generators') ----- - genPrimitiveSmallFloatAdd - <option: #Spur64BitMemoryManager> - ^self genSmallFloatArithmetic: AddRdRd preOpCheck: nil! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatDivide (in category 'primitive generators') ----- - genPrimitiveSmallFloatDivide - <option: #Spur64BitMemoryManager> - ^self genSmallFloatArithmetic: DivRdRd preOpCheck: #genDoubleFailIfZeroArgRcvr:arg:! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatEqual (in category 'primitive generators') ----- - genPrimitiveSmallFloatEqual - <option: #Spur64BitMemoryManager> - ^self genSmallFloatComparison: #JumpFPEqual: invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatGreaterOrEqual (in category 'primitive generators') ----- - genPrimitiveSmallFloatGreaterOrEqual - <option: #Spur64BitMemoryManager> - ^self genSmallFloatComparison: #JumpFPGreaterOrEqual: invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatGreaterThan (in category 'primitive generators') ----- - genPrimitiveSmallFloatGreaterThan - <option: #Spur64BitMemoryManager> - ^self genSmallFloatComparison: #JumpFPGreater: invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatLessOrEqual (in category 'primitive generators') ----- - genPrimitiveSmallFloatLessOrEqual - <option: #Spur64BitMemoryManager> - ^self genSmallFloatComparison: #JumpFPGreaterOrEqual: invert: true! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatLessThan (in category 'primitive generators') ----- - genPrimitiveSmallFloatLessThan - <option: #Spur64BitMemoryManager> - ^self genSmallFloatComparison: #JumpFPGreater: invert: true! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatMultiply (in category 'primitive generators') ----- - genPrimitiveSmallFloatMultiply - <option: #Spur64BitMemoryManager> - ^self genSmallFloatArithmetic: MulRdRd preOpCheck: nil! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatNotEqual (in category 'primitive generators') ----- - genPrimitiveSmallFloatNotEqual - <option: #Spur64BitMemoryManager> - ^self genSmallFloatComparison: #JumpFPNotEqual: invert: false! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatSquareRoot (in category 'primitive generators') ----- - genPrimitiveSmallFloatSquareRoot - <option: #Spur64BitMemoryManager> - "Stack looks like - receiver (also in ResultReceiverReg) - return address" - | jumpFailAlloc | - <var: #jumpFailAlloc type: #'AbstractInstruction *'> - objectRepresentation genGetSmallFloatValueOf: ReceiverResultReg scratch: SendNumArgsReg into: DPFPReg0. - self SqrtRd: DPFPReg0. - jumpFailAlloc := objectRepresentation - genAllocFloatValue: DPFPReg0 - into: SendNumArgsReg - scratchReg: ClassReg - scratchReg: TempReg. - self MoveR: SendNumArgsReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 0). - jumpFailAlloc jmpTarget: self Label. - ^self compileFallbackToInterpreterPrimitive: 0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSmallFloatSubtract (in category 'primitive generators') ----- - genPrimitiveSmallFloatSubtract - <option: #Spur64BitMemoryManager> - ^self genSmallFloatArithmetic: SubRdRd preOpCheck: nil! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveStringAt (in category 'primitive generators') ----- - genPrimitiveStringAt - self genLoadArgAtDepth: 0 into: Arg0Reg. - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveStringAt: (self primRetNOffsetFor: 1))! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveStringAtPut (in category 'primitive generators') ----- - genPrimitiveStringAtPut - | savedIndex r | - savedIndex := opcodeIndex. - self genLoadArgAtDepth: 1 into: Arg0Reg. - self genLoadArgAtDepth: 0 into: Arg1Reg. - r := objectRepresentation genInnerPrimitiveStringAtPut: (self primRetNOffsetFor: 2). - "If primitive is unimplemented, discard arg load." - r = UnimplementedPrimitive ifTrue: - [opcodeIndex := savedIndex]. - ^self compileFallbackToInterpreterPrimitive: r! Item was removed: - ----- Method: SimpleStackBasedCogit>>genPrimitiveSubtract (in category 'primitive generators') ----- - genPrimitiveSubtract - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address" - | jumpNotSI jumpOvfl | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpOvfl type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: TempReg. - self MoveR: TempReg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallIntegerInScratchReg: TempReg. - self MoveR: ReceiverResultReg R: TempReg. - self SubR: ClassReg R: TempReg. - jumpOvfl := self JumpOverflow: 0. - objectRepresentation genAddSmallIntegerTagsTo: TempReg. - self MoveR: TempReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpOvfl jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was changed: ----- Method: SimpleStackBasedCogit>>genQuickReturnConst (in category 'primitive generators') ----- genQuickReturnConst <api> "because selected by CoInterpreter>>quickPrimitiveGeneratorFor:" | constant | constant := coInterpreter quickPrimitiveConstantFor: primitiveIndex. self annotate: ((objectRepresentation isImmediate: constant) ifTrue: [self MoveCq: constant R: ReceiverResultReg] ifFalse: [self MoveCw: constant R: ReceiverResultReg]) objRef: constant. + self genUpArrowReturn. + ^UnfailingPrimitive! - ^self genUpArrowReturn! Item was changed: ----- Method: SimpleStackBasedCogit>>genQuickReturnInstVar (in category 'primitive generators') ----- genQuickReturnInstVar <api> "because selected by CoInterpreter>>quickPrimitiveGeneratorFor:" | index | index := coInterpreter quickPrimitiveInstVarIndexFor: primitiveIndex. objectRepresentation genLoadSlot: index sourceReg: ReceiverResultReg destReg: ReceiverResultReg. + self genUpArrowReturn. + ^UnfailingPrimitive! - ^self genUpArrowReturn! Item was changed: ----- Method: SimpleStackBasedCogit>>genQuickReturnSelf (in category 'primitive generators') ----- genQuickReturnSelf <api> "because selected by CoInterpreter>>quickPrimitiveGeneratorFor:" + self genUpArrowReturn. + ^UnfailingPrimitive! - ^self genUpArrowReturn! Item was removed: - ----- Method: SimpleStackBasedCogit>>genSmallFloatArithmetic:preOpCheck: (in category 'primitive generators') ----- - genSmallFloatArithmetic: arithmeticOperator preOpCheck: preOpCheckOrNil - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address" - <var: #preOpCheckOrNil declareC: 'AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)'> - | jumpFailClass jumpFailAlloc jumpFailCheck jumpImmediate jumpNonInt doOp fail | - <var: #jumpFailClass type: #'AbstractInstruction *'> - <var: #jumpFailAlloc type: #'AbstractInstruction *'> - <var: #jumpNonInt type: #'AbstractInstruction *'> - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpFailCheck type: #'AbstractInstruction *'> - <var: #doOp type: #'AbstractInstruction *'> - <var: #fail type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: ClassReg. - objectRepresentation genGetSmallFloatValueOf: ReceiverResultReg scratch: SendNumArgsReg into: DPFPReg0. - jumpImmediate := objectRepresentation genJumpImmediate: ClassReg. - objectRepresentation genGetCompactClassIndexNonImmOf: ClassReg into: SendNumArgsReg. - objectRepresentation genCmpClassFloatCompactIndexR: SendNumArgsReg. - jumpFailClass := self JumpNonZero: 0. - objectRepresentation genGetDoubleValueOf: ClassReg into: DPFPReg1. - doOp := self Label. - preOpCheckOrNil ifNotNil: - [jumpFailCheck := self perform: preOpCheckOrNil with: DPFPReg0 with: DPFPReg1]. - self gen: arithmeticOperator operand: DPFPReg1 operand: DPFPReg0. - jumpFailAlloc := objectRepresentation - genAllocFloatValue: DPFPReg0 - into: SendNumArgsReg - scratchReg: ClassReg - scratchReg: TempReg. - self MoveR: SendNumArgsReg R: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpImmediate jmpTarget: self Label. - objectRepresentation maybeGenConvertIfSmallFloatIn: Arg0Reg scratchReg: TempReg into: DPFPReg1 andJumpTo: doOp. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt := objectRepresentation genJumpNotSmallInteger: ClassReg scratchReg: TempReg]. - objectRepresentation genConvertSmallIntegerToIntegerInReg: ClassReg. - self ConvertR: ClassReg Rd: DPFPReg1. - self Jump: doOp. - jumpFailAlloc jmpTarget: self Label. - self compileFallbackToInterpreterPrimitive: 0. - fail := self Label. - jumpFailClass jmpTarget: fail. - preOpCheckOrNil ifNotNil: - [jumpFailCheck jmpTarget: fail]. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt jmpTarget: fail]. - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genSmallFloatComparison:invert: (in category 'primitive generators') ----- - genSmallFloatComparison: jumpOpcodeGenerator invert: invertComparison - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address" - <var: #jumpOpcodeGenerator declareC: 'AbstractInstruction *(*jumpOpcodeGenerator)(void *)'> - | jumpFail jumpImmediate jumpNonInt jumpCond compare | - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpNonInt type: #'AbstractInstruction *'> - <var: #jumpCond type: #'AbstractInstruction *'> - <var: #compare type: #'AbstractInstruction *'> - <var: #jumpFail type: #'AbstractInstruction *'> - - self genLoadArgAtDepth: 0 into: ClassReg. - objectRepresentation genGetSmallFloatValueOf: ReceiverResultReg scratch: SendNumArgsReg into: DPFPReg0. - jumpImmediate := objectRepresentation genJumpImmediate: ClassReg. - objectRepresentation genGetCompactClassIndexNonImmOf: ClassReg into: SendNumArgsReg. - objectRepresentation genCmpClassFloatCompactIndexR: SendNumArgsReg. - jumpFail := self JumpNonZero: 0. - objectRepresentation genGetDoubleValueOf: ClassReg into: DPFPReg1. - invertComparison "May need to invert for NaNs" - ifTrue: [compare := self CmpRd: DPFPReg0 Rd: DPFPReg1] - ifFalse: [compare := self CmpRd: DPFPReg1 Rd: DPFPReg0]. - jumpCond := self perform: jumpOpcodeGenerator with: 0. "FP jumps are a little weird" - self genMoveFalseR: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpCond jmpTarget: (self genMoveTrueR: ReceiverResultReg). - self RetN: (self primRetNOffsetFor: 1). - jumpImmediate jmpTarget: self Label. - objectRepresentation maybeGenConvertIfSmallFloatIn: ClassReg scratchReg: TempReg into: DPFPReg1 andJumpTo: compare. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt := objectRepresentation genJumpNotSmallInteger: ClassReg scratchReg: TempReg]. - objectRepresentation genConvertSmallIntegerToIntegerInReg: ClassReg. - self ConvertR: ClassReg Rd: DPFPReg1. - self Jump: compare. - jumpFail jmpTarget: self Label. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt jmpTarget: jumpFail getJmpTarget]. - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genSmallIntegerComparison: (in category 'primitive generators') ----- - genSmallIntegerComparison: jumpOpcode - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address" - | jumpFail jumpTrue | - <var: #jumpFail type: #'AbstractInstruction *'> - <var: #jumpTrue type: #'AbstractInstruction *'> - self genLoadArgAtDepth: 0 into: TempReg. - self MoveR: TempReg R: ClassReg. - jumpFail := objectRepresentation genJumpNotSmallIntegerInScratchReg: TempReg. - self CmpR: ClassReg R: ReceiverResultReg. "N.B. FLAGS := RRReg - ClassReg" - jumpTrue := self gen: jumpOpcode. - self genMoveFalseR: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpTrue jmpTarget: (self genMoveTrueR: ReceiverResultReg). - self RetN: (self primRetNOffsetFor: 1). - jumpFail jmpTarget: self Label. - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>genSmallIntegerComparison:orDoubleComparison:invert: (in category 'primitive generators') ----- - genSmallIntegerComparison: jumpOpcode orDoubleComparison: jumpFPOpcodeGenerator invert: invertComparison - "Stack looks like - receiver (also in ResultReceiverReg) - arg - return address" - | jumpDouble jumpNonInt jumpFail jumpTrue jumpCond | - <var: #jumpFPOpcodeGenerator declareC: 'AbstractInstruction *(*jumpFPOpcodeGenerator)(void *)'> - <var: #jumpDouble type: #'AbstractInstruction *'> - <var: #jumpNonInt type: #'AbstractInstruction *'> - <var: #jumpCond type: #'AbstractInstruction *'> - <var: #jumpTrue type: #'AbstractInstruction *'> - <var: #jumpFail type: #'AbstractInstruction *'> - backEnd hasDoublePrecisionFloatingPointSupport ifFalse: - [^self genSmallIntegerComparison: jumpOpcode]. - self genLoadArgAtDepth: 0 into: ClassReg. - jumpDouble := objectRepresentation genJumpNotSmallInteger: ClassReg scratchReg: TempReg. - self CmpR: ClassReg R: ReceiverResultReg. "N.B. FLAGS := RRReg - ClassReg" - jumpTrue := self gen: jumpOpcode. - self genMoveFalseR: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpTrue jmpTarget: (self genMoveTrueR: ReceiverResultReg). - self RetN: (self primRetNOffsetFor: 1). - - "Argument may be a Float : let us check or fail" - jumpDouble jmpTarget: self Label. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt := objectRepresentation genJumpImmediate: ClassReg]. - objectRepresentation genGetCompactClassIndexNonImmOf: ClassReg into: SendNumArgsReg. - objectRepresentation genCmpClassFloatCompactIndexR: SendNumArgsReg. - jumpFail := self JumpNonZero: 0. - - "It was a Float, so convert the receiver to double and perform the operation" - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genConvertSmallIntegerToIntegerInReg: TempReg. - self ConvertR: TempReg Rd: DPFPReg0. - objectRepresentation genGetDoubleValueOf: ClassReg into: DPFPReg1. - invertComparison "May need to invert for NaNs" - ifTrue: [self CmpRd: DPFPReg0 Rd: DPFPReg1] - ifFalse: [self CmpRd: DPFPReg1 Rd: DPFPReg0]. - jumpCond := self perform: jumpFPOpcodeGenerator with: 0. "FP jumps are a little weird" - self genMoveFalseR: ReceiverResultReg. - self RetN: (self primRetNOffsetFor: 1). - jumpCond jmpTarget: (self genMoveTrueR: ReceiverResultReg). - self RetN: (self primRetNOffsetFor: 1). - - objectRepresentation smallIntegerIsOnlyImmediateType - ifTrue: [jumpFail jmpTarget: self Label] - ifFalse: [jumpNonInt jmpTarget: (jumpFail jmpTarget: self Label)]. - ^0! Item was removed: - ----- Method: SimpleStackBasedCogit>>primRetNOffsetFor: (in category 'primitive generators') ----- - primRetNOffsetFor: nargs - "Answer how many bytes to cut back the stack to remove the receiver - and arguments after an invocation of a primitive with nargs arguments. " - ^nargs + 1 * objectMemory wordSize! Item was added: + ----- Method: SimpleStackBasedCogit>>primitiveGeneratorOrNil (in category 'primitive generators') ----- + primitiveGeneratorOrNil + "If there is a generator for the current primitive then answer it; + otherwise answer nil." + <returnTypeC: #'PrimitiveDescriptor *'> + | primitiveDescriptor | + <var: #primitiveDescriptor type: #'PrimitiveDescriptor *'> + (coInterpreter isQuickPrimitiveIndex: primitiveIndex) ifTrue: + [primitiveDescriptor := self addressOf: (primitiveGeneratorTable at: 0). "an unused one" + primitiveDescriptor primitiveGenerator: (coInterpreter quickPrimitiveGeneratorFor: primitiveIndex). + ^primitiveDescriptor]. + (primitiveIndex between: 1 and: MaxCompiledPrimitiveIndex) ifTrue: + [^self addressOf: (primitiveGeneratorTable at: primitiveIndex)]. + ^nil! Item was changed: ----- Method: SimpleStackBasedCogit>>setInterpreter: (in category 'initialization') ----- setInterpreter: aCoInterpreter "Initialization of the code generator in the simulator. These objects already exist in the generated C VM or are used only in the simulation." <doNotGenerate> super setInterpreter: aCoInterpreter. + primitiveGeneratorTable := self class primitiveTable. externalPrimJumpOffsets := CArrayAccessor on: (Array new: MaxNumArgs + 1). externalPrimCallOffsets := CArrayAccessor on: (Array new: MaxNumArgs + 1). externalSetPrimOffsets := CArrayAccessor on: (Array new: MaxNumArgs + 1)! Item was changed: ----- Method: StackToRegisterMappingCogit class>>callingConvention (in category 'documentation') ----- callingConvention "The Smalltalk-to-Smalltalk calling convention aims to trade simplicity of compilation against effectiveness of optimization. Most Smalltalk methods, and certainly most performance- critical primitives have two or less arguments. So arranging that the receiver and up to two + args are in registers means that performance-critical primitives can access their arguments + in registers. So if the argument count is <= numRegArgs nothing is passed on the stack and + everything is passed in ReceiverResultReg, Arg0Reg et al. Above numRegArgs everything is + passed on the stack. - args args are in registers arranges that performance-critical primitives can access their - arguments in registers. So if the argument count is <= numRegArgs nothing is passed on - the stack and everything is passed in ReceiverResultReg, Arg0Reg et al. Above numRegArgs - everything is passed on the stack. To save the CoInterpreter from change we shuffle the retpc and push the register args in the prolog so that the frame format is unchanged by register args. Also, the trampolines for unlinked sends do the same, as does the code preceding an interpreter primitive. It turns out that this protocol is faster than always pushing arguments. Comparing benchFib with the shuffling protocol against an always-push protocol on a 2.66 GHz Core i7 (MacBook Pro) , the shuffling protocol is 6.3% faster than the always push protocol. Not shuffling the stack and pushing register arguments after frame build is faster yet again, 5.8% faster that the stack shuffle. So it might be worth-while to change the CoInterpreter's frame management to allow numArgs <= numRegArgs frames to push receiver and arguments after saving the return pc. This implies changes in stack-to-context mapping, GC, interpreter-to-machine code frame conversion and no doubt else where. Hence the calling convention is + - if the number of arguments is less than or equal to numRegArgs then the receiver and + arguments are passed in registers. numRegArgs is 1 for V3, and 2 for Spur. The receiver + is passed in ReceiverResultReg, the first argument in Arg0Reg (esi on x86) and the second + argument (if numRegArgs = 2) in Arg1Reg (edi on x86). - - if the number of arguments is less than or equal to numRegArgs then the receiver and arguments - are passed in registers. numRegArgs is currently 1, but will become 2 once the code generator - generates machine code primitives which take 2 arguments (i.e. once the object representation - makes it feasible to implement at:put: in machine code numRegArgs will be raised to 2). The receiver - is passed in ReceiverResultReg, the first argument in Arg0Reg (esi on x86) and the second argument - (if numRegArgs = 2) in Arg1Reg (edi on x86). + - if the number of arguments is greater than numRegArgs then the calling convention is as + for SimpleStackBasedCogIt; ReceiverResultReg contains the receiver, and the receiver and + arguments are all on the stack, receiver furthest from top-of-stack. If the argument count + is > 2 then argument count is passed in SendNumArgsReg (for the benefit of the run-time + linking routines; it is ignored in linked sends). - - if the number of arguments is greater than numRegArgs then the calling convention is as for - SimpleStackBasedCogIt; ReceiverResultReg contains the receiver, and the receiver and arguments - are all on the stack, receiver furthest from top-of-stack. If the argument count is > 2 then argument - count is passed in SendNumArgsReg (for the benefit of the run-time linking routines; it is ignored in - linked sends). + On return the result is in ReceiverResultReg. The callee removes arguments from the stack + (Pascal convention). - On return the result is in ReceiverResultReg. The callee removes arguments from the stack. + Note that if a machine code method contains a call to an interpreter primitive it will push any + register arguments (and if on a RISC, the return pc from the LinReg) on the stack before calling + the primitive so that to the primitive the stack looks the same as it does in the interpreter. - Note that if a machine code method contains a call to an interpreter primitive it will push any register - arguments on the stack before calling the primitive so that to the primitive the stack looks the same - as it does in the interpreter. + Within all machine code primitives except genPrimitiveClosureValue and genPrimitivePerform all + arguments are taken from registers since no machine code primitive has more than numRegArgs + arguments. genPrimitiveClosureValue pushes its register arguments immedately only for laziness + to be able to reuse SimpleStackBasedCogit's code. genPrimitivePerform adjusts its arguments + as required by special-purpose code. - Within all machine code primitives except primitiveClosureValue all arguments are taken form registers - since no machine code primitiver has more than numRegArgs arguments. primitiveClosureValue pushes - its register arguments immedately only for laziness to be able to reuse SimpleStackBasedCogit's code. + Within machine code methods with interpreter primitives the register arguments are pushed + before calling the interpreter primitive. In normal methods and if not already done so in primitive + code, the register arguments are pushed during frame build. If a method is compiled frameless + it will access its arguments in registers."! - Within machine code methods with interpreter primtiives the register arguments are pushed before calling - the interpreter primitive. In normal methods and if not already done so in [primitive code, the register - arguments are pushed during frame build. If a method is compiled frameless it will access its arguments - in registers."! Item was removed: - ----- Method: StackToRegisterMappingCogit>>evaluateTrampolineCallBlock:protectLinkRegIfNot: (in category 'trampoline support') ----- - evaluateTrampolineCallBlock: block protectLinkRegIfNot: inFrame - <inline: true> - inFrame - ifFalse: - [ backEnd saveAndRestoreLinkRegAround: [ block value ] ] - ifTrue: - [ block value ].! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genDoubleArithmetic:preOpCheck: (in category 'primitive generators') ----- - genDoubleArithmetic: arithmeticOperator preOpCheck: preOpCheckOrNil - "Receiver and arg in registers. - Stack looks like - return address" - <var: #preOpCheckOrNil declareC: 'AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)'> - | jumpFailClass jumpFailClass2 jumpFailAlloc jumpFailCheck jumpImmediate jumpNonInt doOp | - <var: #jumpFailClass type: #'AbstractInstruction *'> - <var: #jumpFailClass2 type: #'AbstractInstruction *'> - <var: #jumpFailAlloc type: #'AbstractInstruction *'> - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpNonInt type: #'AbstractInstruction *'> - <var: #jumpFailCheck type: #'AbstractInstruction *'> - <var: #doOp type: #'AbstractInstruction *'> - objectRepresentation genGetDoubleValueOf: ReceiverResultReg into: DPFPReg0. - self MoveR: Arg0Reg R: ClassReg. - jumpImmediate := objectRepresentation genJumpImmediate: Arg0Reg. - objectRepresentation genGetCompactClassIndexNonImmOf: Arg0Reg into: SendNumArgsReg. - objectRepresentation genCmpClassFloatCompactIndexR: SendNumArgsReg. - jumpFailClass := self JumpNonZero: 0. - objectRepresentation genGetDoubleValueOf: Arg0Reg into: DPFPReg1. - doOp := self Label. - preOpCheckOrNil ifNotNil: - [jumpFailCheck := self perform: preOpCheckOrNil with: DPFPReg0 with: DPFPReg1]. - self gen: arithmeticOperator operand: DPFPReg1 operand: DPFPReg0. - jumpFailAlloc := objectRepresentation - genAllocFloatValue: DPFPReg0 - into: SendNumArgsReg - scratchReg: ClassReg - scratchReg: TempReg. - self MoveR: SendNumArgsReg R: ReceiverResultReg. - self RetN: 0. - jumpImmediate jmpTarget: self Label. - objectRepresentation maybeGenConvertIfSmallFloatIn: Arg0Reg scratchReg: TempReg into: DPFPReg1 andJumpTo: doOp. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg]. - objectRepresentation genConvertSmallIntegerToIntegerInReg: ClassReg. - self ConvertR: ClassReg Rd: DPFPReg1. - self Jump: doOp. - "We need to push the register args on two paths; this one and the interpreter primitive path. - But the interpreter primitive path won't unless regArgsHaveBeenPushed is false." - self assert: methodOrBlockNumArgs <= self numRegArgs. - jumpFailClass jmpTarget: self Label. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt jmpTarget: jumpFailClass getJmpTarget]. - preOpCheckOrNil ifNotNil: - [jumpFailCheck jmpTarget: jumpFailClass getJmpTarget]. - backEnd genPushRegisterArgsForNumArgs: methodOrBlockNumArgs scratchReg: SendNumArgsReg. - jumpFailClass2 := self Jump: 0. - jumpFailAlloc jmpTarget: self Label. - self compileFallbackToInterpreterPrimitive: 0. - jumpFailClass2 jmpTarget: self Label. - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genDoubleComparison:invert: (in category 'primitive generators') ----- - genDoubleComparison: jumpOpcodeGenerator invert: invertComparison - "Receiver and arg in registers. - Stack looks like - return address" - <var: #jumpOpcodeGenerator declareC: 'AbstractInstruction *(*jumpOpcodeGenerator)(void *)'> - | jumpFail jumpImmediate jumpNonInt jumpCond compare | - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpNonInt type: #'AbstractInstruction *'> - <var: #jumpCond type: #'AbstractInstruction *'> - <var: #compare type: #'AbstractInstruction *'> - <var: #jumpFail type: #'AbstractInstruction *'> - objectRepresentation genGetDoubleValueOf: ReceiverResultReg into: DPFPReg0. - jumpImmediate := objectRepresentation genJumpImmediate: Arg0Reg. - objectRepresentation genGetCompactClassIndexNonImmOf: Arg0Reg into: SendNumArgsReg. - objectRepresentation genCmpClassFloatCompactIndexR: SendNumArgsReg. - jumpFail := self JumpNonZero: 0. - objectRepresentation genGetDoubleValueOf: Arg0Reg into: DPFPReg1. - invertComparison "May need to invert for NaNs" - ifTrue: [compare := self CmpRd: DPFPReg0 Rd: DPFPReg1] - ifFalse: [compare := self CmpRd: DPFPReg1 Rd: DPFPReg0]. - jumpCond := self perform: jumpOpcodeGenerator with: 0. "FP jumps are a little weird" - self genMoveFalseR: ReceiverResultReg. - self RetN: 0. - jumpCond jmpTarget: (self genMoveTrueR: ReceiverResultReg). - self RetN: 0. - jumpImmediate jmpTarget: self Label. - objectRepresentation maybeGenConvertIfSmallFloatIn: Arg0Reg scratchReg: TempReg into: DPFPReg1 andJumpTo: compare. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg]. - objectRepresentation genConvertSmallIntegerToIntegerInReg: Arg0Reg. - self ConvertR: Arg0Reg Rd: DPFPReg1. - self Jump: compare. - jumpFail jmpTarget: self Label. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt jmpTarget: jumpFail getJmpTarget]. - ^0! Item was changed: ----- Method: StackToRegisterMappingCogit>>genLoadArgAtDepth:into: (in category 'primitive generators') ----- genLoadArgAtDepth: n into: reg + "All machine code primitives apart from perform: have only + register arguments, hence no arg load code is necessary." + <inline: true> + self assert: n < objectRepresentation numRegArgs! - self shouldNotImplement! Item was added: + ----- Method: StackToRegisterMappingCogit>>genPrimReturn (in category 'primitive generators') ----- + genPrimReturn + "Generate a return that cuts back the stack to remove the receiver + and arguments after an invocation of a primitive with nargs arguments. + Since all primitives that succeed in the normal way (i.e. don't execute a + method as do genPrimitiveClosureValue and genPrimitivePerform) take only + register arguments, there is nothing to do." + <inline: true> + self assert: methodOrBlockNumArgs <= self numRegArgs. + ^self RetN: 0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveAdd (in category 'primitive generators') ----- - genPrimitiveAdd - | jumpNotSI jumpOvfl | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpOvfl type: #'AbstractInstruction *'> - self MoveR: Arg0Reg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: ClassReg. - self AddR: ReceiverResultReg R: ClassReg. - jumpOvfl := self JumpOverflow: 0. - self MoveR: ClassReg R: ReceiverResultReg. - self RetN: 0. - jumpOvfl jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveAsCharacter (in category 'primitive generators') ----- - genPrimitiveAsCharacter - | na r | - na := coInterpreter argumentCountOf: methodObj. - r := na <= 1 - ifTrue: - [objectRepresentation - genInnerPrimitiveAsCharacter: 0 - inReg: (na = 0 ifTrue: [ReceiverResultReg] ifFalse: [Arg0Reg])] - ifFalse: [0]. - ^self compileFallbackToInterpreterPrimitive: r! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveAsFloat (in category 'primitive generators') ----- - genPrimitiveAsFloat - | jumpFailAlloc | - <var: #jumpFailAlloc type: #'AbstractInstruction *'> - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genConvertSmallIntegerToIntegerInReg: TempReg. - self ConvertR: TempReg Rd: DPFPReg0. - jumpFailAlloc := objectRepresentation - genAllocFloatValue: DPFPReg0 - into: SendNumArgsReg - scratchReg: ClassReg - scratchReg: TempReg. - self MoveR: SendNumArgsReg R: ReceiverResultReg. - self RetN: 0. - jumpFailAlloc jmpTarget: self Label. - ^self compileFallbackToInterpreterPrimitive: 0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveAt (in category 'primitive generators') ----- - genPrimitiveAt - self assert: self numRegArgs >= 1. - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveAt: 0)! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveAtPut (in category 'primitive generators') ----- - genPrimitiveAtPut - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveAtPut: 0)! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveBitAnd (in category 'primitive generators') ----- - genPrimitiveBitAnd - | jumpNotSI | - <var: #jumpNotSI type: #'AbstractInstruction *'> - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - "Whether the SmallInteger tags are zero or non-zero, oring them together will preserve them." - self AndR: Arg0Reg R: ReceiverResultReg. - self RetN: 0. - jumpNotSI jmpTarget: self Label. - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveBitOr (in category 'primitive generators') ----- - genPrimitiveBitOr - | jumpNotSI | - <var: #jumpNotSI type: #'AbstractInstruction *'> - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - "Whether the SmallInteger tags are zero or non-zero, oring them together will preserve them." - self OrR: Arg0Reg R: ReceiverResultReg. - self RetN: 0. - jumpNotSI jmpTarget: self Label. - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveBitShift (in category 'primitive generators') ----- - genPrimitiveBitShift - "Receiver and arg in registers. - Stack looks like - return address - - rTemp := rArg0 - rClass := tTemp - rTemp := rTemp & 1 - jz nonInt - rClass >>= 1 - cmp 0,rClass - jge neg - cmp 31,rClass // numSmallIntegerBits, jge for sign - jge tooBig - rTemp := rReceiver - rTemp <<= rClass - rTemp >>= rClass (arithmetic) - cmp rTemp,rReceiver - jnz ovfl - rReceiver := rReceiver - 1 - rReceiver := rReceiver <<= rClass - rReceiver := rReceiver + 1 - ret - neg: - rClass := 0 - rClass - cmp 31,rClass - jge inRange - rClass := 31 - inRange - rReceiver := rReceiver >>= rClass. - rReceiver := rReceiver | 1. - ret - ovfl - tooBig - nonInt: - fail" - | jumpNotSI jumpOvfl jumpNegative jumpTooBig jumpInRange | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpOvfl type: #'AbstractInstruction *'> - <var: #jumpNegative type: #'AbstractInstruction *'> - <var: #jumpTooBig type: #'AbstractInstruction *'> - <var: #jumpInRange type: #'AbstractInstruction *'> - self assert: self numRegArgs >= 1. - self MoveR: Arg0Reg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - objectRepresentation genConvertSmallIntegerToIntegerInReg: ClassReg. - (self lastOpcode setsConditionCodesFor: JumpNegative) ifFalse: - [self CmpCq: 0 R: ClassReg]. "N.B. FLAGS := ClassReg - 0" - jumpNegative := self JumpNegative: 0. - self CmpCq: objectRepresentation numSmallIntegerBits R: ClassReg. "N.B. FLAGS := ClassReg - 31" - jumpTooBig := self JumpGreaterOrEqual: 0. - self MoveR: ReceiverResultReg R: TempReg. - self LogicalShiftLeftR: ClassReg R: TempReg. - self ArithmeticShiftRightR: ClassReg R: TempReg. - self CmpR: TempReg R: ReceiverResultReg. "N.B. FLAGS := RRReg - TempReg" - jumpOvfl := self JumpNonZero: 0. - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: ReceiverResultReg. - self LogicalShiftLeftR: ClassReg R: ReceiverResultReg. - objectRepresentation genAddSmallIntegerTagsTo: ReceiverResultReg. - self RetN: 0. - jumpNegative jmpTarget: (self NegateR: ClassReg). - self CmpCq: objectRepresentation numSmallIntegerBits R: ClassReg. "N.B. FLAGS := ClassReg - 31" - jumpInRange := self JumpLessOrEqual: 0. - self MoveCq: objectRepresentation numSmallIntegerBits R: ClassReg. - jumpInRange jmpTarget: (self ArithmeticShiftRightR: ClassReg R: ReceiverResultReg). - objectRepresentation genClearAndSetSmallIntegerTagsIn: ReceiverResultReg. - self RetN: 0. - jumpNotSI jmpTarget: (jumpTooBig jmpTarget: (jumpOvfl jmpTarget: self Label)). - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveBitXor (in category 'primitive generators') ----- - genPrimitiveBitXor - | jumpNotSI | - <var: #jumpNotSI type: #'AbstractInstruction *'> - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - "Clear one or the other tag so that xoring will preserve them." - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: Arg0Reg. - self XorR: Arg0Reg R: ReceiverResultReg. - self RetN: 0. - jumpNotSI jmpTarget: self Label. - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveCharacterValue (in category 'primitive generators') ----- - genPrimitiveCharacterValue - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveCharacterValue: 0)! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveClass (in category 'primitive generators') ----- - genPrimitiveClass - "Primitive class must be variadic for objectClass:" - | reg | - methodOrBlockNumArgs > 0 - ifTrue: - [methodOrBlockNumArgs > 1 ifTrue: - [^self compileFallbackToInterpreterPrimitive: 0]. - reg := Arg0Reg] - ifFalse: - [reg := ReceiverResultReg]. - (objectRepresentation - genGetClassObjectOf: reg - into: ReceiverResultReg - scratchReg: TempReg - instRegIsReceiver: methodOrBlockNumArgs = 0) = BadRegisterSet ifTrue: - [objectRepresentation - genGetClassObjectOf: reg - into: ClassReg - scratchReg: TempReg - instRegIsReceiver: methodOrBlockNumArgs = 0. - self MoveR: ClassReg R: ReceiverResultReg]. - self RetN: 0. - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveDiv (in category 'primitive generators') ----- - genPrimitiveDiv - | jumpNotSI jumpIsSI jumpZero jumpExact jumpSameSign convert | - <var: #convert type: #'AbstractInstruction *'> - <var: #jumpIsSI type: #'AbstractInstruction *'> - <var: #jumpZero type: #'AbstractInstruction *'> - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpExact type: #'AbstractInstruction *'> - <var: #jumpSameSign type: #'AbstractInstruction *'> - self MoveR: Arg0Reg R: ClassReg. - self MoveR: Arg0Reg R: Arg1Reg. - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - "We must shift away the tags, not just subtract them, so that the - overflow case doesn't actually overflow the machine instruction." - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. - (self lastOpcode setsConditionCodesFor: JumpZero) ifFalse: - [self CmpCq: 0 R: ClassReg]. - jumpZero := self JumpZero: 0. - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: TempReg. - self DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. - "If remainder is zero we must check for overflow." - self CmpCq: 0 R: ClassReg. - jumpExact := self JumpZero: 0. - "If arg and remainder signs are different we must round down." - self XorR: ClassReg R: Arg1Reg. - (self lastOpcode setsConditionCodesFor: JumpZero) ifFalse: - [self CmpCq: 0 R: Arg1Reg]. - jumpSameSign := self JumpGreaterOrEqual: 0. - self SubCq: 1 R: TempReg. - jumpSameSign jmpTarget: (convert := self Label). - objectRepresentation genConvertIntegerToSmallIntegerInReg: TempReg. - self MoveR: TempReg R: ReceiverResultReg. - self RetN: 0. - "test for overflow; the only case is SmallInteger minVal // -1" - jumpExact jmpTarget: self Label. - jumpIsSI := objectRepresentation genJumpIsSmallIntegerValue: TempReg scratch: Arg1Reg. - jumpIsSI jmpTarget: convert. - jumpZero jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveDivide (in category 'primitive generators') ----- - genPrimitiveDivide - | jumpNotSI jumpZero jumpInexact jumpOverflow | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpZero type: #'AbstractInstruction *'> - <var: #jumpInexact type: #'AbstractInstruction *'> - <var: #jumpOverflow type: #'AbstractInstruction *'> - self MoveR: Arg0Reg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - "We must shift away the tags, not just subtract them, so that the - overflow case doesn't actually overflow the machine instruction." - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. - jumpZero := self JumpZero: 0. - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: TempReg. - self DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. - "If remainder is non-zero fail." - self CmpCq: 0 R: ClassReg. - jumpInexact := self JumpNonZero: 0. - "test for overflow; the only case is SmallInteger minVal / -1" - jumpOverflow := objectRepresentation genJumpNotSmallIntegerValue: TempReg scratch: Arg1Reg. - objectRepresentation genConvertIntegerToSmallIntegerInReg: TempReg. - self MoveR: TempReg R: ReceiverResultReg. - self RetN: 0. - jumpOverflow jmpTarget: (jumpInexact jmpTarget: (jumpZero jmpTarget: (jumpNotSI jmpTarget: self Label))). - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveFloatSquareRoot (in category 'primitive generators') ----- - genPrimitiveFloatSquareRoot - | jumpFailAlloc | - <var: #jumpFailAlloc type: #'AbstractInstruction *'> - objectRepresentation genGetDoubleValueOf: ReceiverResultReg into: DPFPReg0. - self SqrtRd: DPFPReg0. - jumpFailAlloc := objectRepresentation - genAllocFloatValue: DPFPReg0 - into: SendNumArgsReg - scratchReg: ClassReg - scratchReg: TempReg. - self MoveR: SendNumArgsReg R: ReceiverResultReg. - self RetN: 0. - jumpFailAlloc jmpTarget: self Label. - ^self compileFallbackToInterpreterPrimitive: 0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveIdentical (in category 'primitive generators') ----- - genPrimitiveIdentical - "Receiver and arg in registers. - Stack looks like - return address" - ^objectRepresentation - genInnerPrimitiveIdentical: 0 - orNotIf: false! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveIdentityHash (in category 'primitive generators') ----- - genPrimitiveIdentityHash - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveIdentityHash: 0)! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveMod (in category 'primitive generators') ----- - genPrimitiveMod - | jumpNotSI jumpZero jumpExact jumpSameSign | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpZero type: #'AbstractInstruction *'> - <var: #jumpExact type: #'AbstractInstruction *'> - <var: #jumpSameSign type: #'AbstractInstruction *'> - self MoveR: Arg0Reg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: ClassReg. - jumpZero := self JumpZero: 0. - self MoveR: ClassReg R: Arg1Reg. - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: TempReg. - self DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. - "If remainder is zero we're done." - self CmpCq: 0 R: ClassReg. - jumpExact := self JumpZero: 0. - "If arg and remainder signs are different we must reflect around zero." - self XorR: ClassReg R: Arg1Reg. - (self lastOpcode setsConditionCodesFor: JumpZero) ifFalse: - [self CmpCq: 0 R: Arg1Reg]. - jumpSameSign := self JumpGreaterOrEqual: 0. - self XorR: ClassReg R: Arg1Reg. - self AddR: Arg1Reg R: ClassReg. - jumpSameSign jmpTarget: (jumpExact jmpTarget: self Label). - objectRepresentation genSetSmallIntegerTagsIn: ClassReg. - self MoveR: ClassReg R: ReceiverResultReg. - self RetN: 0. - jumpZero jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveMultiply (in category 'primitive generators') ----- - genPrimitiveMultiply - | jumpNotSI jumpOvfl | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpOvfl type: #'AbstractInstruction *'> - self MoveR: Arg0Reg R: ClassReg. - self MoveR: ReceiverResultReg R: Arg1Reg. - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg.. - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. - objectRepresentation genRemoveSmallIntegerTagsInScratchReg: Arg1Reg. - self MulR: Arg1Reg R: ClassReg. - jumpOvfl := self JumpOverflow: 0. - objectRepresentation genSetSmallIntegerTagsIn: ClassReg. - self MoveR: ClassReg R: ReceiverResultReg. - self RetN: 0. - jumpOvfl jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveNew (in category 'primitive generators') ----- - genPrimitiveNew - | r numArgs | - NewspeakVM - ifTrue: - [r := 0. - numArgs := coInterpreter argumentCountOf: methodObj. - numArgs = 1 ifTrue: - [r := objectRepresentation genInnerPrimitiveMirrorNew: 0]. - numArgs = 0 ifTrue: - [r := objectRepresentation genInnerPrimitiveNew: 0]] - ifFalse: - [r := objectRepresentation genInnerPrimitiveNew: 0]. - "Call the interpreter primitive either when the machine-code primitive - fails, or if the machine-code primitive is unimplemented." - ^self compileFallbackToInterpreterPrimitive: r! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveNewMethod (in category 'primitive generators') ----- - genPrimitiveNewMethod - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveNewMethod: 0)! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveNewWithArg (in category 'primitive generators') ----- - genPrimitiveNewWithArg - | r numArgs | - NewspeakVM - ifTrue: - [r := 0. - numArgs := coInterpreter argumentCountOf: methodObj. - numArgs = 2 ifTrue: - [r := objectRepresentation genInnerPrimitiveMirrorNewWithArg: 0]. - numArgs = 1 ifTrue: - [r := objectRepresentation genInnerPrimitiveNewWithArg: 0]] - ifFalse: - [r := objectRepresentation genInnerPrimitiveNewWithArg: 0]. - "Call the interpreter primitive either when the machine-code primitive - fails, or if the machine-code primitive is unimplemented." - ^self compileFallbackToInterpreterPrimitive: r! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveNotIdentical (in category 'primitive generators') ----- - genPrimitiveNotIdentical - "Receiver and arg in registers. - Stack looks like - return address" - ^objectRepresentation - genInnerPrimitiveIdentical: 0 - orNotIf: true! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveObjectAt (in category 'primitive generators') ----- - genPrimitiveObjectAt - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveObjectAt: 0)! Item was changed: ----- Method: StackToRegisterMappingCogit>>genPrimitivePerform (in category 'primitive generators') ----- genPrimitivePerform "Generate an in-line perform primitive. The lookup code requires the selector to be in Arg0Reg. adjustArgumentsForPerform: adjusts the arguments once genLookupForPerformNumArgs: has generated the code for the lookup." methodOrBlockNumArgs > self numRegArgs ifTrue: + [self MoveMw: (backEnd hasLinkRegister + ifTrue: [methodOrBlockNumArgs - 1] + ifFalse: [methodOrBlockNumArgs]) * objectMemory wordSize + r: SPReg + R: Arg0Reg]. + ^self genLookupForPerformNumArgs: methodOrBlockNumArgs! - [self MoveMw: (backEnd hasLinkRegister ifTrue: [methodOrBlockNumArgs - 1] ifFalse: [methodOrBlockNumArgs]) * objectMemory wordSize r: SPReg R: Arg0Reg]. - self genLookupForPerformNumArgs: methodOrBlockNumArgs. - ^self compileInterpreterPrimitive: (coInterpreter - functionPointerForCompiledMethod: methodObj - primitiveIndex: primitiveIndex)! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveQuo (in category 'primitive generators') ----- - genPrimitiveQuo - | convert jumpNotSI jumpZero jumpIsSI jumpExact | - <var: #convert type: #'AbstractInstruction *'> - <var: #jumpIsSI type: #'AbstractInstruction *'> - <var: #jumpZero type: #'AbstractInstruction *'> - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpExact type: #'AbstractInstruction *'> - self MoveR: Arg0Reg R: ClassReg. - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - "We must shift away the tags, not just subtract them, so that the - overflow case doesn't actually overflow the machine instruction." - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: ClassReg. - (self lastOpcode setsConditionCodesFor: JumpZero) ifFalse: - [self CmpCq: 0 R: ClassReg]. - jumpZero := self JumpZero: 0. - self MoveR: ReceiverResultReg R: TempReg. - objectRepresentation genShiftAwaySmallIntegerTagsInScratchReg: TempReg. - self DivR: ClassReg R: TempReg Quo: TempReg Rem: ClassReg. - "If remainder is zero we must check for overflow." - self CmpCq: 0 R: ClassReg. - jumpExact := self JumpZero: 0. - convert := self Label. - objectRepresentation genConvertIntegerToSmallIntegerInReg: TempReg. - self MoveR: TempReg R: ReceiverResultReg. - self RetN: 0. - jumpExact jmpTarget: self Label. - jumpIsSI := objectRepresentation genJumpIsSmallIntegerValue: TempReg scratch: Arg1Reg. - jumpIsSI jmpTarget: convert. - jumpZero jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveSize (in category 'primitive generators') ----- - genPrimitiveSize - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveSize: 0)! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveSmallFloatSquareRoot (in category 'primitive generators') ----- - genPrimitiveSmallFloatSquareRoot - <option: #Spur64BitMemoryManager> - | jumpFailAlloc | - <var: #jumpFailAlloc type: #'AbstractInstruction *'> - objectRepresentation genGetSmallFloatValueOf: ReceiverResultReg scratch: SendNumArgsReg into: DPFPReg0. - self SqrtRd: DPFPReg0. - jumpFailAlloc := objectRepresentation - genAllocFloatValue: DPFPReg0 - into: SendNumArgsReg - scratchReg: ClassReg - scratchReg: TempReg. - self MoveR: SendNumArgsReg R: ReceiverResultReg. - self RetN: 0. - jumpFailAlloc jmpTarget: self Label. - ^self compileFallbackToInterpreterPrimitive: 0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveStringAt (in category 'primitive generators') ----- - genPrimitiveStringAt - self assert: self numRegArgs >= 1. - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveStringAt: 0)! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveStringAtPut (in category 'primitive generators') ----- - genPrimitiveStringAtPut - ^self compileFallbackToInterpreterPrimitive: - (objectRepresentation genInnerPrimitiveStringAtPut: 0)! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genPrimitiveSubtract (in category 'primitive generators') ----- - genPrimitiveSubtract - | jumpNotSI jumpOvfl | - <var: #jumpNotSI type: #'AbstractInstruction *'> - <var: #jumpOvfl type: #'AbstractInstruction *'> - jumpNotSI := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - self MoveR: ReceiverResultReg R: TempReg. - self SubR: Arg0Reg R: TempReg. - jumpOvfl := self JumpOverflow: 0. - objectRepresentation genAddSmallIntegerTagsTo: TempReg. - self MoveR: TempReg R: ReceiverResultReg. - self RetN: 0. - jumpOvfl jmpTarget: (jumpNotSI jmpTarget: self Label). - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genSmallFloatArithmetic:preOpCheck: (in category 'primitive generators') ----- - genSmallFloatArithmetic: arithmeticOperator preOpCheck: preOpCheckOrNil - "Receiver and arg in registers. - Stack looks like - return address" - <var: #preOpCheckOrNil declareC: 'AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)'> - | jumpFailClass jumpFailClass2 jumpFailAlloc jumpFailCheck jumpImmediate jumpNonInt doOp | - <var: #jumpFailClass type: #'AbstractInstruction *'> - <var: #jumpFailClass2 type: #'AbstractInstruction *'> - <var: #jumpFailAlloc type: #'AbstractInstruction *'> - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpNonInt type: #'AbstractInstruction *'> - <var: #jumpFailCheck type: #'AbstractInstruction *'> - <var: #doOp type: #'AbstractInstruction *'> - objectRepresentation genGetSmallFloatValueOf: ReceiverResultReg scratch: SendNumArgsReg into: DPFPReg0. - self MoveR: Arg0Reg R: ClassReg. - jumpImmediate := objectRepresentation genJumpImmediate: Arg0Reg. - objectRepresentation genGetCompactClassIndexNonImmOf: Arg0Reg into: SendNumArgsReg. - objectRepresentation genCmpClassFloatCompactIndexR: SendNumArgsReg. - jumpFailClass := self JumpNonZero: 0. - objectRepresentation genGetDoubleValueOf: Arg0Reg into: DPFPReg1. - doOp := self Label. - preOpCheckOrNil ifNotNil: - [jumpFailCheck := self perform: preOpCheckOrNil with: DPFPReg0 with: DPFPReg1]. - self gen: arithmeticOperator operand: DPFPReg1 operand: DPFPReg0. - jumpFailAlloc := objectRepresentation - genAllocFloatValue: DPFPReg0 - into: SendNumArgsReg - scratchReg: ClassReg - scratchReg: TempReg. - self MoveR: SendNumArgsReg R: ReceiverResultReg. - self RetN: 0. - jumpImmediate jmpTarget: self Label. - objectRepresentation maybeGenConvertIfSmallFloatIn: Arg0Reg scratchReg: TempReg into: DPFPReg1 andJumpTo: doOp. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg]. - objectRepresentation genConvertSmallIntegerToIntegerInReg: ClassReg. - self ConvertR: ClassReg Rd: DPFPReg1. - self Jump: doOp. - "We need to push the register args on two paths; this one and the interpreter primitive path. - But the interpreter primitive path won't unless regArgsHaveBeenPushed is false." - self assert: methodOrBlockNumArgs <= self numRegArgs. - jumpFailClass jmpTarget: self Label. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt jmpTarget: jumpFailClass getJmpTarget]. - preOpCheckOrNil ifNotNil: - [jumpFailCheck jmpTarget: jumpFailClass getJmpTarget]. - backEnd genPushRegisterArgsForNumArgs: methodOrBlockNumArgs scratchReg: SendNumArgsReg. - jumpFailClass2 := self Jump: 0. - jumpFailAlloc jmpTarget: self Label. - self compileFallbackToInterpreterPrimitive: 0. - jumpFailClass2 jmpTarget: self Label. - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genSmallFloatComparison:invert: (in category 'primitive generators') ----- - genSmallFloatComparison: jumpOpcodeGenerator invert: invertComparison - "Receiver and arg in registers. - Stack looks like - return address" - <var: #jumpOpcodeGenerator declareC: 'AbstractInstruction *(*jumpOpcodeGenerator)(void *)'> - | jumpFail jumpImmediate jumpNonInt jumpCond compare | - <var: #jumpImmediate type: #'AbstractInstruction *'> - <var: #jumpNonInt type: #'AbstractInstruction *'> - <var: #jumpCond type: #'AbstractInstruction *'> - <var: #compare type: #'AbstractInstruction *'> - <var: #jumpFail type: #'AbstractInstruction *'> - objectRepresentation genGetSmallFloatValueOf: ReceiverResultReg scratch: SendNumArgsReg into: DPFPReg0. - jumpImmediate := objectRepresentation genJumpImmediate: Arg0Reg. - objectRepresentation genGetCompactClassIndexNonImmOf: Arg0Reg into: SendNumArgsReg. - objectRepresentation genCmpClassFloatCompactIndexR: SendNumArgsReg. - jumpFail := self JumpNonZero: 0. - objectRepresentation genGetDoubleValueOf: Arg0Reg into: DPFPReg1. - invertComparison "May need to invert for NaNs" - ifTrue: [compare := self CmpRd: DPFPReg0 Rd: DPFPReg1] - ifFalse: [compare := self CmpRd: DPFPReg1 Rd: DPFPReg0]. - jumpCond := self perform: jumpOpcodeGenerator with: 0. "FP jumps are a little weird" - self genMoveFalseR: ReceiverResultReg. - self RetN: 0. - jumpCond jmpTarget: (self genMoveTrueR: ReceiverResultReg). - self RetN: 0. - jumpImmediate jmpTarget: self Label. - objectRepresentation maybeGenConvertIfSmallFloatIn: Arg0Reg scratchReg: TempReg into: DPFPReg1 andJumpTo: compare. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg]. - objectRepresentation genConvertSmallIntegerToIntegerInReg: Arg0Reg. - self ConvertR: Arg0Reg Rd: DPFPReg1. - self Jump: compare. - jumpFail jmpTarget: self Label. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt jmpTarget: jumpFail getJmpTarget]. - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genSmallIntegerComparison: (in category 'primitive generators') ----- - genSmallIntegerComparison: jumpOpcode - | jumpFail jumpTrue | - <var: #jumpFail type: #'AbstractInstruction *'> - <var: #jumpTrue type: #'AbstractInstruction *'> - jumpFail := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - self CmpR: Arg0Reg R: ReceiverResultReg. "N.B. FLAGS := RRReg - Arg0Reg" - jumpTrue := self genConditionalBranch: jumpOpcode operand: 0. - self genMoveFalseR: ReceiverResultReg. - self RetN: 0. - jumpTrue jmpTarget: (self genMoveTrueR: ReceiverResultReg). - self RetN: 0. - jumpFail jmpTarget: self Label. - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>genSmallIntegerComparison:orDoubleComparison:invert: (in category 'primitive generators') ----- - genSmallIntegerComparison: jumpOpcode orDoubleComparison: jumpFPOpcodeGenerator invert: invertComparison - "Stack looks like - return address" - | jumpDouble jumpNonInt jumpFail jumpTrue jumpCond | - <var: #jumpFPOpcodeGenerator declareC: 'AbstractInstruction *(*jumpFPOpcodeGenerator)(void *)'> - <var: #jumpDouble type: #'AbstractInstruction *'> - <var: #jumpNonInt type: #'AbstractInstruction *'> - <var: #jumpCond type: #'AbstractInstruction *'> - <var: #jumpTrue type: #'AbstractInstruction *'> - <var: #jumpFail type: #'AbstractInstruction *'> - backEnd hasDoublePrecisionFloatingPointSupport ifFalse: - [^self genSmallIntegerComparison: jumpOpcode]. - jumpDouble := objectRepresentation genJumpNotSmallInteger: Arg0Reg scratchReg: TempReg. - self CmpR: Arg0Reg R: ReceiverResultReg. "N.B. FLAGS := RRReg - Arg0Reg" - jumpTrue := self gen: jumpOpcode. - self genMoveFalseR: ReceiverResultReg. - self RetN: 0. - jumpTrue jmpTarget: (self genMoveTrueR: ReceiverResultReg). - self RetN: 0. - - "Argument may be a Float : let us check or fail" - jumpDouble jmpTarget: self Label. - objectRepresentation smallIntegerIsOnlyImmediateType ifFalse: - [jumpNonInt := objectRepresentation genJumpImmediate: Arg0Reg]. - objectRepresentation genGetCompactClassIndexNonImmOf: Arg0Reg into: SendNumArgsReg. - objectRepresentation genCmpClassFloatCompactIndexR: SendNumArgsReg. - jumpFail := self JumpNonZero: 0. - - "It was a Float, so convert the receiver to double and perform the operation" - objectRepresentation genConvertSmallIntegerToIntegerInReg: ReceiverResultReg. - self ConvertR: ReceiverResultReg Rd: DPFPReg0. - objectRepresentation genGetDoubleValueOf: Arg0Reg into: DPFPReg1. - invertComparison "May need to invert for NaNs" - ifTrue: [self CmpRd: DPFPReg0 Rd: DPFPReg1] - ifFalse: [self CmpRd: DPFPReg1 Rd: DPFPReg0]. - jumpCond := self perform: jumpFPOpcodeGenerator with: 0. "FP jumps are a little weird" - self genMoveFalseR: ReceiverResultReg. - self RetN: 0. - jumpCond jmpTarget: (self genMoveTrueR: ReceiverResultReg). - self RetN: 0. - - objectRepresentation smallIntegerIsOnlyImmediateType - ifTrue: [jumpFail jmpTarget: self Label] - ifFalse: [jumpNonInt jmpTarget: (jumpFail jmpTarget: self Label)]. - ^0! Item was removed: - ----- Method: StackToRegisterMappingCogit>>isValidFramelessRegister: (in category 'testing') ----- - isValidFramelessRegister: reg - "Answer if the receiver is valid in a frameless method." - ^reg = ReceiverResultReg or: [reg = Arg0Reg]! Item was removed: - ----- Method: StackToRegisterMappingCogit>>primRetNOffsetFor: (in category 'primitive generators') ----- - primRetNOffsetFor: nargs - self shouldNotImplement! Item was changed: ----- Method: Symbol>>defined (in category '*VMMaker-interpreter simulator') ----- defined "To allow constructs such as self cppIf: #'SA_NOCLDSTOP' defined ifTrue: [...]. We could go look for a definition but likely there won't be one." + ^(thisContext sender methodClass bindingOf: self) + ifNil: [false] + ifNotNil: [:binding| binding value ~~ #undefined]! - ^false! Item was changed: ----- Method: VMClass class>>initializeMiscConstants (in category 'initialization') ----- initializeMiscConstants "Falsify the `what type of VM is this?' flags that are defined in the various interp.h files, or in the case of VMBIGENDIAN the various sqConfig.h files. Subclass implementations need to include a super initializeMiscConstants" | omc | VMBIGENDIAN class. "Mention this for the benefit of CCodeGenerator>>emitCConstantsOn:" self isInterpreterClass ifTrue: [STACKVM := COGVM := COGMTVM := false]. initializationOptions ifNil: [self initializationOptions: Dictionary new]. omc := initializationOptions at: #ObjectMemory ifAbsent: nil. (omc isNil and: [self defaultObjectMemoryClass notNil]) ifTrue: [omc := initializationOptions at: #ObjectMemory put: self defaultObjectMemoryClass name]. initializationOptions at: #SqueakV3ObjectMemory "the good ole default" ifAbsentPut: (omc ifNil: [true] ifNotNil: [(Smalltalk at: omc) includesBehavior: ObjectMemory]); at: #SpurObjectMemory "the new contender" ifAbsentPut: (omc ifNil: [false] + ifNotNil: [(Smalltalk at: omc) includesBehavior: SpurMemoryManager]); + at: #Spur32BitMemoryManager put: false; + at: #Spur64BitMemoryManager put: false. - ifNotNil: [(Smalltalk at: omc) includesBehavior: SpurMemoryManager]). "Use ifAbsentPut: so that they will get copied back to the VMMaker's options and dead code will likely be eliminated." PharoVM := initializationOptions at: #PharoVM ifAbsentPut: [false]. NewspeakVM := initializationOptions at: #NewspeakVM ifAbsentPut: [false]. SistaVM := initializationOptions at: #SistaVM ifAbsentPut: [false]. MULTIPLEBYTECODESETS := initializationOptions at: #MULTIPLEBYTECODESETS ifAbsentPut: [false]. "N.B. Not yet implemented." IMMUTABILITY := initializationOptions at: #IMMUTABILITY ifAbsentPut: [false]. "These for scripts etc... Usually they should get set by an Interpreter class's initializeMiscConstantsWith:" (initializationOptions includesKey: #STACKVM) ifTrue: [STACKVM := initializationOptions at: #STACKVM]. (initializationOptions includesKey: #COGVM) ifTrue: [COGVM := initializationOptions at: #COGVM]. (initializationOptions includesKey: #COGMTVM) ifTrue: [COGMTVM := initializationOptions at: #COGMTVM]! Item was changed: ----- Method: VMClass class>>shouldIncludeMethodForSelector: (in category 'translation') ----- shouldIncludeMethodForSelector: selector + "Answer whether a primitive method should be translated. Emit a warning to the transcript if the method doesn't exist." - "Answer whether a primitive method shoud be translated. Emit a warning to the transcript if the method doesn't exist." ^(self whichClassIncludesSelector: selector) ifNotNil: [:c| (c >> selector pragmaAt: #option:) ifNotNil: [:pragma| + initializationOptions + at: pragma arguments first + ifAbsent: [(self bindingOf: pragma arguments first) + ifNil: [false] + ifNotNil: [:binding| binding value ~~ #undefined]]] - initializationOptions at: pragma arguments first ifAbsent: [false]] ifNil: [true]] ifNil: [Transcript nextPutAll: 'Cannot find implementation of '; nextPutAll: selector; nextPutAll: ' in hierarchy of '; print: self; cr; flush. false]!

1 0

Re: Help with FFI crash in latest Spur (only in Linux)
by Mariano Martinez Peck 08 Jan '16

08 Jan '16

On Fri, Jan 8, 2016 at 3:04 PM, Mariano Martinez Peck <marianopeck(a)gmail.com > wrote: > Hi guys, > > I wonder if someone could give me a hand to find out why a FFI calling I > am doing is crashing. In OSX it works correct but I am testing in CentOS > and it fails. I wonder if it also crashes in other Linuxes too. > > I am using latest Pharo 5.0 with Spur. To reproduce: > > 1) Get latest Pharo 5.0 and Spur via: > wget -O- get.pharo.org/alpha+vm | bash > > 2) Inside Pharo, load my prototype tool: > > Gofer it > package: 'OSSubprocess'; > url: 'http://smalltalkhub.com/mc/marianopeck/OSSubprocess/main'; > load. > > 3) This is the code I am executing and it's crashing: > > | posixSpawnFileActionsT | posixSpawnFileActionsT := ExternalAddress > allocate: 4. > If I change above line with this: posixSpawnFileActionsT := ByteArray new: 4. Then the function does not crash but it crashes in the future posix_spawn_file_actions_destroy(). -- Mariano http://marianopeck.wordpress.com

1 0

Fwd: Help with FFI crash in latest Spur (only in Linux)
by Mariano Martinez Peck 08 Jan '16

08 Jan '16

---------- Forwarded message ---------- From: Mariano Martinez Peck <marianopeck(a)gmail.com> Date: Fri, Jan 8, 2016 at 3:04 PM Subject: Help with FFI crash in latest Spur (only in Linux) To: Pharo Development List <pharo-dev(a)lists.pharo.org> Hi guys, I wonder if someone could give me a hand to find out why a FFI calling I am doing is crashing. In OSX it works correct but I am testing in CentOS and it fails. I wonder if it also crashes in other Linuxes too. I am using latest Pharo 5.0 with Spur. To reproduce: 1) Get latest Pharo 5.0 and Spur via: wget -O- get.pharo.org/alpha+vm | bash 2) Inside Pharo, load my prototype tool: Gofer it package: 'OSSubprocess'; url: 'http://smalltalkhub.com/mc/marianopeck/OSSubprocess/main'; load. 3) This is the code I am executing and it's crashing: | posixSpawnFileActionsT | posixSpawnFileActionsT := ExternalAddress allocate: 4. OSSUnixSubprocess new primitivePosixSpawnFileActionsInit: posixSpawnFileActionsT. posixSpawnFileActionsT free. 4) The primitive is as simple as: primitivePosixSpawnFileActionsInit: aPosixSpawnFileActionsT ^ self ffiCall: #( int posix_spawn_file_actions_init(void* aPosixSpawnFileActionsT) ) module: LibC I have no idea what I am doing wrong. And again, this works on OSX. The function I am calling is: int posix_spawn_file_actions_init(posix_spawn_file_actions_t *file_actions); as you can read in [1] Below is the stacktrace I get the Linux terminal. Any hint is greatly appreciated. Thanks, [1] http://pubs.opengroup.org/onlinepubs/9699919799/functions/posix_spawn_file_… **** Error in `/home/centos/pharo-vm/pharo': malloc(): memory corruption (fast): 0x09544268 **** ======= Backtrace: ========= /lib/libc.so.6(+0x7428c)[0xf758e28c] /lib/libc.so.6(+0x76d98)[0xf7590d98] /lib/libc.so.6(__libc_calloc+0xa7)[0xf7592df7] /home/centos/pharo-vm/pharo[0x80b8f44] /home/centos/pharo-vm/pharo[0x80b909c] /home/centos/pharo-vm/pharo(ioLoadExternalFunctionOfLengthFromModuleOfLengthAccessorDepthInto+0xc2)[0x80b9402] /home/centos/pharo-vm/pharo[0x808de6f] /home/centos/pharo-vm/pharo[0x80a0810] /home/centos/pharo-vm/pharo(ceSendsupertonumArgs+0x1da)[0x80a1f4a] [0x960004c] [0x9600b00] [0xaec2e9b] [0xaec3481] [0x9604ff0] [0x964ed43] [0x9604f5c] [0x960424c] [0x9602e47] [0x9602be7] [0x960320c] [0x9602277] [0x960bec2] [0x9600b00] [0x9600ad8] ======= Memory map: ======== 08048000-08151000 r-xp 00000000 fd:01 202178584 /home/centos/pharo-vm/pharo 08151000-08152000 r--p 00108000 fd:01 202178584 /home/centos/pharo-vm/pharo 08152000-0815c000 rw-p 00109000 fd:01 202178584 /home/centos/pharo-vm/pharo 0815c000-08193000 rw-p 00000000 00:00 0 09505000-095a5000 rw-p 00000000 00:00 0 [heap] 09600000-09701000 rwxp 00000000 00:00 0 09701000-0dbc0000 rw-p 00000000 00:00 0 f6de5000-f6dfe000 r-xp 00000000 fd:01 203854803 /usr/lib/libgcc_s-4.8.5-20150702.so.1 f6dfe000-f6dff000 r--p 00018000 fd:01 203854803 /usr/lib/libgcc_s-4.8.5-20150702.so.1 f6dff000-f6e00000 rw-p 00019000 fd:01 203854803 /usr/lib/libgcc_s-4.8.5-20150702.so.1 f6e00000-f6e21000 rw-p 00000000 00:00 0 f6e21000-f6f00000 ---p 00000000 00:00 0 f6f25000-f6f26000 rw-p 00000000 00:00 0 f6f26000-f6f2e000 r-xp 00000000 fd:01 202178580 /home/centos/pharo-vm/libSqueakFFIPrims.so f6f2e000-f6f2f000 r--p 00007000 fd:01 202178580 /home/centos/pharo-vm/libSqueakFFIPrims.so f6f2f000-f6f30000 rw-p 00008000 fd:01 202178580 /home/centos/pharo-vm/libSqueakFFIPrims.so f6f30000-f6f32000 r-xp 00000000 fd:01 203140415 /usr/lib/libXau.so.6.0.0 f6f32000-f6f33000 r--p 00001000 fd:01 203140415 /usr/lib/libXau.so.6.0.0 f6f33000-f6f34000 rw-p 00002000 fd:01 203140415 /usr/lib/libXau.so.6.0.0 f6f34000-f6f5b000 r-xp 00000000 fd:01 201498737 /usr/lib/liblzma.so.5.0.99 f6f5b000-f6f5d000 r--p 00026000 fd:01 201498737 /usr/lib/liblzma.so.5.0.99 f6f5d000-f6f5e000 rw-p 00028000 fd:01 201498737 /usr/lib/liblzma.so.5.0.99 f6f5e000-f6fc0000 r-xp 00000000 fd:01 201348055 /usr/lib/libpcre.so.1.2.0 f6fc0000-f6fc2000 r--p 00061000 fd:01 201348055 /usr/lib/libpcre.so.1.2.0 f6fc2000-f6fc3000 rw-p 00063000 fd:01 201348055 /usr/lib/libpcre.so.1.2.0 f6fc3000-f6fcf000 r-xp 00000000 fd:01 202740809 /usr/lib/libdrm.so.2.4.0 f6fcf000-f6fd0000 r--p 0000b000 fd:01 202740809 /usr/lib/libdrm.so.2.4.0 f6fd0000-f6fd1000 rw-p 0000c000 fd:01 202740809 /usr/lib/libdrm.so.2.4.0 f6fd1000-f6fd5000 r-xp 00000000 fd:01 202740799 /usr/lib/libXxf86vm.so.1.0.0 f6fd5000-f6fd6000 r--p 00004000 fd:01 202740799 /usr/lib/libXxf86vm.so.1.0.0 f6fd6000-f6fd7000 rw-p 00005000 fd:01 202740799 /usr/lib/libXxf86vm.so.1.0.0 f6fd7000-f6fd8000 r-xp 00000000 fd:01 201522922 /usr/lib/libxshmfence.so.1.0.0 f6fd8000-f6fd9000 r--p 00000000 fd:01 201522922 /usr/lib/libxshmfence.so.1.0.0 f6fd9000-f6fda000 rw-p 00001000 fd:01 201522922 /usr/lib/libxshmfence.so.1.0.0 f6fda000-f6ffd000 r-xp 00000000 fd:01 202740769 /usr/lib/libxcb.so.1.1.0 f6ffd000-f6ffe000 r--p 00022000 fd:01 202740769 /usr/lib/libxcb.so.1.1.0 f6ffe000-f6fff000 rw-p 00023000 fd:01 202740769 /usr/lib/libxcb.so.1.1.0 f6fff000-f7004000 r-xp 00000000 fd:01 201522899 /usr/lib/libxcb-sync.so.1.0.0 f7004000-f7005000 r--p 00005000 fd:01 201522899 /usr/lib/libxcb-sync.so.1.0.0 f7005000-f7006000 rw-p 00006000 fd:01 201522899 /usr/lib/libxcb-sync.so.1.0.0 f7006000-f7009000 r-xp 00000000 fd:01 201522895 /usr/lib/libxcb-shape.so.0.0.0 f7009000-f700a000 r--p 00002000 fd:01 201522895 /usr/lib/libxcb-shape.so.0.0.0 f700a000-f700b000 rw-p 00003000 fd:01 201522895 /usr/lib/libxcb-shape.so.0.0.0 f700b000-f7014000 r-xp 00000000 fd:01 201522889 /usr/lib/libxcb-render.so.0.0.0 f7014000-f7015000 r--p 00008000 fd:01 201522889 /usr/lib/libxcb-render.so.0.0.0 f7015000-f7016000 rw-p 00009000 fd:01 201522889 /usr/lib/libxcb-render.so.0.0.0 f7016000-f701d000 r-xp 00000000 fd:01 201522905 /usr/lib/libxcb-xfixes.so.0.0.0 f701d000-f701e000 r--p 00006000 fd:01 201522905 /usr/lib/libxcb-xfixes.so.0.0.0 f701e000-f701f000 rw-p 00007000 fd:01 201522905 /usr/lib/libxcb-xfixes.so.0.0.0 f701f000-f702c000 r-xp 00000000 fd:01 201522885 /usr/lib/libxcb-randr.so.0.1.0 f702c000-f702d000 r--p 0000d000 fd:01 201522885 /usr/lib/libxcb-randr.so.0.1.0 f702d000-f702e000 rw-p 0000e000 fd:01 201522885 /usr/lib/libxcb-randr.so.0.1.0 f702e000-f7030000 r-xp 00000000 fd:01 201522883 /usr/lib/libxcb-present.so.0.0.0 f7030000-f7031000 r--p 00001000 fd:01 201522883 /usr/lib/libxcb-present.so.0.0.0 f7031000-f7032000 rw-p 00002000 fd:01 201522883 /usr/lib/libxcb-present.so.0.0.0 f7032000-f7034000 r-xp 00000000 fd:01 203140423 /usr/lib/libxcb-dri3.so.0.0.0 f7034000-f7035000 r--p 00001000 fd:01 203140423 /usr/lib/libxcb-dri3.so.0.0.0 f7035000-f7036000 rw-p 00002000 fd:01 203140423 /usr/lib/libxcb-dri3.so.0.0.0 f7036000-f703a000 r-xp 00000000 fd:01 203140421 /usr/lib/libxcb-dri2.so.0.0.0./pharo-ui: line 11: 4019 Aborted (core dumped) "$DIR"/"pharo-vm/pharo" "$@" -- Mariano http://marianopeck.wordpress.com -- Mariano http://marianopeck.wordpress.com

1 0

OpenGL vs VMMaker
by KenD 08 Jan '16

08 Jan '16

Hi there, I am trying to build a minimal interpreter VM. I have B3DAcceleratorPlugin in the Plugins Not Built pane in the VMMakerTool. Why is the build trying to find the (Open)GL header file? [This happens under Linux on x86-64 and on ARM] ======== [ 26%] Building C object CMakeFiles/squeakvm.dir/vm/sqUnixMain.c.o In file included from /home/kend/SqueakVM/platforms/unix/vm/SqDisplay.h:16:0, from /home/kend/SqueakVM/platforms/unix/vm/sqUnixMain.c:115: /home/kend/SqueakVM/platforms/unix/plugins/B3DAcceleratorPlugin/sqUnixOpenGL.h:27:7: error: #error *** cannot find gl.h # error *** cannot find gl.h ^ ======== Thanks much. -KenD

4 4

Is the CMake work still desired
by gettimothy 07 Jan '16

07 Jan '16

Hi all. I have some free cycles and if you want the CMake work to continue, I will start back on it. cheers. tty

3 4

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 January 2016