Arguments passed by value – HP SunSoft Pascal 4.0 User Manual

Page 181

The C++–Pascal Interface

157

Arguments Passed by Value

Pascal arguments can also be passed by value. Here is how they work with
C++.

The Pascal main program,

SimRefMain.p

program SimRefMain (output);

var

t, f: boolean;

c: char;

i: integer;

s: integer16;

r: shortreal;

d: real;

procedure SimRef (

var t, f: boolean;

var c: char;

var i: integer;

var s: integer16;

var r: shortreal;

var d: real

); external C;

begin

SimRef (t, f, c, i, s, r, d);

writeln (t, f: 6, c: 2, i: 2, s: 2, r: 4: 1, d: 4: 1);

end.

The commands to compile and
execute

SimRef.cc

and

SimRefMain.p

hostname% CC -c SimRef.cc

hostname% pc SimRef.o SimRefMain.p

hostname% a.out

true false z 9 9 9.9 9.9