fpi1
fpi1 = fpi0;
fpi = &fpi1;
fpi1.rounding = Rounding;
FPI fpi1;
FPI fpi1 = fpi;
fpi1.rounding = Rounding;
switch((i = gethex(&s, &fpi1, &expt, &bb, sign, loc)) & STRTOG_Retmask) {
FPI fpi1;
fpi1 = fpi0;
fpi1.rounding = rounding;
fpi = &fpi1;
FPI fpi1;
fpi1 = fpi0;
fpi1.rounding = rounding;
fpi = &fpi1;
FPI fpi1;
fpi1 = fpi0;
fpi1.rounding = rounding;
fpi = &fpi1;
FPI fpi1;
fpi1 = fpi0;
fpi1.rounding = rounding;
fpi = &fpi1;
FPI fpi1;
fpi1 = fpi0;
fpi1.rounding = rounding;
fpi = &fpi1;
fpi1 = fpi0;
fpi1.rounding = rounding;
fpi = &fpi1;
FPI fpi1;