--- /opt/cvs/dotgnu/pnet/engine/verify_branch.c	Thu May 23 12:54:12 2002
+++ engine/verify_branch.c	Wed Jul 23 21:48:35 2003
@@ -133,6 +133,8 @@
 	{
 		if(stack[posn].engineType != labelStack[posn].engineType)
 		{
+			fprintf(stderr,"%s:%d <Stack Position %d>\n",__FILE__,__LINE__,
+								posn);
 			return 0;
 		}
 		if(stack[posn].engineType == ILEngineType_M ||
@@ -142,6 +144,8 @@
 			if(!ILTypeIdentical(stack[posn].typeInfo,
 								labelStack[posn].typeInfo))
 			{
+				fprintf(stderr,"%s:%d <Stack Position %d>\n",__FILE__,__LINE__,
+								posn);
 				return 0;
 			}
 		}
@@ -166,6 +170,10 @@
 			}
 			else
 			{
+				fprintf(stderr,"%s:%d <Stack Position %d> <%s> <%s>\n",__FILE__,__LINE__,
+								posn,
+								ILTypeToName(labelStack[posn].typeInfo),
+								ILTypeToName(stack[posn].typeInfo));
 				/* Incompatible types */
 				return 0;
 			}