HP Pascal/iX Programmer's Guide (31502-90023)

A-: 9
ptr : ^integer_;
BEGIN
i := get_alignment(rec);
IF get_alignment(ptr^) <> 2 THEN ...
END.
Statement_number Function
The predefined function statement_number returns the statement number of
the statement that calls it, as shown on the compiled listing. It is a
useful debugging aid, especially when used with the predefined procedure
assert .
Syntax
statement_number
Example
PROGRAM prog (output);
VAR
i : integer;
BEGIN
i := statement_number;
writeln('Current Statement Number is ', i);
assert(a > b, statement_number);
END.
Setconvert Procedure
The predefined procedure setconvert converts a set from HP Pascal packing
algorithm (HP3000_32) format to Pascal/V packing algorithm (HP3000_16)
format, or vice versa. It is enabled by the HP3000_16 compiler option.
Syntax
setconvert( set1,set2 )
Parameters
set1 The name of the set variable to be converted.
set2 The name of the set variable into which the converted set
is to be stored.
The sets set1 and set2 can vary only in packing algorithm format. Their
packing (unpacked, packed, or crunched) and base types must be the same.
Their packing algorithm formats cannot be the same.
Example
PROGRAM prog;
$HP3000_16$ {Enables setconvert procedure}
TYPE
hp3000_16_set1 = SET OF char;
hp3000_32_set1 = $HP3000_32$ SET OF char;
hp3000_32_set2 = $HP3000_32$ PACKED SET OF char;
hp3000_32_set3 = $HP3000_32$ SET OF integer;
VAR
set16_1,
set16_2 : hp3000_16_set1;