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

* Bug fixed in linking: compiling files on another drive than the one you

Browse Source 
currently use you is done correctly.
This commit is contained in:
daniel 1999-04-25 14:31:48 +00:00
parent 417eb205d6
commit 3197e354cd
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/link.pas
View File

@ -308,10 +308,9 @@ Var
begin
if s<>'' then
begin
if (pos('\',s)=0) and (pos('/',s)=0) then
WriteLn(Linkresponse,'.'+DirSep+s)
else
WriteLn(Linkresponse,s);
if not(s[1] in ['a'..'z','A'..'Z','/','\']) then
Write(Linkresponse,'.',DirSep);
WriteLn(Linkresponse,s);
end;
end;
@ -610,7 +609,11 @@ end;
end.
{
$Log$
Revision 1.49 1999-03-25 16:55:30 peter
Revision 1.50 1999-04-25 14:31:48 daniel
* Bug fixed in linking: compiling files on another drive than the one you
currently use you is done correctly.
Revision 1.49 1999/03/25 16:55:30 peter
+ unitpath,librarypath,includepath,objectpath directives
Revision 1.48 1999/03/23 16:22:43 peter