Generate cog & stack v3 src code as of VMMaker.oscog-nice.2910 Raise cog v3 VM compatibility to 1.17 Use a few forward compatibility messages to do so... This is not ideal for double byte and double word arrays which are not supported. Neither for word and float32 arrays that lack appropriate specialObject index... The goal is to have the squeak.cog.v3 to at least compile the new file and socket plugin versions...

Author: nicolas-cellier-aka-nice

src/vm/cointerp.c

@@ -1,9 +1,9 @@
 /* Automatically generated by
-	CCodeGeneratorGlobalStructure VMMaker.oscog-eem.2908 uuid: fddf1a4f-c585-45ab-8a74-442230cd3dbd
+	CCodeGeneratorGlobalStructure VMMaker.oscog-nice.2910 uuid: 32c46c83-0656-460a-8305-29ae2a93bffa
    from
-	CoInterpreter VMMaker.oscog-eem.2908 uuid: fddf1a4f-c585-45ab-8a74-442230cd3dbd
+	CoInterpreter VMMaker.oscog-nice.2910 uuid: 32c46c83-0656-460a-8305-29ae2a93bffa
  */
-static char __buildInfo[] = "CoInterpreter VMMaker.oscog-eem.2908 uuid: fddf1a4f-c585-45ab-8a74-442230cd3dbd " __DATE__ ;
+static char __buildInfo[] = "CoInterpreter VMMaker.oscog-nice.2910 uuid: 32c46c83-0656-460a-8305-29ae2a93bffa " __DATE__ ;
 char *__interpBuildInfo = __buildInfo;
 
 
@@ -932,6 +932,7 @@ extern sqInt byteSizeOf(sqInt oop);
 extern unsigned int byteSwapped32IfBigEndian(unsigned int w);
 extern unsigned long long byteSwapped64IfBigEndian(unsigned long long w);
 extern sqInt byteSwapped(sqInt w);
+extern sqInt bytesPerElement(sqInt oop);
 static sqInt NoDbgRegParms changeClassOfto(sqInt rcvr, sqInt argClass);
 extern sqInt characterObjectOf(sqInt characterCode);
 extern sqInt characterTable(void);
@@ -943,12 +944,16 @@ extern sqInt classArray(void);
 extern sqInt classBitmap(void);
 extern sqInt classByteArray(void);
 extern sqInt classCharacter(void);
+extern sqInt classDoubleByteArray(void);
+extern sqInt classDoubleWordArray(void);
 extern sqInt classExternalAddress(void);
 extern sqInt classExternalData(void);
 extern sqInt classExternalFunction(void);
 extern sqInt classExternalLibrary(void);
 extern sqInt classExternalStructure(void);
 extern sqInt classFloat(void);
+extern sqInt classFloat32Array(void);
+extern sqInt classFloat64Array(void);
 extern sqInt classHeader(sqInt oop);
 extern sqInt classLargeNegativeInteger(void);
 extern sqInt classLargePositiveInteger(void);
@@ -957,6 +962,7 @@ extern sqInt classSemaphore(void);
 extern sqInt classSmallInteger(void);
 extern sqInt classString(void);
 extern sqInt classUnsafeAlien(void);
+extern sqInt classWordArray(void);
 static void clearRootsTable(void);
 extern sqInt compactClassAt(sqInt ccIndex);
 extern sqInt compactClassIndexOfClass(sqInt classObj);
@@ -1008,6 +1014,7 @@ extern sqInt isIndexable(sqInt oop);
 extern sqInt isInMemory(sqInt address);
 extern sqInt isIntegerObject(sqInt objectPointer);
 extern sqInt isIntegerValue(sqInt intValue);
+extern sqInt isLong64s(sqInt oop);
 extern sqInt isMarked(sqInt oop);
 extern sqInt isNonImmediate(sqInt anOop);
 extern sqInt isNonIntegerObject(sqInt objectPointer);
@@ -1020,10 +1027,12 @@ extern sqInt isPinned(sqInt objOop);
 extern sqInt isPointers(sqInt oop);
 static sqInt NoDbgRegParms isPureBitsFormat(sqInt format);
 static sqInt NoDbgRegParms isSemaphoreOop(sqInt anOop);
+extern sqInt isShorts(sqInt oop);
 static sqInt NoDbgRegParms isWeakNonImm(sqInt oop);
 extern sqInt isWeak(sqInt oop);
 static sqInt NoDbgRegParms isWordsOrBytesNonImm(sqInt oop);
 extern sqInt isWordsOrBytes(sqInt oop);
+extern sqInt isWordsOrShorts(sqInt oop);
 extern sqInt isWords(sqInt oop);
 static sqInt NoDbgRegParms isYoungRoot(sqInt oop);
 extern sqInt isYoung(sqInt oop);
@@ -2194,7 +2203,7 @@ sqInt debugCallbackInvokes;
 sqInt debugCallbackReturns;
 sqInt ffiExceptionResponse;
 sqInt checkedPluginName;
-const char *interpreterVersion = "Open Smalltalk Cog[SqueakV3] VM [CoInterpreterPrimitives VMMaker.oscog-eem.2908]";
+const char *interpreterVersion = "Open Smalltalk Cog[SqueakV3] VM [CoInterpreterPrimitives VMMaker.oscog-nice.2910]";
 sqInt minBackwardJumpCountForCompile = MinBackwardJumpCountForCompile /* 40 */;
 char primitiveDoMixedArithmetic = 1;
 char expensiveAsserts = 0;
