Commit 5f35df7f authored by simonpj's avatar simonpj
Browse files

[project @ 2001-12-11 12:18:49 by simonpj]

More DEBUG syntax errors
parent e4ffa112
......@@ -853,8 +853,8 @@ copyIdInfo :: IdInfo -- f_local
copyIdInfo f_local f = f { newStrictnessInfo = newStrictnessInfo f_local,
#ifdef DEBUG
strictnessInfo = strictnessInfo f_local,
cprInfo = cprInfo f_local
cprInfo = cprInfo f_local,
#endif
workerInfo = workerInfo f_local,
workerInfo = workerInfo f_local
}
\end{code}
......@@ -73,7 +73,7 @@ dmdAnalPgm dflags binds
#ifdef DEBUG
-- Only if DEBUG is on, because only then is the old
-- strictness analyser run
let dmd_changes = get_changes binds_plus_dmds ;
let { dmd_changes = get_changes binds_plus_dmds } ;
printDump (text "Changes in demands" $$ dmd_changes) ;
#endif
return binds_plus_dmds
......
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