import Foreign ( Ptr )
import System.IO.Unsafe ( unsafePerformIO )
import IO ( hPutStrLn, stderr )
-import Debug.Trace ( trace )
+-- import Debug.Trace ( trace )
\end{code}
%************************************************************************
mkMarshalCode cconv (r_offW, r_rep) addr_offW arg_offs_n_reps
= let bytes = mkMarshalCode_wrk cconv (r_offW, r_rep)
addr_offW arg_offs_n_reps
- in trace (show bytes) $ Foreign.newArray bytes
+ in Foreign.newArray bytes