Ticket #7382: 0002-Don-t-call-the-system-linker-if-no-objects-need-link.patch

File 0002-Don-t-call-the-system-linker-if-no-objects-need-link.patch, 795 bytes (added by parcs, 18 months ago)
  • compiler/ghci/Linker.lhs

    From 898eb1d85b2a77831c80e68f6e66cbb46a5dc2c9 Mon Sep 17 00:00:00 2001
    From: Patrick Palka <patrick@parcs.ath.cx>
    Date: Thu, 1 Nov 2012 16:09:23 -0400
    Subject: [PATCH 2/2] Don't call the system linker if no objects need linking
     (#7382)
    
    ---
     compiler/ghci/Linker.lhs |    1 +
     1 file changed, 1 insertion(+)
    
    diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs
    index 16bf7fd..f77b5af 100644
    a b dynLinkObjs dflags pls objs = do 
    808808                            return (pls2, Failed) 
    809809 
    810810dynLoadObjs :: DynFlags -> [FilePath] -> IO () 
     811dynLoadObjs _      []   = return () 
    811812dynLoadObjs dflags objs = do 
    812813    let platform = targetPlatform dflags 
    813814    soFile <- newTempName dflags (soExt platform)