From c2264220583c0f09fd42619b06ca08a442e3bc57 Mon Sep 17 00:00:00 2001
From: Jeff Law <law@gcc.gnu.org>
Date: Fri, 15 Jan 1993 19:11:15 -0700
Subject: [PATCH] * pa.c (shadd_constant_p): New function.

From-SVN: r3257
---
 gcc/config/pa/pa.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/gcc/config/pa/pa.c b/gcc/config/pa/pa.c
index 4c360327fec..dc43bd57692 100644
--- a/gcc/config/pa/pa.c
+++ b/gcc/config/pa/pa.c
@@ -2690,3 +2690,16 @@ plus_xor_ior_operator (op, mode)
   return (GET_CODE (op) == PLUS || GET_CODE (op) == XOR
 	  || GET_CODE (op) == IOR);
 }
+
+/* Return 1 if the given constant is 2, 4, or 8.  These are the valid
+   constants for shadd instructions.  */
+int
+shadd_constant_p (val)
+     int val;
+{
+  if (val == 2 || val == 4 || val == 8)
+    return 1;
+  else
+    return 0;
+}
+
-- 
2.30.2