Smart pascal source code


type
  TRec = record
    A: Integer;
  end;

const
  cRec: TRec = (A: 1);

type
  TTest1 = record
    B: TRec = cRec;
  end;

type
  TTest2 = record
    B: TRec = (A: 2);
  end;

var r1: TTest1;
WriteLn(r1.B.A);

var r2: TTest2;
WriteLn(r2.B.A);

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
1
2

-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function Copy$TTest2(s,d) {
   Copy$TRec(s.B,d.B);
   return d;
}
function Clone$TTest2($) {
   return {
      B:Clone$TRec($.B)
   }
}
function Copy$TTest1(s,d) {
   Copy$TRec(s.B$1,d.B$1);
   return d;
}
function Clone$TTest1($) {
   return {
      B$1:Clone$TRec($.B$1)
   }
}
function Copy$TRec(s,d) {
   d.A$1=s.A$1;
   return d;
}
function Clone$TRec($) {
   return {
      A$1:$.A$1
   }
}
var r1 = {B$1:{A$1:1}};
var r2 = {B:{A$1:2}};

/* <<< main JS >>> */

   WriteLn(r1.B$1.A$1);
   WriteLn(r2.B.A$1);