head	1.2;
access;
symbols
	RELEASE_4_8_0:1.1
	RELEASE_5_0_0:1.1
	RELEASE_4_7_0:1.1
	RELEASE_4_6_2:1.1
	RELEASE_4_6_1:1.1
	RELEASE_4_6_0:1.1
	RELEASE_5_0_DP1:1.1
	RELEASE_4_5_0:1.1
	RELEASE_4_4_0:1.1
	RELEASE_4_3_0:1.1
	RELEASE_4_2_0:1.1
	RELEASE_4_1_1:1.1
	RELEASE_4_1_0:1.1
	RELEASE_3_5_0:1.1;
locks; strict;
comment	@# @;


1.2
date	2003.05.06.03.49.00;	author kris;	state dead;
branches;
next	1.1;

1.1
date	2000.05.29.03.05.51;	author will;	state Exp;
branches;
next	;


desc
@@


1.2
log
@As announced on 27 March 2003 in <20030328052350.GA18971@@rot13.obsecurity.org>,
remove these ports that have been broken for >4 months (in many cases much
longer) with no sign of a fix.
@
text
@*** 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.
@


1.1
log
@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
@
text
@@

