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

1 files changed, 44 insertions, 0 deletions

diff --git a/lang/gpc/files/patch-ah b/lang/gpc/files/patch-ah
new file mode 100644
index 000000000000..b528b5db42cd
--- /dev/null
+++ b/lang/gpc/files/patch-ah
@@ -0,0 +1,44 @@
+*** 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.