Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
23758cfd
Commit
23758cfd
authored
Jun 25, 1999
by
panne
Browse files
[project @ 1999-06-25 10:09:19 by panne]
Make -optc-DDEBUG work again
parent
1cb1e6da
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/includes/PrimOps.h
View file @
23758cfd
/* -----------------------------------------------------------------------------
* $Id: PrimOps.h,v 1.3
1
1999/0
5/
10
09:
56:50 sof
Exp $
* $Id: PrimOps.h,v 1.3
2
1999/0
6/25
10
:
09:
19 panne
Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -473,11 +473,11 @@ LI_ stg_word64ToInt64 (StgWord64);
#ifdef DEBUG
#define BYTE_ARR_CTS(a) \
({ ASSERT(GET_INFO(
a
) == &ARR_WORDS_info); \
({ ASSERT(GET_INFO(
(StgArrWords *)(a)
) == &ARR_WORDS_info); \
REAL_BYTE_ARR_CTS(a); })
#define PTRS_ARR_CTS(a) \
({ ASSERT((GET_INFO(
a
) == &ARR_PTRS_info) \
|| (GET_INFO(
a
) == &MUT_ARR_PTRS_info)); \
({ ASSERT((GET_INFO(
(StgMutArrPtrs *)(a)
) == &
MUT_
ARR_PTRS_
FROZEN_
info) \
|| (GET_INFO(
(StgMutArrPtrs *)(a)
) == &MUT_ARR_PTRS_info)); \
REAL_PTRS_ARR_CTS(a); })
#else
#define BYTE_ARR_CTS(a) REAL_BYTE_ARR_CTS(a)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment