HP SunSoft Pascal 4.0 manual 150

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';
	}

126 Pascal 4.0 User’s Guide