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@869 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-06-27 22:33:22 +00:00
parent 0382194dd1
commit 64e65ab2c6
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
wst/trunk/base_binary_formatter.pas
View File

@ -2094,6 +2094,7 @@ begin
Inc(FIndex);
end;
{$WARNINGS OFF}
function TArrayStackItem.CreateInnerBuffer(const ADataType: TDataType): PDataBuffer;
begin
raise EBinaryFormatterException.Create('Array do not support "inner value" feature.');
@ -2103,6 +2104,7 @@ function TArrayStackItem.GetInnerBuffer(): PDataBuffer;
begin
raise EBinaryFormatterException.Create('Array do not support "inner value" feature.');
end;
{$WARNINGS ON}
procedure TArrayStackItem.NilCurrentScope();
begin

5
wst/trunk/base_json_formatter.pas
View File

@ -1064,7 +1064,6 @@ var
uint64Data : QWord;
{$ENDIF HAS_QWORD}
strData : string;
objData : TObject;
boolData : Boolean;
enumData : TEnumIntType;
floatDt : Extended;
@ -1321,11 +1320,9 @@ var
uint64Data : QWord;
{$ENDIF HAS_QWORD}
strData : string;
objData : TObject;
boolData : Boolean;
enumData : TEnumIntType;
floatDt : Extended;
recObject : Pointer;
wideStrData : WideString;
{$IFDEF WST_UNICODESTRING}
unicodeStrData : UnicodeString;
@ -1812,6 +1809,7 @@ begin
Result := nil;
end;
{$WARNINGS OFF}
function TNullStackItem.CreateStringBuffer(const AName : string; const AValue : TJSONStringType) : TJSONData;
begin
RaiseNotApplicable();
@ -1846,6 +1844,7 @@ function TNullStackItem.NilItem(AItem : TJSONData) : TJSONData;
begin
RaiseNotApplicable();
end;
{$WARNINGS ON}
function TNullStackItem.GetScopeItemNames(const AReturnList : TStrings) : Integer;
begin

1
wst/trunk/base_xmlrpc_formatter.pas
View File

@ -642,6 +642,7 @@ begin
raise EXmlRpcException.Create('TArrayStackItem.PopIndex() >> No saved index.');
FIndex := FIndexStack[FIndexStackIDX];
Dec(FIndexStackIDX);
Result := FIndex;
end;
{ TXmlRpcBaseFormatter }