paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: changed TFileStateCacheItem.TimeStamp to int64

Browse Source 
git-svn-id: trunk@29801 -
This commit is contained in:
mattias 2011-03-11 22:47:40 +00:00
parent 160a97f228
commit 9b37a91c5b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/fileprocs.pas
View File

@ -189,15 +189,15 @@ type
FFilename: string; FFilename: string;
FFlags: TFileStateCacheItemFlags; FFlags: TFileStateCacheItemFlags;
FTestedFlags: TFileStateCacheItemFlags; FTestedFlags: TFileStateCacheItemFlags;
FTimeStamp: integer; FTimeStamp: int64;
public public
constructor Create(const TheFilename: string; NewTimeStamp: integer); constructor Create(const TheFilename: string; NewTimeStamp: int64);
function CalcMemSize: PtrUint; function CalcMemSize: PtrUint;
public public
property Filename: string read FFilename; property Filename: string read FFilename;
property Flags: TFileStateCacheItemFlags read FFlags; property Flags: TFileStateCacheItemFlags read FFlags;
property TestedFlags: TFileStateCacheItemFlags read FTestedFlags; property TestedFlags: TFileStateCacheItemFlags read FTestedFlags;
property TimeStamp: integer read FTimeStamp; property TimeStamp: int64 read FTimeStamp;
property Age: longint read FAge; property Age: longint read FAge;
end; end;
@ -3107,7 +3107,7 @@ end;
{ TFileStateCacheItem } { TFileStateCacheItem }
constructor TFileStateCacheItem.Create(const TheFilename: string; constructor TFileStateCacheItem.Create(const TheFilename: string;
NewTimeStamp: integer); NewTimeStamp: int64);
begin begin
FFilename:=TheFilename; FFilename:=TheFilename;
FTimeStamp:=NewTimeStamp; FTimeStamp:=NewTimeStamp;