|
@@ -728,6 +728,7 @@ Type TGlobalDecl Extends TVarDecl
|
|
Method CheckAccess:Int()
|
|
Method CheckAccess:Int()
|
|
Local cd:TClassDecl = ClassScope()
|
|
Local cd:TClassDecl = ClassScope()
|
|
If cd Then
|
|
If cd Then
|
|
|
|
+ If cd.modulescope() = _env.modulescope() Return True
|
|
If IsPrivate() And cd<>_env.ClassScope() Return False
|
|
If IsPrivate() And cd<>_env.ClassScope() Return False
|
|
If IsProtected() Then
|
|
If IsProtected() Then
|
|
Local ec:TClassDecl = _env.ClassScope()
|
|
Local ec:TClassDecl = _env.ClassScope()
|
|
@@ -776,6 +777,10 @@ Type TFieldDecl Extends TVarDecl
|
|
|
|
|
|
Method CheckAccess:Int()
|
|
Method CheckAccess:Int()
|
|
|
|
|
|
|
|
+ If ModuleScope() = _env.ModuleScope() Then
|
|
|
|
+ Return True
|
|
|
|
+ End If
|
|
|
|
+
|
|
Local cs:TClassDecl = ClassScope()
|
|
Local cs:TClassDecl = ClassScope()
|
|
|
|
|
|
If IsPrivate() And cs Then
|
|
If IsPrivate() And cs Then
|
|
@@ -2192,6 +2197,7 @@ Type TFuncDecl Extends TBlockDecl
|
|
End Method
|
|
End Method
|
|
|
|
|
|
Method CheckAccess:Int()
|
|
Method CheckAccess:Int()
|
|
|
|
+ If ModuleScope() = _env.ModuleScope() Return True
|
|
Local cd:TClassDecl = ClassScope()
|
|
Local cd:TClassDecl = ClassScope()
|
|
If cd Then
|
|
If cd Then
|
|
If IsPrivate() And cd<>_env.ClassScope() Return False
|
|
If IsPrivate() And cd<>_env.ClassScope() Return False
|