mirror of
https://git.FreeBSD.org/ports.git
synced 2024-11-05 22:43:24 +00:00
d094bd696b
ports collection! :-) PR: 17578 Submitted by: Anton N. Breusov <antonz@library.ntu-kpi.kiev.ua> No objections from: asami, obrien
19 lines
475 B
Plaintext
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))
|
|
{
|