/* -----------------------------------------------------------------------------
- * $Id: RtsFlags.c,v 1.70 2003/09/17 21:20:16 sof Exp $
+ * $Id: RtsFlags.c,v 1.72 2003/11/12 17:49:09 sof Exp $
*
* (c) The AQUA Project, Glasgow University, 1994-1997
* (c) The GHC Team, 1998-1999
0
};
-static __inline__ rtsBool
+STATIC_INLINE rtsBool
strequal(const char *a, const char * b)
{
return(strcmp(a, b) == 0);
char *last_slash;
/* Remove directory from argv[0] -- default files in current directory */
- if ((last_slash = (char *) strrchr(argv[0], '/')) != NULL) {
+ if ((last_slash = (char *) strrchr(argv[0],
+#if !defined(mingw32_TARGET_OS)
+ '/')
+#else
+ '\\')
+#endif
+ ) != NULL) {
prog_name = last_slash+1;
} else {
prog_name = argv[0];