From: Andrew Cagney <cagney@redhat.com>
Date: Wed, 12 Jul 2000 08:31:49 +0000 (+0000)
Subject: * valops.c (value_cast): Allow cast from INT, ENUM or RANGE to
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=634acd5f8a2e36efa4eb98c71fc04519aa8abb26;p=binutils-gdb.git

* valops.c (value_cast): Allow cast from INT, ENUM or RANGE to
POINTER.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 59ec071e38e..c23d07c697b 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+Tue Jul 11 19:45:42 2000  Andrew Cagney  <cagney@b1.cygnus.com>
+
+ 	* valops.c (value_cast): Allow cast from INT, ENUM or RANGE to
+ 	POINTER.
+
 2000-07-11  Scott Bambrough <scottb@netwinder.org>
 
 	* command.c (do_setshow_command): Fix typo in var_auto_boolean
diff --git a/gdb/valops.c b/gdb/valops.c
index 114a0356c6e..a32db08c9e2 100644
--- a/gdb/valops.c
+++ b/gdb/valops.c
@@ -290,6 +290,20 @@ value_cast (type, arg2)
       return value_from_longest (type, convert_to_boolean ? 
 				 (LONGEST) (longest ? 1 : 0) : longest);
     }
+  else if (code1 == TYPE_CODE_PTR && (code2 == TYPE_CODE_INT  || 
+                                    code2 == TYPE_CODE_ENUM ||
+                                    code2 == TYPE_CODE_RANGE))
+    {
+      int ptr_bit = HOST_CHAR_BIT * TYPE_LENGTH (type);
+      LONGEST longest = value_as_long (arg2);
+      if (ptr_bit < sizeof (LONGEST) * HOST_CHAR_BIT)
+	{
+	  if (longest >= ((LONGEST) 1 << ptr_bit)
+	      || longest <= -((LONGEST) 1 << ptr_bit))
+	    warning ("value truncated");
+	}
+      return value_from_longest (type, longest);
+    }
   else if (TYPE_LENGTH (type) == TYPE_LENGTH (type2))
     {
       if (code1 == TYPE_CODE_PTR && code2 == TYPE_CODE_PTR)