[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / runtime / main / SMRep.lc

diff --git a/ghc/runtime/main/SMRep.lc b/ghc/runtime/main/SMRep.lc
deleted file mode 100644 (file)
index 844d875..0000000
--- a/ghc/runtime/main/SMRep.lc
+++ /dev/null
@@ -1,214 +0,0 @@
-%
-% (c) The AQUA Project, Glasgow University, 1994
-%
-
-% Guilty party: BOS
-
-%************************************************************************
-%*                                                                      *
-\section[Rep.lc]{Global rep tables}
-%*                                                                      *
-%************************************************************************
-
-These are the single, global static instances of each rep table type.
-
-\begin{code}
-#define COMPILING_REP_LC
-
-#include "rtsdefs.h"
-#include "../storage/SMinternal.h"
-
-#ifdef aix_TARGET_OS /* AIX gives link errors with consts in this file (RO assembler section) */
-#define const /* */
-#endif
-
-EXTFUN(_PRIn_0);
-EXTFUN(_PRIn_1);
-EXTFUN(_PRIn_2);
-EXTFUN(_PRIn_3);
-EXTFUN(_PRIn_4);
-EXTFUN(_PRIn_5);
-EXTFUN(_PRIn_6);
-EXTFUN(_PRIn_7);
-EXTFUN(_PRIn_8);
-EXTFUN(_PRIn_9);
-EXTFUN(_PRIn_10);
-EXTFUN(_PRIn_11);
-EXTFUN(_PRIn_12);
-
-/* SPEC_x_RTBL(size,ptrs) */
-
-SPEC_N_RTBL(1,0);
-SPEC_N_RTBL(1,1);
-SPEC_N_RTBL(2,0);
-SPEC_N_RTBL(2,1);
-SPEC_N_RTBL(2,2);
-SPEC_N_RTBL(3,0);
-SPEC_N_RTBL(3,1);
-SPEC_N_RTBL(3,2);
-SPEC_N_RTBL(3,3);
-SPEC_N_RTBL(4,0);
-SPEC_N_RTBL(4,4);
-SPEC_N_RTBL(5,0);
-SPEC_N_RTBL(5,5);
-SPEC_N_RTBL(6,6);
-SPEC_N_RTBL(7,7);
-SPEC_N_RTBL(8,8);
-SPEC_N_RTBL(9,9);
-SPEC_N_RTBL(10,10);
-SPEC_N_RTBL(11,11);
-SPEC_N_RTBL(12,12);
-
-SPEC_S_RTBL(1,0);
-SPEC_S_RTBL(1,1);
-SPEC_S_RTBL(2,0);
-SPEC_S_RTBL(2,1);
-SPEC_S_RTBL(2,2);
-SPEC_S_RTBL(3,0);
-SPEC_S_RTBL(3,1);
-SPEC_S_RTBL(3,2);
-SPEC_S_RTBL(3,3);
-SPEC_S_RTBL(4,0);
-SPEC_S_RTBL(4,4);
-SPEC_S_RTBL(5,0);
-SPEC_S_RTBL(5,5);
-SPEC_S_RTBL(6,6);
-SPEC_S_RTBL(7,7);
-SPEC_S_RTBL(8,8);
-SPEC_S_RTBL(9,9);
-SPEC_S_RTBL(10,10);
-SPEC_S_RTBL(11,11);
-SPEC_S_RTBL(12,12);
-
-SPEC_U_RTBL(1,0);
-SPEC_U_RTBL(1,1);
-SPEC_U_RTBL(2,0);
-SPEC_U_RTBL(2,1);
-SPEC_U_RTBL(2,2);
-SPEC_U_RTBL(3,0);
-SPEC_U_RTBL(3,1);
-SPEC_U_RTBL(3,2);
-SPEC_U_RTBL(3,3);
-SPEC_U_RTBL(4,0);
-SPEC_U_RTBL(4,4);
-SPEC_U_RTBL(5,0);
-SPEC_U_RTBL(5,5);
-SPEC_U_RTBL(6,6);
-SPEC_U_RTBL(7,7);
-SPEC_U_RTBL(8,8);
-SPEC_U_RTBL(9,9);
-SPEC_U_RTBL(10,10);
-SPEC_U_RTBL(11,11);
-SPEC_U_RTBL(12,12);
-
-/* SELECT_RTBL(size,ptrs,select_word_i) */
-
-SELECT_RTBL(2,1,0);
-SELECT_RTBL(2,1,1);
-SELECT_RTBL(2,1,2);
-SELECT_RTBL(2,1,3);
-SELECT_RTBL(2,1,4);
-SELECT_RTBL(2,1,5);
-SELECT_RTBL(2,1,6);
-SELECT_RTBL(2,1,7);
-SELECT_RTBL(2,1,8);
-SELECT_RTBL(2,1,9);
-SELECT_RTBL(2,1,10);
-SELECT_RTBL(2,1,11);
-SELECT_RTBL(2,1,12);
-
-GEN_N_RTBL();
-GEN_S_RTBL();
-GEN_U_RTBL();
-DYN_RTBL();
-TUPLE_RTBL();
-DATA_RTBL();
-MUTUPLE_RTBL();
-IMMUTUPLE_RTBL();
-STATIC_RTBL();
-
-#if !defined(PAR) /* && !defined(GRAN) */
-ForeignObj_RTBL();
-#endif
-
-BH_RTBL(N);
-BH_RTBL(U);
-
-IND_RTBL();
-PERM_IND_RTBL();
-CAF_RTBL();
-CONST_RTBL();
-CHARLIKE_RTBL();
-INTLIKE_RTBL();
-
-CAF_EVAC_UPD_RTBL();
-
-#ifdef GCgn
-FORWARDREF_RTBL(_Evacuate_Old_Forward_Ref);
-FORWARDREF_RTBL(_Evacuate_New_Forward_Ref);
-FORWARDREF_RTBL(_Evacuate_OldRoot_Forward);
-#endif
-FORWARDREF_RTBL(_Evacuate_Forward_Ref);
-
-#ifdef _INFO_MARKING
-DUMMY_PRRETURN_RTBL(_PRMarking_MarkNextRoot,_Dummy_PRReturn_entry);
-DUMMY_PRRETURN_RTBL(_PRMarking_MarkNextCAF,_Dummy_PRReturn_entry);
-# ifdef CONCURRENT
-DUMMY_PRRETURN_RTBL(_PRMarking_MarkNextSpark,_Dummy_PRReturn_entry);
-# endif
-# if defined(GRAN)
-DUMMY_PRRETURN_RTBL(_PRMarking_MarkNextEvent,_Dummy_PRReturn_entry);
-DUMMY_PRRETURN_RTBL(_PRMarking_MarkNextClosureInFetchBuffer,_Dummy_PRReturn_entry);
-# endif
-# ifdef PAR
-DUMMY_PRRETURN_RTBL(_PRMarking_MarkNextGA,_Dummy_PRReturn_entry);
-# else
-#  if 1 /* !defined(CONCURRENT) */ /* HWL */
-DUMMY_PRRETURN_RTBL(_PRMarking_MarkNextAStack,_Dummy_PRReturn_entry);
-DUMMY_PRRETURN_RTBL(_PRMarking_MarkNextBStack,_Dummy_PRReturn_entry);
-#  endif
-# endif
-#endif
-
-#ifdef GCgn
-OLDROOT_RTBL();
-#endif
-
-#ifdef CONCURRENT
-TSO_RTBL();
-STKO_RTBL();
-BQ_RTBL();
-# ifndef PAR
-STKO_STATIC_RTBL();
-# else
-FETCHME_RTBL();
-FMBQ_RTBL();
-BF_RTBL();
-# endif
-#endif
-
-#if defined(PAR) || defined(GRAN)
-SPEC_RBH_RTBL(2,0);
-SPEC_RBH_RTBL(2,1);
-SPEC_RBH_RTBL(2,2);
-SPEC_RBH_RTBL(3,0);
-SPEC_RBH_RTBL(3,1);
-SPEC_RBH_RTBL(3,2);
-SPEC_RBH_RTBL(3,3);
-SPEC_RBH_RTBL(4,0);
-SPEC_RBH_RTBL(4,4);
-SPEC_RBH_RTBL(5,0);
-SPEC_RBH_RTBL(5,5);
-SPEC_RBH_RTBL(6,6);
-SPEC_RBH_RTBL(7,7);
-SPEC_RBH_RTBL(8,8);
-SPEC_RBH_RTBL(9,9);
-SPEC_RBH_RTBL(10,10);
-SPEC_RBH_RTBL(11,11);
-SPEC_RBH_RTBL(12,12);
-
-GEN_RBH_RTBL();
-#endif
-
-
-\end{code}