paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 10:29:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed external smartlinking

Browse Source
This commit is contained in:
florian 2003-12-11 17:53:03 +00:00
parent 05458e5c39
commit f7418d3286
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/link.pas
View File

@ -520,7 +520,7 @@ begin
{ remove the library, to be sure that it is rewritten } { remove the library, to be sure that it is rewritten }
RemoveFile(current_module.staticlibfilename^); RemoveFile(current_module.staticlibfilename^);
{ Call AR } { Call AR }
smartpath:=current_module.outputpath^+FixPath(FixFileName(current_module.modulename^)+target_info.smartext,false); smartpath:=current_module.outputpath^+FixPath(lower(current_module.modulename^)+target_info.smartext,false);
SplitBinCmd(target_ar.arcmd,binstr,cmdstr); SplitBinCmd(target_ar.arcmd,binstr,cmdstr);
Replace(cmdstr,'$LIB',current_module.staticlibfilename^); Replace(cmdstr,'$LIB',current_module.staticlibfilename^);
Replace(cmdstr,'$FILES',FixFileName(smartpath+current_module.asmprefix^+'*'+target_info.objext)); Replace(cmdstr,'$FILES',FixFileName(smartpath+current_module.asmprefix^+'*'+target_info.objext));
@ -664,7 +664,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.38 2003-09-14 21:33:11 peter Revision 1.39 2003-12-11 17:53:03 florian
* fixed external smartlinking
Revision 1.38 2003/09/14 21:33:11 peter
* don't check exepath when linking on target * don't check exepath when linking on target
Revision 1.37 2003/06/12 16:41:51 peter Revision 1.37 2003/06/12 16:41:51 peter