From 20d339d050947874aea47715052b72530183ed9d Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sat, 27 Jun 2009 22:34:35 +0000
Subject: [PATCH] suppress warnings and hints

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@870 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/binary_streamer.pas | 4 ++++
 wst/trunk/date_utils.pas      | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/wst/trunk/binary_streamer.pas b/wst/trunk/binary_streamer.pas
index e4b01936a..0c4fcc594 100644
--- a/wst/trunk/binary_streamer.pas
+++ b/wst/trunk/binary_streamer.pas
@@ -542,6 +542,7 @@ begin
   Result := ( FStream.Position >= FStream.Size );
 end;
 
+{$HINTS OFF}
 function TDataStoreReader.ReadInt8U(): TInt8U;
 begin
   FStream.Read(Result,SizeOf(Result));
@@ -587,6 +588,7 @@ begin
   FStream.Read(Result,SizeOf(Result));
   Result := Reverse_64(Result);
 end;
+{$HINTS ON}
 
 function TDataStoreReader.ReadBool(): TBoolData;
 begin
@@ -654,6 +656,7 @@ begin
 end;
 {$ENDIF WST_UNICODESTRING}
 
+{$HINTS OFF}
 function TDataStoreReader.ReadSingle(): TFloat_Single_4;
 begin
   FStream.Read(Result,SizeOf(Result));
@@ -677,6 +680,7 @@ begin
   FStream.Read(Result,SizeOf(Result));
   Result := Reverse_Currency(Result);
 end;
+{$HINTS ON}
 
 constructor TDataStoreReader.Create(AStream: TStream);
 begin
diff --git a/wst/trunk/date_utils.pas b/wst/trunk/date_utils.pas
index 6197e1797..a986a65b6 100644
--- a/wst/trunk/date_utils.pas
+++ b/wst/trunk/date_utils.pas
@@ -65,6 +65,7 @@ begin
     Result := IncMinute(Result,-ADate.MinuteOffset);
 end;
 
+{$HINTS OFF}
 function DateEquals(const AA,AB: TDateTimeRec) : Boolean;
 var
   e, a : TDateTime;
@@ -78,6 +79,7 @@ begin
   Result := ( e_y = a_y ) and ( e_m = a_m ) and ( e_d = a_d ) and
             (e_h = a_h ) and ( e_mn = a_mn ) and ( e_ss = a_ss ) and ( e_ms = a_ms );
 end;
+{$HINTS ON}
 
 function xsd_TryStrToDate(const AStr : string; out ADate : TDateTimeRec) : Boolean;
 const