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

Remove not used variables, fix uninitialized variables.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2970 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-04-25 19:05:55 +00:00
parent 96b63bb1ad
commit 402f527cbb
2 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
wst/trunk/ws_helper/ws_parser_imp.pas
View File

@ -853,7 +853,7 @@ var
var AMaxUnboundded : Boolean
);
var
locAttCursor, locPartCursor : IObjectCursor;
locPartCursor : IObjectCursor;
locMin, locMax : Integer;
locMaxOccurUnbounded : Boolean;
locStrBuffer : string;
@ -914,6 +914,7 @@ var
locType := nil;
locTypeName := '';
locTypeHint := '';
locInternalEltName := '';
locAttCursor := CreateAttributesCursor(AElement,cetRttiNode);
locPartCursor := CreateCursorOn(locAttCursor.Clone() as IObjectCursor,ParseFilter(Format('%s = %s',[s_NODE_NAME,QuotedStr(s_name)]),TDOMNodeRttiExposer));
locPartCursor.Reset();
@ -928,9 +929,9 @@ var
locIsRefElement := True;
end;
locName := (locPartCursor.GetCurrent() as TDOMNodeRttiExposer).NodeValue;
if locIsRefElement then begin
if locIsRefElement then
locName := ExtractNameFromQName(locName);
end;
locInternalEltName := ExtractIdentifier(locName);
if IsStrEmpty(locName) then
raise EXsdParserException.Create(SERR_InvalidElementDef_EmptyName);
if locIsRefElement then begin
@ -1113,12 +1114,14 @@ var
end;
var
locNode, locAnyNode, locAnyAttNode : TDOMNode;
locNode : TDOMNode;
locNS, locLN : string;
locEltCrs, locEltAttCrs : IObjectCursor;
locBoundInfos : TOccurrenceRec;
begin
FillChar(locBoundInfos,SizeOf(locBoundInfos),#0);
if Assigned(AEltCrs) then begin
locEltAttCrs := nil;
AEltCrs.Reset();
while AEltCrs.MoveNext() do begin
locNode := (AEltCrs.GetCurrent() as TDOMNodeRttiExposer).InnerObject;
@ -1439,6 +1442,7 @@ var
locName := ExtractNameFromQName(locName);
if IsStrEmpty(locName) then
raise EXsdInvalidDefinitionException.Create(SERR_InvalidAttributeDef_EmptyName);
locInternalEltName := ExtractIdentifier(locName);
if locIsRefElement then begin
locTypeName := locName;
@ -1486,7 +1490,7 @@ var
locStoreOptIdx := 1{optional by default!}; //0;
end;
locInternalEltName := locName;
locInternalEltName := ExtractIdentifier(locName);
locHasInternalName := IsReservedKeyWord(locInternalEltName);
if locHasInternalName then
locInternalEltName := Format('_%s',[locInternalEltName]);

3
wst/trunk/ws_helper/xsd_generator.pas
View File

@ -398,10 +398,9 @@ function FindAttributeByValueInNode(
const AStartingWith : string = ''
):boolean;overload;
var
i,c : Integer;
b : Boolean;
k : Integer;
begin
k := 0;
Result := FindAttributeByValueInNode(
AAttValue,ANode,AResAtt,AStartIndex,AStartingWith,k
);