Ahn Ki-yung wrote:

SunOS 5.8 Reading specs from /usr/local/lib/gcc-lib/sparc-sun-solaris2.8/2.95.3/specs gcc version 2.95.3 20010315 (release) In the posix related libaries there are two forign call definition.

foreign import ccall unsafe "getpwuid_r" c_getpwuid_r :: CUid -> Ptr CPasswd -> CString -> CSize -> Ptr (Ptr CPasswd) -> IO CInt

foreign import ccall unsafe "getpwnam_r" c_getpwnam_r :: CString -> Ptr CPasswd -> CString -> CSize -> Ptr (Ptr CPasswd) -> IO CInt

But the gcc says there are too many argument. There are two ways to go around. I change the foriegn call definition "getpwuid_r" ==> "__posix_getpwuid_r" I change the foriegn call definition "getpwnam_r" ==> "__posix_getpwnam_r"

Another way is to tweak preprocessor macro definition. I believe this is possible but I don't how to tweak it. My file is like this.

GHC implementors and porters should be awared of this.

p.s. Compiling GHC project took almost whole day long :-( Bootstraping from 4.08.2 and stage1, stange 2 ... :-(

-- Ahn Ki-yung /* Copyright (c) 1988 AT&T */ /* All Rights Reserved */ /* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */ /* The copyright notice above does not evidence any */ /* actual or intended publication of such source code. */ /* * Copyright (c) 1996, by Sun Microsystems, Inc. * All rights reserved. */ #ifndef _PWD_H #define _PWD_H #pragma ident "@(#)pwd.h 1.19 96/03/12 SMI" /* SVr4.0 1.3.1.9 */ #include #include #if defined(__EXTENSIONS__) || \ (!defined(_POSIX_C_SOURCE) && !defined(_XOPEN_SOURCE)) #include #endif #ifdef __cplusplus extern "C" { #endif struct passwd { char *pw_name; char *pw_passwd; uid_t pw_uid; gid_t pw_gid; char *pw_age; char *pw_comment; char *pw_gecos; char *pw_dir; char *pw_shell; }; #if defined(__EXTENSIONS__) || \ (!defined(_POSIX_C_SOURCE) && !defined(_XOPEN_SOURCE)) struct comment { char *c_dept; char *c_name; char *c_acct; char *c_bin; }; #endif /* defined(__EXTENSIONS__) || (!defined(_POSIX_C_SOURCE) && ... */ #if defined(__STDC__) extern struct passwd *getpwuid(uid_t); /* MT-unsafe */ extern struct passwd *getpwnam(const char *); /* MT-unsafe */ #if defined(__EXTENSIONS__) || \ (!defined(_POSIX_C_SOURCE) && !defined(_XOPEN_SOURCE)) extern struct passwd *getpwent_r(struct passwd *, char *, int); extern struct passwd *fgetpwent_r(FILE *, struct passwd *, char *, int); extern struct passwd *fgetpwent(FILE *); /* MT-unsafe */ extern int putpwent(const struct passwd *, FILE *); #endif /* defined(__EXTENSIONS__) || !defined(_POSIX_C_SOURCE) ... */ #if defined(__EXTENSIONS__) || \ (!defined(_POSIX_C_SOURCE) && !defined(_XOPEN_SOURCE)) || \ defined(_XPG4_2) extern void endpwent(void); extern struct passwd *getpwent(void); /* MT-unsafe */ extern void setpwent(void); #endif /* defined(__EXTENSIONS__) || (!defined(_POSIX_C_SOURCE) && ... */ #else /* (__STDC__) */ extern struct passwd *getpwuid(); /* MT-unsafe */ extern struct passwd *getpwnam(); /* MT-unsafe */ #if defined(__EXTENSIONS__) || \ (!defined(_POSIX_C_SOURCE) && !defined(_XOPEN_SOURCE)) extern struct passwd *getpwent_r(); extern struct passwd *fgetpwent_r(); extern struct passwd *fgetpwent(); /* MT-unsafe */ extern int putpwent(); #endif /* defined(__EXTENSIONS__) || (!defined(_POSIX_C_SOURCE) && ... */ #if defined(__EXTENSIONS__) || \ (!defined(_POSIX_C_SOURCE) && !defined(_XOPEN_SOURCE)) || \ defined(_XPG4_2) extern void endpwent(); extern struct passwd *getpwent(); /* MT-unsafe */ extern void setpwent(); #endif /* defined(__EXTENSIONS__) || (!defined(_POSIX_C_SOURCE) && ... */ #endif /* (__STDC__) */ /* * getpwuid_r() & getpwnam_r() prototypes are defined here. */ /* * Previous releases of Solaris, starting at 2.3, provided definitions of * various functions as specified in POSIX.1c, Draft 6. For some of these * functions, the final POSIX 1003.1c standard had a different number of * arguments and return values. * * The following segment of this header provides support for the standard * interfaces while supporting applications written under earlier * releases. The application defines appropriate values of the feature * test macros _POSIX_C_SOURCE and _POSIX_PTHREAD_SEMANTICS to indicate * whether it was written to expect the Draft 6 or standard versions of * these interfaces, before including this header. This header then * provides a mapping from the source version of the interface to an * appropriate binary interface. Such mappings permit an application * to be built from libraries and objects which have mixed expectations * of the definitions of these functions. * * For applications using the Draft 6 definitions, the binary symbol is * the same as the source symbol, and no explicit mapping is needed. For * the standard interface, the function func() is mapped to the binary * symbol _posix_func(). The preferred mechanism for the remapping is a * compiler #pragma. If the compiler does not provide such a #pragma, the * header file defines a static function func() which calls the * _posix_func() version; this is required if the application needs to * take the address of func(). * * NOTE: Support for the Draft 6 definitions is provided for compatibility * only. New applications/libraries should use the standard definitions. */ #if defined(__EXTENSIONS__) || \ (!defined(_POSIX_C_SOURCE) && !defined(_XOPEN_SOURCE)) || \ (_POSIX_C_SOURCE - 0 >= 199506L) || defined(_POSIX_PTHREAD_SEMANTICS) #if defined(__STDC__) #if (_POSIX_C_SOURCE - 0 >= 199506L) || defined(_POSIX_PTHREAD_SEMANTICS) #ifdef __PRAGMA_REDEFINE_EXTNAME extern int getpwuid_r(uid_t, struct passwd *, char *, int, struct passwd **); extern int getpwnam_r(const char *, struct passwd *, char *, int, struct passwd **); #pragma redefine_extname getpwuid_r __posix_getpwuid_r #pragma redefine_extname getpwnam_r __posix_getpwnam_r #else /* __PRAGMA_REDEFINE_EXTNAME */ static int getpwuid_r(uid_t __uid, struct passwd *__pwd, char *__buf, int __len, struct passwd **__res) { extern int __posix_getpwuid_r(uid_t, struct passwd *, char *, int, struct passwd **); return (__posix_getpwuid_r(__uid, __pwd, __buf, __len, __res)); } static int getpwnam_r(const char *__cb, struct passwd *__pwd, char *__buf, int __len, struct passwd **__res) { extern int __posix_getpwnam_r(const char *, struct passwd *, char *, int, struct passwd **); return (__posix_getpwnam_r(__cb, __pwd, __buf, __len, __res)); } #endif /* __PRAGMA_REDEFINE_EXTNAME */ #else /* (_POSIX_C_SOURCE - 0 >= 199506L) || ... */ extern struct passwd *getpwuid_r(uid_t, struct passwd *, char *, int); extern struct passwd *getpwnam_r(const char *, struct passwd *, char *, int); #endif /* (_POSIX_C_SOURCE - 0 >= 199506L) || ... */ #else /* __STDC__ */ #if (_POSIX_C_SOURCE - 0 >= 199506L) || defined(_POSIX_PTHREAD_SEMANTICS) #ifdef __PRAGMA_REDEFINE_EXTNAME extern int getpwuid_r(); extern int getpwnam_r(); #pragma redefine_extname getpwuid_r __posix_getpwuid_r #pragma redefine_extname getpwnam_r __posix_getpwnam_r #else /* __PRAGMA_REDEFINE_EXTNAME */ static int getpwuid_r(__uid, __pwd, __buf, __len, __res) uid_t __uid; struct passwd *__pwd; char *__buf; int __len; struct passwd **__res; { extern int __posix_getpwuid_r(); return (__posix_getpwuid_r(__uid, __pwd, __buf, __len, __res)); } static int getpwnam_r(__cb, __pwd, __buf, __len, __res) char *__cb; struct passwd *__pwd; char *__buf; int __len; struct passwd **__res; { extern int __posix_getpwnam_r(); return (__posix_getpwnam_r(__cb, __pwd, __buf, __len, __res)); } #endif /* __PRAGMA_REDEFINE_EXTNAME */ #else /* (_POSIX_C_SOURCE - 0 >= 199506L) || ... */ extern struct passwd *getpwuid_r(); extern struct passwd *getpwnam_r(); #endif /* (_POSIX_C_SOURCE - 0 >= 199506L) || ... */ #endif /* __STDC__ */ #endif /* defined(__EXTENSIONS__) || (__STDC__ == 0 ... */ #ifdef __cplusplus } #endif #endif /* _PWD_H */