Commit 573c054b authored by sewardj's avatar sewardj
Browse files

[project @ 1999-01-14 11:57:48 by sewardj]

When -DDEBUG, in BYTE_ARR_CTS, allow GET_INFO(a) to be
&MUT_ARR_WORDS_info as well as &ARR_WORDS_info.
parent 681aba64
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: PrimOps.h,v 1.3 1999/01/13 17:25:53 simonm Exp $ * $Id: PrimOps.h,v 1.4 1999/01/14 11:57:48 sewardj Exp $
* *
* Macros for primitive operations in STG-ish C code. * Macros for primitive operations in STG-ish C code.
* *
...@@ -412,11 +412,13 @@ LI_ stg_word64ToInt64 (StgNat64); ...@@ -412,11 +412,13 @@ LI_ stg_word64ToInt64 (StgNat64);
#define REAL_PTRS_ARR_CTS(a) ((P_) (((StgMutArrPtrs *)(a))->payload)) #define REAL_PTRS_ARR_CTS(a) ((P_) (((StgMutArrPtrs *)(a))->payload))
#ifdef DEBUG #ifdef DEBUG
#define BYTE_ARR_CTS(a) \ #define BYTE_ARR_CTS(a) \
({ ASSERT(GET_INFO(a) == &ARR_WORDS_info); \ ({ ASSERT((GET_INFO(a) == &ARR_WORDS_info) \
|| (GET_INFO(a) == &MUT_ARR_WORDS_info)); \
REAL_BYTE_ARR_CTS(a); }) REAL_BYTE_ARR_CTS(a); })
#define PTRS_ARR_CTS(a) \ #define PTRS_ARR_CTS(a) \
({ ASSERT((GET_INFO(a) == &MUT_ARR_PTRS_info));\ ({ ASSERT((GET_INFO(a) == &ARR_PTRS_info) \
|| (GET_INFO(a) == &MUT_ARR_PTRS_info)); \
REAL_PTRS_ARR_CTS(a); }) REAL_PTRS_ARR_CTS(a); })
#else #else
#define BYTE_ARR_CTS(a) REAL_BYTE_ARR_CTS(a) #define BYTE_ARR_CTS(a) REAL_BYTE_ARR_CTS(a)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment