X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnSource.lhs;h=f74c71244e1309bda2020269a6685577dcf6042a;hb=06e14415fa8aef5be7d01314d08fcd87873cd0da;hp=d94ab3aabdb015284dee2b7cf67a5964848c466e;hpb=84ed91abfe3f9df43d5b33e404138e43a574beb8;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnSource.lhs b/ghc/compiler/rename/RnSource.lhs
index d94ab3a..f74c712 100644
--- a/ghc/compiler/rename/RnSource.lhs
+++ b/ghc/compiler/rename/RnSource.lhs
@@ -47,7 +47,13 @@ import Name		( Name )
 import NameSet
 import NameEnv
 import ErrUtils		( dumpIfSet )
-import PrelNames	( newStablePtrName, bindIOName, returnIOName )
+import PrelNames	( newStablePtrName, bindIOName, returnIOName
+			  -- dotnet interop
+		 	, objectTyConName, 
+			, unmarshalObjectName, marshalObjectName
+			, unmarshalStringName, marshalStringName
+			, checkDotnetResName
+			)
 import List		( partition )
 import Bag		( bagToList )
 import Outputable
@@ -314,8 +320,20 @@ rnHsForeignDecl (ForeignImport name ty spec isDeprec src_loc)
     returnM (ForeignImport name' ty' spec isDeprec src_loc, 
 	      fvs `plusFV` extras spec)
   where
-    extras (CImport _ _ _ _ CWrapper) = mkFVs [newStablePtrName,
-					       bindIOName, returnIOName]
+    extras (CImport _ _ _ _ CWrapper) 
+      = mkFVs [ newStablePtrName
+	      , bindIOName
+	      , returnIOName
+	      ]
+    extras (DNImport _)               
+      = mkFVs [ bindIOName
+              , objectTyConName
+	      , unmarshalObjectName
+	      , marshalObjectName
+	      , marshalStringName
+	      , unmarshalStringName
+	      , checkDotnetResName
+	      ]
     extras _			      = emptyFVs
 
 rnHsForeignDecl (ForeignExport name ty spec isDeprec src_loc)