From 38ed54310e72b9f14d6d2f8e25e0af77bbc9293a Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 19 Jun 2003 15:20:29 +0000
Subject: [PATCH]  * add explicit typecast to OnDiskLoadTime assignments

---
 ide/wcedit.pas | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/ide/wcedit.pas b/ide/wcedit.pas
index d1d3472619..591648d2b7 100644
--- a/ide/wcedit.pas
+++ b/ide/wcedit.pas
@@ -1788,7 +1788,7 @@ end;
 
 function TFileEditor.IsChangedOnDisk : boolean;
 begin
-  IsChangedOnDisk:=(Core^.OnDiskLoadTime<>GetFileTime(FileName)) and
+  IsChangedOnDisk:=(Core^.OnDiskLoadTime<>Cardinal(GetFileTime(FileName))) and
     (Core^.OnDiskLoadTime<>0);
 end;
 
@@ -1834,7 +1834,7 @@ begin
   { don't forget to update the OnDiskLoadTime value }
   if OK then
     begin
-      Core^.OnDiskLoadTime:=GetFileTime(FileName);
+      Core^.OnDiskLoadTime:=Cardinal(GetFileTime(FileName));
       Core^.SystemLoadTime:=SaveTime;
     end;
   if not OK then
@@ -1871,7 +1871,7 @@ begin
       SetModified(false);
       ClearUndoList;
       { don't forget to update the OnDiskLoadTime value }
-      Core^.OnDiskLoadTime:=GetFileTime(FileName);
+      Core^.OnDiskLoadTime:=Cardinal(GetFileTime(FileName));
       Core^.SystemLoadTime:=Core^.OnDiskLoadTime;
       DrawView;
     end
@@ -1898,7 +1898,7 @@ end;
 function TFileEditor.SaveAs: Boolean;
 var
   SavedName : String;
-  SavedDiskLoadTime : longint;
+  SavedDiskLoadTime : cardinal;
 begin
   SaveAs := False;
   SavedName:=FileName;
@@ -2071,7 +2071,10 @@ end;
 END.
 {
  $Log$
- Revision 1.17  2002-12-18 16:10:01  pierre
+ Revision 1.18  2003-06-19 15:20:29  pierre
+  * add explicit typecast to OnDiskLoadTime assignments
+
+ Revision 1.17  2002/12/18 16:10:01  pierre
   * fix bug report 2205
 
  Revision 1.16  2002/12/16 15:14:44  pierre