paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 04:59:43 +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

8
components/codetools/directorycacher.pas
View File

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