administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

bug fix #771

Browse source
This commit is contained in:
Бондарев Иван 2018-04-15 11:34:41 +02:00
parent 5b4c226e27
commit 4d3a1ab605
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
NETGenerator/NETGenerator.cs
View file

@ -157,6 +157,7 @@ namespace PascalABCCompiler.NETGenerator
private int cur_line = 0;
private ISymbolDocumentWriter new_doc;
private List<LocalBuilder> pinned_variables = new List<LocalBuilder>();
private bool pabc_rtl_converted = false;
private void CheckLocation(SemanticTree.ILocation Location)
{
@ -447,6 +448,7 @@ namespace PascalABCCompiler.NETGenerator
if (name == "PABCRtl" || name == "PABCRtl32")
{
pabc_rtl_converted = true;
an.Flags = AssemblyNameFlags.PublicKey;
an.VersionCompatibility = System.Configuration.Assemblies.AssemblyVersionCompatibility.SameProcess;
an.HashAlgorithm = System.Configuration.Assemblies.AssemblyHashAlgorithm.None;
@ -4599,7 +4601,7 @@ namespace PascalABCCompiler.NETGenerator
switch (fal)
{
case field_access_level.fal_public: return MethodAttributes.Public;
case field_access_level.fal_internal: return comp_opt.target == TargetType.Dll ? MethodAttributes.Public : MethodAttributes.Assembly;
case field_access_level.fal_internal: return (comp_opt.target == TargetType.Dll && pabc_rtl_converted) ? MethodAttributes.Public : MethodAttributes.Assembly;
case field_access_level.fal_protected: return MethodAttributes.FamORAssem;
case field_access_level.fal_private: return MethodAttributes.Assembly;
}