)-} where
IMP_Ubiq(){-uitous-}
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(AbsCLoop)
+#else
+import {-# SOURCE #-} MachMisc
+import {-# SOURCE #-} CLabel
+import {-# SOURCE #-} ClosureInfo
+import {-# SOURCE #-} CgRetConv
+#endif
import Constants ( mAX_Vanilla_REG, mAX_Float_REG,
mAX_Double_REG, lIVENESS_R1, lIVENESS_R2,
) where
IMP_Ubiq(){-uitous-}
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(AbsCLoop) ( CtrlReturnConvention(..),
ctrlReturnConvAlg
)
+#else
+import {-# SOURCE #-} CgRetConv
+#endif
+
+
#if ! OMIT_NATIVE_CODEGEN
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(NcgLoop) ( underscorePrefix, fmtAsmLbl )
+#else
+import {-# SOURCE #-} MachMisc ( underscorePrefix, fmtAsmLbl )
+#endif
#endif
import CStrings ( pp_cSEP )
) where
+IMPORT_1_3(Char (isAlphanum,ord,chr))
CHK_Ubiq() -- debugging consistency check
import Pretty
-IMPORT_1_3(Char (isAlphanum,ord,chr))
\end{code}
IMP_Ubiq(){-uitous-}
#if ! OMIT_NATIVE_CODEGEN
+# if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(AbsCLoop) ( fixedHdrSizeInWords, varHdrSizeInWords )
+# else
+import {-# SOURCE #-} MachMisc
+# endif
#endif
import Maybes ( catMaybes )
where
pp_hdrs hdr_pp [] = Nothing
pp_hdrs hdr_pp [SMRI(rep, n)] | n _EQ_ ILIT(1) = Just ((<>) (text (show rep)) hdr_pp)
- pp_hdrs hdr_pp hdrs = Just (parens (sep (punctuate (char '+')
+ pp_hdrs hdr_pp hdrs = Just (parens (hsep (punctuate (char '+')
(map (pp_hdr hdr_pp) hdrs))))
pp_hdr :: Doc -> SMRep__Int -> Doc
) where
IMP_Ubiq(){-uitous-}
-IMPORT_DELOOPER(AbsCLoop) -- break its dependence on ClosureInfo
+
IMPORT_1_3(IO(Handle))
IMPORT_1_3(Char(isDigit,isPrint))
#if __GLASGOW_HASKELL__ == 201
import GlaExts (Addr(..))
#endif
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
+IMPORT_DELOOPER(AbsCLoop) -- break its dependence on ClosureInfo
+#else
+import {-# SOURCE #-} ClosureInfo
+#endif
+
import AbsCSyn
import AbsCUtils ( getAmodeRep, nonemptyAbsC,