vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-05 20:42:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

prevent deref of NIL if Dependencies section exists but is empty.

Browse source
This commit is contained in:
Norayr Chilingarian 2024-07-22 19:53:53 +04:00
parent 9aae54c17e
commit 7278ee3f52
1 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/vpkJsonDepRetriever.Mod
View file

@ -367,6 +367,7 @@ BEGIN
IF foundDepSection THEN IF foundDepSection THEN
WHILE rootObj # NIL DO WHILE rootObj # NIL DO
depsValue := rootObj.value; depsValue := rootObj.value;
IF depsValue # NIL THEN
IF depsValue IS Json.Obj THEN IF depsValue IS Json.Obj THEN
singleDep := depsValue(Json.Obj); singleDep := depsValue(Json.Obj);
WHILE singleDep # NIL DO WHILE singleDep # NIL DO
@ -381,6 +382,7 @@ BEGIN
END; (* End of inner WHILE loop for dependencies *) END; (* End of inner WHILE loop for dependencies *)
RETURN depstrlist.Count; RETURN depstrlist.Count;
END; (* End of IF depsValue IS Json.Obj *) END; (* End of IF depsValue IS Json.Obj *)
END;
rootObj := rootObj.next; (* Move to the next JSON object *) rootObj := rootObj.next; (* Move to the next JSON object *)
END; (* End of WHILE rootObj # NIL loop *) END; (* End of WHILE rootObj # NIL loop *)
ELSE ELSE