* fixed building of smart linked units

git-svn-id: trunk@5227 -

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;

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);