Skip to content

Commit 91213be

Browse files
eliotmirandaeliotmiranda
committed
CogVM source as per VMMaker.oscog-eem.3641
Fix a spelling error with CFramePointer & CStackPointer in primitiveCogStaticSymbols
1 parent 086ed73 commit 91213be

25 files changed

Lines changed: 310 additions & 310 deletions

‎src/spur32.cog.lowcode/cointerp.c‎

Lines changed: 28 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,10 @@
11
/* Automatically generated by
2-
CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131
3-
(Cog-eem.493, * Compiler-ct.519)
2+
CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e
3+
(Cog-eem.494, * Compiler-ct.519)
44
from
5-
CoInterpreter VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131
5+
CoInterpreter VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e
66
*/
7-
static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131 " __DATE__ ;
7+
static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e " __DATE__ ;
88
char *__interpBuildInfo = __buildInfo;
99

1010

@@ -622,7 +622,7 @@ extern char * whereIs(sqInt anOop);
622622
static NoDbgRegParms NeverInline void widowOrForceToBytecodePC(sqInt ctxt);
623623
static NoDbgRegParms int frameIsMarked(sqInt theFPInt);
624624
#if VMInvestigations
625-
EXPORT(sqInt) primitiveAllMethodsCompiledToMachineCode(void);
625+
EXPORT(int) primitiveAllMethodsCompiledToMachineCode(void);
626626
#endif /* VMInvestigations */
627627
#if VMInvestigations
628628
EXPORT(void) primitiveBenchmarkFollowForwardersInStackZone(void);
@@ -2708,7 +2708,7 @@ sqInt debugCallbackReturns;
27082708
sqInt suppressHeartbeatFlag;
27092709
sqInt cannotDeferDisplayUpdates;
27102710
sqInt checkedPluginName;
2711-
const char *interpreterVersion = "Open Smalltalk Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3639]";
2711+
const char *interpreterVersion = "Open Smalltalk Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3641]";
27122712
const 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)
3744737447
primitiveAllMethodsCompiledToMachineCode(void)
3744837448
{ DECL_MAYBE_SQ_GLOBAL_STRUCT
3744937449
sqInt arrayObj;
@@ -37773,7 +37773,7 @@ primitiveCogStaticSymbols(void)
3777337773
&& (!(isForwarded(symbols))));
3777437774
assert(validStorePointerUncheckedArgs(7, symbols, valuePointer));
3777537775
longAtput((void *)((symbols + BaseHeaderSize) + (7U << (shiftForWord()))),valuePointer);
37776-
valuePointer = stringForCString("cFramePointer");
37776+
valuePointer = stringForCString("CFramePointer");
3777737777

3777837778
/* begin storePointerUnchecked:ofObject:withValue: */
3777937779
assert((isNonImmediate(symbols))
@@ -37787,7 +37787,7 @@ primitiveCogStaticSymbols(void)
3778737787
&& (!(isForwarded(symbols))));
3778837788
assert(validStorePointerUncheckedArgs(9, symbols, valuePointer));
3778937789
longAtput((void *)((symbols + BaseHeaderSize) + (9U << (shiftForWord()))),valuePointer);
37790-
valuePointer = stringForCString("cStackPointer");
37790+
valuePointer = stringForCString("CStackPointer");
3779137791

