paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 17:33:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed building of smart linked units

Browse Source 
git-svn-id: trunk@5227 -
This commit is contained in:
florian 2006-11-04 18:12:33 +00:00
parent 34a361e4b5
commit 959a1379cf
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/assemble.pas
View File

@ -253,7 +253,7 @@ Implementation
inherited Create(smart); inherited Create(smart);
if SmartAsm then if SmartAsm then
begin begin
path:=FixPath(path+ChangeFileExt(AsmFileName,target_info.smartext),false); path:=FixPath(ChangeFileExt(AsmFileName,target_info.smartext),false);
CreateSmartLinkPath(path); CreateSmartLinkPath(path);
end; end;
Outcnt:=0; Outcnt:=0;

2
compiler/link.pas
View File

@ -677,7 +677,7 @@ Implementation
{ remove the library, to be sure that it is rewritten } { remove the library, to be sure that it is rewritten }
DeleteFile(current_module.staticlibfilename^); DeleteFile(current_module.staticlibfilename^);
{ Call AR } { 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); SplitBinCmd(target_ar.arcmd,binstr,cmdstr);
binstr := FindUtil(utilsprefix + binstr); binstr := FindUtil(utilsprefix + binstr);