GT-3106: Implement AVR 8 pcodetests

Updated AVR 8 to implement pcode tests and correct any issues found as a
result.

Ghidra/Extensions/SleighDevTools/pcodetest/c_src/BIOPS2_BODY.c

@@ -15,47 +15,144 @@
  */
 #include "pcode_test.h"
 
-u2 unopNotu2(u2 lhs)
+u2 u2_complexLogic(u2 a, u2 b, u2 c, u2 d, u2 e, u2 f)
+{
+	u2 ret = 0;
+
+	if (a > b && b > c || d < e && f < e) {
+		ret += 1;
+	}
+	if (a != b || a != c && d != e || f != e) {
+		ret += 2;
+	}
+	if (a && b && c || d && e && f) {
+		ret += 4;
+	}
+	if (a || b || c && d || e || f) {
+		ret += 8;
+	}
+	return ret;
+}
+
+i2 i2_complexLogic(i2 a, i2 b, i2 c, i2 d, i2 e, i2 f)
+{
+	i2 ret = 0;
+
+	if (a > b && b > c || d < e && f < e) {
+		ret += 1;
+	}
+	if (a != b || a != c && d != e || f != e) {
+		ret += 2;
+	}
+	if (a && b && c || d && e && f) {
+		ret += 4;
+	}
+	if (a || b || c && d || e || f) {
+		ret += 8;
+	}
+	return ret;
+}
+
+u2 u2_compareLogic(u2 lhs, u2 rhs)
+{
+	if (lhs < rhs)
+		lhs += 2;
+	if (lhs > rhs)
+		lhs += 4;
+	if (lhs == 0)
+		lhs += 8;
+	if (lhs != rhs)
+		lhs += 16;
+	return lhs;
+}
+
+i2 i2_compareLogic(i2 lhs, i2 rhs)
+{
+	if (lhs < 0)
+		lhs += 2;
+	if (lhs > 0)
+		lhs += 4;
+	if (lhs == 0)
+		lhs += 8;
+	if (lhs != rhs)
+		lhs += 16;
+	return lhs;
+}
+
+/* Comparison operators */
+u2 u2_greaterThan(u2 lhs, u2 rhs)
 {
 	u2 z;
 
-	z = !lhs;
+	z = lhs > rhs;
 	return z;
 }
 
-u1 biopSubu1u1(u1 lhs, u1 rhs)
+u2 u2_greaterThanEquals(u2 lhs, u2 rhs)
 {
-	u1 z;
-
-	z = lhs - rhs;
-	return z;
-}
-
-u1 biopGeu1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
+	u2 z;
 
 	z = lhs >= rhs;
 	return z;
 }
 
-u4 biopShtRhtu4u4(u4 lhs, u4 rhs)
+u2 u2_lessThan(u2 lhs, u2 rhs)
 {
-	u4 z;
+	u2 z;
 
-	z = lhs >> rhs;
+	z = lhs < rhs;
 	return z;
 }
 
-i2 biopXOri2i2(i2 lhs, i2 rhs)
+u2 u2_lessThanEquals(u2 lhs, u2 rhs)
+{
+	u2 z;
+
+	z = lhs <= rhs;
+	return z;
+}
+
+u2 u2_equals(u2 lhs, u2 rhs)
+{
+	u2 z;
+
+	z = lhs == rhs;
+	return z;
+}
+
+u2 u2_notEquals(u2 lhs, u2 rhs)
+{
+	u2 z;
+
+	z = lhs != rhs;
+	return z;
+}
+
+i2 i2_greaterThan(i2 lhs, i2 rhs)
 {
 	i2 z;
 
-	z = lhs ^ rhs;
+	z = lhs > rhs;
 	return z;
 }
 
-i2 biopLei2i2(i2 lhs, i2 rhs)
+i2 i2_greaterThanEquals(i2 lhs, i2 rhs)
+{
+	i2 z;
+
+	z = lhs >= rhs;
+	return z;
+}
+
+i2 i2_lessThan(i2 lhs, i2 rhs)
+{
+	i2 z;
+
+	z = lhs < rhs;
+	return z;
+}
+
+i2 i2_lessThanEquals(i2 lhs, i2 rhs)
 {
 	i2 z;
 
@@ -63,47 +160,7 @@ i2 biopLei2i2(i2 lhs, i2 rhs)
 	return z;
 }
 
