[Vm-dev] [commit][3049] The Newspeak Cog interpreter wasn't regenerated.

commits at squeakvm.org commits at squeakvm.org
Sat Jul 19 01:03:16 UTC 2014


Revision: 3049
Author:   eliot
Date:     2014-07-18 18:03:15 -0700 (Fri, 18 Jul 2014)
Log Message:
-----------
The Newspeak Cog interpreter wasn't regenerated.  Needs to be for warnpid.

Modified Paths:
--------------
    branches/Cog/nscogsrc/vm/cointerp.c
    branches/Cog/nscogsrc/vm/gcc3x-cointerp.c

Modified: branches/Cog/nscogsrc/vm/cointerp.c
===================================================================
--- branches/Cog/nscogsrc/vm/cointerp.c	2014-07-19 00:42:28 UTC (rev 3048)
+++ branches/Cog/nscogsrc/vm/cointerp.c	2014-07-19 01:03:15 UTC (rev 3049)
@@ -52655,7 +52655,7 @@
 
 	index = longAt(GIV(stackPointer));
 	if (!((index & 1))) {
-		GIV(primFailCode) = PrimErrBadArgument;
+		(GIV(primFailCode) = PrimErrBadArgument);
 		return;
 	}
 	index = (index >> 1);
@@ -52820,7 +52820,7 @@
 		stSize = (sp1 >> 1);
 	l2:	/* end fetchStackPointerOf: */;
 		if (!(((index >= 1) && (index <= stSize)))) {
-			GIV(primFailCode) = PrimErrBadIndex;
+			(GIV(primFailCode) = PrimErrBadIndex);
 			return;
 		}
 		/* begin subscript:with:format: */
@@ -52845,7 +52845,7 @@
 	assert((senderOop & 1));
 	spouseFP = pointerForOop(senderOop - 1);
 	if (!(((index >= 1) && (index <= (stackPointerIndexForFrame(spouseFP)))))) {
-		GIV(primFailCode) = PrimErrBadIndex;
+		(GIV(primFailCode) = PrimErrBadIndex);
 		return;
 	}
 	value = ((((usqInt)(longAt(spouseFP + FoxMethod)))) < (startOfMemory())

Modified: branches/Cog/nscogsrc/vm/gcc3x-cointerp.c
===================================================================
--- branches/Cog/nscogsrc/vm/gcc3x-cointerp.c	2014-07-19 00:42:28 UTC (rev 3048)
+++ branches/Cog/nscogsrc/vm/gcc3x-cointerp.c	2014-07-19 01:03:15 UTC (rev 3049)
@@ -52664,7 +52664,7 @@
 
 	index = longAt(GIV(stackPointer));
 	if (!((index & 1))) {
-		GIV(primFailCode) = PrimErrBadArgument;
+		(GIV(primFailCode) = PrimErrBadArgument);
 		return;
 	}
 	index = (index >> 1);
@@ -52829,7 +52829,7 @@
 		stSize = (sp1 >> 1);
 	l2:	/* end fetchStackPointerOf: */;
 		if (!(((index >= 1) && (index <= stSize)))) {
-			GIV(primFailCode) = PrimErrBadIndex;
+			(GIV(primFailCode) = PrimErrBadIndex);
 			return;
 		}
 		/* begin subscript:with:format: */
@@ -52854,7 +52854,7 @@
 	assert((senderOop & 1));
 	spouseFP = pointerForOop(senderOop - 1);
 	if (!(((index >= 1) && (index <= (stackPointerIndexForFrame(spouseFP)))))) {
-		GIV(primFailCode) = PrimErrBadIndex;
+		(GIV(primFailCode) = PrimErrBadIndex);
 		return;
 	}
 	value = ((((usqInt)(longAt(spouseFP + FoxMethod)))) < (startOfMemory())



More information about the Vm-dev mailing list