aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraydon Hoare <[email protected]>2010-07-01 23:15:42 -0700
committerGraydon Hoare <[email protected]>2010-07-01 23:15:42 -0700
commita2e4d45600f48d6ffbf955bce1150f0a318ae331 (patch)
tree020f200ef5a3163e6bb615cb5942e26087ddb0c4
parentTeach the associative_binary_op_ty_fold about box, mutable and tys. (diff)
downloadrust-a2e4d45600f48d6ffbf955bce1150f0a318ae331.tar.xz
rust-a2e4d45600f48d6ffbf955bce1150f0a318ae331.zip
Improve mangling.
-rw-r--r--src/boot/me/semant.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/me/semant.ml b/src/boot/me/semant.ml
index 30e8b751..ea82e685 100644
--- a/src/boot/me/semant.ml
+++ b/src/boot/me/semant.ml
@@ -2147,8 +2147,8 @@ let ty_str (ty:Ast.ty) : string =
ty_fold_native = (fun _ -> "N");
ty_fold_param = (fun _ -> "P");
ty_fold_type = (fun _ -> "Y");
- ty_fold_mutable = (fun t -> "m" ^ t);
- ty_fold_box = (fun t -> "e" ^ t);
+ ty_fold_mutable = (fun t -> "M" ^ t);
+ ty_fold_box = (fun t -> "B" ^ t);
(* FIXME (issue #78): encode obj types. *)
(* FIXME (issue #78): encode opaque and param numbers. *)