Commit 2705a8d8 authored by simonpj's avatar simonpj
Browse files

[project @ 2001-09-20 12:15:20 by simonpj]

Add debug stuff (no need to merge to stable branch)
parent ab061892
......@@ -423,12 +423,24 @@ setIdCgInfo id cg_info = modifyIdInfo (`setCgInfo` cg_info) id
---------------------------------
-- CAF INFO
idCafInfo :: Id -> CafInfo
#ifdef DEBUG
idCafInfo id = case cgInfo (idInfo id) of
NoCgInfo -> pprPanic "idCafInfo" (ppr id)
info -> cgCafInfo info
#else
idCafInfo id = cgCafInfo (idCgInfo id)
#endif
---------------------------------
-- CG ARITY
idCgArity :: Id -> Arity
#ifdef DEBUG
idCgArity id = case cgInfo (idInfo id) of
NoCgInfo -> pprPanic "idCgArity" (ppr id)
info -> cgArity info
#else
idCgArity id = cgArity (idCgInfo id)
#endif
---------------------------------
-- CPR INFO
......
Markdown is supported
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