paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ fixpath() has an extra option to allow a ./ as path

Browse Source
This commit is contained in:
peter 1998-10-26 22:23:28 +00:00
parent 4ae9c1291d
commit aea3c488fb
3 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/assemble.pas
View File

@ -445,7 +445,7 @@ begin
mkdir(path);
{$I+}
i:=ioresult;
path:=FixPath(path);
path:=FixPath(path,false);
end
else
path:=current_module^.path^;
@ -528,7 +528,10 @@ end;
end.
{
$Log$
Revision 1.30 1998-10-16 13:37:14 florian
Revision 1.31 1998-10-26 22:23:28 peter
+ fixpath() has an extra option to allow a ./ as path
Revision 1.30 1998/10/16 13:37:14 florian
+ switch -FD added to specify the path for utilities
Revision 1.29 1998/10/15 16:19:42 peter

9
compiler/files.pas
View File

@ -595,7 +595,7 @@ unit files;
fsplit(fn,p,n,e);
n:=FixFileName(n);
{ set path }
path:=stringdup(FixPath(p));
path:=stringdup(FixPath(p,false));
{ obj,asm,ppu names }
p:=path^;
if AllowOutput then
@ -766,7 +766,7 @@ unit files;
i:=pos(';',unitpath);
if i=0 then
i:=length(unitpath)+1;
singlepathstring:=FixPath(copy(unitpath,start,i-start));
singlepathstring:=FixPath(copy(unitpath,start,i-start),false);
delete(unitpath,start,i-start+1);
{ Check for PPL file }
if not Found then
@ -1022,7 +1022,10 @@ unit files;
end.
{
$Log$
Revision 1.66 1998-10-19 18:07:11 peter
Revision 1.67 1998-10-26 22:23:29 peter
+ fixpath() has an extra option to allow a ./ as path
Revision 1.66 1998/10/19 18:07:11 peter
+ external dll_name name func support for linux
Revision 1.65 1998/10/15 12:22:25 pierre

7
compiler/link.pas
View File

@ -462,7 +462,7 @@ var
arfound : boolean;
cnt : longint;
begin
smartpath:=current_module^.path^+FixPath(FixFileName(current_module^.modulename^)+target_info.smartext);
smartpath:=current_module^.path^+FixPath(FixFileName(current_module^.modulename^)+target_info.smartext,false);
{ find ar binary }
if utilsdirectory<>'' then
begin
@ -514,7 +514,10 @@ end;
end.
{
$Log$
Revision 1.36 1998-10-22 15:18:44 florian
Revision 1.37 1998-10-26 22:23:31 peter
+ fixpath() has an extra option to allow a ./ as path
Revision 1.36 1998/10/22 15:18:44 florian
+ switch -vx for win32 added
Revision 1.35 1998/10/19 18:06:23 peter