-i4 biopSubi4i4(i4 lhs, i4 rhs)
-{
-	i4 z;
-
-	z = lhs - rhs;
-	return z;
-}
-
-u1 biopAddu1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
-
-	z = lhs + rhs;
-	return z;
-}
-
-u1 biopLtu1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
-
-	z = lhs < rhs;
-	return z;
-}
-
-u4 biopGtu4u4(u4 lhs, u4 rhs)
-{
-	u4 z;
-
-	z = lhs > rhs;
-	return z;
-}
-
-i2 biopLogicOri2i2(i2 lhs, i2 rhs)
-{
-	i2 z;
-
-	z = lhs || rhs;
-	return z;
-}
-
-i2 biopEqi2i2(i2 lhs, i2 rhs)
+i2 i2_equals(i2 lhs, i2 rhs)
 {
 	i2 z;
 
@@ -111,55 +168,7 @@ i2 biopEqi2i2(i2 lhs, i2 rhs)
 	return z;
 }
 
-u2 unopPlusu2(u2 lhs)
-{
-	u2 z;
-
-	z = +lhs;
-	return z;
-}
-
-i4 biopAddi4i4(i4 lhs, i4 rhs)
-{
-	i4 z;
-
-	z = lhs + rhs;
-	return z;
-}
-
-u4 biopGeu4u4(u4 lhs, u4 rhs)
-{
-	u4 z;
-
-	z = lhs >= rhs;
-	return z;
-}
-
-u1 biopShtLftu1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
-
-	z = lhs << rhs;
-	return z;
-}
-
-u1 biopLeu1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
-
-	z = lhs <= rhs;
-	return z;
-}
-
-i2 biopLogicAndi2i2(i2 lhs, i2 rhs)
-{
-	i2 z;
-
-	z = lhs && rhs;
-	return z;
-}
-
-i2 biopNei2i2(i2 lhs, i2 rhs)
+i2 i2_notEquals(i2 lhs, i2 rhs)
 {
 	i2 z;
 
@@ -167,55 +176,32 @@ i2 biopNei2i2(i2 lhs, i2 rhs)
 	return z;
 }
 
-i1 biopMulti1i1(i1 lhs, i1 rhs)
+/* Bitwise operators */
+u2 u2_bitwiseAnd(u2 lhs, u2 rhs)
 {
-	i1 z;
+	u2 z;
 
-	z = lhs * rhs;
+	z = lhs & rhs;
 	return z;
 }
 
-i4 biopShtLfti4i4(i4 lhs, i4 rhs)
+u2 u2_bitwiseOr(u2 lhs, u2 rhs)
 {
-	i4 z;
+	u2 z;
 
-	z = lhs << rhs;
+	z = lhs | rhs;
 	return z;
 }
 
-u4 biopLtu4u4(u4 lhs, u4 rhs)
+u2 u2_bitwiseXor(u2 lhs, u2 rhs)
 {
-	u4 z;
+	u2 z;
 
-	z = lhs < rhs;
+	z = lhs ^ rhs;
 	return z;
 }
 
-u1 biopShtRhtu1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
-
-	z = lhs >> rhs;
-	return z;
-}
-
-u1 biopEqu1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
-
-	z = lhs == rhs;
-	return z;
-}
-
-i2 unopNoti2(i2 lhs)
-{
-	i2 z;
-
-	z = !lhs;
-	return z;
-}
-
-i2 biopAndi2i2(i2 lhs, i2 rhs)
+i2 i2_bitwiseAnd(i2 lhs, i2 rhs)
 {
 	i2 z;
 
@@ -223,39 +209,154 @@ i2 biopAndi2i2(i2 lhs, i2 rhs)
 	return z;
 }
 
-i1 biopSubi1i1(i1 lhs, i1 rhs)
+i2 i2_bitwiseOr(i2 lhs, i2 rhs)
 {
-	i1 z;
+	i2 z;
 
-	z = lhs - rhs;
+	z = lhs | rhs;
 	return z;
 }
 
-u1 biopNeu1u1(u1 lhs, u1 rhs)
+i2 i2_bitwiseXor(i2 lhs, i2 rhs)
 {
-	u1 z;
+	i2 z;
 
-	z = lhs != rhs;
+	z = lhs ^ rhs;
 	return z;
 }
 
