diff options
85 files changed, 262 insertions, 118 deletions
diff --git a/ghc/includes/Assembler.h b/ghc/includes/Assembler.h index 105acf3cf1..98c14792ea 100644 --- a/ghc/includes/Assembler.h +++ b/ghc/includes/Assembler.h @@ -1,12 +1,10 @@ /* -*- mode: hugs-c; -*- */ /* ----------------------------------------------------------------------------- - * Bytecode assembler + * $Id: Assembler.h,v 1.4 1999/02/05 16:02:18 simonm Exp $ * - * Copyright (c) 1994-1998. + * (c) The GHC Team 1994-1998. * - * $RCSfile: Assembler.h,v $ - * $Revision: 1.3 $ - * $Date: 1999/01/18 15:23:30 $ + * Bytecode assembler * * NB This is one of the few files shared between Hugs and the runtime system, * so it is very important that it not conflict with either and that it not diff --git a/ghc/includes/Block.h b/ghc/includes/Block.h index 113145e4a4..f924a8e93f 100644 --- a/ghc/includes/Block.h +++ b/ghc/includes/Block.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Block.h,v 1.3 1999/01/13 17:25:51 simonm Exp $ + * $Id: Block.h,v 1.4 1999/02/05 16:02:19 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Block structure for the storage manager * diff --git a/ghc/includes/CCall.h b/ghc/includes/CCall.h index 8ad6499df6..97ff9df649 100644 --- a/ghc/includes/CCall.h +++ b/ghc/includes/CCall.h @@ -1,7 +1,10 @@ /* ----------------------------------------------------------------------------- - * $Id: CCall.h,v 1.2 1998/12/02 13:20:53 simonm Exp $ + * $Id: CCall.h,v 1.3 1999/02/05 16:02:19 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Macros for performing C calls from the STG world. + * * -------------------------------------------------------------------------- */ #ifndef CCALL_H diff --git a/ghc/includes/ClosureMacros.h b/ghc/includes/ClosureMacros.h index 76bec3e8e5..c99caaa02d 100644 --- a/ghc/includes/ClosureMacros.h +++ b/ghc/includes/ClosureMacros.h @@ -1,5 +1,7 @@ /* ---------------------------------------------------------------------------- - * $Id: ClosureMacros.h,v 1.3 1999/01/13 17:25:52 simonm Exp $ + * $Id: ClosureMacros.h,v 1.4 1999/02/05 16:02:20 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Macros for building and manipulating closures * diff --git a/ghc/includes/ClosureTypes.h b/ghc/includes/ClosureTypes.h index 65502a73db..544bc76647 100644 --- a/ghc/includes/ClosureTypes.h +++ b/ghc/includes/ClosureTypes.h @@ -1,6 +1,8 @@ /* ---------------------------------------------------------------------------- - * $Id: ClosureTypes.h,v 1.8 1999/02/05 15:25:01 simonm Exp $ + * $Id: ClosureTypes.h,v 1.9 1999/02/05 16:02:20 simonm Exp $ * + * (c) The GHC Team, 1998-1999 + * * Closure Type Constants * * -------------------------------------------------------------------------- */ diff --git a/ghc/includes/Closures.h b/ghc/includes/Closures.h index 3557827046..f1b9169be0 100644 --- a/ghc/includes/Closures.h +++ b/ghc/includes/Closures.h @@ -1,5 +1,7 @@ /* ---------------------------------------------------------------------------- - * $Id: Closures.h,v 1.6 1999/02/05 12:41:31 sof Exp $ + * $Id: Closures.h,v 1.7 1999/02/05 16:02:21 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Closures * diff --git a/ghc/includes/Constants.h b/ghc/includes/Constants.h index fbb3dbf4ea..2e2c37bbe2 100644 --- a/ghc/includes/Constants.h +++ b/ghc/includes/Constants.h @@ -1,5 +1,7 @@ /* ---------------------------------------------------------------------------- - * $Id: Constants.h,v 1.4 1999/01/26 16:16:20 simonm Exp $ + * $Id: Constants.h,v 1.5 1999/02/05 16:02:21 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Constants * diff --git a/ghc/includes/Hooks.h b/ghc/includes/Hooks.h index 3a53f19991..16e28775b1 100644 --- a/ghc/includes/Hooks.h +++ b/ghc/includes/Hooks.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Hooks.h,v 1.2 1998/12/02 13:21:08 simonm Exp $ + * $Id: Hooks.h,v 1.3 1999/02/05 16:02:22 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * User-overridable RTS hooks. * diff --git a/ghc/includes/InfoMacros.h b/ghc/includes/InfoMacros.h index 4ff825e839..c64864e1d2 100644 --- a/ghc/includes/InfoMacros.h +++ b/ghc/includes/InfoMacros.h @@ -1,6 +1,8 @@ /* ---------------------------------------------------------------------------- - * $Id: InfoMacros.h,v 1.2 1998/12/02 13:21:09 simonm Exp $ + * $Id: InfoMacros.h,v 1.3 1999/02/05 16:02:22 simonm Exp $ * + * (c) The GHC Team, 1998-1999 + * * Macros for building and deconstructing info tables. * * -------------------------------------------------------------------------- */ diff --git a/ghc/includes/InfoTables.h b/ghc/includes/InfoTables.h index e7bc9a1db3..38079b740e 100644 --- a/ghc/includes/InfoTables.h +++ b/ghc/includes/InfoTables.h @@ -1,6 +1,8 @@ /* ---------------------------------------------------------------------------- - * $Id: InfoTables.h,v 1.9 1999/02/05 15:25:02 simonm Exp $ + * $Id: InfoTables.h,v 1.10 1999/02/05 16:02:23 simonm Exp $ * + * (c) The GHC Team, 1998-1999 + * * Info Tables * * -------------------------------------------------------------------------- */ diff --git a/ghc/includes/MachDeps.h b/ghc/includes/MachDeps.h index 1b52fd043a..eb8b6d7088 100644 --- a/ghc/includes/MachDeps.h +++ b/ghc/includes/MachDeps.h @@ -1,7 +1,8 @@ /* ----------------------------------------------------------------------------- - * $Id: MachDeps.h,v 1.2 1998/12/02 13:21:12 simonm Exp $ + * $Id: MachDeps.h,v 1.3 1999/02/05 16:02:23 simonm Exp $ * * (c) The GRASP/AQUA Project, Glasgow University, 1998 + * (c) The GHC Team, 1998-1999 * * Definitions that characterise machine specific properties of basic * Stg types provided as unboxed types (mirrors the typedefs in diff --git a/ghc/includes/MachRegs.h b/ghc/includes/MachRegs.h index b4272d7879..d69b7b5808 100644 --- a/ghc/includes/MachRegs.h +++ b/ghc/includes/MachRegs.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: MachRegs.h,v 1.3 1999/01/18 14:31:50 sof Exp $ + * $Id: MachRegs.h,v 1.4 1999/02/05 16:02:23 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Registers used in STG code. Might or might not correspond to * actual machine registers. diff --git a/ghc/includes/Prelude.h b/ghc/includes/Prelude.h index dedfdbe605..a66c54bdc5 100644 --- a/ghc/includes/Prelude.h +++ b/ghc/includes/Prelude.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Prelude.h,v 1.4 1999/01/27 14:51:14 simonpj Exp $ + * $Id: Prelude.h,v 1.5 1999/02/05 16:02:24 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Prelude identifiers that we sometimes need to refer to in the RTS. * diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h index fe32074e30..119894de24 100644 --- a/ghc/includes/PrimOps.h +++ b/ghc/includes/PrimOps.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: PrimOps.h,v 1.15 1999/02/05 15:25:03 simonm Exp $ + * $Id: PrimOps.h,v 1.16 1999/02/05 16:02:25 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Macros for primitive operations in STG-ish C code. * diff --git a/ghc/includes/Profiling.h b/ghc/includes/Profiling.h index 8be56facd3..0c3ca36075 100644 --- a/ghc/includes/Profiling.h +++ b/ghc/includes/Profiling.h @@ -1,7 +1,10 @@ /* ----------------------------------------------------------------------------- - * $Id: Profiling.h,v 1.2 1998/12/02 13:21:19 simonm Exp $ + * $Id: Profiling.h,v 1.3 1999/02/05 16:02:26 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Cost-Centre Stack Profiling Include + * * ---------------------------------------------------------------------------*/ diff --git a/ghc/includes/Regs.h b/ghc/includes/Regs.h index a490820138..e1b59ff19d 100644 --- a/ghc/includes/Regs.h +++ b/ghc/includes/Regs.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Regs.h,v 1.2 1998/12/02 13:21:20 simonm Exp $ + * $Id: Regs.h,v 1.3 1999/02/05 16:02:26 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Registers used in STG code. Might or might not correspond to * actual machine registers. diff --git a/ghc/includes/Rts.h b/ghc/includes/Rts.h index b649e0b4d0..77f095cc74 100644 --- a/ghc/includes/Rts.h +++ b/ghc/includes/Rts.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Rts.h,v 1.5 1999/01/26 11:12:57 simonm Exp $ + * $Id: Rts.h,v 1.6 1999/02/05 16:02:27 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Top-level include file for the RTS itself * diff --git a/ghc/includes/RtsAPI.h b/ghc/includes/RtsAPI.h index fc22d0bd8e..cc6f7e7e32 100644 --- a/ghc/includes/RtsAPI.h +++ b/ghc/includes/RtsAPI.h @@ -1,5 +1,7 @@ /* ---------------------------------------------------------------------------- - * $Id: RtsAPI.h,v 1.2 1998/12/02 13:21:21 simonm Exp $ + * $Id: RtsAPI.h,v 1.3 1999/02/05 16:02:27 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * API for invoking Haskell functions via the RTS * diff --git a/ghc/includes/Stable.h b/ghc/includes/Stable.h index 7ffa369d5f..4552439e87 100644 --- a/ghc/includes/Stable.h +++ b/ghc/includes/Stable.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Stable.h,v 1.1 1999/01/26 14:04:46 simonm Exp $ + * $Id: Stable.h,v 1.2 1999/02/05 16:02:28 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Stable names and stable pointers * diff --git a/ghc/includes/Stg.h b/ghc/includes/Stg.h index 3c9a1b4682..f38eba4016 100644 --- a/ghc/includes/Stg.h +++ b/ghc/includes/Stg.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Stg.h,v 1.5 1999/01/26 11:12:57 simonm Exp $ + * $Id: Stg.h,v 1.6 1999/02/05 16:02:28 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Top-level include file for everything STG-ish. * diff --git a/ghc/includes/StgMacros.h b/ghc/includes/StgMacros.h index c4a14210d3..646f0fc614 100644 --- a/ghc/includes/StgMacros.h +++ b/ghc/includes/StgMacros.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgMacros.h,v 1.4 1999/01/23 17:51:27 sof Exp $ + * $Id: StgMacros.h,v 1.5 1999/02/05 16:02:28 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Macros used for writing STG-ish C code. * diff --git a/ghc/includes/StgMiscClosures.h b/ghc/includes/StgMiscClosures.h index 2f625b6536..12f0a1c766 100644 --- a/ghc/includes/StgMiscClosures.h +++ b/ghc/includes/StgMiscClosures.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgMiscClosures.h,v 1.8 1999/02/05 15:25:03 simonm Exp $ + * $Id: StgMiscClosures.h,v 1.9 1999/02/05 16:02:29 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Entry code for various built-in closure types. * diff --git a/ghc/includes/StgStorage.h b/ghc/includes/StgStorage.h index 964757bb45..c01f68b9bd 100644 --- a/ghc/includes/StgStorage.h +++ b/ghc/includes/StgStorage.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgStorage.h,v 1.2 1998/12/02 13:21:41 simonm Exp $ + * $Id: StgStorage.h,v 1.3 1999/02/05 16:02:29 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * STG Storage Manger Interface * diff --git a/ghc/includes/StgTicky.h b/ghc/includes/StgTicky.h index 014569e0f7..bd4fa1c129 100644 --- a/ghc/includes/StgTicky.h +++ b/ghc/includes/StgTicky.h @@ -1,5 +1,8 @@ /* ---------------------------------------------------------------------------- - * $Id: StgTicky.h,v 1.2 1999/02/02 14:21:28 simonm Exp $ + * $Id: StgTicky.h,v 1.3 1999/02/05 16:02:30 simonm Exp $ + * + * (c) The AQUA project, Glasgow University, 1994-1997 + * (c) The GHC Team, 1998-1999 * * Ticky-ticky profiling macros. * diff --git a/ghc/includes/StgTypes.h b/ghc/includes/StgTypes.h index c067521557..91f13b0b88 100644 --- a/ghc/includes/StgTypes.h +++ b/ghc/includes/StgTypes.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgTypes.h,v 1.3 1999/01/26 11:12:58 simonm Exp $ + * $Id: StgTypes.h,v 1.4 1999/02/05 16:02:30 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Various C datatypes used in the run-time system. diff --git a/ghc/includes/TSO.h b/ghc/includes/TSO.h index c5f53c4e97..f22cbe57b5 100644 --- a/ghc/includes/TSO.h +++ b/ghc/includes/TSO.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: TSO.h,v 1.3 1999/01/13 17:25:55 simonm Exp $ + * $Id: TSO.h,v 1.4 1999/02/05 16:02:30 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * The definitions for Thread State Objects. * diff --git a/ghc/includes/TailCalls.h b/ghc/includes/TailCalls.h index b59abb4bc3..ab6edd061c 100644 --- a/ghc/includes/TailCalls.h +++ b/ghc/includes/TailCalls.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: TailCalls.h,v 1.2 1998/12/02 13:21:43 simonm Exp $ + * $Id: TailCalls.h,v 1.3 1999/02/05 16:02:31 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Stuff for implementing proper tail jumps. * diff --git a/ghc/includes/Updates.h b/ghc/includes/Updates.h index 04838e777c..ebcebf18c4 100644 --- a/ghc/includes/Updates.h +++ b/ghc/includes/Updates.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Updates.h,v 1.6 1999/01/21 10:31:45 simonm Exp $ + * $Id: Updates.h,v 1.7 1999/02/05 16:02:31 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Definitions related to updates. * diff --git a/ghc/rts/Assembler.c b/ghc/rts/Assembler.c index 42ebbc2a75..f1e71a1589 100644 --- a/ghc/rts/Assembler.c +++ b/ghc/rts/Assembler.c @@ -1,12 +1,10 @@ /* -*- mode: hugs-c; -*- */ /* -------------------------------------------------------------------------- - * Bytecode assembler + * $Id: Assembler.c,v 1.4 1999/02/05 16:02:34 simonm Exp $ * - * Copyright (c) 1994-1998. + * Copyright (c) The GHC Team 1994-1998. * - * $RCSfile: Assembler.c,v $ - * $Revision: 1.3 $ - * $Date: 1999/01/27 14:51:16 $ + * Bytecode assembler * * This module provides functions to construct BCOs and other closures * required by the bytecode compiler. diff --git a/ghc/rts/BlockAlloc.c b/ghc/rts/BlockAlloc.c index 26f2a60bc5..7c7dcae24b 100644 --- a/ghc/rts/BlockAlloc.c +++ b/ghc/rts/BlockAlloc.c @@ -1,6 +1,8 @@ /* ----------------------------------------------------------------------------- - * $Id: BlockAlloc.c,v 1.3 1999/01/13 17:25:37 simonm Exp $ + * $Id: BlockAlloc.c,v 1.4 1999/02/05 16:02:35 simonm Exp $ * + * (c) The GHC Team 1998-1999 + * * The block allocator and free list manager. * * This is the architecture independent part of the block allocator. diff --git a/ghc/rts/BlockAlloc.h b/ghc/rts/BlockAlloc.h index a121917c21..ab6b199740 100644 --- a/ghc/rts/BlockAlloc.h +++ b/ghc/rts/BlockAlloc.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: BlockAlloc.h,v 1.4 1999/02/03 16:32:47 simonm Exp $ + * $Id: BlockAlloc.h,v 1.5 1999/02/05 16:02:36 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Block Allocator Interface * diff --git a/ghc/rts/Bytecodes.h b/ghc/rts/Bytecodes.h index c484863c97..daf3a9e4d6 100644 --- a/ghc/rts/Bytecodes.h +++ b/ghc/rts/Bytecodes.h @@ -1,4 +1,12 @@ /* -*- mode: hugs-c; -*- */ +/* ----------------------------------------------------------------------------- + * $Id: Bytecodes.h,v 1.3 1999/02/05 16:02:36 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 + * + * Bytecode definitions. + * + * ---------------------------------------------------------------------------*/ /* -------------------------------------------------------------------------- * Instructions diff --git a/ghc/rts/DebugProf.c b/ghc/rts/DebugProf.c index cd7ff5b951..7cd73eb39c 100644 --- a/ghc/rts/DebugProf.c +++ b/ghc/rts/DebugProf.c @@ -1,7 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: DebugProf.c,v 1.5 1999/02/05 15:25:04 simonm Exp $ + * $Id: DebugProf.c,v 1.6 1999/02/05 16:02:36 simonm Exp $ * - * (c) The GHC Team 1998 + * (c) The GHC Team 1998-1999 * * Simple Heap Profiling * diff --git a/ghc/rts/Disassembler.c b/ghc/rts/Disassembler.c index 35d0c1c2fd..65ef9f4f4e 100644 --- a/ghc/rts/Disassembler.c +++ b/ghc/rts/Disassembler.c @@ -1,12 +1,11 @@ /* -*- mode: hugs-c; -*- */ /* ----------------------------------------------------------------------------- - * Bytecode disassembler + * $Id: Disassembler.c,v 1.3 1999/02/05 16:02:37 simonm Exp $ + * + * Copyright (c) The GHC Team 1994-1999. * - * Copyright (c) 1994-1998. + * Bytecode disassembler * - * $RCSfile: Disassembler.c,v $ - * $Revision: 1.2 $ - * $Date: 1998/12/02 13:28:15 $ * ---------------------------------------------------------------------------*/ #include "Rts.h" diff --git a/ghc/rts/Disassembler.h b/ghc/rts/Disassembler.h index 258ccaba9d..d4d05a0dc3 100644 --- a/ghc/rts/Disassembler.h +++ b/ghc/rts/Disassembler.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Disassembler.h,v 1.2 1998/12/02 13:28:16 simonm Exp $ + * $Id: Disassembler.h,v 1.3 1999/02/05 16:02:37 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Prototypes for functions in Disassembler.c * diff --git a/ghc/rts/Evaluator.c b/ghc/rts/Evaluator.c index b27c128fc1..ebc5bf4a6f 100644 --- a/ghc/rts/Evaluator.c +++ b/ghc/rts/Evaluator.c @@ -1,12 +1,11 @@ /* ----------------------------------------------------------------------------- - * Bytecode evaluator + * $Id: Evaluator.c,v 1.8 1999/02/05 16:02:38 simonm Exp $ + * + * Copyright (c) The GHC Team 1994-1999. * - * Copyright (c) 1994-1998. + * Bytecode evaluator * - * $RCSfile: Evaluator.c,v $ - * $Revision: 1.7 $ - * $Date: 1999/02/05 15:25:05 $ * ---------------------------------------------------------------------------*/ #include "Rts.h" diff --git a/ghc/rts/Evaluator.h b/ghc/rts/Evaluator.h index 3f9d735849..0ed9888ab0 100644 --- a/ghc/rts/Evaluator.h +++ b/ghc/rts/Evaluator.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Evaluator.h,v 1.3 1999/01/27 14:51:20 simonpj Exp $ + * $Id: Evaluator.h,v 1.4 1999/02/05 16:02:40 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Prototypes for functions in Evaluator.c * diff --git a/ghc/rts/ForeignCall.c b/ghc/rts/ForeignCall.c index 6974c29954..ff78cb9b4b 100644 --- a/ghc/rts/ForeignCall.c +++ b/ghc/rts/ForeignCall.c @@ -1,12 +1,11 @@ /* -*- mode: hugs-c; -*- */ /* ----------------------------------------------------------------------------- - * Foreign Function calls + * $Id: ForeignCall.c,v 1.3 1999/02/05 16:02:40 simonm Exp $ + * + * (c) The GHC Team 1994-1999. * - * Copyright (c) 1994-1998. + * Foreign Function calls * - * $RCSfile: ForeignCall.c,v $ - * $Revision: 1.2 $ - * $Date: 1998/12/02 13:28:21 $ * ---------------------------------------------------------------------------*/ #include "Rts.h" diff --git a/ghc/rts/ForeignCall.h b/ghc/rts/ForeignCall.h index 508f49fb05..8718ca01f8 100644 --- a/ghc/rts/ForeignCall.h +++ b/ghc/rts/ForeignCall.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: ForeignCall.h,v 1.2 1998/12/02 13:28:23 simonm Exp $ + * $Id: ForeignCall.h,v 1.3 1999/02/05 16:02:41 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Prototypes for functions in ForeignCall.c * diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c index 3311550567..e53d687da6 100644 --- a/ghc/rts/GC.c +++ b/ghc/rts/GC.c @@ -1,7 +1,9 @@ /* ----------------------------------------------------------------------------- - * $Id: GC.c,v 1.26 1999/02/05 15:25:07 simonm Exp $ + * $Id: GC.c,v 1.27 1999/02/05 16:02:41 simonm Exp $ * - * Two-space garbage collector + * (c) The GHC Team 1998-1999 + * + * Generational garbage collector * * ---------------------------------------------------------------------------*/ diff --git a/ghc/rts/GC.h b/ghc/rts/GC.h index 7b42b4e262..dc7beb8ec2 100644 --- a/ghc/rts/GC.h +++ b/ghc/rts/GC.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: GC.h,v 1.3 1999/01/26 11:12:45 simonm Exp $ + * $Id: GC.h,v 1.4 1999/02/05 16:02:43 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Prototypes for functions in GC.c * diff --git a/ghc/rts/HeapStackCheck.hc b/ghc/rts/HeapStackCheck.hc index 7d814eed32..2584c6853c 100644 --- a/ghc/rts/HeapStackCheck.hc +++ b/ghc/rts/HeapStackCheck.hc @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: HeapStackCheck.hc,v 1.2 1998/12/02 13:28:26 simonm Exp $ + * $Id: HeapStackCheck.hc,v 1.3 1999/02/05 16:02:43 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Canned Heap-Check and Stack-Check sequences. * diff --git a/ghc/rts/Itimer.c b/ghc/rts/Itimer.c index 99811c7a03..d40ab4e7c4 100644 --- a/ghc/rts/Itimer.c +++ b/ghc/rts/Itimer.c @@ -1,7 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Itimer.c,v 1.2 1998/12/02 13:28:27 simonm Exp $ + * $Id: Itimer.c,v 1.3 1999/02/05 16:02:44 simonm Exp $ * - * (c) The GHC Team, 1995-1998 + * (c) The GHC Team, 1995-1999 * * Interval timer for profiling and pre-emptive scheduling. * diff --git a/ghc/rts/Itimer.h b/ghc/rts/Itimer.h index e415074d86..0876e84453 100644 --- a/ghc/rts/Itimer.h +++ b/ghc/rts/Itimer.h @@ -1,7 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Itimer.h,v 1.2 1998/12/02 13:28:28 simonm Exp $ + * $Id: Itimer.h,v 1.3 1999/02/05 16:02:44 simonm Exp $ * - * (c) The GHC Team 1998 + * (c) The GHC Team 1998-1999 * * Interval timer for profiling and pre-emptive scheduling. * diff --git a/ghc/rts/MBlock.c b/ghc/rts/MBlock.c index 5e2fd24063..96be15fe1b 100644 --- a/ghc/rts/MBlock.c +++ b/ghc/rts/MBlock.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: MBlock.c,v 1.8 1999/01/26 10:41:20 sof Exp $ + * $Id: MBlock.c,v 1.9 1999/02/05 16:02:44 simonm Exp $ + * + * (c) The GHC Team 1998-1999 * * MegaBlock Allocator Interface. This file contains all the dirty * architecture-dependent hackery required to get a chunk of aligned diff --git a/ghc/rts/MBlock.h b/ghc/rts/MBlock.h index 0fb902e734..1615f7048c 100644 --- a/ghc/rts/MBlock.h +++ b/ghc/rts/MBlock.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: MBlock.h,v 1.3 1999/01/13 17:25:41 simonm Exp $ + * $Id: MBlock.h,v 1.4 1999/02/05 16:02:45 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * MegaBlock Allocator interface. * diff --git a/ghc/rts/Main.h b/ghc/rts/Main.h index 3a4d0ddbf5..3eaf69aeb2 100644 --- a/ghc/rts/Main.h +++ b/ghc/rts/Main.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Main.h,v 1.2 1998/12/02 13:28:31 simonm Exp $ + * $Id: Main.h,v 1.3 1999/02/05 16:02:45 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Prototypes for functions in Main.c * diff --git a/ghc/rts/PrimOps.hc b/ghc/rts/PrimOps.hc index 0c9061340b..16fc0962c0 100644 --- a/ghc/rts/PrimOps.hc +++ b/ghc/rts/PrimOps.hc @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: PrimOps.hc,v 1.12 1999/02/05 15:25:09 simonm Exp $ + * $Id: PrimOps.hc,v 1.13 1999/02/05 16:02:45 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Primitive functions / data * diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c index 7d2fe71a88..c314151a24 100644 --- a/ghc/rts/Printer.c +++ b/ghc/rts/Printer.c @@ -1,8 +1,8 @@ /* -*- mode: hugs-c; -*- */ /* ----------------------------------------------------------------------------- - * $Id: Printer.c,v 1.5 1999/02/05 14:44:43 simonm Exp $ + * $Id: Printer.c,v 1.6 1999/02/05 16:02:46 simonm Exp $ * - * Copyright (c) 1994-1998. + * Copyright (c) 1994-1999. * * Heap printer * diff --git a/ghc/rts/Printer.h b/ghc/rts/Printer.h index e43589513f..bb92b6ba81 100644 --- a/ghc/rts/Printer.h +++ b/ghc/rts/Printer.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Printer.h,v 1.2 1998/12/02 13:28:34 simonm Exp $ + * $Id: Printer.h,v 1.3 1999/02/05 16:02:47 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Prototypes for functions in Printer.c * diff --git a/ghc/rts/ProfRts.h b/ghc/rts/ProfRts.h index 2dbb4b320d..2634f7a623 100644 --- a/ghc/rts/ProfRts.h +++ b/ghc/rts/ProfRts.h @@ -1,7 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: ProfRts.h,v 1.2 1998/12/02 13:28:35 simonm Exp $ + * $Id: ProfRts.h,v 1.3 1999/02/05 16:02:47 simonm Exp $ * - * (c) The GHC Team, 1998 + * (c) The GHC Team, 1998-1999 * * Support for profiling * diff --git a/ghc/rts/Profiling.c b/ghc/rts/Profiling.c index 4524fb0ffa..45747ce772 100644 --- a/ghc/rts/Profiling.c +++ b/ghc/rts/Profiling.c @@ -1,7 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Profiling.c,v 1.2 1998/12/02 13:28:35 simonm Exp $ + * $Id: Profiling.c,v 1.3 1999/02/05 16:02:48 simonm Exp $ * - * (c) The GHC Team, 1998 + * (c) The GHC Team, 1998-1999 * * Support for profiling * diff --git a/ghc/rts/Proftimer.c b/ghc/rts/Proftimer.c index bd50c98350..077dc3f9f2 100644 --- a/ghc/rts/Proftimer.c +++ b/ghc/rts/Proftimer.c @@ -1,7 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Proftimer.c,v 1.2 1998/12/02 13:28:36 simonm Exp $ + * $Id: Proftimer.c,v 1.3 1999/02/05 16:02:48 simonm Exp $ * - * (c) The GHC Team, 1998 + * (c) The GHC Team, 1998-1999 * * Profiling interval timer * diff --git a/ghc/rts/QueueTemplate.h b/ghc/rts/QueueTemplate.h index 41bd45fd24..a16d12b1e1 100644 --- a/ghc/rts/QueueTemplate.h +++ b/ghc/rts/QueueTemplate.h @@ -1,5 +1,9 @@ /* -*- mode: hugs-c; -*- */ -/* -------------------------------------------------------------------------- +/* ----------------------------------------------------------------------------- + * $Id: QueueTemplate.h,v 1.3 1999/02/05 16:02:48 simonm Exp $ + * + * (c) The GHC Team, 1998 + * * Template for generating queues of various types * * #define Queue##ChunkSize, Queue and Type before #including this file @@ -13,8 +17,8 @@ * Copyright (c) 1994-1998. * * $RCSfile: QueueTemplate.h,v $ - * $Revision: 1.2 $ - * $Date: 1998/12/02 13:28:37 $ + * $Revision: 1.3 $ + * $Date: 1999/02/05 16:02:48 $ * * ------------------------------------------------------------------------*/ diff --git a/ghc/rts/RtsAPI.c b/ghc/rts/RtsAPI.c index 4cc976d7b0..d4214d14a8 100644 --- a/ghc/rts/RtsAPI.c +++ b/ghc/rts/RtsAPI.c @@ -1,5 +1,7 @@ /* ---------------------------------------------------------------------------- - * $Id: RtsAPI.c,v 1.3 1999/01/27 14:51:21 simonpj Exp $ + * $Id: RtsAPI.c,v 1.4 1999/02/05 16:02:49 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * API for invoking Haskell functions via the RTS * diff --git a/ghc/rts/RtsFlags.c b/ghc/rts/RtsFlags.c index 60a1f9ef4c..ad2df3ac4c 100644 --- a/ghc/rts/RtsFlags.c +++ b/ghc/rts/RtsFlags.c @@ -1,5 +1,8 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsFlags.c,v 1.8 1999/01/27 16:41:16 simonm Exp $ + * $Id: RtsFlags.c,v 1.9 1999/02/05 16:02:49 simonm Exp $ + * + * (c) The AQUA Project, Glasgow University, 1994-1997 + * (c) The GHC Team, 1998-1999 * * Functions for parsing the argument list. * diff --git a/ghc/rts/RtsFlags.h b/ghc/rts/RtsFlags.h index 633f272994..12588dce62 100644 --- a/ghc/rts/RtsFlags.h +++ b/ghc/rts/RtsFlags.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsFlags.h,v 1.8 1999/01/27 16:41:16 simonm Exp $ + * $Id: RtsFlags.h,v 1.9 1999/02/05 16:02:50 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Datatypes that holds the command-line flag settings. * diff --git a/ghc/rts/RtsStartup.c b/ghc/rts/RtsStartup.c index d079f6ed8e..a0e976e54e 100644 --- a/ghc/rts/RtsStartup.c +++ b/ghc/rts/RtsStartup.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsStartup.c,v 1.5 1999/01/26 11:12:47 simonm Exp $ + * $Id: RtsStartup.c,v 1.6 1999/02/05 16:02:50 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Main function for a standalone Haskell program. * diff --git a/ghc/rts/RtsUtils.c b/ghc/rts/RtsUtils.c index b9f2ff9660..95afe0c26b 100644 --- a/ghc/rts/RtsUtils.c +++ b/ghc/rts/RtsUtils.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsUtils.c,v 1.5 1999/01/29 09:30:51 simonm Exp $ + * $Id: RtsUtils.c,v 1.6 1999/02/05 16:02:51 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * General utility functions used in the RTS. * diff --git a/ghc/rts/RtsUtils.h b/ghc/rts/RtsUtils.h index 72047b0e98..94693f24ee 100644 --- a/ghc/rts/RtsUtils.h +++ b/ghc/rts/RtsUtils.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsUtils.h,v 1.2 1998/12/02 13:28:42 simonm Exp $ + * $Id: RtsUtils.h,v 1.3 1999/02/05 16:02:51 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * General utility functions used in the RTS. * diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c index ed8cdc3761..1260f8ca0b 100644 --- a/ghc/rts/Sanity.c +++ b/ghc/rts/Sanity.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Sanity.c,v 1.8 1999/02/02 12:37:14 simonm Exp $ + * $Id: Sanity.c,v 1.9 1999/02/05 16:02:52 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Sanity checking code for the heap and stack. * @@ -310,7 +312,6 @@ checkClosure( StgClosure* p ) } case ARR_WORDS: - case MUT_ARR_WORDS: return arr_words_sizeW(stgCast(StgArrWords*,p)); case MUT_ARR_PTRS: diff --git a/ghc/rts/Sanity.h b/ghc/rts/Sanity.h index 581e02938c..6ab9c846d9 100644 --- a/ghc/rts/Sanity.h +++ b/ghc/rts/Sanity.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Sanity.h,v 1.3 1999/01/13 17:25:44 simonm Exp $ + * $Id: Sanity.h,v 1.4 1999/02/05 16:02:52 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Prototypes for functions in Sanity.c * diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c index 48f9e39a86..0b273c403a 100644 --- a/ghc/rts/Schedule.c +++ b/ghc/rts/Schedule.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Schedule.c,v 1.8 1999/02/03 16:32:47 simonm Exp $ + * $Id: Schedule.c,v 1.9 1999/02/05 16:02:53 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Scheduler * diff --git a/ghc/rts/Schedule.h b/ghc/rts/Schedule.h index 4e41974e6e..e55d038f6e 100644 --- a/ghc/rts/Schedule.h +++ b/ghc/rts/Schedule.h @@ -1,7 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Schedule.h,v 1.2 1998/12/02 13:28:46 simonm Exp $ + * $Id: Schedule.h,v 1.3 1999/02/05 16:02:53 simonm Exp $ * - * (c) The GHC Team 1998 + * (c) The GHC Team 1998-1999 * * Prototypes for functions in Schedule.c * (RTS internal scheduler interface) diff --git a/ghc/rts/Signals.c b/ghc/rts/Signals.c index 70621025cd..6d9ea447e1 100644 --- a/ghc/rts/Signals.c +++ b/ghc/rts/Signals.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Signals.c,v 1.3 1999/01/26 11:12:49 simonm Exp $ + * $Id: Signals.c,v 1.4 1999/02/05 16:02:54 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Signal processing / handling. * diff --git a/ghc/rts/Signals.h b/ghc/rts/Signals.h index cee39eecb8..0d8a222138 100644 --- a/ghc/rts/Signals.h +++ b/ghc/rts/Signals.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Signals.h,v 1.2 1998/12/02 13:28:47 simonm Exp $ + * $Id: Signals.h,v 1.3 1999/02/05 16:02:55 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Signal processing / handling. * diff --git a/ghc/rts/Stable.c b/ghc/rts/Stable.c index b4021b69f7..9f1414efd4 100644 --- a/ghc/rts/Stable.c +++ b/ghc/rts/Stable.c @@ -1,7 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Stable.c,v 1.1 1999/01/27 10:11:27 simonm Exp $ + * $Id: Stable.c,v 1.2 1999/02/05 16:02:55 simonm Exp $ * - * (c) The GHC Team 1998-1999 + * (c) The GHC Team, 1998-1999 * * Stable names and stable pointers. * diff --git a/ghc/rts/StablePriv.h b/ghc/rts/StablePriv.h index 410560552b..f245216050 100644 --- a/ghc/rts/StablePriv.h +++ b/ghc/rts/StablePriv.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StablePriv.h,v 1.1 1999/01/26 14:18:38 simonm Exp $ + * $Id: StablePriv.h,v 1.2 1999/02/05 16:02:56 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Internal RTS API for stable names and stable ptrs. * diff --git a/ghc/rts/Stats.c b/ghc/rts/Stats.c index 061bbdd6dd..9dd0612aa0 100644 --- a/ghc/rts/Stats.c +++ b/ghc/rts/Stats.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Stats.c,v 1.5 1999/02/03 16:42:18 simonm Exp $ + * $Id: Stats.c,v 1.6 1999/02/05 16:02:56 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Statistics and timing-related functions. * diff --git a/ghc/rts/Stats.h b/ghc/rts/Stats.h index 2b9c0a5a5b..9908e1c73e 100644 --- a/ghc/rts/Stats.h +++ b/ghc/rts/Stats.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Stats.h,v 1.3 1999/01/13 17:25:46 simonm Exp $ + * $Id: Stats.h,v 1.4 1999/02/05 16:02:57 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Statistics and timing-related functions. * diff --git a/ghc/rts/StgCRun.c b/ghc/rts/StgCRun.c index 775f089424..09127d89ee 100644 --- a/ghc/rts/StgCRun.c +++ b/ghc/rts/StgCRun.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgCRun.c,v 1.2 1998/12/02 13:28:50 simonm Exp $ + * $Id: StgCRun.c,v 1.3 1999/02/05 16:02:57 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * STG-to-C glue. Some architectures have this code written in * straight assembler (see StgRun.S), some in C. diff --git a/ghc/rts/StgLongLong.c b/ghc/rts/StgLongLong.c index a504016f0f..7c085d81d1 100644 --- a/ghc/rts/StgLongLong.c +++ b/ghc/rts/StgLongLong.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgLongLong.c,v 1.2 1998/12/02 13:28:51 simonm Exp $ + * $Id: StgLongLong.c,v 1.3 1999/02/05 16:02:58 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Primitive operations over (64-bit) long longs * (only used on 32-bit platforms.) diff --git a/ghc/rts/StgMiscClosures.hc b/ghc/rts/StgMiscClosures.hc index e17a02ba4c..fcf26d9dc5 100644 --- a/ghc/rts/StgMiscClosures.hc +++ b/ghc/rts/StgMiscClosures.hc @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgMiscClosures.hc,v 1.12 1999/02/05 15:25:09 simonm Exp $ + * $Id: StgMiscClosures.hc,v 1.13 1999/02/05 16:02:58 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Entry code for various built-in closure types. * diff --git a/ghc/rts/StgPrimFloat.c b/ghc/rts/StgPrimFloat.c index 111cccea5e..8c3bef634d 100644 --- a/ghc/rts/StgPrimFloat.c +++ b/ghc/rts/StgPrimFloat.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgPrimFloat.c,v 1.2 1998/12/02 13:28:53 simonm Exp $ + * $Id: StgPrimFloat.c,v 1.3 1999/02/05 16:02:59 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Miscellaneous support for floating-point primitives * diff --git a/ghc/rts/StgRun.h b/ghc/rts/StgRun.h index e1e70319cf..b617581f82 100644 --- a/ghc/rts/StgRun.h +++ b/ghc/rts/StgRun.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgRun.h,v 1.2 1998/12/02 13:28:54 simonm Exp $ + * $Id: StgRun.h,v 1.3 1999/02/05 16:02:59 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Tiny assembler 'layer' between the C and STG worlds. * diff --git a/ghc/rts/StgStartup.h b/ghc/rts/StgStartup.h index 1fd72d7e1e..0bd3b52fdb 100644 --- a/ghc/rts/StgStartup.h +++ b/ghc/rts/StgStartup.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgStartup.h,v 1.2 1998/12/02 13:28:54 simonm Exp $ + * $Id: StgStartup.h,v 1.3 1999/02/05 16:03:00 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Code for starting, stopping and restarting threads. * diff --git a/ghc/rts/StgStartup.hc b/ghc/rts/StgStartup.hc index b92fb09e77..6a87b1d4ae 100644 --- a/ghc/rts/StgStartup.hc +++ b/ghc/rts/StgStartup.hc @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgStartup.hc,v 1.2 1998/12/02 13:28:55 simonm Exp $ + * $Id: StgStartup.hc,v 1.3 1999/02/05 16:03:00 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Code for starting, stopping and restarting threads. * diff --git a/ghc/rts/StgStdThunks.hc b/ghc/rts/StgStdThunks.hc index 79793a1581..b7cac13f6a 100644 --- a/ghc/rts/StgStdThunks.hc +++ b/ghc/rts/StgStdThunks.hc @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StgStdThunks.hc,v 1.2 1998/12/02 13:28:56 simonm Exp $ + * $Id: StgStdThunks.hc,v 1.3 1999/02/05 16:03:00 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Canned "Standard Form" Thunks * diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c index ce745f6054..e94094b3ca 100644 --- a/ghc/rts/Storage.c +++ b/ghc/rts/Storage.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Storage.c,v 1.11 1999/02/05 14:48:01 simonm Exp $ + * $Id: Storage.c,v 1.12 1999/02/05 16:03:01 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Storage manager front end * diff --git a/ghc/rts/Storage.h b/ghc/rts/Storage.h index b4a22b98f3..fc93e01596 100644 --- a/ghc/rts/Storage.h +++ b/ghc/rts/Storage.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Storage.h,v 1.6 1999/02/02 14:21:34 simonm Exp $ + * $Id: Storage.h,v 1.7 1999/02/05 16:03:01 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * External Storage Manger Interface * diff --git a/ghc/rts/StoragePriv.h b/ghc/rts/StoragePriv.h index f36e1bf35a..4326550cb6 100644 --- a/ghc/rts/StoragePriv.h +++ b/ghc/rts/StoragePriv.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: StoragePriv.h,v 1.7 1999/02/02 14:21:34 simonm Exp $ + * $Id: StoragePriv.h,v 1.8 1999/02/05 16:03:02 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Internal Storage Manger Interface * diff --git a/ghc/rts/Ticky.c b/ghc/rts/Ticky.c index 787b066b91..9e070fe105 100644 --- a/ghc/rts/Ticky.c +++ b/ghc/rts/Ticky.c @@ -1,7 +1,8 @@ /* ----------------------------------------------------------------------------- - * $Id: Ticky.c,v 1.2 1999/02/02 14:21:34 simonm Exp $ + * $Id: Ticky.c,v 1.3 1999/02/05 16:03:02 simonm Exp $ * - * (c) The GHC Team, Glasgow University, 1992-1998 + * (c) The AQUA project, Glasgow University, 1992-1997 + * (c) The GHC Team, 1998-1999 * * Ticky-ticky profiling *-------------------------------------------------------------------------- */ diff --git a/ghc/rts/Updates.hc b/ghc/rts/Updates.hc index 8fc0fae7ed..d3b5ba60bc 100644 --- a/ghc/rts/Updates.hc +++ b/ghc/rts/Updates.hc @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Updates.hc,v 1.8 1999/01/27 14:51:23 simonpj Exp $ + * $Id: Updates.hc,v 1.9 1999/02/05 16:03:03 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Code to perform updates. * diff --git a/ghc/rts/Weak.c b/ghc/rts/Weak.c index 8fe2575b08..59dc19287b 100644 --- a/ghc/rts/Weak.c +++ b/ghc/rts/Weak.c @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Weak.c,v 1.6 1999/02/02 14:17:45 simonm Exp $ + * $Id: Weak.c,v 1.7 1999/02/05 16:03:03 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Weak pointers / finalisers * diff --git a/ghc/rts/Weak.h b/ghc/rts/Weak.h index 25c928f190..75c276d6ba 100644 --- a/ghc/rts/Weak.h +++ b/ghc/rts/Weak.h @@ -1,5 +1,7 @@ /* ----------------------------------------------------------------------------- - * $Id: Weak.h,v 1.2 1998/12/02 13:29:01 simonm Exp $ + * $Id: Weak.h,v 1.3 1999/02/05 16:03:04 simonm Exp $ + * + * (c) The GHC Team, 1998-1999 * * Weak pointers / finalisers * |