paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

suppress various warnings

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1333 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2010-10-04 10:30:19 +00:00
parent 6bac809dd9
commit e0bb0bd04f
4 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
wst/trunk/base_soap_formatter.pas
View File

@ -111,8 +111,9 @@ type
TScopedArrayStackItem = class(TAbstractArrayStackItem)
protected
destructor Destroy();override;
function CreateList(const ANodeName : string):TDOMNodeList;override;
public
destructor Destroy();override;
end;
{ TEmbeddedArrayStackItem }
@ -643,8 +644,10 @@ begin
case AStyle of
asScoped : Result := FStack.Push(TScopedArrayStackItem.Create(AScopeObject,stArray,AItemName)) as TStackItem;
asEmbeded : Result := FStack.Push(TEmbeddedArrayStackItem.Create(AScopeObject,stArray,AItemName)) as TStackItem;
else
else begin
Assert(False);
Result := nil;
end;
end;
end;
@ -1480,6 +1483,7 @@ begin
if ( AScopeType = stObject ) or
( ( AScopeType = stArray ) and ( AStyle = asScoped ) )
then begin
addAtt := False;
scpStr := AScopeName;
hasNmspc := Not IsStrEmpty(ANameSpace);
If hasNmspc Then Begin
@ -1980,6 +1984,8 @@ begin
otUWord : enumData := Word(AData);
otSLong : enumData := LongInt(AData);
otULong : enumData := LongWord(AData);
else
enumData := 0;
end;
dataBuffer := IntToStr(enumData);
end;

2
wst/trunk/base_xmlrpc_formatter.pas
View File

@ -1600,6 +1600,8 @@ begin
otUWord : enumData := Word(AData);
otSLong : enumData := LongInt(AData);
otULong : enumData := LongWord(AData);
else
enumData := 0;
end;
dataBuffer := IntToStr(enumData);
end;

2
wst/trunk/config_objects.pas
View File

@ -171,12 +171,12 @@ var
frmt : IFormatterBase;
createdHere : Boolean;
begin
createdHere := ( AConfigObj = nil );
if ( AConfigObj <> nil ) then
locObj := AConfigObj
else
locObj := wst_CreateDefaultConfigObject();
try
createdHere := ( AConfigObj = nil );
frmt := TSOAPBaseFormatter.Create();
frmt.SetSerializationStyle(ssNodeSerialization);
frmt.BeginObject(sAPPLICATION,TypeInfo(TWstConfigurationObject));

6
wst/trunk/object_serializer.pas
View File

@ -197,6 +197,7 @@ implementation
uses
wst_consts;
{$HINTS OFF}
function ErrorFunc(
AObject : TObject;
APropInfo : TPropSerializationInfo;
@ -214,6 +215,7 @@ procedure ErrorProc(
begin
raise Exception.CreateFmt(SERR_NoReaderProc,[APropInfo.Name,APropInfo.PropInfo^.Name]);
end;
{$HINTS ON}
type
TEnumBuffer = record
@ -288,6 +290,7 @@ var
floatDt : TFloatExtendedType;
pt : PTypeInfo;
begin
floatDt := 0;
floatBuffer.ExtendedData := 0;
propName := APropInfo.ExternalName;
pt := APropInfo.PropInfo^.PropType{$IFDEF WST_DELPHI}^{$ENDIF};
@ -343,6 +346,7 @@ var
boolData : Boolean;
{$ENDIF WST_DELPHI}
begin
int64Data := 0;
propName := APropInfo.ExternalName;
pt := APropInfo.PropInfo^.PropType{$IFDEF WST_DELPHI}^{$ENDIF};
{$IFDEF WST_DELPHI}
@ -521,6 +525,7 @@ var
floatDt : TFloatExtendedType;
pt : PTypeInfo;
begin
floatDt := 0;
floatBuffer.ExtendedData := 0;
propName := APropInfo.ExternalName;
pt := APropInfo.PropInfo^.PropType{$IFDEF WST_DELPHI}^{$ENDIF};
@ -592,6 +597,7 @@ var
boolData : Boolean;
{$ENDIF WST_DELPHI}
begin
int64Data := 0;
propName := APropInfo.ExternalName;
pt := APropInfo.PropInfo^.PropType{$IFDEF WST_DELPHI}^{$ENDIF};
{$IFDEF WST_DELPHI}