/* -----------------------------------------------------------------------------
- $Id: Arena.c,v 1.6 2003/03/25 17:58:47 sof Exp $
(c) The University of Glasgow 2001
Arena allocation. Arenas provide fast memory allocation at the
/* -----------------------------------------------------------------------------
- $Id: Arena.h,v 1.2 2003/07/28 16:16:07 moran Exp $
(c) The University of Glasgow 2001
Arena allocation interface.
/* -----------------------------------------------------------------------------
- * $Id: BlockAlloc.c,v 1.19 2004/09/06 11:00:21 simonmar Exp $
*
* (c) The GHC Team 1998-2000
*
/* -----------------------------------------------------------------------------
- * $Id: BlockAlloc.h,v 1.10 2003/11/12 17:49:06 sof Exp $
*
* (c) The GHC Team, 1998-1999
*
/* -----------------------------------------------------------------------------
- * $Id: ClosureFlags.c,v 1.13 2002/12/11 15:36:41 simonmar Exp $
*
* (c) The GHC Team 1998-1999
*
-
/* -----------------------------------------------------------------------------
- * $Id: Disassembler.h,v 1.7 2001/02/11 17:51:07 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
/* -----------------------------------------------------------------------------
- * $Id: Exception.h,v 1.9 2004/08/13 13:09:46 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
/* -----------------------------------------------------------------------------
- * $Id: FrontPanel.c,v 1.10 2004/09/03 15:28:20 simonmar Exp $
*
* (c) The GHC Team 2000
*
/* -----------------------------------------------------------------------------
- * $Id: FrontPanel.h,v 1.1 2000/11/01 11:41:47 simonmar Exp $
*
* (c) The GHC Team 2000
*
/* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.169 2004/09/03 15:28:20 simonmar Exp $
*
* (c) The GHC Team 1998-2003
*
/* -----------------------------------------------------------------------------
- * $Id: GCCompact.c,v 1.20 2004/09/03 15:28:26 simonmar Exp $
*
* (c) The GHC Team 2001
*
/* -----------------------------------------------------------------------------
- * $Id: GCCompact.h,v 1.3 2003/11/12 17:49:07 sof Exp $
*
* (c) The GHC Team 1998-1999
*
/*-----------------------------------------------------------------------------
- * $Id: Hash.c,v 1.10 2003/03/25 17:58:47 sof Exp $
*
* (c) The AQUA Project, Glasgow University, 1995-1998
* (c) The GHC Team, 1999
/*-----------------------------------------------------------------------------
- * $Id: Hash.h,v 1.4 2000/12/04 12:31:21 simonmar Exp $
*
* (c) The GHC Team, 1999
*
/* -----------------------------------------------------------------------------
- * $Id: HsFFI.c,v 1.3 2004/04/12 16:26:41 panne Exp $
*
* (c) The GHC Team, 2002
*
/* -----------------------------------------------------------------------------
- * $Id: Interpreter.h,v 1.4 2002/12/11 15:36:42 simonmar Exp $
*
* (c) The GHC Team, 1998-2002.
*
/* -----------------------------------------------------------------------------
- * $Id: Itimer.c,v 1.37 2004/09/03 15:28:29 simonmar Exp $
*
* (c) The GHC Team, 1995-1999
*
/* -----------------------------------------------------------------------------
- * $Id: Itimer.h,v 1.13 2003/03/29 00:27:11 sof Exp $
*
* (c) The GHC Team 1998-2001
*
/* -----------------------------------------------------------------------------
- * $Id: LdvProfile.c,v 1.7 2004/08/13 13:10:05 simonmar Exp $
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
/* -----------------------------------------------------------------------------
- * $Id: LdvProfile.h,v 1.2 2001/11/26 16:54:21 simonmar Exp $
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
/* -----------------------------------------------------------------------------
- * $Id: LinkerInternals.h,v 1.7 2003/10/08 09:42:35 wolfgang Exp $
*
* (c) The GHC Team, 2000
*
/* -----------------------------------------------------------------------------
- * $Id: MBlock.c,v 1.51 2004/09/03 15:28:33 simonmar Exp $
*
* (c) The GHC Team 1998-1999
*
/* -----------------------------------------------------------------------------
- * $Id: MBlock.h,v 1.20 2004/08/13 13:10:10 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
/* -----------------------------------------------------------------------------
- * $Id: Main.c,v 1.42 2004/09/03 15:28:34 simonmar Exp $
*
* (c) The GHC Team 1998-2000
*
/* -----------------------------------------------------------------------------
- * $Id: Prelude.h,v 1.26 2004/08/13 13:10:12 simonmar Exp $
*
* (c) The GHC Team, 1998-2004
*
/* -----------------------------------------------------------------------------
- * $Id: Printer.c,v 1.64 2004/09/03 15:28:35 simonmar Exp $
*
* (c) The GHC Team, 1994-2000.
*
/* -----------------------------------------------------------------------------
- * $Id: Printer.h,v 1.7 2002/12/11 15:36:45 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
/* -----------------------------------------------------------------------------
- * $Id: ProfHeap.c,v 1.54 2004/09/03 15:28:35 simonmar Exp $
*
* (c) The GHC Team, 1998-2003
*
/* -----------------------------------------------------------------------------
- * $Id: ProfHeap.h,v 1.4 2001/12/12 14:31:43 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
/* -----------------------------------------------------------------------------
- * $Id: Profiling.c,v 1.40 2004/09/03 15:28:37 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
/* -----------------------------------------------------------------------------
- * $Id: Proftimer.c,v 1.13 2004/09/03 15:28:37 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
/* -----------------------------------------------------------------------------
- * $Id: Proftimer.h,v 1.6 2001/11/22 14:25:12 simonmar Exp $
*
* (c) The GHC Team, 1998
*
/* -----------------------------------------------------------------------------
- * $Id: RetainerProfile.c,v 1.12 2004/09/03 15:28:38 simonmar Exp $
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
/* -----------------------------------------------------------------------------
- * $Id: RetainerProfile.h,v 1.4 2004/08/13 13:10:29 simonmar Exp $
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
/* -----------------------------------------------------------------------------
- * $Id: RetainerSet.c,v 1.6 2004/09/03 15:28:39 simonmar Exp $
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
/* -----------------------------------------------------------------------------
- * $Id: RetainerSet.h,v 1.3 2004/09/03 15:28:39 simonmar Exp $
*
* (c) The GHC Team, 2001
* Author: Sungwoo Park
/* ----------------------------------------------------------------------------
- * $Id: RtsAPI.c,v 1.52 2004/09/03 15:28:39 simonmar Exp $
*
* (c) The GHC Team, 1998-2001
*
/* -----------------------------------------------------------------------------
- * $Id: RtsDllMain.c,v 1.3 2001/08/14 13:40:09 sewardj Exp $
*
* (c) The GHC Team 1999-2000
*
/* -----------------------------------------------------------------------------
- * $Id: RtsFlags.c,v 1.76 2004/09/03 15:28:40 simonmar Exp $
*
* (c) The AQUA Project, Glasgow University, 1994-1997
* (c) The GHC Team, 1998-1999
/* -----------------------------------------------------------------------------
- * $Id: RtsStartup.c,v 1.83 2004/09/03 15:28:42 simonmar Exp $
*
* (c) The GHC Team, 1998-2002
*
/* -----------------------------------------------------------------------------
- * $Id: Sanity.h,v 1.10 2002/12/11 15:36:50 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
/* -----------------------------------------------------------------------------
- * $Id: Select.c,v 1.33 2004/09/03 15:28:53 simonmar Exp $
*
* (c) The GHC Team 1995-2002
*
/* -----------------------------------------------------------------------------
- * $Id: Signals.c,v 1.42 2004/09/03 15:28:53 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
/* -----------------------------------------------------------------------------
- * $Id: Signals.h,v 1.12 2003/10/20 17:15:29 sof Exp $
*
* (c) The GHC Team, 1998-1999
*
/* ---------------------------------------------------------------------------
- * $Id: Sparks.c,v 1.8 2004/09/03 15:28:54 simonmar Exp $
*
* (c) The GHC Team, 2000
*
/* -----------------------------------------------------------------------------
- * $Id: Sparks.h,v 1.4 2002/01/24 02:06:49 sof Exp $
*
* (c) The GHC Team, 2000
*
/* -----------------------------------------------------------------------------
- * $Id: Stable.c,v 1.30 2004/09/03 15:28:55 simonmar Exp $
*
* (c) The GHC Team, 1998-2002
*
/* -----------------------------------------------------------------------------
- * $Id: Stats.h,v 1.18 2004/05/27 09:29:29 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
/* -----------------------------------------------------------------------------
- * $Id: StgCRun.c,v 1.44 2004/09/03 15:28:56 simonmar Exp $
*
* (c) The GHC Team, 1998-2003
*
/* -----------------------------------------------------------------------------
- * $Id: StgPrimFloat.c,v 1.9 2002/07/17 09:21:51 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
/* -----------------------------------------------------------------------------
- * $Id: StrHash.c,v 1.3 2001/08/14 13:40:09 sewardj Exp $
*
* (c) The GHC Team, 1994-2000
*
/* -----------------------------------------------------------------------------
- * $Id: StrHash.h,v 1.1 2000/04/05 15:32:08 simonmar Exp $
*
* (c) The GHC Team, 1994-2000
*
/* -----------------------------------------------------------------------------
- * $Id: Ticky.c,v 1.18 2004/08/13 13:11:08 simonmar Exp $
*
* (c) The AQUA project, Glasgow University, 1992-1997
* (c) The GHC Team, 1998-1999
/* -----------------------------------------------------------------------------
- * $Id: Ticky.h,v 1.1 1999/01/21 10:31:53 simonm Exp $
*
* (c) The GHC Team 1999
*
/* -----------------------------------------------------------------------------
- * $Id: VisCallbacks.c,v 1.2 2001/08/14 13:40:09 sewardj Exp $
*
* (c) The GHC Team 2000
*
/* -----------------------------------------------------------------------------
- * $Id: Weak.c,v 1.33 2004/09/03 15:28:59 simonmar Exp $
*
* (c) The GHC Team, 1998-1999
*
/* Copyright (C) 1989, 1997, 1998, 1999 Aladdin Enterprises. All rights reserved. */
-/*$Id: ansi2knr.c,v 1.1 2000/08/18 15:44:26 simonmar Exp $*/
/* Convert ANSI C function definitions to K&R ("traditional C") syntax */
/*
shift
pathcomp=
- for d in ${1+"$@"} ; do
+ for d
+ do
pathcomp="$pathcomp$d"
case "$pathcomp" in
-* ) pathcomp=./$pathcomp ;;
esac
if test ! -d "$pathcomp"; then
- echo "mkdir $pathcomp" 1>&2
- mkdir "$pathcomp" || errstatus=$?
+ echo "mkdir $pathcomp"
+
+ mkdir "$pathcomp" || lasterr=$?
+
+ if test ! -d "$pathcomp"; then
+ errstatus=$lasterr
+ fi
fi
pathcomp="$pathcomp/"
/* -----------------------------------------------------------------------------
- * $Id: FlagDefaults.c,v 1.2 1998/12/02 13:29:11 simonm Exp $
*
* User-overridable RTS hooks.
*
/* -----------------------------------------------------------------------------
- * $Id: InitEachPE.c,v 1.3 2001/03/22 03:51:11 hwloidl Exp $
*
* User-overridable RTS hooks.
*
/* -----------------------------------------------------------------------------
- * $Id: MallocFail.c,v 1.3 2002/07/17 09:21:51 simonmar Exp $
*
* User-overridable RTS hooks.
*
/* -----------------------------------------------------------------------------
- * $Id: OnExit.c,v 1.2 1998/12/02 13:29:14 simonm Exp $
*
* User-overridable RTS hooks.
*
/* -----------------------------------------------------------------------------
- * $Id: OutOfHeap.c,v 1.5 2003/10/31 16:22:11 sof Exp $
*
* User-overridable RTS hooks.
*
/* -----------------------------------------------------------------------------
- * $Id: RtsOpts.c,v 1.2 2002/07/17 09:21:51 simonmar Exp $
*
* Default RTS options.
*
/* -----------------------------------------------------------------------------
- * $Id: ShutdownEachPEHook.c,v 1.1 2001/03/22 03:51:11 hwloidl Exp $
*
* User-overridable RTS hooks.
*
/* -----------------------------------------------------------------------------
- * $Id: StackOverflow.c,v 1.3 2002/07/17 09:21:51 simonmar Exp $
*
* User-overridable RTS hooks.
*
/*-----------------------------------------------------------------------------
- * $Id: 0Hash.c,v 1.2 2000/01/13 14:34:06 hwloidl Exp $
*
* (c) The AQUA Project, Glasgow University, 1995-1998
* (c) The GHC Team, 1999
/* -----------------------------------------------------------------------------
- * $Id: FetchMe.h,v 1.3 2001/03/22 03:51:11 hwloidl Exp $
*
* Closure types for the parallel system.
*
/* ----------------------------------------------------------------------------
Time-stamp: <Tue Mar 06 2001 17:01:46 Stardate: [-30]6288.54 hwloidl>
- $Id: FetchMe.hc,v 1.7 2001/03/23 16:36:21 simonmar Exp $
Entry code for a FETCH_ME closure
/* ---------------------------------------------------------------------------
Time-stamp: <Wed Mar 21 2001 16:32:23 Stardate: [-30]6363.44 hwloidl>
- $Id: Global.c,v 1.4 2001/03/22 03:51:11 hwloidl Exp $
(c) The AQUA/Parade Projects, Glasgow University, 1995
The GdH/APART 624 Projects, Heriot-Watt University, Edinburgh, 1999
/*
Time-stamp: <Tue Mar 06 2001 00:17:42 Stardate: [-30]6285.06 hwloidl>
- $Id: GranSim.c,v 1.5 2001/07/23 17:23:20 simonmar Exp $
Variables and functions specific to GranSim the parallelism simulator
for GPH.
/* --------------------------------------------------------------------------
Time-stamp: <Tue Mar 06 2001 00:18:30 Stardate: [-30]6285.06 hwloidl>
- $Id: GranSimRts.h,v 1.4 2001/03/22 03:51:11 hwloidl Exp $
Variables and functions specific to GranSim.
----------------------------------------------------------------------- */
/* --------------------------------------------------------------------------
Time-stamp: <Sun Mar 18 2001 20:16:14 Stardate: [-30]6349.22 hwloidl>
- $Id: HLC.h,v 1.3 2001/03/22 03:51:11 hwloidl Exp $
High Level Communications Header (HLC.h)
/* ----------------------------------------------------------------------------
* Time-stamp: <Wed Mar 21 2001 16:34:41 Stardate: [-30]6363.45 hwloidl>
- * $Id: HLComms.c,v 1.6 2001/08/14 13:40:10 sewardj Exp $
*
* High Level Communications Routines (HLComms.lc)
*
/* --------------------------------------------------------------------------
Time-stamp: <Sun Mar 18 2001 21:23:50 Stardate: [-30]6349.45 hwloidl>
- $Id: LLC.h,v 1.4 2001/03/22 03:51:11 hwloidl Exp $
Low Level Communications Header (LLC.h)
/* ----------------------------------------------------------------------------
* Time-stamp: <Mon Mar 19 2001 22:10:38 Stardate: [-30]6354.62 hwloidl>
- * $Id: LLComms.c,v 1.5 2001/08/14 13:40:10 sewardj Exp $
*
* GUM Low-Level Inter-Task Communication
*
/*
Time-stamp: <Wed Mar 21 2001 16:32:47 Stardate: [-30]6363.44 hwloidl>
- $Id: Pack.c,v 1.8 2001/07/24 05:04:59 ken Exp $
Graph packing and unpacking code for sending it to another processor
and retrieving the original graph structure from the packet.
/* --------------------------------------------------------------------------
Time-stamp: <Wed Mar 21 2001 16:37:16 Stardate: [-30]6363.46 hwloidl>
- $Id: ParInit.c,v 1.5 2001/08/14 13:40:10 sewardj Exp $
Initialising the parallel RTS
/* -------------------------------------------------------------------------
- * $Id: ParTicky.c,v 1.1 2001/03/22 03:51:11 hwloidl Exp $
*
* (c) Hans-Wolfgang Loidl, 2000-
*
/* --------------------------------------------------------------------------
- * $Id: ParTicky.h,v 1.1 2001/03/22 03:51:11 hwloidl Exp $
*
* (c) Hans-Wolfgang Loidl, 2000-
*
/* ---------------------------------------------------------------------------
* Time-stamp: <Tue Nov 09 1999 16:31:38 Stardate: [-30]3873.44 hwloidl>
- * $Id: ParTypes.h,v 1.2 2000/01/13 14:34:08 hwloidl Exp $
*
* Runtime system types for GUM
*
/* --------------------------------------------------------------------------
Time-stamp: <Tue Mar 06 2001 00:25:50 Stardate: [-30]6285.08 hwloidl>
- $Id: ParallelRts.h,v 1.4 2001/03/22 03:51:12 hwloidl Exp $
Variables and functions specific to the parallel RTS (i.e. GUM or GranSim)
----------------------------------------------------------------------- */
/* ----------------------------------------------------------------------------
Time-stamp: <Wed Mar 21 2001 17:16:28 Stardate: [-30]6363.59 hwloidl>
- $Id: SysMan.c,v 1.5 2001/08/14 13:40:10 sewardj Exp $
GUM System Manager Program
Handles startup, shutdown and global synchronisation of the parallel system.
IF_PAR_DEBUG(verbose,
fprintf(stderr,
- "==== RFP: GdH enabled SysMan reporting for duty ($Revision: 1.5 $)\n"));
+ "==== RFP: GdH enabled SysMan reporting for duty ($Revision: 1.6 $)\n"));
if (argc > 1) {
if (*argv[1] == '-') {