@@ -52,19 +52,25 @@ public abstract class FastRSetToolchain extends RBuiltinNode.Arg1 {
5252 @ Specialization
5353 protected RNull setToolchain (String name ) {
5454 String srcConf ;
55+ String srcLdpaths ;
5556 if ("native" .equals (name )) {
5657 srcConf = "Makeconf.native" ;
58+ srcLdpaths = "ldpaths.native" ;
5759 } else if ("llvm" .equals (name )) {
5860 srcConf = "Makeconf.llvm" ;
61+ srcLdpaths = "ldpaths.llvm" ;
5962 } else {
6063 throw error (RError .Message .GENERIC , "Only 'native' or 'llvm' argument values accepted" );
6164 }
6265 TruffleFile rHome = REnvVars .getRHomeTruffleFile (RContext .getInstance ().getEnv ());
6366 TruffleFile etc = rHome .resolve ("etc" );
64- TruffleFile src = etc .resolve (srcConf );
65- TruffleFile dst = etc .resolve ("Makeconf" );
67+ TruffleFile srcConfFile = etc .resolve (srcConf );
68+ TruffleFile dstConfFile = etc .resolve ("Makeconf" );
69+ TruffleFile srcLdpathsFile = etc .resolve (srcLdpaths );
70+ TruffleFile dstLdpathsFile = etc .resolve ("ldpaths" );
6671 try {
67- src .copy (dst , StandardCopyOption .REPLACE_EXISTING );
72+ srcConfFile .copy (dstConfFile , StandardCopyOption .REPLACE_EXISTING );
73+ srcLdpathsFile .copy (dstLdpathsFile , StandardCopyOption .REPLACE_EXISTING );
6874 } catch (IOException e ) {
6975 throw new RInternalError (String .format ("Copying %s over etc/Makeconf failed" , srcConf ), e );
7076 }
0 commit comments