11/* Automatically generated by
2- CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3645 uuid: 85f4ff77-726e-4287-aac6-d73564f70f79
2+ CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3646 uuid: 4edfc800-17e2-439a-8c01-7bd165d5b1d9
33 (Cog-eem.496, * Compiler-ct.519)
44 from
5- CoInterpreter VMMaker.oscog-eem.3645 uuid: 85f4ff77-726e-4287-aac6-d73564f70f79
5+ CoInterpreter VMMaker.oscog-eem.3646 uuid: 4edfc800-17e2-439a-8c01-7bd165d5b1d9
66 */
7- static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.3645 uuid: 85f4ff77-726e-4287-aac6-d73564f70f79 " __DATE__ ;
7+ static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.3646 uuid: 4edfc800-17e2-439a-8c01-7bd165d5b1d9 " __DATE__ ;
88char *__interpBuildInfo = __buildInfo;
99
1010
@@ -622,7 +622,7 @@ extern char * whereIs(sqInt anOop);
622622static NoDbgRegParms NeverInline void widowOrForceToBytecodePC(sqInt ctxt);
623623static NoDbgRegParms int frameIsMarked(sqInt theFPInt);
624624#if VMInvestigations
625- EXPORT(sqInt ) primitiveAllMethodsCompiledToMachineCode(void);
625+ EXPORT(int ) primitiveAllMethodsCompiledToMachineCode(void);
626626#endif /* VMInvestigations */
627627#if VMInvestigations
628628EXPORT(void) primitiveBenchmarkFollowForwardersInStackZone(void);
@@ -1246,7 +1246,7 @@ extern sqInt numBytesOf(sqInt objOop);
12461246static NoDbgRegParms usqInt numPointerSlotsOf(sqInt objOop);
12471247static NoDbgRegParms sqInt numSlotsForBytes(sqInt numBytes);
12481248static NoDbgRegParms usqInt numSlotsOfAny(sqInt objOop);
1249- static NoDbgRegParms sqInt numSlotsOfIndexablePointerObj(sqInt objOop);
1249+ static NoDbgRegParms usqInt numSlotsOfIndexablePointerObj(sqInt objOop);
12501250extern usqInt numSlotsOf(sqInt objOop);
12511251static NoDbgRegParms sqInt numStrongSlotsOfInephemeral(sqInt objOop);
12521252static NoDbgRegParms sqInt numStrongSlotsOfWeakling(sqInt objOop);
@@ -2708,7 +2708,7 @@ sqInt debugCallbackReturns;
27082708sqInt suppressHeartbeatFlag;
27092709sqInt cannotDeferDisplayUpdates;
27102710sqInt checkedPluginName;
2711- const char *interpreterVersion = "Open Smalltalk Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3645 ]";
2711+ const char *interpreterVersion = "Open Smalltalk Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3646 ]";
27122712const char * leakCheckFlagsMeanings[] = {
27132713 "1: check full GC", "2: check new space GC", "4: check incremental GC", "8: check become",
27142714 "16: check image segment", "32: check free space", "64: check shorten", "128: check prim call",
@@ -37443,7 +37443,7 @@ frameIsMarked(sqInt theFPInt)
3744337443
3744437444 /* CoInterpreterPrimitives>>#primitiveAllMethodsCompiledToMachineCode */
3744537445#if VMInvestigations
37446- EXPORT(sqInt )
37446+ EXPORT(int )
3744737447primitiveAllMethodsCompiledToMachineCode(void)
3744837448{ DECL_MAYBE_SQ_GLOBAL_STRUCT
3744937449 sqInt arrayObj;
@@ -37722,13 +37722,12 @@ primitiveCogStaticSymbols(void)
3772237722 && (!(isForwarded(symbols))));
3772337723 assert(validStorePointerUncheckedArgs(0, symbols, valuePointer));
3772437724 longAtput((void *)((symbols + BaseHeaderSize) + (0U << (shiftForWord()))),valuePointer);
37725- valuePointer = stringForCString(BytesPerWord);
3772637725
3772737726 /* begin storePointerUnchecked:ofObject:withValue: */
3772837727 assert((isNonImmediate(symbols))
3772937728 && (!(isForwarded(symbols))));
37730- assert(validStorePointerUncheckedArgs(1, symbols, valuePointer ));
37731- longAtput((void *)((symbols + BaseHeaderSize) + (1U << (shiftForWord()))),valuePointer );
37729+ assert(validStorePointerUncheckedArgs(1, symbols, (((usqInt)BytesPerWord << 1) | 1) ));
37730+ longAtput((void *)((symbols + BaseHeaderSize) + (1U << (shiftForWord()))),(((usqInt)BytesPerWord << 1) | 1) );
3773237731 valuePointer = stringForCString("ISA");
3773337732
3773437733 /* begin storePointerUnchecked:ofObject:withValue: */
@@ -48804,7 +48803,7 @@ primitiveInvokeObjectAsMethod(void)
4880448803 sqInt lookupClassTag;
4880548804 usqInt newObj;
4880648805 usqInt numBytes;
48807- usqInt runArgs;
48806+ sqInt runArgs;
4880848807 sqInt runReceiver;
4880948808 char *sp;
4881048809 sqInt tagBits;
@@ -70036,7 +70035,7 @@ numSlotsOfAny(sqInt objOop)
7003670035 */
7003770036
7003870037 /* SpurMemoryManager>>#numSlotsOfIndexablePointerObj: */
70039- static NoDbgRegParms sqInt
70038+ static NoDbgRegParms usqInt
7004070039numSlotsOfIndexablePointerObj(sqInt objOop)
7004170040{
7004270041 usqInt numSlots;
@@ -82509,14 +82508,13 @@ static sqInt
8250982508getErrorObjectFromPrimFailCode(void)
8251082509{ DECL_MAYBE_SQ_GLOBAL_STRUCT
8251182510 sqInt classIndex;
82512- usqInt clone;
82513- usqInt errObj;
82511+ sqInt clone;
82512+ sqInt errObj;
8251482513 sqInt i;
8251582514 usqInt newObj;
8251682515 usqInt numBytes;
8251782516 usqInt numSlots;
8251882517 usqInt numSlotsUsqInt;
82519- sqInt objOop;
8252082518 sqInt table;
8252182519 sqInt valuePointer;
8252282520
@@ -82528,13 +82526,12 @@ getErrorObjectFromPrimFailCode(void)
8252882526 ? longAt((void *)(table - BaseHeaderSize))
8252982527 : numSlots)))) {
8253082528 /* begin followField:ofObject: */
82531- objOop = longAt((void *)((table + BaseHeaderSize) + ((((usqInt)((GIV(primFailCode) - 1)) << (shiftForWord()))))));
82529+ errObj = longAt((void *)((table + BaseHeaderSize) + ((((usqInt)((GIV(primFailCode) - 1)) << (shiftForWord()))))));
8253282530 if (/* isOopForwarded: */
82533- ((!(objOop & (tagMask()))))
82534- && ((!((longAt((void *)(objOop ))) & ((classIndexMask()) - (isForwardedObjectClassIndexPun())))))) {
82535- objOop = fixFollowedFieldofObjectwithInitialValue(GIV(primFailCode) - 1, table, objOop );
82531+ ((!(errObj & (tagMask()))))
82532+ && ((!((longAt((void *)(errObj ))) & ((classIndexMask()) - (isForwardedObjectClassIndexPun())))))) {
82533+ errObj = fixFollowedFieldofObjectwithInitialValue(GIV(primFailCode) - 1, table, errObj );
8253682534 }
82537- errObj = objOop;
8253882535
8253982536 /* If there's a clonable object in the table at that index,
8254082537 answer a clone of the error object with the second slot set to the value of secondaryErrorCode. */
0 commit comments