From 9333c2d4263857adbe572dcd1508b87a2b59e223 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Mon, 10 Feb 1992 13:10:44 +0000
Subject: [PATCH] Remove named parameters from prototypes in structure fields. 
 The Alpha compiler does not like them.

---
 v7/src/microcode/dstack.h | 6 +++---
 v7/src/microcode/error.c  | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/microcode/dstack.h b/v7/src/microcode/dstack.h
index 4d9b9cb65..97ce6c240 100644
--- a/v7/src/microcode/dstack.h
+++ b/v7/src/microcode/dstack.h
@@ -14,7 +14,7 @@
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/dstack.h,v 1.4 1992/01/20 16:29:00 jinx Exp $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/dstack.h,v 1.5 1992/02/10 13:09:11 jinx Exp $ */
 
 #ifndef __DSTACK_H__
 #define __DSTACK_H__
@@ -116,7 +116,7 @@ struct condition_type
   unsigned long index;
   PTR name;
   Tptrvec generalizations;
-  void EXFUN ((*reporter), (Tcondition condition));
+  void EXFUN ((*reporter), (Tcondition));
 };
 #define CONDITION_TYPE_INDEX(type) ((type) -> index)
 #define CONDITION_TYPE_NAME(type) ((type) -> name)
@@ -135,7 +135,7 @@ struct condition_restart
 {
   PTR name;
   Tcondition_type type;
-  void EXFUN ((*procedure), (PTR argument));
+  void EXFUN ((*procedure), (PTR));
 };
 #define CONDITION_RESTART_NAME(restart) ((restart) -> name)
 #define CONDITION_RESTART_TYPE(restart) ((restart) -> type)
diff --git a/v7/src/microcode/error.c b/v7/src/microcode/error.c
index e62364dbf..ffa97cc13 100644
--- a/v7/src/microcode/error.c
+++ b/v7/src/microcode/error.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1990 Free Software Foundation, Inc.
+/* Copyright (C) 1990-1992 Free Software Foundation, Inc.
 
    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -14,7 +14,7 @@
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/error.c,v 1.1 1990/06/20 19:35:47 cph Rel $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/error.c,v 1.2 1992/02/10 13:10:44 jinx Exp $ */
 
 #include <stdio.h>
 #include "dstack.h"
@@ -37,7 +37,7 @@ struct handler_record
 {
   struct handler_record * next;
   Tcondition_type type;
-  void EXFUN ((*handler), (Tcondition condition));
+  void EXFUN ((*handler), (Tcondition));
 };
 
 struct restart_record
-- 
2.25.1