1 typedef struct TypHeader {
2   struct TypHeader ** ptr;
3 } *TypHandle;
PlainRange(TypHandle hdList,long lenList,long low,long inc)4 void PlainRange (TypHandle hdList, long lenList, long low, long inc)
5 {
6   long i;
7   for (i = 1; i <= lenList; i++ )
8     (((TypHandle*)((hdList)->ptr))[i] = (((TypHandle) (((long)(low + (i-1) *
9 inc) << 2) + 1))));
10 }
11