diff options
| author | Will Andrews <will@FreeBSD.org> | 2000-05-29 03:05:51 +0000 |
|---|---|---|
| committer | Will Andrews <will@FreeBSD.org> | 2000-05-29 03:05:51 +0000 |
| commit | d094bd696b8fc5937c868653f4ee21d614714652 (patch) | |
| tree | 5b803daddc9c8cf34a2f9d3752d753f008926cb8 /lang/gpc/files/patch-ap | |
| parent | Incorporate some changes from NetBSD, Linux, and the Macquarie University. (diff) | |
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
Notes
Notes:
svn path=/head/; revision=28869
Diffstat (limited to 'lang/gpc/files/patch-ap')
| -rw-r--r-- | lang/gpc/files/patch-ap | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/lang/gpc/files/patch-ap b/lang/gpc/files/patch-ap new file mode 100644 index 000000000000..a8adf52be22e --- /dev/null +++ b/lang/gpc/files/patch-ap @@ -0,0 +1,18 @@ +*** 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)) + { |