paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Also allow a single package dependency

Browse Source 
git-svn-id: trunk@20573 -
This commit is contained in:
joost 2012-03-22 14:03:06 +00:00
parent 386fb374ce
commit 1bf8ef2428
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
utils/fpgmake/fpmakeparsejson.pas
View File

@ -122,13 +122,14 @@ var
AJSonArray: TJSONArray;
n: Integer;
begin
if AJsonData.JSONType <> jtArray then
raise Exception.CreateFmt('Array expected but not found. (%s)',[AJsonData.AsString]);
AJSonArray := AJsonData as TJSONArray;
for n := 0 to AJSonArray.Count-1 do
if AJsonData.JSONType = jtArray then
begin
ParseConditionalString(ACondStrings.add(''), AJSonArray.Items[n], ValueCaption);
end;
AJSonArray := AJsonData as TJSONArray;
for n := 0 to AJSonArray.Count-1 do
ParseConditionalString(ACondStrings.add(''), AJSonArray.Items[n], ValueCaption);
end
else
ParseConditionalString(ACondStrings.add(''), AJsonData, ValueCaption);
end;
procedure ParseUnitTarget(aTarget: TTarget; aJSONData: TJSONData);