Treat foreign imported things in CMM as being in this package
authorIan Lynagh <ian@well-typed.com>
Thu, 9 May 2013 14:15:54 +0000 (15:15 +0100)
committerIan Lynagh <ian@well-typed.com>
Thu, 9 May 2013 14:15:54 +0000 (15:15 +0100)
They used to be treated as being in an exnternal package, which went
wrong on Windows (it tried to call them via an imp wrapper, rather
than calling them directly).

compiler/cmm/CmmParse.y

index 43fe88d..e9914bd 100644 (file)
@@ -589,7 +589,7 @@ stmt    :: { CmmParse () }
                 { pushStackFrame $3 $5 }
 
 foreignLabel     :: { CmmParse CmmExpr }
-        : NAME                          { return (CmmLit (CmmLabel (mkForeignLabel $1 Nothing ForeignLabelInExternalPackage IsFunction))) }
+        : NAME                          { return (CmmLit (CmmLabel (mkForeignLabel $1 Nothing ForeignLabelInThisPackage IsFunction))) }
 
 opt_never_returns :: { CmmReturnInfo }
         :                               { CmmMayReturn }