Remove named parameters from prototypes in structure fields. The

Alpha compiler does not like them.

diff --git a/v7/src/microcode/dstack.h b/v7/src/microcode/dstack.h
index 4d9b9cb6558be334131dfe9cf00ec01dcdb0d410..97ce6c240aad5842c486810eff836e1e950a9998 100644 (file)
--- 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 e62364dbff791d7f3737c952ae650f3d4d131476..ffa97cc13643a9ab720d9fbed0b56c3d142e3520 100644 (file)
--- 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