3779237792
/* begin storePointerUnchecked:ofObject:withValue: */
3779337793
assert((isNonImmediate(symbols))
@@ -56785,9 +56785,9 @@ allWeakSurvivorsOnWeakList(void)
5678556785
/* begin nextCorpseOrNil: */
5678656786
assert(isYoung(corpse));
5678756787
listOffset = ((((usqInt)(((long32At((void *)(corpse + 4))) & (identityHashHalfWordMask()))) << (formatFieldWidthShift())))) + ((byteAt((void *)(corpse + (formatFieldByteOffset())))) & (formatMask()));
56788-
corpse = ((sqInt) ((listOffset
56789-
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
56790-
: 0)));
56788+
corpse = (listOffset
56789+
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
56790+
: 0);
5679156791
}
5679256792
return 0;
5679356793
return 0;
@@ -57626,9 +57626,9 @@ processEphemerons(void)
5762657626
/* begin nextCorpseOrNil: */
5762757627
assert(isYoung(ephemeronCorpse));
5762857628
listOffset = ((((usqInt)(((long32At((void *)(ephemeronCorpse + 4))) & (identityHashHalfWordMask()))) << (formatFieldWidthShift())))) + ((byteAt((void *)(ephemeronCorpse + (formatFieldByteOffset())))) & (formatMask()));
57629-
ephemeronCorpse = ((sqInt) ((listOffset
57630-
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
57631-
: 0)));
57629+
ephemeronCorpse = (listOffset
57630+
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
57631+
: 0);
5763257632
}
5763357633
/* end fireEphemeronsOnEphemeronList */
5763457634
l1:;
@@ -57700,9 +57700,9 @@ processWeaklings(void)
5770057700
/* begin nextCorpseOrNil: */
5770157701
assert(isYoung(weakCorpse));
5770257702
listOffset = ((((usqInt)(((long32At((void *)(weakCorpse + 4))) & (identityHashHalfWordMask()))) << (formatFieldWidthShift())))) + ((byteAt((void *)(weakCorpse + (formatFieldByteOffset())))) & (formatMask()));
57703-
weakCorpse = ((sqInt) ((listOffset
57704-
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
57705-
: 0)));
57703+
weakCorpse = (listOffset
57704+
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
57705+
: 0);
5770657706
}
5770757707
GIV(weakList) = null;
5770857708
}
@@ -77503,7 +77503,7 @@ updatePointersInsavedFirstFieldPointer(sqInt obj, sqInt firstFieldPtr)
7750377503
contextSize = (sp >> 1);
7750477504
/* end fetchStackPointerOf: */
7750577505
l2:
77506-
numPointerSlots = ((usqInt) (CtxtTempFrameStart + contextSize));
77506+
numPointerSlots = CtxtTempFrameStart + contextSize;
7750777507
goto l3;
7750877508
}
7750977509

