paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 20:00:19 +02: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
begin
currpath:=hsd+dir.name+dirsep;
if not assigned(Find(currPath)) then
hp:=Find(currPath);
if not assigned(hp) then
AddCurrPath;
end;
findnext(dir);
@ -1471,7 +1472,10 @@ begin
end.
{
$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/*
in ppc386.cfg