Unverified Commit 702f9714 authored by Merlin's avatar Merlin 💧
Browse files

Compiles and tests run

parent 113699a6
Pipeline #14922 waiting for manual action with stages
......@@ -615,18 +615,18 @@ let rec oneStepGMLRec counters sort v currentU =
let modalArg = lfGetDest1 sort lf in
let newVal = (Hashtbl.find counters lf) + 1 in
match lfGetType sort lf with
| MoreThanF -> bsetMem u modalArg then Hashtbl.add counters lf newVal
| MaxExceptF -> not (bsetMem u modalArg) then Hashtbl.add counters lf newVal
| MoreThanF -> if bsetMem u modalArg then Hashtbl.add counters lf newVal
| MaxExceptF -> if not (bsetMem u modalArg) then Hashtbl.add counters lf newVal
| _ -> ()
in
let updateCountersRem lf =
let modalArg = lfGetDest1 sort lf in
match lfGetType sort lf with
| MoreThanF -> bsetMem u modalArg then Hashtbl.remove counters lf
| MaxExceptF -> not (bsetMem u modalArg) then Hashtbl.remove counters lf
| MoreThanF -> if bsetMem u modalArg then Hashtbl.remove counters lf
| MaxExceptF -> if not (bsetMem u modalArg) then Hashtbl.remove counters lf
| _ -> ()
in
let fitleredV = (List.assoc rel filteredVsForRels) in
let filteredV = (List.assoc rel filteredVsForRels) in
bsetIter updateCountersAdd filteredV;
if ((oneStepGMLRec counters sort filteredV filteredU)) then true
else begin
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment