summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
65f4e29)
forkProcess() mingw unused arg tweak
/* ---------------------------------------------------------------------------
/* ---------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.139 2002/04/23 09:56:28 stolz Exp $
+ * $Id: Schedule.c,v 1.140 2002/04/23 14:20:18 sof Exp $
*
* (c) The GHC Team, 1998-2000
*
*
* (c) The GHC Team, 1998-2000
*
}
return pid;
#else /* mingw32 */
}
return pid;
#else /* mingw32 */
- barf("forkProcess#: primop not implemented for mingw32, sorry!");
+ barf("forkProcess#: primop not implemented for mingw32, sorry! (%u)\n", tso->id);
+ /* pointlessly printing out the TSOs 'id' to avoid CC unused warning. */
return -1;
#endif /* mingw32 */
}
return -1;
#endif /* mingw32 */
}