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
@*** function.c.orig	Sat Feb 28 22:58:16 1998
--- function.c		Thu Mar 23 15:34:50 2000
***************
*** 463,468 ****
--- 463,491 ----
  /* Given a function decl for a containing function,
     return the `struct function' for it.  */
  
+ #ifdef GPC
+ struct function *
+ maybe_find_function_data (decl)
+      tree decl;
+ {
+   struct function *p;
+   for (p = outer_function_chain; p; p = p->next)
+    if (p->decl == decl)
+      return p;
+  return (struct function *)NULL;
+ }
+ 
+ struct function *
+ find_function_data (decl)
+     tree decl;
+ {
+  struct function *p = maybe_find_function_data (decl);
+  if (!p)
+    abort ();
+  return p;
+ }
+ 
+ #else /* not GPC */
  struct function *
  find_function_data (decl)
       tree decl;
***************
*** 475,480 ****
--- 498,504 ----
  
    abort ();
  }
+ #endif /* not GPC */
  
  /* Save the current context for compilation of a nested function.
     This is called from language-specific code.
@


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

