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

* probably a fix for bug #615

Browse Source
This commit is contained in:
pierre 2000-03-20 16:04:05 +00:00
parent cb860d32dc
commit 53d50a62a4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/globals.pas
View File

@ -1120,7 +1120,7 @@ implementation
else
begin
CurrPath:=FixPath(FExpand(CurrPath),false);
if (Copy(CurrPath,1,length(CurrentDir))=CurrentDir) then
if (CurrentDir<>'') and (Copy(CurrPath,1,length(CurrentDir))=CurrentDir) then
CurrPath:='.'+DirSep+Copy(CurrPath,length(CurrentDir)+1,255);
end;
{ wildcard adding ? }
@ -1563,7 +1563,10 @@ begin
end.
{
$Log$
Revision 1.55 2000-03-08 15:39:45 daniel
Revision 1.56 2000-03-20 16:04:05 pierre
* probably a fix for bug 615
Revision 1.55 2000/03/08 15:39:45 daniel
+ Added align_from_size function as suggested by Peter.
Revision 1.54 2000/02/28 17:23:57 daniel