@@ -52,19 +52,25 @@ public abstract class FastRSetToolchain extends RBuiltinNode.Arg1 {
52
52
@ Specialization
53
53
protected RNull setToolchain (String name ) {
54
54
String srcConf ;
55
+ String srcLdpaths ;
55
56
if ("native" .equals (name )) {
56
57
srcConf = "Makeconf.native" ;
58
+ srcLdpaths = "ldpaths.native" ;
57
59
} else if ("llvm" .equals (name )) {
58
60
srcConf = "Makeconf.llvm" ;
61
+ srcLdpaths = "ldpaths.llvm" ;
59
62
} else {
60
63
throw error (RError .Message .GENERIC , "Only 'native' or 'llvm' argument values accepted" );
61
64
}
62
65
TruffleFile rHome = REnvVars .getRHomeTruffleFile (RContext .getInstance ().getEnv ());
63
66
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" );
66
71
try {
67
- src .copy (dst , StandardCopyOption .REPLACE_EXISTING );
72
+ srcConfFile .copy (dstConfFile , StandardCopyOption .REPLACE_EXISTING );
73
+ srcLdpathsFile .copy (dstLdpathsFile , StandardCopyOption .REPLACE_EXISTING );
68
74
} catch (IOException e ) {
69
75
throw new RInternalError (String .format ("Copying %s over etc/Makeconf failed" , srcConf ), e );
70
76
}
0 commit comments