summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Ericson <John.Ericson@Obsidian.Systems>2021-11-10 15:10:27 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-11-12 21:25:04 -0500
commit4c6ace75435f23774de8ee3f317c9503bb1c5139 (patch)
treed7ea90d6c56039c9906e5f8410eb2f00815d0220
parentdd1be88bbf1cb4da5256e39406d68c052cc83712 (diff)
downloadhaskell-4c6ace75435f23774de8ee3f317c9503bb1c5139.tar.gz
Delete compiler/MachDeps.h
This was accidentally added back in 28334b475a109bdeb8d53d58c48adb1690e2c9b4 after it is was no longer needed by the compiler proper in 20956e5784fe43781d156dd7ab02f0bff4ab41fb.
-rw-r--r--compiler/MachDeps.h119
1 files changed, 0 insertions, 119 deletions
diff --git a/compiler/MachDeps.h b/compiler/MachDeps.h
deleted file mode 100644
index 98a90814d9..0000000000
--- a/compiler/MachDeps.h
+++ /dev/null
@@ -1,119 +0,0 @@
-/* -----------------------------------------------------------------------------
- *
- * (c) The University of Glasgow 2002
- *
- * Definitions that characterise machine specific properties of basic
- * types (C & Haskell) of a target platform.
- *
- * NB: Keep in sync with HsFFI.h and StgTypes.h.
- * NB: THIS FILE IS INCLUDED IN HASKELL SOURCE!
- *
- * To understand the structure of the RTS headers, see the wiki:
- * https://gitlab.haskell.org/ghc/ghc/wikis/commentary/source-tree/includes
- *
- * ---------------------------------------------------------------------------*/
-
-#pragma once
-
-/* Don't allow stage1 (cross-)compiler embed assumptions about target
- * platform. When ghc-stage1 is being built by ghc-stage0 is should not
- * refer to target defines. A few past examples:
- * - https://gitlab.haskell.org/ghc/ghc/issues/13491
- * - https://phabricator.haskell.org/D3122
- * - https://phabricator.haskell.org/D3405
- *
- * In those cases code change assumed target defines like SIZEOF_HSINT
- * are applied to host platform, not target platform.
- *
- * So what should be used instead in GHC_STAGE=1?
- *
- * To get host's equivalent of SIZEOF_HSINT you can use Bits instances:
- * Data.Bits.finiteBitSize (0 :: Int)
- *
- * To get target's values it is preferred to use runtime target
- * configuration from 'targetPlatform :: DynFlags -> Platform'
- * record.
- *
- * Hence we hide these macros from GHC_STAGE=1
- */
-
-/* Sizes of C types come from here... */
-#include "ghcautoconf.h"
-
-/* Sizes of Haskell types follow. These sizes correspond to:
- * - the number of bytes in the primitive type (eg. Int#)
- * - the number of bytes in the external representation (eg. HsInt)
- * - the scale offset used by writeFooOffAddr#
- *
- * In the heap, the type may take up more space: eg. SIZEOF_INT8 == 1,
- * but it takes up SIZEOF_HSWORD (4 or 8) bytes in the heap.
- */
-
-#define SIZEOF_HSCHAR SIZEOF_WORD32
-#define ALIGNMENT_HSCHAR ALIGNMENT_WORD32
-
-#define SIZEOF_HSINT SIZEOF_VOID_P
-#define ALIGNMENT_HSINT ALIGNMENT_VOID_P
-
-#define SIZEOF_HSWORD SIZEOF_VOID_P
-#define ALIGNMENT_HSWORD ALIGNMENT_VOID_P
-
-#define SIZEOF_HSDOUBLE SIZEOF_DOUBLE
-#define ALIGNMENT_HSDOUBLE ALIGNMENT_DOUBLE
-
-#define SIZEOF_HSFLOAT SIZEOF_FLOAT
-#define ALIGNMENT_HSFLOAT ALIGNMENT_FLOAT
-
-#define SIZEOF_HSPTR SIZEOF_VOID_P
-#define ALIGNMENT_HSPTR ALIGNMENT_VOID_P
-
-#define SIZEOF_HSFUNPTR SIZEOF_VOID_P
-#define ALIGNMENT_HSFUNPTR ALIGNMENT_VOID_P
-
-#define SIZEOF_HSSTABLEPTR SIZEOF_VOID_P
-#define ALIGNMENT_HSSTABLEPTR ALIGNMENT_VOID_P
-
-#define SIZEOF_INT8 SIZEOF_INT8_T
-#define ALIGNMENT_INT8 ALIGNMENT_INT8_T
-
-#define SIZEOF_WORD8 SIZEOF_UINT8_T
-#define ALIGNMENT_WORD8 ALIGNMENT_UINT8_T
-
-#define SIZEOF_INT16 SIZEOF_INT16_T
-#define ALIGNMENT_INT16 ALIGNMENT_INT16_T
-
-#define SIZEOF_WORD16 SIZEOF_UINT16_T
-#define ALIGNMENT_WORD16 ALIGNMENT_UINT16_T
-
-#define SIZEOF_INT32 SIZEOF_INT32_T
-#define ALIGNMENT_INT32 ALIGNMENT_INT32_T
-
-#define SIZEOF_WORD32 SIZEOF_UINT32_T
-#define ALIGNMENT_WORD32 ALIGNMENT_UINT32_T
-
-#define SIZEOF_INT64 SIZEOF_INT64_T
-#define ALIGNMENT_INT64 ALIGNMENT_INT64_T
-
-#define SIZEOF_WORD64 SIZEOF_UINT64_T
-#define ALIGNMENT_WORD64 ALIGNMENT_UINT64_T
-
-#if !defined(WORD_SIZE_IN_BITS)
-#if SIZEOF_HSWORD == 4
-#define WORD_SIZE_IN_BITS 32
-#define WORD_SIZE_IN_BITS_FLOAT 32.0
-#else
-#define WORD_SIZE_IN_BITS 64
-#define WORD_SIZE_IN_BITS_FLOAT 64.0
-#endif
-#endif
-
-#if !defined(TAG_BITS)
-#if SIZEOF_HSWORD == 4
-#define TAG_BITS 2
-#else
-#define TAG_BITS 3
-#endif
-#endif
-
-#define TAG_MASK ((1 << TAG_BITS) - 1)
-