paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 00:19:19 +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

11
compiler/link.pas
View File

@ -308,9 +308,8 @@ Var
begin begin
if s<>'' then if s<>'' then
begin begin
if (pos('\',s)=0) and (pos('/',s)=0) then if not(s[1] in ['a'..'z','A'..'Z','/','\']) then
WriteLn(Linkresponse,'.'+DirSep+s) Write(Linkresponse,'.',DirSep);
else
WriteLn(Linkresponse,s); WriteLn(Linkresponse,s);
end; end;
end; end;
@ -610,7 +609,11 @@ end;
end. end.
{ {
$Log$ $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 + unitpath,librarypath,includepath,objectpath directives
Revision 1.48 1999/03/23 16:22:43 peter Revision 1.48 1999/03/23 16:22:43 peter