1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-22 04:17:44 +00:00
freebsd-ports/lang/gpc/files/patch-ap
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

19 lines
475 B
Plaintext

*** tree.c.orig Tue Mar 3 02:37:46 1998
--- tree.c Thu Mar 23 15:58:48 2000
***************
*** 4742,4747 ****
--- 4742,4754 ----
for (i = 0; i < bit_size; i++)
buffer[i] = 0;
+ #ifdef GPC
+ /* Since sets are word-aligned in Pascal,
+ the first bits in the set may be unused. */
+
+ domain_min -= domain_min % BITS_PER_WORD;
+ #endif /* GPC */
+
for (vals = TREE_OPERAND (init, 1);
vals != NULL_TREE; vals = TREE_CHAIN (vals))
{