Smart pascal source code


type
  TRec = record
    a: Integer;
  end;

procedure Test(var a: Integer);
begin
  Inc(a);
end;

var r: TRec;
r.a := 123;
var i := r.a;
Test(i);
WriteLn(i);
test(r.a); //--->  Syntax Error: Only a variable can be be passed as Var-parameter

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
124
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

      var r = {a:0};
      var i = {v:0};
      function Test(a$1) {
         ++a$1.v;
      };
      /// TRec = record
      ///  [line: 38, column: 3, file: uMain]
      function Copy$TRec(s,d) {
         d.a=s.a;
         return d;
      }
      function Clone$TRec($) {
         return {
            a:$.a
         }
      }
      r.a = 123;
      i.v = r.a;
      Test(i);
      WriteLn(i.v);