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

This commit is contained in:
Norayr Chilingarian 2024-07-22 19:53:53 +04:00
parent 9aae54c17e
commit 7278ee3f52

View file

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