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

bug fix

Browse source 
const obj: sometype = (name: 'test');
var k := Arr(obj);
This commit is contained in:
Бондарев Иван 2017-02-28 21:28:33 +01:00
parent cd94c120ac
commit 594fe0833c
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
NETGenerator/NETGenerator.cs
View file

@ -711,10 +711,11 @@ namespace PascalABCCompiler.NETGenerator
il = cb.GetILGenerator();
if (cnn.IsMain) unit_cci = cb;
ModulesInitILGenerators.Add(cur_type, il);
//переводим глобальные переменные модуля
ConvertGlobalVariables(cnn.variables);
//перводим константы
ConvertNamespaceConstants(cnn.constants);
//переводим глобальные переменные модуля
ConvertGlobalVariables(cnn.variables);
ConvertNamespaceEvents(cnn.events);
//il.Emit(OpCodes.Ret);
}
@ -725,10 +726,11 @@ namespace PascalABCCompiler.NETGenerator
il = entry_meth.GetILGenerator();
ModulesInitILGenerators.Add(cur_type, il);
il = init_variables_mb.GetILGenerator();
ConvertGlobalVariables(cnn.variables);
il = entry_meth.GetILGenerator();
//перводим константы
ConvertNamespaceConstants(cnn.constants);
ConvertGlobalVariables(cnn.variables);
ConvertNamespaceEvents(cnn.events);
//il.Emit(OpCodes.Ret);
}