HP SunSoft Pascal 4.0 - Manual (Page 150)

126 Pascal 4.0 User’s Guide
6
Following are some examples:
The C function, VarRec.c struct vlr {
char tag;
union {
struct {
char ch1, ch2;
} a_var;
struct {
char flag;
} b_var;
struct {
int ALIGN;
} c_var;
} var_part;
};
void VarRec(struct vlr *x)
{
if (x->var_part.a_var.ch1 == 'a')
x->var_part.a_var.ch2 = 'Z';
}