summaryrefslogtreecommitdiff
path: root/src/PrintPure.ml
diff options
context:
space:
mode:
authorSon Ho2022-01-28 00:04:22 +0100
committerSon Ho2022-01-28 00:04:22 +0100
commitb4ecf513020b2d5bfdfb7b9e2a721feab6e6998e (patch)
tree024899cb85a6835d73d2bda5b68c986f1f7ad6f1 /src/PrintPure.ml
parent4fcc9f5ca26bec31d1c4d6ead1578e96337dd329 (diff)
Remove the Aggregated variant from SymbolicAst.meta as it is included in
the Assignment variant
Diffstat (limited to '')
-rw-r--r--src/PrintPure.ml3
1 files changed, 0 insertions, 3 deletions
diff --git a/src/PrintPure.ml b/src/PrintPure.ml
index 5223fb21..f78e4a97 100644
--- a/src/PrintPure.ml
+++ b/src/PrintPure.ml
@@ -340,9 +340,6 @@ let mplace_to_string (fmt : ast_formatter) (p : mplace) : string =
let meta_to_string (fmt : ast_formatter) (meta : meta) : string =
let meta =
match meta with
- | Aggregate (p, rv) ->
- let p = match p with None -> "_" | Some p -> mplace_to_string fmt p in
- "@aggregate(" ^ p ^ " := " ^ typed_rvalue_to_string fmt rv ^ ")"
| Assignment (p, rv) ->
"@assign(" ^ mplace_to_string fmt p ^ " := "
^ typed_rvalue_to_string fmt rv