@@ -77866,7 +77866,7 @@ bridgeFor(SpurSegmentInfo *aSegment)
7786677866
static NoDbgRegParms void
7786777867
bridgeFromto(SpurSegmentInfo *aSegment, SpurSegmentInfo *nextSegmentOrNil)
7786877868
{
77869-
int bridgeSpan;
77869+
sqInt bridgeSpan;
7787077870
sqInt clifton;
7787177871
usqInt segEnd;
7787277872

@@ -82431,13 +82431,14 @@ static sqInt
8243182431
getErrorObjectFromPrimFailCode(void)
8243282432
{ DECL_MAYBE_SQ_GLOBAL_STRUCT
8243382433
sqInt classIndex;
82434-
sqInt clone;
82435-
sqInt errObj;
82434+
usqInt clone;
82435+
usqInt errObj;
8243682436
sqInt i;
8243782437
usqInt newObj;
8243882438
usqInt numBytes;
8243982439
usqInt numSlots;
8244082440
usqInt numSlotsUsqInt;
82441+
sqInt objOop;
8244182442
sqInt table;
8244282443
sqInt valuePointer;
8244382444

@@ -82449,12 +82450,13 @@ getErrorObjectFromPrimFailCode(void)
8244982450
? longAt((void *)(table - BaseHeaderSize))
8245082451
: numSlots)))) {
8245182452
/* begin followField:ofObject: */
82452-
errObj = longAt((void *)((table + BaseHeaderSize) + ((((usqInt)((GIV(primFailCode) - 1)) << (shiftForWord()))))));
82453+
objOop = longAt((void *)((table + BaseHeaderSize) + ((((usqInt)((GIV(primFailCode) - 1)) << (shiftForWord()))))));
8245382454
if (/* isOopForwarded: */
82454-
((!(errObj & (tagMask()))))
82455-
&& ((!((longAt((void *)(errObj))) & ((classIndexMask()) - (isForwardedObjectClassIndexPun())))))) {
82456-
errObj = fixFollowedFieldofObjectwithInitialValue(GIV(primFailCode) - 1, table, errObj);
82455+
((!(objOop & (tagMask()))))
82456+
&& ((!((longAt((void *)(objOop))) & ((classIndexMask()) - (isForwardedObjectClassIndexPun())))))) {
82457+
objOop = fixFollowedFieldofObjectwithInitialValue(GIV(primFailCode) - 1, table, objOop);
8245782458
}
82459+
errObj = objOop;
8245882460

8245982461
/* If there's a clonable object in the table at that index,
8246082462
answer a clone of the error object with the second slot set to the value of secondaryErrorCode. */

‎src/spur32.cog.lowcode/cointerp.h‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
/* Automatically generated by
2-
CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131
3-
(Cog-eem.493, * Compiler-ct.519)
2+
CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e
3+
(Cog-eem.494, * Compiler-ct.519)
44
*/
55

66

‎src/spur32.cog.lowcode/gcc3x-cointerp.c‎

Lines changed: 28 additions & 26 deletions
Original file line numberDiff line numberDiff line change
@@ -2,12 +2,12 @@
22

33

44
/* Automatically generated by
5-
CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131
6-
(Cog-eem.493, * Compiler-ct.519)
5+
CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e
6+
(Cog-eem.494, * Compiler-ct.519)
77
from
8-
CoInterpreter VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131
8+
CoInterpreter VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e
99
*/
10-
static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131 " __DATE__ ;
10+
static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e " __DATE__ ;
1111
char *__interpBuildInfo = __buildInfo;
1212

1313

@@ -625,7 +625,7 @@ extern char * whereIs(sqInt anOop);
625625
static NoDbgRegParms NeverInline void widowOrForceToBytecodePC(sqInt ctxt);
626626
static NoDbgRegParms int frameIsMarked(sqInt theFPInt);
627627
#if VMInvestigations
628-
EXPORT(sqInt) primitiveAllMethodsCompiledToMachineCode(void);
628+
EXPORT(int) primitiveAllMethodsCompiledToMachineCode(void);
629629
#endif /* VMInvestigations */
630630
#if VMInvestigations
631631
EXPORT(void) primitiveBenchmarkFollowForwardersInStackZone(void);
@@ -2711,7 +2711,7 @@ sqInt debugCallbackReturns;
27112711
sqInt suppressHeartbeatFlag;
27122712
sqInt cannotDeferDisplayUpdates;
27132713
sqInt checkedPluginName;
2714-
const char *interpreterVersion = "Open Smalltalk Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3639]";
2714+
const char *interpreterVersion = "Open Smalltalk Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3641]";
27152715
const char * leakCheckFlagsMeanings[] = {
27162716
"1: check full GC", "2: check new space GC", "4: check incremental GC", "8: check become",
27172717
"16: check image segment", "32: check free space", "64: check shorten", "128: check prim call",
@@ -37450,7 +37450,7 @@ frameIsMarked(sqInt theFPInt)
3745037450

3745137451
/* CoInterpreterPrimitives>>#primitiveAllMethodsCompiledToMachineCode */
3745237452
#if VMInvestigations
37453-
EXPORT(sqInt)
37453+
EXPORT(int)
3745437454
primitiveAllMethodsCompiledToMachineCode(void)
3745537455
{ DECL_MAYBE_SQ_GLOBAL_STRUCT
3745637456
sqInt arrayObj;
@@ -37780,7 +37780,7 @@ primitiveCogStaticSymbols(void)
3778037780
&& (!(isForwarded(symbols))));
3778137781
assert(validStorePointerUncheckedArgs(7, symbols, valuePointer));
3778237782
longAtput((void *)((symbols + BaseHeaderSize) + (7U << (shiftForWord()))),valuePointer);
37783-
valuePointer = stringForCString("cFramePointer");
37783+
valuePointer = stringForCString("CFramePointer");
3778437784

3778537785
/* begin storePointerUnchecked:ofObject:withValue: */
3778637786
assert((isNonImmediate(symbols))
@@ -37794,7 +37794,7 @@ primitiveCogStaticSymbols(void)
3779437794
&& (!(isForwarded(symbols))));
3779537795
assert(validStorePointerUncheckedArgs(9, symbols, valuePointer));
3779637796
longAtput((void *)((symbols + BaseHeaderSize) + (9U << (shiftForWord()))),valuePointer);
37797-
valuePointer = stringForCString("cStackPointer");
37797+
valuePointer = stringForCString("CStackPointer");
3779837798

3779937799
/* begin storePointerUnchecked:ofObject:withValue: */
3780037800
assert((isNonImmediate(symbols))
@@ -56792,9 +56792,9 @@ allWeakSurvivorsOnWeakList(void)
5679256792
/* begin nextCorpseOrNil: */
5679356793
assert(isYoung(corpse));
5679456794
listOffset = ((((usqInt)(((long32At((void *)(corpse + 4))) & (identityHashHalfWordMask()))) << (formatFieldWidthShift())))) + ((byteAt((void *)(corpse + (formatFieldByteOffset())))) & (formatMask()));
56795-
corpse = ((sqInt) ((listOffset
56796-
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
56797-
: 0)));
56795+
corpse = (listOffset
56796+
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
56797+
: 0);
5679856798
}
5679956799
return 0;
5680056800
return 0;
@@ -57633,9 +57633,9 @@ processEphemerons(void)
5763357633
/* begin nextCorpseOrNil: */
5763457634
assert(isYoung(ephemeronCorpse));
5763557635
listOffset = ((((usqInt)(((long32At((void *)(ephemeronCorpse + 4))) & (identityHashHalfWordMask()))) << (formatFieldWidthShift())))) + ((byteAt((void *)(ephemeronCorpse + (formatFieldByteOffset())))) & (formatMask()));
57636-
ephemeronCorpse = ((sqInt) ((listOffset
57637-
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
57638-
: 0)));
57636+
ephemeronCorpse = (listOffset
57637+
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
57638+
: 0);
5763957639
}
5764057640
/* end fireEphemeronsOnEphemeronList */
5764157641
l1:;
@@ -57707,9 +57707,9 @@ processWeaklings(void)
5770757707
/* begin nextCorpseOrNil: */
5770857708
assert(isYoung(weakCorpse));
5770957709
listOffset = ((((usqInt)(((long32At((void *)(weakCorpse + 4))) & (identityHashHalfWordMask()))) << (formatFieldWidthShift())))) + ((byteAt((void *)(weakCorpse + (formatFieldByteOffset())))) & (formatMask()));
57710-
weakCorpse = ((sqInt) ((listOffset
57711-
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
57712-
: 0)));
57710+
weakCorpse = (listOffset
57711+
? ((((usqInt)((listOffset - 1)) << 3 /* shiftForAllocationUnit */))) + GIV(newSpaceStart)
57712+
: 0);
5771357713
}
5771457714
GIV(weakList) = null;
5771557715
}
@@ -77510,7 +77510,7 @@ updatePointersInsavedFirstFieldPointer(sqInt obj, sqInt firstFieldPtr)
7751077510
contextSize = (sp >> 1);
7751177511
/* end fetchStackPointerOf: */
7751277512
l2:
77513-
numPointerSlots = ((usqInt) (CtxtTempFrameStart + contextSize));
77513+
numPointerSlots = CtxtTempFrameStart + contextSize;
7751477514
goto l3;
7751577515
}
7751677516