@@ -32705,7 +32714,7 @@ static sqInt NoDbgRegParms
 eeInstantiateMethodContextSlots(sqInt numSlots)
 {   DECL_MAYBE_SQ_GLOBAL_STRUCT
     usqInt hash;
-    usqInt header1;
+    sqInt header1;
     usqInt newChunk;
     usqInt newFreeStart;
     sqInt newObj;
@@ -37104,6 +37113,27 @@ byteSwapped(sqInt w)
 }
 
 
+/*	forward compatibility with Spur */
+
+	/* ObjectMemory>>#bytesPerElement: */
+sqInt
+bytesPerElement(sqInt oop)
+{
+	if ((oop & 1)) {
+		return 0;
+	}
+	if (((oop & 1) == 0)
+	 && (((((usqInt)((longAt(oop)))) >> (instFormatFieldLSB())) & 15) == (firstLongFormat()))) {
+		return 4;
+	}
+	if (((oop & 1) == 0)
+	 && (((((usqInt)((longAt(oop)))) >> (instFormatFieldLSB())) & 15) >= (firstByteFormat()))) {
+		return 1;
+	}
+	return BytesPerWord;
+}
+
+
 /*	Attempt to change the class of the receiver to the argument given that the
 	format of the receiver matches the format of the argument. If successful,
 	answer 0, otherwise answer an error code indicating the reason for
@@ -37373,6 +37403,26 @@ classCharacter(void)
 	return longAt((GIV(specialObjectsOop) + BaseHeaderSize) + (((int)((usqInt)(ClassCharacter) << (shiftForWord())))));
 }
 
+
+/*	forward compatibility with Spur */
+
+	/* ObjectMemory>>#classDoubleByteArray */
+sqInt
+classDoubleByteArray(void)
+{
+	return null;
+}
+
+
+/*	forward compatibility with Spur */
+
+	/* ObjectMemory>>#classDoubleWordArray */
+sqInt
+classDoubleWordArray(void)
+{
+	return null;
+}
+
 	/* ObjectMemory>>#classExternalAddress */
 sqInt
 classExternalAddress(void)
@@ -37421,6 +37471,26 @@ classFloat(void)
 	return longAt((GIV(specialObjectsOop) + BaseHeaderSize) + (((int)((usqInt)(ClassFloat) << (shiftForWord())))));
 }
 
+
+/*	forward compatibility with Spur */
+
+	/* ObjectMemory>>#classFloat32Array */
+sqInt
+classFloat32Array(void)
+{
+	return null;
+}
+
+
+/*	forward compatibility with Spur */
+
+	/* ObjectMemory>>#classFloat64Array */
+sqInt
+classFloat64Array(void)
+{
+	return null;
+}
+
 	/* ObjectMemory>>#classHeader: */
 sqInt
 classHeader(sqInt oop)
@@ -37485,6 +37555,16 @@ classUnsafeAlien(void)
 }
 
 
+/*	forward compatibility with Spur */
+
+	/* ObjectMemory>>#classWordArray */
+sqInt
+classWordArray(void)
+{
+	return null;
+}
+
+
 /*	Clear the root bits of the current roots, then empty the roots table. */
 /*	Caution: This should only be done when the young object space is empty. */
 /*	reset the roots table (after this, all objects are old so there are no
@@ -38515,6 +38595,16 @@ isIntegerValue(sqInt intValue)
 }
 
 
+/*	forward compatibility with Spur */
+
+	/* ObjectMemory>>#isLong64s: */
+sqInt
+isLong64s(sqInt oop)
+{
+	return 0;
+}
+
+
 /*	Answer if oop's mark bit is set */
 
 	/* ObjectMemory>>#isMarked: */
@@ -38649,6 +38739,16 @@ isSemaphoreOop(sqInt anOop)
 }
 
 
+/*	forward compatibility with Spur */
+
+	/* ObjectMemory>>#isShorts: */
+sqInt
+isShorts(sqInt oop)
+{
+	return 0;
+}
+
+
 /*	Answer if the argument has only weak fields that can hold oops. See
 	comment in formatOf:
  */
@@ -38707,6 +38807,17 @@ isWordsOrBytes(sqInt oop)
 }
 
 
+/*	forward compatibility with Spur */
+
+	/* ObjectMemory>>#isWordsOrShorts: */
+sqInt
+isWordsOrShorts(sqInt oop)
+{
+	return ((oop & 1) == 0)
+	 && (((((usqInt)((longAt(oop)))) >> (instFormatFieldLSB())) & 15) == (firstLongFormat()));
+}
+
+
 /*	Answer if the argument contains only indexable words (no oops). See
 	comment in formatOf:
  */

src/vm/cointerp.h

@@ -1,5 +1,5 @@
 /* Automatically generated by
-	CCodeGeneratorGlobalStructure VMMaker.oscog-eem.2908 uuid: fddf1a4f-c585-45ab-8a74-442230cd3dbd
+	CCodeGeneratorGlobalStructure VMMaker.oscog-nice.2910 uuid: 32c46c83-0656-460a-8305-29ae2a93bffa
  */