1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-11-05 22:43:24 +00:00
freebsd-ports/lang/gpc/files/patch-ac
Will Andrews d094bd696b 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
2000-05-29 03:05:51 +00:00

34 lines
1.0 KiB
Plaintext

*** 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));