@@ -77873,7 +77873,7 @@ bridgeFor(SpurSegmentInfo *aSegment)
7787377873
static NoDbgRegParms void
7787477874
bridgeFromto(SpurSegmentInfo *aSegment, SpurSegmentInfo *nextSegmentOrNil)
7787577875
{
77876-
int bridgeSpan;
77876+
sqInt bridgeSpan;
7787777877
sqInt clifton;
7787877878
usqInt segEnd;
7787977879

@@ -82438,13 +82438,14 @@ static sqInt
8243882438
getErrorObjectFromPrimFailCode(void)
8243982439
{ DECL_MAYBE_SQ_GLOBAL_STRUCT
8244082440
sqInt classIndex;
82441-
sqInt clone;
82442-
sqInt errObj;
82441+
usqInt clone;
82442+
usqInt errObj;
8244382443
sqInt i;
8244482444
usqInt newObj;
8244582445
usqInt numBytes;
8244682446
usqInt numSlots;
8244782447
usqInt numSlotsUsqInt;
82448+
sqInt objOop;
8244882449
sqInt table;
8244982450
sqInt valuePointer;
8245082451

@@ -82456,12 +82457,13 @@ getErrorObjectFromPrimFailCode(void)
8245682457
? longAt((void *)(table - BaseHeaderSize))
8245782458
: numSlots)))) {
8245882459
/* begin followField:ofObject: */
82459-
errObj = longAt((void *)((table + BaseHeaderSize) + ((((usqInt)((GIV(primFailCode) - 1)) << (shiftForWord()))))));
82460+
objOop = longAt((void *)((table + BaseHeaderSize) + ((((usqInt)((GIV(primFailCode) - 1)) << (shiftForWord()))))));
8246082461
if (/* isOopForwarded: */
82461-
((!(errObj & (tagMask()))))
82462-
&& ((!((longAt((void *)(errObj))) & ((classIndexMask()) - (isForwardedObjectClassIndexPun())))))) {
82463-
errObj = fixFollowedFieldofObjectwithInitialValue(GIV(primFailCode) - 1, table, errObj);
82462+
((!(objOop & (tagMask()))))
82463+
&& ((!((longAt((void *)(objOop))) & ((classIndexMask()) - (isForwardedObjectClassIndexPun())))))) {
82464+
objOop = fixFollowedFieldofObjectwithInitialValue(GIV(primFailCode) - 1, table, objOop);
8246482465
}
82466+
errObj = objOop;
8246582467

8246682468
/* If there's a clonable object in the table at that index,
8246782469
answer a clone of the error object with the second slot set to the value of secondaryErrorCode. */

‎src/spur32.cog/cointerp.c‎

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -1,10 +1,10 @@
11
/* Automatically generated by
2-
CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131
3-
(Cog-eem.493, * Compiler-ct.519)
2+
CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e
3+
(Cog-eem.494, * Compiler-ct.519)
44
from
5-
CoInterpreter VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131
5+
CoInterpreter VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e
66
*/
7-
static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131 " __DATE__ ;
7+
static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e " __DATE__ ;
88
char *__interpBuildInfo = __buildInfo;
99

1010

@@ -614,7 +614,7 @@ extern char * whereIs(sqInt anOop);
614614
static NoDbgRegParms NeverInline void widowOrForceToBytecodePC(sqInt ctxt);
615615
static NoDbgRegParms int frameIsMarked(sqInt theFPInt);
616616
#if VMInvestigations
617-
EXPORT(int) primitiveAllMethodsCompiledToMachineCode(void);
617+
EXPORT(sqInt) primitiveAllMethodsCompiledToMachineCode(void);
618618
#endif /* VMInvestigations */
619619
#if VMInvestigations
620620
EXPORT(void) primitiveBenchmarkFollowForwardersInStackZone(void);
@@ -2693,7 +2693,7 @@ sqInt debugCallbackReturns;
26932693
sqInt suppressHeartbeatFlag;
26942694
sqInt cannotDeferDisplayUpdates;
26952695
sqInt checkedPluginName;
2696-
const char *interpreterVersion = "Open Smalltalk Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3639]";
2696+
const char *interpreterVersion = "Open Smalltalk Cog[Spur] VM [CoInterpreterPrimitives VMMaker.oscog-eem.3641]";
26972697
const char * leakCheckFlagsMeanings[] = {
26982698
"1: check full GC", "2: check new space GC", "4: check incremental GC", "8: check become",
26992699
"16: check image segment", "32: check free space", "64: check shorten", "128: check prim call",
@@ -22350,7 +22350,7 @@ frameIsMarked(sqInt theFPInt)
2235022350

2235122351
/* CoInterpreterPrimitives>>#primitiveAllMethodsCompiledToMachineCode */
2235222352
#if VMInvestigations
22353-
EXPORT(int)
22353+
EXPORT(sqInt)
2235422354
primitiveAllMethodsCompiledToMachineCode(void)
2235522355
{ DECL_MAYBE_SQ_GLOBAL_STRUCT
2235622356
sqInt arrayObj;
@@ -22680,7 +22680,7 @@ primitiveCogStaticSymbols(void)
2268022680
&& (!(isForwarded(symbols))));
2268122681
assert(validStorePointerUncheckedArgs(7, symbols, valuePointer));
2268222682
longAtput((void *)((symbols + BaseHeaderSize) + (7U << (shiftForWord()))),valuePointer);
22683-
valuePointer = stringForCString("cFramePointer");
22683+
valuePointer = stringForCString("CFramePointer");
2268422684

2268522685
/* begin storePointerUnchecked:ofObject:withValue: */
2268622686
assert((isNonImmediate(symbols))
@@ -22694,7 +22694,7 @@ primitiveCogStaticSymbols(void)
2269422694
&& (!(isForwarded(symbols))));
2269522695
assert(validStorePointerUncheckedArgs(9, symbols, valuePointer));
2269622696
longAtput((void *)((symbols + BaseHeaderSize) + (9U << (shiftForWord()))),valuePointer);
22697-
valuePointer = stringForCString("cStackPointer");
22697+
valuePointer = stringForCString("CStackPointer");
2269822698

2269922699
/* begin storePointerUnchecked:ofObject:withValue: */
2270022700
assert((isNonImmediate(symbols))
@@ -62410,7 +62410,7 @@ updatePointersInsavedFirstFieldPointer(sqInt obj, sqInt firstFieldPtr)
6241062410
contextSize = (sp >> 1);
6241162411
/* end fetchStackPointerOf: */
6241262412
l2:
62413-
numPointerSlots = ((usqInt) (CtxtTempFrameStart + contextSize));
62413+
numPointerSlots = CtxtTempFrameStart + contextSize;
6241462414
goto l3;
6241562415
}
6241662416

‎src/spur32.cog/cointerp.h‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
/* Automatically generated by
2-
CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3639 uuid: d69ad4cd-71c7-4c5b-a14b-ba9167bda131
3-
(Cog-eem.493, * Compiler-ct.519)
2+
CCodeGeneratorGlobalStructure VMMaker.oscog-eem.3641 uuid: c5662f60-c23c-4b21-bbbf-647f0a53592e
3+
(Cog-eem.494, * Compiler-ct.519)
44
*/
55

66

0 commit comments

Comments
 (0)