import ClosureInfo
import SMRep
-import CmmUtils
-import Cmm
+import OldCmmUtils
+import OldCmm
import StgSyn
import StaticFlags
unsafe_foreign_call
= case fcall of
CCall (CCallSpec _ _ s) -> not (playSafe s)
- _other -> False
\end{code}
Special case: scrutinising a non-primitive variable.