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

* avoid crash on unix root dir

Browse Source
This commit is contained in:
pierre 2002-05-24 21:00:45 +00:00
parent 710c72c322
commit 48feb49ae5
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fv/stddlg.pas
View File

@ -1713,7 +1713,10 @@ var
begin
New(DirEntry);
DirEntry^.DisplayText := NewStr(DisplayText);
DirEntry^.Directory := NewStr(Directory);
If Directory='' then
DirEntry^.Directory := NewStr(DirSeparator)
else
DirEntry^.Directory := NewStr(Directory);
NewDirEntry := DirEntry;
end;

5
fvision/stddlg.pas
View File

@ -1713,7 +1713,10 @@ var
begin
New(DirEntry);
DirEntry^.DisplayText := NewStr(DisplayText);
DirEntry^.Directory := NewStr(Directory);
If Directory='' then
DirEntry^.Directory := NewStr(DirSeparator)
else
DirEntry^.Directory := NewStr(Directory);
NewDirEntry := DirEntry;
end;