fix #901

NETGenerator/NETGenerator.cs

@@ -6919,7 +6919,7 @@ namespace PascalABCCompiler.NETGenerator
             {
             	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))
+            else if (value.obj.type.is_value_type && !(value.obj is IAddressedExpressionNode) && !(value.obj is IThisNode) && !(value.obj is ICommonMethodCallNode))
             {
                 LocalBuilder lb = il.DeclareLocal(helper.GetTypeReference(value.obj.type).tp);
                 il.Emit(OpCodes.Stloc, lb);

TestSuite/records8.pas

@@ -0,0 +1,25 @@
+type
+  
+  t1=record
+    public x,y:integer;
+    function p1 := (x, y);
+  end;
+  
+  t2=class
+    _p1:t1;
+    property p1:t1 read _p1;
+    function GetP1 := _p1;//не обязательно короткая функция
+  end;
+
+begin
+  
+  var a:=new t2;
+  a._p1 := new t1;
+  a._p1.x := 3;
+  a._p1.y := 5;
+  
+  var t := a.p1.p1;
+  assert(t.Item1 = 3);
+  assert(t.Item2 = 5);
+  
+end.