paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-21 03:39:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: comments

Browse Source 
git-svn-id: trunk@32111 -
This commit is contained in:
mattias 2011-08-30 10:05:31 +00:00
parent eacc24bb69
commit 8dece24bd0
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/codetools/directorycacher.pas
View File

@ -122,11 +122,11 @@ type
TCTDirectoryListing = class
public
FileTimeStamp: integer;
Files: PChar; { all filenames: each: time:TCTDirectoryListingHeader+filename+#0
Files: PChar; { each file: TCTDirectoryListingHeader+filename+#0
sorted: first case insensitive then sensitive }
Count: integer; // number of filenames
Size: PtrInt; // length of Names in bytes
Starts: PInteger; // offsets in 'Names'
Size: PtrInt; // length of Files in bytes
Starts: PInteger; // offsets of each file in Files
destructor Destroy; override;
procedure Clear;
function CalcMemSize: PtrUInt;
@ -373,9 +373,9 @@ begin
end;
if (AUnitName^=#0) then
if (Filename^='.') then
Result:=0
Result:=0
else
Result:=ord('.')-ord(Filename^) // TG 2007-10-21
Result:=ord('.')-ord(Filename^)
else
Result:=ord(FPUpChars[AUnitName^])-ord(FPUpChars[Filename^]);
end;