usr.bin/perl/pp_pack.c

1245                 int aint;
1249                     aint = utf8n_to_uvchr((U8 *) s, strend-s, &retlen,
1256                   aint = *(U8 *)(s)++;
1257                 if (aint >= 128 && datumtype != 'C')	/* fake up signed chars */
1258                     aint -= 256;
1260                     mPUSHi(aint);
1262                     cdouble += (NV)aint;
1264                     cuv += aint;
1442                 int aint;
1443                 SHIFT_VAR(utf8, s, strend, aint, datumtype, needs_swap);
1445                     mPUSHi(aint);
1447                     cdouble += (NV)aint;
1449                     cuv += aint;
2966                 int aint;
2968                 aint = SvIV_no_inf(fromstr, datumtype);
2969                 PUSH_VAR(utf8, cur, aint, needs_swap);