Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.725.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.725
Author: eem
Time: 20 May 2014, 2:31:49.366 pm
UUID: 801ca845-7d9b-480f-afb9-be5cbc72d74f
Ancestors: VMMaker.oscog-eem.724
restrict the NoRegParms attribute to static functions in the
interpreter and/or cogit files.
=============== Diff against VMMaker.oscog-eem.724 ===============
Item was changed:
----- Method: CCodeGenerator>>emitCFunctionPrototypes:on: (in category 'C code generator') -----
emitCFunctionPrototypes: methodList on: aStream
"Store prototype declarations for all non-inlined methods on the given stream."
| exporting |
aStream cr; nextPutAll: '/*** Function Prototypes ***/'; cr.
"Hmm, this should be in the sqConfig.h files. For now put it here..."
+ (NoRegParmsInAssertVMs and: [vmClass notNil]) ifTrue:
- NoRegParmsInAssertVMs ifTrue:
[aStream cr; cr; nextPutAll: '#if defined(PRODUCTION) && !!PRODUCTION && defined(__GNUC__) && !!defined(NoDbgRegParms)\# define NoDbgRegParms __attribute__ ((regparm (0)))\#endif' withCRs.
aStream cr; cr; nextPutAll: '#if !!defined(NoDbgRegParms)\# define NoDbgRegParms /*empty*/\#endif' withCRs.
aStream cr; cr].
exporting := false.
(methodList select: [:m| m isRealMethod]) do:
[:m |
self emitExportPragma ifTrue:
[m export
ifTrue: [exporting ifFalse:
[aStream nextPutAll: '#pragma export on'; cr.
exporting := true]]
ifFalse: [exporting ifTrue:
[aStream nextPutAll: '#pragma export off'; cr.
exporting := false]]].
m emitCFunctionPrototype: aStream generator: self.
+ (NoRegParmsInAssertVMs and: [vmClass notNil and: [m export not and: [m isStatic and: [m args notEmpty]]]]) ifTrue:
- (NoRegParmsInAssertVMs and: [m export not and: [m isStatic and: [m args notEmpty]]]) ifTrue:
[aStream nextPutAll: ' NoDbgRegParms'].
aStream nextPut: $; ; cr].
exporting ifTrue: [aStream nextPutAll: '#pragma export off'; cr].
aStream cr!
1
0
20 May '14
Revision: 2925
Author: eliot
Date: 2014-05-20 14:28:29 -0700 (Tue, 20 May 2014)
Log Message:
-----------
CogVM source as per VMMaker.oscog-eem.724
Slang/general:
VMBIGENDIAN must *not* be defined during generation. It should be taken from
platforms/??/vm/sqConfig.h. This should help fix Doug's issues on PPC.
Spur:
Don't mark on allInstances/allObjects. Use a class var to
mark the choice so we can turn it back on if desired.
Modified Paths:
--------------
branches/Cog/nscogsrc/vm/cogit.c
branches/Cog/nscogsrc/vm/cogit.h
branches/Cog/nscogsrc/vm/cogmethod.h
branches/Cog/nscogsrc/vm/cointerp.c
branches/Cog/nscogsrc/vm/cointerp.h
branches/Cog/nscogsrc/vm/gcc3x-cointerp.c
branches/Cog/nscogsrc/vm/interp.h
branches/Cog/nscogsrc/vm/vmCallback.h
branches/Cog/nsspursrc/vm/cogit.c
branches/Cog/nsspursrc/vm/cogit.h
branches/Cog/nsspursrc/vm/cogmethod.h
branches/Cog/nsspursrc/vm/cointerp.c
branches/Cog/nsspursrc/vm/cointerp.h
branches/Cog/nsspursrc/vm/gcc3x-cointerp.c
branches/Cog/nsspursrc/vm/interp.h
branches/Cog/nsspursrc/vm/vmCallback.h
branches/Cog/nsspurstacksrc/vm/gcc3x-interp.c
branches/Cog/nsspurstacksrc/vm/interp.c
branches/Cog/nsspurstacksrc/vm/interp.h
branches/Cog/nsspurstacksrc/vm/vmCallback.h
branches/Cog/sistasrc/vm/cogit.c
branches/Cog/sistasrc/vm/cogit.h
branches/Cog/sistasrc/vm/cogmethod.h
branches/Cog/sistasrc/vm/cointerp.c
branches/Cog/sistasrc/vm/cointerp.h
branches/Cog/sistasrc/vm/gcc3x-cointerp.c
branches/Cog/sistasrc/vm/interp.h
branches/Cog/sistasrc/vm/vmCallback.h
branches/Cog/spursistasrc/vm/cogit.c
branches/Cog/spursistasrc/vm/cogit.h
branches/Cog/spursistasrc/vm/cogmethod.h
branches/Cog/spursistasrc/vm/cointerp.c
branches/Cog/spursistasrc/vm/cointerp.h
branches/Cog/spursistasrc/vm/gcc3x-cointerp.c
branches/Cog/spursistasrc/vm/interp.h
branches/Cog/spursistasrc/vm/vmCallback.h
branches/Cog/spursrc/vm/cogit.c
branches/Cog/spursrc/vm/cogit.h
branches/Cog/spursrc/vm/cogmethod.h
branches/Cog/spursrc/vm/cointerp.c
branches/Cog/spursrc/vm/cointerp.h
branches/Cog/spursrc/vm/gcc3x-cointerp.c
branches/Cog/spursrc/vm/interp.h
branches/Cog/spursrc/vm/vmCallback.h
branches/Cog/spurstacksrc/vm/gcc3x-interp.c
branches/Cog/spurstacksrc/vm/interp.c
branches/Cog/spurstacksrc/vm/interp.h
branches/Cog/spurstacksrc/vm/vmCallback.h
branches/Cog/src/vm/cogit.c
branches/Cog/src/vm/cogit.h
branches/Cog/src/vm/cogmethod.h
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/src/vm/interp.h
branches/Cog/src/vm/vmCallback.h
branches/Cog/stacksrc/vm/gcc3x-interp.c
branches/Cog/stacksrc/vm/interp.c
branches/Cog/stacksrc/vm/interp.h
branches/Cog/stacksrc/vm/vmCallback.h
Property Changed:
----------------
branches/Cog/platforms/Cross/vm/sqSCCSVersion.h
Modified: branches/Cog/nscogsrc/vm/cogit.c
===================================================================
--- branches/Cog/nscogsrc/vm/cogit.c 2014-05-20 20:05:16 UTC (rev 2924)
+++ branches/Cog/nscogsrc/vm/cogit.c 2014-05-20 21:28:29 UTC (rev 2925)
@@ -1,9 +1,9 @@
/* Automatically generated by
- CCodeGenerator VMMaker.oscog-eem.712 uuid: 2f12e8dd-7da6-4358-9eb4-ba4782b7206d
+ CCodeGenerator VMMaker.oscog-eem.724 uuid: 30e942d9-0d06-42d3-8f9a-893dbdee37c2
from
- StackToRegisterMappingCogit VMMaker.oscog-eem.712 uuid: 2f12e8dd-7da6-4358-9eb4-ba4782b7206d
+ StackToRegisterMappingCogit VMMaker.oscog-eem.724 uuid: 30e942d9-0d06-42d3-8f9a-893dbdee37c2
*/
-static char __buildInfo[] = "StackToRegisterMappingCogit VMMaker.oscog-eem.712 uuid: 2f12e8dd-7da6-4358-9eb4-ba4782b7206d " __DATE__ ;
+static char __buildInfo[] = "StackToRegisterMappingCogit VMMaker.oscog-eem.724 uuid: 30e942d9-0d06-42d3-8f9a-893dbdee37c2 " __DATE__ ;
char *__cogitBuildInfo = __buildInfo;
@@ -355,201 +355,211 @@
/*** Function Prototypes ***/
-static AbstractInstruction * gAndCqR(sqInt quickConstant, sqInt reg);
-static AbstractInstruction * gArithmeticShiftRightRR(sqInt reg1, sqInt reg2);
+
+
+#if defined(PRODUCTION) && !PRODUCTION && defined(__GNUC__) && !defined(NoDbgRegParms)
+# define NoDbgRegParms __attribute__ ((regparm (0)))
+#endif
+
+#if !defined(NoDbgRegParms)
+# define NoDbgRegParms /*empty*/
+#endif
+
+static AbstractInstruction * gAndCqR(sqInt quickConstant, sqInt reg) NoDbgRegParms;
+static AbstractInstruction * gArithmeticShiftRightRR(sqInt reg1, sqInt reg2) NoDbgRegParms;
sqInt abortOffset(void);
-static sqInt abstractInstructionfollows(AbstractInstruction *theAbstractInstruction, AbstractInstruction *anAbstractInstruction);
-static sqInt abstractRegisterForConcreteRegister(AbstractInstruction * self_in_abstractRegisterForConcreteRegister, sqInt reg);
-static BlockStart * addBlockStartAtnumArgsnumCopiedspan(sqInt bytecodepc, sqInt numArgs, sqInt numCopied, sqInt span);
+static sqInt abstractInstructionfollows(AbstractInstruction *theAbstractInstruction, AbstractInstruction *anAbstractInstruction) NoDbgRegParms;
+static sqInt abstractRegisterForConcreteRegister(AbstractInstruction * self_in_abstractRegisterForConcreteRegister, sqInt reg) NoDbgRegParms;
+static BlockStart * addBlockStartAtnumArgsnumCopiedspan(sqInt bytecodepc, sqInt numArgs, sqInt numCopied, sqInt span) NoDbgRegParms;
static void addCleanBlockStarts(void);
void addCogMethodsToHeapMap(void);
-static AbstractInstruction * addDependent(AbstractInstruction * self_in_addDependent, AbstractInstruction *anInstruction);
-static sqInt addressIsInFixups(AbstractInstruction *address);
-static sqInt addressIsInInstructions(AbstractInstruction *address);
-static sqInt addressOfEndOfCaseinCPIC(sqInt n, CogMethod *cPIC);
-static void addToOpenPICList(CogMethod *anOpenPIC);
-static void addToUnpairedMethodList(CogMethod *aCogMethod);
-static void addToYoungReferrers(CogMethod *cogMethod);
-static sqInt alignUptoRoutineBoundary(sqInt anAddress);
+static AbstractInstruction * addDependent(AbstractInstruction * self_in_addDependent, AbstractInstruction *anInstruction) NoDbgRegParms;
+static sqInt addressIsInFixups(AbstractInstruction *address) NoDbgRegParms;
+static sqInt addressIsInInstructions(AbstractInstruction *address) NoDbgRegParms;
+static sqInt addressOfEndOfCaseinCPIC(sqInt n, CogMethod *cPIC) NoDbgRegParms;
+static void addToOpenPICList(CogMethod *anOpenPIC) NoDbgRegParms;
+static void addToUnpairedMethodList(CogMethod *aCogMethod) NoDbgRegParms;
+static void addToYoungReferrers(CogMethod *cogMethod) NoDbgRegParms;
+static sqInt alignUptoRoutineBoundary(sqInt anAddress) NoDbgRegParms;
static sqInt allMachineCodeObjectReferencesValid(void);
static sqInt allMethodsHaveCorrectHeader(void);
-static sqInt allocate(sqInt numBytes);
+static sqInt allocate(sqInt numBytes) NoDbgRegParms;
static sqInt allYoungObjectsAgeInFullGC(void);
-static AbstractInstruction * annotateAbsolutePCRef(AbstractInstruction *abstractInstruction);
-static void annotateBytecodeIfAnnotated(CogSimStackEntry *aSimStackEntry);
-static AbstractInstruction * annotateBytecode(AbstractInstruction *abstractInstruction);
-static AbstractInstruction * annotateobjRef(AbstractInstruction *abstractInstruction, sqInt anOop);
-static AbstractInstruction * annotatewith(AbstractInstruction *abstractInstruction, sqInt annotationFlag);
-static sqInt anyReferencesToRegisterinTopNItems(sqInt reg, sqInt n);
-static void assertSaneJumpTarget(AbstractInstruction *jumpTarget);
+static AbstractInstruction * annotateAbsolutePCRef(AbstractInstruction *abstractInstruction) NoDbgRegParms;
+static void annotateBytecodeIfAnnotated(CogSimStackEntry *aSimStackEntry) NoDbgRegParms;
+static AbstractInstruction * annotateBytecode(AbstractInstruction *abstractInstruction) NoDbgRegParms;
+static AbstractInstruction * annotateobjRef(AbstractInstruction *abstractInstruction, sqInt anOop) NoDbgRegParms;
+static AbstractInstruction * annotatewith(AbstractInstruction *abstractInstruction, sqInt annotationFlag) NoDbgRegParms;
+static sqInt anyReferencesToRegisterinTopNItems(sqInt reg, sqInt n) NoDbgRegParms;
+static void assertSaneJumpTarget(AbstractInstruction *jumpTarget) NoDbgRegParms;
static sqInt availableRegisterOrNil(void);
-static sqInt blockCreationBytecodeSizeForHeader(sqInt methodHeader);
-static sqInt blockDispatchTargetsForperformarg(CogMethod *cogMethod, usqInt (*binaryFunction)(sqInt mcpc, sqInt arg), sqInt arg);
+static sqInt blockCreationBytecodeSizeForHeader(sqInt methodHeader) NoDbgRegParms;
+static sqInt blockDispatchTargetsForperformarg(CogMethod *cogMethod, usqInt (*binaryFunction)(sqInt mcpc, sqInt arg), sqInt arg) NoDbgRegParms;
sqInt bytecodePCForstartBcpcin(sqInt mcpc, sqInt startbcpc, CogBlockMethod *cogMethod);
-static AbstractInstruction * CallNewspeakSend(sqInt callTarget);
-static AbstractInstruction * CallRT(sqInt callTarget);
-static AbstractInstruction * CallRTregistersToBeSavedMask(sqInt callTarget, sqInt registersToBeSaved);
-static AbstractInstruction * CallSend(sqInt callTarget);
-static AbstractInstruction * gCmpCqR(sqInt quickConstant, sqInt reg);
-static AbstractInstruction * gCmpCwR(sqInt wordConstant, sqInt reg);
-static sqInt cacheTagIsMarked(sqInt cacheTag);
-static sqInt callerSavedRegisterMask(AbstractInstruction * self_in_callerSavedRegisterMask);
-static sqInt callInstructionByteSize(AbstractInstruction * self_in_callInstructionByteSize);
+static AbstractInstruction * CallNewspeakSend(sqInt callTarget) NoDbgRegParms;
+static AbstractInstruction * CallRT(sqInt callTarget) NoDbgRegParms;
+static AbstractInstruction * CallRTregistersToBeSavedMask(sqInt callTarget, sqInt registersToBeSaved) NoDbgRegParms;
+static AbstractInstruction * CallSend(sqInt callTarget) NoDbgRegParms;
+static AbstractInstruction * gCmpCqR(sqInt quickConstant, sqInt reg) NoDbgRegParms;
+static AbstractInstruction * gCmpCwR(sqInt wordConstant, sqInt reg) NoDbgRegParms;
+static sqInt cacheTagIsMarked(sqInt cacheTag) NoDbgRegParms;
+static sqInt callerSavedRegisterMask(AbstractInstruction * self_in_callerSavedRegisterMask) NoDbgRegParms;
+static sqInt callInstructionByteSize(AbstractInstruction * self_in_callInstructionByteSize) NoDbgRegParms;
static sqInt callPrimitiveBytecode(void);
-static sqInt callsAreRelative(AbstractInstruction * self_in_callsAreRelative);
-static sqInt callTargetFromReturnAddress(AbstractInstruction * self_in_callTargetFromReturnAddress, sqInt callSiteReturnAddress);
-static sqInt canDivQuoRem(AbstractInstruction * self_in_canDivQuoRem);
+static sqInt callsAreRelative(AbstractInstruction * self_in_callsAreRelative) NoDbgRegParms;
+static sqInt callTargetFromReturnAddress(AbstractInstruction * self_in_callTargetFromReturnAddress, sqInt callSiteReturnAddress) NoDbgRegParms;
+static sqInt canDivQuoRem(AbstractInstruction * self_in_canDivQuoRem) NoDbgRegParms;
sqInt canLinkToYoungClasses(void);
-static sqInt canMulRR(AbstractInstruction * self_in_canMulRR);
-static sqInt ceClosureCopyDescriptor(sqInt descriptor);
+static sqInt canMulRR(AbstractInstruction * self_in_canMulRR) NoDbgRegParms;
+static sqInt ceClosureCopyDescriptor(sqInt descriptor) NoDbgRegParms;
sqInt ceCPICMissreceiver(CogMethod *cPIC, sqInt receiver);
-static sqInt ceImplicitReceiverForreceiverclass(sqInt selector, sqInt receiver, sqInt rcvrClass);
+static sqInt ceImplicitReceiverForreceiverclass(sqInt selector, sqInt receiver, sqInt rcvrClass) NoDbgRegParms;
sqInt ceSICMiss(sqInt receiver);
void checkAssertsEnabledInCogit(void);
-static sqInt checkIfValidOopRefAndTargetpccogMethod(sqInt annotation, char *mcpc, sqInt cogMethod);
-static sqInt checkIfValidOopRefpccogMethod(sqInt annotation, char *mcpc, sqInt cogMethod);
+static sqInt checkIfValidOopRefAndTargetpccogMethod(sqInt annotation, char *mcpc, sqInt cogMethod) NoDbgRegParms;
+static sqInt checkIfValidOopRefpccogMethod(sqInt annotation, char *mcpc, sqInt cogMethod) NoDbgRegParms;
sqInt checkIntegrityOfObjectReferencesInCode(sqInt fullGCFlag);
-static sqInt checkMaybeObjRefAt(sqInt mcpc);
+static sqInt checkMaybeObjRefAt(sqInt mcpc) NoDbgRegParms;
static void checkPrimitiveTableEnablers(void);
-static sqInt checkValidInlineCacheTag(sqInt cacheTag);
-static sqInt checkValidObjectReferencesInClosedPIC(CogMethod *cPIC);
-static sqInt checkValidObjectReference(sqInt anOop);
-static sqInt checkValidOopReference(sqInt anOop);
+static sqInt checkValidInlineCacheTag(sqInt cacheTag) NoDbgRegParms;
+static sqInt checkValidObjectReferencesInClosedPIC(CogMethod *cPIC) NoDbgRegParms;
+static sqInt checkValidObjectReference(sqInt anOop) NoDbgRegParms;
+static sqInt checkValidOopReference(sqInt anOop) NoDbgRegParms;
static void clearCogCompiledCode(void);
-static sqInt closedPICRefersToUnmarkedObject(CogMethod *cPIC);
-static CogMethod * cmHomeMethod(CogBlockMethod * self_in_cmHomeMethod);
+static sqInt closedPICRefersToUnmarkedObject(CogMethod *cPIC) NoDbgRegParms;
+static CogMethod * cmHomeMethod(CogBlockMethod * self_in_cmHomeMethod) NoDbgRegParms;
char * codeEntryFor(char *address);
char * codeEntryNameFor(char *address);
sqInt cogCodeBase(void);
sqInt cogCodeConstituents(void);
-static sqInt cogExtendPICCaseNMethodtagisMNUCase(CogMethod *cPIC, sqInt caseNMethod, sqInt caseNTag, sqInt isMNUCase);
+static sqInt cogExtendPICCaseNMethodtagisMNUCase(CogMethod *cPIC, sqInt caseNMethod, sqInt caseNTag, sqInt isMNUCase) NoDbgRegParms;
void cogitPostGCAction(sqInt gcMode);
sqInt cogMethodDoesntLookKosher(CogMethod *cogMethod);
CogMethod * cogMNUPICSelectormethodOperandnumArgs(sqInt selector, sqInt methodOperand, sqInt numArgs);
-static CogMethod * cogOpenPICSelectornumArgs(sqInt selector, sqInt numArgs);
-static CogMethod * cogPICSelectornumArgsCase0MethodCase1MethodtagisMNUCase(sqInt selector, sqInt numArgs, CogMethod *case0CogMethod, sqInt case1MethodOrNil, sqInt case1Tag, sqInt isMNUCase);
+static CogMethod * cogOpenPICSelectornumArgs(sqInt selector, sqInt numArgs) NoDbgRegParms;
+static CogMethod * cogPICSelectornumArgsCase0MethodCase1MethodtagisMNUCase(sqInt selector, sqInt numArgs, CogMethod *case0CogMethod, sqInt case1MethodOrNil, sqInt case1Tag, sqInt isMNUCase) NoDbgRegParms;
CogMethod * cogselector(sqInt aMethodObj, sqInt aSelectorOop);
void compactCogCompiledCode(void);
static void compactCompiledCode(void);
static void compileAbort(void);
-static sqInt compileAbstractInstructionsFromthrough(sqInt start, sqInt end);
+static sqInt compileAbstractInstructionsFromthrough(sqInt start, sqInt end) NoDbgRegParms;
static sqInt compileBlockBodies(void);
static sqInt compileBlockDispatch(void);
-static sqInt compileBlockDispatchFromto(sqInt lowBlockStartIndex, sqInt highBlockStartIndex);
-static void compileBlockEntry(BlockStart *blockStart);
-static void compileBlockFrameBuild(BlockStart *blockStart);
-static void compileBlockFramelessEntry(BlockStart *blockStart);
+static sqInt compileBlockDispatchFromto(sqInt lowBlockStartIndex, sqInt highBlockStartIndex) NoDbgRegParms;
+static void compileBlockEntry(BlockStart *blockStart) NoDbgRegParms;
+static void compileBlockFrameBuild(BlockStart *blockStart) NoDbgRegParms;
+static void compileBlockFramelessEntry(BlockStart *blockStart) NoDbgRegParms;
static sqInt compileClosedPICPrototype(void);
-static CogMethod * compileCogMethod(sqInt selector);
+static CogMethod * compileCogMethod(sqInt selector) NoDbgRegParms;
static AbstractInstruction * compileCPICEntry(void);
-static sqInt compileCPICCase0Case1MethodtagisMNUCasenumArgs(CogMethod *cPIC, CogMethod *case0CogMethod, sqInt case1Method, sqInt case1Tag, sqInt isMNUCase, sqInt numArgs);
+static sqInt compileCPICCase0Case1MethodtagisMNUCasenumArgs(CogMethod *cPIC, CogMethod *case0CogMethod, sqInt case1Method, sqInt case1Tag, sqInt isMNUCase, sqInt numArgs) NoDbgRegParms;
static sqInt compileEntireMethod(void);
static void compileEntry(void);
static sqInt compileFallbackToInterpreterPrimitive(void);
static sqInt compileFrameBuild(void);
static void compileGetErrorCode(void);
-static sqInt compileInterpreterPrimitive(void (*primitiveRoutine)(void));
+static sqInt compileInterpreterPrimitive(void (*primitiveRoutine)(void)) NoDbgRegParms;
static sqInt compileMethodBody(void);
-static sqInt compileMNUCPICmethodOperandnumArgs(CogMethod *cPIC, sqInt methodOperand, sqInt numArgs);
-static void compileOpenPICnumArgs(sqInt selector, sqInt numArgs);
-static sqInt compilePICProlog(sqInt numArgs);
+static sqInt compileMNUCPICmethodOperandnumArgs(CogMethod *cPIC, sqInt methodOperand, sqInt numArgs) NoDbgRegParms;
+static void compileOpenPICnumArgs(sqInt selector, sqInt numArgs) NoDbgRegParms;
+static sqInt compilePICProlog(sqInt numArgs) NoDbgRegParms;
static sqInt compilePrimitive(void);
-static void compileTrampolineForcallJumpBarnumArgsargargargargsaveRegsresultReg(void *aRoutine, sqInt callJumpBar, sqInt numArgs, sqInt regOrConst0, sqInt regOrConst1, sqInt regOrConst2, sqInt regOrConst3, sqInt saveRegs, sqInt resultRegOrNil);
+static void compileTrampolineForcallJumpBarnumArgsargargargargsaveRegsresultReg(void *aRoutine, sqInt callJumpBar, sqInt numArgs, sqInt regOrConst0, sqInt regOrConst1, sqInt regOrConst2, sqInt regOrConst3, sqInt saveRegs, sqInt resultRegOrNil) NoDbgRegParms;
static void computeEntryOffsets(void);
-static sqInt computeJumpTargetOffsetPlus(AbstractInstruction * self_in_computeJumpTargetOffsetPlus, sqInt anPCOffset);
-static sqInt computeMaximumSize(AbstractInstruction * self_in_computeMaximumSize);
+static sqInt computeJumpTargetOffsetPlus(AbstractInstruction * self_in_computeJumpTargetOffsetPlus, sqInt anPCOffset) NoDbgRegParms;
+static sqInt computeMaximumSize(AbstractInstruction * self_in_computeMaximumSize) NoDbgRegParms;
static void computeMaximumSizes(void);
-static sqInt computeShiftRRSize(AbstractInstruction * self_in_computeShiftRRSize);
-static sqInt concreteDPFPRegister(AbstractInstruction * self_in_concreteDPFPRegister, sqInt registerIndex);
-static sqInt concreteRegister(AbstractInstruction * self_in_concreteRegister, sqInt registerIndex);
-static sqInt concretizeAddCqR(AbstractInstruction * self_in_concretizeAddCqR);
-static sqInt concretizeAddCwR(AbstractInstruction * self_in_concretizeAddCwR);
-static sqInt concretizeAddRR(AbstractInstruction * self_in_concretizeAddRR);
-static AbstractInstruction * concretizeAlignmentNops(AbstractInstruction * self_in_concretizeAlignmentNops);
-static sqInt concretizeAndCqR(AbstractInstruction * self_in_concretizeAndCqR);
-static sqInt concretizeAndCwR(AbstractInstruction * self_in_concretizeAndCwR);
-static sqInt concretizeAndRR(AbstractInstruction * self_in_concretizeAndRR);
-static sqInt concretizeArithmeticShiftRightCqR(AbstractInstruction * self_in_concretizeArithmeticShiftRightCqR);
-static sqInt concretizeArithmeticShiftRightRR(AbstractInstruction * self_in_concretizeArithmeticShiftRightRR);
-static sqInt concretizeAt(AbstractInstruction * self_in_concretizeAt, sqInt actualAddress);
-static sqInt concretizeCall(AbstractInstruction * self_in_concretizeCall);
-static sqInt concretizeCDQ(AbstractInstruction * self_in_concretizeCDQ);
-static sqInt concretizeCMPXCHGAwR(AbstractInstruction * self_in_concretizeCMPXCHGAwR);
-static sqInt concretizeCMPXCHGMwrR(AbstractInstruction * self_in_concretizeCMPXCHGMwrR);
-static sqInt concretizeCmpCqR(AbstractInstruction * self_in_concretizeCmpCqR);
-static sqInt concretizeCmpCwR(AbstractInstruction * self_in_concretizeCmpCwR);
-static sqInt concretizeCmpRdRd(AbstractInstruction * self_in_concretizeCmpRdRd);
-static sqInt concretizeCmpRR(AbstractInstruction * self_in_concretizeCmpRR);
-static sqInt concretizeConditionalJumpLong(AbstractInstruction * self_in_concretizeConditionalJumpLong, sqInt conditionCode);
-static sqInt concretizeConditionalJump(AbstractInstruction * self_in_concretizeConditionalJump, sqInt conditionCode);
-static sqInt concretizeConvertRRd(AbstractInstruction * self_in_concretizeConvertRRd);
-static sqInt concretizeCPUID(AbstractInstruction * self_in_concretizeCPUID);
-static sqInt concretizeFENCE(AbstractInstruction * self_in_concretizeFENCE, sqInt regOpcode);
-static sqInt concretizeFill16(AbstractInstruction * self_in_concretizeFill16);
-static sqInt concretizeFill32(AbstractInstruction * self_in_concretizeFill32);
-static sqInt concretizeFillFromWord(AbstractInstruction * self_in_concretizeFillFromWord);
-static sqInt concretizeIDIVR(AbstractInstruction * self_in_concretizeIDIVR);
-static sqInt concretizeJump(AbstractInstruction * self_in_concretizeJump);
-static sqInt concretizeJumpLong(AbstractInstruction * self_in_concretizeJumpLong);
-static sqInt concretizeJumpR(AbstractInstruction * self_in_concretizeJumpR);
-static sqInt concretizeLabel(AbstractInstruction * self_in_concretizeLabel);
-static sqInt concretizeLOCK(AbstractInstruction * self_in_concretizeLOCK);
-static sqInt concretizeLoadEffectiveAddressMwrR(AbstractInstruction * self_in_concretizeLoadEffectiveAddressMwrR);
-static sqInt concretizeLogicalShiftLeftCqR(AbstractInstruction * self_in_concretizeLogicalShiftLeftCqR);
-static sqInt concretizeLogicalShiftLeftRR(AbstractInstruction * self_in_concretizeLogicalShiftLeftRR);
-static sqInt concretizeLogicalShiftRightCqR(AbstractInstruction * self_in_concretizeLogicalShiftRightCqR);
-static sqInt concretizeMoveAwR(AbstractInstruction * self_in_concretizeMoveAwR);
-static sqInt concretizeMoveCqR(AbstractInstruction * self_in_concretizeMoveCqR);
-static sqInt concretizeMoveCwR(AbstractInstruction * self_in_concretizeMoveCwR);
-static sqInt concretizeMoveM16rR(AbstractInstruction * self_in_concretizeMoveM16rR);
-static sqInt concretizeMoveM64rRd(AbstractInstruction * self_in_concretizeMoveM64rRd);
-static sqInt concretizeMoveMbrR(AbstractInstruction * self_in_concretizeMoveMbrR);
-static sqInt concretizeMoveMwrR(AbstractInstruction * self_in_concretizeMoveMwrR);
-static sqInt concretizeMoveRAw(AbstractInstruction * self_in_concretizeMoveRAw);
-static sqInt concretizeMoveRdM64r(AbstractInstruction * self_in_concretizeMoveRdM64r);
-static sqInt concretizeMoveRMbr(AbstractInstruction * self_in_concretizeMoveRMbr);
-static sqInt concretizeMoveRMwr(AbstractInstruction * self_in_concretizeMoveRMwr);
-static sqInt concretizeMoveRR(AbstractInstruction * self_in_concretizeMoveRR);
-static sqInt concretizeMoveRXbrR(AbstractInstruction * self_in_concretizeMoveRXbrR);
-static sqInt concretizeMoveRXwrR(AbstractInstruction * self_in_concretizeMoveRXwrR);
-static sqInt concretizeMoveXbrRR(AbstractInstruction * self_in_concretizeMoveXbrRR);
-static sqInt concretizeMoveXwrRR(AbstractInstruction * self_in_concretizeMoveXwrRR);
-static sqInt concretizeMulRR(AbstractInstruction * self_in_concretizeMulRR);
-static sqInt concretizeNegateR(AbstractInstruction * self_in_concretizeNegateR);
-static sqInt concretizeNop(AbstractInstruction * self_in_concretizeNop);
-static sqInt concretizeOrCqR(AbstractInstruction * self_in_concretizeOrCqR);
-static sqInt concretizeOrCwR(AbstractInstruction * self_in_concretizeOrCwR);
-static sqInt concretizeOrRR(AbstractInstruction * self_in_concretizeOrRR);
-static sqInt concretizePopR(AbstractInstruction * self_in_concretizePopR);
-static sqInt concretizePrefetchAw(AbstractInstruction * self_in_concretizePrefetchAw);
-static sqInt concretizePushCw(AbstractInstruction * self_in_concretizePushCw);
-static sqInt concretizePushR(AbstractInstruction * self_in_concretizePushR);
-static sqInt concretizeRetN(AbstractInstruction * self_in_concretizeRetN);
-static sqInt concretizeSEE2OpRdRd(AbstractInstruction * self_in_concretizeSEE2OpRdRd, sqInt opCode);
-static sqInt concretizeSqrtRd(AbstractInstruction * self_in_concretizeSqrtRd);
-static sqInt concretizeSubCqR(AbstractInstruction * self_in_concretizeSubCqR);
-static sqInt concretizeSubCwR(AbstractInstruction * self_in_concretizeSubCwR);
-static sqInt concretizeSubRR(AbstractInstruction * self_in_concretizeSubRR);
-static sqInt concretizeXCHGAwR(AbstractInstruction * self_in_concretizeXCHGAwR);
-static sqInt concretizeXCHGMwrR(AbstractInstruction * self_in_concretizeXCHGMwrR);
-static sqInt concretizeXCHGRR(AbstractInstruction * self_in_concretizeXCHGRR);
-static sqInt concretizeXorCwR(AbstractInstruction * self_in_concretizeXorCwR);
-static sqInt concretizeXorRR(AbstractInstruction * self_in_concretizeXorRR);
-static sqInt couldBeObject(sqInt oop);
-static sqInt counterTargetFromFollowingAddress(AbstractInstruction * self_in_counterTargetFromFollowingAddress, sqInt nextInstructionAddress);
-static sqInt cPICHasFreedTargets(CogMethod *cPIC);
-static sqInt cPICMissTrampolineFor(sqInt numArgs);
-static sqInt cPICHasTarget(CogMethod *cPIC, CogMethod *targetMethod);
-static sqInt cResultRegister(AbstractInstruction * self_in_cResultRegister);
-static AbstractInstruction * gDivRRQuoRem(sqInt rDivisor, sqInt rDividend, sqInt rQuotient, sqInt rRemainder);
-static void dispatchConcretize(AbstractInstruction * self_in_dispatchConcretize);
+static sqInt computeShiftRRSize(AbstractInstruction * self_in_computeShiftRRSize) NoDbgRegParms;
+static sqInt concreteDPFPRegister(AbstractInstruction * self_in_concreteDPFPRegister, sqInt registerIndex) NoDbgRegParms;
+static sqInt concreteRegister(AbstractInstruction * self_in_concreteRegister, sqInt registerIndex) NoDbgRegParms;
+static sqInt concretizeAddCqR(AbstractInstruction * self_in_concretizeAddCqR) NoDbgRegParms;
+static sqInt concretizeAddCwR(AbstractInstruction * self_in_concretizeAddCwR) NoDbgRegParms;
+static sqInt concretizeAddRR(AbstractInstruction * self_in_concretizeAddRR) NoDbgRegParms;
+static AbstractInstruction * concretizeAlignmentNops(AbstractInstruction * self_in_concretizeAlignmentNops) NoDbgRegParms;
+static sqInt concretizeAndCqR(AbstractInstruction * self_in_concretizeAndCqR) NoDbgRegParms;
+static sqInt concretizeAndCwR(AbstractInstruction * self_in_concretizeAndCwR) NoDbgRegParms;
+static sqInt concretizeAndRR(AbstractInstruction * self_in_concretizeAndRR) NoDbgRegParms;
+static sqInt concretizeArithmeticShiftRightCqR(AbstractInstruction * self_in_concretizeArithmeticShiftRightCqR) NoDbgRegParms;
+static sqInt concretizeArithmeticShiftRightRR(AbstractInstruction * self_in_concretizeArithmeticShiftRightRR) NoDbgRegParms;
+static sqInt concretizeAt(AbstractInstruction * self_in_concretizeAt, sqInt actualAddress) NoDbgRegParms;
+static sqInt concretizeCall(AbstractInstruction * self_in_concretizeCall) NoDbgRegParms;
+static sqInt concretizeCDQ(AbstractInstruction * self_in_concretizeCDQ) NoDbgRegParms;
+static sqInt concretizeCMPXCHGAwR(AbstractInstruction * self_in_concretizeCMPXCHGAwR) NoDbgRegParms;
+static sqInt concretizeCMPXCHGMwrR(AbstractInstruction * self_in_concretizeCMPXCHGMwrR) NoDbgRegParms;
+static sqInt concretizeCmpCqR(AbstractInstruction * self_in_concretizeCmpCqR) NoDbgRegParms;
+static sqInt concretizeCmpCwR(AbstractInstruction * self_in_concretizeCmpCwR) NoDbgRegParms;
+static sqInt concretizeCmpRdRd(AbstractInstruction * self_in_concretizeCmpRdRd) NoDbgRegParms;
+static sqInt concretizeCmpRR(AbstractInstruction * self_in_concretizeCmpRR) NoDbgRegParms;
+static sqInt concretizeConditionalJumpLong(AbstractInstruction * self_in_concretizeConditionalJumpLong, sqInt conditionCode) NoDbgRegParms;
+static sqInt concretizeConditionalJump(AbstractInstruction * self_in_concretizeConditionalJump, sqInt conditionCode) NoDbgRegParms;
+static sqInt concretizeConvertRRd(AbstractInstruction * self_in_concretizeConvertRRd) NoDbgRegParms;
+static sqInt concretizeCPUID(AbstractInstruction * self_in_concretizeCPUID) NoDbgRegParms;
+static sqInt concretizeFENCE(AbstractInstruction * self_in_concretizeFENCE, sqInt regOpcode) NoDbgRegParms;
+static sqInt concretizeFill16(AbstractInstruction * self_in_concretizeFill16) NoDbgRegParms;
+static sqInt concretizeFill32(AbstractInstruction * self_in_concretizeFill32) NoDbgRegParms;
+static sqInt concretizeFillFromWord(AbstractInstruction * self_in_concretizeFillFromWord) NoDbgRegParms;
+static sqInt concretizeIDIVR(AbstractInstruction * self_in_concretizeIDIVR) NoDbgRegParms;
+static sqInt concretizeJump(AbstractInstruction * self_in_concretizeJump) NoDbgRegParms;
+static sqInt concretizeJumpLong(AbstractInstruction * self_in_concretizeJumpLong) NoDbgRegParms;
+static sqInt concretizeJumpR(AbstractInstruction * self_in_concretizeJumpR) NoDbgRegParms;
+static sqInt concretizeLabel(AbstractInstruction * self_in_concretizeLabel) NoDbgRegParms;
+static sqInt concretizeLOCK(AbstractInstruction * self_in_concretizeLOCK) NoDbgRegParms;
+static sqInt concretizeLoadEffectiveAddressMwrR(AbstractInstruction * self_in_concretizeLoadEffectiveAddressMwrR) NoDbgRegParms;
+static sqInt concretizeLogicalShiftLeftCqR(AbstractInstruction * self_in_concretizeLogicalShiftLeftCqR) NoDbgRegParms;
+static sqInt concretizeLogicalShiftLeftRR(AbstractInstruction * self_in_concretizeLogicalShiftLeftRR) NoDbgRegParms;
+static sqInt concretizeLogicalShiftRightCqR(AbstractInstruction * self_in_concretizeLogicalShiftRightCqR) NoDbgRegParms;
+static sqInt concretizeMoveAwR(AbstractInstruction * self_in_concretizeMoveAwR) NoDbgRegParms;
+static sqInt concretizeMoveCqR(AbstractInstruction * self_in_concretizeMoveCqR) NoDbgRegParms;
+static sqInt concretizeMoveCwR(AbstractInstruction * self_in_concretizeMoveCwR) NoDbgRegParms;
+static sqInt concretizeMoveM16rR(AbstractInstruction * self_in_concretizeMoveM16rR) NoDbgRegParms;
+static sqInt concretizeMoveM64rRd(AbstractInstruction * self_in_concretizeMoveM64rRd) NoDbgRegParms;
+static sqInt concretizeMoveMbrR(AbstractInstruction * self_in_concretizeMoveMbrR) NoDbgRegParms;
+static sqInt concretizeMoveMwrR(AbstractInstruction * self_in_concretizeMoveMwrR) NoDbgRegParms;
+static sqInt concretizeMoveRAw(AbstractInstruction * self_in_concretizeMoveRAw) NoDbgRegParms;
+static sqInt concretizeMoveRdM64r(AbstractInstruction * self_in_concretizeMoveRdM64r) NoDbgRegParms;
+static sqInt concretizeMoveRMbr(AbstractInstruction * self_in_concretizeMoveRMbr) NoDbgRegParms;
+static sqInt concretizeMoveRMwr(AbstractInstruction * self_in_concretizeMoveRMwr) NoDbgRegParms;
+static sqInt concretizeMoveRR(AbstractInstruction * self_in_concretizeMoveRR) NoDbgRegParms;
+static sqInt concretizeMoveRXbrR(AbstractInstruction * self_in_concretizeMoveRXbrR) NoDbgRegParms;
+static sqInt concretizeMoveRXwrR(AbstractInstruction * self_in_concretizeMoveRXwrR) NoDbgRegParms;
+static sqInt concretizeMoveXbrRR(AbstractInstruction * self_in_concretizeMoveXbrRR) NoDbgRegParms;
+static sqInt concretizeMoveXwrRR(AbstractInstruction * self_in_concretizeMoveXwrRR) NoDbgRegParms;
+static sqInt concretizeMulRR(AbstractInstruction * self_in_concretizeMulRR) NoDbgRegParms;
+static sqInt concretizeNegateR(AbstractInstruction * self_in_concretizeNegateR) NoDbgRegParms;
+static sqInt concretizeNop(AbstractInstruction * self_in_concretizeNop) NoDbgRegParms;
+static sqInt concretizeOrCqR(AbstractInstruction * self_in_concretizeOrCqR) NoDbgRegParms;
+static sqInt concretizeOrCwR(AbstractInstruction * self_in_concretizeOrCwR) NoDbgRegParms;
+static sqInt concretizeOrRR(AbstractInstruction * self_in_concretizeOrRR) NoDbgRegParms;
+static sqInt concretizePopR(AbstractInstruction * self_in_concretizePopR) NoDbgRegParms;
+static sqInt concretizePrefetchAw(AbstractInstruction * self_in_concretizePrefetchAw) NoDbgRegParms;
+static sqInt concretizePushCw(AbstractInstruction * self_in_concretizePushCw) NoDbgRegParms;
+static sqInt concretizePushR(AbstractInstruction * self_in_concretizePushR) NoDbgRegParms;
+static sqInt concretizeRetN(AbstractInstruction * self_in_concretizeRetN) NoDbgRegParms;
+static sqInt concretizeSEE2OpRdRd(AbstractInstruction * self_in_concretizeSEE2OpRdRd, sqInt opCode) NoDbgRegParms;
+static sqInt concretizeSqrtRd(AbstractInstruction * self_in_concretizeSqrtRd) NoDbgRegParms;
+static sqInt concretizeSubCqR(AbstractInstruction * self_in_concretizeSubCqR) NoDbgRegParms;
+static sqInt concretizeSubCwR(AbstractInstruction * self_in_concretizeSubCwR) NoDbgRegParms;
+static sqInt concretizeSubRR(AbstractInstruction * self_in_concretizeSubRR) NoDbgRegParms;
+static sqInt concretizeXCHGAwR(AbstractInstruction * self_in_concretizeXCHGAwR) NoDbgRegParms;
+static sqInt concretizeXCHGMwrR(AbstractInstruction * self_in_concretizeXCHGMwrR) NoDbgRegParms;
+static sqInt concretizeXCHGRR(AbstractInstruction * self_in_concretizeXCHGRR) NoDbgRegParms;
+static sqInt concretizeXorCwR(AbstractInstruction * self_in_concretizeXorCwR) NoDbgRegParms;
+static sqInt concretizeXorRR(AbstractInstruction * self_in_concretizeXorRR) NoDbgRegParms;
+static sqInt couldBeObject(sqInt oop) NoDbgRegParms;
+static sqInt counterTargetFromFollowingAddress(AbstractInstruction * self_in_counterTargetFromFollowingAddress, sqInt nextInstructionAddress) NoDbgRegParms;
+static sqInt cPICHasFreedTargets(CogMethod *cPIC) NoDbgRegParms;
+static sqInt cPICMissTrampolineFor(sqInt numArgs) NoDbgRegParms;
+static sqInt cPICHasTarget(CogMethod *cPIC, CogMethod *targetMethod) NoDbgRegParms;
+static sqInt cResultRegister(AbstractInstruction * self_in_cResultRegister) NoDbgRegParms;
+static AbstractInstruction * gDivRRQuoRem(sqInt rDivisor, sqInt rDividend, sqInt rQuotient, sqInt rRemainder) NoDbgRegParms;
+static void dispatchConcretize(AbstractInstruction * self_in_dispatchConcretize) NoDbgRegParms;
static sqInt doubleExtendedDoAnythingBytecode(void);
static sqInt duplicateTopBytecode(void);
-static sqInt endPCOf(sqInt aMethod);
-static BytecodeFixup * ensureFixupAt(sqInt targetIndex);
-static BytecodeFixup * ensureNonMergeFixupAt(sqInt targetIndex);
+static sqInt endPCOf(sqInt aMethod) NoDbgRegParms;
+static BytecodeFixup * ensureFixupAt(sqInt targetIndex) NoDbgRegParms;
+static BytecodeFixup * ensureNonMergeFixupAt(sqInt targetIndex) NoDbgRegParms;
static void ensureReceiverResultRegContainsSelf(void);
-static CogSimStackEntry * ensureSpilledAtfrom(CogSimStackEntry * self_in_ensureSpilledAtfrom, sqInt baseOffset, sqInt baseRegister);
+static CogSimStackEntry * ensureSpilledAtfrom(CogSimStackEntry * self_in_ensureSpilledAtfrom, sqInt baseOffset, sqInt baseRegister) NoDbgRegParms;
void enterCogCodePopReceiver(void);
void enterCogCodePopReceiverAndClassRegs(void);
void enterCogCodePopReceiverArg0Regs(void);
@@ -559,38 +569,38 @@
static sqInt extendedPushBytecode(void);
static sqInt extendedStoreAndPopBytecode(void);
static sqInt extendedStoreBytecode(void);
-static sqInt fillInBlockHeadersAt(sqInt startAddress);
-static CogMethod * fillInCPICHeadersizenumArgsnumCaseshasMNUCaseselector(CogMethod *pic, sqInt size, sqInt numArgs, sqInt numCases, sqInt hasMNUCase, sqInt selector);
-static CogMethod * fillInMethodHeadersizeselector(CogMethod *method, sqInt size, sqInt selector);
-static CogMethod * fillInOPICHeadersizenumArgsselector(CogMethod *pic, sqInt size, sqInt numArgs, sqInt selector);
-static usqInt findBlockMethodWithEntrystartBcpc(sqInt blockEntryMcpc, sqInt startBcpc);
-static sqInt findMapLocationForMcpcinMethod(sqInt targetMcpc, CogMethod *cogMethod);
+static sqInt fillInBlockHeadersAt(sqInt startAddress) NoDbgRegParms;
+static CogMethod * fillInCPICHeadersizenumArgsnumCaseshasMNUCaseselector(CogMethod *pic, sqInt size, sqInt numArgs, sqInt numCases, sqInt hasMNUCase, sqInt selector) NoDbgRegParms;
+static CogMethod * fillInMethodHeadersizeselector(CogMethod *method, sqInt size, sqInt selector) NoDbgRegParms;
+static CogMethod * fillInOPICHeadersizenumArgsselector(CogMethod *pic, sqInt size, sqInt numArgs, sqInt selector) NoDbgRegParms;
+static usqInt findBlockMethodWithEntrystartBcpc(sqInt blockEntryMcpc, sqInt startBcpc) NoDbgRegParms;
+static sqInt findMapLocationForMcpcinMethod(sqInt targetMcpc, CogMethod *cogMethod) NoDbgRegParms;
CogBlockMethod * findMethodForStartBcpcinHomeMethod(sqInt startbcpc, CogMethod *cogMethod);
-static CogMethod * findPreviouslyCompiledVersionOfwith(sqInt aMethodObj, sqInt aSelectorOop);
-static sqInt findIsBackwardBranchMcpcBcpcMatchingMcpc(BytecodeDescriptor *descriptor, sqInt isBackwardBranch, char *mcpc, sqInt bcpc, void *targetMcpc);
-static sqInt frameOffsetOfTemporary(sqInt index);
-static void freeMethod(CogMethod *cogMethod);
+static CogMethod * findPreviouslyCompiledVersionOfwith(sqInt aMethodObj, sqInt aSelectorOop) NoDbgRegParms;
+static sqInt findIsBackwardBranchMcpcBcpcMatchingMcpc(BytecodeDescriptor *descriptor, sqInt isBackwardBranch, char *mcpc, sqInt bcpc, void *targetMcpc) NoDbgRegParms;
+static sqInt frameOffsetOfTemporary(sqInt index) NoDbgRegParms;
+static void freeMethod(CogMethod *cogMethod) NoDbgRegParms;
static void freeOlderMethodsForCompaction(void);
static void freePICsWithFreedTargets(void);
void freeUnmarkedMachineCode(void);
static sqInt genActiveContextTrampoline(void);
-static sqInt genAddSmallIntegerTagsTo(sqInt aRegister);
-static sqInt genAlignCStackSavingRegistersnumArgswordAlignment(AbstractInstruction * self_in_genAlignCStackSavingRegistersnumArgswordAlignment, sqInt saveRegs, sqInt numArgs, sqInt alignment);
-static AbstractInstruction * genAllocFloatValueintoscratchRegscratchReg(sqInt dpreg, sqInt resultReg, sqInt scratch1, sqInt scratch2);
+static sqInt genAddSmallIntegerTagsTo(sqInt aRegister) NoDbgRegParms;
+static sqInt genAlignCStackSavingRegistersnumArgswordAlignment(AbstractInstruction * self_in_genAlignCStackSavingRegistersnumArgswordAlignment, sqInt saveRegs, sqInt numArgs, sqInt alignment) NoDbgRegParms;
+static AbstractInstruction * genAllocFloatValueintoscratchRegscratchReg(sqInt dpreg, sqInt resultReg, sqInt scratch1, sqInt scratch2) NoDbgRegParms;
static sqInt genCheckForInterruptsTrampoline(void);
-static sqInt genConvertIntegerToSmallIntegerInReg(sqInt reg);
-static sqInt genConvertIntegerToSmallIntegerInScratchReg(sqInt scratchReg);
-static sqInt genConvertSmallIntegerToIntegerInReg(sqInt reg);
-static AbstractInstruction * genDivRRQuoRem(AbstractInstruction * self_in_genDivRRQuoRem, sqInt abstractRegDivisor, sqInt abstractRegDividend, sqInt abstractRegQuotient, sqInt abstractRegRemainder);
-static sqInt genDoubleArithmeticpreOpCheck(sqInt arithmeticOperator, AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg));
-static sqInt genDoubleComparisoninvert(AbstractInstruction *(*jumpOpcodeGenerator)(void *), sqInt invertComparison);
-static AbstractInstruction * genDoubleFailIfZeroArgRcvrarg(sqInt rcvrReg, sqInt argReg);
+static sqInt genConvertIntegerToSmallIntegerInReg(sqInt reg) NoDbgRegParms;
+static sqInt genConvertIntegerToSmallIntegerInScratchReg(sqInt scratchReg) NoDbgRegParms;
+static sqInt genConvertSmallIntegerToIntegerInReg(sqInt reg) NoDbgRegParms;
+static AbstractInstruction * genDivRRQuoRem(AbstractInstruction * self_in_genDivRRQuoRem, sqInt abstractRegDivisor, sqInt abstractRegDividend, sqInt abstractRegQuotient, sqInt abstractRegRemainder) NoDbgRegParms;
+static sqInt genDoubleArithmeticpreOpCheck(sqInt arithmeticOperator, AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)) NoDbgRegParms;
+static sqInt genDoubleComparisoninvert(AbstractInstruction *(*jumpOpcodeGenerator)(void *), sqInt invertComparison) NoDbgRegParms;
+static AbstractInstruction * genDoubleFailIfZeroArgRcvrarg(sqInt rcvrReg, sqInt argReg) NoDbgRegParms;
static sqInt genDynamicSuperSendBytecode(void);
-static void (*genEnilopmartForandandcalled(sqInt regArg1, sqInt regArg2, sqInt regArg3, char *trampolineName))(void) ;
-static void (*genEnilopmartForandcalled(sqInt regArg1, sqInt regArg2, char *trampolineName))(void) ;
-static void (*genEnilopmartForcalled(sqInt regArg, char *trampolineName))(void) ;
-static sqInt genEnsureObjInRegNotForwardedscratchReg(sqInt reg, sqInt scratch);
-static void (*genEnterPICEnilopmartNumArgs(sqInt numArgs))(void) ;
+static void (*genEnilopmartForandandcalled(sqInt regArg1, sqInt regArg2, sqInt regArg3, char *trampolineName))(void) NoDbgRegParms;
+static void (*genEnilopmartForandcalled(sqInt regArg1, sqInt regArg2, char *trampolineName))(void) NoDbgRegParms;
+static void (*genEnilopmartForcalled(sqInt regArg, char *trampolineName))(void) NoDbgRegParms;
+static sqInt genEnsureObjInRegNotForwardedscratchReg(sqInt reg, sqInt scratch) NoDbgRegParms;
+static void (*genEnterPICEnilopmartNumArgs(sqInt numArgs))(void) NoDbgRegParms;
static sqInt genExtendedSendBytecode(void);
static sqInt genExtendedSuperBytecode(void);
static sqInt genExternalizePointersForPrimitiveCall(void);
@@ -613,16 +623,16 @@
static sqInt genExtStoreLiteralVariableBytecode(void);
static sqInt genExtStoreReceiverVariableBytecode(void);
static sqInt genExtUnconditionalJump(void);
-static void generateCaptureCStackPointers(sqInt captureFramePointer);
-static AbstractInstruction * generateCheckFeatures(AbstractInstruction * self_in_generateCheckFeatures);
+static void generateCaptureCStackPointers(sqInt captureFramePointer) NoDbgRegParms;
+static AbstractInstruction * generateCheckFeatures(AbstractInstruction * self_in_generateCheckFeatures) NoDbgRegParms;
static void generateClosedPICPrototype(void);
-static CogMethod * generateCogMethod(sqInt selector);
+static CogMethod * generateCogMethod(sqInt selector) NoDbgRegParms;
static void generateEnilopmarts(void);
-static AbstractInstruction * generateICacheFlush(AbstractInstruction * self_in_generateICacheFlush);
-static sqInt generateInstructionsAt(sqInt eventualAbsoluteAddress);
-static AbstractInstruction * generateLowLevelTryLock(AbstractInstruction * self_in_generateLowLevelTryLock, sqInt vmOwnerLockAddress);
-static AbstractInstruction * generateLowLevelUnlock(AbstractInstruction * self_in_generateLowLevelUnlock, sqInt vmOwnerLockAddress);
-static sqInt generateMapAtstart(sqInt addressOrNull, sqInt startAddress);
+static AbstractInstruction * generateICacheFlush(AbstractInstruction * self_in_generateICacheFlush) NoDbgRegParms;
+static sqInt generateInstructionsAt(sqInt eventualAbsoluteAddress) NoDbgRegParms;
+static AbstractInstruction * generateLowLevelTryLock(AbstractInstruction * self_in_generateLowLevelTryLock, sqInt vmOwnerLockAddress) NoDbgRegParms;
+static AbstractInstruction * generateLowLevelUnlock(AbstractInstruction * self_in_generateLowLevelUnlock, sqInt vmOwnerLockAddress) NoDbgRegParms;
+static sqInt generateMapAtstart(sqInt addressOrNull, sqInt startAddress) NoDbgRegParms;
static void generateMissAbortTrampolines(void);
static void generateNewspeakRuntime(void);
static void generateObjectRepresentationTrampolines(void);
@@ -634,48 +644,49 @@
static void generateTrampolines(void);
static void generateVMOwnerLockFunctions(void);
static sqInt genFastPrimFail(void);
-static void genFastPrimTraceUsingand(sqInt r1, sqInt r2);
-static sqInt genFetchIndexRegisterfrominto(sqInt indexReg, sqInt tableObj, sqInt destReg);
-static sqInt genFramelessStorePopReceiverVariable(sqInt popBoolean, sqInt slotIndex);
-static sqInt genGetClassFormatOfNonIntintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg);
-static sqInt genGetClassObjectOfintoscratchReginstRegIsReceiver(sqInt instReg, sqInt destReg, sqInt scratchReg, sqInt instRegIsReceiver);
-static AbstractInstruction * genGetClassTagOfintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg);
-static sqInt genGetCompactClassIndexNonImmOfinto(sqInt instReg, sqInt destReg);
-static sqInt genGetDoubleValueOfinto(sqInt srcReg, sqInt destFPReg);
-static sqInt genGetFixedFieldsOfPointerNonIntintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg);
-static sqInt genGetHashFieldNonImmOfasSmallIntegerInto(sqInt instReg, sqInt destReg);
-static sqInt genGetImplicitReceiverForforPush(sqInt selector, sqInt forPushSendBar);
+static void genFastPrimTraceUsingand(sqInt r1, sqInt r2) NoDbgRegParms;
+static sqInt genFetchIndexRegisterfrominto(sqInt indexReg, sqInt tableObj, sqInt destReg) NoDbgRegParms;
+static sqInt genFramelessStorePopReceiverVariable(sqInt popBoolean, sqInt slotIndex) NoDbgRegParms;
+static sqInt genGetClassFormatOfNonIntintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg) NoDbgRegParms;
+static sqInt genGetClassObjectOfintoscratchReginstRegIsReceiver(sqInt instReg, sqInt destReg, sqInt scratchReg, sqInt instRegIsReceiver) NoDbgRegParms;
+static AbstractInstruction * genGetClassTagOfintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg) NoDbgRegParms;
+static sqInt genGetCompactClassIndexNonImmOfinto(sqInt instReg, sqInt destReg) NoDbgRegParms;
+static sqInt genGetDoubleValueOfinto(sqInt srcReg, sqInt destFPReg) NoDbgRegParms;
+static sqInt genGetFixedFieldsOfPointerNonIntintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg) NoDbgRegParms;
+static sqInt genGetHashFieldNonImmOfasSmallIntegerInto(sqInt instReg, sqInt destReg) NoDbgRegParms;
+static sqInt genGetImplicitReceiverForforPush(sqInt selector, sqInt forPushSendBar) NoDbgRegParms;
static sqInt genGetLeafCallStackPointer(void);
-static AbstractInstruction * genGetLeafCallStackPointerFunction(AbstractInstruction * self_in_genGetLeafCallStackPointerFunction);
-static sqInt genInnerPICAbortTrampoline(char *name);
-static sqInt genInnerPrimitiveAsCharacterinReg(sqInt retNOffset, sqInt reg);
-static sqInt genInnerPrimitiveAtPut(sqInt retNoffset);
-static sqInt genInnerPrimitiveAt(sqInt retNoffset);
-static sqInt genInnerPrimitiveCharacterValue(sqInt retNOffset);
-static sqInt genInnerPrimitiveIdenticalorNotIf(sqInt retNoffset, sqInt orNot);
-static sqInt genInnerPrimitiveIdentityHash(sqInt retNOffset);
-static sqInt genInnerPrimitiveNewMethod(sqInt retNoffset);
-static sqInt genInnerPrimitiveNewWithArg(sqInt retNoffset);
-static sqInt genInnerPrimitiveNew(sqInt retNoffset);
-static sqInt genInnerPrimitiveSize(sqInt retNoffset);
-static sqInt genInnerPrimitiveStringAtPut(sqInt retNoffset);
-static sqInt genInnerPrimitiveStringAt(sqInt retNOffset);
-static sqInt genJumpBackTo(sqInt targetBytecodePC);
-static AbstractInstruction * genJumpFPEqual(AbstractInstruction * self_in_genJumpFPEqual, void *jumpTarget);
-static AbstractInstruction * genJumpFPGreaterOrEqual(AbstractInstruction * self_in_genJumpFPGreaterOrEqual, void *jumpTarget);
-static AbstractInstruction * genJumpFPGreater(AbstractInstruction * self_in_genJumpFPGreater, void *jumpTarget);
-static AbstractInstruction * genJumpFPLessOrEqual(AbstractInstruction * self_in_genJumpFPLessOrEqual, void *jumpTarget);
-static AbstractInstruction * genJumpFPLess(AbstractInstruction * self_in_genJumpFPLess, void *jumpTarget);
-static AbstractInstruction * genJumpFPNotEqual(AbstractInstruction * self_in_genJumpFPNotEqual, void *jumpTarget);
-static sqInt genJumpIfto(sqInt boolean, sqInt targetBytecodePC);
-static AbstractInstruction * genJumpImmediateInScratchReg(sqInt aRegister);
-static AbstractInstruction * genJumpNotSmallIntegerInScratchReg(sqInt aRegister);
-static AbstractInstruction * genJumpSmallIntegerInScratchReg(sqInt aRegister);
-static sqInt genJumpTo(sqInt targetBytecodePC);
-static sqInt genLoadCStackPointers(void);
+static AbstractInstruction * genGetLeafCallStackPointerFunction(AbstractInstruction * self_in_genGetLeafCallStackPointerFunction) NoDbgRegParms;
+static sqInt genInnerPICAbortTrampoline(char *name) NoDbgRegParms;
+static sqInt genInnerPrimitiveAsCharacterinReg(sqInt retNOffset, sqInt reg) NoDbgRegParms;
+static sqInt genInnerPrimitiveAtPut(sqInt retNoffset) NoDbgRegParms;
+static sqInt genInnerPrimitiveAt(sqInt retNoffset) NoDbgRegParms;
+static sqInt genInnerPrimitiveCharacterValue(sqInt retNOffset) NoDbgRegParms;
+static sqInt genInnerPrimitiveIdenticalorNotIf(sqInt retNoffset, sqInt orNot) NoDbgRegParms;
+static sqInt genInnerPrimitiveIdentityHash(sqInt retNOffset) NoDbgRegParms;
+static sqInt genInnerPrimitiveNewMethod(sqInt retNoffset) NoDbgRegParms;
+static sqInt genInnerPrimitiveNewWithArg(sqInt retNoffset) NoDbgRegParms;
+static sqInt genInnerPrimitiveNew(sqInt retNoffset) NoDbgRegParms;
+static sqInt genInnerPrimitiveSize(sqInt retNoffset) NoDbgRegParms;
+static sqInt genInnerPrimitiveStringAtPut(sqInt retNoffset) NoDbgRegParms;
+static sqInt genInnerPrimitiveStringAt(sqInt retNOffset) NoDbgRegParms;
+static sqInt genJumpBackTo(sqInt targetBytecodePC) NoDbgRegParms;
+static AbstractInstruction * genJumpFPEqual(AbstractInstruction * self_in_genJumpFPEqual, void *jumpTarget) NoDbgRegParms;
+static AbstractInstruction * genJumpFPGreaterOrEqual(AbstractInstruction * self_in_genJumpFPGreaterOrEqual, void *jumpTarget) NoDbgRegParms;
+static AbstractInstruction * genJumpFPGreater(AbstractInstruction * self_in_genJumpFPGreater, void *jumpTarget) NoDbgRegParms;
+static AbstractInstruction * genJumpFPLessOrEqual(AbstractInstruction * self_in_genJumpFPLessOrEqual, void *jumpTarget) NoDbgRegParms;
+static AbstractInstruction * genJumpFPLess(AbstractInstruction * self_in_genJumpFPLess, void *jumpTarget) NoDbgRegParms;
+static AbstractInstruction * genJumpFPNotEqual(AbstractInstruction * self_in_genJumpFPNotEqual, void *jumpTarget) NoDbgRegParms;
+static sqInt genJumpIfto(sqInt boolean, sqInt targetBytecodePC) NoDbgRegParms;
+static AbstractInstruction * genJumpImmediateInScratchReg(sqInt aRegister) NoDbgRegParms;
+static AbstractInstruction * genJumpNotSmallIntegerInScratchReg(sqInt aRegister) NoDbgRegParms;
+static AbstractInstruction * genJumpSmallIntegerInScratchReg(sqInt aRegister) NoDbgRegParms;
+static sqInt genJumpTo(sqInt targetBytecodePC) NoDbgRegParms;
+static sqInt genLoadCStackPointer(AbstractInstruction * self_in_genLoadCStackPointer) NoDbgRegParms;
+static sqInt genLoadCStackPointers(AbstractInstruction * self_in_genLoadCStackPointers) NoDbgRegParms;
static sqInt genLoadCStackPointersForPrimCall(void);
-static sqInt genLoadSlotsourceRegdestReg(sqInt index, sqInt sourceReg, sqInt destReg);
-static sqInt genLoadStackPointers(void);
+static sqInt genLoadSlotsourceRegdestReg(sqInt index, sqInt sourceReg, sqInt destReg) NoDbgRegParms;
+static sqInt genLoadStackPointers(AbstractInstruction * self_in_genLoadStackPointers) NoDbgRegParms;
static sqInt genLongJumpIfFalse(void);
static sqInt genLongJumpIfTrue(void);
static sqInt genLongPushTemporaryVariableBytecode(void);
@@ -683,17 +694,17 @@
static sqInt genLongStoreTemporaryVariableBytecode(void);
static sqInt genLongUnconditionalBackwardJump(void);
static sqInt genLongUnconditionalForwardJump(void);
-static sqInt genMarshalledSendDynamicSupernumArgs(sqInt selector, sqInt numArgs);
-static sqInt genMarshalledSendSupernumArgs(sqInt selector, sqInt numArgs);
-static sqInt genMarshalledSendnumArgs(sqInt selector, sqInt numArgs);
-static sqInt genMethodAbortTrampolineFor(sqInt numArgs);
-static AbstractInstruction * genMulRR(AbstractInstruction * self_in_genMulRR, sqInt regSource, sqInt regDest);
-static sqInt genMustBeBooleanTrampolineForcalled(sqInt boolean, char *trampolineName);
+static sqInt genMarshalledSendDynamicSupernumArgs(sqInt selector, sqInt numArgs) NoDbgRegParms;
+static sqInt genMarshalledSendSupernumArgs(sqInt selector, sqInt numArgs) NoDbgRegParms;
+static sqInt genMarshalledSendnumArgs(sqInt selector, sqInt numArgs) NoDbgRegParms;
+static sqInt genMethodAbortTrampolineFor(sqInt numArgs) NoDbgRegParms;
+static AbstractInstruction * genMulRR(AbstractInstruction * self_in_genMulRR, sqInt regSource, sqInt regDest) NoDbgRegParms;
+static sqInt genMustBeBooleanTrampolineForcalled(sqInt boolean, char *trampolineName) NoDbgRegParms;
static sqInt genNonLocalReturnTrampoline(void);
-static sqInt genPassConstasArgument(AbstractInstruction * self_in_genPassConstasArgument, sqInt constant, sqInt zeroRelativeArgIndex);
-static sqInt genPassRegasArgument(AbstractInstruction * self_in_genPassRegasArgument, sqInt abstractRegister, sqInt zeroRelativeArgIndex);
-static sqInt genPICAbortTrampolineFor(sqInt numArgs);
-static sqInt genPICMissTrampolineFor(sqInt numArgs);
+static sqInt genPassConstasArgument(AbstractInstruction * self_in_genPassConstasArgument, sqInt constant, sqInt zeroRelativeArgIndex) NoDbgRegParms;
+static sqInt genPassRegasArgument(AbstractInstruction * self_in_genPassRegasArgument, sqInt abstractRegister, sqInt zeroRelativeArgIndex) NoDbgRegParms;
+static sqInt genPICAbortTrampolineFor(sqInt numArgs) NoDbgRegParms;
+static sqInt genPICMissTrampolineFor(sqInt numArgs) NoDbgRegParms;
static sqInt genPopStackBytecode(void);
static sqInt genPrimitiveAdd(void);
static sqInt genPrimitiveAsCharacter(void);
@@ -739,7 +750,7 @@
static sqInt genPrimitiveStringAt(void);
static sqInt genPrimitiveStringAtPut(void);
static sqInt genPrimitiveSubtract(void);
-static void genPrimReturnEnterCogCodeEnilopmart(sqInt profiling);
+static void genPrimReturnEnterCogCodeEnilopmart(sqInt profiling) NoDbgRegParms;
static sqInt genPushActiveContextBytecode(void);
static sqInt genPushClosureCopyCopiedValuesBytecode(void);
static sqInt genPushConstantFalseBytecode(void);
@@ -748,61 +759,62 @@
static sqInt genPushConstantTrueBytecode(void);
static sqInt genPushConstantZeroBytecode(void);
static sqInt genPushExplicitOuterReceiverBytecode(void);
-static sqInt genPushExplicitOuterReceiver(sqInt level);
+static sqInt genPushExplicitOuterReceiver(sqInt level) NoDbgRegParms;
static sqInt genPushImplicitReceiverBytecode(void);
static sqInt genPushLiteralConstantBytecode(void);
-static sqInt genPushLiteralIndex(sqInt literalIndex);
+static sqInt genPushLiteralIndex(sqInt literalIndex) NoDbgRegParms;
static sqInt genPushLiteralVariable16CasesBytecode(void);
static sqInt genPushLiteralVariableBytecode(void);
-static sqInt genPushLiteralVariable(sqInt literalIndex);
-static sqInt genPushLiteral(sqInt literal);
-static sqInt genPushMaybeContextReceiverVariable(sqInt slotIndex);
@@ Diff output truncated at 50000 characters. @@
1
0
Revision: 2923
Author: rowledge
Date: 2014-05-20 13:02:43 -0700 (Tue, 20 May 2014)
Log Message:
-----------
merge in ARM fast blt code
Modified Paths:
--------------
branches/Cog/platforms/unix/vm-display-X11/sqUnixX11.c
Modified: branches/Cog/platforms/unix/vm-display-X11/sqUnixX11.c
===================================================================
--- branches/Cog/platforms/unix/vm-display-X11/sqUnixX11.c 2014-05-20 02:14:03 UTC (rev 2922)
+++ branches/Cog/platforms/unix/vm-display-X11/sqUnixX11.c 2014-05-20 20:02:43 UTC (rev 2923)
@@ -63,6 +63,15 @@
#undef HAVE_OPENGL_GL_H /* don't include Quartz OpenGL if configured */
#include "SqDisplay.h"
+#if defined(USE_FAST_BLT)
+ /* XXX referring to plugin variables *requires* BitBitPlugin to be included by VMM as an internal plugin */
+# if defined(__arm__)
+# include "../../../Cross/plugins/BitBltPlugin/BitBltArm.h"
+# else
+# error configuration error
+# endif
+#endif
+
#if defined(ioMSecs)
# undef ioMSecs
#endif
@@ -6132,9 +6141,60 @@
}
}
+#if defined(USE_FAST_BLT)
+# if defined(__arm__)
+
+ extern void armSimdConvert_x888_8_LEPacking32_8_wide(unsigned int width, unsigned int height,
+ unsigned int *dst, unsigned int dstStride,
+ unsigned int *src, unsigned int srcStride,
+ unsigned int halftone, unsigned int halftoneInfo,
+ unsigned int *colourMap);
+
+ extern void armSimdConvert_x888_8_LEPacking32_8_narrow(unsigned int width, unsigned int height,
+ unsigned int *dst, unsigned int dstStride,
+ unsigned int *src, unsigned int srcStride,
+ unsigned int halftone, unsigned int halftoneInfo,
+ unsigned int *colourMap);
+
+ static void armSimdCopyImage32To8(int *fromImageData, int *toImageData, int width, int height,
+ int affectedL, int affectedT, int affectedR, int affectedB,
+ unsigned int *downGradingColors)
+ {
+ /* Find image strides in 32-bit words */
+ unsigned int srcStride= width;
+ unsigned int dstStride= (width + 3) >> 2;
+ /* Round affected region out to encompass complete words in both images */
+ affectedL &= ~3;
+ affectedR= (affectedR + 3) &~ 3;
+ width= affectedR - affectedL;
+ height= affectedB - affectedT;
+ /* Find first words */
+ fromImageData += srcStride * affectedT + affectedL;
+ toImageData += dstStride * affectedT + (affectedL >> 2);
+ /* Adjust strides to remove number of words read/written */
+ srcStride -= affectedR - affectedL;
+ dstStride -= (affectedR - affectedL) >> 2;
+ /* Work out which width class this operation is. */
+ if (width > (128 - 32) / 8 && ((-1 ^ (width -(128 - 32) / 8)) & ~(31 / 8)))
+ armSimdConvert_x888_8_LEPacking32_8_wide(width, height, toImageData, dstStride, fromImageData, srcStride, 0, 0, downGradingColors);
+ else
+ armSimdConvert_x888_8_LEPacking32_8_narrow(width, height, toImageData, dstStride, fromImageData, srcStride, 0, 0, downGradingColors);
+ }
+# else
+# error configuration error
+# endif
+#endif
+
void copyImage32To8(int *fromImageData, int *toImageData, int width, int height,
int affectedL, int affectedT, int affectedR, int affectedB)
{
+#if defined(USE_FAST_BLT)
+# if defined(__arm__)
+ armSimdCopyImage32To8(fromImageData, toImageData, width, height, affectedL, affectedT, affectedR, affectedB, stDownGradingColors);
+# else
+# error configuration error
+# endif
+#else
int scanLine32, firstWord32, lastWord32;
int scanLine8, firstWord8;
int line;
@@ -6167,6 +6227,7 @@
firstWord8+= scanLine8;
}
#undef map32To8
+#endif /* !USE_FAST_BLT */
}
void copyImage16To32(int *fromImageData, int *toImageData, int width, int height,
@@ -6291,10 +6352,58 @@
#undef map16To24
}
+#if defined(USE_FAST_BLT)
+# if defined(__arm__)
+ extern void armSimdConvert_x888_0565_LEPacking32_16_wide(unsigned int width, unsigned int height,
+ unsigned int *dst, unsigned int dstStride,
+ unsigned int *src, unsigned int srcStride);
+
+ extern void armSimdConvert_x888_0565_LEPacking32_16_narrow(unsigned int width, unsigned int height,
+ unsigned int *dst, unsigned int dstStride,
+ unsigned int *src, unsigned int srcStride);
+ static void armSimdCopyImage32To16(int *fromImageData, int *toImageData, int width, int height,
+ int affectedL, int affectedT, int affectedR, int affectedB)
+ {
+ /* Find image strides in 32-bit words */
+ unsigned int srcStride= width;
+ unsigned int dstStride= (width + 1) >> 1;
+ /* Round affected region out to encompass complete words in both images */
+ affectedL &= ~1;
+ affectedR += affectedR & 1;
+ width= affectedR - affectedL;
+ height= affectedB - affectedT;
+ /* Find first words */
+ fromImageData += srcStride * affectedT + affectedL;
+ toImageData += dstStride * affectedT + (affectedL >> 1);
+ /* Adjust strides to remove number of words read/written */
+ srcStride -= affectedR - affectedL;
+ dstStride -= (affectedR - affectedL) >> 1;
+ /* Work out which width class this operation is. */
+ if (width > (128 - 32) / 16 && ((-1 ^ (width - (128 - 32) / 16)) & ~(31 / 16)))
+ armSimdConvert_x888_0565_LEPacking32_16_wide(width, height, toImageData, dstStride, fromImageData, srcStride);
+ else
+ armSimdConvert_x888_0565_LEPacking32_16_narrow(width, height, toImageData, dstStride, fromImageData, srcStride);
+ }
+
+# else
+# error configuration error
+# endif
+#endif
+
void copyImage32To16(int *fromImageData, int *toImageData, int width, int height,
int affectedL, int affectedT, int affectedR, int affectedB)
{
+#if defined(USE_FAST_BLT)
+# if defined(__arm__)
+ if (stRNMask == 5 && stRShift == 11 && stGNMask == 6 && stGShift == 5 && stBNMask == 5 && stBShift == 0)
+ armSimdCopyImage32To16(fromImageData, toImageData, width, height, affectedL, affectedT, affectedR, affectedB);
+ else
+# else
+# error configuration error
+# endif
+#endif
+ {
int scanLine32, firstWord32, lastWord32;
int scanLine16, firstWord16;
int line;
@@ -6332,6 +6441,7 @@
firstWord16+= scanLine16;
}
#undef map32To16
+ }
}
void copyImage16To16(int *fromImageData, int *toImageData, int width, int height,
@@ -6378,9 +6488,53 @@
#undef map16To16
}
+
+#if defined(USE_FAST_BLT)
+# if defined(__arm__)
+ extern void armSimdConvert_x888_x888BGR_LEPacking32_32_wide(unsigned int width, unsigned int height,
+ unsigned int *dst, unsigned int dstStride,
+ unsigned int *src, unsigned int srcStride);
+
+ extern void armSimdConvert_x888_x888BGR_LEPacking32_32_narrow(unsigned int width, unsigned int height,
+ unsigned int *dst, unsigned int dstStride,
+ unsigned int *src, unsigned int srcStride);
+
+ static void armSimdCopyImage32To32(int *fromImageData, int *toImageData, int width, int height,
+ int affectedL, int affectedT, int affectedR, int affectedB)
+ {
+ unsigned int stride= width;
+ width= affectedR - affectedL;
+ height= affectedB - affectedT;
+ /* Find first words */
+ fromImageData += stride * affectedT + affectedL;
+ toImageData += stride * affectedT + affectedL;
+ /* Adjust stride to remove number of words read/written */
+ stride -= width;
+ /* Work out which width class this operation is. */
+ if (width > (128 - 32) / 32 && (-1 ^ (width - (128 - 32) / 32)))
+ armSimdConvert_x888_x888BGR_LEPacking32_32_wide(width, height, toImageData, stride, fromImageData, stride);
+ else
+ armSimdConvert_x888_x888BGR_LEPacking32_32_narrow(width, height, toImageData, stride, fromImageData, stride);
+ }
+# else
+# error configuration error
+# endif
+#endif
+
+
void copyImage32To32(int *fromImageData, int *toImageData, int width, int height,
int affectedL, int affectedT, int affectedR, int affectedB)
{
+#if defined(USE_FAST_BLT)
+# if defined(__arm__)
+ if ((armCpuFeatures & ARM_V6) && stRNMask == 8 && stRShift == 0 && stGNMask == 8 && stGShift == 8 && stBNMask == 8 && stBShift == 16)
+ armSimdCopyImage32To32(fromImageData, toImageData, width, height, affectedL, affectedT, affectedR, affectedB);
+ else
+# else
+# error unsupported use of ENABLE_FAST_BLT
+# endif
+#endif
+ {
int scanLine32, firstWord32, lastWord32;
int line;
int rshift, gshift, bshift;
@@ -6414,6 +6568,7 @@
lastWord32+= scanLine32;
}
#undef map32To32
+ }
}
void copyImage32To32Same(int *fromImageData, int *toImageData,
1
0
Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.724.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.724
Author: eem
Time: 20 May 2014, 5:14:34.356 am
UUID: 30e942d9-0d06-42d3-8f9a-893dbdee37c2
Ancestors: VMMaker.oscog-eem.723
Slang/general:
VMBIGENDIAN must *not* be defined during generation. It
should be taken from platforms/??/vm/sqConfig.h. This should
go a long way to fixing Doug's issues on PPC.
Spur:
Don't mark on allInstances/allObjects. Use a class var to
mark the choice so we can turn it back on if desired.
=============== Diff against VMMaker.oscog-eem.723 ===============
Item was changed:
CogClass subclass: #SpurMemoryManager
(excessive size, no diff calculated)
Item was changed:
----- Method: SpurMemoryManager class>>initialize (in category 'class initialization') -----
initialize
"SpurMemoryManager initialize"
BitsPerByte := 8.
"An obj stack is a stack of objects stored in a hidden root slot, such as
the markStack or the ephemeronQueue. It is a linked list of segments,
with the hot end at the head of the list. It is a word object. The stack
pointer is in ObjStackTopx and 0 means empty. The list goes through
ObjStackNextx. We don't want to shrink objStacks, since they're used
in GC and its good to keep their memory around. So unused pages
created by popping emptying pages are kept on the ObjStackFreex list.
ObjStackNextx must be the last field for swizzleObjStackAt:."
ObjStackPageSlots := 4092. "+ double header = 16k bytes per page in 32-bits"
ObjStackTopx := 0.
ObjStackMyx := 1.
ObjStackFreex := 2.
ObjStackNextx := 3.
ObjStackFixedSlots := 4.
ObjStackLimit := ObjStackPageSlots - ObjStackFixedSlots.
"There are currently three obj stacks, the mark stack, the weaklings and the ephemeron queue."
MarkStackRootIndex := self basicNew classTableRootSlots.
WeaklingStackRootIndex := MarkStackRootIndex + 1.
EphemeronQueueRootIndex := MarkStackRootIndex + 2.
CheckObjectOverwrite := true.
+ MarkObjectsForEnumerationPrimitives := false.
"The remap buffer support is for compatibility; Spur doesn't GC during allocation.
Eventually this should die."
RemapBufferSize := 25.
"Extra roots are for plugin support."
ExtraRootsSize := 2048 "max. # of external roots"!
Item was changed:
----- Method: SpurMemoryManager>>allInstancesOf: (in category 'primitive support') -----
allInstancesOf: aClass
"Attempt to answer an array of all objects, excluding those that may
be garbage collected as a side effect of allocating the result array.
If no memory is available answer the number of instances as a SmallInteger.
Since objects are at least 16 bytes big, and the largest SmallInteger covers
1/4 of the address space, the count can never overflow."
| classIndex freeChunk ptr start limit count bytes |
classIndex := self rawHashBitsOf: aClass.
(classIndex = 0
or: [aClass ~~ (self classOrNilAtIndex: classIndex)]) ifTrue:
[freeChunk := self allocateSlots: 0 format: self arrayFormat classIndex: ClassArrayCompactIndex.
^freeChunk].
+ MarkObjectsForEnumerationPrimitives ifTrue:
+ [self markObjects]. "may not want to revive objects unnecessarily; but marking is sloooow."
- self markObjects. "don't want to revive objects unnecessarily."
freeChunk := self allocateLargestFreeChunk.
ptr := start := freeChunk + self baseHeaderSize.
limit := self addressAfter: freeChunk.
count := 0.
self allHeapEntitiesDo:
[:obj| "continue enumerating even if no room so as to unmark all objects."
+ (MarkObjectsForEnumerationPrimitives
+ ifTrue: [self isMarked: obj]
+ ifFalse: [true]) ifTrue:
- (self isMarked: obj) ifTrue:
[(self isNormalObject: obj)
ifTrue:
+ [MarkObjectsForEnumerationPrimitives ifTrue:
+ [self setIsMarkedOf: obj to: false].
- [self setIsMarkedOf: obj to: false.
(self classIndexOf: obj) = classIndex ifTrue:
[count := count + 1.
ptr < limit ifTrue:
[self longAt: ptr put: obj.
ptr := ptr + self bytesPerSlot]]]
ifFalse:
[(self isSegmentBridge: obj) ifFalse:
[self setIsMarkedOf: obj to: false]]]].
self assert: self allObjectsUnmarked.
self assert: (self isEmptyObjStack: markStack).
self emptyObjStack: weaklingStack.
(count > (ptr - start / self bytesPerSlot) "not enough room"
or: [limit ~= ptr and: [limit - ptr <= self allocationUnit]]) ifTrue: "can't split a single word"
[self freeObject: freeChunk.
^self integerObjectOf: count].
count < self numSlotsMask ifTrue:
[| smallObj |
smallObj := self allocateSlots: count format: self arrayFormat classIndex: ClassArrayCompactIndex.
0 to: count - 1 do:
[:i|
self storePointerUnchecked: i ofObject: smallObj withValue: (self fetchPointer: i ofObject: freeChunk)].
self freeChunkWithBytes: (self bytesInObject: freeChunk) at: (self startOfObject: freeChunk).
self beRootIfOld: smallObj.
self checkFreeSpace.
^smallObj].
bytes := self largeObjectBytesForSlots: count.
start := self startOfObject: freeChunk.
self freeChunkWithBytes: limit - start - bytes at: start + bytes.
totalFreeOldSpace := totalFreeOldSpace - bytes.
self setOverflowNumSlotsOf: freeChunk to: count.
self set: freeChunk classIndexTo: ClassArrayCompactIndex formatTo: self arrayFormat.
self possibleRootStoreInto: freeChunk.
self checkFreeSpace.
self runLeakCheckerForFullGC: false.
^freeChunk
!
Item was changed:
----- Method: SpurMemoryManager>>allObjects (in category 'primitive support') -----
allObjects
"Attempt to answer an array of all objects, excluding those that may
be garbage collected as a side effect of allocating the result array.
If no memory is available answer the number of objects as a SmallInteger.
Since objects are at least 16 bytes big, and the largest SmallInteger covers
1/4 of the address space, the count can never overflow."
| freeChunk ptr start limit count bytes |
+ MarkObjectsForEnumerationPrimitives ifTrue:
+ [self markObjects]. "may not want to revive objects unnecessarily; but marking is sloooow."
- self markObjects. "don't want to revive objects unnecessarily."
freeChunk := self allocateLargestFreeChunk.
ptr := start := freeChunk + self baseHeaderSize.
limit := self addressAfter: freeChunk.
count := 0.
self allHeapEntitiesDo:
[:obj| "continue enumerating even if no room so as to unmark all objects."
+ (MarkObjectsForEnumerationPrimitives
+ ifTrue: [self isMarked: obj]
+ ifFalse: [true]) ifTrue:
- (self isMarked: obj) ifTrue:
[(self isNormalObject: obj)
ifTrue:
+ [MarkObjectsForEnumerationPrimitives ifTrue:
+ [self setIsMarkedOf: obj to: false].
- [self setIsMarkedOf: obj to: false.
count := count + 1.
ptr < limit ifTrue:
[self longAt: ptr put: obj.
ptr := ptr + self bytesPerSlot]]
ifFalse:
[(self isSegmentBridge: obj) ifFalse:
[self setIsMarkedOf: obj to: false]]]].
self assert: self allObjectsUnmarked.
self assert: (self isEmptyObjStack: markStack).
self emptyObjStack: weaklingStack.
self assert: count >= self numSlotsMask.
(count > (ptr - start / self bytesPerSlot) "not enough room"
or: [limit ~= ptr and: [limit - ptr <= self allocationUnit]]) ifTrue: "can't split a single word"
[self freeChunkWithBytes: (self bytesInObject: freeChunk) at: (self startOfObject: freeChunk).
self checkFreeSpace.
^self integerObjectOf: count].
bytes := self largeObjectBytesForSlots: count.
start := self startOfObject: freeChunk.
self freeChunkWithBytes: limit - start - bytes at: start + bytes.
totalFreeOldSpace := totalFreeOldSpace - bytes.
self setOverflowNumSlotsOf: freeChunk to: count.
self set: freeChunk classIndexTo: ClassArrayCompactIndex formatTo: self arrayFormat.
self possibleRootStoreInto: freeChunk.
self checkFreeSpace.
self runLeakCheckerForFullGC: false.
^freeChunk
!
Item was changed:
----- Method: VMMaker>>buildCodeGeneratorForCogit:includeAPIMethods:initializeClasses: (in category 'generate sources') -----
buildCodeGeneratorForCogit: cogitClass includeAPIMethods: getAPIMethods initializeClasses: initializeClasses
"Answer the code generator for translating the cogit."
| cg aClass cogitClasses apicg |
cg := self createCogitCodeGenerator.
cg vmClass: cogitClass.
initializeClasses ifTrue:
[{ cogitClass. self interpreterClass. self interpreterClass objectMemoryClass } do:
[:cgc|
(cgc respondsTo: #initializeWithOptions:)
ifTrue: [cgc initializeWithOptions: optionsDictionary]
ifFalse: [cgc initialize]]].
cogitClasses := OrderedCollection new.
aClass := cogitClass.
[cogitClasses addFirst: aClass.
aClass ~~ Cogit
and: [aClass inheritsFrom: Cogit]] whileTrue:
[aClass := aClass superclass].
cogitClasses addFirst: VMClass.
cogitClasses addAllLast: ((cogitClass ancilliaryClasses: optionsDictionary) reject: [:class| class isStructClass]).
cogitClasses do: [:cgc| cg addClass: cgc].
cg addStructClasses: (cg structClassesForTranslationClasses: cogitClasses).
getAPIMethods ifTrue:
[apicg := self
buildCodeGeneratorForInterpreter: self interpreterClass
includeAPIMethods: false
initializeClasses: false.
cg apiMethods: apicg selectAPIMethods].
+ cg removeConstant: #VMBIGENDIAN. "this should be defined in platforms/??/vm/sqConfig.h"
+
^cg!
Item was changed:
----- Method: VMMaker>>buildCodeGeneratorForInterpreter:includeAPIMethods:initializeClasses: (in category 'generate sources') -----
buildCodeGeneratorForInterpreter: interpreterClass includeAPIMethods: getAPIMethods initializeClasses: initializeClasses
"Answer the code generator for translating the interpreter."
| cg theClass interpreterClasses apicg |
interpreterClasses := OrderedCollection new.
initializeClasses ifTrue:
[interpreterClass initializeWithOptions: optionsDictionary].
(cg := self createCodeGenerator) vmClass: interpreterClass.
theClass := interpreterClass.
[theClass ~~ VMClass] whileTrue:
[interpreterClasses addFirst: theClass.
theClass := theClass superclass].
cg vmClass objectMemoryClass ifNotNil:
[:objectMemoryClass|
theClass := objectMemoryClass.
[theClass ~~ VMClass] whileTrue:
[interpreterClasses addFirst: theClass.
theClass := theClass superclass]].
interpreterClasses addFirst: VMClass.
interpreterClasses addAllLast: (cg nonStructClassesForTranslationClasses: interpreterClasses).
initializeClasses ifTrue:
[interpreterClasses do:
[:ic|
(ic respondsTo: #initializeWithOptions:)
ifTrue: [ic initializeWithOptions: optionsDictionary]
ifFalse: [ic initialize]].
(cg structClassesForTranslationClasses: interpreterClasses) do:
[:structClass| structClass initialize]].
cg addStructClasses: (cg structClassesForTranslationClasses: interpreterClasses).
interpreterClasses do: [:ic| cg addClass: ic].
(getAPIMethods
and: [self interpreterClass needsCogit]) ifTrue:
[apicg := self
buildCodeGeneratorForCogit: self cogitClass
includeAPIMethods: false
initializeClasses: false.
cg apiMethods: apicg selectAPIMethods].
+ cg removeConstant: #VMBIGENDIAN. "this should be defined in platforms/??/vm/sqConfig.h"
+
^cg!
1
0
20 May '14
Revision: 2922
Author: eliot
Date: 2014-05-19 19:14:03 -0700 (Mon, 19 May 2014)
Log Message:
-----------
CogVM source as per VMMaker.oscog-eem.723.
Alphabetise protocols in Cog & VMMaker in the image build script. Leave it up
to VMClass class>>initialize to add the useful expressions to the do... menu.
Cogit:
Refactor the code around pushing register arguments and switching between the
Smalltalk and C stacks, moving the actual generators into backEnd (the special
instance of the relevant CogAbstractInstruction subclass) . This allows
CogARMInstruction to handle pushing the register args and hence handle the
difference of having a link reg.
Combine genSaveStackPointers & genLoadCStackPointers
into Cogit>>genSmalltalkToCStackSwitch.
Newspeak Spur:
Provide machine code primitives for instantiateFixedClass:
(a.k.a. a 1 arg basicNew) and instantiateVariableClass:withSize:
(a.k.a. a 2 arg basicNew:).
Spur:
Make the MirrorNew prims option: #NewspeakVM
Split the check heap loop between newSpace and oldSpace
to improve leak map checking performance a little.
Fix the assert in checkForAndFollowForwardedPrimitiveState
and add support for primitive 218, primitiveDoNamedPrimitiveWithArgs.
Nuke old fit compact code.
Nuke unused inst vars (lastSubdividedFreeChunk, highestObjects).
Update SpurMemoryManager class comment.
Make compact update statCompactPassCount.
Check free space after rebuildFreeListsForPigCompact.
Slang:
In non-production VMs add an attribute to disable register parameters (at least
for GCC-compliant compilers), allowing all static functions to be called from
gdb even in the -O1 assert VMs.
Misc:
Fix str:n:cmp: usage in printOopShortInner:.
Modified Paths:
--------------
branches/Cog/image/BuildSqueak45Image.st
branches/Cog/macbuild/CoreMTVM.xcodeproj/project.pbxproj
branches/Cog/macbuild/CoreVM.xcodeproj/project.pbxproj
branches/Cog/nsbuild/macbuild/CoreVM.xcodeproj/project.pbxproj
branches/Cog/nscogbuild/macbuild/CoreVM.xcodeproj/project.pbxproj
branches/Cog/nsspurcogbuild/macbuild/CoreVM.xcodeproj/project.pbxproj
branches/Cog/nsspursrc/vm/cogit.c
branches/Cog/nsspursrc/vm/cogit.h
branches/Cog/nsspursrc/vm/cogmethod.h
branches/Cog/nsspursrc/vm/cointerp.c
branches/Cog/nsspursrc/vm/cointerp.h
branches/Cog/nsspursrc/vm/gcc3x-cointerp.c
branches/Cog/nsspursrc/vm/interp.h
branches/Cog/nsspursrc/vm/vmCallback.h
branches/Cog/nsspurstackbuild/macbuild/CoreVM.xcodeproj/project.pbxproj
branches/Cog/nsspurstacksrc/vm/gcc3x-interp.c
branches/Cog/nsspurstacksrc/vm/interp.c
branches/Cog/nsspurstacksrc/vm/interp.h
branches/Cog/nsspurstacksrc/vm/vmCallback.h
branches/Cog/platforms/Cross/vm/sqMemoryAccess.h
branches/Cog/sistamacbuild/CoreVM.xcodeproj/project.pbxproj
branches/Cog/spurcogbuild/macbuild/CoreMTVM.xcodeproj/project.pbxproj
branches/Cog/spurcogbuild/macbuild/CoreVM.xcodeproj/project.pbxproj
branches/Cog/spursistamacbuild/CoreVM.xcodeproj/project.pbxproj
branches/Cog/spursistasrc/vm/cogit.c
branches/Cog/spursistasrc/vm/cogit.h
branches/Cog/spursistasrc/vm/cogmethod.h
branches/Cog/spursistasrc/vm/cointerp.c
branches/Cog/spursistasrc/vm/cointerp.h
branches/Cog/spursistasrc/vm/gcc3x-cointerp.c
branches/Cog/spursistasrc/vm/interp.h
branches/Cog/spursistasrc/vm/vmCallback.h
branches/Cog/spursrc/vm/cogit.c
branches/Cog/spursrc/vm/cogit.h
branches/Cog/spursrc/vm/cogmethod.h
branches/Cog/spursrc/vm/cointerp.c
branches/Cog/spursrc/vm/cointerp.h
branches/Cog/spursrc/vm/gcc3x-cointerp.c
branches/Cog/spursrc/vm/interp.h
branches/Cog/spursrc/vm/vmCallback.h
branches/Cog/spurstackbuild/macbuild/CoreVM.xcodeproj/project.pbxproj
branches/Cog/spurstacksrc/vm/gcc3x-interp.c
branches/Cog/spurstacksrc/vm/interp.c
branches/Cog/spurstacksrc/vm/interp.h
branches/Cog/spurstacksrc/vm/vmCallback.h
branches/Cog/stackbuild/macbuild/CoreVM.xcodeproj/project.pbxproj
Property Changed:
----------------
branches/Cog/platforms/Cross/vm/sqSCCSVersion.h
Modified: branches/Cog/image/BuildSqueak45Image.st
===================================================================
--- branches/Cog/image/BuildSqueak45Image.st 2014-05-11 16:05:51 UTC (rev 2921)
+++ branches/Cog/image/BuildSqueak45Image.st 2014-05-20 02:14:03 UTC (rev 2922)
@@ -65,8 +65,15 @@
(Utilities classPool at: #CommonRequestStrings) ifNotNil:
[:crs|
- crs contents: crs contents, '\-\VMMaker generateConfiguration\VMMaker generateAllConfigurationsUnderVersionControl\VMClass openCogMultiWindowBrowser\VMClass openObjectMemoriesInterpretersBrowser' withCRs].
+ crs contents: crs contents, '\-\VMMaker generateConfiguration\VMMaker generateAllConfigurationsUnderVersionControl\VMClass openCogMultiWindowBrowser\VMClass openObjectMemoriesInterpretersBrowser\VMClass openSpurMultiWindowBrowser' withCRs].
CodeHolder useMultiWindowBrowsers: true.
+#('Cog' 'CogTools' 'VMMaker') do:
+ [:pkg|
+ (PackageInfo named: pkg) classes do:
+ [:c|
+ c organization sortCategories.
+ c class organization sortCategories]].
+
Smalltalk snapshot: true andQuit: true
Modified: branches/Cog/macbuild/CoreMTVM.xcodeproj/project.pbxproj
===================================================================
--- branches/Cog/macbuild/CoreMTVM.xcodeproj/project.pbxproj 2014-05-11 16:05:51 UTC (rev 2921)
+++ branches/Cog/macbuild/CoreMTVM.xcodeproj/project.pbxproj 2014-05-20 02:14:03 UTC (rev 2922)
@@ -2144,7 +2144,7 @@
MACOSX_DEPLOYMENT_TARGET = 10.5;
OTHER_LDFLAGS = "";
OTHER_REZFLAGS = "";
- PER_ARCH_CFLAGS_i386 = "-O3 -falign-functions=16 -fno-gcse -mtune=prescott -march=pentium-m -mfpmath=sse -finline-functions -Wall -DUSE_INLINE_MEMORY_ACCESSORS";
+ PER_ARCH_CFLAGS_i386 = "-O3 -falign-functions=16 -fno-gcse -mtune=prescott -march=pentium4 -mfpmath=sse -finline-functions -Wall -DUSE_INLINE_MEMORY_ACCESSORS";
PRODUCT_NAME = Squeak;
SECTORDER_FLAGS = "";
WARNING_CFLAGS = "";
Modified: branches/Cog/macbuild/CoreVM.xcodeproj/project.pbxproj
===================================================================
--- branches/Cog/macbuild/CoreVM.xcodeproj/project.pbxproj 2014-05-11 16:05:51 UTC (rev 2921)
+++ branches/Cog/macbuild/CoreVM.xcodeproj/project.pbxproj 2014-05-20 02:14:03 UTC (rev 2922)
@@ -2144,7 +2144,7 @@
MACOSX_DEPLOYMENT_TARGET = 10.5;
OTHER_LDFLAGS = "";
OTHER_REZFLAGS = "";
- PER_ARCH_CFLAGS_i386 = "-O3 -falign-functions=16 -fno-gcse -mtune=prescott -march=pentium-m -mfpmath=sse -finline-functions -Wall -DUSE_INLINE_MEMORY_ACCESSORS";
+ PER_ARCH_CFLAGS_i386 = "-O3 -falign-functions=16 -fno-gcse -mtune=prescott -march=pentium4 -mfpmath=sse -finline-functions -Wall -DUSE_INLINE_MEMORY_ACCESSORS";
PRODUCT_NAME = Squeak;
SECTORDER_FLAGS = "";
WARNING_CFLAGS = "";
Modified: branches/Cog/nsbuild/macbuild/CoreVM.xcodeproj/project.pbxproj
===================================================================
--- branches/Cog/nsbuild/macbuild/CoreVM.xcodeproj/project.pbxproj 2014-05-11 16:05:51 UTC (rev 2921)
+++ branches/Cog/nsbuild/macbuild/CoreVM.xcodeproj/project.pbxproj 2014-05-20 02:14:03 UTC (rev 2922)
@@ -1855,7 +1855,7 @@
MACOSX_DEPLOYMENT_TARGET = 10.5;
OTHER_LDFLAGS = "";
OTHER_REZFLAGS = "";
- PER_ARCH_CFLAGS_i386 = "-O3 -falign-functions=16 -fno-gcse -mtune=prescott -march=pentium-m -mfpmath=sse -finline-functions -Wall -DUSE_INLINE_MEMORY_ACCESSORS";
+ PER_ARCH_CFLAGS_i386 = "-O3 -falign-functions=16 -fno-gcse -mtune=prescott -march=pentium4 -mfpmath=sse -finline-functions -Wall -DUSE_INLINE_MEMORY_ACCESSORS";
PRODUCT_NAME = "Newspeak Virtual Machine";
SECTORDER_FLAGS = "";
WARNING_CFLAGS = "";
Modified: branches/Cog/nscogbuild/macbuild/CoreVM.xcodeproj/project.pbxproj
===================================================================
--- branches/Cog/nscogbuild/macbuild/CoreVM.xcodeproj/project.pbxproj 2014-05-11 16:05:51 UTC (rev 2921)
+++ branches/Cog/nscogbuild/macbuild/CoreVM.xcodeproj/project.pbxproj 2014-05-20 02:14:03 UTC (rev 2922)
@@ -1865,7 +1865,7 @@
MACOSX_DEPLOYMENT_TARGET = 10.5;
OTHER_LDFLAGS = "";
OTHER_REZFLAGS = "";
- PER_ARCH_CFLAGS_i386 = "-O3 -falign-functions=16 -fno-gcse -mtune=prescott -march=pentium-m -mfpmath=sse -finline-functions -Wall -DUSE_INLINE_MEMORY_ACCESSORS";
+ PER_ARCH_CFLAGS_i386 = "-O3 -falign-functions=16 -fno-gcse -mtune=prescott -march=pentium4 -mfpmath=sse -finline-functions -Wall -DUSE_INLINE_MEMORY_ACCESSORS";
PRODUCT_NAME = "Newspeak Virtual Machine";
SECTORDER_FLAGS = "";
WARNING_CFLAGS = "";
Modified: branches/Cog/nsspurcogbuild/macbuild/CoreVM.xcodeproj/project.pbxproj
===================================================================
--- branches/Cog/nsspurcogbuild/macbuild/CoreVM.xcodeproj/project.pbxproj 2014-05-11 16:05:51 UTC (rev 2921)
+++ branches/Cog/nsspurcogbuild/macbuild/CoreVM.xcodeproj/project.pbxproj 2014-05-20 02:14:03 UTC (rev 2922)
@@ -1858,7 +1858,7 @@
MACOSX_DEPLOYMENT_TARGET = 10.5;
OTHER_LDFLAGS = "";
OTHER_REZFLAGS = "";
- PER_ARCH_CFLAGS_i386 = "-O3 -falign-functions=16 -fno-gcse -mtune=prescott -march=pentium-m -mfpmath=sse -finline-functions -Wall -DUSE_INLINE_MEMORY_ACCESSORS";
+ PER_ARCH_CFLAGS_i386 = "-O3 -falign-functions=16 -fno-gcse -mtune=prescott -march=pentium4 -mfpmath=sse -finline-functions -Wall -DUSE_INLINE_MEMORY_ACCESSORS";
PRODUCT_NAME = "Newspeak Virtual Machine";
SECTORDER_FLAGS = "";
WARNING_CFLAGS = "";
Modified: branches/Cog/nsspursrc/vm/cogit.c
===================================================================
--- branches/Cog/nsspursrc/vm/cogit.c 2014-05-11 16:05:51 UTC (rev 2921)
+++ branches/Cog/nsspursrc/vm/cogit.c 2014-05-20 02:14:03 UTC (rev 2922)
@@ -1,9 +1,9 @@
/* Automatically generated by
- CCodeGenerator VMMaker.oscog-eem.712 uuid: 2f12e8dd-7da6-4358-9eb4-ba4782b7206d
+ CCodeGenerator VMMaker.oscog-eem.723 uuid: 7e7f66ea-1471-4c21-9040-bd4ba88fea7f
from
- StackToRegisterMappingCogit VMMaker.oscog-eem.712 uuid: 2f12e8dd-7da6-4358-9eb4-ba4782b7206d
+ StackToRegisterMappingCogit VMMaker.oscog-eem.723 uuid: 7e7f66ea-1471-4c21-9040-bd4ba88fea7f
*/
-static char __buildInfo[] = "StackToRegisterMappingCogit VMMaker.oscog-eem.712 uuid: 2f12e8dd-7da6-4358-9eb4-ba4782b7206d " __DATE__ ;
+static char __buildInfo[] = "StackToRegisterMappingCogit VMMaker.oscog-eem.723 uuid: 7e7f66ea-1471-4c21-9040-bd4ba88fea7f " __DATE__ ;
char *__cogitBuildInfo = __buildInfo;
@@ -343,200 +343,210 @@
/*** Function Prototypes ***/
-static AbstractInstruction * gAndCqR(sqInt quickConstant, sqInt reg);
-static AbstractInstruction * gArithmeticShiftRightRR(sqInt reg1, sqInt reg2);
+
+
+#if defined(PRODUCTION) && !PRODUCTION && defined(__GNUC__) && !defined(NoDbgRegParms)
+# define NoDbgRegParms __attribute__ ((regparm (0)))
+#endif
+
+#if !defined(NoDbgRegParms)
+# define NoDbgRegParms /*empty*/
+#endif
+
+static AbstractInstruction * gAndCqR(sqInt quickConstant, sqInt reg) NoDbgRegParms;
+static AbstractInstruction * gArithmeticShiftRightRR(sqInt reg1, sqInt reg2) NoDbgRegParms;
sqInt abortOffset(void);
-static sqInt abstractInstructionfollows(AbstractInstruction *theAbstractInstruction, AbstractInstruction *anAbstractInstruction);
-static sqInt abstractRegisterForConcreteRegister(AbstractInstruction * self_in_abstractRegisterForConcreteRegister, sqInt reg);
-static BlockStart * addBlockStartAtnumArgsnumCopiedspan(sqInt bytecodepc, sqInt numArgs, sqInt numCopied, sqInt span);
+static sqInt abstractInstructionfollows(AbstractInstruction *theAbstractInstruction, AbstractInstruction *anAbstractInstruction) NoDbgRegParms;
+static sqInt abstractRegisterForConcreteRegister(AbstractInstruction * self_in_abstractRegisterForConcreteRegister, sqInt reg) NoDbgRegParms;
+static BlockStart * addBlockStartAtnumArgsnumCopiedspan(sqInt bytecodepc, sqInt numArgs, sqInt numCopied, sqInt span) NoDbgRegParms;
static void addCleanBlockStarts(void);
void addCogMethodsToHeapMap(void);
-static AbstractInstruction * addDependent(AbstractInstruction * self_in_addDependent, AbstractInstruction *anInstruction);
-static sqInt addressIsInFixups(AbstractInstruction *address);
-static sqInt addressIsInInstructions(AbstractInstruction *address);
-static sqInt addressOfEndOfCaseinCPIC(sqInt n, CogMethod *cPIC);
-static void addToOpenPICList(CogMethod *anOpenPIC);
-static void addToUnpairedMethodList(CogMethod *aCogMethod);
-static void addToYoungReferrers(CogMethod *cogMethod);
-static sqInt alignUptoRoutineBoundary(sqInt anAddress);
+static AbstractInstruction * addDependent(AbstractInstruction * self_in_addDependent, AbstractInstruction *anInstruction) NoDbgRegParms;
+static sqInt addressIsInFixups(AbstractInstruction *address) NoDbgRegParms;
+static sqInt addressIsInInstructions(AbstractInstruction *address) NoDbgRegParms;
+static sqInt addressOfEndOfCaseinCPIC(sqInt n, CogMethod *cPIC) NoDbgRegParms;
+static void addToOpenPICList(CogMethod *anOpenPIC) NoDbgRegParms;
+static void addToUnpairedMethodList(CogMethod *aCogMethod) NoDbgRegParms;
+static void addToYoungReferrers(CogMethod *cogMethod) NoDbgRegParms;
+static sqInt alignUptoRoutineBoundary(sqInt anAddress) NoDbgRegParms;
static sqInt allMachineCodeObjectReferencesValid(void);
static sqInt allMethodsHaveCorrectHeader(void);
-static sqInt allocate(sqInt numBytes);
+static sqInt allocate(sqInt numBytes) NoDbgRegParms;
static sqInt allYoungObjectsAgeInFullGC(void);
-static AbstractInstruction * annotateAbsolutePCRef(AbstractInstruction *abstractInstruction);
-static void annotateBytecodeIfAnnotated(CogSimStackEntry *aSimStackEntry);
-static AbstractInstruction * annotateBytecode(AbstractInstruction *abstractInstruction);
-static AbstractInstruction * annotateobjRef(AbstractInstruction *abstractInstruction, sqInt anOop);
-static AbstractInstruction * annotatewith(AbstractInstruction *abstractInstruction, sqInt annotationFlag);
-static sqInt anyReferencesToRegisterinTopNItems(sqInt reg, sqInt n);
-static void assertSaneJumpTarget(AbstractInstruction *jumpTarget);
+static AbstractInstruction * annotateAbsolutePCRef(AbstractInstruction *abstractInstruction) NoDbgRegParms;
+static void annotateBytecodeIfAnnotated(CogSimStackEntry *aSimStackEntry) NoDbgRegParms;
+static AbstractInstruction * annotateBytecode(AbstractInstruction *abstractInstruction) NoDbgRegParms;
+static AbstractInstruction * annotateobjRef(AbstractInstruction *abstractInstruction, sqInt anOop) NoDbgRegParms;
+static AbstractInstruction * annotatewith(AbstractInstruction *abstractInstruction, sqInt annotationFlag) NoDbgRegParms;
+static sqInt anyReferencesToRegisterinTopNItems(sqInt reg, sqInt n) NoDbgRegParms;
+static void assertSaneJumpTarget(AbstractInstruction *jumpTarget) NoDbgRegParms;
static sqInt availableRegisterOrNil(void);
-static sqInt blockCreationBytecodeSizeForHeader(sqInt methodHeader);
-static sqInt blockDispatchTargetsForperformarg(CogMethod *cogMethod, usqInt (*binaryFunction)(sqInt mcpc, sqInt arg), sqInt arg);
+static sqInt blockCreationBytecodeSizeForHeader(sqInt methodHeader) NoDbgRegParms;
+static sqInt blockDispatchTargetsForperformarg(CogMethod *cogMethod, usqInt (*binaryFunction)(sqInt mcpc, sqInt arg), sqInt arg) NoDbgRegParms;
sqInt bytecodePCForstartBcpcin(sqInt mcpc, sqInt startbcpc, CogBlockMethod *cogMethod);
-static AbstractInstruction * CallNewspeakSend(sqInt callTarget);
-static AbstractInstruction * CallRT(sqInt callTarget);
-static AbstractInstruction * CallRTregistersToBeSavedMask(sqInt callTarget, sqInt registersToBeSaved);
-static AbstractInstruction * CallSend(sqInt callTarget);
-static AbstractInstruction * gCmpCqR(sqInt quickConstant, sqInt reg);
-static AbstractInstruction * gCmpCwR(sqInt wordConstant, sqInt reg);
-static AbstractInstruction * gCmpRR(sqInt reg1, sqInt reg2);
-static sqInt cacheTagIsMarked(sqInt cacheTag);
-static sqInt callerSavedRegisterMask(AbstractInstruction * self_in_callerSavedRegisterMask);
-static sqInt callInstructionByteSize(AbstractInstruction * self_in_callInstructionByteSize);
+static AbstractInstruction * CallNewspeakSend(sqInt callTarget) NoDbgRegParms;
+static AbstractInstruction * CallRT(sqInt callTarget) NoDbgRegParms;
+static AbstractInstruction * CallRTregistersToBeSavedMask(sqInt callTarget, sqInt registersToBeSaved) NoDbgRegParms;
+static AbstractInstruction * CallSend(sqInt callTarget) NoDbgRegParms;
+static AbstractInstruction * gCmpCqR(sqInt quickConstant, sqInt reg) NoDbgRegParms;
+static AbstractInstruction * gCmpCwR(sqInt wordConstant, sqInt reg) NoDbgRegParms;
+static AbstractInstruction * gCmpRR(sqInt reg1, sqInt reg2) NoDbgRegParms;
+static sqInt cacheTagIsMarked(sqInt cacheTag) NoDbgRegParms;
+static sqInt callerSavedRegisterMask(AbstractInstruction * self_in_callerSavedRegisterMask) NoDbgRegParms;
+static sqInt callInstructionByteSize(AbstractInstruction * self_in_callInstructionByteSize) NoDbgRegParms;
static sqInt callPrimitiveBytecode(void);
-static sqInt callsAreRelative(AbstractInstruction * self_in_callsAreRelative);
-static sqInt callTargetFromReturnAddress(AbstractInstruction * self_in_callTargetFromReturnAddress, sqInt callSiteReturnAddress);
-static sqInt canDivQuoRem(AbstractInstruction * self_in_canDivQuoRem);
-static sqInt canMulRR(AbstractInstruction * self_in_canMulRR);
-static sqInt ceClosureCopyDescriptor(sqInt descriptor);
+static sqInt callsAreRelative(AbstractInstruction * self_in_callsAreRelative) NoDbgRegParms;
+static sqInt callTargetFromReturnAddress(AbstractInstruction * self_in_callTargetFromReturnAddress, sqInt callSiteReturnAddress) NoDbgRegParms;
+static sqInt canDivQuoRem(AbstractInstruction * self_in_canDivQuoRem) NoDbgRegParms;
+static sqInt canMulRR(AbstractInstruction * self_in_canMulRR) NoDbgRegParms;
+static sqInt ceClosureCopyDescriptor(sqInt descriptor) NoDbgRegParms;
sqInt ceCPICMissreceiver(CogMethod *cPIC, sqInt receiver);
-static sqInt ceImplicitReceiverForreceiverclass(sqInt selector, sqInt receiver, sqInt rcvrClass);
+static sqInt ceImplicitReceiverForreceiverclass(sqInt selector, sqInt receiver, sqInt rcvrClass) NoDbgRegParms;
sqInt ceSICMiss(sqInt receiver);
void checkAssertsEnabledInCogit(void);
-static sqInt checkIfValidOopRefAndTargetpccogMethod(sqInt annotation, char *mcpc, sqInt cogMethod);
-static sqInt checkIfValidOopRefpccogMethod(sqInt annotation, char *mcpc, sqInt cogMethod);
+static sqInt checkIfValidOopRefAndTargetpccogMethod(sqInt annotation, char *mcpc, sqInt cogMethod) NoDbgRegParms;
+static sqInt checkIfValidOopRefpccogMethod(sqInt annotation, char *mcpc, sqInt cogMethod) NoDbgRegParms;
sqInt checkIntegrityOfObjectReferencesInCode(sqInt fullGCFlag);
-static sqInt checkMaybeObjRefAt(sqInt mcpc);
+static sqInt checkMaybeObjRefAt(sqInt mcpc) NoDbgRegParms;
static void checkPrimitiveTableEnablers(void);
-static sqInt checkValidInlineCacheTag(sqInt classIndexOrTagPattern);
-static sqInt checkValidObjectReferencesInClosedPIC(CogMethod *cPIC);
-static sqInt checkValidObjectReference(sqInt anOop);
-static sqInt checkValidOopReference(sqInt anOop);
+static sqInt checkValidInlineCacheTag(sqInt classIndexOrTagPattern) NoDbgRegParms;
+static sqInt checkValidObjectReferencesInClosedPIC(CogMethod *cPIC) NoDbgRegParms;
+static sqInt checkValidObjectReference(sqInt anOop) NoDbgRegParms;
+static sqInt checkValidOopReference(sqInt anOop) NoDbgRegParms;
static void clearCogCompiledCode(void);
-static CogMethod * cmHomeMethod(CogBlockMethod * self_in_cmHomeMethod);
+static CogMethod * cmHomeMethod(CogBlockMethod * self_in_cmHomeMethod) NoDbgRegParms;
char * codeEntryFor(char *address);
char * codeEntryNameFor(char *address);
sqInt cogCodeBase(void);
sqInt cogCodeConstituents(void);
-static sqInt cogExtendPICCaseNMethodtagisMNUCase(CogMethod *cPIC, sqInt caseNMethod, sqInt caseNTag, sqInt isMNUCase);
+static sqInt cogExtendPICCaseNMethodtagisMNUCase(CogMethod *cPIC, sqInt caseNMethod, sqInt caseNTag, sqInt isMNUCase) NoDbgRegParms;
void cogitPostGCAction(sqInt gcMode);
sqInt cogMethodDoesntLookKosher(CogMethod *cogMethod);
CogMethod * cogMNUPICSelectormethodOperandnumArgs(sqInt selector, sqInt methodOperand, sqInt numArgs);
-static CogMethod * cogOpenPICSelectornumArgs(sqInt selector, sqInt numArgs);
-static CogMethod * cogPICSelectornumArgsCase0MethodCase1MethodtagisMNUCase(sqInt selector, sqInt numArgs, CogMethod *case0CogMethod, sqInt case1MethodOrNil, sqInt case1Tag, sqInt isMNUCase);
+static CogMethod * cogOpenPICSelectornumArgs(sqInt selector, sqInt numArgs) NoDbgRegParms;
+static CogMethod * cogPICSelectornumArgsCase0MethodCase1MethodtagisMNUCase(sqInt selector, sqInt numArgs, CogMethod *case0CogMethod, sqInt case1MethodOrNil, sqInt case1Tag, sqInt isMNUCase) NoDbgRegParms;
CogMethod * cogselector(sqInt aMethodObj, sqInt aSelectorOop);
void compactCogCompiledCode(void);
static void compactCompiledCode(void);
static void compileAbort(void);
-static sqInt compileAbstractInstructionsFromthrough(sqInt start, sqInt end);
+static sqInt compileAbstractInstructionsFromthrough(sqInt start, sqInt end) NoDbgRegParms;
static sqInt compileBlockBodies(void);
static sqInt compileBlockDispatch(void);
-static sqInt compileBlockDispatchFromto(sqInt lowBlockStartIndex, sqInt highBlockStartIndex);
-static void compileBlockEntry(BlockStart *blockStart);
-static void compileBlockFrameBuild(BlockStart *blockStart);
-static void compileBlockFramelessEntry(BlockStart *blockStart);
+static sqInt compileBlockDispatchFromto(sqInt lowBlockStartIndex, sqInt highBlockStartIndex) NoDbgRegParms;
+static void compileBlockEntry(BlockStart *blockStart) NoDbgRegParms;
+static void compileBlockFrameBuild(BlockStart *blockStart) NoDbgRegParms;
+static void compileBlockFramelessEntry(BlockStart *blockStart) NoDbgRegParms;
static sqInt compileClosedPICPrototype(void);
-static CogMethod * compileCogMethod(sqInt selector);
+static CogMethod * compileCogMethod(sqInt selector) NoDbgRegParms;
static AbstractInstruction * compileCPICEntry(void);
-static sqInt compileCPICCase0Case1MethodtagisMNUCasenumArgs(CogMethod *cPIC, CogMethod *case0CogMethod, sqInt case1Method, sqInt case1Tag, sqInt isMNUCase, sqInt numArgs);
+static sqInt compileCPICCase0Case1MethodtagisMNUCasenumArgs(CogMethod *cPIC, CogMethod *case0CogMethod, sqInt case1Method, sqInt case1Tag, sqInt isMNUCase, sqInt numArgs) NoDbgRegParms;
static sqInt compileEntireMethod(void);
static void compileEntry(void);
static sqInt compileFallbackToInterpreterPrimitive(void);
static sqInt compileFrameBuild(void);
static void compileGetErrorCode(void);
-static sqInt compileInterpreterPrimitive(void (*primitiveRoutine)(void));
+static sqInt compileInterpreterPrimitive(void (*primitiveRoutine)(void)) NoDbgRegParms;
static sqInt compileMethodBody(void);
-static sqInt compileMNUCPICmethodOperandnumArgs(CogMethod *cPIC, sqInt methodOperand, sqInt numArgs);
-static void compileOpenPICnumArgs(sqInt selector, sqInt numArgs);
-static sqInt compilePICProlog(sqInt numArgs);
+static sqInt compileMNUCPICmethodOperandnumArgs(CogMethod *cPIC, sqInt methodOperand, sqInt numArgs) NoDbgRegParms;
+static void compileOpenPICnumArgs(sqInt selector, sqInt numArgs) NoDbgRegParms;
+static sqInt compilePICProlog(sqInt numArgs) NoDbgRegParms;
static sqInt compilePrimitive(void);
-static void compileTrampolineForcallJumpBarnumArgsargargargargsaveRegsresultReg(void *aRoutine, sqInt callJumpBar, sqInt numArgs, sqInt regOrConst0, sqInt regOrConst1, sqInt regOrConst2, sqInt regOrConst3, sqInt saveRegs, sqInt resultRegOrNil);
+static void compileTrampolineForcallJumpBarnumArgsargargargargsaveRegsresultReg(void *aRoutine, sqInt callJumpBar, sqInt numArgs, sqInt regOrConst0, sqInt regOrConst1, sqInt regOrConst2, sqInt regOrConst3, sqInt saveRegs, sqInt resultRegOrNil) NoDbgRegParms;
static void computeEntryOffsets(void);
-static sqInt computeJumpTargetOffsetPlus(AbstractInstruction * self_in_computeJumpTargetOffsetPlus, sqInt anPCOffset);
-static sqInt computeMaximumSize(AbstractInstruction * self_in_computeMaximumSize);
+static sqInt computeJumpTargetOffsetPlus(AbstractInstruction * self_in_computeJumpTargetOffsetPlus, sqInt anPCOffset) NoDbgRegParms;
+static sqInt computeMaximumSize(AbstractInstruction * self_in_computeMaximumSize) NoDbgRegParms;
static void computeMaximumSizes(void);
-static sqInt computeShiftRRSize(AbstractInstruction * self_in_computeShiftRRSize);
-static sqInt concreteDPFPRegister(AbstractInstruction * self_in_concreteDPFPRegister, sqInt registerIndex);
-static sqInt concreteRegister(AbstractInstruction * self_in_concreteRegister, sqInt registerIndex);
-static sqInt concretizeAddCqR(AbstractInstruction * self_in_concretizeAddCqR);
-static sqInt concretizeAddCwR(AbstractInstruction * self_in_concretizeAddCwR);
-static sqInt concretizeAddRR(AbstractInstruction * self_in_concretizeAddRR);
-static AbstractInstruction * concretizeAlignmentNops(AbstractInstruction * self_in_concretizeAlignmentNops);
-static sqInt concretizeAndCqR(AbstractInstruction * self_in_concretizeAndCqR);
-static sqInt concretizeAndCwR(AbstractInstruction * self_in_concretizeAndCwR);
-static sqInt concretizeAndRR(AbstractInstruction * self_in_concretizeAndRR);
-static sqInt concretizeArithmeticShiftRightCqR(AbstractInstruction * self_in_concretizeArithmeticShiftRightCqR);
-static sqInt concretizeArithmeticShiftRightRR(AbstractInstruction * self_in_concretizeArithmeticShiftRightRR);
-static sqInt concretizeAt(AbstractInstruction * self_in_concretizeAt, sqInt actualAddress);
-static sqInt concretizeCall(AbstractInstruction * self_in_concretizeCall);
-static sqInt concretizeCDQ(AbstractInstruction * self_in_concretizeCDQ);
-static sqInt concretizeCMPXCHGAwR(AbstractInstruction * self_in_concretizeCMPXCHGAwR);
-static sqInt concretizeCMPXCHGMwrR(AbstractInstruction * self_in_concretizeCMPXCHGMwrR);
-static sqInt concretizeCmpCqR(AbstractInstruction * self_in_concretizeCmpCqR);
-static sqInt concretizeCmpCwR(AbstractInstruction * self_in_concretizeCmpCwR);
-static sqInt concretizeCmpRdRd(AbstractInstruction * self_in_concretizeCmpRdRd);
-static sqInt concretizeCmpRR(AbstractInstruction * self_in_concretizeCmpRR);
-static sqInt concretizeConditionalJumpLong(AbstractInstruction * self_in_concretizeConditionalJumpLong, sqInt conditionCode);
-static sqInt concretizeConditionalJump(AbstractInstruction * self_in_concretizeConditionalJump, sqInt conditionCode);
-static sqInt concretizeConvertRRd(AbstractInstruction * self_in_concretizeConvertRRd);
-static sqInt concretizeCPUID(AbstractInstruction * self_in_concretizeCPUID);
-static sqInt concretizeFENCE(AbstractInstruction * self_in_concretizeFENCE, sqInt regOpcode);
-static sqInt concretizeFill16(AbstractInstruction * self_in_concretizeFill16);
-static sqInt concretizeFill32(AbstractInstruction * self_in_concretizeFill32);
-static sqInt concretizeFillFromWord(AbstractInstruction * self_in_concretizeFillFromWord);
-static sqInt concretizeIDIVR(AbstractInstruction * self_in_concretizeIDIVR);
-static sqInt concretizeJump(AbstractInstruction * self_in_concretizeJump);
-static sqInt concretizeJumpLong(AbstractInstruction * self_in_concretizeJumpLong);
-static sqInt concretizeJumpR(AbstractInstruction * self_in_concretizeJumpR);
-static sqInt concretizeLabel(AbstractInstruction * self_in_concretizeLabel);
-static sqInt concretizeLOCK(AbstractInstruction * self_in_concretizeLOCK);
-static sqInt concretizeLoadEffectiveAddressMwrR(AbstractInstruction * self_in_concretizeLoadEffectiveAddressMwrR);
-static sqInt concretizeLogicalShiftLeftCqR(AbstractInstruction * self_in_concretizeLogicalShiftLeftCqR);
-static sqInt concretizeLogicalShiftLeftRR(AbstractInstruction * self_in_concretizeLogicalShiftLeftRR);
-static sqInt concretizeLogicalShiftRightCqR(AbstractInstruction * self_in_concretizeLogicalShiftRightCqR);
-static sqInt concretizeMoveAwR(AbstractInstruction * self_in_concretizeMoveAwR);
-static sqInt concretizeMoveCqR(AbstractInstruction * self_in_concretizeMoveCqR);
-static sqInt concretizeMoveCwR(AbstractInstruction * self_in_concretizeMoveCwR);
-static sqInt concretizeMoveM16rR(AbstractInstruction * self_in_concretizeMoveM16rR);
-static sqInt concretizeMoveM64rRd(AbstractInstruction * self_in_concretizeMoveM64rRd);
-static sqInt concretizeMoveMbrR(AbstractInstruction * self_in_concretizeMoveMbrR);
-static sqInt concretizeMoveMwrR(AbstractInstruction * self_in_concretizeMoveMwrR);
-static sqInt concretizeMoveRAw(AbstractInstruction * self_in_concretizeMoveRAw);
-static sqInt concretizeMoveRdM64r(AbstractInstruction * self_in_concretizeMoveRdM64r);
-static sqInt concretizeMoveRMbr(AbstractInstruction * self_in_concretizeMoveRMbr);
-static sqInt concretizeMoveRMwr(AbstractInstruction * self_in_concretizeMoveRMwr);
-static sqInt concretizeMoveRR(AbstractInstruction * self_in_concretizeMoveRR);
-static sqInt concretizeMoveRXbrR(AbstractInstruction * self_in_concretizeMoveRXbrR);
-static sqInt concretizeMoveRXwrR(AbstractInstruction * self_in_concretizeMoveRXwrR);
-static sqInt concretizeMoveXbrRR(AbstractInstruction * self_in_concretizeMoveXbrRR);
-static sqInt concretizeMoveXwrRR(AbstractInstruction * self_in_concretizeMoveXwrRR);
-static sqInt concretizeMulRR(AbstractInstruction * self_in_concretizeMulRR);
-static sqInt concretizeNegateR(AbstractInstruction * self_in_concretizeNegateR);
-static sqInt concretizeNop(AbstractInstruction * self_in_concretizeNop);
-static sqInt concretizeOrCqR(AbstractInstruction * self_in_concretizeOrCqR);
-static sqInt concretizeOrCwR(AbstractInstruction * self_in_concretizeOrCwR);
-static sqInt concretizeOrRR(AbstractInstruction * self_in_concretizeOrRR);
-static sqInt concretizePopR(AbstractInstruction * self_in_concretizePopR);
-static sqInt concretizePrefetchAw(AbstractInstruction * self_in_concretizePrefetchAw);
-static sqInt concretizePushCw(AbstractInstruction * self_in_concretizePushCw);
-static sqInt concretizePushR(AbstractInstruction * self_in_concretizePushR);
-static sqInt concretizeRetN(AbstractInstruction * self_in_concretizeRetN);
-static sqInt concretizeSEE2OpRdRd(AbstractInstruction * self_in_concretizeSEE2OpRdRd, sqInt opCode);
-static sqInt concretizeSqrtRd(AbstractInstruction * self_in_concretizeSqrtRd);
-static sqInt concretizeSubCqR(AbstractInstruction * self_in_concretizeSubCqR);
-static sqInt concretizeSubCwR(AbstractInstruction * self_in_concretizeSubCwR);
-static sqInt concretizeSubRR(AbstractInstruction * self_in_concretizeSubRR);
-static sqInt concretizeXCHGAwR(AbstractInstruction * self_in_concretizeXCHGAwR);
-static sqInt concretizeXCHGMwrR(AbstractInstruction * self_in_concretizeXCHGMwrR);
-static sqInt concretizeXCHGRR(AbstractInstruction * self_in_concretizeXCHGRR);
-static sqInt concretizeXorCwR(AbstractInstruction * self_in_concretizeXorCwR);
-static sqInt concretizeXorRR(AbstractInstruction * self_in_concretizeXorRR);
-static sqInt couldBeObject(sqInt literal);
-static sqInt counterTargetFromFollowingAddress(AbstractInstruction * self_in_counterTargetFromFollowingAddress, sqInt nextInstructionAddress);
-static sqInt cPICHasFreedTargets(CogMethod *cPIC);
-static sqInt cPICMissTrampolineFor(sqInt numArgs);
-static sqInt cPICHasTarget(CogMethod *cPIC, CogMethod *targetMethod);
-static sqInt cResultRegister(AbstractInstruction * self_in_cResultRegister);
-static AbstractInstruction * gDivRRQuoRem(sqInt rDivisor, sqInt rDividend, sqInt rQuotient, sqInt rRemainder);
-static void dispatchConcretize(AbstractInstruction * self_in_dispatchConcretize);
+static sqInt computeShiftRRSize(AbstractInstruction * self_in_computeShiftRRSize) NoDbgRegParms;
+static sqInt concreteDPFPRegister(AbstractInstruction * self_in_concreteDPFPRegister, sqInt registerIndex) NoDbgRegParms;
+static sqInt concreteRegister(AbstractInstruction * self_in_concreteRegister, sqInt registerIndex) NoDbgRegParms;
+static sqInt concretizeAddCqR(AbstractInstruction * self_in_concretizeAddCqR) NoDbgRegParms;
+static sqInt concretizeAddCwR(AbstractInstruction * self_in_concretizeAddCwR) NoDbgRegParms;
+static sqInt concretizeAddRR(AbstractInstruction * self_in_concretizeAddRR) NoDbgRegParms;
+static AbstractInstruction * concretizeAlignmentNops(AbstractInstruction * self_in_concretizeAlignmentNops) NoDbgRegParms;
+static sqInt concretizeAndCqR(AbstractInstruction * self_in_concretizeAndCqR) NoDbgRegParms;
+static sqInt concretizeAndCwR(AbstractInstruction * self_in_concretizeAndCwR) NoDbgRegParms;
+static sqInt concretizeAndRR(AbstractInstruction * self_in_concretizeAndRR) NoDbgRegParms;
+static sqInt concretizeArithmeticShiftRightCqR(AbstractInstruction * self_in_concretizeArithmeticShiftRightCqR) NoDbgRegParms;
+static sqInt concretizeArithmeticShiftRightRR(AbstractInstruction * self_in_concretizeArithmeticShiftRightRR) NoDbgRegParms;
+static sqInt concretizeAt(AbstractInstruction * self_in_concretizeAt, sqInt actualAddress) NoDbgRegParms;
+static sqInt concretizeCall(AbstractInstruction * self_in_concretizeCall) NoDbgRegParms;
+static sqInt concretizeCDQ(AbstractInstruction * self_in_concretizeCDQ) NoDbgRegParms;
+static sqInt concretizeCMPXCHGAwR(AbstractInstruction * self_in_concretizeCMPXCHGAwR) NoDbgRegParms;
+static sqInt concretizeCMPXCHGMwrR(AbstractInstruction * self_in_concretizeCMPXCHGMwrR) NoDbgRegParms;
+static sqInt concretizeCmpCqR(AbstractInstruction * self_in_concretizeCmpCqR) NoDbgRegParms;
+static sqInt concretizeCmpCwR(AbstractInstruction * self_in_concretizeCmpCwR) NoDbgRegParms;
+static sqInt concretizeCmpRdRd(AbstractInstruction * self_in_concretizeCmpRdRd) NoDbgRegParms;
+static sqInt concretizeCmpRR(AbstractInstruction * self_in_concretizeCmpRR) NoDbgRegParms;
+static sqInt concretizeConditionalJumpLong(AbstractInstruction * self_in_concretizeConditionalJumpLong, sqInt conditionCode) NoDbgRegParms;
+static sqInt concretizeConditionalJump(AbstractInstruction * self_in_concretizeConditionalJump, sqInt conditionCode) NoDbgRegParms;
+static sqInt concretizeConvertRRd(AbstractInstruction * self_in_concretizeConvertRRd) NoDbgRegParms;
+static sqInt concretizeCPUID(AbstractInstruction * self_in_concretizeCPUID) NoDbgRegParms;
+static sqInt concretizeFENCE(AbstractInstruction * self_in_concretizeFENCE, sqInt regOpcode) NoDbgRegParms;
+static sqInt concretizeFill16(AbstractInstruction * self_in_concretizeFill16) NoDbgRegParms;
+static sqInt concretizeFill32(AbstractInstruction * self_in_concretizeFill32) NoDbgRegParms;
+static sqInt concretizeFillFromWord(AbstractInstruction * self_in_concretizeFillFromWord) NoDbgRegParms;
+static sqInt concretizeIDIVR(AbstractInstruction * self_in_concretizeIDIVR) NoDbgRegParms;
+static sqInt concretizeJump(AbstractInstruction * self_in_concretizeJump) NoDbgRegParms;
+static sqInt concretizeJumpLong(AbstractInstruction * self_in_concretizeJumpLong) NoDbgRegParms;
+static sqInt concretizeJumpR(AbstractInstruction * self_in_concretizeJumpR) NoDbgRegParms;
+static sqInt concretizeLabel(AbstractInstruction * self_in_concretizeLabel) NoDbgRegParms;
+static sqInt concretizeLOCK(AbstractInstruction * self_in_concretizeLOCK) NoDbgRegParms;
+static sqInt concretizeLoadEffectiveAddressMwrR(AbstractInstruction * self_in_concretizeLoadEffectiveAddressMwrR) NoDbgRegParms;
+static sqInt concretizeLogicalShiftLeftCqR(AbstractInstruction * self_in_concretizeLogicalShiftLeftCqR) NoDbgRegParms;
+static sqInt concretizeLogicalShiftLeftRR(AbstractInstruction * self_in_concretizeLogicalShiftLeftRR) NoDbgRegParms;
+static sqInt concretizeLogicalShiftRightCqR(AbstractInstruction * self_in_concretizeLogicalShiftRightCqR) NoDbgRegParms;
+static sqInt concretizeMoveAwR(AbstractInstruction * self_in_concretizeMoveAwR) NoDbgRegParms;
+static sqInt concretizeMoveCqR(AbstractInstruction * self_in_concretizeMoveCqR) NoDbgRegParms;
+static sqInt concretizeMoveCwR(AbstractInstruction * self_in_concretizeMoveCwR) NoDbgRegParms;
+static sqInt concretizeMoveM16rR(AbstractInstruction * self_in_concretizeMoveM16rR) NoDbgRegParms;
+static sqInt concretizeMoveM64rRd(AbstractInstruction * self_in_concretizeMoveM64rRd) NoDbgRegParms;
+static sqInt concretizeMoveMbrR(AbstractInstruction * self_in_concretizeMoveMbrR) NoDbgRegParms;
+static sqInt concretizeMoveMwrR(AbstractInstruction * self_in_concretizeMoveMwrR) NoDbgRegParms;
+static sqInt concretizeMoveRAw(AbstractInstruction * self_in_concretizeMoveRAw) NoDbgRegParms;
+static sqInt concretizeMoveRdM64r(AbstractInstruction * self_in_concretizeMoveRdM64r) NoDbgRegParms;
+static sqInt concretizeMoveRMbr(AbstractInstruction * self_in_concretizeMoveRMbr) NoDbgRegParms;
+static sqInt concretizeMoveRMwr(AbstractInstruction * self_in_concretizeMoveRMwr) NoDbgRegParms;
+static sqInt concretizeMoveRR(AbstractInstruction * self_in_concretizeMoveRR) NoDbgRegParms;
+static sqInt concretizeMoveRXbrR(AbstractInstruction * self_in_concretizeMoveRXbrR) NoDbgRegParms;
+static sqInt concretizeMoveRXwrR(AbstractInstruction * self_in_concretizeMoveRXwrR) NoDbgRegParms;
+static sqInt concretizeMoveXbrRR(AbstractInstruction * self_in_concretizeMoveXbrRR) NoDbgRegParms;
+static sqInt concretizeMoveXwrRR(AbstractInstruction * self_in_concretizeMoveXwrRR) NoDbgRegParms;
+static sqInt concretizeMulRR(AbstractInstruction * self_in_concretizeMulRR) NoDbgRegParms;
+static sqInt concretizeNegateR(AbstractInstruction * self_in_concretizeNegateR) NoDbgRegParms;
+static sqInt concretizeNop(AbstractInstruction * self_in_concretizeNop) NoDbgRegParms;
+static sqInt concretizeOrCqR(AbstractInstruction * self_in_concretizeOrCqR) NoDbgRegParms;
+static sqInt concretizeOrCwR(AbstractInstruction * self_in_concretizeOrCwR) NoDbgRegParms;
+static sqInt concretizeOrRR(AbstractInstruction * self_in_concretizeOrRR) NoDbgRegParms;
+static sqInt concretizePopR(AbstractInstruction * self_in_concretizePopR) NoDbgRegParms;
+static sqInt concretizePrefetchAw(AbstractInstruction * self_in_concretizePrefetchAw) NoDbgRegParms;
+static sqInt concretizePushCw(AbstractInstruction * self_in_concretizePushCw) NoDbgRegParms;
+static sqInt concretizePushR(AbstractInstruction * self_in_concretizePushR) NoDbgRegParms;
+static sqInt concretizeRetN(AbstractInstruction * self_in_concretizeRetN) NoDbgRegParms;
+static sqInt concretizeSEE2OpRdRd(AbstractInstruction * self_in_concretizeSEE2OpRdRd, sqInt opCode) NoDbgRegParms;
+static sqInt concretizeSqrtRd(AbstractInstruction * self_in_concretizeSqrtRd) NoDbgRegParms;
+static sqInt concretizeSubCqR(AbstractInstruction * self_in_concretizeSubCqR) NoDbgRegParms;
+static sqInt concretizeSubCwR(AbstractInstruction * self_in_concretizeSubCwR) NoDbgRegParms;
+static sqInt concretizeSubRR(AbstractInstruction * self_in_concretizeSubRR) NoDbgRegParms;
+static sqInt concretizeXCHGAwR(AbstractInstruction * self_in_concretizeXCHGAwR) NoDbgRegParms;
+static sqInt concretizeXCHGMwrR(AbstractInstruction * self_in_concretizeXCHGMwrR) NoDbgRegParms;
+static sqInt concretizeXCHGRR(AbstractInstruction * self_in_concretizeXCHGRR) NoDbgRegParms;
+static sqInt concretizeXorCwR(AbstractInstruction * self_in_concretizeXorCwR) NoDbgRegParms;
+static sqInt concretizeXorRR(AbstractInstruction * self_in_concretizeXorRR) NoDbgRegParms;
+static sqInt couldBeObject(sqInt literal) NoDbgRegParms;
+static sqInt counterTargetFromFollowingAddress(AbstractInstruction * self_in_counterTargetFromFollowingAddress, sqInt nextInstructionAddress) NoDbgRegParms;
+static sqInt cPICHasFreedTargets(CogMethod *cPIC) NoDbgRegParms;
+static sqInt cPICMissTrampolineFor(sqInt numArgs) NoDbgRegParms;
+static sqInt cPICHasTarget(CogMethod *cPIC, CogMethod *targetMethod) NoDbgRegParms;
+static sqInt cResultRegister(AbstractInstruction * self_in_cResultRegister) NoDbgRegParms;
+static AbstractInstruction * gDivRRQuoRem(sqInt rDivisor, sqInt rDividend, sqInt rQuotient, sqInt rRemainder) NoDbgRegParms;
+static void dispatchConcretize(AbstractInstruction * self_in_dispatchConcretize) NoDbgRegParms;
static sqInt doubleExtendedDoAnythingBytecode(void);
static sqInt duplicateTopBytecode(void);
-static sqInt endPCOf(sqInt aMethod);
-static BytecodeFixup * ensureFixupAt(sqInt targetIndex);
-static BytecodeFixup * ensureNonMergeFixupAt(sqInt targetIndex);
+static sqInt endPCOf(sqInt aMethod) NoDbgRegParms;
+static BytecodeFixup * ensureFixupAt(sqInt targetIndex) NoDbgRegParms;
+static BytecodeFixup * ensureNonMergeFixupAt(sqInt targetIndex) NoDbgRegParms;
static void ensureReceiverResultRegContainsSelf(void);
-static CogSimStackEntry * ensureSpilledAtfrom(CogSimStackEntry * self_in_ensureSpilledAtfrom, sqInt baseOffset, sqInt baseRegister);
+static CogSimStackEntry * ensureSpilledAtfrom(CogSimStackEntry * self_in_ensureSpilledAtfrom, sqInt baseOffset, sqInt baseRegister) NoDbgRegParms;
void enterCogCodePopReceiver(void);
void enterCogCodePopReceiverAndClassRegs(void);
void enterCogCodePopReceiverArg0Regs(void);
@@ -546,46 +556,46 @@
static sqInt extendedPushBytecode(void);
static sqInt extendedStoreAndPopBytecode(void);
static sqInt extendedStoreBytecode(void);
-static sqInt fillInBlockHeadersAt(sqInt startAddress);
-static CogMethod * fillInCPICHeadersizenumArgsnumCaseshasMNUCaseselector(CogMethod *pic, sqInt size, sqInt numArgs, sqInt numCases, sqInt hasMNUCase, sqInt selector);
-static CogMethod * fillInMethodHeadersizeselector(CogMethod *method, sqInt size, sqInt selector);
-static CogMethod * fillInOPICHeadersizenumArgsselector(CogMethod *pic, sqInt size, sqInt numArgs, sqInt selector);
-static usqInt findBlockMethodWithEntrystartBcpc(sqInt blockEntryMcpc, sqInt startBcpc);
-static sqInt findMapLocationForMcpcinMethod(sqInt targetMcpc, CogMethod *cogMethod);
+static sqInt fillInBlockHeadersAt(sqInt startAddress) NoDbgRegParms;
+static CogMethod * fillInCPICHeadersizenumArgsnumCaseshasMNUCaseselector(CogMethod *pic, sqInt size, sqInt numArgs, sqInt numCases, sqInt hasMNUCase, sqInt selector) NoDbgRegParms;
+static CogMethod * fillInMethodHeadersizeselector(CogMethod *method, sqInt size, sqInt selector) NoDbgRegParms;
+static CogMethod * fillInOPICHeadersizenumArgsselector(CogMethod *pic, sqInt size, sqInt numArgs, sqInt selector) NoDbgRegParms;
+static usqInt findBlockMethodWithEntrystartBcpc(sqInt blockEntryMcpc, sqInt startBcpc) NoDbgRegParms;
+static sqInt findMapLocationForMcpcinMethod(sqInt targetMcpc, CogMethod *cogMethod) NoDbgRegParms;
CogBlockMethod * findMethodForStartBcpcinHomeMethod(sqInt startbcpc, CogMethod *cogMethod);
-static CogMethod * findPreviouslyCompiledVersionOfwith(sqInt aMethodObj, sqInt aSelectorOop);
-static sqInt findIsBackwardBranchMcpcBcpcMatchingMcpc(BytecodeDescriptor *descriptor, sqInt isBackwardBranch, char *mcpc, sqInt bcpc, void *targetMcpc);
+static CogMethod * findPreviouslyCompiledVersionOfwith(sqInt aMethodObj, sqInt aSelectorOop) NoDbgRegParms;
+static sqInt findIsBackwardBranchMcpcBcpcMatchingMcpc(BytecodeDescriptor *descriptor, sqInt isBackwardBranch, char *mcpc, sqInt bcpc, void *targetMcpc) NoDbgRegParms;
void followForwardedLiteralsIn(CogMethod *cogMethod);
void followForwardedMethods(void);
-static sqInt followMaybeObjRefAt(sqInt mcpc);
-static sqInt followMethodReferencesInClosedPIC(CogMethod *cPIC);
-static sqInt frameOffsetOfTemporary(sqInt index);
-static void freeMethod(CogMethod *cogMethod);
+static sqInt followMaybeObjRefAt(sqInt mcpc) NoDbgRegParms;
+static sqInt followMethodReferencesInClosedPIC(CogMethod *cPIC) NoDbgRegParms;
+static sqInt frameOffsetOfTemporary(sqInt index) NoDbgRegParms;
+static void freeMethod(CogMethod *cogMethod) NoDbgRegParms;
static void freeOlderMethodsForCompaction(void);
static void freePICsWithFreedTargets(void);
void freeUnmarkedMachineCode(void);
static sqInt genActiveContextTrampoline(void);
-static sqInt genAddSmallIntegerTagsTo(sqInt aRegister);
-static sqInt genAlignCStackSavingRegistersnumArgswordAlignment(AbstractInstruction * self_in_genAlignCStackSavingRegistersnumArgswordAlignment, sqInt saveRegs, sqInt numArgs, sqInt alignment);
-static AbstractInstruction * genAllocFloatValueintoscratchRegscratchReg(sqInt dpreg, sqInt resultReg, sqInt scratch1, sqInt scratch2);
+static sqInt genAddSmallIntegerTagsTo(sqInt aRegister) NoDbgRegParms;
+static sqInt genAlignCStackSavingRegistersnumArgswordAlignment(AbstractInstruction * self_in_genAlignCStackSavingRegistersnumArgswordAlignment, sqInt saveRegs, sqInt numArgs, sqInt alignment) NoDbgRegParms;
+static AbstractInstruction * genAllocFloatValueintoscratchRegscratchReg(sqInt dpreg, sqInt resultReg, sqInt scratch1, sqInt scratch2) NoDbgRegParms;
static sqInt genCheckForInterruptsTrampoline(void);
-static sqInt genConvertCharacterToCodeInReg(sqInt reg);
-static void genConvertCharacterToSmallIntegerInReg(sqInt reg);
-static sqInt genConvertIntegerToCharacterInReg(sqInt reg);
-static sqInt genConvertIntegerToSmallIntegerInReg(sqInt reg);
-static sqInt genConvertIntegerToSmallIntegerInScratchReg(sqInt scratchReg);
-static void genConvertSmallIntegerToCharacterInReg(sqInt reg);
-static sqInt genConvertSmallIntegerToIntegerInReg(sqInt reg);
-static AbstractInstruction * genDivRRQuoRem(AbstractInstruction * self_in_genDivRRQuoRem, sqInt abstractRegDivisor, sqInt abstractRegDividend, sqInt abstractRegQuotient, sqInt abstractRegRemainder);
-static sqInt genDoubleArithmeticpreOpCheck(sqInt arithmeticOperator, AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg));
-static sqInt genDoubleComparisoninvert(AbstractInstruction *(*jumpOpcodeGenerator)(void *), sqInt invertComparison);
-static AbstractInstruction * genDoubleFailIfZeroArgRcvrarg(sqInt rcvrReg, sqInt argReg);
+static sqInt genConvertCharacterToCodeInReg(sqInt reg) NoDbgRegParms;
+static void genConvertCharacterToSmallIntegerInReg(sqInt reg) NoDbgRegParms;
+static sqInt genConvertIntegerToCharacterInReg(sqInt reg) NoDbgRegParms;
+static sqInt genConvertIntegerToSmallIntegerInReg(sqInt reg) NoDbgRegParms;
+static sqInt genConvertIntegerToSmallIntegerInScratchReg(sqInt scratchReg) NoDbgRegParms;
+static void genConvertSmallIntegerToCharacterInReg(sqInt reg) NoDbgRegParms;
+static sqInt genConvertSmallIntegerToIntegerInReg(sqInt reg) NoDbgRegParms;
+static AbstractInstruction * genDivRRQuoRem(AbstractInstruction * self_in_genDivRRQuoRem, sqInt abstractRegDivisor, sqInt abstractRegDividend, sqInt abstractRegQuotient, sqInt abstractRegRemainder) NoDbgRegParms;
+static sqInt genDoubleArithmeticpreOpCheck(sqInt arithmeticOperator, AbstractInstruction *(*preOpCheckOrNil)(int rcvrReg, int argReg)) NoDbgRegParms;
+static sqInt genDoubleComparisoninvert(AbstractInstruction *(*jumpOpcodeGenerator)(void *), sqInt invertComparison) NoDbgRegParms;
+static AbstractInstruction * genDoubleFailIfZeroArgRcvrarg(sqInt rcvrReg, sqInt argReg) NoDbgRegParms;
static sqInt genDynamicSuperSendBytecode(void);
-static void (*genEnilopmartForandandcalled(sqInt regArg1, sqInt regArg2, sqInt regArg3, char *trampolineName))(void) ;
-static void (*genEnilopmartForandcalled(sqInt regArg1, sqInt regArg2, char *trampolineName))(void) ;
-static void (*genEnilopmartForcalled(sqInt regArg, char *trampolineName))(void) ;
-static sqInt genEnsureObjInRegNotForwardedscratchReg(sqInt reg, sqInt scratch);
-static void (*genEnterPICEnilopmartNumArgs(sqInt numArgs))(void) ;
+static void (*genEnilopmartForandandcalled(sqInt regArg1, sqInt regArg2, sqInt regArg3, char *trampolineName))(void) NoDbgRegParms;
+static void (*genEnilopmartForandcalled(sqInt regArg1, sqInt regArg2, char *trampolineName))(void) NoDbgRegParms;
+static void (*genEnilopmartForcalled(sqInt regArg, char *trampolineName))(void) NoDbgRegParms;
+static sqInt genEnsureObjInRegNotForwardedscratchReg(sqInt reg, sqInt scratch) NoDbgRegParms;
+static void (*genEnterPICEnilopmartNumArgs(sqInt numArgs))(void) NoDbgRegParms;
static sqInt genExtendedSendBytecode(void);
static sqInt genExtendedSuperBytecode(void);
static sqInt genExternalizePointersForPrimitiveCall(void);
@@ -608,16 +618,16 @@
static sqInt genExtStoreLiteralVariableBytecode(void);
static sqInt genExtStoreReceiverVariableBytecode(void);
static sqInt genExtUnconditionalJump(void);
-static void generateCaptureCStackPointers(sqInt captureFramePointer);
-static AbstractInstruction * generateCheckFeatures(AbstractInstruction * self_in_generateCheckFeatures);
+static void generateCaptureCStackPointers(sqInt captureFramePointer) NoDbgRegParms;
+static AbstractInstruction * generateCheckFeatures(AbstractInstruction * self_in_generateCheckFeatures) NoDbgRegParms;
static void generateClosedPICPrototype(void);
-static CogMethod * generateCogMethod(sqInt selector);
+static CogMethod * generateCogMethod(sqInt selector) NoDbgRegParms;
static void generateEnilopmarts(void);
-static AbstractInstruction * generateICacheFlush(AbstractInstruction * self_in_generateICacheFlush);
-static sqInt generateInstructionsAt(sqInt eventualAbsoluteAddress);
-static AbstractInstruction * generateLowLevelTryLock(AbstractInstruction * self_in_generateLowLevelTryLock, sqInt vmOwnerLockAddress);
-static AbstractInstruction * generateLowLevelUnlock(AbstractInstruction * self_in_generateLowLevelUnlock, sqInt vmOwnerLockAddress);
-static sqInt generateMapAtstart(sqInt addressOrNull, sqInt startAddress);
+static AbstractInstruction * generateICacheFlush(AbstractInstruction * self_in_generateICacheFlush) NoDbgRegParms;
+static sqInt generateInstructionsAt(sqInt eventualAbsoluteAddress) NoDbgRegParms;
+static AbstractInstruction * generateLowLevelTryLock(AbstractInstruction * self_in_generateLowLevelTryLock, sqInt vmOwnerLockAddress) NoDbgRegParms;
+static AbstractInstruction * generateLowLevelUnlock(AbstractInstruction * self_in_generateLowLevelUnlock, sqInt vmOwnerLockAddress) NoDbgRegParms;
+static sqInt generateMapAtstart(sqInt addressOrNull, sqInt startAddress) NoDbgRegParms;
static void generateMissAbortTrampolines(void);
static void generateNewspeakRuntime(void);
static void generateObjectRepresentationTrampolines(void);
@@ -629,50 +639,55 @@
static void generateTrampolines(void);
static void generateVMOwnerLockFunctions(void);
static sqInt genFastPrimFail(void);
-static void genFastPrimTraceUsingand(sqInt r1, sqInt r2);
-static sqInt genFetchIndexRegisterfrominto(sqInt indexReg, sqInt tableObj, sqInt destReg);
-static sqInt genFramelessStorePopReceiverVariable(sqInt popBoolean, sqInt slotIndex);
-static sqInt genGetClassIndexOfNonImminto(sqInt sourceReg, sqInt destReg);
-static sqInt genGetClassObjectOfClassIndexintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg);
-static sqInt genGetClassObjectOfintoscratchReginstRegIsReceiver(sqInt instReg, sqInt destReg, sqInt scratchReg, sqInt instRegIsReceiver);
-static AbstractInstruction * genGetClassTagOfintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg);
-static sqInt genGetCompactClassIndexNonImmOfinto(sqInt instReg, sqInt destReg);
-static sqInt genGetDoubleValueOfinto(sqInt srcReg, sqInt destFPReg);
-static sqInt genGetHashFieldNonImmOfasSmallIntegerInto(sqInt instReg, sqInt destReg);
-static sqInt genGetHashFieldNonImmOfinto(sqInt instReg, sqInt destReg);
-static sqInt genGetImplicitReceiverForforPush(sqInt selector, sqInt forPushSendBar);
+static void genFastPrimTraceUsingand(sqInt r1, sqInt r2) NoDbgRegParms;
+static sqInt genFetchIndexRegisterfrominto(sqInt indexReg, sqInt tableObj, sqInt destReg) NoDbgRegParms;
+static sqInt genFramelessStorePopReceiverVariable(sqInt popBoolean, sqInt slotIndex) NoDbgRegParms;
+static sqInt genGetClassIndexOfNonImminto(sqInt sourceReg, sqInt destReg) NoDbgRegParms;
+static sqInt genGetClassObjectOfClassIndexintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg) NoDbgRegParms;
+static sqInt genGetClassObjectOfintoscratchReginstRegIsReceiver(sqInt instReg, sqInt destReg, sqInt scratchReg, sqInt instRegIsReceiver) NoDbgRegParms;
+static AbstractInstruction * genGetClassTagOfintoscratchReg(sqInt instReg, sqInt destReg, sqInt scratchReg) NoDbgRegParms;
+static sqInt genGetCompactClassIndexNonImmOfinto(sqInt instReg, sqInt destReg) NoDbgRegParms;
+static sqInt genGetDoubleValueOfinto(sqInt srcReg, sqInt destFPReg) NoDbgRegParms;
+static sqInt genGetFormatOfintoleastSignificantHalfOfBaseHeaderIntoScratch(sqInt sourceReg, sqInt destReg, sqInt scratchRegOrNil) NoDbgRegParms;
+static sqInt genGetHashFieldNonImmOfasSmallIntegerInto(sqInt instReg, sqInt destReg) NoDbgRegParms;
+static sqInt genGetHashFieldNonImmOfinto(sqInt instReg, sqInt destReg) NoDbgRegParms;
+static sqInt genGetImplicitReceiverForforPush(sqInt selector, sqInt forPushSendBar) NoDbgRegParms;
static sqInt genGetLeafCallStackPointer(void);
-static AbstractInstruction * genGetLeafCallStackPointerFunction(AbstractInstruction * self_in_genGetLeafCallStackPointerFunction);
-static sqInt genInnerPICAbortTrampoline(char *name);
-static sqInt genInnerPrimitiveAsCharacterinReg(sqInt retNOffset, sqInt reg);
-static sqInt genInnerPrimitiveAtPut(sqInt retNoffset);
-static sqInt genInnerPrimitiveAt(sqInt retNoffset);
-static sqInt genInnerPrimitiveCharacterValue(sqInt retNOffset);
-static sqInt genInnerPrimitiveIdenticalorNotIf(sqInt retNoffset, sqInt orNot);
-static sqInt genInnerPrimitiveIdentityHash(sqInt retNoffset);
-static sqInt genInnerPrimitiveNewMethod(sqInt retNoffset);
-static sqInt genInnerPrimitiveNewWithArg(sqInt retNoffset);
-static sqInt genInnerPrimitiveNew(sqInt retNoffset);
-static sqInt genInnerPrimitiveSize(sqInt retNoffset);
-static sqInt genInnerPrimitiveStringAtPut(sqInt retNoffset);
-static sqInt genInnerPrimitiveStringAt(sqInt retNoffset);
-static sqInt genJumpBackTo(sqInt targetBytecodePC);
-static AbstractInstruction * genJumpFPEqual(AbstractInstruction * self_in_genJumpFPEqual, void *jumpTarget);
-static AbstractInstruction * genJumpFPGreaterOrEqual(AbstractInstruction * self_in_genJumpFPGreaterOrEqual, void *jumpTarget);
-static AbstractInstruction * genJumpFPGreater(AbstractInstruction * self_in_genJumpFPGreater, void *jumpTarget);
-static AbstractInstruction * genJumpFPLessOrEqual(AbstractInstruction * self_in_genJumpFPLessOrEqual, void *jumpTarget);
-static AbstractInstruction * genJumpFPLess(AbstractInstruction * self_in_genJumpFPLess, void *jumpTarget);
-static AbstractInstruction * genJumpFPNotEqual(AbstractInstruction * self_in_genJumpFPNotEqual, void *jumpTarget);
-static sqInt genJumpIfto(sqInt boolean, sqInt targetBytecodePC);
-static AbstractInstruction * genJumpImmediateInScratchReg(sqInt aRegister);
-static AbstractInstruction * genJumpNotCharacterInScratchReg(sqInt reg);
-static AbstractInstruction * genJumpNotSmallIntegerInScratchReg(sqInt aRegister);
-static AbstractInstruction * genJumpSmallIntegerInScratchReg(sqInt aRegister);
-static sqInt genJumpTo(sqInt targetBytecodePC);
@@ Diff output truncated at 50000 characters. @@
1
0
Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.723.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.723
Author: eem
Time: 19 May 2014, 7:01:33.987 pm
UUID: 7e7f66ea-1471-4c21-9040-bd4ba88fea7f
Ancestors: VMMaker.oscog-eem.722
and of course the MirrorNew prims are option: #NewspeakVM
=============== Diff against VMMaker.oscog-eem.721 ===============
Item was changed:
----- 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..."
cogit MoveR: Arg0Reg R: TempReg.
jumpImmediate := self genJumpImmediateInScratchReg: TempReg.
"Is the class arg pointers with at least 3 fields?"
self genGetFormatOf: Arg0Reg
into: TempReg
leastSignificantHalfOfBaseHeaderIntoScratch: nil.
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.
cogit MoveR: instSpecReg R: TempReg.
jumpBadFormat := self genJumpNotSmallIntegerInScratchReg: TempReg.
self genConvertSmallIntegerToIntegerInReg: 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.
jumpNotFixedPointers jmpTarget:
(jumpBadFormat jmpTarget:
(jumpTooSmall jmpTarget:
(jumpImmediate jmpTarget:
(jumpUnhashed jmpTarget:
(jumpVariableOrEphemeron jmpTarget:
(jumpTooBig jmpTarget:
(jumpNoSpace jmpTarget: cogit Label))))))).
^0!
Item was changed:
----- 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"
cogit MoveR: Arg1Reg R: TempReg.
jumpNElementsNonInt := self genJumpNotSmallIntegerInScratchReg: TempReg.
"Is the class arg pointers with at least 3 fields?"
cogit MoveR: Arg0Reg R: TempReg.
jumpImmediate := self genJumpImmediateInScratchReg: TempReg.
self genGetFormatOf: Arg0Reg
into: TempReg
leastSignificantHalfOfBaseHeaderIntoScratch: nil.
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 (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 hash & fail if 0"
self genGetHashFieldNonImmOf: ReceiverResultReg into: halfHeaderReg.
jumpUnhashed := cogit JumpZero: 0.
"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 MoveCq: 0 R: TempReg.
cogit PushR: TempReg.
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 MoveCq: 0 R: TempReg.
cogit PushR: TempReg.
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 MoveCw: objectMemory nilObject R: TempReg.
cogit PushR: TempReg.
"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 changed:
----- 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)
- "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)"
| halfHeaderReg fillReg instSpecReg byteSizeReg
+ jumpUnhashed jumpVariableOrEphemeron jumpNoSpace jumpTooBig jumpHasSlots
- 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..."
- cogit MoveR: Arg0Reg R: TempReg.
- jumpImmediate := cogit genJumpImmediateInScratchReg: TempReg.
-
- "Is the class arg pointers with at least 3 fields?"
- self genGetFormatOf: Arg0Reg
- into: TempReg
- leastSignificantHalfOfBaseHeaderIntoScratch: nil.
- cogit CmpCq: objectMemory nonIndexablePointerFormat R: TempReg.
- jumpNotFixedPointers := cogit JumpNonZero: 0.
-
- self genGetRawSlotSizeOfNonImm: Arg0Reg into: TempReg.
- self CmpCq: InstanceSpecificationIndex + 1 R: TempReg.
- jumpTooSmall := cogit JumpLess: 0.
-
"get class's hash & fail if 0"
+ self genGetHashFieldNonImmOf: ReceiverResultReg into: halfHeaderReg.
- 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: ReceiverResultReg destReg: TempReg.
+ self genConvertSmallIntegerToIntegerInReg: TempReg.
+ cogit MoveR: TempReg R: instSpecReg.
- self genLoadSlot: InstanceSpecificationIndex sourceReg: Arg0Reg destReg: instSpecReg.
- cogit MoveR: instSpecReg R: TempReg.
- jumpBadFormat := cogit genJumpNotSmallIntegerInScratchReg: TempReg.
- self genConvertSmallIntegerToIntegerInReg: 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:
- jumpNotFixedPointers jmpTarget:
- (jumpBadFormat jmpTarget:
- (jumpTooSmall jmpTarget:
- (jumpImmediate jmpTarget:
- (jumpUnhashed jmpTarget:
(jumpVariableOrEphemeron jmpTarget:
(jumpTooBig jmpTarget:
+ (jumpNoSpace jmpTarget: cogit Label))).
- (jumpNoSpace jmpTarget: cogit Label))))))).
^0!
1
0
Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.721.mcz
==================== Summary ====================
Name: VMMaker.oscog-eem.721
Author: eem
Time: 19 May 2014, 6:01:54.576 pm
UUID: 0b57bb7c-ae00-4c31-8399-05cea9c1ce79
Ancestors: VMMaker.oscog-eem.720
Slang:
In non-production VMs add an attribute to disable register
parameters (at least for GCC-compliant compilers), allowing
all static functions to be called from gdb even in the -O1
assert VMs.
Newspeak:
Delete unused misnomer for push outer bytecode.
Spur:
Split the check heap loop between newSpace and oldSpace
to improve leak map checking performance a little.
VMMaker
Add the useful expressions to the do... menu if present.
=============== Diff against VMMaker.oscog-eem.720 ===============
Item was changed:
Object subclass: #CCodeGenerator
instanceVariableNames: 'vmClass structClasses translationDict asArgumentTranslationDict inlineList constants variables variableDeclarations scopeStack methods macros apiMethods kernelReturnTypes currentMethod headerFiles globalVariableUsage useSymbolicConstants generateDeadCode requiredSelectors logger suppressAsmLabels asmLabelCounts pools selectorTranslations optionsDictionary breakSrcInlineSelector breakDestInlineSelector vmMaker'
+ classVariableNames: 'NoRegParmsInAssertVMs UseRightShiftForDivide'
- classVariableNames: 'UseRightShiftForDivide'
poolDictionaries: 'VMBasicConstants'
category: 'VMMaker-Translation to C'!
!CCodeGenerator commentStamp: 'tpr 5/2/2003 14:30' prior: 0!
This class oversees the translation of a subset of Smalltalk to C, allowing the comforts of Smalltalk during development and the efficiency and portability of C for the resulting interpreter.
See VMMaker for more useful info!
Item was changed:
----- Method: CCodeGenerator class>>initialize (in category 'class initialization') -----
initialize
"CCodeGenerator initialize"
UseRightShiftForDivide := true.
"If UseRightShiftForDivide is true, the translator will generate a right-shift when it encounters a division by a constant that is a small power of two. For example, 'x / 8' will generate '((int) x >> 3)'. The coercion to int is done to make it clear that the C compiler should generate a signed shift."
"Note: The Kernighan and Ritchie 2nd Edition C manual, p. 49, leaves the semantics of right-shifting a negative number open to the discretion of the compiler implementor. However, it strongly suggests that most compilers should generate an arithmetic right shift (i.e., shifting in the sign bit), which is the same as dividing by a power of two. If your compiler does not generate or simulate an arithmetic shift, then make this class variable false and re-translate."
+
+ NoRegParmsInAssertVMs := true
+ "If NoRegParmsInAssertVMs is true the generator spits out an attribute turning off register parameters for static functions in the Assert and Debug VMs which makes debugging easier, since all functions can be safely called from gdb. One might hope that -mregparm=0 would work but at least on Mac OS X's gcc 4.2.1 it does not and hence we have to use a per funciton attribute. Sigh..."!
- !
Item was changed:
----- Method: CCodeGenerator>>emitCFunctionPrototypes:on: (in category 'C code generator') -----
emitCFunctionPrototypes: methodList on: aStream
"Store prototype declarations for all non-inlined methods on the given stream."
| exporting |
aStream cr; nextPutAll: '/*** Function Prototypes ***/'; cr.
+ "Hmm, this should be in the sqConfig.h files. For now put it here..."
+ NoRegParmsInAssertVMs ifTrue:
+ [aStream cr; cr; nextPutAll: '#if defined(PRODUCTION) && !!PRODUCTION && defined(__GNUC__) && !!defined(NoDbgRegParms)\# define NoDbgRegParms __attribute__ ((regparm (0)))\#endif' withCRs.
+ aStream cr; cr; nextPutAll: '#if !!defined(NoDbgRegParms)\# define NoDbgRegParms /*empty*/\#endif' withCRs.
+ aStream cr; cr].
exporting := false.
(methodList select: [:m| m isRealMethod]) do:
[:m |
self emitExportPragma ifTrue:
[m export
ifTrue: [exporting ifFalse:
[aStream nextPutAll: '#pragma export on'; cr.
exporting := true]]
ifFalse: [exporting ifTrue:
[aStream nextPutAll: '#pragma export off'; cr.
exporting := false]]].
m emitCFunctionPrototype: aStream generator: self.
+ (NoRegParmsInAssertVMs and: [m export not and: [m isStatic and: [m args notEmpty]]]) ifTrue:
+ [aStream nextPutAll: ' NoDbgRegParms'].
aStream nextPut: $; ; cr].
exporting ifTrue: [aStream nextPutAll: '#pragma export off'; cr].
aStream cr!
Item was removed:
- ----- Method: NewspeakInterpreter>>pushExplicitOuterSendReceiverBytecode (in category 'stack bytecodes') -----
- pushExplicitOuterSendReceiverBytecode
- "Find the appropriate implicit receiver for outer N"
- | mClassMixin litIndex n anInt |
- <inline: true>
- litIndex := self fetchByte.
- anInt := self literal: litIndex.
- n := self checkedIntegerValueOf: anInt.
- self fetchNextBytecode.
- mClassMixin := self methodClassOf: method.
- self internalPush:(self
- explicitOuterReceiver: n
- withObject: receiver
- withMixin: mClassMixin
- )
- !
Item was changed:
----- Method: SpurMemoryManager>>checkHeapIntegrity:classIndicesShouldBeValid: (in category 'debug support') -----
checkHeapIntegrity: excludeUnmarkedNewSpaceObjs classIndicesShouldBeValid: classIndicesShouldBeValid
+ "Perform an integrity/leak check using the heapMap. Assume clearLeakMapAndMapAccessibleObjects
+ has set a bit at each object's header. Scan all objects in the heap checking that every pointer points
+ to a header. Scan the rememberedSet, remapBuffer and extraRootTable checking that every entry is
+ a pointer to a header. Check that the number of roots is correct and that all rememberedSet entries
+ have their isRemembered: flag set. Answer if all checks pass."
+ | ok numRememberedObjectsInHeap |
- "Perform an integrity/leak check using the heapMap. Assume
- clearLeakMapAndMapAccessibleObjects has set a bit at each
- object's header. Scan all objects in the heap checking that every
- pointer points to a header. Scan the rootTable, remapBuffer and
- extraRootTable checking that every entry is a pointer to a header.
- Check that the number of roots is correct and that all rootTable
- entries have their rootBit set. Answer if all checks pass."
- | ok numRememberedRootsInHeap |
<inline: false>
ok := true.
+ numRememberedObjectsInHeap := 0.
+ "Excuse the duplication but performance is at a premium and we avoid
+ some tests by splitting the newSpace and oldSpace enumerations."
+ self allNewSpaceEntitiesDo:
+ [:obj| | fieldOop classIndex classOop |
- numRememberedRootsInHeap := 0.
- self allHeapEntitiesDo:
- [:obj| | containsYoung fieldOop classIndex classOop |
((self isFreeObject: obj)
+ or: [(self isMarked: obj) not and: [excludeUnmarkedNewSpaceObjs]]) ifFalse:
+ [(self isRemembered: obj) ifTrue:
+ [coInterpreter print: 'young object '; printHex: obj; print: ' is remembered'; cr.
+ self eek.
+ ok := false]].
+ (self isForwarded: obj)
+ ifTrue:
+ [fieldOop := self fetchPointer: 0 ofMaybeForwardedObject: obj.
+ (heapMap heapMapAtWord: (self pointerForOop: fieldOop)) = 0 ifTrue:
+ [coInterpreter print: 'object leak in forwarder '; printHex: obj; print: ' to unmapped '; printHex: fieldOop; cr.
+ self eek.
+ ok := false]]
+ ifFalse:
+ [classOop := self classOrNilAtIndex: (classIndex := self classIndexOf: obj).
+ (classIndicesShouldBeValid
+ and: [classOop = nilObj
+ and: [(self isHiddenObj: obj) not]]) ifTrue:
+ [coInterpreter print: 'object leak in '; printHex: obj; print: ' invalid class index '; printHex: classIndex; print: ' -> '; print: (classOop ifNil: ['nil'] ifNotNil: ['nilObj']); cr.
+ self eek.
+ ok := false].
+ 0 to: (self numPointerSlotsOf: obj) - 1 do:
+ [:fi|
+ fieldOop := self fetchPointer: fi ofObject: obj.
+ (self isNonImmediate: fieldOop) ifTrue:
+ [(heapMap heapMapAtWord: (self pointerForOop: fieldOop)) = 0 ifTrue:
+ [coInterpreter print: 'object leak in '; printHex: obj; print: ' @ '; printNum: fi; print: ' = '; printHex: fieldOop; cr.
+ self eek.
+ ok := false]]]]].
+ self allOldSpaceEntitiesDo:
+ [:obj| | containsYoung fieldOop classIndex classOop |
+ (self isFreeObject: obj) ifFalse:
- or: [(self isYoungObject: obj) and: [(self isMarked: obj) not and: [excludeUnmarkedNewSpaceObjs]]]) ifFalse:
[containsYoung := false.
(self isRemembered: obj) ifTrue:
+ [numRememberedObjectsInHeap := numRememberedObjectsInHeap + 1.
- [numRememberedRootsInHeap := numRememberedRootsInHeap + 1.
(scavenger isInRememberedSet: obj) ifFalse:
[coInterpreter print: 'remembered object '; printHex: obj; print: ' is not in remembered table'; cr.
self eek.
ok := false]].
(self isForwarded: obj)
ifTrue:
[fieldOop := self fetchPointer: 0 ofMaybeForwardedObject: obj.
(heapMap heapMapAtWord: (self pointerForOop: fieldOop)) = 0 ifTrue:
[coInterpreter print: 'object leak in forwarder '; printHex: obj; print: ' to unmapped '; printHex: fieldOop; cr.
self eek.
ok := false].
+ (self isReallyYoung: fieldOop) ifTrue:
- (self isYoung: fieldOop) ifTrue:
[containsYoung := true]]
ifFalse:
[classOop := self classOrNilAtIndex: (classIndex := self classIndexOf: obj).
(classIndicesShouldBeValid
and: [classOop = nilObj
and: [(self isHiddenObj: obj) not]]) ifTrue:
[coInterpreter print: 'object leak in '; printHex: obj; print: ' invalid class index '; printHex: classIndex; print: ' -> '; print: (classOop ifNil: ['nil'] ifNotNil: ['nilObj']); cr.
self eek.
ok := false].
+ 0 to: (self numPointerSlotsOf: obj) - 1 do:
+ [:fi|
+ fieldOop := self fetchPointer: fi ofObject: obj.
- self baseHeaderSize to: (self lastPointerOf: obj) by: BytesPerOop do:
- [:ptr|
- fieldOop := self longAt: obj + ptr.
(self isNonImmediate: fieldOop) ifTrue:
+ [(heapMap heapMapAtWord: (self pointerForOop: fieldOop)) = 0 ifTrue:
+ [coInterpreter print: 'object leak in '; printHex: obj; print: ' @ '; printNum: fi; print: ' = '; printHex: fieldOop; cr.
+ self eek.
+ ok := false].
+ "don't be misled by CogMethods; they appear to be young, but they're not"
+ (self isReallyYoung: fieldOop) ifTrue:
+ [containsYoung := true]]]].
+ containsYoung ifTrue:
- [| fi |
- fi := ptr - self baseHeaderSize / self wordSize.
- (fieldOop bitAnd: self wordSize - 1) ~= 0
- ifTrue:
- [coInterpreter print: 'misaligned oop in '; printHex: obj; print: ' @ '; printNum: fi; print: ' = '; printHex: fieldOop; cr.
- self eek.
- ok := false]
- ifFalse:
- [(heapMap heapMapAtWord: (self pointerForOop: fieldOop)) = 0 ifTrue:
- [coInterpreter print: 'object leak in '; printHex: obj; print: ' @ '; printNum: fi; print: ' = '; printHex: fieldOop; cr.
- self eek.
- ok := false].
- "don't be misled by CogMethods; they appear to be young, but they're not"
- ((self isYoung: fieldOop)
- and: [self oop: fieldOop isGreaterThanOrEqualTo: newSpaceStart]) ifTrue:
- [containsYoung := true]]]]].
- (containsYoung and: [(self isYoung: obj) not]) ifTrue:
[(self isRemembered: obj) ifFalse:
[coInterpreter print: 'unremembered object '; printHex: obj; print: ' contains young oop(s)'; cr.
self eek.
ok := false]]]].
+ numRememberedObjectsInHeap ~= scavenger rememberedSetSize ifTrue:
- numRememberedRootsInHeap ~= scavenger rememberedSetSize ifTrue:
[coInterpreter
print: 'root count mismatch. #heap roots ';
+ printNum: numRememberedObjectsInHeap;
- printNum: numRememberedRootsInHeap;
print: '; #roots ';
printNum: scavenger rememberedSetSize;
cr.
self eek.
"But the system copes with overflow..."
self flag: 'no support for remembered set overflow yet'.
"ok := rootTableOverflowed and: [needGCFlag]"].
scavenger rememberedSetWithIndexDo:
[:obj :i|
(obj bitAnd: self wordSize - 1) ~= 0
ifTrue:
[coInterpreter print: 'misaligned oop in remembered set @ '; printNum: i; print: ' = '; printHex: obj; cr.
self eek.
ok := false]
ifFalse:
[(heapMap heapMapAtWord: (self pointerForOop: obj)) = 0
ifTrue:
[coInterpreter print: 'object leak in remembered set @ '; printNum: i; print: ' = '; printHex: obj; cr.
self eek.
ok := false]
ifFalse:
[(self isYoung: obj) ifTrue:
[coInterpreter print: 'non-root in remembered set @ '; printNum: i; print: ' = '; printHex: obj; cr.
self eek.
ok := false]]]].
1 to: remapBufferCount do:
[:ri| | obj |
obj := remapBuffer at: ri.
(obj bitAnd: self wordSize - 1) ~= 0
ifTrue:
[coInterpreter print: 'misaligned remapRoot @ '; printNum: ri; print: ' = '; printHex: obj; cr.
self eek.
ok := false]
ifFalse:
[(heapMap heapMapAtWord: (self pointerForOop: obj)) = 0 ifTrue:
[coInterpreter print: 'object leak in remapRoots @ '; printNum: ri; print: ' = '; printHex: obj; cr.
self eek.
ok := false]]].
1 to: extraRootCount do:
[:ri| | obj |
obj := (extraRoots at: ri) at: 0.
(obj bitAnd: self wordSize - 1) ~= 0
ifTrue:
[coInterpreter print: 'misaligned extraRoot @ '; printNum: ri; print: ' => '; printHex: obj; cr.
self eek.
ok := false]
ifFalse:
[(heapMap heapMapAtWord: (self pointerForOop: obj)) = 0 ifTrue:
[coInterpreter print: 'object leak in extraRoots @ '; printNum: ri; print: ' => '; printHex: obj; cr.
self eek.
ok := false]]].
^ok!
Item was changed:
----- Method: StackInterpreter>>checkForAndFollowForwardedPrimitiveState (in category 'primitive support') -----
checkForAndFollowForwardedPrimitiveState
"In Spur a primitive may fail due to encountering a forwarder.
On failure check the accessorDepth for the primitive and
if non-negative scan the args to the depth, following any
forwarders. Answer if any are found so the prim can be retried."
<option: #SpurObjectMemory>
| primIndex accessorDepth found |
self assert: self successful not.
found := false.
- self assert: argumentCount = (self argumentCountOf: newMethod).
primIndex := self primitiveIndexOf: newMethod.
accessorDepth := primitiveAccessorDepthTable at: primIndex.
"For the method-executing primitives, failure could have been in those primitives or the
primitives of the methods they execute. find out which failed by seeing what is in effect."
primIndex caseOf: {
[117] ->
[primitiveFunctionPointer ~~ #primitiveExternalCall ifTrue:
+ [accessorDepth := self primitiveAccessorDepthForExternalPrimitiveMethod: newMethod].
+ self assert: argumentCount = (self argumentCountOf: newMethod)].
+ [118] -> "with tryPrimitive:withArgs: the argument count has nothing to do with newMethod's, so no arg count assert."
- [accessorDepth := self primitiveAccessorDepthForExternalPrimitiveMethod: newMethod]].
- [118] ->
[self assert: primitiveFunctionPointer = (self functionPointerFor: primIndex inClass: objectMemory nilObject)].
[218] ->
[primitiveFunctionPointer ~~ #primitiveDoNamedPrimitiveWithArgs ifTrue:
+ [accessorDepth := self primitiveAccessorDepthForExternalPrimitiveMethod: newMethod].
+ self assert: argumentCount = (self argumentCountOf: newMethod)]. }
- [accessorDepth := self primitiveAccessorDepthForExternalPrimitiveMethod: newMethod]]. }
otherwise:
+ [self assert: primitiveFunctionPointer = (self functionPointerFor: primIndex inClass: objectMemory nilObject).
+ self assert: argumentCount = (self argumentCountOf: newMethod)].
- [self assert: primitiveFunctionPointer = (self functionPointerFor: primIndex inClass: objectMemory nilObject)].
accessorDepth >= 0 ifTrue:
[0 to: argumentCount do:
[:index| | oop |
oop := self stackValue: index.
(objectMemory isNonImmediate: oop) ifTrue:
[(objectMemory isForwarded: oop) ifTrue:
[self assert: index < argumentCount. "receiver should have been caught at send time."
found := true.
oop := objectMemory followForwarded: oop.
self stackValue: index put: oop].
((objectMemory hasPointerFields: oop)
and: [objectMemory followForwardedObjectFields: oop toDepth: accessorDepth]) ifTrue:
[found := true]]]].
^found!
Item was removed:
- ----- Method: StackInterpreter>>pushExplicitOuterSendReceiverBytecode (in category 'stack bytecodes') -----
- pushExplicitOuterSendReceiverBytecode
- "Find the appropriate implicit receiver for outer N"
- | litIndex n anIntOop |
- <inline: true>
- litIndex := self fetchByte.
- anIntOop := self literal: litIndex.
- n := (objectMemory isIntegerObject: anIntOop)
- ifTrue: [objectMemory integerValueOf: anIntOop]
- ifFalse: [0].
- self fetchNextBytecode.
- self internalPush:(self
- explicitOuterReceiver: n
- withObject: self receiver
- withMixin: (self methodClassOf: method))!
Item was added:
+ ----- Method: VMClass class>>initialize (in category 'initialization') -----
+ initialize
+ (Utilities classPool at: #CommonRequestStrings ifAbsent: []) ifNotNil:
+ [:commonRequestStringHolder|
+ (commonRequestStringHolder contents asString includesSubString: 'VMClass open') ifFalse:
+ [Utilities appendToCommonRequests: '-\VMMaker generateConfiguration\VMMaker generateAllConfigurationsUnderVersionControl\VMMaker generateAllSpurConfigurations\VMClass openCogMultiWindowBrowser\VMClass openObjectMemoriesInterpretersBrowser\VMClass openSpurMultiWindowBrowser' withCRs]]!
1
0
I love that commit. I'm glad you have some time to work on it :-).
2014-05-19 20:52 GMT+02:00 <commits(a)source.squeak.org>:
>
> Eliot Miranda uploaded a new version of BytecodeSets to project VM Maker:
> http://source.squeak.org/VMMaker/BytecodeSets-eem.2.mcz
>
> ==================== Summary ====================
>
> Name: BytecodeSets-eem.2
> Author: eem
> Time: 19 May 2014, 11:52:50.933 am
> UUID: 913085ca-0802-4f32-8b85-61432bb1c1f5
> Ancestors: BytecodeSets-eem.1
>
> Provide the multiple bytecode set support for
> InstructionStream and CompiledMethod expected by
> Compiler-eem.282/Kernel-eem.852 for
> EncoderForNewsqueakV3
> EncoderForNewsqueakV4
> EncoderForSistaV1
>
> =============== Diff against BytecodeSets-eem.1 ===============
>
> Item was changed:
> SystemOrganization addCategory: #'BytecodeSets-NewsqueakV3'!
> + SystemOrganization addCategory: #'BytecodeSets-SistaV1'!
> SystemOrganization addCategory: #'BytecodeSets-NewsqueakV4'!
>
> Item was changed:
> EncoderForV3PlusClosures subclass: #EncoderForNewsqueakV3
> instanceVariableNames: ''
> classVariableNames: ''
> poolDictionaries: ''
> category: 'BytecodeSets-NewsqueakV3'!
> +
> + !EncoderForNewsqueakV3 commentStamp: 'eem 5/17/2014 16:42' prior: 0!
> + An encoder for the Newsqueak V3 bytecode set. It adds the following
> bytecodes that are part of the first Newspeak bytecode set.
> +
> + 127 01111111 kkkkkkkk Push Implicit Receiver For
> Selector (self literalAt: kkkkkkkk)
> + 126 01111110 jjjjjjjj kkkkkkkk Send Selector (self
> literalAt: kkkkkkkk) To Dynamic Superclass With NumArgs jjjjjjjj
> + 139 01000101 kkkkkkkk Push Explicit Outer
> Receiver For Level (self literalAt: kkkkkkkk)!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV3 class>>bytecodeSize: (in category
> 'instruction stream support') -----
> + bytecodeSize: bytecode
> + "Answer the number of bytes in the bytecode."
> + bytecode <= 125 ifTrue:
> + [^1].
> + bytecode >= 176 ifTrue:
> + [^1].
> + bytecode >= 160 ifTrue: "long jumps"
> + [^2].
> + bytecode >= 144 ifTrue: "short jumps"
> + [^1].
> + "126, 127 & extensions"
> + ^#(3 2 2 2 2 2 3 2 2 1 1 1 2 2 3 3 3 4) at: bytecode - 125!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4
> class>>bindingReadScanBlockFor:using: (in category 'compiled method
> support') -----
> + bindingReadScanBlockFor: litVarIndex using: scanner
> + "Answer a block argument for InstructionStream>>scanFor: that
> answers true
> + for reads of the value of the binding with zero-relative index
> litVarIndex.
> + N.B. Don't assume the compiler uses the most compact encoding
> available."
> +
> + " 16-31 0001 i i i i
> Push Literal Variable #iiii
> + * 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 227 11100011 i i i i i i i i Push
> Literal Variable #iiiiiiii (+ Extend A * 256)"
> + | extension |
> + extension := 0.
> + ^[:b| | prevext |
> + prevext := extension.
> + extension := b = 224 ifTrue: [scanner followingByte bitShift:
> 8] ifFalse: [0].
> + (b < 32 and: [b >= 16 and: [b - 16 = litVarIndex]])
> + or: [b = 227
> + and: [scanner followingByte + prevext =
> litVarIndex]]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4
> class>>bindingWriteScanBlockFor:using: (in category 'compiled method
> support') -----
> + bindingWriteScanBlockFor: litVarIndex using: scanner
> + "Answer a block argument for InstructionStream>>scanFor: that
> answers true
> + for writes of the value of the binding with zero-relative index
> litVarIndex.
> + N.B. Don't assume the compiler uses the most compact encoding
> available."
> +
> + "* 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 233 11101001 i i i i i i i i Store
> Literal Variable #iiiiiiii (+ Extend A * 256)
> + * 236 11101100 i i i i i i i i Pop and
> Store Literal Variable #iiiiiiii (+ Extend A * 256)"
> + | extension |
> + extension := 0.
> + ^[:b| | prevext |
> + prevext := extension.
> + extension := b = 224 ifTrue: [scanner followingByte bitShift:
> 8] ifFalse: [0].
> + (b = 233 or: [b = 236])
> + and: [scanner followingByte + prevext = litVarIndex]]!
>
> Item was removed:
> - ----- Method: EncoderForNewsqueakV4 class>>blockReturnCode (in category
> 'bytecode decoding') -----
> - blockReturnCode
> - "218 11011010 Return Stack Top From
> Block [* return from enclosing block N, N = Extend A]"
> - ^218!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>bytecodeSize: (in category
> 'instruction stream support') -----
> + bytecodeSize: bytecode
> + "Answer the number of bytes in the bytecode."
> + bytecode < 224 ifTrue: [^1].
> + bytecode < 249 ifTrue: [^2].
> + ^3!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>createClosureScanBlock (in
> category 'compiled method support') -----
> + createClosureScanBlock
> + "Answer a block argument for InstructionStream>>scanFor: that
> answers true
> + for block closure creation bytecodes. ote that with this
> interface we can't answer
> + true for the extension in front of a push closure bytecode and so
> the interface may
> + have to change at some point."
> +
> + "* 224 11100000 aaaaaaaa
> Extend A (Ext A = Ext A prev * 256 + Ext A)
> + * 225 11100001 sbbbbbbb
> Extend B (Ext B = Ext B prev * 256 + Ext B)
> + ** 253 11111101 eei i i kkk jjjjjjjj Push
> Closure Num Copied iii (+ Ext A // 16 * 8) Num Args kkk (+ Ext A \\ 16 * 8)
> BlockSize jjjjjjjj (+ Ext B * 256). ee = num extensions"
> + ^[:b| b = 253]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>extensionsAt:in:into: (in
> category 'compiled method support') -----
> + extensionsAt: bcpc in: method into: aTrinaryBlock
> + "If the bytecode at pc is an extension then evaluate aBinaryBlock
> with the values of extA and extB and number of extension *bytes*.
> + If the bytecode at pc is not extended then evaluate aBinaryBlock
> with 0 and 0.
> + 224 11100000 aaaaaaaa Extend A (Ext A =
> Ext A prev * 256 + Ext A)
> + 225 11100001 sbbbbbbb Extend B (Ext B =
> Ext B prev * 256 + Ext B)"
> +
> + | scanpc byte extByte extA extB |
> + scanpc := bcpc.
> + "There may be an extension (it could be a false positive). We
> must scan as fast as possible..."
> + extA := extB := 0.
> + [byte := method at: scanpc.
> + byte >= 224 and: [byte <= 225]] whileTrue:
> + [extByte := method at: scanpc + 1.
> + scanpc := scanpc + 2.
> + byte = 224
> + ifTrue:
> + [extA := (extA bitShift: 8) + extByte]
> + ifFalse:
> + [extB := (extB = 0 and: [extByte > 127])
> + ifTrue: [extByte - 256]
> + ifFalse: [(extB bitShift: 8) +
> extByte]]].
> + ^aTrinaryBlock value: extA value: extB value: scanpc - bcpc
> +
> +
> + "Why use
> + byte >= 224 and: [byte <= 225]
> + and not
> + (byte bitAnd: 16rFE) = 16rE0
> + ?
> + | n |
> + n := 100000000.
> + #(0 224) collect:
> + [:byte|
> + { Time millisecondsToRun: [1 to: n do: [:i| (byte >= 224 and:
> [byte <= 225]) ifTrue: []]].
> + Time millisecondsToRun: [1 to: n do: [:i| (byte bitAnd: 16rFE)
> = 16rE0 ifTrue: []]] }] #(#(297 599) #(702 671))"!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4
> class>>instVarReadScanBlockFor:using: (in category 'compiled method
> support') -----
> + instVarReadScanBlockFor: varIndexCode using: scanner
> + "Answer a block argument for InstructionStream>>scanFor: that
> answers true
> + for reads of the inst var with zero-relative index varIndexCode.
> + N.B. Don't assume the compiler uses the most compact encoding
> available."
> +
> + " 0-15 0000 i i i i
> Push Receiver Variable #iiii
> + * 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 226 11100010 i i i i i i i i Push
> Receiver Variable #iiiiiiii (+ Extend A * 256)"
> + | extension |
> + extension := 0.
> + ^[:b| | prevext |
> + prevext := extension.
> + extension := b = 224 ifTrue: [scanner followingByte bitShift:
> 8] ifFalse: [0].
> + (b < 16 and: [b = varIndexCode])
> + or: [b = 226
> + and: [scanner followingByte + prevext =
> varIndexCode]]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4
> class>>instVarWriteScanBlockFor:using: (in category 'compiled method
> support') -----
> + instVarWriteScanBlockFor: varIndexCode using: scanner
> + "Answer a block argument for InstructionStream>>scanFor: that
> answers true
> + for writes of the inst var with zero-relative index varIndexCode.
> + N.B. Don't assume the compiler uses the most compact encoding
> available."
> +
> + " 176-183 10110 i i i Pop and
> Store Receiver Variable #iii
> + * 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 232 11101000 i i i i i i i i Store
> Receiver Variable #iiiiiii (+ Extend A * 256)
> + * 235 11101011 i i i i i i i i Pop and
> Store Receiver Variable #iiiiiii (+ Extend A * 256)"
> + | extension |
> + extension := 0.
> + ^[:b| | prevext |
> + prevext := extension.
> + extension := b = 224 ifTrue: [scanner followingByte bitShift:
> 8] ifFalse: [0].
> + (b >= 176
> + and: [b < 184
> + and: [b - 176 = varIndexCode]])
> + or: [(b = 232 or: [b = 235])
> + and: [scanner followingByte + prevext = varIndexCode]]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>interpretJumpIfCondIn: (in
> category 'compiled method support') -----
> + interpretJumpIfCondIn: anInstructionStream
> + "Double-dispatch through the encoder to select the correct
> conditional jump decoder for the instruction set."
> + ^anInstructionStream interpretNSV4JumpIfCond!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>interpretJumpIn: (in category
> 'compiled method support') -----
> + interpretJumpIn: anInstructionStream
> + "Double-dispatch through the encoder to select the correct
> unconditional jump decoder for the instruction set."
> + ^anInstructionStream interpretNSV4Jump!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isBlockReturnAt:in: (in
> category 'instruction stream support') -----
> + isBlockReturnAt: pc in: method
> + "Answer whether the bytecode at pc is a return from block."
> + "218 11011010 Return Stack Top From
> Block [* return from enclosing block N, N = Extend A]"
> + ^(self nonExtensionBytecodeAt: pc in: method) = 218!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isBranchIfFalseAt:in: (in
> category 'instruction stream support') -----
> + isBranchIfFalseAt: pc in: method
> + "Answer whether the bytecode at pc is a conditional
> branch-if-false."
> +
> + " 208-215 11010 i i i Pop and
> Jump 0n False iii +1 (i.e., 1 through 8)
> + * 244 11110100 i i i i i i i i Pop and
> Jump 0n False i i i i i i i i (+ Extend B * 256, where Extend B >= 0)"
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 208 and: [byte <= 215 or: [byte = 244]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isBranchIfTrueAt:in: (in
> category 'instruction stream support') -----
> + isBranchIfTrueAt: pc in: method
> + "Answer whether the bytecode at pc is a conditional
> branch-if-true."
> +
> + " 200-207 11001 i i i Pop and
> Jump 0n True iii +1 (i.e., 1 through 8)
> + * 243 11110011 i i i i i i i i Pop and
> Jump 0n True i i i i i i i i (+ Extend B * 256, where Extend B >= 0)"
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 200 and: [byte <= 207 or: [byte = 243]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isExtension: (in category
> 'instruction stream support') -----
> + isExtension: bytecode
> + "Answer if the bytecode is an extension bytecode, i.e. one that
> extends
> + the range of the following bytecode."
> + ^bytecode >= 16rE0 and: [bytecode <= 16rE1]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isJumpAt:in: (in category
> 'instruction stream support') -----
> + isJumpAt: pc in: method
> + "Answer whether the bytecode at pc is an (unconditional) jump."
> +
> + " 192-199 11000 i i i Jump iii +
> 1 (i.e., 1 through 8)
> + * 225 11100001 sbbbbbbb Extend B
> (Ext B = Ext B prev * 256 + Ext B)
> + * 242 11110010 i i i i i i i i Jump i i i
> i i i i i (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0,
> a=0, s=1)"
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 192 and: [byte <= 199 or: [byte = 242]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isJustPopAt:in: (in category
> 'instruction stream support') -----
> + isJustPopAt: pc in: method
> + "Answer whether the bytecode at pc is a pop."
> +
> + ^(method at: pc) = 220 "220 11011100
> Pop Stack Top"!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isRealSendAt:in: (in category
> 'instruction stream support') -----
> + isRealSendAt: pc in: method
> + "Answer whether the bytecode at pc is a real message-send, not
> blockCopy:."
> +
> + ^self isSendAt: pc in: method!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isReturnAt:in: (in category
> 'instruction stream support') -----
> + isReturnAt: pc in: method
> + "Answer whether the bytecode at pc is a return from block."
> + "216 11011000 Return Receiver From
> Message
> + 217 11011001 Return Stack Top From
> Message
> + 218 11011010 Return Stack Top From
> Block [* return from enclosing block N, N = Extend A]"
> + ^(self nonExtensionBytecodeAt: pc in: method) between: 216 and:
> 218!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isSendAt:in: (in category
> 'instruction stream support') -----
> + isSendAt: pc in: method
> + "Answer whether the bytecode at pc is a message-send."
> +
> + " 80-95 0101 i i i i Send Arithmetic
> Message #iiii
> + 96-111 0110 i i i i Send Special
> Message #iiii
> + 112-127 0111 i i i i Send Literal Selector
> #iiii With 0 Arguments
> + 128-143 1000 i i i i Send Literal Selector
> #iiii With 1 Argument
> + 144-159 1001 i i i i Send Literal Selector
> #iiii With 2 Arguments
> + 160-175 1010 i i i i Send To Absent Implicit
> Receiver Literal Selector #iiii With 0 Arguments
> + * 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 225 11100001 sbbbbbbb Extend B
> (Ext B = Ext B prev * 256 + Ext B)
> + ** 238 11101110 i i i i i j j j Send
> Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8)
> Arguments
> + ** 239 11101111 i i i i i j j j Send To
> Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B *
> 8) Arguments
> + ** 240 11110000 i i i i i j j j Send To
> Absent Implicit Receiver Literal Selector #iiiii (+ Extend A * 32) with jjj
> (+ Extend B * 8) Arguments
> + ** 241 11110001 i i i i i j j j Send To
> Absent Dynamic Superclass Literal Selector #iiiii (+ Extend A * 32) with
> jjj (+ Extend B * 8) Arguments"
> +
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 80
> + and: [byte <= 175
> + or: [byte <= 241 and: [byte >= 238]]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isStoreAt:in: (in category
> 'instruction stream support') -----
> + isStoreAt: pc in: method
> + "Answer whether the bytecode at pc is a store or store-pop."
> +
> + " 176-183 10110 i i i
> Pop and Store Receiver Variable #iii
> + 184-191 10111 i i i
> Pop and Store Temporary Variable #iii
> + * 224 11100000 aaaaaaaa
> Extend A (Ext A = Ext A prev * 256 + Ext A)
> + * 232 11101000 i i i i i i i i
> Store Receiver Variable #iiiiiii (+ Extend A * 256)
> + * 233 11101001 i i i i i i i i
> Store Literal Variable #iiiiiiii (+ Extend A * 256)
> + 234 11101010 i i i i i i i i
> Store Temporary Variable #iiiiiiii
> + * 235 11101011 i i i i i i i i
> Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
> + * 236 11101100 i i i i i i i i
> Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
> + 237 11101101 i i i i i i i i
> Pop and Store Temporary Variable #iiiiiiii
> + 251 11111011 kkkkkkkk jjjjjjjj
> Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj
> + 252 11111100 kkkkkkkk jjjjjjjj
> Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
> +
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 176
> + and: [byte <= 191
> + or: [(byte between: 232 and: 237)
> + or: [(byte between: 251 and: 252)]]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>isStorePopAt:in: (in category
> 'instruction stream support') -----
> + isStorePopAt: pc in: method
> + "Answer whether the bytecode at pc is a store-pop."
> +
> + " 176-183 10110 i i i
> Pop and Store Receiver Variable #iii
> + 184-191 10111 i i i
> Pop and Store Temporary Variable #iii
> + * 224 11100000 aaaaaaaa
> Extend A (Ext A = Ext A prev * 256 + Ext A)
> + * 235 11101011 i i i i i i i i
> Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
> + * 236 11101100 i i i i i i i i
> Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
> + 237 11101101 i i i i i i i i
> Pop and Store Temporary Variable #iiiiiiii
> + 252 11111100 kkkkkkkk jjjjjjjj
> Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
> +
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 176
> + and: [byte <= 191
> + or: [(byte between: 235 and: 237)
> + or: [byte = 252]]]!
>
> Item was removed:
> - ----- Method: EncoderForNewsqueakV4 class>>method:readsField: (in
> category 'scanning') -----
> - method: method readsField: varIndex
> - "Answer if method loads the instance variable indexed by varIndex.
> - N.B. Don't assume the compiler uses the most compact encoding
> available.
> - 0-15 0000 i i i i
> Push Receiver Variable #iiii
> - * 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> - * 226 11100010 i i i i i i i i Push
> Receiver Variable #iiiiiiii (+ Extend A * 256)"
> - | varIndexCode scanner extension |
> - varIndexCode := varIndex - 1.
> - method isReturnField ifTrue:
> - [^method returnField = varIndexCode].
> - extension := 0.
> - ^(scanner := InstructionStream on: method) scanFor:
> - [:b| | prevext |
> - prevext := extension.
> - extension := b = 224 ifTrue: [scanner followingByte
> bitShift: 8] ifFalse: [0].
> - (b < 16 and: [b = varIndexCode])
> - or: [b = 226
> - and: [scanner followingByte + prevext =
> varIndexCode]]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4
> class>>method:refersInBytecodeToLiteral:specialSelectorIndex: (in category
> 'scanning') -----
> + method: method refersInBytecodeToLiteral: aLiteral specialSelectorIndex:
> specialOrNil
> + "Answer if method refers to the literal aLiteral in the bytecode,
> as opposed to in its literal frame."
> +
> + "* 77 01001101
> Push false [* 1:true, 2:nil, 3:thisContext, ..., -N:
> pushExplicitOuter: N, N = Extend B]
> + 78 01001110
> Push 0
> + 79 01001111
> Push 1
> + 80-95 0101 i i i i
> Send Arithmetic Message #iiii
> + 96-111 0110 i i i i
> Send Special Message #iiii
> + * 225 11100001 sbbbbbbb Extend B
> (Ext B = Ext B prev * 256 + Ext B)
> + * 229 11100101 i i i i i i i i Push
> Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768
> = i=0, a=0, s=1)"
> + | byte extended scanner |
> + specialOrNil ifNotNil:
> + [byte := specialOrNil + 79.
> + ^(InstructionStream on: method) scanFor: [:b| b = byte]].
> + extended := false.
> + aLiteral isInteger ifTrue:
> + [(aLiteral >= -32768 and: [aLiteral <= 32767]) ifFalse:
> [^false].
> + scanner := InstructionStream on: method.
> + (aLiteral >= 0 and: [aLiteral <= 255]) ifTrue:
> + [aLiteral <= 1 ifTrue:
> + [byte := aLiteral + 80.
> + ^scanner scanFor: [:b| b = byte]].
> + ^scanner scanFor:
> + [:b|
> + (b = 229
> + and: [extended not
> + and: [scanner followingByte = aLiteral]])
> + or: [extended := b = 225.
> + false]]].
> + byte := (aLiteral bitShift: -8) bitAnd: 255.
> + ^scanner scanFor:
> + [:b|
> + (b = 229
> + and: [extended
> + and: [scanner followingByte = (aLiteral bitAnd:
> 255)]])
> + or: [extended := b = 225 and: [scanner
> followingByte = byte].
> + false]]].
> + byte := #(false true nil) identityIndexOf: aLiteral ifAbsent: 0.
> + byte = 0 ifTrue:
> + [^false].
> + scanner := InstructionStream on: method.
> + byte = 1 ifTrue:
> + [^scanner scanFor:
> + [:b|
> + (b = 77
> + and: [extended not])
> + or: [extended := b = 225.
> + false]]].
> + byte := byte - 1.
> + ^scanner scanFor:
> + [:b|
> + (b = 77
> + and: [extended])
> + or: [extended := b = 225 and: [scanner followingByte =
> byte].
> + false]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>nonExtensionBytecodeAt:in:
> (in category 'instruction stream support') -----
> + nonExtensionBytecodeAt: pc in: method
> + "Answer the actual bytecode at pc in method, skipping past any
> preceeding extensions."
> + | thePC bytecode |
> + thePC := pc.
> + [self isExtension: (bytecode := method at: thePC)] whileTrue:
> + [thePC := thePC + (self bytecodeSize: bytecode)].
> + ^bytecode!
>
> Item was removed:
> - ----- Method: EncoderForNewsqueakV4 class>>popCode (in category
> 'bytecode decoding') -----
> - popCode
> - "220 11011100 Pop Stack Top"
> - ^220!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>superSendScanBlockUsing: (in
> category 'instruction stream support') -----
> + superSendScanBlockUsing: scanner
> + "Answer a block argument for InstructionStream>>scanFor:
> + that answers true for super sends."
> +
> + "* 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 225 11100001 sbbbbbbb Extend B
> (Ext B = Ext B prev * 256 + Ext B)
> + ** 239 11101111 i i i i i j j j Send To
> Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B *
> 8) Arguments
> + ** 241 11110001 i i i i i j j j Send To
> Absent Dynamic Superclass Literal Selector #iiiii (+ Extend A * 32) with
> jjj (+ Extend B * 8) Arguments"
> +
> + ^[:instr | instr = 239 or: [instr = 241]]!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4 class>>supportsClosures (in category
> 'compiled method support') -----
> + supportsClosures
> + "Answer if the instruction set supports closures (contains
> + closure creation and indirect temp access bytecodes)."
> +
> + ^true!
>
> Item was changed:
> ----- Method: EncoderForNewsqueakV4>>genBranchPopFalse: (in category
> 'bytecode generation') -----
> genBranchPopFalse: distance
> - | distanceMod256 |
> - (distance < 0 or: [distance > 32767]) ifTrue:
> - [^self outOfRangeError: 'distance' index: distance range:
> 0 to: 32767].
> (distance > 0 and: [distance < 9]) ifTrue:
> ["208-215 11010 i i i Pop and Jump 0n
> False iii +1 (i.e., 1 through 8)"
> stream nextPut: 207 + distance.
> ^self].
> + ^self genBranchPopFalseLong: distance!
> - "244 11110100 i i i i i i i i Pop and Jump 0n
> False i i i i i i i i (+ Extend B * 256)"
> - distanceMod256 := (distance < 0 or: [distance > 255])
> - ifTrue:
> -
> [self genUnsignedSingleExtendB: (distance bitShift: -8).
> -
> distance bitAnd: 255]
> - ifFalse:
> [distance].
> - stream
> - nextPut: 244;
> - nextPut: distanceMod256!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4>>genBranchPopFalseLong: (in category
> 'bytecode generation') -----
> + genBranchPopFalseLong: distance
> + "244 11110100 i i i i i i i i Pop and Jump 0n
> False i i i i i i i i (+ Extend B * 256)"
> + | distanceMod256 |
> + (distance < 0 or: [distance > 32767]) ifTrue:
> + [^self outOfRangeError: 'distance' index: distance range:
> 0 to: 32767].
> + distanceMod256 := (distance < 0 or: [distance > 255])
> + ifTrue:
> +
> [self genUnsignedSingleExtendB: (distance bitShift: -8).
> +
> distance bitAnd: 255]
> + ifFalse:
> [distance].
> + stream
> + nextPut: 244;
> + nextPut: distanceMod256!
>
> Item was changed:
> ----- Method: EncoderForNewsqueakV4>>genBranchPopTrue: (in category
> 'bytecode generation') -----
> genBranchPopTrue: distance
> - | distanceMod256 |
> - (distance < 0 or: [distance > 32767]) ifTrue:
> - [^self outOfRangeError: 'distance' index: distance range:
> 0 to: 32767].
> (distance > 0 and: [distance < 9]) ifTrue:
> ["200-207 11001 i i i Pop and Jump 0n
> True iii +1 (i.e., 1 through 8)"
> stream nextPut: 199 + distance.
> ^self].
> + ^self genBranchPopTrueLong: distance!
> - "243 11110011 i i i i i i i i Pop and Jump 0n
> True i i i i i i i i (+ Extend B * 256)"
> - distanceMod256 := (distance < 0 or: [distance > 255])
> - ifTrue:
> -
> [self genUnsignedSingleExtendB: (distance bitShift: -8).
> -
> distance bitAnd: 255]
> - ifFalse:
> [distance].
> - stream
> - nextPut: 243;
> - nextPut: distanceMod256!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4>>genBranchPopTrueLong: (in category
> 'bytecode generation') -----
> + genBranchPopTrueLong: distance
> + "243 11110011 i i i i i i i i Pop and Jump 0n
> True i i i i i i i i (+ Extend B * 256)"
> + | distanceMod256 |
> + (distance < 0 or: [distance > 32767]) ifTrue:
> + [^self outOfRangeError: 'distance' index: distance range:
> 0 to: 32767].
> + (distance > 0 and: [distance < 9]) ifTrue:
> + ["200-207 11001 i i i Pop and Jump 0n
> True iii +1 (i.e., 1 through 8)"
> + stream nextPut: 199 + distance.
> + ^self].
> + distanceMod256 := (distance < 0 or: [distance > 255])
> + ifTrue:
> +
> [self genUnsignedSingleExtendB: (distance bitShift: -8).
> +
> distance bitAnd: 255]
> + ifFalse:
> [distance].
> + stream
> + nextPut: 243;
> + nextPut: distanceMod256!
>
> Item was added:
> + ----- Method: EncoderForNewsqueakV4>>genExt1: (in category 'bytecode
> generation') -----
> + genExt1: aSmallInteger
> + self shouldBeImplemented!
>
> Item was added:
> + BytecodeEncoder subclass: #EncoderForSistaV1
> + instanceVariableNames: ''
> + classVariableNames: ''
> + poolDictionaries: ''
> + category: 'BytecodeSets-SistaV1'!
> +
> + !EncoderForSistaV1 commentStamp: 'eem 4/16/2014 14:44' prior: 0!
> + EncoderForSistaV1 encodes a bytecode set for Sista, the Speculative
> Inlining Smalltalk Architecture, a project by Clément Bera and Eliot
> Miranda. Sista is an optimizer that exists in the Smalltalk image, /not/
> in the VM, and optimizes by substituting normal bytecoded methods by
> optimized bytecoded methods that may use special bytecodes for which the
> Cogit can generate faster code. These bytecodes eliminate overheads such
> as bounds checks or polymorphic code (indexing Array, ByteArray, String
> etc). But the bulk of the optimization performed is in inlining blocks and
> sends for the common path. This bytecode set therefore differs from a
> normal Smalltalk set in providing a set of inlined primitives that do not
> validate their arguments that the compiler generates only when it can prove
> that the primitives' arguments are valid.
> +
> + The basic scheme is that the Cogit generates code containing performance
> counters. When these counters trip, a callback into the image is
> performed, at which point Sista analyses some portion of the stack, looking
> at performance data for the methods on the stack, and optimises based on
> the stack and performance data. Execution then resumes in the optimized
> code.
> +
> + The Sista Cogit (e.g. SistaStackToRegisterMappingCogit) adds counters to
> conditional branches. Each branch has an executed and a taken count. On
> execution the executed count is decremented and if the count goes below
> zero the VM sends a message at a special index in the specialObjectsArray
> (as of writing, conditionalCounterTrippedOn:). Then if the branch is taken
> the taken count is decremented. The two counter values allow the Sista
> optimizer to collect basic block execution paths and to know what are the
> "hot" paths through execution that are worth agressively optimizing. Since
> conditional branches are about 1/6 as frequent as sends, and since they can
> be used to determine the hot path through code, they are a better choice to
> count than, for example, method or block entry.
> +
> + The VM provides a primitive that fills an Array with the state of the
> counters, and the state of each linked send in a method. Tthe optimizer
> obtains the branch and send data for a method via this primitive.
> +
> +
> + This bytecde set encodes a bytecode set for Smalltalk that lifts limits
> on the number of literals and branch distances, and extended push integer
> and push character bytecodes. Bytecodes are ordered by length to make
> decoding easier. Bytecodes marked with an * are extensible via a prefix
> bytecode.
> +
> + N.B. Extension bytecodes can only come before extensible bytecodes, and
> only if valid (one cannot extend a bytecode extensible by Ext A with an Ext
> B). An extensible bytecode consumes (and zeros) its extension(s). Hence
> the hidden implicit variables holding extensions are always zero except
> after a valid sequence of extension bytecodes.
> +
> + Instance Variables (inherited)
> +
> + 1 Byte Bytecodes
> + 0-15 0000 iiii Push Receiver
> Variable #iiii
> + 16-31 0001 iiii Push Literal
> Variable #iiii
> + 32-63 001 iiiii Push
> Literal #iiiii
> + 64-71 01000 iii Push Temp #iii
> + 72-75 010010 ii Push Temp #ii + 8
> + 76 01001100 Push
> Receiver
> + 77 01001101 Push true
> + 78 01001110 Push false
> + 79 01001111 Push nil
> + 80 01010000 Push 0
> + 81 01010001 Push 1
> + * 82 01010010 Push
> thisContext, (then e.g. Extend 1 = push thisProcess)
> + 83 01010011 Duplicate
> Stack Top
> + 84-87 010101 ii UNASSIGNED
> + 88-91 010110 ii Return
> Receiver/true/false/nil
> + 92 01011100 Return top
> + 93 01011101
> BlockReturn nil
> + * 94 01011110
> BlockReturn Top [* return from enclosing block N, N = Extend A, then jump
> by Ext B ]
> + * 95 01011111 Nop
> + 96-111 0110 iiii Send Arithmetic
> Message #iiii #(#+ #- #< #> #'<=' #'>=' #= #'~=' #* #/ #'\\' #@ #bitShift:
> #'//' #bitAnd: #bitOr:)
> + 112-119 01110 iii Send Special Message #iii
> #(#at: #at:put: #size #next #nextPut: #atEnd #'==' class)
> + 120 01111000 UNASSIGNED (was:
> blockCopy:)
> + 121 01111001 Send Special
> Message #value
> + 122-123 0111101 i Send Special Message #i
> #(#value: #do:)
> + 124-127 011111 ii Send Special Message #ii
> #(#new #new: #x #y))
> + 128-143 1000 iiii Send Literal Selector
> #iiii With 0 Argument
> + 144-159 1001 iiii Send Literal Selector
> #iiii With 1 Arguments
> + 160-175 1010 iiii Send Literal Selector
> #iiii With 2 Arguments
> + 176-183 10110 iii Jump iii + 1 (i.e., 1
> through 8)
> + 184-191 10111 iii Pop and Jump 0n True iii
> +1 (i.e., 1 through 8)
> + 192-199 11000 iii Pop and Jump 0n False iii
> +1 (i.e., 1 through 8)
> + 200-207 11001 iii Pop and Store Receiver
> Variable #iii
> + 208-215 11010 iii Pop and Store Temporary
> Variable #iii
> + 216 11011000 Pop Stack Top
> + 217 11011001 UNASSIGNED
> + 218-219 1101101 i UNASSIGNED
> + 220-223 110111 ii UNASSIGNED
> +
> + 2 Byte Bytecodes
> + * 224 11100000 aaaaaaaa Extend A (Ext A =
> Ext A prev * 256 + Ext A)
> + * 225 11100001 bbbbbbbb Extend B (Ext B =
> Ext B prev * 256 + Ext B)
> + * 226 11100010 iiiiiiii Push
> Receiver Variable #iiiiiiii (+ Extend A * 256)
> + * 227 11100011 iiiiiiii Push
> Literal Variable #iiiiiiii (+ Extend A * 256)
> + * 228 11100100 iiiiiiii Push
> Literal #iiiiiiii (+ Extend A * 256)
> + 229 11100101 iiiiiiii Push
> Temporary Variable #iiiiiiii
> + 230 11100110 iiiiiiii
> PushNClosureTemps iiiiiiii
> + 231 11100111 jkkkkkkk Push (Array new:
> kkkkkkk) (j = 0)
> + &
> Pop kkkkkkk elements into: (Array new: kkkkkkk) (j = 1)
> + * 232 11101000 iiiiiiii Push
> Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768
> = i=0, a=0, s=1)
> + * 233 11101001 iiiiiiii Push
> Character #iiiiiiii (+ Extend B * 256)
> + ** 234 11101010 iiiiijjj Send
> Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8)
> Arguments
> + ** 235 11101011 iiiiijjj Send To
> Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B *
> 8) Arguments
> + * 236 11101100 iiiiiiii Trap On
> Behavior/Array Of Behavior #iiiiiiii (+ Extend A * 256, where Extend A >= 0)
> + * 237 11101101 iiiiiiii Jump
> #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0,
> a=0, s=1)
> + * 238 11101110 iiiiiiii Pop and
> Jump 0n True #iiiiiiii (+ Extend B * 256, where Extend B >= 0)
> + * 239 11101111 iiiiiiii Pop and
> Jump 0n False #iiiiiiii (+ Extend B * 256, where Extend B >= 0)
> + * 240 11110000 iiiiiiii Pop and
> Store Receiver Variable #iiiiiii (+ Extend A * 256)
> + * 241 11110001 iiiiiiii Pop and
> Store Literal Variable #iiiiiiii (+ Extend A * 256)
> + 242 11110010 iiiiiiii Pop and
> Store Temporary Variable #iiiiiiii
> + * 243 11110011 iiiiiiii Store
> Receiver Variable #iiiiiii (+ Extend A * 256)
> + * 244 11110100 iiiiiiii Store
> Literal Variable #iiiiiiii (+ Extend A * 256)
> + 245 11110110 iiiiiiii Store
> Temporary Variable #iiiiiiii
> + 246-247 1111011 i xxxxxxxx UNASSIGNED
> +
> + 3 Byte Bytecodes
> + 248 11111000 iiiiiiii mjjjjjjj
> Call Primitive #iiiiiiii + (jjjjjjj * 256) m=1 means inlined
> primitive, no hard return after execution.
> + 249 11111001 xxxxxxxx syyyyyyy
> Reserved for Push Float
> + ** 250 11111010 eeiiikkk jjjjjjjj
> Push Closure Num Copied iii (+ExtA//16*8) Num Args kkk (+
> ExtA\\16*8) BlockSize jjjjjjjj (+ExtB*256). ee = num extensions
> + 251 11111011 kkkkkkkk jjjjjjjj
> Push Temp At kkkkkkkk In Temp Vector At: jjjjjjjj
> + 252 11111100 kkkkkkkk jjjjjjjj
> Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj
> + 253 11111101 kkkkkkkk jjjjjjjj
> Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj
> + 254-255 1111111i xxxxxxxx yyyyyyyy UNASSIGNED
> +
> + The Call Primitive Bytecode specifies either a primitive in the
> primitive table (m=0) or an inlined primitive (m=1). Non-inlined primtiives
> from the primitive table have index (jjjjjjj * 256) + iiiiiiii and return
> from the method if they succeed. This bytecode is only valid as the first
> bytecode of a method. Inline primitives have index (jjjjjjj * 256) +
> iiiiiiii, cannot fail, and do not return when they succeed, yielding a
> result (typically on top of stack after popping their arguments, but
> possibly in a byte data stack, for example for unboxed floating-point
> primitives).
> +
> + We define the following inlined primitives:
> + 0 unchecked SmallInteger #+. Both arguments are SmallIntegers and
> the result fits in a SmallInteger (* depends on word size)
> + 1 unchecked SmallInteger #-. Both arguments are SmallIntegers and
> the result fits in a SmallInteger (* depends on word size)
> + 2 unchecked SmallInteger #*. Both arguments are SmallIntegers and
> the result fits in a SmallInteger (* depends on word size)
> + 3 unchecked SmallInteger #/. Both arguments are SmallIntegers and
> the result fits in a SmallInteger (* depends on word size)
> + 4 unchecked SmallInteger #//. Both arguments are SmallIntegers and
> the result fits in a SmallInteger (* depends on word size)
> + 5 unchecked SmallInteger #\\. Both arguments are SmallIntegers and
> the result fits in a SmallInteger (* depends on word size)
> + 6 unchecked SmallInteger #rem:. Both arguments are SmallIntegers
> and the result fits in a SmallInteger (* depends on word size)
> +
> + 16 unchecked SmallInteger #bitAnd:. Both arguments are SmallIntegers
> and the result fits in a SmallInteger (* depends on word size)
> + 17 unchecked SmallInteger #bitOr:. Both arguments are SmallIntegers
> and the result fits in a SmallInteger (* depends on word size)
> + 18 unchecked SmallInteger #bitXor:. Both arguments are SmallIntegers
> and the result fits in a SmallInteger (* depends on word size)
> + 19 unchecked SmallInteger #bitShift:. Both arguments are
> SmallIntegers and the result fits in a SmallInteger (* depends on word size)
> +
> + 32 unchecked SmallInteger #>. Both arguments are SmallIntegers
> + 33 unchecked SmallInteger #<. Both arguments are SmallIntegers
> + 34 unchecked SmallInteger #>=. Both arguments are SmallIntegers
> + 35 unchecked SmallInteger #<=. Both arguments are SmallIntegers
> + 36 unchecked SmallInteger #=. Both arguments are SmallIntegers
> + 37 unchecked SmallInteger #!!=. Both arguments are SmallIntegers
> +
> + 64 unchecked Pointer Object>>at:. The receiver is guaranteed
> to be a pointer object. The 0-relative (1-relative?) index is an in-range
> SmallInteger
> + 65 unchecked Byte Object>>at:. The receiver is
> guaranteed to be a non-pointer object. The 0-relative (1-relative?) index
> is an in-range SmallInteger. The result is a SmallInteger.
> + 66 unchecked Word Object>>at:. The receiver is
> guaranteed to be a non-pointer object. The 0-relative (1-relative?) index
> is an in-range SmallInteger. The result is a SmallInteger.
> + 67 unchecked DoubleWord Object>>at:. The receiver is guaranteed
> to be a non-pointer object. The 0-relative (1-relative?) index is an
> in-range SmallInteger. The result is a SmallInteger or a
> LargePositiveInteger.
> + 67 unchecked QuadWord Object>>at:. The receiver is guaranteed
> to be a non-pointer object. The 0-relative (1-relative?) index is an
> in-range SmallInteger. The result is a SmallInteger or a
> LargePositiveInteger.
> +
> + 80 unchecked Pointer Object>>at:put:. The
> receiver is guaranteed to be a pointer object. The 0-relative
> (1-relative?) index is an in-range SmallInteger
> + 81 unchecked Byte Object>>at:put:. The receiver is
> guaranteed to be a non-pointer object. The 0-relative (1-relative?) index
> is an in-range SmallInteger. The argument is a SmallInteger. The
> primitive stores the least significant 8 bits.
> + 82 unchecked Word Object>>at:put:. The receiver is
> guaranteed to be a non-pointer object. The 0-relative (1-relative?) index
> is an in-range SmallInteger. The argument is a SmallInteger. The
> primitive stores the least significant 16 bits.
> + 83 unchecked DoubleWord Object>>at:put:. The receiver is guaranteed
> to be a non-pointer object. The 0-relative (1-relative?) index is an
> in-range SmallInteger. The argument is a SmallInteger. The primitive
> stores the least significant 32 bits.
> + 83 unchecked QuadWord Object>>at:put:. The receiver is
> guaranteed to be a non-pointer object. The 0-relative (1-relative?) index
> is an in-range SmallInteger. The argument is a SmallInteger. The
> primitive stores the least significant 64 bits.!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>bindingReadScanBlockFor:using:
> (in category 'compiled method support') -----
> + bindingReadScanBlockFor: litVarIndex using: scanner
> + "Answer a block argument for InstructionStream>>scanFor: that
> answers true
> + for reads of the value of the binding with zero-relative index
> litVarIndex.
> + N.B. Don't assume the compiler uses the most compact encoding
> available."
> +
> + " 16-31 0001 i i i i
> Push Literal Variable #iiii
> + * 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 227 11100011 i i i i i i i i Push
> Literal Variable #iiiiiiii (+ Extend A * 256)"
> + | extension |
> + extension := 0.
> + ^[:b| | prevext |
> + prevext := extension.
> + extension := b = 224 ifTrue: [scanner followingByte bitShift:
> 8] ifFalse: [0].
> + (b < 32 and: [b >= 16 and: [b - 16 = litVarIndex]])
> + or: [b = 227
> + and: [scanner followingByte + prevext =
> litVarIndex]]]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>bindingWriteScanBlockFor:using:
> (in category 'compiled method support') -----
> + bindingWriteScanBlockFor: litVarIndex using: scanner
> + "Answer a block argument for InstructionStream>>scanFor: that
> answers true
> + for writes of the value of the binding with zero-relative index
> litVarIndex.
> + N.B. Don't assume the compiler uses the most compact encoding
> available."
> +
> + "* 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 241 11110001 iiiiiiii
> Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
> + * 244 11110100 iiiiiiii
> Store Literal Variable #iiiiiiii (+ Extend A * 256)"
> + | extension |
> + extension := 0.
> + ^[:b| | prevext |
> + prevext := extension.
> + extension := b = 224 ifTrue: [scanner followingByte bitShift:
> 8] ifFalse: [0].
> + (b = 241 or: [b = 244])
> + and: [scanner followingByte + prevext = litVarIndex]]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>bytecodeSize: (in category
> 'instruction stream support') -----
> + bytecodeSize: bytecode
> + "Answer the number of bytes in the bytecode."
> + bytecode < 224 ifTrue: [^1].
> + bytecode < 248 ifTrue: [^2].
> + ^3!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>callPrimitiveCode (in category
> 'bytecode decoding') -----
> + callPrimitiveCode
> + "Answer the call primitive bytecode, if it exists in the encoder's
> bytecode set, or nil if not.
> + 248 11111000 iiiiiiii mjjjjjjj Call
> Primitive #iiiiiiii + (jjjjjjj * 256) m=1 means inlined primitive, no hard
> return after execution."
> + ^248!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>createClosureScanBlock (in
> category 'compiled method support') -----
> + createClosureScanBlock
> + "Answer a block argument for InstructionStream>>scanFor: that
> answers true
> + for block closure creation bytecodes. ote that with this
> interface we can't answer
> + true for the extension in front of a push closure bytecode and so
> the interface may
> + have to change at some point."
> +
> + "* 224 11100000 aaaaaaaa
> Extend A (Ext A = Ext A prev * 256 + Ext A)
> + * 225 11100001 bbbbbbbb Extend B
> (Ext B = Ext B prev * 256 + Ext B)
> + ** 250 11111010 eeiiikkk
> jjjjjjjj Push Closure Num Copied iii (+ExtA//16*8) Num Args
> kkk (+ ExtA\\16*8) BlockSize jjjjjjjj (+ExtB*256). ee = num extensions"
> + ^[:b| b = 250]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>extensionsAt:in:into: (in
> category 'compiled method support') -----
> + extensionsAt: bcpc in: method into: aTrinaryBlock
> + "If the bytecode at pc is an extension then evaluate aBinaryBlock
> with the values of extA and extB and number of extension *bytes*.
> + If the bytecode at pc is not extended then evaluate aBinaryBlock
> with 0 and 0.
> + 224 11100000 aaaaaaaa Extend A (Ext A =
> Ext A prev * 256 + Ext A)
> + 225 11100001 bbbbbbbb Extend B (Ext B =
> Ext B prev * 256 + Ext B)"
> +
> + | scanpc byte extByte extA extB |
> + scanpc := bcpc.
> + "There may be an extension (it could be a false positive). We
> must scan as fast as possible..."
> + extA := extB := 0.
> + [byte := method at: scanpc.
> + byte >= 224 and: [byte <= 225]] whileTrue:
> + [extByte := method at: scanpc + 1.
> + scanpc := scanpc + 2.
> + byte = 224
> + ifTrue:
> + [extA := (extA bitShift: 8) + extByte]
> + ifFalse:
> + [extB := (extB = 0 and: [extByte > 127])
> + ifTrue: [extByte - 256]
> + ifFalse: [(extB bitShift: 8) +
> extByte]]].
> + ^aTrinaryBlock value: extA value: extB value: scanpc - bcpc
> +
> +
> + "Why use
> + byte >= 224 and: [byte <= 225]
> + and not
> + (byte bitAnd: 16rFE) = 16rE0
> + ?
> + | n |
> + n := 100000000.
> + #(0 224) collect:
> + [:byte|
> + { Time millisecondsToRun: [1 to: n do: [:i| (byte >= 224 and:
> [byte <= 225]) ifTrue: []]].
> + Time millisecondsToRun: [1 to: n do: [:i| (byte bitAnd: 16rFE)
> = 16rE0 ifTrue: []]] }] #(#(297 599) #(702 671))"!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>instVarReadScanBlockFor:using:
> (in category 'compiled method support') -----
> + instVarReadScanBlockFor: varIndexCode using: scanner
> + "Answer a block argument for InstructionStream>>scanFor: that
> answers true
> + for reads of the inst var with zero-relative index varIndexCode.
> + N.B. Don't assume the compiler uses the most compact encoding
> available."
> +
> + " 0-15 0000 i i i i
> Push Receiver Variable #iiii
> + * 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 226 11100010 i i i i i i i i Push
> Receiver Variable #iiiiiiii (+ Extend A * 256)"
> + | extension |
> + extension := 0.
> + ^[:b| | prevext |
> + prevext := extension.
> + extension := b = 224 ifTrue: [scanner followingByte bitShift:
> 8] ifFalse: [0].
> + (b < 16 and: [b = varIndexCode])
> + or: [b = 226
> + and: [scanner followingByte + prevext =
> varIndexCode]]]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>instVarWriteScanBlockFor:using:
> (in category 'compiled method support') -----
> + instVarWriteScanBlockFor: varIndexCode using: scanner
> + "Answer a block argument for InstructionStream>>scanFor: that
> answers true
> + for writes of the inst var with zero-relative index varIndexCode.
> + N.B. Don't assume the compiler uses the most compact encoding
> available."
> +
> + " 200-207 11001 iii Pop and Store
> Receiver Variable #iii
> + * 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 240 11110000 iiiiiiii
> Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
> + * 243 11110011 iiiiiiii
> Store Receiver Variable #iiiiiii (+ Extend A * 256)"
> + | extension |
> + extension := 0.
> + ^[:b| | prevext |
> + prevext := extension.
> + extension := b = 224 ifTrue: [scanner followingByte bitShift:
> 8] ifFalse: [0].
> + (b >= 200
> + and: [b < 208
> + and: [b - 200 = varIndexCode]])
> + or: [(b = 240 or: [b = 243])
> + and: [scanner followingByte + prevext = varIndexCode]]]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>interpretJumpIfCondIn: (in
> category 'compiled method support') -----
> + interpretJumpIfCondIn: anInstructionStream
> + "Double-dispatch through the encoder to select the correct
> conditional jump decoder for the instruction set."
> + ^anInstructionStream interpretSistaV1JumpIfCond!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>interpretJumpIn: (in category
> 'compiled method support') -----
> + interpretJumpIn: anInstructionStream
> + "Double-dispatch through the encoder to select the correct
> unconditional jump decoder for the instruction set."
> + ^anInstructionStream interpretSistaV1Jump!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>interpretNextInstructionFor:in:
> (in category 'instruction stream support') -----
> + interpretNextInstructionFor: aClient in: anInstructionStream
> + "Double-dispatch through the encoder to select the correct
> instruction set decoder."
> + ^anInstructionStream interpretNextSistaV1InstructionFor: aClient!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isBlockReturnAt:in: (in category
> 'instruction stream support') -----
> + isBlockReturnAt: pc in: method
> + "Answer whether the bytecode at pc is a return from block."
> + " 93 01011101
> BlockReturn nil
> + * 94 01011110
> BlockReturn Top [* return from enclosing block N, N = Extend A, then jump
> by Ext B ]"
> + ^(self nonExtensionBytecodeAt: pc in: method) between: 93 and: 94!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isBranchIfFalseAt:in: (in
> category 'instruction stream support') -----
> + isBranchIfFalseAt: pc in: method
> + "Answer whether the bytecode at pc is a conditional
> branch-if-false."
> +
> + " 192-199 11000 iii Pop and
> Jump 0n False iii +1 (i.e., 1 through 8)
> + * 239 11101111 iiiiiiii
> Pop and Jump 0n False #iiiiiiii (+ Extend B * 256, where Extend B >= 0)"
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 192 and: [byte <= 199 or: [byte = 239]]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isBranchIfTrueAt:in: (in category
> 'instruction stream support') -----
> + isBranchIfTrueAt: pc in: method
> + "Answer whether the bytecode at pc is a conditional
> branch-if-true."
> +
> + " 184-191 10111 iii Pop and
> Jump 0n True iii +1 (i.e., 1 through 8)
> + * 238 11101110 iiiiiiii
> Pop and Jump 0n True #iiiiiiii (+ Extend B * 256, where Extend B >= 0))"
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 184 and: [byte <= 191 or: [byte = 238]]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isExtension: (in category
> 'instruction stream support') -----
> + isExtension: bytecode
> + "Answer if the bytecode is an extension bytecode, i.e. one that
> extends
> + the range of the following bytecode."
> + ^bytecode >= 16rE0 and: [bytecode <= 16rE1]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isJumpAt:in: (in category
> 'instruction stream support') -----
> + isJumpAt: pc in: method
> + "Answer whether the bytecode at pc is an (unconditional) jump."
> +
> + " 176-183 10110 iii Jump iii +
> 1 (i.e., 1 through 8)
> + * 225 11100001 bbbbbbbb Extend B
> (Ext B = Ext B prev * 256 + Ext B)
> + * 237 11101101 iiiiiiii
> Jump #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 =
> i=0, a=0, s=1)"
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 176 and: [byte <= 183 or: [byte = 237]]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isJustPopAt:in: (in category
> 'instruction stream support') -----
> + isJustPopAt: pc in: method
> + "Answer whether the bytecode at pc is a pop."
> +
> + ^(method at: pc) = 216 "216 11011000
> Pop Stack Top"!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isRealSendAt:in: (in category
> 'instruction stream support') -----
> + isRealSendAt: pc in: method
> + "Answer whether the bytecode at pc is a real message-send, not
> blockCopy:."
> +
> + ^self isSendAt: pc in: method!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isReturnAt:in: (in category
> 'instruction stream support') -----
> + isReturnAt: pc in: method
> + "Answer whether the bytecode at pc is a return from block."
> + " 88-91 010110 ii Return
> Receiver/true/false/nil
> + 92 01011100
> Return top
> + 93 01011101
> BlockReturn nil
> + * 94 01011110
> BlockReturn Top [* return from enclosing block N, N = Extend A, then jump
> by Ext B ]"
> + ^(self nonExtensionBytecodeAt: pc in: method) between: 88 and: 94!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isSendAt:in: (in category
> 'instruction stream support') -----
> + isSendAt: pc in: method
> + "Answer whether the bytecode at pc is a message-send."
> +
> + " 96-111 0110 iiii Send
> Arithmetic Message #iiii #(#+ #- #< #> #'<=' #'>=' #= #'~=' #* #/ #'\\' #@
> #bitShift: #'//' #bitAnd: #bitOr:)
> + 112-119 01110 iii Send Special
> Message #iii #(#at: #at:put: #size #next #nextPut: #atEnd #'==' class)
> + 120 01111000 UNASSIGNED
> (was: blockCopy:)
> + 121 01111001 Send
> Special Message #value
> + 122-123 0111101 i Send Special
> Message #i #(#value: #do:)
> + 124-127 011111 ii Send Special
> Message #ii #(#new #new: #x #y))
> + 128-143 1000 iiii Send Literal
> Selector #iiii With 0 Argument
> + 144-159 1001 iiii Send Literal
> Selector #iiii With 1 Arguments
> + 160-175 1010 iiii Send Literal
> Selector #iiii With 2 Arguments
> + ** 234 11101010 iiiiijjj Send
> Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8)
> Arguments
> + ** 235 11101011 iiiiijjj Send To
> Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B *
> 8) Arguments"
> +
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 96
> + and: [byte <= 175
> + or: [byte >= 234 and: [byte <= 235]]]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isStoreAt:in: (in category
> 'instruction stream support') -----
> + isStoreAt: pc in: method
> + "Answer whether the bytecode at pc is a store or store-pop."
> +
> + " 200-207 11001 iii
> Pop and Store Receiver Variable #iii
> + 208-215 11010 iii
> Pop and Store Temporary Variable #iii
> + * 224 11100000 aaaaaaaa
> Extend A (Ext A = Ext A prev * 256 + Ext A)
> + * 240 11110000 iiiiiiii
> Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
> + * 241 11110001 iiiiiiii
> Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
> + 242 11110010 iiiiiiii
> Pop and Store Temporary Variable #iiiiiiii
> + * 243 11110011 iiiiiiii
> Store Receiver Variable #iiiiiii (+ Extend A * 256)
> + * 244 11110100 iiiiiiii
> Store Literal Variable #iiiiiiii (+ Extend A * 256)
> + 245 11110110 iiiiiiii
> Store Temporary Variable #iiiiiiii
> +
> + 252 11111100 kkkkkkkk jjjjjjjj
> Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj
> + 253 11111101 kkkkkkkk jjjjjjjj
> Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
> +
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 200
> + and: [byte <= 215
> + or: [(byte between: 240 and: 245)
> + or: [(byte between: 252 and: 253)]]]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>isStorePopAt:in: (in category
> 'instruction stream support') -----
> + isStorePopAt: pc in: method
> + "Answer whether the bytecode at pc is a store or store-pop."
> +
> + " 200-207 11001 iii
> Pop and Store Receiver Variable #iii
> + 208-215 11010 iii
> Pop and Store Temporary Variable #iii
> + * 224 11100000 aaaaaaaa
> Extend A (Ext A = Ext A prev * 256 + Ext A)
> + * 240 11110000 iiiiiiii
> Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
> + * 241 11110001 iiiiiiii
> Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
> + 242 11110010 iiiiiiii
> Pop and Store Temporary Variable #iiiiiiii
> +
> + 253 11111101 kkkkkkkk jjjjjjjj
> Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
> +
> + | byte |
> + byte := self nonExtensionBytecodeAt: pc in: method.
> + ^byte >= 200
> + and: [byte <= 215
> + or: [(byte between: 240 and: 242)
> + or: [byte = 253]]]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1
> class>>method:refersInBytecodeToLiteral:specialSelectorIndex: (in category
> 'scanning') -----
> + method: method refersInBytecodeToLiteral: aLiteral specialSelectorIndex:
> specialOrNil
> + "Answer if method refers to the literal aLiteral in the bytecode,
> as opposed to in its literal frame."
> +
> + " 77 01001101
> Push true
> + 78 01001110
> Push false
> + 79 01001111
> Push nil
> + 80 01010000
> Push 0
> + 81 01010001
> Push 1
> + 88-91 010110 ii
> Return Receiver/true/false/nil
> + 93 01011101
> BlockReturn nil
> + 96-111 0110 iiii
> Send Arithmetic Message #iiii #(#+ #- #< #> #'<=' #'>=' #= #'~=' #* #/
> #'\\' #@ #bitShift: #'//' #bitAnd: #bitOr:)
> + 112-119 01110 iii Send
> Special Message #iii #(#at: #at:put: #size #next #nextPut: #atEnd #'=='
> class)
> + 120 01111000
> UNASSIGNED (was: blockCopy:)
> + 121 01111001
> Send Special Message #value
> + 122-123 0111101 i Send
> Special Message #i #(#value: #do:)
> + 124-127 011111 ii Send
> Special Message #ii #(#new #new: #x #y))
> + * 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 225 11100001 sbbbbbbb Extend B
> (Ext B = Ext B prev * 256 + Ext B)
> + * 232 11101000 iiiiiiii
> Push Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g.
> -32768 = i=0, a=0, s=1)
> + * 233 11101001 iiiiiiii
> Push Character #iiiiiiii (+ Extend B * 256)
> + 249 11111001 xxxxxxxx syyyyyyy
> Reserved for Push Float"
> + | byte extended scanner |
> + specialOrNil ifNotNil:
> + [byte := specialOrNil + 95.
> + ^(InstructionStream on: method) scanFor: [:b| b = byte]].
> + extended := false.
> + aLiteral isInteger ifTrue:
> + [(aLiteral >= -32768 and: [aLiteral <= 32767]) ifFalse:
> [^false].
> + scanner := InstructionStream on: method.
> + (aLiteral >= 0 and: [aLiteral <= 255]) ifTrue:
> + [aLiteral <= 1 ifTrue:
> + [byte := aLiteral + 80.
> + ^scanner scanFor: [:b| b = byte]].
> + ^scanner scanFor:
> + [:b|
> + (b = 232
> + and: [extended not
> + and: [scanner followingByte = aLiteral]])
> + or: [extended := b = 225.
> + false]]].
> + byte := (aLiteral bitShift: -8) bitAnd: 255.
> + ^scanner scanFor:
> + [:b|
> + (b = 232
> + and: [extended
> + and: [scanner followingByte = (aLiteral bitAnd:
> 255)]])
> + or: [extended := b = 225 and: [scanner
> followingByte = byte].
> + false]]].
> + aLiteral isCharacter ifTrue:
> + [aLiteral asciiValue <= 65535 ifFalse: [^false].
> + scanner := InstructionStream on: method.
> + aLiteral asciiValue <= 255 ifTrue:
> + [^scanner scanFor:
> + [:b|
> + (b = 233
> + and: [extended not
> + and: [scanner followingByte = aLiteral]])
> + or: [extended := b = 225.
> + false]]].
> + byte := (aLiteral bitShift: -8) bitAnd: 255.
> + ^scanner scanFor:
> + [:b|
> + (b = 233
> + and: [extended
> + and: [scanner followingByte = (aLiteral bitAnd:
> 255)]])
> + or: [extended := b = 225 and: [scanner
> followingByte = byte].
> + false]]].
> + aLiteral == nil ifTrue:
> + [^(InstructionStream on: method) scanFor: [:b| b = 79 or:
> [b = 91 or: b = 93]]].
> + aLiteral == true ifTrue:
> + [^(InstructionStream on: method) scanFor: [:b| b = 77 or:
> [b = 89]]].
> + aLiteral == false ifTrue:
> + [^(InstructionStream on: method) scanFor: [:b| b = 78 or:
> [b = 90]]].
> +
> + ^false!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>nonExtensionBytecodeAt:in: (in
> category 'instruction stream support') -----
> + nonExtensionBytecodeAt: pc in: method
> + "Answer the actual bytecode at pc in method, skipping past any
> preceeding extensions."
> + | thePC bytecode |
> + thePC := pc.
> + [self isExtension: (bytecode := method at: thePC)] whileTrue:
> + [thePC := thePC + (self bytecodeSize: bytecode)].
> + ^bytecode!
>
> Item was added:
> + ----- Method: EncoderForSistaV1
> class>>pcOfBlockCreationBytecodeForBlockStartingAt:in: (in category
> 'bytecode decoding') -----
> + pcOfBlockCreationBytecodeForBlockStartingAt: startpc in: method
> + "Answer the pc of the push closure bytecode whose block starts at
> startpc in method.
> + May need to back up to include extension bytecodes."
> +
> + "* 224 11100000 aaaaaaaa
> Extend A (Ext A = Ext A prev * 256 + Ext A)
> + * 225 11100001 bbbbbbbb
> Extend B (Ext B = Ext B prev * 256 + Ext B)
> + ** 250 11111010 eeiiikkk
> jjjjjjjj Push Closure Num Copied iii (+ExtA//16*8) Num Args kkk (+
> ExtA\\16*8) BlockSize jjjjjjjj (+ExtB*256). ee = num extensions"
> + | numExtensions |
> + self assert: (method at: startpc - 3) = 250.
> + numExtensions := (method at: startpc - 2) >> 6.
> + ^startpc - 3 - (numExtensions * 2)!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>pushClosureBytecodeSize (in
> category 'bytecode decoding') -----
> + pushClosureBytecodeSize
> + "Answer the size of the push closure bytecode.
> + ** 250 11111010 eeiiikkk
> jjjjjjjj Push Closure Num Copied iii (+ExtA//16*8) Num Args kkk (+
> ExtA\\16*8) BlockSize jjjjjjjj (+ExtB*256). ee = num extensions"
> + ^3!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>superSendScanBlockUsing: (in
> category 'instruction stream support') -----
> + superSendScanBlockUsing: scanner
> + "Answer a block argument for InstructionStream>>scanFor:
> + that answers true for super sends."
> +
> + "* 224 11100000 aaaaaaaa Extend A
> (Ext A = Ext A prev * 256 + Ext A)
> + * 225 11100001 sbbbbbbb Extend B
> (Ext B = Ext B prev * 256 + Ext B)
> + ** 235 11101011 iiiiijjj
> Send To Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+
> Extend B * 8) Arguments"
> +
> + ^[:instr | instr = 235]!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>supportsClosures (in category
> 'compiled method support') -----
> + supportsClosures
> + "Answer if the instruction set supports closures (contains
> + closure creation and indirect temp access bytecodes)."
> +
> + ^true!
>
> Item was added:
> + ----- Method: EncoderForSistaV1 class>>unusedBytecode (in category
> 'bytecode decoding') -----
> + unusedBytecode
> + "Answer the opcode of a single-byte unused bytecode, if it exists
> in the encoder's bytecode set, or nil if not."
> + ^223!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genBranchPopFalse: (in category
> 'bytecode generation') -----
> + genBranchPopFalse: distance
> + (distance > 0 and: [distance < 9]) ifTrue:
> + ["192-199 11000 iii Pop and
> Jump 0n False iii + 1 (i.e., 1 through 8)"
> + stream nextPut: 191 + distance.
> + ^self].
> + ^self genBranchPopFalseLong: distance!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genBranchPopFalseLong: (in category
> 'bytecode generation') -----
> + genBranchPopFalseLong: distance
> + "239 11101111 iiiiiiii Pop and
> Jump 0n False #iiiiiiii (+ Extend B * 256, where Extend B >= 0) "
> + | distanceMod256 |
> + (distance < 0 or: [distance > 32767]) ifTrue:
> + [^self outOfRangeError: 'distance' index: distance range:
> 0 to: 32767].
> + distanceMod256 := (distance < 0 or: [distance > 255])
> + ifTrue:
> + [self
> genUnsignedSingleExtendB: (distance bitShift: -8).
> + distance
> bitAnd: 255]
> + ifFalse:
> [distance].
> + stream
> + nextPut: 239;
> + nextPut: distanceMod256!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genBranchPopTrue: (in category
> 'bytecode generation') -----
> + genBranchPopTrue: distance
> + (distance > 0 and: [distance < 9]) ifTrue:
> + ["184-191 10111 iii Pop and
> Jump 0n True iii + 1 (i.e., 1 through 8)"
> + stream nextPut: 183 + distance.
> + ^self].
> + ^self genBranchPopTrueLong: distance!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genBranchPopTrueLong: (in category
> 'bytecode generation') -----
> + genBranchPopTrueLong: distance
> + "238 11101110 iiiiiiii Pop and
> Jump 0n True #iiiiiiii (+ Extend B * 256, where Extend B >= 0)"
> + | distanceMod256 |
> + (distance < 0 or: [distance > 32767]) ifTrue:
> + [^self outOfRangeError: 'distance' index: distance range:
> 0 to: 32767].
> + (distance > 0 and: [distance < 9]) ifTrue:
> + ["184-191 10111 iii Pop and
> Jump 0n True iii + 1 (i.e., 1 through 8)"
> + stream nextPut: 183 + distance.
> + ^self].
> + distanceMod256 := (distance < 0 or: [distance > 255])
> + ifTrue:
> + [self
> genUnsignedSingleExtendB: (distance bitShift: -8).
> + distance
> bitAnd: 255]
> + ifFalse:
> [distance].
> + stream
> + nextPut: 238;
> + nextPut: distanceMod256!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genCallInlinePrimitive: (in category
> 'bytecode generation') -----
> + genCallInlinePrimitive: primitiveIndex
> + "248 11111000 i i i i i i i i 1jjjjjjj
> Call Primitive #iiiiiiii + (jjjjjjj * 256)"
> + "N.B. We could have made CallPrimitive a 2-byte code taking an
> extension, but that would
> + complicate the VM's determination of the primitive number and the
> primitive error code
> + store since the extension, being optional, would make the
> sequence variable length."
> + (primitiveIndex < 1 or: [primitiveIndex > 32767]) ifTrue:
> + [self outOfRangeError: 'primitive index' index:
> primitiveIndex range: 1 to: 32767].
> + stream
> + nextPut: 248;
> + nextPut: (primitiveIndex bitAnd: 255);
> + nextPut: (primitiveIndex bitShift: -8) + 128!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genCallPrimitive: (in category
> 'bytecode generation') -----
> + genCallPrimitive: primitiveIndex
> + "248 11111000 i i i i i i i i 0jjjjjjj
> Call Primitive #iiiiiiii + (jjjjjjj * 256)"
> + "N.B. We could have made CallPrimitive a 2-byte code taking an
> extension, but that would
> + complicate the VM's determination of the primitive number and the
> primitive error code
> + store since the extension, being optional, would make the
> sequence variable length."
> + (primitiveIndex < 1 or: [primitiveIndex > 32767]) ifTrue:
> + [self outOfRangeError: 'primitive index' index:
> primitiveIndex range: 1 to: 32767].
> + stream
> + nextPut: 248;
> + nextPut: (primitiveIndex bitAnd: 255);
> + nextPut: (primitiveIndex bitShift: -8)!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genDup (in category 'bytecode
> generation') -----
> + genDup
> + "83 01010011 Duplicate
> Stack Top"
> + stream nextPut: 83!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genInlineSmallIntegerAdd (in category
> 'in-line primitive generation') -----
> + genInlineSmallIntegerAdd
> + ^self genCallInlinePrimitive: 0!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genJump: (in category 'bytecode
> generation') -----
> + genJump: distance
> + (distance > 0 and: [distance < 9]) ifTrue:
> + ["176-183 10110 iii Jump iii +
> 1 (i.e., 1 through 8)"
> + stream nextPut: 175 + distance.
> + ^self].
> + "237 11101101 iiiiiiii Jump
> #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0,
> a=0, s=1)"
> + ^self genJumpLong: distance!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genJumpLong: (in category 'bytecode
> generation') -----
> + genJumpLong: distance
> + "237 11101101 iiiiiiii Jump
> #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0,
> a=0, s=1)"
> + (distance between: -32768 and: 32767) ifFalse:
> + [^self outOfRangeError: 'index' index: distance range:
> -32768 to: 32767].
> + (distance < 0 or: [distance > 255]) ifTrue:
> + [self genSignedSingleExtendB: (distance bitShift: -8)].
> + stream
> + nextPut: 237;
> + nextPut: (distance bitAnd: 255)!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genNop (in category 'bytecode
> generation') -----
> + genNop
> + "95 01011111 Nop"
> + stream nextPut: 95!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPop (in category 'bytecode
> generation') -----
> + genPop
> + "216 11011000 Pop Stack Top"
> + stream nextPut: 216!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushCharacter: (in category
> 'bytecode generation') -----
> + genPushCharacter: aCharacterOrCode
> + "233 11101001 i i i i i i i i Push Character
> #iiiiiiii (+ Extend B * 256)"
> + "Why restrict the range to 16 bits when we could encode
> arbitrarily 32-bit Characters?
> + Well, 16 bits requires 4 bytes (extB + byte, 78 + byte) and so
> beyond this range we
> + lose space verses a single-byte pushLiteral and a 4 byte
> Character literal on 32-bits.
> + And generating the same bytecode on 64-bit and 32-bit is
> important if we want to be
> + able to load binary code from one to the other (e.g. via Fuel)."
> + | code |
> + code := aCharacterOrCode isInteger ifTrue: [aCharacterOrCode]
> ifFalse: [aCharacterOrCode asInteger].
> + (code < 0 or: [code > 65535]) ifTrue:
> + [^self outOfRangeError: 'character' index: code range: 0
> to: 65535].
> + (code > 255) ifTrue:
> + [self genUnsignedSingleExtendB: (code bitShift: -8)].
> + stream
> + nextPut: 233;
> + nextPut: (code bitAnd: 255)!
>
> Item was added:
> + ----- Method:
> EncoderForSistaV1>>genPushClosureCopyNumCopiedValues:numArgs:jumpSize: (in
> category 'bytecode generation') -----
> + genPushClosureCopyNumCopiedValues: numCopied numArgs: numArgs jumpSize:
> jumpSize
> + "250 11111010 eeiiikkk jjjjjjjj
> Push Closure Num Copied iii (+ Ext A // 16 * 8) Num Args kkk (+ Ext A
> \\ 16 * 8) BlockSize jjjjjjjj (+ Ext B * 256). ee = num extensions"
> + "Including numExtensions makes decoding the bytecode quicker since
> it obviates having to scan from the beginning of a method."
> + | numExtensions numCopiedMod8 numArgsMod8 extA |
> + (jumpSize < 0 or: [jumpSize > 65535]) ifTrue:
> + [^self outOfRangeError: 'block size' index: jumpSize
> range: 0 to: 65535].
> + (numCopied < 0 or: [numCopied > 127]) ifTrue:
> + [^self outOfRangeError: 'num copied' index: numCopied
> range: 0 to: 127].
> + (numArgs < 0 or: [numArgs > 127]) ifTrue:
> + [^self outOfRangeError: 'num args' index: numArgs range: 0
> to: 127].
> + extA := numExtensions := 0.
> + (numArgsMod8 := numArgs) > 7 ifTrue:
> + [extA := numArgs // 8.
> + numArgsMod8 := numArgsMod8 \\ 8].
> + (numCopiedMod8 := numCopied) > 7 ifTrue:
> + [extA := extA + (numCopied // 8 * 16).
> + numCopiedMod8 := numCopiedMod8 \\ 8].
> + extA ~= 0 ifTrue:
> + [self genUnsignedSingleExtendA: extA.
> + numExtensions := 1].
> + jumpSize > 255 ifTrue:
> + [numExtensions := numExtensions + 1.
> + self genUnsignedSingleExtendB: jumpSize // 256].
> + stream
> + nextPut: 250;
> + nextPut: (numExtensions bitShift: 6) + (numCopiedMod8
> bitShift: 3) + numArgsMod8;
> + nextPut: (jumpSize bitAnd: 16rFF)!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushConsArray: (in category
> 'bytecode generation') -----
> + genPushConsArray: size
> + (size < 0 or: [size > 127]) ifTrue:
> + [^self outOfRangeError: 'size' index: size range: 0 to:
> 127].
> + "233 11101001 jkkkkkkk Push (Array new:
> kkkkkkk) (j = 0)
> + &
> Pop kkkkkkk elements into: (Array new: kkkkkkk) (j = 1)"
> + stream
> + nextPut: 233;
> + nextPut: size + 128!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushInstVar: (in category 'bytecode
> generation') -----
> + genPushInstVar: instVarIndex
> + (instVarIndex between: 0 and: 15) ifTrue:
> + ["0-15 0000iiii Push Receiver Variable #iiii"
> + stream nextPut: 0 + instVarIndex.
> + ^self].
> + self genPushInstVarLong: instVarIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushInstVarLong: (in category
> 'bytecode generation') -----
> + genPushInstVarLong: instVarIndex
> + "226 11100010 i i i i i i i i Push Receiver
> Variable #iiiiiiii (+ Extend A * 256)"
> + "See also MaybeContextInstanceVariableNode"
> + (instVarIndex < 0 or: [instVarIndex > 65535]) ifTrue:
> + [^self outOfRangeError: 'index' index: instVarIndex range:
> 0 to: 65535].
> + instVarIndex > 255 ifTrue:
> + [self genUnsignedSingleExtendA: instVarIndex // 256].
> + stream
> + nextPut: 226;
> + nextPut: instVarIndex \\ 256!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushInteger: (in category 'bytecode
> generation') -----
> + genPushInteger: anInteger
> + "80 01010000
> Push 0
> + 81 01010001
> Push 1
> + 232 11101000 i i i i i i i i Push Integer
> #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0,
> a=0, s=1)"
> + "Why restrict the range to 16 bits when we could encode
> arbitrarily large integers?
> + Well, 16 bits requires 4 bytes (extB + byte, 78 + byte) and so
> beyond this range we lose space
> + verses a single-byte pushLiteral and a 4 byte integer literal on
> 32-bits. And generating the same
> + bytecode on 64-bit and 32-bit is important if we want to be able
> to load binary code from one to
> + the other (e.g. via Fuel)."
> + anInteger = 0 ifTrue:
> + [stream nextPut: 80.
> + ^self].
> + anInteger = 1 ifTrue:
> + [stream nextPut: 81.
> + ^self].
> + (anInteger < -32768 or: [anInteger > 32767]) ifTrue:
> + [^self outOfRangeError: 'integer' index: anInteger range:
> -32768 to: 32767].
> + (anInteger < 0 or: [anInteger > 255]) ifTrue:
> + [self genSignedSingleExtendB: (anInteger bitShift: -8)].
> + stream
> + nextPut: 232;
> + nextPut: (anInteger bitAnd: 255)!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushLiteral: (in category 'bytecode
> generation') -----
> + genPushLiteral: literalIndex
> + | extendedIndex |
> + (literalIndex < 0 or: [literalIndex > 65535]) ifTrue:
> + [^self outOfRangeError: 'index' index: literalIndex range:
> 0 to: 65536].
> + literalIndex < 32 ifTrue:
> + ["32-63 001iiiii Push Literal #iiiii"
> + stream nextPut: 32 + literalIndex.
> + ^self].
> + "228 11100100 i i i i i i i i Push Literal
> #iiiiiiii (+ Extend A * 256)"
> + (extendedIndex := literalIndex) > 255 ifTrue:
> + [self genUnsignedSingleExtendA: extendedIndex // 256.
> + extendedIndex := extendedIndex \\ 256].
> + stream
> + nextPut: 228;
> + nextPut: extendedIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushLiteralVar: (in category
> 'bytecode generation') -----
> + genPushLiteralVar: literalIndex
> + | extendedIndex |
> + (literalIndex < 0 or: [literalIndex > 65535]) ifTrue:
> + [^self outOfRangeError: 'index' index: literalIndex range:
> 0 to: 65535].
> + literalIndex < 16 ifTrue:
> + ["16-31 0001 i i i i Push Literal
> Variable #iiii"
> + stream nextPut: 16 + literalIndex.
> + ^self].
> + "227 11100011 i i i i i i i i Push Literal
> Variable #iiiiiiii (+ Extend A * 256)"
> + (extendedIndex := literalIndex) > 255 ifTrue:
> + [self genUnsignedSingleExtendA: extendedIndex // 256.
> + extendedIndex := extendedIndex \\ 256].
> + stream
> + nextPut: 227;
> + nextPut: extendedIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushNewArray: (in category 'bytecode
> generation') -----
> + genPushNewArray: size
> + (size < 0 or: [size > 127]) ifTrue:
> + [^self outOfRangeError: 'size' index: size range: 0 to:
> 127].
> + "231 11100111 jkkkkkkk Push (Array new:
> kkkkkkk) (j = 0)
> + &
> Pop kkkkkkk elements into: (Array new: kkkkkkk) (j = 1)"
> + stream
> + nextPut: 231;
> + nextPut: size!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushReceiver (in category 'bytecode
> generation') -----
> + genPushReceiver
> + "76 01001100 Push Receiver"
> + stream nextPut: 76!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushRemoteTemp:inVectorAt: (in
> category 'bytecode generation') -----
> + genPushRemoteTemp: tempIndex inVectorAt: tempVectorIndex
> + "251 11111011 kkkkkkkk jjjjjjjj
> Push Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
> + (tempIndex < 0 or: [tempIndex >= 256]) ifTrue:
> + [^self outOfRangeError: 'remoteTempIndex' index: tempIndex
> range: 0 to: 255].
> + (tempVectorIndex < 0 or: [tempVectorIndex >= 256]) ifTrue:
> + [^self outOfRangeError: 'tempVectorIndex' index:
> tempVectorIndex range: 0 to: 255].
> + stream
> + nextPut: 251;
> + nextPut: tempIndex;
> + nextPut: tempVectorIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushSpecialLiteral: (in category
> 'bytecode generation') -----
> + genPushSpecialLiteral: aLiteral
> + "77 01001101 Push true
> + 78 01001110 Push false
> + 79 01001111 Push nil
> + 80 01010000 Push 0
> + 81 01010001 Push 1
> + 232 11101000 iiiiiiii Push
> Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768
> = i=0, a=0, s=1)"
> + | index |
> + aLiteral isInteger ifTrue:
> + [aLiteral == 0 ifTrue:
> + [stream nextPut: 80.
> + ^self].
> + aLiteral == 1 ifTrue:
> + [stream nextPut: 81.
> + ^self].
> + ^self genPushInteger: aLiteral].
> + index := #(false true nil)
> + indexOf: aLiteral
> + ifAbsent: [^self error: 'push
> special literal: ', aLiteral printString, ' is not one of true false nil'].
> + stream nextPut: 76 + index!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushTemp: (in category 'bytecode
> generation') -----
> + genPushTemp: tempIndex
> + (tempIndex < 0 or: [tempIndex > 63]) ifTrue:
> + [^self outOfRangeError: 'index' index: tempIndex range: 0
> to: 63].
> + tempIndex < 12 ifTrue:
> + ["64-71 01000 i i i Push Temporary
> Variable #iii
> + 72-75 010010 i i Push Temporary
> Variable #ii + 8"
> + stream nextPut: 64 + tempIndex.
> + ^self].
> + "229 11100101 i i i i i i i i Push Temporary
> Variable #iiiiiiii"
> + stream
> + nextPut: 229;
> + nextPut: tempIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genPushThisContext (in category
> 'bytecode generation') -----
> + genPushThisContext
> + "82 01010010 Push
> thisContext, (then e.g. Extend 1 = push thisProcess)"
> + stream nextPut: 82!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genReturnReceiver (in category
> 'bytecode generation') -----
> + genReturnReceiver
> + "88-91 010110 ii Return
> Receiver/true/false/nil"
> + stream nextPut: 88!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genReturnSpecialLiteral: (in category
> 'bytecode generation') -----
> + genReturnSpecialLiteral: aLiteral
> + "88-91 010110 ii Return
> Receiver/true/false/nil"
> + | index |
> + index := #(true false nil) indexOf: aLiteral ifAbsent: 0.
> + index = 0 ifTrue:
> + [^self error: 'return special literal: ', aLiteral
> printString, ' is not one of true false nil'].
> + stream nextPut: 88 + index!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genReturnTop (in category 'bytecode
> generation') -----
> + genReturnTop
> + "92 1011100 Return Stack Top From Message"
> + stream nextPut: 92!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genReturnTopToCaller (in category
> 'bytecode generation') -----
> + genReturnTopToCaller
> + "93 1011101 Return Stack Top From Block [*
> return from enclosing block N, ExtA]"
> + "If extended, the least significant bit of the extension
> determines if we return to the caller or not
> + and the most significant bits determine how many levels of the
> static chain to return from.
> + ExtA = iiiiiiij
> + iiiiiii=0,j=0 => return to caller
> + iiiiiii=0,j=1 => illegal
> + iiiiiii=1,j=0 => return to outerContext
> + iiiiiii=1,j=1 => return to outerContext
> sender/return from outerContext
> + iiiiiii=2,j=0 => return to outerContext outerContext
> + iiiiiii=2,j=1 => return to outerContext
> outerContext sender/return from outerContext outerContext
> + etc"
> +
> + stream nextPut: 93!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genSend:numArgs: (in category 'bytecode
> generation') -----
> + genSend: selectorLiteralIndex numArgs: nArgs
> + | extendedIndex extendedNArgs |
> + (selectorLiteralIndex < 0 or: [selectorLiteralIndex > 65535])
> ifTrue:
> + [^self outOfRangeError: 'selectorLiteralIndex' index:
> selectorLiteralIndex range: 0 to: 65535].
> + (nArgs < 0 or: [nArgs > 31]) ifTrue:
> + [^self outOfRangeError: 'numArgs' index: nArgs range: 0
> to: 31 "!!!!"].
> + (selectorLiteralIndex < 16 and: [nArgs < 3]) ifTrue:
> + ["128-143 1000 iiii Send
> Literal Selector #iiii With 0 Argument
> + 144-159 1001 iiii Send
> Literal Selector #iiii With 1 Arguments
> + 160-175 1010 iiii Send
> Literal Selector #iiii With 2 Arguments"
> + stream nextPut: 128 + (nArgs * 16) + selectorLiteralIndex.
> + ^self].
> + (extendedIndex := selectorLiteralIndex) > 31 ifTrue:
> + [self genUnsignedSingleExtendA: extendedIndex // 32.
> + extendedIndex := extendedIndex \\ 32].
> + (extendedNArgs := nArgs) > 7 ifTrue:
> + [self genUnsignedSingleExtendB: extendedNArgs // 8.
> + extendedNArgs := extendedNArgs \\ 8].
> + "234 11101010 i i i i i j j j Send Literal
> Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments"
> + stream
> + nextPut: 238;
> + nextPut: extendedNArgs + (extendedIndex * 8)!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genSendSpecial:numArgs: (in category
> 'bytecode generation') -----
> + genSendSpecial: specialSelectorIndex numArgs: nArgs
> + self assert: (specialSelectorIndex between: 1 and: Smalltalk
> specialSelectorSize).
> + self assert: nArgs = (Smalltalk specialNargsAt:
> specialSelectorIndex).
> + "Special selector sends.
> + 96-111 0110 iiii Send
> Arithmetic Message #iiii #(#+ #- #< #> #'<=' #'>=' #= #'~=' #* #/ #'\\' #@
> #bitShift: #'//' #bitAnd: #bitOr:)
> + 112-119 01110 iii Send Special
> Message #iii #(#at: #at:put: #size ? ? ? #'==' class ? value value: ? ? ? ?
> ?)"
> +
> + stream nextPut: specialSelectorIndex + 95!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genSendSuper:numArgs: (in category
> 'bytecode generation') -----
> + genSendSuper: selectorLiteralIndex numArgs: nArgs
> + | extendedIndex extendedNArgs |
> + (selectorLiteralIndex < 0 or: [selectorLiteralIndex > 65535])
> ifTrue:
> + [^self outOfRangeError: 'selectorLiteralIndex' index:
> selectorLiteralIndex range: 0 to: 65535].
> + (nArgs < 0 or: [nArgs > 31]) ifTrue:
> + [^self outOfRangeError: 'numArgs' index: nArgs range: 0
> to: 31 "!!!!"].
> + (extendedIndex := selectorLiteralIndex) > 31 ifTrue:
> + [self genUnsignedSingleExtendA: extendedIndex // 32.
> + extendedIndex := extendedIndex \\ 32].
> + (extendedNArgs := nArgs) > 7 ifTrue:
> + [self genUnsignedSingleExtendB: extendedNArgs // 8.
> + extendedNArgs := extendedNArgs \\ 8].
> + "235 11101011 iiiiijjj Send To
> Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B *
> 8) Arguments"
> + stream
> + nextPut: 235;
> + nextPut: extendedNArgs + (extendedIndex * 8)!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genSignedSingleExtendB: (in category
> 'bytecode generation') -----
> + genSignedSingleExtendB: extendedIndex
> + (extendedIndex between: -128 and: 127) ifFalse:
> + [^self outOfRangeError: 'index' index: extendedIndex
> range: -128 to: 127].
> + "225 11100001 sbbbbbbb Extend B (Ext B =
> Ext B prev * 256 + Ext B)"
> + stream
> + nextPut: 225;
> + nextPut: (extendedIndex >= 0 ifTrue: [extendedIndex]
> ifFalse: [extendedIndex + 256]) !
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genStoreInstVar: (in category 'bytecode
> generation') -----
> + genStoreInstVar: instVarIndex
> + "243 11110011 iiiiiiii Store
> Receiver Variable #iiiiiii (+ Extend A * 256)"
> + self genStoreInstVarLong: instVarIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genStoreInstVarLong: (in category
> 'bytecode generation') -----
> + genStoreInstVarLong: instVarIndex
> + "243 11110011 iiiiiiii Store
> Receiver Variable #iiiiiii (+ Extend A * 256)"
> + (instVarIndex < 0 or: [instVarIndex > 65535]) ifTrue:
> + [^self outOfRangeError: 'index' index: instVarIndex range:
> 0 to: 65535].
> + instVarIndex > 255 ifTrue:
> + [self genUnsignedSingleExtendA: instVarIndex // 256].
> + stream
> + nextPut: 243;
> + nextPut: instVarIndex \\ 256!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genStoreLiteralVar: (in category
> 'bytecode generation') -----
> + genStoreLiteralVar: literalIndex
> + "244 11110100 iiiiiiii Store
> Literal Variable #iiiiiiii (+ Extend A * 256)"
> + (literalIndex < 0 or: [literalIndex > 65535]) ifTrue:
> + [^self outOfRangeError: 'index' index: literalIndex range:
> 0 to: 65535].
> + literalIndex > 255 ifTrue:
> + [self genUnsignedSingleExtendA: literalIndex // 256].
> + stream
> + nextPut: 244;
> + nextPut: literalIndex \\ 256!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genStorePopInstVar: (in category
> 'bytecode generation') -----
> + genStorePopInstVar: instVarIndex
> + "200-207 11001 iii Pop and Store
> Receiver Variable #iii
> + 240 11110000 iiiiiiii Pop and Store
> Receiver Variable #iiiiiii (+ Extend A * 256)"
> + (instVarIndex < 0 or: [instVarIndex > 7]) ifTrue:
> + [^self genStorePopInstVarLong: instVarIndex].
> + stream nextPut: 200 + instVarIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genStorePopInstVarLong: (in category
> 'bytecode generation') -----
> + genStorePopInstVarLong: instVarIndex
> + "240 11110000 iiiiiiii Pop and
> Store Receiver Variable #iiiiiii (+ Extend A * 256)"
> + (instVarIndex < 0 or: [instVarIndex > 65535]) ifTrue:
> + [^self outOfRangeError: 'index' index: instVarIndex range:
> 0 to: 65535].
> + instVarIndex > 255 ifTrue:
> + [self genUnsignedSingleExtendA: instVarIndex // 256].
> + stream
> + nextPut: 240;
> + nextPut: instVarIndex \\ 256!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genStorePopLiteralVar: (in category
> 'bytecode generation') -----
> + genStorePopLiteralVar: literalIndex
> + "241 11110001 iiiiiiii Pop and
> Store Literal Variable #iiiiiiii (+ Extend A * 256)"
> + (literalIndex < 0 or: [literalIndex > 65535]) ifTrue:
> + [^self outOfRangeError: 'index' index: literalIndex range:
> 0 to: 65535].
> + literalIndex > 255 ifTrue:
> + [self genUnsignedSingleExtendA: literalIndex // 256].
> + stream
> + nextPut: 241;
> + nextPut: literalIndex \\ 256!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genStorePopRemoteTemp:inVectorAt: (in
> category 'bytecode generation') -----
> + genStorePopRemoteTemp: tempIndex inVectorAt: tempVectorIndex
> + "253 11111101 kkkkkkkk jjjjjjjj
> Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
> + (tempIndex < 0 or: [tempIndex >= 256]) ifTrue:
> + [^self outOfRangeError: 'remoteTempIndex' index: tempIndex
> range: 0 to: 255].
> + (tempVectorIndex < 0 or: [tempVectorIndex >= 256]) ifTrue:
> + [^self outOfRangeError: 'tempVectorIndex' index:
> tempVectorIndex range: 0 to: 255].
> + stream
> + nextPut: 253;
> + nextPut: tempIndex;
> + nextPut: tempVectorIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genStorePopTemp: (in category 'bytecode
> generation') -----
> + genStorePopTemp: tempIndex
> + "208-215 11010 iii Pop and Store
> Temporary Variable #iii
> + 242 11110010 iiiiiiii Pop and Store
> Temporary Variable #iiiiiiii"
> + (tempIndex < 0 or: [tempIndex > 63]) ifTrue:
> + [^self outOfRangeError: 'index' index: tempIndex range: 0
> to: 63].
> + tempIndex < 8 ifTrue:
> + [stream nextPut: 208 + tempIndex.
> + ^self].
> + stream
> + nextPut: 242;
> + nextPut: tempIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genStoreRemoteTemp:inVectorAt: (in
> category 'bytecode generation') -----
> + genStoreRemoteTemp: tempIndex inVectorAt: tempVectorIndex
> + "252 11111100 kkkkkkkk jjjjjjjj
> Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
> + (tempIndex < 0 or: [tempIndex >= 256]) ifTrue:
> + [^self outOfRangeError: 'remoteTempIndex' index: tempIndex
> range: 0 to: 255].
> + (tempVectorIndex < 0 or: [tempVectorIndex >= 256]) ifTrue:
> + [^self outOfRangeError: 'tempVectorIndex' index:
> tempVectorIndex range: 0 to: 255].
> + stream
> + nextPut: 252;
> + nextPut: tempIndex;
> + nextPut: tempVectorIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genStoreTemp: (in category 'bytecode
> generation') -----
> + genStoreTemp: tempIndex
> + "242 11110010 iiiiiiii Pop and
> Store Temporary Variable #iiiiiiii"
> + (tempIndex < 0 or: [tempIndex > 63]) ifTrue:
> + [^self outOfRangeError: 'index' index: tempIndex range: 0
> to: 63].
> + stream
> + nextPut: 242;
> + nextPut: tempIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genUnsignedMultipleExtendA: (in
> category 'bytecode generation') -----
> + genUnsignedMultipleExtendA: extendedIndex
> + "224 11100000 aaaaaaaa Extend A (Ext A =
> Ext A prev * 256 + Ext A)"
> + extendedIndex > 255 ifTrue:
> + [self genUnsignedMultipleExtendA: extendedIndex // 256].
> + stream
> + nextPut: 224;
> + nextPut: extendedIndex \\ 256!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genUnsignedSingleExtendA: (in category
> 'bytecode generation') -----
> + genUnsignedSingleExtendA: extendedIndex
> + (extendedIndex between: 0 and: 255) ifFalse:
> + [^self outOfRangeError: 'index' index: extendedIndex
> range: 0 to: 255].
> + "224 11100000 aaaaaaaa Extend A (Ext A =
> Ext A prev * 256 + Ext A)"
> + stream
> + nextPut: 224;
> + nextPut: extendedIndex!
>
> Item was added:
> + ----- Method: EncoderForSistaV1>>genUnsignedSingleExtendB: (in category
> 'bytecode generation') -----
> + genUnsignedSingleExtendB: extendedIndex
> + (extendedIndex between: 0 and: 255) ifFalse:
> + [^self outOfRangeError: 'index' index: extendedIndex
> range: 0 to: 255].
> + "225 11100001 sbbbbbbb Extend B (Ext B =
> Ext B prev * 256 + Ext B)"
> + stream
> + nextPut: 225;
> + nextPut: extendedIndex!
>
> Item was added:
> + ----- Method: InstructionClient>>pushExplicitOuter: (in category
> '*BytecodeSets-NewsqueakV3-instruction decoding') -----
> + pushExplicitOuter: n
> + "Push the Active Context's Receiver for an outer send at level n."
> +
> + self subclassResponsibility!
>
> Item was changed:
> ----- Method: InstructionPrinter>>pushExplicitOuter: (in category
> '*BytecodeSets-NewsqueakV3-instruction decoding') -----
> pushExplicitOuter: n
> + "Print the Push the Active Context's Receiver for an outer send at
> level (method literalAt: litIndex) bytecode."
> - "Print the Push Active Context's Receiver for an outer send of
> aSymbol on Top Of Stack bytecode."
>
> self print: 'pushExplicitOuter: ', n asString!
>
> Item was added:
> + ----- Method: InstructionStream>>interpretNSV4Jump (in category
> '*BytecodeSets-NewsqueakV4-decoding') -----
> + interpretNSV4Jump
> + "If the instruction at pc is an unconditional jump, interpret it,
> advancing the pc,
> + and answering the jump distance. Otherwise answer nil."
> +
> + " 192-199 11000 i i i Jump iii +
> 1 (i.e., 1 through 8)
> + * 225 11100001 sbbbbbbb Extend B
> (Ext B = Ext B prev * 256 + Ext B)
> + * 242 11110010 i i i i i i i i Jump i i i
> i i i i i (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0,
> a=0, s=1)"
> + | method byte nextpc extA extB |
> + method := self method.
> + "consume and compute any extensions first."
> + extA := extB := 0.
> + nextpc := pc. "must not advance pc unless this is a jump."
> + [byte := self method at: nextpc.
> + nextpc := nextpc + 1.
> + byte >= 224 and: [byte <= 225]] whileTrue:
> + [| extByte |
> + extByte := self method at: nextpc.
> + nextpc := nextpc + 1.
> + byte = 224
> + ifTrue:
> + [extA := (extA bitShift: 8) + extByte]
> + ifFalse:
> + [extB := (extB = 0 and: [extByte > 127])
> + ifTrue: [extByte -
> 256]
> + ifFalse: [(extB
> bitShift: 8) + extByte]]].
> + (byte between: 192 and: 199) ifTrue:
> + [pc := nextpc.
> + ^byte - 191].
> + byte = 242 ifTrue:
> + [byte := method at: nextpc.
> + pc := nextpc + 1.
> + ^(extB bitShift: 8) + byte].
> + ^nil!
>
> Item was added:
> + ----- Method: InstructionStream>>interpretNSV4JumpIfCond (in category
> '*BytecodeSets-NewsqueakV4-decoding') -----
> + interpretNSV4JumpIfCond
> + "If the instruction at pc is a conditional jump, interpret it,
> advancing the pc,
> + and answering the jump distance. Otherwise answer nil."
> +
> + " 200-207 11001 i i i Pop and
> Jump 0n True iii +1 (i.e., 1 through 8)
> + 208-215 11010 i i i Pop and
> Jump 0n False iii +1 (i.e., 1 through 8)
> + * 225 11100001 sbbbbbbb Extend B
> (Ext B = Ext B prev * 256 + Ext B)
> + * 243 11110011 i i i i i i i i Pop and
> Jump 0n True i i i i i i i i (+ Extend B * 256, where Extend B >= 0)
> + * 244 11110100 i i i i i i i i Pop and
> Jump 0n False i i i i i i i i (+ Extend B * 256, where Extend B >= 0)"
> + | method byte nextpc extA extB |
> + method := self method.
> + "consume and compute any extensions first."
> + extA := extB := 0.
> + nextpc := pc. "must not advance pc unless this is a jump."
> + [byte := self method at: nextpc.
> + nextpc := nextpc + 1.
> + byte >= 224 and: [byte <= 225]] whileTrue:
> + [| extByte |
> + extByte := self method at: nextpc.
> + nextpc := nextpc + 1.
> + byte = 224
> + ifTrue:
> + [extA := (extA bitShift: 8) + extByte]
> + ifFalse:
> + [extB := (extB = 0 and: [extByte > 127])
> + ifTrue: [extByte -
> 256]
> + ifFalse: [(extB
> bitShift: 8) + extByte]]].
> + (byte between: 200 and: 215) ifTrue:
> + [pc := nextpc.
> + ^(byte bitAnd: 7) + 1].
> + (byte between: 243 and: 244) ifTrue:
> + [byte := method at: nextpc.
> + pc := nextpc + 1.
> + ^(extB bitShift: 8) + byte].
> + ^nil!
>
>
1
0
Eliot Miranda uploaded a new version of BytecodeSets to project VM Maker:
http://source.squeak.org/VMMaker/BytecodeSets-eem.2.mcz
==================== Summary ====================
Name: BytecodeSets-eem.2
Author: eem
Time: 19 May 2014, 11:52:50.933 am
UUID: 913085ca-0802-4f32-8b85-61432bb1c1f5
Ancestors: BytecodeSets-eem.1
Provide the multiple bytecode set support for
InstructionStream and CompiledMethod expected by
Compiler-eem.282/Kernel-eem.852 for
EncoderForNewsqueakV3
EncoderForNewsqueakV4
EncoderForSistaV1
=============== Diff against BytecodeSets-eem.1 ===============
Item was changed:
SystemOrganization addCategory: #'BytecodeSets-NewsqueakV3'!
+ SystemOrganization addCategory: #'BytecodeSets-SistaV1'!
SystemOrganization addCategory: #'BytecodeSets-NewsqueakV4'!
Item was changed:
EncoderForV3PlusClosures subclass: #EncoderForNewsqueakV3
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'BytecodeSets-NewsqueakV3'!
+
+ !EncoderForNewsqueakV3 commentStamp: 'eem 5/17/2014 16:42' prior: 0!
+ An encoder for the Newsqueak V3 bytecode set. It adds the following bytecodes that are part of the first Newspeak bytecode set.
+
+ 127 01111111 kkkkkkkk Push Implicit Receiver For Selector (self literalAt: kkkkkkkk)
+ 126 01111110 jjjjjjjj kkkkkkkk Send Selector (self literalAt: kkkkkkkk) To Dynamic Superclass With NumArgs jjjjjjjj
+ 139 01000101 kkkkkkkk Push Explicit Outer Receiver For Level (self literalAt: kkkkkkkk)!
Item was added:
+ ----- Method: EncoderForNewsqueakV3 class>>bytecodeSize: (in category 'instruction stream support') -----
+ bytecodeSize: bytecode
+ "Answer the number of bytes in the bytecode."
+ bytecode <= 125 ifTrue:
+ [^1].
+ bytecode >= 176 ifTrue:
+ [^1].
+ bytecode >= 160 ifTrue: "long jumps"
+ [^2].
+ bytecode >= 144 ifTrue: "short jumps"
+ [^1].
+ "126, 127 & extensions"
+ ^#(3 2 2 2 2 2 3 2 2 1 1 1 2 2 3 3 3 4) at: bytecode - 125!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>bindingReadScanBlockFor:using: (in category 'compiled method support') -----
+ bindingReadScanBlockFor: litVarIndex using: scanner
+ "Answer a block argument for InstructionStream>>scanFor: that answers true
+ for reads of the value of the binding with zero-relative index litVarIndex.
+ N.B. Don't assume the compiler uses the most compact encoding available."
+
+ " 16-31 0001 i i i i Push Literal Variable #iiii
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 227 11100011 i i i i i i i i Push Literal Variable #iiiiiiii (+ Extend A * 256)"
+ | extension |
+ extension := 0.
+ ^[:b| | prevext |
+ prevext := extension.
+ extension := b = 224 ifTrue: [scanner followingByte bitShift: 8] ifFalse: [0].
+ (b < 32 and: [b >= 16 and: [b - 16 = litVarIndex]])
+ or: [b = 227
+ and: [scanner followingByte + prevext = litVarIndex]]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>bindingWriteScanBlockFor:using: (in category 'compiled method support') -----
+ bindingWriteScanBlockFor: litVarIndex using: scanner
+ "Answer a block argument for InstructionStream>>scanFor: that answers true
+ for writes of the value of the binding with zero-relative index litVarIndex.
+ N.B. Don't assume the compiler uses the most compact encoding available."
+
+ "* 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 233 11101001 i i i i i i i i Store Literal Variable #iiiiiiii (+ Extend A * 256)
+ * 236 11101100 i i i i i i i i Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)"
+ | extension |
+ extension := 0.
+ ^[:b| | prevext |
+ prevext := extension.
+ extension := b = 224 ifTrue: [scanner followingByte bitShift: 8] ifFalse: [0].
+ (b = 233 or: [b = 236])
+ and: [scanner followingByte + prevext = litVarIndex]]!
Item was removed:
- ----- Method: EncoderForNewsqueakV4 class>>blockReturnCode (in category 'bytecode decoding') -----
- blockReturnCode
- "218 11011010 Return Stack Top From Block [* return from enclosing block N, N = Extend A]"
- ^218!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>bytecodeSize: (in category 'instruction stream support') -----
+ bytecodeSize: bytecode
+ "Answer the number of bytes in the bytecode."
+ bytecode < 224 ifTrue: [^1].
+ bytecode < 249 ifTrue: [^2].
+ ^3!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>createClosureScanBlock (in category 'compiled method support') -----
+ createClosureScanBlock
+ "Answer a block argument for InstructionStream>>scanFor: that answers true
+ for block closure creation bytecodes. ote that with this interface we can't answer
+ true for the extension in front of a push closure bytecode and so the interface may
+ have to change at some point."
+
+ "* 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ ** 253 11111101 eei i i kkk jjjjjjjj Push Closure Num Copied iii (+ Ext A // 16 * 8) Num Args kkk (+ Ext A \\ 16 * 8) BlockSize jjjjjjjj (+ Ext B * 256). ee = num extensions"
+ ^[:b| b = 253]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>extensionsAt:in:into: (in category 'compiled method support') -----
+ extensionsAt: bcpc in: method into: aTrinaryBlock
+ "If the bytecode at pc is an extension then evaluate aBinaryBlock with the values of extA and extB and number of extension *bytes*.
+ If the bytecode at pc is not extended then evaluate aBinaryBlock with 0 and 0.
+ 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ 225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)"
+
+ | scanpc byte extByte extA extB |
+ scanpc := bcpc.
+ "There may be an extension (it could be a false positive). We must scan as fast as possible..."
+ extA := extB := 0.
+ [byte := method at: scanpc.
+ byte >= 224 and: [byte <= 225]] whileTrue:
+ [extByte := method at: scanpc + 1.
+ scanpc := scanpc + 2.
+ byte = 224
+ ifTrue:
+ [extA := (extA bitShift: 8) + extByte]
+ ifFalse:
+ [extB := (extB = 0 and: [extByte > 127])
+ ifTrue: [extByte - 256]
+ ifFalse: [(extB bitShift: 8) + extByte]]].
+ ^aTrinaryBlock value: extA value: extB value: scanpc - bcpc
+
+
+ "Why use
+ byte >= 224 and: [byte <= 225]
+ and not
+ (byte bitAnd: 16rFE) = 16rE0
+ ?
+ | n |
+ n := 100000000.
+ #(0 224) collect:
+ [:byte|
+ { Time millisecondsToRun: [1 to: n do: [:i| (byte >= 224 and: [byte <= 225]) ifTrue: []]].
+ Time millisecondsToRun: [1 to: n do: [:i| (byte bitAnd: 16rFE) = 16rE0 ifTrue: []]] }] #(#(297 599) #(702 671))"!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>instVarReadScanBlockFor:using: (in category 'compiled method support') -----
+ instVarReadScanBlockFor: varIndexCode using: scanner
+ "Answer a block argument for InstructionStream>>scanFor: that answers true
+ for reads of the inst var with zero-relative index varIndexCode.
+ N.B. Don't assume the compiler uses the most compact encoding available."
+
+ " 0-15 0000 i i i i Push Receiver Variable #iiii
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 226 11100010 i i i i i i i i Push Receiver Variable #iiiiiiii (+ Extend A * 256)"
+ | extension |
+ extension := 0.
+ ^[:b| | prevext |
+ prevext := extension.
+ extension := b = 224 ifTrue: [scanner followingByte bitShift: 8] ifFalse: [0].
+ (b < 16 and: [b = varIndexCode])
+ or: [b = 226
+ and: [scanner followingByte + prevext = varIndexCode]]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>instVarWriteScanBlockFor:using: (in category 'compiled method support') -----
+ instVarWriteScanBlockFor: varIndexCode using: scanner
+ "Answer a block argument for InstructionStream>>scanFor: that answers true
+ for writes of the inst var with zero-relative index varIndexCode.
+ N.B. Don't assume the compiler uses the most compact encoding available."
+
+ " 176-183 10110 i i i Pop and Store Receiver Variable #iii
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 232 11101000 i i i i i i i i Store Receiver Variable #iiiiiii (+ Extend A * 256)
+ * 235 11101011 i i i i i i i i Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)"
+ | extension |
+ extension := 0.
+ ^[:b| | prevext |
+ prevext := extension.
+ extension := b = 224 ifTrue: [scanner followingByte bitShift: 8] ifFalse: [0].
+ (b >= 176
+ and: [b < 184
+ and: [b - 176 = varIndexCode]])
+ or: [(b = 232 or: [b = 235])
+ and: [scanner followingByte + prevext = varIndexCode]]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>interpretJumpIfCondIn: (in category 'compiled method support') -----
+ interpretJumpIfCondIn: anInstructionStream
+ "Double-dispatch through the encoder to select the correct conditional jump decoder for the instruction set."
+ ^anInstructionStream interpretNSV4JumpIfCond!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>interpretJumpIn: (in category 'compiled method support') -----
+ interpretJumpIn: anInstructionStream
+ "Double-dispatch through the encoder to select the correct unconditional jump decoder for the instruction set."
+ ^anInstructionStream interpretNSV4Jump!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isBlockReturnAt:in: (in category 'instruction stream support') -----
+ isBlockReturnAt: pc in: method
+ "Answer whether the bytecode at pc is a return from block."
+ "218 11011010 Return Stack Top From Block [* return from enclosing block N, N = Extend A]"
+ ^(self nonExtensionBytecodeAt: pc in: method) = 218!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isBranchIfFalseAt:in: (in category 'instruction stream support') -----
+ isBranchIfFalseAt: pc in: method
+ "Answer whether the bytecode at pc is a conditional branch-if-false."
+
+ " 208-215 11010 i i i Pop and Jump 0n False iii +1 (i.e., 1 through 8)
+ * 244 11110100 i i i i i i i i Pop and Jump 0n False i i i i i i i i (+ Extend B * 256, where Extend B >= 0)"
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 208 and: [byte <= 215 or: [byte = 244]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isBranchIfTrueAt:in: (in category 'instruction stream support') -----
+ isBranchIfTrueAt: pc in: method
+ "Answer whether the bytecode at pc is a conditional branch-if-true."
+
+ " 200-207 11001 i i i Pop and Jump 0n True iii +1 (i.e., 1 through 8)
+ * 243 11110011 i i i i i i i i Pop and Jump 0n True i i i i i i i i (+ Extend B * 256, where Extend B >= 0)"
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 200 and: [byte <= 207 or: [byte = 243]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isExtension: (in category 'instruction stream support') -----
+ isExtension: bytecode
+ "Answer if the bytecode is an extension bytecode, i.e. one that extends
+ the range of the following bytecode."
+ ^bytecode >= 16rE0 and: [bytecode <= 16rE1]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isJumpAt:in: (in category 'instruction stream support') -----
+ isJumpAt: pc in: method
+ "Answer whether the bytecode at pc is an (unconditional) jump."
+
+ " 192-199 11000 i i i Jump iii + 1 (i.e., 1 through 8)
+ * 225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ * 242 11110010 i i i i i i i i Jump i i i i i i i i (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)"
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 192 and: [byte <= 199 or: [byte = 242]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isJustPopAt:in: (in category 'instruction stream support') -----
+ isJustPopAt: pc in: method
+ "Answer whether the bytecode at pc is a pop."
+
+ ^(method at: pc) = 220 "220 11011100 Pop Stack Top"!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isRealSendAt:in: (in category 'instruction stream support') -----
+ isRealSendAt: pc in: method
+ "Answer whether the bytecode at pc is a real message-send, not blockCopy:."
+
+ ^self isSendAt: pc in: method!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isReturnAt:in: (in category 'instruction stream support') -----
+ isReturnAt: pc in: method
+ "Answer whether the bytecode at pc is a return from block."
+ "216 11011000 Return Receiver From Message
+ 217 11011001 Return Stack Top From Message
+ 218 11011010 Return Stack Top From Block [* return from enclosing block N, N = Extend A]"
+ ^(self nonExtensionBytecodeAt: pc in: method) between: 216 and: 218!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isSendAt:in: (in category 'instruction stream support') -----
+ isSendAt: pc in: method
+ "Answer whether the bytecode at pc is a message-send."
+
+ " 80-95 0101 i i i i Send Arithmetic Message #iiii
+ 96-111 0110 i i i i Send Special Message #iiii
+ 112-127 0111 i i i i Send Literal Selector #iiii With 0 Arguments
+ 128-143 1000 i i i i Send Literal Selector #iiii With 1 Argument
+ 144-159 1001 i i i i Send Literal Selector #iiii With 2 Arguments
+ 160-175 1010 i i i i Send To Absent Implicit Receiver Literal Selector #iiii With 0 Arguments
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ ** 238 11101110 i i i i i j j j Send Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments
+ ** 239 11101111 i i i i i j j j Send To Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments
+ ** 240 11110000 i i i i i j j j Send To Absent Implicit Receiver Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments
+ ** 241 11110001 i i i i i j j j Send To Absent Dynamic Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments"
+
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 80
+ and: [byte <= 175
+ or: [byte <= 241 and: [byte >= 238]]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isStoreAt:in: (in category 'instruction stream support') -----
+ isStoreAt: pc in: method
+ "Answer whether the bytecode at pc is a store or store-pop."
+
+ " 176-183 10110 i i i Pop and Store Receiver Variable #iii
+ 184-191 10111 i i i Pop and Store Temporary Variable #iii
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 232 11101000 i i i i i i i i Store Receiver Variable #iiiiiii (+ Extend A * 256)
+ * 233 11101001 i i i i i i i i Store Literal Variable #iiiiiiii (+ Extend A * 256)
+ 234 11101010 i i i i i i i i Store Temporary Variable #iiiiiiii
+ * 235 11101011 i i i i i i i i Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
+ * 236 11101100 i i i i i i i i Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
+ 237 11101101 i i i i i i i i Pop and Store Temporary Variable #iiiiiiii
+ 251 11111011 kkkkkkkk jjjjjjjj Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj
+ 252 11111100 kkkkkkkk jjjjjjjj Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
+
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 176
+ and: [byte <= 191
+ or: [(byte between: 232 and: 237)
+ or: [(byte between: 251 and: 252)]]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>isStorePopAt:in: (in category 'instruction stream support') -----
+ isStorePopAt: pc in: method
+ "Answer whether the bytecode at pc is a store-pop."
+
+ " 176-183 10110 i i i Pop and Store Receiver Variable #iii
+ 184-191 10111 i i i Pop and Store Temporary Variable #iii
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 235 11101011 i i i i i i i i Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
+ * 236 11101100 i i i i i i i i Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
+ 237 11101101 i i i i i i i i Pop and Store Temporary Variable #iiiiiiii
+ 252 11111100 kkkkkkkk jjjjjjjj Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
+
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 176
+ and: [byte <= 191
+ or: [(byte between: 235 and: 237)
+ or: [byte = 252]]]!
Item was removed:
- ----- Method: EncoderForNewsqueakV4 class>>method:readsField: (in category 'scanning') -----
- method: method readsField: varIndex
- "Answer if method loads the instance variable indexed by varIndex.
- N.B. Don't assume the compiler uses the most compact encoding available.
- 0-15 0000 i i i i Push Receiver Variable #iiii
- * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
- * 226 11100010 i i i i i i i i Push Receiver Variable #iiiiiiii (+ Extend A * 256)"
- | varIndexCode scanner extension |
- varIndexCode := varIndex - 1.
- method isReturnField ifTrue:
- [^method returnField = varIndexCode].
- extension := 0.
- ^(scanner := InstructionStream on: method) scanFor:
- [:b| | prevext |
- prevext := extension.
- extension := b = 224 ifTrue: [scanner followingByte bitShift: 8] ifFalse: [0].
- (b < 16 and: [b = varIndexCode])
- or: [b = 226
- and: [scanner followingByte + prevext = varIndexCode]]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>method:refersInBytecodeToLiteral:specialSelectorIndex: (in category 'scanning') -----
+ method: method refersInBytecodeToLiteral: aLiteral specialSelectorIndex: specialOrNil
+ "Answer if method refers to the literal aLiteral in the bytecode, as opposed to in its literal frame."
+
+ "* 77 01001101 Push false [* 1:true, 2:nil, 3:thisContext, ..., -N: pushExplicitOuter: N, N = Extend B]
+ 78 01001110 Push 0
+ 79 01001111 Push 1
+ 80-95 0101 i i i i Send Arithmetic Message #iiii
+ 96-111 0110 i i i i Send Special Message #iiii
+ * 225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ * 229 11100101 i i i i i i i i Push Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)"
+ | byte extended scanner |
+ specialOrNil ifNotNil:
+ [byte := specialOrNil + 79.
+ ^(InstructionStream on: method) scanFor: [:b| b = byte]].
+ extended := false.
+ aLiteral isInteger ifTrue:
+ [(aLiteral >= -32768 and: [aLiteral <= 32767]) ifFalse: [^false].
+ scanner := InstructionStream on: method.
+ (aLiteral >= 0 and: [aLiteral <= 255]) ifTrue:
+ [aLiteral <= 1 ifTrue:
+ [byte := aLiteral + 80.
+ ^scanner scanFor: [:b| b = byte]].
+ ^scanner scanFor:
+ [:b|
+ (b = 229
+ and: [extended not
+ and: [scanner followingByte = aLiteral]])
+ or: [extended := b = 225.
+ false]]].
+ byte := (aLiteral bitShift: -8) bitAnd: 255.
+ ^scanner scanFor:
+ [:b|
+ (b = 229
+ and: [extended
+ and: [scanner followingByte = (aLiteral bitAnd: 255)]])
+ or: [extended := b = 225 and: [scanner followingByte = byte].
+ false]]].
+ byte := #(false true nil) identityIndexOf: aLiteral ifAbsent: 0.
+ byte = 0 ifTrue:
+ [^false].
+ scanner := InstructionStream on: method.
+ byte = 1 ifTrue:
+ [^scanner scanFor:
+ [:b|
+ (b = 77
+ and: [extended not])
+ or: [extended := b = 225.
+ false]]].
+ byte := byte - 1.
+ ^scanner scanFor:
+ [:b|
+ (b = 77
+ and: [extended])
+ or: [extended := b = 225 and: [scanner followingByte = byte].
+ false]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>nonExtensionBytecodeAt:in: (in category 'instruction stream support') -----
+ nonExtensionBytecodeAt: pc in: method
+ "Answer the actual bytecode at pc in method, skipping past any preceeding extensions."
+ | thePC bytecode |
+ thePC := pc.
+ [self isExtension: (bytecode := method at: thePC)] whileTrue:
+ [thePC := thePC + (self bytecodeSize: bytecode)].
+ ^bytecode!
Item was removed:
- ----- Method: EncoderForNewsqueakV4 class>>popCode (in category 'bytecode decoding') -----
- popCode
- "220 11011100 Pop Stack Top"
- ^220!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>superSendScanBlockUsing: (in category 'instruction stream support') -----
+ superSendScanBlockUsing: scanner
+ "Answer a block argument for InstructionStream>>scanFor:
+ that answers true for super sends."
+
+ "* 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ ** 239 11101111 i i i i i j j j Send To Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments
+ ** 241 11110001 i i i i i j j j Send To Absent Dynamic Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments"
+
+ ^[:instr | instr = 239 or: [instr = 241]]!
Item was added:
+ ----- Method: EncoderForNewsqueakV4 class>>supportsClosures (in category 'compiled method support') -----
+ supportsClosures
+ "Answer if the instruction set supports closures (contains
+ closure creation and indirect temp access bytecodes)."
+
+ ^true!
Item was changed:
----- Method: EncoderForNewsqueakV4>>genBranchPopFalse: (in category 'bytecode generation') -----
genBranchPopFalse: distance
- | distanceMod256 |
- (distance < 0 or: [distance > 32767]) ifTrue:
- [^self outOfRangeError: 'distance' index: distance range: 0 to: 32767].
(distance > 0 and: [distance < 9]) ifTrue:
["208-215 11010 i i i Pop and Jump 0n False iii +1 (i.e., 1 through 8)"
stream nextPut: 207 + distance.
^self].
+ ^self genBranchPopFalseLong: distance!
- "244 11110100 i i i i i i i i Pop and Jump 0n False i i i i i i i i (+ Extend B * 256)"
- distanceMod256 := (distance < 0 or: [distance > 255])
- ifTrue:
- [self genUnsignedSingleExtendB: (distance bitShift: -8).
- distance bitAnd: 255]
- ifFalse: [distance].
- stream
- nextPut: 244;
- nextPut: distanceMod256!
Item was added:
+ ----- Method: EncoderForNewsqueakV4>>genBranchPopFalseLong: (in category 'bytecode generation') -----
+ genBranchPopFalseLong: distance
+ "244 11110100 i i i i i i i i Pop and Jump 0n False i i i i i i i i (+ Extend B * 256)"
+ | distanceMod256 |
+ (distance < 0 or: [distance > 32767]) ifTrue:
+ [^self outOfRangeError: 'distance' index: distance range: 0 to: 32767].
+ distanceMod256 := (distance < 0 or: [distance > 255])
+ ifTrue:
+ [self genUnsignedSingleExtendB: (distance bitShift: -8).
+ distance bitAnd: 255]
+ ifFalse: [distance].
+ stream
+ nextPut: 244;
+ nextPut: distanceMod256!
Item was changed:
----- Method: EncoderForNewsqueakV4>>genBranchPopTrue: (in category 'bytecode generation') -----
genBranchPopTrue: distance
- | distanceMod256 |
- (distance < 0 or: [distance > 32767]) ifTrue:
- [^self outOfRangeError: 'distance' index: distance range: 0 to: 32767].
(distance > 0 and: [distance < 9]) ifTrue:
["200-207 11001 i i i Pop and Jump 0n True iii +1 (i.e., 1 through 8)"
stream nextPut: 199 + distance.
^self].
+ ^self genBranchPopTrueLong: distance!
- "243 11110011 i i i i i i i i Pop and Jump 0n True i i i i i i i i (+ Extend B * 256)"
- distanceMod256 := (distance < 0 or: [distance > 255])
- ifTrue:
- [self genUnsignedSingleExtendB: (distance bitShift: -8).
- distance bitAnd: 255]
- ifFalse: [distance].
- stream
- nextPut: 243;
- nextPut: distanceMod256!
Item was added:
+ ----- Method: EncoderForNewsqueakV4>>genBranchPopTrueLong: (in category 'bytecode generation') -----
+ genBranchPopTrueLong: distance
+ "243 11110011 i i i i i i i i Pop and Jump 0n True i i i i i i i i (+ Extend B * 256)"
+ | distanceMod256 |
+ (distance < 0 or: [distance > 32767]) ifTrue:
+ [^self outOfRangeError: 'distance' index: distance range: 0 to: 32767].
+ (distance > 0 and: [distance < 9]) ifTrue:
+ ["200-207 11001 i i i Pop and Jump 0n True iii +1 (i.e., 1 through 8)"
+ stream nextPut: 199 + distance.
+ ^self].
+ distanceMod256 := (distance < 0 or: [distance > 255])
+ ifTrue:
+ [self genUnsignedSingleExtendB: (distance bitShift: -8).
+ distance bitAnd: 255]
+ ifFalse: [distance].
+ stream
+ nextPut: 243;
+ nextPut: distanceMod256!
Item was added:
+ ----- Method: EncoderForNewsqueakV4>>genExt1: (in category 'bytecode generation') -----
+ genExt1: aSmallInteger
+ self shouldBeImplemented!
Item was added:
+ BytecodeEncoder subclass: #EncoderForSistaV1
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'BytecodeSets-SistaV1'!
+
+ !EncoderForSistaV1 commentStamp: 'eem 4/16/2014 14:44' prior: 0!
+ EncoderForSistaV1 encodes a bytecode set for Sista, the Speculative Inlining Smalltalk Architecture, a project by Clément Bera and Eliot Miranda. Sista is an optimizer that exists in the Smalltalk image, /not/ in the VM, and optimizes by substituting normal bytecoded methods by optimized bytecoded methods that may use special bytecodes for which the Cogit can generate faster code. These bytecodes eliminate overheads such as bounds checks or polymorphic code (indexing Array, ByteArray, String etc). But the bulk of the optimization performed is in inlining blocks and sends for the common path. This bytecode set therefore differs from a normal Smalltalk set in providing a set of inlined primitives that do not validate their arguments that the compiler generates only when it can prove that the primitives' arguments are valid.
+
+ The basic scheme is that the Cogit generates code containing performance counters. When these counters trip, a callback into the image is performed, at which point Sista analyses some portion of the stack, looking at performance data for the methods on the stack, and optimises based on the stack and performance data. Execution then resumes in the optimized code.
+
+ The Sista Cogit (e.g. SistaStackToRegisterMappingCogit) adds counters to conditional branches. Each branch has an executed and a taken count. On execution the executed count is decremented and if the count goes below zero the VM sends a message at a special index in the specialObjectsArray (as of writing, conditionalCounterTrippedOn:). Then if the branch is taken the taken count is decremented. The two counter values allow the Sista optimizer to collect basic block execution paths and to know what are the "hot" paths through execution that are worth agressively optimizing. Since conditional branches are about 1/6 as frequent as sends, and since they can be used to determine the hot path through code, they are a better choice to count than, for example, method or block entry.
+
+ The VM provides a primitive that fills an Array with the state of the counters, and the state of each linked send in a method. Tthe optimizer obtains the branch and send data for a method via this primitive.
+
+
+ This bytecde set encodes a bytecode set for Smalltalk that lifts limits on the number of literals and branch distances, and extended push integer and push character bytecodes. Bytecodes are ordered by length to make decoding easier. Bytecodes marked with an * are extensible via a prefix bytecode.
+
+ N.B. Extension bytecodes can only come before extensible bytecodes, and only if valid (one cannot extend a bytecode extensible by Ext A with an Ext B). An extensible bytecode consumes (and zeros) its extension(s). Hence the hidden implicit variables holding extensions are always zero except after a valid sequence of extension bytecodes.
+
+ Instance Variables (inherited)
+
+ 1 Byte Bytecodes
+ 0-15 0000 iiii Push Receiver Variable #iiii
+ 16-31 0001 iiii Push Literal Variable #iiii
+ 32-63 001 iiiii Push Literal #iiiii
+ 64-71 01000 iii Push Temp #iii
+ 72-75 010010 ii Push Temp #ii + 8
+ 76 01001100 Push Receiver
+ 77 01001101 Push true
+ 78 01001110 Push false
+ 79 01001111 Push nil
+ 80 01010000 Push 0
+ 81 01010001 Push 1
+ * 82 01010010 Push thisContext, (then e.g. Extend 1 = push thisProcess)
+ 83 01010011 Duplicate Stack Top
+ 84-87 010101 ii UNASSIGNED
+ 88-91 010110 ii Return Receiver/true/false/nil
+ 92 01011100 Return top
+ 93 01011101 BlockReturn nil
+ * 94 01011110 BlockReturn Top [* return from enclosing block N, N = Extend A, then jump by Ext B ]
+ * 95 01011111 Nop
+ 96-111 0110 iiii Send Arithmetic Message #iiii #(#+ #- #< #> #'<=' #'>=' #= #'~=' #* #/ #'\\' #@ #bitShift: #'//' #bitAnd: #bitOr:)
+ 112-119 01110 iii Send Special Message #iii #(#at: #at:put: #size #next #nextPut: #atEnd #'==' class)
+ 120 01111000 UNASSIGNED (was: blockCopy:)
+ 121 01111001 Send Special Message #value
+ 122-123 0111101 i Send Special Message #i #(#value: #do:)
+ 124-127 011111 ii Send Special Message #ii #(#new #new: #x #y))
+ 128-143 1000 iiii Send Literal Selector #iiii With 0 Argument
+ 144-159 1001 iiii Send Literal Selector #iiii With 1 Arguments
+ 160-175 1010 iiii Send Literal Selector #iiii With 2 Arguments
+ 176-183 10110 iii Jump iii + 1 (i.e., 1 through 8)
+ 184-191 10111 iii Pop and Jump 0n True iii +1 (i.e., 1 through 8)
+ 192-199 11000 iii Pop and Jump 0n False iii +1 (i.e., 1 through 8)
+ 200-207 11001 iii Pop and Store Receiver Variable #iii
+ 208-215 11010 iii Pop and Store Temporary Variable #iii
+ 216 11011000 Pop Stack Top
+ 217 11011001 UNASSIGNED
+ 218-219 1101101 i UNASSIGNED
+ 220-223 110111 ii UNASSIGNED
+
+ 2 Byte Bytecodes
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 225 11100001 bbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ * 226 11100010 iiiiiiii Push Receiver Variable #iiiiiiii (+ Extend A * 256)
+ * 227 11100011 iiiiiiii Push Literal Variable #iiiiiiii (+ Extend A * 256)
+ * 228 11100100 iiiiiiii Push Literal #iiiiiiii (+ Extend A * 256)
+ 229 11100101 iiiiiiii Push Temporary Variable #iiiiiiii
+ 230 11100110 iiiiiiii PushNClosureTemps iiiiiiii
+ 231 11100111 jkkkkkkk Push (Array new: kkkkkkk) (j = 0)
+ & Pop kkkkkkk elements into: (Array new: kkkkkkk) (j = 1)
+ * 232 11101000 iiiiiiii Push Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)
+ * 233 11101001 iiiiiiii Push Character #iiiiiiii (+ Extend B * 256)
+ ** 234 11101010 iiiiijjj Send Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments
+ ** 235 11101011 iiiiijjj Send To Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments
+ * 236 11101100 iiiiiiii Trap On Behavior/Array Of Behavior #iiiiiiii (+ Extend A * 256, where Extend A >= 0)
+ * 237 11101101 iiiiiiii Jump #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)
+ * 238 11101110 iiiiiiii Pop and Jump 0n True #iiiiiiii (+ Extend B * 256, where Extend B >= 0)
+ * 239 11101111 iiiiiiii Pop and Jump 0n False #iiiiiiii (+ Extend B * 256, where Extend B >= 0)
+ * 240 11110000 iiiiiiii Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
+ * 241 11110001 iiiiiiii Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
+ 242 11110010 iiiiiiii Pop and Store Temporary Variable #iiiiiiii
+ * 243 11110011 iiiiiiii Store Receiver Variable #iiiiiii (+ Extend A * 256)
+ * 244 11110100 iiiiiiii Store Literal Variable #iiiiiiii (+ Extend A * 256)
+ 245 11110110 iiiiiiii Store Temporary Variable #iiiiiiii
+ 246-247 1111011 i xxxxxxxx UNASSIGNED
+
+ 3 Byte Bytecodes
+ 248 11111000 iiiiiiii mjjjjjjj Call Primitive #iiiiiiii + (jjjjjjj * 256) m=1 means inlined primitive, no hard return after execution.
+ 249 11111001 xxxxxxxx syyyyyyy Reserved for Push Float
+ ** 250 11111010 eeiiikkk jjjjjjjj Push Closure Num Copied iii (+ExtA//16*8) Num Args kkk (+ ExtA\\16*8) BlockSize jjjjjjjj (+ExtB*256). ee = num extensions
+ 251 11111011 kkkkkkkk jjjjjjjj Push Temp At kkkkkkkk In Temp Vector At: jjjjjjjj
+ 252 11111100 kkkkkkkk jjjjjjjj Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj
+ 253 11111101 kkkkkkkk jjjjjjjj Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj
+ 254-255 1111111i xxxxxxxx yyyyyyyy UNASSIGNED
+
+ The Call Primitive Bytecode specifies either a primitive in the primitive table (m=0) or an inlined primitive (m=1). Non-inlined primtiives from the primitive table have index (jjjjjjj * 256) + iiiiiiii and return from the method if they succeed. This bytecode is only valid as the first bytecode of a method. Inline primitives have index (jjjjjjj * 256) + iiiiiiii, cannot fail, and do not return when they succeed, yielding a result (typically on top of stack after popping their arguments, but possibly in a byte data stack, for example for unboxed floating-point primitives).
+
+ We define the following inlined primitives:
+ 0 unchecked SmallInteger #+. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+ 1 unchecked SmallInteger #-. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+ 2 unchecked SmallInteger #*. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+ 3 unchecked SmallInteger #/. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+ 4 unchecked SmallInteger #//. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+ 5 unchecked SmallInteger #\\. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+ 6 unchecked SmallInteger #rem:. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+
+ 16 unchecked SmallInteger #bitAnd:. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+ 17 unchecked SmallInteger #bitOr:. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+ 18 unchecked SmallInteger #bitXor:. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+ 19 unchecked SmallInteger #bitShift:. Both arguments are SmallIntegers and the result fits in a SmallInteger (* depends on word size)
+
+ 32 unchecked SmallInteger #>. Both arguments are SmallIntegers
+ 33 unchecked SmallInteger #<. Both arguments are SmallIntegers
+ 34 unchecked SmallInteger #>=. Both arguments are SmallIntegers
+ 35 unchecked SmallInteger #<=. Both arguments are SmallIntegers
+ 36 unchecked SmallInteger #=. Both arguments are SmallIntegers
+ 37 unchecked SmallInteger #!!=. Both arguments are SmallIntegers
+
+ 64 unchecked Pointer Object>>at:. The receiver is guaranteed to be a pointer object. The 0-relative (1-relative?) index is an in-range SmallInteger
+ 65 unchecked Byte Object>>at:. The receiver is guaranteed to be a non-pointer object. The 0-relative (1-relative?) index is an in-range SmallInteger. The result is a SmallInteger.
+ 66 unchecked Word Object>>at:. The receiver is guaranteed to be a non-pointer object. The 0-relative (1-relative?) index is an in-range SmallInteger. The result is a SmallInteger.
+ 67 unchecked DoubleWord Object>>at:. The receiver is guaranteed to be a non-pointer object. The 0-relative (1-relative?) index is an in-range SmallInteger. The result is a SmallInteger or a LargePositiveInteger.
+ 67 unchecked QuadWord Object>>at:. The receiver is guaranteed to be a non-pointer object. The 0-relative (1-relative?) index is an in-range SmallInteger. The result is a SmallInteger or a LargePositiveInteger.
+
+ 80 unchecked Pointer Object>>at:put:. The receiver is guaranteed to be a pointer object. The 0-relative (1-relative?) index is an in-range SmallInteger
+ 81 unchecked Byte Object>>at:put:. The receiver is guaranteed to be a non-pointer object. The 0-relative (1-relative?) index is an in-range SmallInteger. The argument is a SmallInteger. The primitive stores the least significant 8 bits.
+ 82 unchecked Word Object>>at:put:. The receiver is guaranteed to be a non-pointer object. The 0-relative (1-relative?) index is an in-range SmallInteger. The argument is a SmallInteger. The primitive stores the least significant 16 bits.
+ 83 unchecked DoubleWord Object>>at:put:. The receiver is guaranteed to be a non-pointer object. The 0-relative (1-relative?) index is an in-range SmallInteger. The argument is a SmallInteger. The primitive stores the least significant 32 bits.
+ 83 unchecked QuadWord Object>>at:put:. The receiver is guaranteed to be a non-pointer object. The 0-relative (1-relative?) index is an in-range SmallInteger. The argument is a SmallInteger. The primitive stores the least significant 64 bits.!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>bindingReadScanBlockFor:using: (in category 'compiled method support') -----
+ bindingReadScanBlockFor: litVarIndex using: scanner
+ "Answer a block argument for InstructionStream>>scanFor: that answers true
+ for reads of the value of the binding with zero-relative index litVarIndex.
+ N.B. Don't assume the compiler uses the most compact encoding available."
+
+ " 16-31 0001 i i i i Push Literal Variable #iiii
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 227 11100011 i i i i i i i i Push Literal Variable #iiiiiiii (+ Extend A * 256)"
+ | extension |
+ extension := 0.
+ ^[:b| | prevext |
+ prevext := extension.
+ extension := b = 224 ifTrue: [scanner followingByte bitShift: 8] ifFalse: [0].
+ (b < 32 and: [b >= 16 and: [b - 16 = litVarIndex]])
+ or: [b = 227
+ and: [scanner followingByte + prevext = litVarIndex]]]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>bindingWriteScanBlockFor:using: (in category 'compiled method support') -----
+ bindingWriteScanBlockFor: litVarIndex using: scanner
+ "Answer a block argument for InstructionStream>>scanFor: that answers true
+ for writes of the value of the binding with zero-relative index litVarIndex.
+ N.B. Don't assume the compiler uses the most compact encoding available."
+
+ "* 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 241 11110001 iiiiiiii Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
+ * 244 11110100 iiiiiiii Store Literal Variable #iiiiiiii (+ Extend A * 256)"
+ | extension |
+ extension := 0.
+ ^[:b| | prevext |
+ prevext := extension.
+ extension := b = 224 ifTrue: [scanner followingByte bitShift: 8] ifFalse: [0].
+ (b = 241 or: [b = 244])
+ and: [scanner followingByte + prevext = litVarIndex]]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>bytecodeSize: (in category 'instruction stream support') -----
+ bytecodeSize: bytecode
+ "Answer the number of bytes in the bytecode."
+ bytecode < 224 ifTrue: [^1].
+ bytecode < 248 ifTrue: [^2].
+ ^3!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>callPrimitiveCode (in category 'bytecode decoding') -----
+ callPrimitiveCode
+ "Answer the call primitive bytecode, if it exists in the encoder's bytecode set, or nil if not.
+ 248 11111000 iiiiiiii mjjjjjjj Call Primitive #iiiiiiii + (jjjjjjj * 256) m=1 means inlined primitive, no hard return after execution."
+ ^248!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>createClosureScanBlock (in category 'compiled method support') -----
+ createClosureScanBlock
+ "Answer a block argument for InstructionStream>>scanFor: that answers true
+ for block closure creation bytecodes. ote that with this interface we can't answer
+ true for the extension in front of a push closure bytecode and so the interface may
+ have to change at some point."
+
+ "* 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 225 11100001 bbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ ** 250 11111010 eeiiikkk jjjjjjjj Push Closure Num Copied iii (+ExtA//16*8) Num Args kkk (+ ExtA\\16*8) BlockSize jjjjjjjj (+ExtB*256). ee = num extensions"
+ ^[:b| b = 250]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>extensionsAt:in:into: (in category 'compiled method support') -----
+ extensionsAt: bcpc in: method into: aTrinaryBlock
+ "If the bytecode at pc is an extension then evaluate aBinaryBlock with the values of extA and extB and number of extension *bytes*.
+ If the bytecode at pc is not extended then evaluate aBinaryBlock with 0 and 0.
+ 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ 225 11100001 bbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)"
+
+ | scanpc byte extByte extA extB |
+ scanpc := bcpc.
+ "There may be an extension (it could be a false positive). We must scan as fast as possible..."
+ extA := extB := 0.
+ [byte := method at: scanpc.
+ byte >= 224 and: [byte <= 225]] whileTrue:
+ [extByte := method at: scanpc + 1.
+ scanpc := scanpc + 2.
+ byte = 224
+ ifTrue:
+ [extA := (extA bitShift: 8) + extByte]
+ ifFalse:
+ [extB := (extB = 0 and: [extByte > 127])
+ ifTrue: [extByte - 256]
+ ifFalse: [(extB bitShift: 8) + extByte]]].
+ ^aTrinaryBlock value: extA value: extB value: scanpc - bcpc
+
+
+ "Why use
+ byte >= 224 and: [byte <= 225]
+ and not
+ (byte bitAnd: 16rFE) = 16rE0
+ ?
+ | n |
+ n := 100000000.
+ #(0 224) collect:
+ [:byte|
+ { Time millisecondsToRun: [1 to: n do: [:i| (byte >= 224 and: [byte <= 225]) ifTrue: []]].
+ Time millisecondsToRun: [1 to: n do: [:i| (byte bitAnd: 16rFE) = 16rE0 ifTrue: []]] }] #(#(297 599) #(702 671))"!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>instVarReadScanBlockFor:using: (in category 'compiled method support') -----
+ instVarReadScanBlockFor: varIndexCode using: scanner
+ "Answer a block argument for InstructionStream>>scanFor: that answers true
+ for reads of the inst var with zero-relative index varIndexCode.
+ N.B. Don't assume the compiler uses the most compact encoding available."
+
+ " 0-15 0000 i i i i Push Receiver Variable #iiii
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 226 11100010 i i i i i i i i Push Receiver Variable #iiiiiiii (+ Extend A * 256)"
+ | extension |
+ extension := 0.
+ ^[:b| | prevext |
+ prevext := extension.
+ extension := b = 224 ifTrue: [scanner followingByte bitShift: 8] ifFalse: [0].
+ (b < 16 and: [b = varIndexCode])
+ or: [b = 226
+ and: [scanner followingByte + prevext = varIndexCode]]]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>instVarWriteScanBlockFor:using: (in category 'compiled method support') -----
+ instVarWriteScanBlockFor: varIndexCode using: scanner
+ "Answer a block argument for InstructionStream>>scanFor: that answers true
+ for writes of the inst var with zero-relative index varIndexCode.
+ N.B. Don't assume the compiler uses the most compact encoding available."
+
+ " 200-207 11001 iii Pop and Store Receiver Variable #iii
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 240 11110000 iiiiiiii Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
+ * 243 11110011 iiiiiiii Store Receiver Variable #iiiiiii (+ Extend A * 256)"
+ | extension |
+ extension := 0.
+ ^[:b| | prevext |
+ prevext := extension.
+ extension := b = 224 ifTrue: [scanner followingByte bitShift: 8] ifFalse: [0].
+ (b >= 200
+ and: [b < 208
+ and: [b - 200 = varIndexCode]])
+ or: [(b = 240 or: [b = 243])
+ and: [scanner followingByte + prevext = varIndexCode]]]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>interpretJumpIfCondIn: (in category 'compiled method support') -----
+ interpretJumpIfCondIn: anInstructionStream
+ "Double-dispatch through the encoder to select the correct conditional jump decoder for the instruction set."
+ ^anInstructionStream interpretSistaV1JumpIfCond!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>interpretJumpIn: (in category 'compiled method support') -----
+ interpretJumpIn: anInstructionStream
+ "Double-dispatch through the encoder to select the correct unconditional jump decoder for the instruction set."
+ ^anInstructionStream interpretSistaV1Jump!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>interpretNextInstructionFor:in: (in category 'instruction stream support') -----
+ interpretNextInstructionFor: aClient in: anInstructionStream
+ "Double-dispatch through the encoder to select the correct instruction set decoder."
+ ^anInstructionStream interpretNextSistaV1InstructionFor: aClient!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isBlockReturnAt:in: (in category 'instruction stream support') -----
+ isBlockReturnAt: pc in: method
+ "Answer whether the bytecode at pc is a return from block."
+ " 93 01011101 BlockReturn nil
+ * 94 01011110 BlockReturn Top [* return from enclosing block N, N = Extend A, then jump by Ext B ]"
+ ^(self nonExtensionBytecodeAt: pc in: method) between: 93 and: 94!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isBranchIfFalseAt:in: (in category 'instruction stream support') -----
+ isBranchIfFalseAt: pc in: method
+ "Answer whether the bytecode at pc is a conditional branch-if-false."
+
+ " 192-199 11000 iii Pop and Jump 0n False iii +1 (i.e., 1 through 8)
+ * 239 11101111 iiiiiiii Pop and Jump 0n False #iiiiiiii (+ Extend B * 256, where Extend B >= 0)"
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 192 and: [byte <= 199 or: [byte = 239]]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isBranchIfTrueAt:in: (in category 'instruction stream support') -----
+ isBranchIfTrueAt: pc in: method
+ "Answer whether the bytecode at pc is a conditional branch-if-true."
+
+ " 184-191 10111 iii Pop and Jump 0n True iii +1 (i.e., 1 through 8)
+ * 238 11101110 iiiiiiii Pop and Jump 0n True #iiiiiiii (+ Extend B * 256, where Extend B >= 0))"
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 184 and: [byte <= 191 or: [byte = 238]]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isExtension: (in category 'instruction stream support') -----
+ isExtension: bytecode
+ "Answer if the bytecode is an extension bytecode, i.e. one that extends
+ the range of the following bytecode."
+ ^bytecode >= 16rE0 and: [bytecode <= 16rE1]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isJumpAt:in: (in category 'instruction stream support') -----
+ isJumpAt: pc in: method
+ "Answer whether the bytecode at pc is an (unconditional) jump."
+
+ " 176-183 10110 iii Jump iii + 1 (i.e., 1 through 8)
+ * 225 11100001 bbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ * 237 11101101 iiiiiiii Jump #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)"
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 176 and: [byte <= 183 or: [byte = 237]]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isJustPopAt:in: (in category 'instruction stream support') -----
+ isJustPopAt: pc in: method
+ "Answer whether the bytecode at pc is a pop."
+
+ ^(method at: pc) = 216 "216 11011000 Pop Stack Top"!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isRealSendAt:in: (in category 'instruction stream support') -----
+ isRealSendAt: pc in: method
+ "Answer whether the bytecode at pc is a real message-send, not blockCopy:."
+
+ ^self isSendAt: pc in: method!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isReturnAt:in: (in category 'instruction stream support') -----
+ isReturnAt: pc in: method
+ "Answer whether the bytecode at pc is a return from block."
+ " 88-91 010110 ii Return Receiver/true/false/nil
+ 92 01011100 Return top
+ 93 01011101 BlockReturn nil
+ * 94 01011110 BlockReturn Top [* return from enclosing block N, N = Extend A, then jump by Ext B ]"
+ ^(self nonExtensionBytecodeAt: pc in: method) between: 88 and: 94!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isSendAt:in: (in category 'instruction stream support') -----
+ isSendAt: pc in: method
+ "Answer whether the bytecode at pc is a message-send."
+
+ " 96-111 0110 iiii Send Arithmetic Message #iiii #(#+ #- #< #> #'<=' #'>=' #= #'~=' #* #/ #'\\' #@ #bitShift: #'//' #bitAnd: #bitOr:)
+ 112-119 01110 iii Send Special Message #iii #(#at: #at:put: #size #next #nextPut: #atEnd #'==' class)
+ 120 01111000 UNASSIGNED (was: blockCopy:)
+ 121 01111001 Send Special Message #value
+ 122-123 0111101 i Send Special Message #i #(#value: #do:)
+ 124-127 011111 ii Send Special Message #ii #(#new #new: #x #y))
+ 128-143 1000 iiii Send Literal Selector #iiii With 0 Argument
+ 144-159 1001 iiii Send Literal Selector #iiii With 1 Arguments
+ 160-175 1010 iiii Send Literal Selector #iiii With 2 Arguments
+ ** 234 11101010 iiiiijjj Send Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments
+ ** 235 11101011 iiiiijjj Send To Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments"
+
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 96
+ and: [byte <= 175
+ or: [byte >= 234 and: [byte <= 235]]]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isStoreAt:in: (in category 'instruction stream support') -----
+ isStoreAt: pc in: method
+ "Answer whether the bytecode at pc is a store or store-pop."
+
+ " 200-207 11001 iii Pop and Store Receiver Variable #iii
+ 208-215 11010 iii Pop and Store Temporary Variable #iii
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 240 11110000 iiiiiiii Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
+ * 241 11110001 iiiiiiii Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
+ 242 11110010 iiiiiiii Pop and Store Temporary Variable #iiiiiiii
+ * 243 11110011 iiiiiiii Store Receiver Variable #iiiiiii (+ Extend A * 256)
+ * 244 11110100 iiiiiiii Store Literal Variable #iiiiiiii (+ Extend A * 256)
+ 245 11110110 iiiiiiii Store Temporary Variable #iiiiiiii
+
+ 252 11111100 kkkkkkkk jjjjjjjj Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj
+ 253 11111101 kkkkkkkk jjjjjjjj Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
+
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 200
+ and: [byte <= 215
+ or: [(byte between: 240 and: 245)
+ or: [(byte between: 252 and: 253)]]]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>isStorePopAt:in: (in category 'instruction stream support') -----
+ isStorePopAt: pc in: method
+ "Answer whether the bytecode at pc is a store or store-pop."
+
+ " 200-207 11001 iii Pop and Store Receiver Variable #iii
+ 208-215 11010 iii Pop and Store Temporary Variable #iii
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 240 11110000 iiiiiiii Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)
+ * 241 11110001 iiiiiiii Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)
+ 242 11110010 iiiiiiii Pop and Store Temporary Variable #iiiiiiii
+
+ 253 11111101 kkkkkkkk jjjjjjjj Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
+
+ | byte |
+ byte := self nonExtensionBytecodeAt: pc in: method.
+ ^byte >= 200
+ and: [byte <= 215
+ or: [(byte between: 240 and: 242)
+ or: [byte = 253]]]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>method:refersInBytecodeToLiteral:specialSelectorIndex: (in category 'scanning') -----
+ method: method refersInBytecodeToLiteral: aLiteral specialSelectorIndex: specialOrNil
+ "Answer if method refers to the literal aLiteral in the bytecode, as opposed to in its literal frame."
+
+ " 77 01001101 Push true
+ 78 01001110 Push false
+ 79 01001111 Push nil
+ 80 01010000 Push 0
+ 81 01010001 Push 1
+ 88-91 010110 ii Return Receiver/true/false/nil
+ 93 01011101 BlockReturn nil
+ 96-111 0110 iiii Send Arithmetic Message #iiii #(#+ #- #< #> #'<=' #'>=' #= #'~=' #* #/ #'\\' #@ #bitShift: #'//' #bitAnd: #bitOr:)
+ 112-119 01110 iii Send Special Message #iii #(#at: #at:put: #size #next #nextPut: #atEnd #'==' class)
+ 120 01111000 UNASSIGNED (was: blockCopy:)
+ 121 01111001 Send Special Message #value
+ 122-123 0111101 i Send Special Message #i #(#value: #do:)
+ 124-127 011111 ii Send Special Message #ii #(#new #new: #x #y))
+ * 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ * 232 11101000 iiiiiiii Push Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)
+ * 233 11101001 iiiiiiii Push Character #iiiiiiii (+ Extend B * 256)
+ 249 11111001 xxxxxxxx syyyyyyy Reserved for Push Float"
+ | byte extended scanner |
+ specialOrNil ifNotNil:
+ [byte := specialOrNil + 95.
+ ^(InstructionStream on: method) scanFor: [:b| b = byte]].
+ extended := false.
+ aLiteral isInteger ifTrue:
+ [(aLiteral >= -32768 and: [aLiteral <= 32767]) ifFalse: [^false].
+ scanner := InstructionStream on: method.
+ (aLiteral >= 0 and: [aLiteral <= 255]) ifTrue:
+ [aLiteral <= 1 ifTrue:
+ [byte := aLiteral + 80.
+ ^scanner scanFor: [:b| b = byte]].
+ ^scanner scanFor:
+ [:b|
+ (b = 232
+ and: [extended not
+ and: [scanner followingByte = aLiteral]])
+ or: [extended := b = 225.
+ false]]].
+ byte := (aLiteral bitShift: -8) bitAnd: 255.
+ ^scanner scanFor:
+ [:b|
+ (b = 232
+ and: [extended
+ and: [scanner followingByte = (aLiteral bitAnd: 255)]])
+ or: [extended := b = 225 and: [scanner followingByte = byte].
+ false]]].
+ aLiteral isCharacter ifTrue:
+ [aLiteral asciiValue <= 65535 ifFalse: [^false].
+ scanner := InstructionStream on: method.
+ aLiteral asciiValue <= 255 ifTrue:
+ [^scanner scanFor:
+ [:b|
+ (b = 233
+ and: [extended not
+ and: [scanner followingByte = aLiteral]])
+ or: [extended := b = 225.
+ false]]].
+ byte := (aLiteral bitShift: -8) bitAnd: 255.
+ ^scanner scanFor:
+ [:b|
+ (b = 233
+ and: [extended
+ and: [scanner followingByte = (aLiteral bitAnd: 255)]])
+ or: [extended := b = 225 and: [scanner followingByte = byte].
+ false]]].
+ aLiteral == nil ifTrue:
+ [^(InstructionStream on: method) scanFor: [:b| b = 79 or: [b = 91 or: b = 93]]].
+ aLiteral == true ifTrue:
+ [^(InstructionStream on: method) scanFor: [:b| b = 77 or: [b = 89]]].
+ aLiteral == false ifTrue:
+ [^(InstructionStream on: method) scanFor: [:b| b = 78 or: [b = 90]]].
+
+ ^false!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>nonExtensionBytecodeAt:in: (in category 'instruction stream support') -----
+ nonExtensionBytecodeAt: pc in: method
+ "Answer the actual bytecode at pc in method, skipping past any preceeding extensions."
+ | thePC bytecode |
+ thePC := pc.
+ [self isExtension: (bytecode := method at: thePC)] whileTrue:
+ [thePC := thePC + (self bytecodeSize: bytecode)].
+ ^bytecode!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>pcOfBlockCreationBytecodeForBlockStartingAt:in: (in category 'bytecode decoding') -----
+ pcOfBlockCreationBytecodeForBlockStartingAt: startpc in: method
+ "Answer the pc of the push closure bytecode whose block starts at startpc in method.
+ May need to back up to include extension bytecodes."
+
+ "* 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 225 11100001 bbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ ** 250 11111010 eeiiikkk jjjjjjjj Push Closure Num Copied iii (+ExtA//16*8) Num Args kkk (+ ExtA\\16*8) BlockSize jjjjjjjj (+ExtB*256). ee = num extensions"
+ | numExtensions |
+ self assert: (method at: startpc - 3) = 250.
+ numExtensions := (method at: startpc - 2) >> 6.
+ ^startpc - 3 - (numExtensions * 2)!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>pushClosureBytecodeSize (in category 'bytecode decoding') -----
+ pushClosureBytecodeSize
+ "Answer the size of the push closure bytecode.
+ ** 250 11111010 eeiiikkk jjjjjjjj Push Closure Num Copied iii (+ExtA//16*8) Num Args kkk (+ ExtA\\16*8) BlockSize jjjjjjjj (+ExtB*256). ee = num extensions"
+ ^3!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>superSendScanBlockUsing: (in category 'instruction stream support') -----
+ superSendScanBlockUsing: scanner
+ "Answer a block argument for InstructionStream>>scanFor:
+ that answers true for super sends."
+
+ "* 224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)
+ * 225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ ** 235 11101011 iiiiijjj Send To Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments"
+
+ ^[:instr | instr = 235]!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>supportsClosures (in category 'compiled method support') -----
+ supportsClosures
+ "Answer if the instruction set supports closures (contains
+ closure creation and indirect temp access bytecodes)."
+
+ ^true!
Item was added:
+ ----- Method: EncoderForSistaV1 class>>unusedBytecode (in category 'bytecode decoding') -----
+ unusedBytecode
+ "Answer the opcode of a single-byte unused bytecode, if it exists in the encoder's bytecode set, or nil if not."
+ ^223!
Item was added:
+ ----- Method: EncoderForSistaV1>>genBranchPopFalse: (in category 'bytecode generation') -----
+ genBranchPopFalse: distance
+ (distance > 0 and: [distance < 9]) ifTrue:
+ ["192-199 11000 iii Pop and Jump 0n False iii + 1 (i.e., 1 through 8)"
+ stream nextPut: 191 + distance.
+ ^self].
+ ^self genBranchPopFalseLong: distance!
Item was added:
+ ----- Method: EncoderForSistaV1>>genBranchPopFalseLong: (in category 'bytecode generation') -----
+ genBranchPopFalseLong: distance
+ "239 11101111 iiiiiiii Pop and Jump 0n False #iiiiiiii (+ Extend B * 256, where Extend B >= 0) "
+ | distanceMod256 |
+ (distance < 0 or: [distance > 32767]) ifTrue:
+ [^self outOfRangeError: 'distance' index: distance range: 0 to: 32767].
+ distanceMod256 := (distance < 0 or: [distance > 255])
+ ifTrue:
+ [self genUnsignedSingleExtendB: (distance bitShift: -8).
+ distance bitAnd: 255]
+ ifFalse: [distance].
+ stream
+ nextPut: 239;
+ nextPut: distanceMod256!
Item was added:
+ ----- Method: EncoderForSistaV1>>genBranchPopTrue: (in category 'bytecode generation') -----
+ genBranchPopTrue: distance
+ (distance > 0 and: [distance < 9]) ifTrue:
+ ["184-191 10111 iii Pop and Jump 0n True iii + 1 (i.e., 1 through 8)"
+ stream nextPut: 183 + distance.
+ ^self].
+ ^self genBranchPopTrueLong: distance!
Item was added:
+ ----- Method: EncoderForSistaV1>>genBranchPopTrueLong: (in category 'bytecode generation') -----
+ genBranchPopTrueLong: distance
+ "238 11101110 iiiiiiii Pop and Jump 0n True #iiiiiiii (+ Extend B * 256, where Extend B >= 0)"
+ | distanceMod256 |
+ (distance < 0 or: [distance > 32767]) ifTrue:
+ [^self outOfRangeError: 'distance' index: distance range: 0 to: 32767].
+ (distance > 0 and: [distance < 9]) ifTrue:
+ ["184-191 10111 iii Pop and Jump 0n True iii + 1 (i.e., 1 through 8)"
+ stream nextPut: 183 + distance.
+ ^self].
+ distanceMod256 := (distance < 0 or: [distance > 255])
+ ifTrue:
+ [self genUnsignedSingleExtendB: (distance bitShift: -8).
+ distance bitAnd: 255]
+ ifFalse: [distance].
+ stream
+ nextPut: 238;
+ nextPut: distanceMod256!
Item was added:
+ ----- Method: EncoderForSistaV1>>genCallInlinePrimitive: (in category 'bytecode generation') -----
+ genCallInlinePrimitive: primitiveIndex
+ "248 11111000 i i i i i i i i 1jjjjjjj Call Primitive #iiiiiiii + (jjjjjjj * 256)"
+ "N.B. We could have made CallPrimitive a 2-byte code taking an extension, but that would
+ complicate the VM's determination of the primitive number and the primitive error code
+ store since the extension, being optional, would make the sequence variable length."
+ (primitiveIndex < 1 or: [primitiveIndex > 32767]) ifTrue:
+ [self outOfRangeError: 'primitive index' index: primitiveIndex range: 1 to: 32767].
+ stream
+ nextPut: 248;
+ nextPut: (primitiveIndex bitAnd: 255);
+ nextPut: (primitiveIndex bitShift: -8) + 128!
Item was added:
+ ----- Method: EncoderForSistaV1>>genCallPrimitive: (in category 'bytecode generation') -----
+ genCallPrimitive: primitiveIndex
+ "248 11111000 i i i i i i i i 0jjjjjjj Call Primitive #iiiiiiii + (jjjjjjj * 256)"
+ "N.B. We could have made CallPrimitive a 2-byte code taking an extension, but that would
+ complicate the VM's determination of the primitive number and the primitive error code
+ store since the extension, being optional, would make the sequence variable length."
+ (primitiveIndex < 1 or: [primitiveIndex > 32767]) ifTrue:
+ [self outOfRangeError: 'primitive index' index: primitiveIndex range: 1 to: 32767].
+ stream
+ nextPut: 248;
+ nextPut: (primitiveIndex bitAnd: 255);
+ nextPut: (primitiveIndex bitShift: -8)!
Item was added:
+ ----- Method: EncoderForSistaV1>>genDup (in category 'bytecode generation') -----
+ genDup
+ "83 01010011 Duplicate Stack Top"
+ stream nextPut: 83!
Item was added:
+ ----- Method: EncoderForSistaV1>>genInlineSmallIntegerAdd (in category 'in-line primitive generation') -----
+ genInlineSmallIntegerAdd
+ ^self genCallInlinePrimitive: 0!
Item was added:
+ ----- Method: EncoderForSistaV1>>genJump: (in category 'bytecode generation') -----
+ genJump: distance
+ (distance > 0 and: [distance < 9]) ifTrue:
+ ["176-183 10110 iii Jump iii + 1 (i.e., 1 through 8)"
+ stream nextPut: 175 + distance.
+ ^self].
+ "237 11101101 iiiiiiii Jump #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)"
+ ^self genJumpLong: distance!
Item was added:
+ ----- Method: EncoderForSistaV1>>genJumpLong: (in category 'bytecode generation') -----
+ genJumpLong: distance
+ "237 11101101 iiiiiiii Jump #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)"
+ (distance between: -32768 and: 32767) ifFalse:
+ [^self outOfRangeError: 'index' index: distance range: -32768 to: 32767].
+ (distance < 0 or: [distance > 255]) ifTrue:
+ [self genSignedSingleExtendB: (distance bitShift: -8)].
+ stream
+ nextPut: 237;
+ nextPut: (distance bitAnd: 255)!
Item was added:
+ ----- Method: EncoderForSistaV1>>genNop (in category 'bytecode generation') -----
+ genNop
+ "95 01011111 Nop"
+ stream nextPut: 95!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPop (in category 'bytecode generation') -----
+ genPop
+ "216 11011000 Pop Stack Top"
+ stream nextPut: 216!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushCharacter: (in category 'bytecode generation') -----
+ genPushCharacter: aCharacterOrCode
+ "233 11101001 i i i i i i i i Push Character #iiiiiiii (+ Extend B * 256)"
+ "Why restrict the range to 16 bits when we could encode arbitrarily 32-bit Characters?
+ Well, 16 bits requires 4 bytes (extB + byte, 78 + byte) and so beyond this range we
+ lose space verses a single-byte pushLiteral and a 4 byte Character literal on 32-bits.
+ And generating the same bytecode on 64-bit and 32-bit is important if we want to be
+ able to load binary code from one to the other (e.g. via Fuel)."
+ | code |
+ code := aCharacterOrCode isInteger ifTrue: [aCharacterOrCode] ifFalse: [aCharacterOrCode asInteger].
+ (code < 0 or: [code > 65535]) ifTrue:
+ [^self outOfRangeError: 'character' index: code range: 0 to: 65535].
+ (code > 255) ifTrue:
+ [self genUnsignedSingleExtendB: (code bitShift: -8)].
+ stream
+ nextPut: 233;
+ nextPut: (code bitAnd: 255)!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushClosureCopyNumCopiedValues:numArgs:jumpSize: (in category 'bytecode generation') -----
+ genPushClosureCopyNumCopiedValues: numCopied numArgs: numArgs jumpSize: jumpSize
+ "250 11111010 eeiiikkk jjjjjjjj Push Closure Num Copied iii (+ Ext A // 16 * 8) Num Args kkk (+ Ext A \\ 16 * 8) BlockSize jjjjjjjj (+ Ext B * 256). ee = num extensions"
+ "Including numExtensions makes decoding the bytecode quicker since it obviates having to scan from the beginning of a method."
+ | numExtensions numCopiedMod8 numArgsMod8 extA |
+ (jumpSize < 0 or: [jumpSize > 65535]) ifTrue:
+ [^self outOfRangeError: 'block size' index: jumpSize range: 0 to: 65535].
+ (numCopied < 0 or: [numCopied > 127]) ifTrue:
+ [^self outOfRangeError: 'num copied' index: numCopied range: 0 to: 127].
+ (numArgs < 0 or: [numArgs > 127]) ifTrue:
+ [^self outOfRangeError: 'num args' index: numArgs range: 0 to: 127].
+ extA := numExtensions := 0.
+ (numArgsMod8 := numArgs) > 7 ifTrue:
+ [extA := numArgs // 8.
+ numArgsMod8 := numArgsMod8 \\ 8].
+ (numCopiedMod8 := numCopied) > 7 ifTrue:
+ [extA := extA + (numCopied // 8 * 16).
+ numCopiedMod8 := numCopiedMod8 \\ 8].
+ extA ~= 0 ifTrue:
+ [self genUnsignedSingleExtendA: extA.
+ numExtensions := 1].
+ jumpSize > 255 ifTrue:
+ [numExtensions := numExtensions + 1.
+ self genUnsignedSingleExtendB: jumpSize // 256].
+ stream
+ nextPut: 250;
+ nextPut: (numExtensions bitShift: 6) + (numCopiedMod8 bitShift: 3) + numArgsMod8;
+ nextPut: (jumpSize bitAnd: 16rFF)!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushConsArray: (in category 'bytecode generation') -----
+ genPushConsArray: size
+ (size < 0 or: [size > 127]) ifTrue:
+ [^self outOfRangeError: 'size' index: size range: 0 to: 127].
+ "233 11101001 jkkkkkkk Push (Array new: kkkkkkk) (j = 0)
+ & Pop kkkkkkk elements into: (Array new: kkkkkkk) (j = 1)"
+ stream
+ nextPut: 233;
+ nextPut: size + 128!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushInstVar: (in category 'bytecode generation') -----
+ genPushInstVar: instVarIndex
+ (instVarIndex between: 0 and: 15) ifTrue:
+ ["0-15 0000iiii Push Receiver Variable #iiii"
+ stream nextPut: 0 + instVarIndex.
+ ^self].
+ self genPushInstVarLong: instVarIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushInstVarLong: (in category 'bytecode generation') -----
+ genPushInstVarLong: instVarIndex
+ "226 11100010 i i i i i i i i Push Receiver Variable #iiiiiiii (+ Extend A * 256)"
+ "See also MaybeContextInstanceVariableNode"
+ (instVarIndex < 0 or: [instVarIndex > 65535]) ifTrue:
+ [^self outOfRangeError: 'index' index: instVarIndex range: 0 to: 65535].
+ instVarIndex > 255 ifTrue:
+ [self genUnsignedSingleExtendA: instVarIndex // 256].
+ stream
+ nextPut: 226;
+ nextPut: instVarIndex \\ 256!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushInteger: (in category 'bytecode generation') -----
+ genPushInteger: anInteger
+ "80 01010000 Push 0
+ 81 01010001 Push 1
+ 232 11101000 i i i i i i i i Push Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)"
+ "Why restrict the range to 16 bits when we could encode arbitrarily large integers?
+ Well, 16 bits requires 4 bytes (extB + byte, 78 + byte) and so beyond this range we lose space
+ verses a single-byte pushLiteral and a 4 byte integer literal on 32-bits. And generating the same
+ bytecode on 64-bit and 32-bit is important if we want to be able to load binary code from one to
+ the other (e.g. via Fuel)."
+ anInteger = 0 ifTrue:
+ [stream nextPut: 80.
+ ^self].
+ anInteger = 1 ifTrue:
+ [stream nextPut: 81.
+ ^self].
+ (anInteger < -32768 or: [anInteger > 32767]) ifTrue:
+ [^self outOfRangeError: 'integer' index: anInteger range: -32768 to: 32767].
+ (anInteger < 0 or: [anInteger > 255]) ifTrue:
+ [self genSignedSingleExtendB: (anInteger bitShift: -8)].
+ stream
+ nextPut: 232;
+ nextPut: (anInteger bitAnd: 255)!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushLiteral: (in category 'bytecode generation') -----
+ genPushLiteral: literalIndex
+ | extendedIndex |
+ (literalIndex < 0 or: [literalIndex > 65535]) ifTrue:
+ [^self outOfRangeError: 'index' index: literalIndex range: 0 to: 65536].
+ literalIndex < 32 ifTrue:
+ ["32-63 001iiiii Push Literal #iiiii"
+ stream nextPut: 32 + literalIndex.
+ ^self].
+ "228 11100100 i i i i i i i i Push Literal #iiiiiiii (+ Extend A * 256)"
+ (extendedIndex := literalIndex) > 255 ifTrue:
+ [self genUnsignedSingleExtendA: extendedIndex // 256.
+ extendedIndex := extendedIndex \\ 256].
+ stream
+ nextPut: 228;
+ nextPut: extendedIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushLiteralVar: (in category 'bytecode generation') -----
+ genPushLiteralVar: literalIndex
+ | extendedIndex |
+ (literalIndex < 0 or: [literalIndex > 65535]) ifTrue:
+ [^self outOfRangeError: 'index' index: literalIndex range: 0 to: 65535].
+ literalIndex < 16 ifTrue:
+ ["16-31 0001 i i i i Push Literal Variable #iiii"
+ stream nextPut: 16 + literalIndex.
+ ^self].
+ "227 11100011 i i i i i i i i Push Literal Variable #iiiiiiii (+ Extend A * 256)"
+ (extendedIndex := literalIndex) > 255 ifTrue:
+ [self genUnsignedSingleExtendA: extendedIndex // 256.
+ extendedIndex := extendedIndex \\ 256].
+ stream
+ nextPut: 227;
+ nextPut: extendedIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushNewArray: (in category 'bytecode generation') -----
+ genPushNewArray: size
+ (size < 0 or: [size > 127]) ifTrue:
+ [^self outOfRangeError: 'size' index: size range: 0 to: 127].
+ "231 11100111 jkkkkkkk Push (Array new: kkkkkkk) (j = 0)
+ & Pop kkkkkkk elements into: (Array new: kkkkkkk) (j = 1)"
+ stream
+ nextPut: 231;
+ nextPut: size!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushReceiver (in category 'bytecode generation') -----
+ genPushReceiver
+ "76 01001100 Push Receiver"
+ stream nextPut: 76!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushRemoteTemp:inVectorAt: (in category 'bytecode generation') -----
+ genPushRemoteTemp: tempIndex inVectorAt: tempVectorIndex
+ "251 11111011 kkkkkkkk jjjjjjjj Push Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
+ (tempIndex < 0 or: [tempIndex >= 256]) ifTrue:
+ [^self outOfRangeError: 'remoteTempIndex' index: tempIndex range: 0 to: 255].
+ (tempVectorIndex < 0 or: [tempVectorIndex >= 256]) ifTrue:
+ [^self outOfRangeError: 'tempVectorIndex' index: tempVectorIndex range: 0 to: 255].
+ stream
+ nextPut: 251;
+ nextPut: tempIndex;
+ nextPut: tempVectorIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushSpecialLiteral: (in category 'bytecode generation') -----
+ genPushSpecialLiteral: aLiteral
+ "77 01001101 Push true
+ 78 01001110 Push false
+ 79 01001111 Push nil
+ 80 01010000 Push 0
+ 81 01010001 Push 1
+ 232 11101000 iiiiiiii Push Integer #iiiiiiii (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)"
+ | index |
+ aLiteral isInteger ifTrue:
+ [aLiteral == 0 ifTrue:
+ [stream nextPut: 80.
+ ^self].
+ aLiteral == 1 ifTrue:
+ [stream nextPut: 81.
+ ^self].
+ ^self genPushInteger: aLiteral].
+ index := #(false true nil)
+ indexOf: aLiteral
+ ifAbsent: [^self error: 'push special literal: ', aLiteral printString, ' is not one of true false nil'].
+ stream nextPut: 76 + index!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushTemp: (in category 'bytecode generation') -----
+ genPushTemp: tempIndex
+ (tempIndex < 0 or: [tempIndex > 63]) ifTrue:
+ [^self outOfRangeError: 'index' index: tempIndex range: 0 to: 63].
+ tempIndex < 12 ifTrue:
+ ["64-71 01000 i i i Push Temporary Variable #iii
+ 72-75 010010 i i Push Temporary Variable #ii + 8"
+ stream nextPut: 64 + tempIndex.
+ ^self].
+ "229 11100101 i i i i i i i i Push Temporary Variable #iiiiiiii"
+ stream
+ nextPut: 229;
+ nextPut: tempIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genPushThisContext (in category 'bytecode generation') -----
+ genPushThisContext
+ "82 01010010 Push thisContext, (then e.g. Extend 1 = push thisProcess)"
+ stream nextPut: 82!
Item was added:
+ ----- Method: EncoderForSistaV1>>genReturnReceiver (in category 'bytecode generation') -----
+ genReturnReceiver
+ "88-91 010110 ii Return Receiver/true/false/nil"
+ stream nextPut: 88!
Item was added:
+ ----- Method: EncoderForSistaV1>>genReturnSpecialLiteral: (in category 'bytecode generation') -----
+ genReturnSpecialLiteral: aLiteral
+ "88-91 010110 ii Return Receiver/true/false/nil"
+ | index |
+ index := #(true false nil) indexOf: aLiteral ifAbsent: 0.
+ index = 0 ifTrue:
+ [^self error: 'return special literal: ', aLiteral printString, ' is not one of true false nil'].
+ stream nextPut: 88 + index!
Item was added:
+ ----- Method: EncoderForSistaV1>>genReturnTop (in category 'bytecode generation') -----
+ genReturnTop
+ "92 1011100 Return Stack Top From Message"
+ stream nextPut: 92!
Item was added:
+ ----- Method: EncoderForSistaV1>>genReturnTopToCaller (in category 'bytecode generation') -----
+ genReturnTopToCaller
+ "93 1011101 Return Stack Top From Block [* return from enclosing block N, ExtA]"
+ "If extended, the least significant bit of the extension determines if we return to the caller or not
+ and the most significant bits determine how many levels of the static chain to return from.
+ ExtA = iiiiiiij
+ iiiiiii=0,j=0 => return to caller
+ iiiiiii=0,j=1 => illegal
+ iiiiiii=1,j=0 => return to outerContext
+ iiiiiii=1,j=1 => return to outerContext sender/return from outerContext
+ iiiiiii=2,j=0 => return to outerContext outerContext
+ iiiiiii=2,j=1 => return to outerContext outerContext sender/return from outerContext outerContext
+ etc"
+
+ stream nextPut: 93!
Item was added:
+ ----- Method: EncoderForSistaV1>>genSend:numArgs: (in category 'bytecode generation') -----
+ genSend: selectorLiteralIndex numArgs: nArgs
+ | extendedIndex extendedNArgs |
+ (selectorLiteralIndex < 0 or: [selectorLiteralIndex > 65535]) ifTrue:
+ [^self outOfRangeError: 'selectorLiteralIndex' index: selectorLiteralIndex range: 0 to: 65535].
+ (nArgs < 0 or: [nArgs > 31]) ifTrue:
+ [^self outOfRangeError: 'numArgs' index: nArgs range: 0 to: 31 "!!!!"].
+ (selectorLiteralIndex < 16 and: [nArgs < 3]) ifTrue:
+ ["128-143 1000 iiii Send Literal Selector #iiii With 0 Argument
+ 144-159 1001 iiii Send Literal Selector #iiii With 1 Arguments
+ 160-175 1010 iiii Send Literal Selector #iiii With 2 Arguments"
+ stream nextPut: 128 + (nArgs * 16) + selectorLiteralIndex.
+ ^self].
+ (extendedIndex := selectorLiteralIndex) > 31 ifTrue:
+ [self genUnsignedSingleExtendA: extendedIndex // 32.
+ extendedIndex := extendedIndex \\ 32].
+ (extendedNArgs := nArgs) > 7 ifTrue:
+ [self genUnsignedSingleExtendB: extendedNArgs // 8.
+ extendedNArgs := extendedNArgs \\ 8].
+ "234 11101010 i i i i i j j j Send Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments"
+ stream
+ nextPut: 238;
+ nextPut: extendedNArgs + (extendedIndex * 8)!
Item was added:
+ ----- Method: EncoderForSistaV1>>genSendSpecial:numArgs: (in category 'bytecode generation') -----
+ genSendSpecial: specialSelectorIndex numArgs: nArgs
+ self assert: (specialSelectorIndex between: 1 and: Smalltalk specialSelectorSize).
+ self assert: nArgs = (Smalltalk specialNargsAt: specialSelectorIndex).
+ "Special selector sends.
+ 96-111 0110 iiii Send Arithmetic Message #iiii #(#+ #- #< #> #'<=' #'>=' #= #'~=' #* #/ #'\\' #@ #bitShift: #'//' #bitAnd: #bitOr:)
+ 112-119 01110 iii Send Special Message #iii #(#at: #at:put: #size ? ? ? #'==' class ? value value: ? ? ? ? ?)"
+
+ stream nextPut: specialSelectorIndex + 95!
Item was added:
+ ----- Method: EncoderForSistaV1>>genSendSuper:numArgs: (in category 'bytecode generation') -----
+ genSendSuper: selectorLiteralIndex numArgs: nArgs
+ | extendedIndex extendedNArgs |
+ (selectorLiteralIndex < 0 or: [selectorLiteralIndex > 65535]) ifTrue:
+ [^self outOfRangeError: 'selectorLiteralIndex' index: selectorLiteralIndex range: 0 to: 65535].
+ (nArgs < 0 or: [nArgs > 31]) ifTrue:
+ [^self outOfRangeError: 'numArgs' index: nArgs range: 0 to: 31 "!!!!"].
+ (extendedIndex := selectorLiteralIndex) > 31 ifTrue:
+ [self genUnsignedSingleExtendA: extendedIndex // 32.
+ extendedIndex := extendedIndex \\ 32].
+ (extendedNArgs := nArgs) > 7 ifTrue:
+ [self genUnsignedSingleExtendB: extendedNArgs // 8.
+ extendedNArgs := extendedNArgs \\ 8].
+ "235 11101011 iiiiijjj Send To Superclass Literal Selector #iiiii (+ Extend A * 32) with jjj (+ Extend B * 8) Arguments"
+ stream
+ nextPut: 235;
+ nextPut: extendedNArgs + (extendedIndex * 8)!
Item was added:
+ ----- Method: EncoderForSistaV1>>genSignedSingleExtendB: (in category 'bytecode generation') -----
+ genSignedSingleExtendB: extendedIndex
+ (extendedIndex between: -128 and: 127) ifFalse:
+ [^self outOfRangeError: 'index' index: extendedIndex range: -128 to: 127].
+ "225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)"
+ stream
+ nextPut: 225;
+ nextPut: (extendedIndex >= 0 ifTrue: [extendedIndex] ifFalse: [extendedIndex + 256]) !
Item was added:
+ ----- Method: EncoderForSistaV1>>genStoreInstVar: (in category 'bytecode generation') -----
+ genStoreInstVar: instVarIndex
+ "243 11110011 iiiiiiii Store Receiver Variable #iiiiiii (+ Extend A * 256)"
+ self genStoreInstVarLong: instVarIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genStoreInstVarLong: (in category 'bytecode generation') -----
+ genStoreInstVarLong: instVarIndex
+ "243 11110011 iiiiiiii Store Receiver Variable #iiiiiii (+ Extend A * 256)"
+ (instVarIndex < 0 or: [instVarIndex > 65535]) ifTrue:
+ [^self outOfRangeError: 'index' index: instVarIndex range: 0 to: 65535].
+ instVarIndex > 255 ifTrue:
+ [self genUnsignedSingleExtendA: instVarIndex // 256].
+ stream
+ nextPut: 243;
+ nextPut: instVarIndex \\ 256!
Item was added:
+ ----- Method: EncoderForSistaV1>>genStoreLiteralVar: (in category 'bytecode generation') -----
+ genStoreLiteralVar: literalIndex
+ "244 11110100 iiiiiiii Store Literal Variable #iiiiiiii (+ Extend A * 256)"
+ (literalIndex < 0 or: [literalIndex > 65535]) ifTrue:
+ [^self outOfRangeError: 'index' index: literalIndex range: 0 to: 65535].
+ literalIndex > 255 ifTrue:
+ [self genUnsignedSingleExtendA: literalIndex // 256].
+ stream
+ nextPut: 244;
+ nextPut: literalIndex \\ 256!
Item was added:
+ ----- Method: EncoderForSistaV1>>genStorePopInstVar: (in category 'bytecode generation') -----
+ genStorePopInstVar: instVarIndex
+ "200-207 11001 iii Pop and Store Receiver Variable #iii
+ 240 11110000 iiiiiiii Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)"
+ (instVarIndex < 0 or: [instVarIndex > 7]) ifTrue:
+ [^self genStorePopInstVarLong: instVarIndex].
+ stream nextPut: 200 + instVarIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genStorePopInstVarLong: (in category 'bytecode generation') -----
+ genStorePopInstVarLong: instVarIndex
+ "240 11110000 iiiiiiii Pop and Store Receiver Variable #iiiiiii (+ Extend A * 256)"
+ (instVarIndex < 0 or: [instVarIndex > 65535]) ifTrue:
+ [^self outOfRangeError: 'index' index: instVarIndex range: 0 to: 65535].
+ instVarIndex > 255 ifTrue:
+ [self genUnsignedSingleExtendA: instVarIndex // 256].
+ stream
+ nextPut: 240;
+ nextPut: instVarIndex \\ 256!
Item was added:
+ ----- Method: EncoderForSistaV1>>genStorePopLiteralVar: (in category 'bytecode generation') -----
+ genStorePopLiteralVar: literalIndex
+ "241 11110001 iiiiiiii Pop and Store Literal Variable #iiiiiiii (+ Extend A * 256)"
+ (literalIndex < 0 or: [literalIndex > 65535]) ifTrue:
+ [^self outOfRangeError: 'index' index: literalIndex range: 0 to: 65535].
+ literalIndex > 255 ifTrue:
+ [self genUnsignedSingleExtendA: literalIndex // 256].
+ stream
+ nextPut: 241;
+ nextPut: literalIndex \\ 256!
Item was added:
+ ----- Method: EncoderForSistaV1>>genStorePopRemoteTemp:inVectorAt: (in category 'bytecode generation') -----
+ genStorePopRemoteTemp: tempIndex inVectorAt: tempVectorIndex
+ "253 11111101 kkkkkkkk jjjjjjjj Pop and Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
+ (tempIndex < 0 or: [tempIndex >= 256]) ifTrue:
+ [^self outOfRangeError: 'remoteTempIndex' index: tempIndex range: 0 to: 255].
+ (tempVectorIndex < 0 or: [tempVectorIndex >= 256]) ifTrue:
+ [^self outOfRangeError: 'tempVectorIndex' index: tempVectorIndex range: 0 to: 255].
+ stream
+ nextPut: 253;
+ nextPut: tempIndex;
+ nextPut: tempVectorIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genStorePopTemp: (in category 'bytecode generation') -----
+ genStorePopTemp: tempIndex
+ "208-215 11010 iii Pop and Store Temporary Variable #iii
+ 242 11110010 iiiiiiii Pop and Store Temporary Variable #iiiiiiii"
+ (tempIndex < 0 or: [tempIndex > 63]) ifTrue:
+ [^self outOfRangeError: 'index' index: tempIndex range: 0 to: 63].
+ tempIndex < 8 ifTrue:
+ [stream nextPut: 208 + tempIndex.
+ ^self].
+ stream
+ nextPut: 242;
+ nextPut: tempIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genStoreRemoteTemp:inVectorAt: (in category 'bytecode generation') -----
+ genStoreRemoteTemp: tempIndex inVectorAt: tempVectorIndex
+ "252 11111100 kkkkkkkk jjjjjjjj Store Temp At kkkkkkkk In Temp Vector At: jjjjjjjj"
+ (tempIndex < 0 or: [tempIndex >= 256]) ifTrue:
+ [^self outOfRangeError: 'remoteTempIndex' index: tempIndex range: 0 to: 255].
+ (tempVectorIndex < 0 or: [tempVectorIndex >= 256]) ifTrue:
+ [^self outOfRangeError: 'tempVectorIndex' index: tempVectorIndex range: 0 to: 255].
+ stream
+ nextPut: 252;
+ nextPut: tempIndex;
+ nextPut: tempVectorIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genStoreTemp: (in category 'bytecode generation') -----
+ genStoreTemp: tempIndex
+ "242 11110010 iiiiiiii Pop and Store Temporary Variable #iiiiiiii"
+ (tempIndex < 0 or: [tempIndex > 63]) ifTrue:
+ [^self outOfRangeError: 'index' index: tempIndex range: 0 to: 63].
+ stream
+ nextPut: 242;
+ nextPut: tempIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genUnsignedMultipleExtendA: (in category 'bytecode generation') -----
+ genUnsignedMultipleExtendA: extendedIndex
+ "224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)"
+ extendedIndex > 255 ifTrue:
+ [self genUnsignedMultipleExtendA: extendedIndex // 256].
+ stream
+ nextPut: 224;
+ nextPut: extendedIndex \\ 256!
Item was added:
+ ----- Method: EncoderForSistaV1>>genUnsignedSingleExtendA: (in category 'bytecode generation') -----
+ genUnsignedSingleExtendA: extendedIndex
+ (extendedIndex between: 0 and: 255) ifFalse:
+ [^self outOfRangeError: 'index' index: extendedIndex range: 0 to: 255].
+ "224 11100000 aaaaaaaa Extend A (Ext A = Ext A prev * 256 + Ext A)"
+ stream
+ nextPut: 224;
+ nextPut: extendedIndex!
Item was added:
+ ----- Method: EncoderForSistaV1>>genUnsignedSingleExtendB: (in category 'bytecode generation') -----
+ genUnsignedSingleExtendB: extendedIndex
+ (extendedIndex between: 0 and: 255) ifFalse:
+ [^self outOfRangeError: 'index' index: extendedIndex range: 0 to: 255].
+ "225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)"
+ stream
+ nextPut: 225;
+ nextPut: extendedIndex!
Item was added:
+ ----- Method: InstructionClient>>pushExplicitOuter: (in category '*BytecodeSets-NewsqueakV3-instruction decoding') -----
+ pushExplicitOuter: n
+ "Push the Active Context's Receiver for an outer send at level n."
+
+ self subclassResponsibility!
Item was changed:
----- Method: InstructionPrinter>>pushExplicitOuter: (in category '*BytecodeSets-NewsqueakV3-instruction decoding') -----
pushExplicitOuter: n
+ "Print the Push the Active Context's Receiver for an outer send at level (method literalAt: litIndex) bytecode."
- "Print the Push Active Context's Receiver for an outer send of aSymbol on Top Of Stack bytecode."
self print: 'pushExplicitOuter: ', n asString!
Item was added:
+ ----- Method: InstructionStream>>interpretNSV4Jump (in category '*BytecodeSets-NewsqueakV4-decoding') -----
+ interpretNSV4Jump
+ "If the instruction at pc is an unconditional jump, interpret it, advancing the pc,
+ and answering the jump distance. Otherwise answer nil."
+
+ " 192-199 11000 i i i Jump iii + 1 (i.e., 1 through 8)
+ * 225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ * 242 11110010 i i i i i i i i Jump i i i i i i i i (+ Extend B * 256, where bbbbbbbb = sddddddd, e.g. -32768 = i=0, a=0, s=1)"
+ | method byte nextpc extA extB |
+ method := self method.
+ "consume and compute any extensions first."
+ extA := extB := 0.
+ nextpc := pc. "must not advance pc unless this is a jump."
+ [byte := self method at: nextpc.
+ nextpc := nextpc + 1.
+ byte >= 224 and: [byte <= 225]] whileTrue:
+ [| extByte |
+ extByte := self method at: nextpc.
+ nextpc := nextpc + 1.
+ byte = 224
+ ifTrue:
+ [extA := (extA bitShift: 8) + extByte]
+ ifFalse:
+ [extB := (extB = 0 and: [extByte > 127])
+ ifTrue: [extByte - 256]
+ ifFalse: [(extB bitShift: 8) + extByte]]].
+ (byte between: 192 and: 199) ifTrue:
+ [pc := nextpc.
+ ^byte - 191].
+ byte = 242 ifTrue:
+ [byte := method at: nextpc.
+ pc := nextpc + 1.
+ ^(extB bitShift: 8) + byte].
+ ^nil!
Item was added:
+ ----- Method: InstructionStream>>interpretNSV4JumpIfCond (in category '*BytecodeSets-NewsqueakV4-decoding') -----
+ interpretNSV4JumpIfCond
+ "If the instruction at pc is a conditional jump, interpret it, advancing the pc,
+ and answering the jump distance. Otherwise answer nil."
+
+ " 200-207 11001 i i i Pop and Jump 0n True iii +1 (i.e., 1 through 8)
+ 208-215 11010 i i i Pop and Jump 0n False iii +1 (i.e., 1 through 8)
+ * 225 11100001 sbbbbbbb Extend B (Ext B = Ext B prev * 256 + Ext B)
+ * 243 11110011 i i i i i i i i Pop and Jump 0n True i i i i i i i i (+ Extend B * 256, where Extend B >= 0)
+ * 244 11110100 i i i i i i i i Pop and Jump 0n False i i i i i i i i (+ Extend B * 256, where Extend B >= 0)"
+ | method byte nextpc extA extB |
+ method := self method.
+ "consume and compute any extensions first."
+ extA := extB := 0.
+ nextpc := pc. "must not advance pc unless this is a jump."
+ [byte := self method at: nextpc.
+ nextpc := nextpc + 1.
+ byte >= 224 and: [byte <= 225]] whileTrue:
+ [| extByte |
+ extByte := self method at: nextpc.
+ nextpc := nextpc + 1.
+ byte = 224
+ ifTrue:
+ [extA := (extA bitShift: 8) + extByte]
+ ifFalse:
+ [extB := (extB = 0 and: [extByte > 127])
+ ifTrue: [extByte - 256]
+ ifFalse: [(extB bitShift: 8) + extByte]]].
+ (byte between: 200 and: 215) ifTrue:
+ [pc := nextpc.
+ ^(byte bitAnd: 7) + 1].
+ (byte between: 243 and: 244) ifTrue:
+ [byte := method at: nextpc.
+ pc := nextpc + 1.
+ ^(extB bitShift: 8) + byte].
+ ^nil!
1
0
Hi All,
I have checked high and low and cannot find B2DPlugin in Smalltalk, but it is in a lot of repositories. Is there such a thing as plugins without an internal smalltalk class?
thx.
tty
3
7