var param record

Smart pascal source code


type
  TRecord = record
    X: Float;
  end;

procedure Test(const X: Float; var r: Float); overload;
begin
  r := X;
end;

procedure Test(const X: Float; var r: TRecord); overload;
var temp: Float;
begin
  Test(X, temp);
  r.X := temp;
end;

var r: TRecord;
Test(123, r);

WriteLn(r.X);

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

function Copy$TRecord(s,d) {
   d.X=s.X;
   return d;
}
function Clone$TRecord($) {
   return {
      X:$.X
   }
}
function Test(X$1, r$1) {
   r$1.v = X$1;
};
function Test$1(X$2, r$2) {
   var temp = {};
   temp.v = 0;
   Test(X$2,temp);
   r$2.X = temp.v;
};
var r = {X:0};

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

   Test$1(123,r);
   WriteLn(r.X);