#-----------------------------------------------------------------------------
-# $Id: Makefile,v 1.7 1997/07/21 11:31:42 andre Exp $
+# $Id: Makefile,v 1.8 1997/07/21 11:57:04 andre Exp $
TOP=..
CURRENT_DIR=ghc/driver
# Way `mp':
WAY_mp_NAME=parallel
WAY_mp_HC_OPTS+=-fstack-check -fconcurrent -D__PARALLEL_HASKELL__ -DPAR -optcpp-D__PARALLEL_HASKELL__ -optc-DPAR -optc-DCONCURRENT
-# try WAY_mp_HC_OPTS+=-fstack-check -fconcurrent -D__PARALLEL_HASKELL__ -DPAR -optcpp-D__CONCURRENT_HASKELL__ -optc-DPAR -optc-DCONCURRENT
#
# Way `mg':
GLOBAL_TASK_ID *PEStartUp PROTO((unsigned nPEs));
void PEShutDown(STG_NO_ARGS);
-void (*ExceptionHandler) PROTO((PACKET));
+extern void (*ExceptionHandler) PROTO((PACKET));
#endif /*PAR */
#endif /*defined __LLC_H */
{-# INLINE par #-}
{-# INLINE fork #-}
-#ifdef __CONCURRENT_HASKELL__
+#if defined(__PARALLEL_HASKELL__) || defined (__GRANSIM__)
par x y = case (par# x) of { 0# -> parError; _ -> y }
fork x y = case (fork# x) of { 0# -> parError; _ -> y }
#else
#-----------------------------------------------------------------------------
-# $Id: Makefile,v 1.7 1997/05/27 05:58:46 sof Exp $
+# $Id: Makefile,v 1.8 1997/07/21 12:00:03 andre Exp $
# This is the Makefile for the runtime-system stuff.
# This stuff is written in C (and cannot be written in Haskell).
gum/SysMan : gum/SysMan.mp_o gum/LLComms.mp_o main/Mallocs.o hooks/OutOfVM.o
$(RM) $@
- $(HC) $(HC_OPTS) -o $@ gum/SysMan.mp_o gum/LLComms.mp_o main/Mallocs.o hooks/OutOfVM.o -L$$PVM_ROOT/lib/$$PVM_ARCH -lpvm3 -lgpvm3 $(__socket_libs)
+ gcc -o $@ gum/SysMan.mp_o gum/LLComms.mp_o main/Mallocs.o hooks/OutOfVM.o -L$$PVM_ROOT/lib/$$PVM_ARCH -lpvm3 -lgpvm3 $(__socket_libs)
CLEAN_FILES += gum/SysMan.mp_o gum/SysMan
INSTALL_LIBS += gum/SysMan
rtsBool
exitSM (smInfo *sm_info)
{
+#ifndef PAR
int rc;
/* Upon closing down the storage manager, we free all foreign objects */
rc = freeForeigns(sm_info->ForeignObjList);
+#endif
/* Return code ignored for now */
stat_exit(sm_info->hp - hp_start);