paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 12:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid chdir('d:') in FPC

Browse Source
This commit is contained in:
pierre 1999-11-30 17:15:32 +00:00
parent aa0b67f558
commit 951bec544e
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/text/fpmfile.inc
View File

@ -92,7 +92,10 @@ begin
else else
DriveNumber:=Ord(FileDir[1])-ord('A')+1; DriveNumber:=Ord(FileDir[1])-ord('A')+1;
GetDir(DriveNumber,StoreDir2); GetDir(DriveNumber,StoreDir2);
{$ifndef FPC}
ChDir(Copy(FileDir,1,2)); ChDir(Copy(FileDir,1,2));
{ sets InOutRes in win32 PM }
{$endif not FPC}
end; end;
if FileDir<>'' then if FileDir<>'' then
ChDir(FileDir); ChDir(FileDir);
@ -107,8 +110,10 @@ begin
Dispose(D, Done); Dispose(D, Done);
if DriveNumber<>0 then if DriveNumber<>0 then
ChDir(StoreDir2); ChDir(StoreDir2);
{$ifndef FPC}
if (Length(StoreDir)>1) and (StoreDir[2]=':') then if (Length(StoreDir)>1) and (StoreDir[2]=':') then
ChDir(Copy(StoreDir,1,2)); ChDir(Copy(StoreDir,1,2));
{$endif not FPC}
ChDir(StoreDir); ChDir(StoreDir);
end; end;
if OpenIt then if OpenIt then
@ -180,7 +185,10 @@ end;
{ {
$Log$ $Log$
Revision 1.15 1999-10-29 13:47:00 pierre Revision 1.16 1999-11-30 17:15:32 pierre
* avoid chdir('d:') in FPC
Revision 1.15 1999/10/29 13:47:00 pierre
* typo error corrected * typo error corrected
Revision 1.14 1999/10/27 10:44:08 pierre Revision 1.14 1999/10/27 10:44:08 pierre