From 959a1379cf94a519f38e8ba13ea229122117bba6 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 4 Nov 2006 18:12:33 +0000
Subject: [PATCH] * fixed building of smart linked units
git-svn-id: trunk@5227 -
---
compiler/assemble.pas | 2 +-
compiler/link.pas | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
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);