Mail #13476 (Unformatted/full headers)

Back to main page of archive

Previous mail   Next mail   Formatted
Overview  10 days   Subject   Date   Thread   Author  

From gpc-owner+M7121=gpc=mail-archive.g-n-u.de@gnu.de Tue Mar 28 01:37:47 2006
Received: from [127.0.0.1] (helo=gnu.de)
	by ngc224.gerwinski.de with smtp (Exim 4.50 #1 (Debian))
	id 1FO1HH-0000LO-TJ
	for <gpc@mail-archive.g-n-u.de>; Tue, 28 Mar 2006 01:37:47 +0200
Received: from [156.17.86.1] (helo=hera.math.uni.wroc.pl ident=mail)
	by ngc224.gerwinski.de with esmtp (Exim 4.50 #1 (Debian))
	id 1FO1Gr-0000KY-Qp
	for <gpc@gnu.de>; Tue, 28 Mar 2006 01:37:21 +0200
Received: from hebisch by hera.math.uni.wroc.pl with local (Exim 3.36 #1 (Debian))
	id 1FO1Gb-00074D-00
	for <gpc@gnu.de>; Tue, 28 Mar 2006 01:36:57 +0200
Subject: Re: New (gpc-20060325)
In-Reply-To: <6E26AD28-1E48-49E2-8D87-677A648A7C08@microbizz.nl>
To: gpc@gnu.de
Date: Tue, 28 Mar 2006 01:36:57 +0200 (CEST)
X-Mailer: ELM [version 2.4ME+ PL100 (25)]
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset=US-ASCII
Message-Id: <E1FO1Gb-00074D-00@hera.math.uni.wroc.pl>
From: Waldek Hebisch <hebisch@math.uni.wroc.pl>
X-Spam-Score: 0.1 (/)
Precedence: bulk
Sender: gpc-owner@gnu.de
X-Spam-Score: 0.1 (/)

Adriaan van Os wrote:
> FAIL: chief41.pas
>   ./chief41.pas: In function `Str2Charset':
>   ./chief41.pas:6: internal compiler error: in hard_function_value,  
> at explow.c:1541
>   Please submit a full bug report,
>   with preprocessed source if appropriate.
>   See <URL:http://www.gnu-pascal.de/todo.html> for instructions.
>   failed
> 

Could you try the following patch (it fixed crash in cross-compiler).
Only first hunk should matter on PPC, but other platform probably need
the rest (at least AMD64 needs i386.c part). Apply to gcc tree, on top
of gpc patch.

--- gcc-4.0.2/gcc/tree.h.bb	2006-03-27 23:38:33.761615272 +0200
+++ gcc-4.0.2/gcc/tree.h	2006-03-27 23:39:01.992323552 +0200
@@ -798,7 +798,8 @@ extern void tree_operand_check_failed (i
 
 #define AGGREGATE_TYPE_P(TYPE) \
   (TREE_CODE (TYPE) == ARRAY_TYPE || TREE_CODE (TYPE) == RECORD_TYPE \
-   || TREE_CODE (TYPE) == UNION_TYPE || TREE_CODE (TYPE) == QUAL_UNION_TYPE)
+   || TREE_CODE (TYPE) == UNION_TYPE || TREE_CODE (TYPE) == QUAL_UNION_TYPE \
+   || TREE_CODE (TYPE) == SET_TYPE)
 
 /* Nonzero if TYPE represents a pointer or reference type.
    (It should be renamed to INDIRECT_TYPE_P.)  Keep these checks in
--- gcc-4.0.2.orig/gcc/config/ia64/ia64.c	2005-09-07 10:22:29.000000000 +0200
+++ gcc-4.0.2/gcc/config/ia64/ia64.c	2006-03-28 00:36:32.353788880 +0200
@@ -3467,6 +3467,7 @@ hfa_element_mode (tree type, bool nested
     case BOOLEAN_TYPE:	case CHAR_TYPE:		case POINTER_TYPE:
     case OFFSET_TYPE:	case REFERENCE_TYPE:	case METHOD_TYPE:
     case FILE_TYPE:	case LANG_TYPE:		case FUNCTION_TYPE:
+    case SET_TYPE:
       return VOIDmode;
 
       /* Fortran complex types are supposed to be HFAs, so we need to handle
--- gcc-4.0.2/gcc/config/sparc/sparc.c.bb	2006-03-28 00:39:54.492059192 +0200
+++ gcc-4.0.2/gcc/config/sparc/sparc.c	2006-03-28 00:39:59.122355280 +0200
@@ -7719,6 +7719,7 @@ sparc_type_code (register tree type)
 	case CHAR_TYPE:		/* GNU Pascal CHAR type.  Not used in C.  */
 	case BOOLEAN_TYPE:	/* GNU Fortran BOOLEAN type.  */
 	case FILE_TYPE:		/* GNU Pascal FILE type.  */
+	case SET_TYPE:          /* GNU Pascal SET type.  */
 	case LANG_TYPE:		/* ? */
 	  return qualifiers;
   
--- gcc-4.0.2/gcc/config/i386/i386.c.bb	2006-03-28 00:32:36.297674864 +0200
+++ gcc-4.0.2/gcc/config/i386/i386.c	2006-03-28 00:34:39.741908488 +0200
@@ -2352,6 +2352,31 @@ classify_argument (enum machine_mode mod
 		}
 	    }
 	}
+      else if (TREE_CODE (type) == SET_TYPE)
+        {
+          if (bytes <= 4)
+            {
+              classes[0] = X86_64_INTEGERSI_CLASS;
+              return 1;
+            }
+          else if (bytes <= 8)
+            {
+              classes[0] = X86_64_INTEGER_CLASS;
+              return 1;
+            }
+          else if (bytes <= 12)
+            {
+              classes[0] = X86_64_INTEGER_CLASS;
+              classes[1] = X86_64_INTEGERSI_CLASS;
+              return 2;
+            }
+          else
+            {
+              classes[0] = X86_64_INTEGER_CLASS;
+              classes[1] = X86_64_INTEGER_CLASS;
+              return 2;
+            }
+        }
       else
 	abort ();
 


-- 
                              Waldek Hebisch
hebisch@math.uni.wroc.pl 

Previous mail   Next mail   Formatted
Overview  10 days   Subject   Date   Thread   Author  

Replies

In reply to

Back to main page of archive

Note: This page contains information that does not originate from the owner of this web site, but from the authors of the mails archived. The owner of this web site is not responsible for the content of such information. Any use of that infomation requires the consent of the respective author.

Where WWW addresses (URLs) in the mails archived are marked as hyperlinks, this is only for the comfort of the reader. The content of the web pages linked to like this does not necessarily reflect the opinion of the owner of this web site or of the authors of the mails archived. The owner of this web site is not responsible for the content of such web pages. Those pages are explicitly not to be considered as part of the content of this page, but merely as references.

This page was created by Crystal 0.999 (Linux 2.4.27/i686).