From a2e4d45600f48d6ffbf955bce1150f0a318ae331 Mon Sep 17 00:00:00 2001 From: Graydon Hoare Date: Thu, 1 Jul 2010 23:15:42 -0700 Subject: Improve mangling. --- src/boot/me/semant.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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. *) -- cgit v1.2.3