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

2
wst/trunk/base_xmlrpc_formatter.pas
View File

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

2
wst/trunk/config_objects.pas
View File

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

6
wst/trunk/object_serializer.pas
View File

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