head	1.2;
access;
symbols
	RELEASE_4_8_0:1.1
	RELEASE_5_0_0:1.1
	RELEASE_4_7_0:1.1
	RELEASE_4_6_2:1.1
	RELEASE_4_6_1:1.1
	RELEASE_4_6_0:1.1
	RELEASE_5_0_DP1:1.1
	RELEASE_4_5_0:1.1
	RELEASE_4_4_0:1.1
	RELEASE_4_3_0:1.1
	RELEASE_4_2_0:1.1
	RELEASE_4_1_1:1.1
	RELEASE_4_1_0:1.1
	RELEASE_3_5_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2003.05.06.03.49.00;	author kris;	state dead;
branches;
next	1.1;

1.1
date	2000.05.29.03.05.51;	author will;	state Exp;
branches;
next	;


desc
@@


1.2
log
@As announced on 27 March 2003 in <20030328052350.GA18971@@rot13.obsecurity.org>,
remove these ports that have been broken for >4 months (in many cases much
longer) with no sign of a fix.
@
text
@*** convert.c.orig	Thu Aug  7 13:44:17 1997
--- convert.c		Thu Mar 23 14:54:56 2000
***************
*** 288,294 ****
--- 288,299 ----
  
  		/* Can't do arithmetic in enumeral types
  		   so use an integer type that will hold the values.  */
+ #ifdef GPC
+               if (TREE_CODE (typex) == ENUMERAL_TYPE
+                   || TREE_CODE (typex) == BOOLEAN_TYPE)
+ #else /* not GPC */
  		if (TREE_CODE (typex) == ENUMERAL_TYPE)
+ #endif /* not GPC */
  		  typex = type_for_size (TYPE_PRECISION (typex),
  					 TREE_UNSIGNED (typex));
  
***************
*** 326,332 ****
--- 331,343 ----
  
  	    /* Can't do arithmetic in enumeral types
  	       so use an integer type that will hold the values.  */
+ #ifdef GPC
+           if (TREE_CODE (typex) == ENUMERAL_TYPE
+               || TREE_CODE (typex) == CHAR_TYPE
+               || TREE_CODE (typex) == BOOLEAN_TYPE)
+ #else /* not GPC */
  	    if (TREE_CODE (typex) == ENUMERAL_TYPE)
+ #endif /* not GPC */
  	      typex = type_for_size (TYPE_PRECISION (typex),
  				     TREE_UNSIGNED (typex));
  
@


1.1
log
@Add GPC - GNU Pascal Compiler.  Finally we have a Pascal compiler in the
ports collection!  :-)

PR:			17578
Submitted by:		Anton N. Breusov <antonz@@library.ntu-kpi.kiev.ua>
No objections from:	asami, obrien
@
text
@@

