Smart pascal source code


type
  TRec = record
    Field: Integer;
    procedure Double;
    begin
      Field *= 2;
    end;

    procedure Pop(v: Integer; var a: TRec);
    begin
      a.Field := 2 + v;
    end;

    procedure SetProp(v: TRec);
    begin
      WriteLn(v.Field);
    end;
    property Prop: TRec write SetProp;

    procedure Test;
    begin
      var       v: TRec;
      Pop(10, v);
      Prop := v;
      v.Double;
      Prop := v;
    end;
  end;

var obj: TRec;
obj.Test;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
12
24
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

      var obj = {Field:0};
      /// TRec = record
      ///  [line: 38, column: 3, file: uMain]
      function Copy$TRec(s,d) {
         d.Field=s.Field;
         return d;
      }
      function Clone$TRec($) {
         return {
            Field:$.Field
         }
      }
      /// procedure TRec.Double(var Self: TRec)
      ///  [line: 40, column: 15, file: uMain]
      function TRec$Double(Self$1) {
         Self$1.Field*=2;
      }
      /// procedure TRec.Pop(var Self: TRec; v: Integer; var a: TRec)
      ///  [line: 45, column: 15, file: uMain]
      function TRec$Pop(Self$2, v, a) {
         a.Field = 2+v;
      }
      /// procedure TRec.SetProp(var Self: TRec; v: TRec)
      ///  [line: 50, column: 15, file: uMain]
      function TRec$SetProp(Self$3, v$1) {
         WriteLn(v$1.Field);
      }
      /// procedure TRec.Test(var Self: TRec)
      ///  [line: 56, column: 15, file: uMain]
      function TRec$Test(Self$4) {
         var v$2 = {Field:0};
         TRec$Pop(Self$4,10,v$2);
         TRec$SetProp(Self$4,Clone$TRec(v$2));
         TRec$Double(v$2);
         TRec$SetProp(Self$4,Clone$TRec(v$2));
      }
      TRec$Test(obj);