X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fobjectp.cpp;h=37e7ff56ee9fa7d04c3bd034b0d54d3e42be69cf;hb=cea0a9b46b737322c3518a2bd0122d9a268574a8;hp=cee49356ccdd92889d84d60e7398e291343c8686;hpb=5be21f57bdb7fca0e5bbd2c90de302827e5d8d3a;p=virtualjaguar

diff --git a/src/objectp.cpp b/src/objectp.cpp
index cee4935..37e7ff5 100644
--- a/src/objectp.cpp
+++ b/src/objectp.cpp
@@ -6,8 +6,8 @@
 // Extensive cleanups/fixes/rewrites by James L. Hammons
 //
 
-#include <stdio.h>
-#include <stdlib.h>
+//#include <stdio.h>
+//#include <stdlib.h>
 #include <string.h>
 #include "jaguar.h"
 
@@ -143,6 +143,9 @@ void op_done(void)
 			DumpScaledObject(op_load_phrase(olp+i), op_load_phrase(olp+i+8), op_load_phrase(olp+i+16));
 	}
 	WriteLog("\n");
+
+	memory_free(op_blend_y);
+	memory_free(op_blend_cr);
 }
 
 //
@@ -327,6 +330,8 @@ bool inhibit;
 int bitmapCounter = 0;
 // *** END OP PROCESSOR TESTING ONLY ***
 
+	uint32 opCyclesToRun = 10000;					// This is a pulled-out-of-the-air value (will need to be fixed, obviously!)
+
 //	if (op_pointer) WriteLog(" new op list at 0x%.8x scanline %i\n",op_pointer,scanline);
 	while (op_pointer)
 	{
@@ -344,6 +349,7 @@ else
 		op_pointer += 8;
 if (scanline == tom_get_vdb() && op_start_log)
 //if (scanline == 215 && op_start_log)
+//if (scanline == 28 && op_start_log)
 {
 WriteLog("%08X --> phrase %08X %08X", op_pointer - 8, (int)(p0>>32), (int)(p0&0xFFFFFFFF));
 if ((p0 & 0x07) == OBJECT_TYPE_BITMAP)
@@ -472,8 +478,9 @@ if (!inhibit)	// For OP testing only!
 //Temp, for testing...
 //No doubt, this type of check will break all kinds of stuff... !!! FIX !!!
 //And it does! !!! FIX !!!
-	if (op_pointer > ((p0 & 0x000007FFFF000000LL) >> 21))
-		return;
+//Let's remove this "fix" since it screws up more than it fixes.
+/*	if (op_pointer > ((p0 & 0x000007FFFF000000LL) >> 21))
+		return;*/
 
 			op_pointer = (p0 & 0x000007FFFF000000LL) >> 21;
 //WriteLog("New OP: %08X\n", op_pointer);
@@ -677,6 +684,13 @@ OP: Scaled bitmap 4x? 4bpp at 34,? hscale=80 fpix=0 data=000756E8 pitch 1 hflipp
 			WriteLog("op: unknown object type %i\n", ((uint8)p0 & 0x07)); 
 			return;
 		}
+
+		// Here is a little sanity check to keep the OP from locking up the machine
+		// when fed bad data. Better would be to count how many actual cycles it used
+		// and bail out/reenter to properly simulate an overloaded OP... !!! FIX !!!
+		opCyclesToRun--;
+		if (!opCyclesToRun)
+			return;
 	}
 }
 
@@ -1129,8 +1143,10 @@ if (firstPix)
 	uint16 * paletteRAM16 = (uint16 *)paletteRAM;
 
 	uint8 hscale = p2 & 0xFF;
-//	uint8 horizontalRemainder = hscale;				// Not sure if it starts full, but seems reasonable [It's not!]
-	uint8 horizontalRemainder = 0;					// Let's try zero! Seems to work! Yay!
+// Hmm. It seems that fixing the horizontal scale necessitated re-fixing this. Not sure why,
+// but seems to be consistent with the vertical scaling now (and it may turn out to be wrong!)...
+	uint8 horizontalRemainder = hscale;				// Not sure if it starts full, but seems reasonable [It's not!]
+//	uint8 horizontalRemainder = 0;					// Let's try zero! Seems to work! Yay! [No, it doesn't!]
 	int32 scaledWidthInPixels = (iwidth * phraseWidthToPixels[depth] * hscale) >> 5;
 	uint32 scaledPhrasePixels = (phraseWidthToPixels[depth] * hscale) >> 5;
 
@@ -1587,7 +1603,7 @@ if (firstPix != 0)
 				pixels <<= 16;
 			}
 			horizontalRemainder -= 0x20;		// Subtract 1.0f in [3.5] fixed point format
-
+//*/
 			if (pixCount > 3)
 			{
 				int phrasesToSkip = pixCount / 4, pixelShift = pixCount % 4;