Don't remove extension of source files twice, if filenames contain dots
This commit is contained in:
parent
5976bd96be
commit
7e89f9a09a
2 changed files with 2 additions and 2 deletions
|
|
@ -603,7 +603,7 @@ proc addExternalFileToCompile*(conf: ConfigRef; c: var Cfile) =
|
||||||
|
|
||||||
proc addExternalFileToCompile*(conf: ConfigRef; filename: string) =
|
proc addExternalFileToCompile*(conf: ConfigRef; filename: string) =
|
||||||
var c = Cfile(cname: filename,
|
var c = Cfile(cname: filename,
|
||||||
obj: toObjFile(conf, completeCFilePath(conf, changeFileExt(filename, ""), false)),
|
obj: toObjFile(conf, completeCFilePath(conf, filename, false)),
|
||||||
flags: {CfileFlag.External})
|
flags: {CfileFlag.External})
|
||||||
addExternalFileToCompile(conf, c)
|
addExternalFileToCompile(conf, c)
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -466,7 +466,7 @@ proc processCompile(c: PContext, n: PNode) =
|
||||||
else:
|
else:
|
||||||
found = findFile(c.config, s)
|
found = findFile(c.config, s)
|
||||||
if found.len == 0: found = s
|
if found.len == 0: found = s
|
||||||
let obj = toObjFile(c.config, completeCFilePath(c.config, changeFileExt(found, ""), false))
|
let obj = toObjFile(c.config, completeCFilePath(c.config, found, false))
|
||||||
docompile(c, it, found, obj)
|
docompile(c, it, found, obj)
|
||||||
|
|
||||||
proc processCommonLink(c: PContext, n: PNode, feature: TLinkFeature) =
|
proc processCommonLink(c: PContext, n: PNode, feature: TLinkFeature) =
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue