From: Richard Henderson <rth@redhat.com>
Date: Sun, 11 Jan 2004 23:53:17 +0000 (-0800)
Subject: alpha.c (alpha_encode_section_info): Use 'I' for TLS_MODEL_INITIAL_EXEC.
X-Git-Tag: releases/gcc-3.3.3~106
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=90429679b254f5cf7c07a431fec3f3430e97901d;p=thirdparty%2Fgcc.git

alpha.c (alpha_encode_section_info): Use 'I' for TLS_MODEL_INITIAL_EXEC.

        * config/alpha/alpha.c (alpha_encode_section_info): Use 'I'
        for TLS_MODEL_INITIAL_EXEC.
        (tls_symbolic_operand_1): Update to match.
        (tls_symbolic_operand_type): Likewise.

From-SVN: r75695
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index bce807211aaa..ef6f63e78c15 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,10 @@
+2004-01-11  Richard Henderson  <rth@redhat.com>
+
+	* config/alpha/alpha.c (alpha_encode_section_info): Use 'I'
+	for TLS_MODEL_INITIAL_EXEC.
+	(tls_symbolic_operand_1): Update to match.
+	(tls_symbolic_operand_type): Likewise.
+
 2004-01-11  Jakub Jelinek  <jakub@redhat.com>
 
 	PR middle-end/13392
diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c
index 42b57e18a21a..1f6c938c3f2b 100644
--- a/gcc/config/alpha/alpha.c
+++ b/gcc/config/alpha/alpha.c
@@ -1205,9 +1205,12 @@ tls_symbolic_operand_1 (op, mode, size, unspec)
   else
     return 0;
 
-  letter = (unspec == UNSPEC_DTPREL ? 'D' : 'T');
-
-  return str[1] == letter;
+  if (unspec == UNSPEC_DTPREL)
+    return str[1] == 'D';
+  else if (str[1] == 'I')
+    return size == 64;
+  else
+    return str[1] == 'T';
 }
 
 /* Return true if OP is valid for 16-bit DTP relative relocations.  */
@@ -1762,7 +1765,7 @@ tls_symbolic_operand_type (symbol)
 	 attribute visibility next time.  At least we don't crash...  */
       if (str[1] == 'G' || str[1] == 'D')
 	return TLS_MODEL_GLOBAL_DYNAMIC;
-      if (str[1] == 'T')
+      if (str[1] == 'I' || str[1] == 'T')
 	return TLS_MODEL_INITIAL_EXEC;
     }
   else if (str[0] == '@')
@@ -1776,6 +1779,8 @@ tls_symbolic_operand_type (symbol)
 	  else
 	    return TLS_MODEL_GLOBAL_DYNAMIC;
 	}
+      if (str[1] == 'I')
+	return TLS_MODEL_INITIAL_EXEC;
       if (str[1] == 'T')
 	{
 	  /* 64-bit local exec is the same as initial exec except without
@@ -1901,6 +1906,8 @@ alpha_encode_section_info (decl, first)
 	  encoding = 'D';
 	  break;
 	case TLS_MODEL_INITIAL_EXEC:
+	  encoding = 'I';
+	  break;
 	case TLS_MODEL_LOCAL_EXEC:
 	  encoding = 'T';
 	  break;