diff --git a/compiler/assemble.pas b/compiler/assemble.pas index ec289b0b2d..a6139acfd2 100644 --- a/compiler/assemble.pas +++ b/compiler/assemble.pas @@ -253,7 +253,7 @@ Implementation inherited Create(smart); if SmartAsm then begin - path:=FixPath(path+ChangeFileExt(AsmFileName,target_info.smartext),false); + path:=FixPath(ChangeFileExt(AsmFileName,target_info.smartext),false); CreateSmartLinkPath(path); end; Outcnt:=0; diff --git a/compiler/link.pas b/compiler/link.pas index 8f0b5f5418..59fd264b11 100644 --- a/compiler/link.pas +++ b/compiler/link.pas @@ -677,7 +677,7 @@ Implementation { remove the library, to be sure that it is rewritten } DeleteFile(current_module.staticlibfilename^); { Call AR } - smartpath:=current_module.outputpath^+FixPath(ChangeFileExt(current_module.asmfilename^,target_info.smartext),false); + smartpath:=FixPath(ChangeFileExt(current_module.asmfilename^,target_info.smartext),false); SplitBinCmd(target_ar.arcmd,binstr,cmdstr); binstr := FindUtil(utilsprefix + binstr);