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, 0.8 KB (added by parcs, 7 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  
    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)