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 = ...@@ -615,18 +615,18 @@ let rec oneStepGMLRec counters sort v currentU =
let modalArg = lfGetDest1 sort lf in let modalArg = lfGetDest1 sort lf in
let newVal = (Hashtbl.find counters lf) + 1 in let newVal = (Hashtbl.find counters lf) + 1 in
match lfGetType sort lf with match lfGetType sort lf with
| MoreThanF -> bsetMem u modalArg then Hashtbl.add counters lf newVal | MoreThanF -> if bsetMem u modalArg then Hashtbl.add counters lf newVal
| MaxExceptF -> not (bsetMem u modalArg) then Hashtbl.add counters lf newVal | MaxExceptF -> if not (bsetMem u modalArg) then Hashtbl.add counters lf newVal
| _ -> () | _ -> ()
in in
let updateCountersRem lf = let updateCountersRem lf =
let modalArg = lfGetDest1 sort lf in let modalArg = lfGetDest1 sort lf in
match lfGetType sort lf with match lfGetType sort lf with
| MoreThanF -> bsetMem u modalArg then Hashtbl.remove counters lf | MoreThanF -> if bsetMem u modalArg then Hashtbl.remove counters lf
| MaxExceptF -> not (bsetMem u modalArg) then Hashtbl.remove counters lf | MaxExceptF -> if not (bsetMem u modalArg) then Hashtbl.remove counters lf
| _ -> () | _ -> ()
in in
let fitleredV = (List.assoc rel filteredVsForRels) in let filteredV = (List.assoc rel filteredVsForRels) in
bsetIter updateCountersAdd filteredV; bsetIter updateCountersAdd filteredV;
if ((oneStepGMLRec counters sort filteredV filteredU)) then true if ((oneStepGMLRec counters sort filteredV filteredU)) then true
else begin 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