-i4 biopShtRhti4i4(i4 lhs, i4 rhs)
+/* Logical operators */
+u2 u2_logicalAnd(u2 lhs, u2 rhs)
 {
-	i4 z;
+	u2 z;
+
+	z = lhs && rhs;
+	return z;
+}
+
+u2 u2_logicalOr(u2 lhs, u2 rhs)
+{
+	u2 z;
+
+	z = lhs || rhs;
+	return z;
+}
+
+u2 u2_logicalNot(u2 lhs)
+{
+	u2 z;
+
+	z = !lhs;
+	return z;
+}
+
+i2 i2_logicalAnd(i2 lhs, i2 rhs)
+{
+	i2 z;
+
+	z = lhs && rhs;
+	return z;
+}
+
+i2 i2_logicalOr(i2 lhs, i2 rhs)
+{
+	i2 z;
+
+	z = lhs || rhs;
+	return z;
+}
+
+i2 i2_logicalNot(i2 lhs)
+{
+	i2 z;
+
+	z = !lhs;
+	return z;
+}
+
+/* Shift operators */
+u2 u2_shiftLeft(u2 lhs, u2 rhs)
+{
+	u2 z;
+
+	z = lhs << rhs;
+	return z;
+}
+
+u2 u2_shiftRight(u2 lhs, u2 rhs)
+{
+	u2 z;
 
 	z = lhs >> rhs;
 	return z;
 }
 
-u4 biopLeu4u4(u4 lhs, u4 rhs)
+i2 i2_shiftRight(i2 lhs, i2 rhs)
 {
-	u4 z;
+	i2 z;
 
-	z = lhs <= rhs;
+	z = lhs >> rhs;
 	return z;
 }
 
-i2 unopNegativei2(i2 lhs)
+i2 i2_shiftLeft(i2 lhs, i2 rhs)
+{
+	i2 z;
+
+	z = lhs << rhs;
+	return z;
+}
+
+/* Arithmetic operators */
+u2 u2_unaryPlus(u2 lhs)
+{
+	u2 z;
+
+	z = +lhs;
+	return z;
+}
+
+u2 u2_addition(u2 lhs, u2 rhs)
+{
+	u2 z;
+
+	z = lhs + rhs;
+	return z;
+}
+
+u2 u2_subtract(u2 lhs, u2 rhs)
+{
+	u2 z;
+
+	z = lhs - rhs;
+	return z;
+}
+
+u2 u2_multiply(u2 lhs, u2 rhs)
+{
+	u2 z;
+
+	z = lhs * rhs;
+	return z;
+}
+
+i2 u2_divide(i2 lhs, i2 rhs)
+{
+	i2 z;
+
+	z = lhs / rhs;
+	return z;
+}
+
+u2 u2_remainder(u2 lhs, u2 rhs)
+{
+	u2 z;
+
+	z = lhs % rhs;
+	return z;
+}
+
+i2 i2_unaryMinus(i2 lhs)
 {
 	i2 z;
 
@@ -263,39 +364,7 @@ i2 unopNegativei2(i2 lhs)
 	return z;
 }
 
-i4 biopGti4i4(i4 lhs, i4 rhs)
-{
-	i4 z;
-
-	z = lhs > rhs;
-	return z;
-}
-
-i1 biopAddi1i1(i1 lhs, i1 rhs)
-{
-	i1 z;
-
-	z = lhs + rhs;
-	return z;
-}
-
-u1 biopAndu1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
-
-	z = lhs & rhs;
-	return z;
-}
-
-u4 biopEqu4u4(u4 lhs, u4 rhs)
-{
-	u4 z;
-
-	z = lhs == rhs;
-	return z;
-}
-
-i2 unopPlusi2(i2 lhs)
+i2 i2_unaryPlus(i2 lhs)
 {
 	i2 z;
 
@@ -303,215 +372,31 @@ i2 unopPlusi2(i2 lhs)
 	return z;
 }
 
-i4 biopGei4i4(i4 lhs, i4 rhs)
+i2 i2_addition(i2 lhs, i2 rhs)
 {
-	i4 z;
-
-	z = lhs >= rhs;
-	return z;
-}
-
-i1 biopShtLfti1i1(i1 lhs, i1 rhs)
-{
-	i1 z;
-
-	z = lhs << rhs;
-	return z;
-}
-
-u1 biopOru1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
-
-	z = lhs | rhs;
-	return z;
-}
-
-u4 biopNeu4u4(u4 lhs, u4 rhs)
-{
-	u4 z;
-
-	z = lhs != rhs;
-	return z;
-}
-
-u2 biopMultu2u2(u2 lhs, u2 rhs)
-{
-	u2 z;
-
-	z = lhs * rhs;
-	return z;
-}
-
-i1 biopShtRhti1i1(i1 lhs, i1 rhs)
-{
-	i1 z;
-
-	z = lhs >> rhs;
-	return z;
-}
-
-i4 biopLti4i4(i4 lhs, i4 rhs)
-{
-	i4 z;
-
-	z = lhs < rhs;
-	return z;
-}
-
-u4 biopAndu4u4(u4 lhs, u4 rhs)
-{
-	u4 z;
-
-	z = lhs & rhs;
-	return z;
-}
-
-u1 biopXOru1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
-
-	z = lhs ^ rhs;
-	return z;
-}
-
-u2 biopSubu2u2(u2 lhs, u2 rhs)
-{
-	u2 z;
-
-	z = lhs - rhs;
-	return z;
-}
-
-i1 biopGti1i1(i1 lhs, i1 rhs)
-{
-	i1 z;
-
-	z = lhs > rhs;
-	return z;
-}
-
-i4 biopLei4i4(i4 lhs, i4 rhs)
-{
-	i4 z;
-
-	z = lhs <= rhs;
-	return z;
-}
-
-u4 biopOru4u4(u4 lhs, u4 rhs)
-{
-	u4 z;
-
-	z = lhs | rhs;
-	return z;
-}
-
-u1 biopLogicOru1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
-
-	z = lhs || rhs;
-	return z;
-}
-
-u2 biopAddu2u2(u2 lhs, u2 rhs)
-{
-	u2 z;
+	i2 z;
 
 	z = lhs + rhs;
 	return z;
 }
 
-i1 biopGei1i1(i1 lhs, i1 rhs)
+i2 i2_subtract(i2 lhs, i2 rhs)
 {
-	i1 z;
+	i2 z;
 
-	z = lhs >= rhs;
+	z = lhs - rhs;
 	return z;
 }
 
-u1 biopLogicAndu1u1(u1 lhs, u1 rhs)
+i2 i2_multiply(i2 lhs, i2 rhs)
 {
-	u1 z;
+	i2 z;
 
-	z = lhs && rhs;
+	z = lhs * rhs;
 	return z;
 }
 
-i4 biopEqi4i4(i4 lhs, i4 rhs)
-{
-	i4 z;
-
-	z = lhs == rhs;
-	return z;
-}
-
-u4 biopXOru4u4(u4 lhs, u4 rhs)
-{
-	u4 z;
-
-	z = lhs ^ rhs;
-	return z;
-}
-
-u2 biopShtLftu2u2(u2 lhs, u2 rhs)
-{
-	u2 z;
-
-	z = lhs << rhs;
-	return z;
-}
-
-i4 biopNei4i4(i4 lhs, i4 rhs)
-{
-	i4 z;
-
-	z = lhs != rhs;
-	return z;
-}
-
-i1 biopLti1i1(i1 lhs, i1 rhs)
-{
-	i1 z;
-
-	z = lhs < rhs;
-	return z;
-}
-
-u1 unopNotu1(u1 lhs)
-{
-	u1 z;
-
-	z = !lhs;
-	return z;
-}
-
-u4 biopLogicOru4u4(u4 lhs, u4 rhs)
-{
-	u4 z;
-
-	z = lhs || rhs;
-	return z;
-}
-
-u2 biopShtRhtu2u2(u2 lhs, u2 rhs)
-{
-	u2 z;
-
-	z = lhs >> rhs;
-	return z;
-}
-
-i1 biopDividu1u1(u1 lhs, u1 rhs)
-{
-	i1 z;
-
-	z = lhs / rhs;
-	return z;
-}
-
-i2 biopDividu2u2(i2 lhs, i2 rhs)
+i2 i2_divide(i2 lhs, i2 rhs)
 {
 	i2 z;
 
@@ -519,34 +404,12 @@ i2 biopDividu2u2(i2 lhs, i2 rhs)
 	return z;
 }
 
-u4 biopDividu4u4(u4 lhs, u4 rhs)
+i2 i2_remainder(i2 lhs, i2 rhs)
 {
-	u4 z;
-
-	z = lhs / rhs;
-	return z;
-}
-
-u1 biopRemainderu1u1(u1 lhs, u1 rhs)
-{
-	u1 z;
+	i2 z;
 
 	z = lhs % rhs;
 	return z;
 }
 
-u2 biopRemainderu2u2(u2 lhs, u2 rhs)
-{
-	u2 z;
 
-	z = lhs % rhs;
-	return z;
-}
-
-u4 biopRemainderu4u4(u4 lhs, u4 rhs)
-{
-	u4 z;
-
-	z = lhs % rhs;
-	return z;
-}