X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FStgTypes.h;fp=ghc%2Fincludes%2FStgTypes.h;h=50e8611faa2a9708d708b8140faafae0f36b0cee;hb=0bffc410964e1688ad80d277d53400659e697ab5;hp=e864d812fd2e8a2b0555a9065e1218643b28d962;hpb=a63622cce9c14fe985cb870cf95984fa4e61e508;p=ghc-hetmet.git diff --git a/ghc/includes/StgTypes.h b/ghc/includes/StgTypes.h index e864d81..50e8611 100644 --- a/ghc/includes/StgTypes.h +++ b/ghc/includes/StgTypes.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: StgTypes.h,v 1.18 2001/10/03 13:57:42 simonmar Exp $ + * $Id: StgTypes.h,v 1.19 2002/12/11 15:36:39 simonmar Exp $ * * (c) The GHC Team, 1998-2000 * @@ -81,10 +81,12 @@ typedef unsigned __int64 StgWord64; #if SIZEOF_VOID_P == 8 typedef StgInt64 StgInt; typedef StgWord64 StgWord; +typedef StgWord32 StgHalfWord; #else #if SIZEOF_VOID_P == 4 typedef StgInt32 StgInt; typedef StgWord32 StgWord; +typedef StgWord16 StgHalfWord; #else #error GHC untested on this architecture: sizeof(void *) != 4 or 8 #endif