diff --git a/src/core/meta.ml b/src/core/meta.ml index 0b69539a0de..588b12752f3 100644 --- a/src/core/meta.ml +++ b/src/core/meta.ml @@ -124,6 +124,7 @@ type strict_meta = | PhpMagic | PhpNoConstructor | Pos + | Private | PrivateAccess | Property | Protected @@ -322,6 +323,7 @@ let get_info = function | Pos -> ":pos",("Sets the position of a reified expression",[HasParam "Position";UsedOn TExpr]) | Public -> ":public",("Marks a class field as being public",[UsedOn TClassField;UsedInternally]) | PublicFields -> ":publicFields",("Forces all class fields of inheriting classes to be public",[UsedOn TClass]) + | Private -> ":private",("Marks a class field as being private",[UsedOn TClassField;Platform Cs]) | PrivateAccess -> ":privateAccess",("Allow private access to anything for the annotated expression",[UsedOn TExpr]) | Protected -> ":protected",("Marks a class field as being protected",[UsedOn TClassField;Platforms [Cs;Java;Flash]]) | Property -> ":property",("Marks a property field to be compiled as a native C# property",[UsedOn TClassField;Platform Cs]) diff --git a/src/generators/gencs.ml b/src/generators/gencs.ml index a05c6e4034b..8c6d4882534 100644 --- a/src/generators/gencs.ml +++ b/src/generators/gencs.ml @@ -636,6 +636,7 @@ let rec get_class_modifiers meta cl_type cl_access cl_modifiers = let rec get_fun_modifiers meta access modifiers = match meta with | [] -> access,modifiers + | (Meta.Private,[],_) :: meta -> get_fun_modifiers meta "private" modifiers | (Meta.Protected,[],_) :: meta -> get_fun_modifiers meta "protected" modifiers | (Meta.Internal,[],_) :: meta -> get_fun_modifiers meta "internal" modifiers | (Meta.ReadOnly,[],_) :: meta -> get_fun_modifiers meta access ("readonly" :: modifiers)