7

The Pascal procedure,

SimVal.p

Simple Types without the -xlOption

Without the -xloption, simple types match, as in the following example:

procedure SimVal( t, f: boolean;

c:char;

si:integer16;

i:integer;

sr:shortreal;

r:real;

var Reply: integer);

begin

 

 

Reply

:=

0;

if

t

then

 

Reply := Reply + 1;

if

not f

then

 

Reply := Reply + 8

if

c='z'

then

 

Reply := Reply + 64;

if

si=9

then

 

Reply := Reply + 512;

if

i=9 then

 

Reply := Reply + 4096;

if

sr=shortreal(9.9) then

 

Reply := Reply + 32768;

if

r=9.9

then

 

Reply

:= Reply + 262144;

end;

The C++–Pascal Interface

151