HP Pascal/iX Reference Manual (31502-90022)

12- 7
.
.
END; {do_it}
BEGIN {proc1}
.
.
END; {proc1}
PROCEDURE proc2;
FUNCTION $ALIAS 'D2'$ do_it (a,b : INTEGER): INTEGER;
BEGIN {do_it}
.
.
END; {do_it}
BEGIN {proc2}
.
.
END; {proc2}
BEGIN {show_alias}
.
.
END. {show_alias}
Example 3
PROGRAM show_alias;
FUNCTION $ALIAS 'f'$ f1 (p1 : integer); EXTERNAL;
FUNCTION $ALIAS 'f'$ f2 (p1,p2 : integer); EXTERNAL;
BEGIN
.
.
.
END.
Notice that the function f1 declares one parameter of the function f,
while the function f2 declares two.
ALIGNMENT
ALIGNMENT is an HP Pascal Option.
The ALIGNMENT compiler option specifies the alignment requirements for a
type (for the definition of alignment see Chapter 5 ). It cannot be
used with string or file types. The alignment of a record or array must
be at least as large as its largest field or element.
ALIGNMENT does not support alignments greater than 8 bytes for variables.
Only fields are aligned greater than 8 bytes. However, you can align a
record or array with more than 8 bytes through a call to P_GETHEAP with
the appropriate alignment parameter.
Syntax
$ALIGNMENT integer $
Parameter
integer In the range 1..2048. The following values for integer
specify the alignments indicated. Other values are
illegal.