added (method) casts and 1995 copyright
diff --git a/Mac/Modules/macfsmodule.c b/Mac/Modules/macfsmodule.c
index c694c66..2183685 100644
--- a/Mac/Modules/macfsmodule.c
+++ b/Mac/Modules/macfsmodule.c
@@ -1,6 +1,6 @@
/***********************************************************
-Copyright 1991, 1992, 1993, 1994 by Stichting Mathematisch Centrum,
-Amsterdam, The Netherlands.
+Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
+The Netherlands.
All Rights Reserved
@@ -63,6 +63,9 @@
#define is_mfssobject(v) ((v)->ob_type == &Mfsstype)
+
+mfssobject *newmfssobject(FSSpec *fss); /* Forward */
+
/* ---------------------------------------------------------------- */
static object *
@@ -134,9 +137,9 @@
}
static struct methodlist mfsa_methods[] = {
- {"Resolve", mfsa_Resolve, 1},
- {"GetInfo", mfsa_GetInfo, 1},
- {"Update", mfsa_Update, 1},
+ {"Resolve", (method)mfsa_Resolve, 1},
+ {"GetInfo", (method)mfsa_GetInfo, 1},
+ {"Update", (method)mfsa_Update, 1},
{NULL, NULL} /* sentinel */
};
@@ -286,10 +289,10 @@
}
static struct methodlist mfss_methods[] = {
- {"as_pathname", mfss_as_pathname, 1},
- {"as_tuple", mfss_as_tuple, 1},
- {"NewAlias", mfss_NewAlias, 1},
- {"NewAliasMinimal", mfss_NewAliasMinimal, 1},
+ {"as_pathname", (method)mfss_as_pathname, 1},
+ {"as_tuple", (method)mfss_as_tuple, 1},
+ {"NewAlias", (method)mfss_NewAlias, 1},
+ {"NewAliasMinimal", (method)mfss_NewAliasMinimal, 1},
{NULL, NULL} /* sentinel */
};