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

bug fix #910

Browse source
This commit is contained in:
Бондарев Иван 2018-06-12 22:02:20 +02:00
parent 27e7e66c49
commit f531c96760
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
NETGenerator/NETGenerator.cs
View file

@ -6919,7 +6919,7 @@ namespace PascalABCCompiler.NETGenerator
{ {
il.Emit(OpCodes.Box, helper.GetTypeReference(value.obj.conversion_type).tp); il.Emit(OpCodes.Box, helper.GetTypeReference(value.obj.conversion_type).tp);
} }
else if (value.obj.type.is_value_type && !(value.obj is IAddressedExpressionNode) && !(value.obj is IThisNode) && !(value.obj is ICommonMethodCallNode)) else if (value.obj.type.is_value_type && !(value.obj is IAddressedExpressionNode) && !(value.obj is IThisNode) && !(value.obj is ICommonMethodCallNode) && !(value.obj is ICommonConstructorCall))
{ {
LocalBuilder lb = il.DeclareLocal(helper.GetTypeReference(value.obj.type).tp); LocalBuilder lb = il.DeclareLocal(helper.GetTypeReference(value.obj.type).tp);
il.Emit(OpCodes.Stloc, lb); il.Emit(OpCodes.Stloc, lb);

11
TestSuite/records9.pas Normal file
View file

@ -0,0 +1,11 @@
type
t1=record
b:byte := 5;
function f1 := b;
constructor(b:byte) := self.b := b;
end;
begin
var b := (new t1(5)).f1;
assert(b = 5)//должно выводить 5, но выводит мусор, там такое же преобразование как в #901
end.