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-ad
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

40 lines
1.1 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

*** dbxout.c.orig Thu Oct 23 15:03:03 1997
--- dbxout.c Thu Mar 23 14:58:21 2000
***************
*** 960,965 ****
--- 960,993 ----
else
fprintf (asmfile, ";-1;");
}
+ #ifdef GPC
+ void
+ dbxout_set_type_status (type, defined)
+ tree type;
+ int defined;
+ {
+ if (TYPE_SYMTAB_ADDRESS (type) == 0)
+ {
+ /* Type has no dbx number assigned. Assign next available number. */
+ TYPE_SYMTAB_ADDRESS (type) = next_type_number++;
+
+ /* Make sure type vector is long enough to record about this type. */
+
+ if (next_type_number == typevec_len)
+ {
+ typevec =
+ (struct typeinfo *) xrealloc (typevec,
+ typevec_len * 2 * sizeof typevec[0]);
+ bzero ((char *) (typevec + typevec_len),
+ typevec_len * sizeof typevec[0]);
+ typevec_len *= 2;
+ }
+ }
+ typevec[ TYPE_SYMTAB_ADDRESS (type) ].status =
+ defined ? TYPE_DEFINED : TYPE_UNSEEN;
+ }
+ #endif /* GPC */
+
/* Output a reference to a type. If the type has not yet been
described in the dbx output, output its definition now.