X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FStgTypes.h;h=ae9eec5334559fb1aae579434f4bca9e8510c7fd;hb=423d477bfecd490de1449c59325c8776f91d7aac;hp=2492046324ff5bac0a91694b89ac1757df8302f1;hpb=553e90d9a32ee1b1809430f260c401cc4169c6c7;p=ghc-hetmet.git diff --git a/ghc/includes/StgTypes.h b/ghc/includes/StgTypes.h index 2492046..ae9eec5 100644 --- a/ghc/includes/StgTypes.h +++ b/ghc/includes/StgTypes.h @@ -1,10 +1,9 @@ /* ----------------------------------------------------------------------------- - * $Id: StgTypes.h,v 1.20 2003/11/12 17:27:05 sof Exp $ * - * (c) The GHC Team, 1998-2000 + * (c) The GHC Team, 1998-2004 * * Various C datatypes used in the run-time system. This is the - * lowest-level include file, after config.h and Derived.h. + * lowest-level include file, after ghcconfig.h and RtsConfig.h. * * This module should define types *only*, all beginning with "Stg". * @@ -27,7 +26,7 @@ * WARNING: Keep this file, MachDeps.h, and HsFFI.h in synch! * - * NOTE: assumes #include "config.h" + * NOTE: assumes #include "ghcconfig.h" * * Works with or without _POSIX_SOURCE. * @@ -36,8 +35,6 @@ #ifndef STGTYPES_H #define STGTYPES_H -#include "Derived.h" - /* * First, platform-dependent definitions of size-specific integers. * Assume for now that the int type is 32 bits. @@ -150,18 +147,4 @@ typedef void* StgStablePtr; typedef void *(*(*StgFunPtr)(void))(void); typedef StgFunPtr StgFun(void); -typedef union { - StgWord w; - StgAddr a; - StgChar c; - StgInt8 i8; - StgFloat f; - StgInt i; - StgPtr p; - StgClosurePtr cl; - StgStackOffset offset; /* unused? */ - StgByteArray b; - StgTSOPtr t; -} StgUnion; - #endif /* STGTYPES_H */