pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

suppress warnings and hints

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@870 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-06-27 22:34:35 +00:00
parent 64e65ab2c6
commit 20d339d050
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/binary_streamer.pas
View File

@@ -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

2
wst/trunk/date_utils.pas
View File

@@ -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