paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 19:59:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

* tp7 fix

Browse Source
This commit is contained in:
peter 2000-01-07 00:08:09 +00:00
parent 1911ada096
commit 75109b4fc1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/globals.pas
View File

@ -1070,7 +1070,8 @@ implementation
((dir.attr and directory)<>0) then ((dir.attr and directory)<>0) then
begin begin
currpath:=hsd+dir.name+dirsep; currpath:=hsd+dir.name+dirsep;
if not assigned(Find(currPath)) then hp:=Find(currPath);
if not assigned(hp) then
AddCurrPath; AddCurrPath;
end; end;
findnext(dir); findnext(dir);
@ -1471,7 +1472,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.44 2000-01-06 15:48:59 peter Revision 1.45 2000-01-07 00:08:09 peter
* tp7 fix
Revision 1.44 2000/01/06 15:48:59 peter
* wildcard support for directory adding, this allows the use of units/* * wildcard support for directory adding, this allows the use of units/*
in ppc386.cfg in ppc386.cfg