Artifact
e0a32d9fb24e0ff59b012e4f4075fc40f9e96830:
0000: 2f 2a 20 76 61 63 61 6c 6c 20 66 75 6e 63 74 69 /* vacall functi
0010: 6f 6e 20 66 6f 72 20 6d 69 70 73 20 43 50 55 20 on for mips CPU
0020: 2a 2f 0a 0a 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 */../*. * Copyri
0030: 67 68 74 20 31 39 39 35 2d 32 30 30 34 20 42 72 ght 1995-2004 Br
0040: 75 6e 6f 20 48 61 69 62 6c 65 2c 20 3c 62 72 75 uno Haible, <bru
0050: 6e 6f 40 63 6c 69 73 70 2e 6f 72 67 3e 0a 20 2a no@clisp.org>. *
0060: 0a 20 2a 20 54 68 69 73 20 69 73 20 66 72 65 65 . * This is free
0070: 20 73 6f 66 74 77 61 72 65 20 64 69 73 74 72 69 software distri
0080: 62 75 74 65 64 20 75 6e 64 65 72 20 74 68 65 20 buted under the
0090: 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c GNU General Publ
00a0: 69 63 20 4c 69 63 65 6e 63 65 0a 20 2a 20 64 65 ic Licence. * de
00b0: 73 63 72 69 62 65 64 20 69 6e 20 74 68 65 20 66 scribed in the f
00c0: 69 6c 65 20 43 4f 50 59 49 4e 47 2e 20 43 6f 6e ile COPYING. Con
00d0: 74 61 63 74 20 74 68 65 20 61 75 74 68 6f 72 20 tact the author
00e0: 69 66 20 79 6f 75 20 64 6f 6e 27 74 20 68 61 76 if you don't hav
00f0: 65 20 74 68 69 73 0a 20 2a 20 6f 72 20 63 61 6e e this. * or can
0100: 27 74 20 6c 69 76 65 20 77 69 74 68 20 69 74 2e 't live with it.
0110: 20 54 68 65 72 65 20 69 73 20 41 42 53 4f 4c 55 There is ABSOLU
0120: 54 45 4c 59 20 4e 4f 20 57 41 52 52 41 4e 54 59 TELY NO WARRANTY
0130: 2c 20 65 78 70 6c 69 63 69 74 20 6f 72 20 69 6d , explicit or im
0140: 70 6c 69 65 64 2c 0a 20 2a 20 6f 6e 20 74 68 69 plied,. * on thi
0150: 73 20 73 6f 66 74 77 61 72 65 2e 0a 20 2a 2f 0a s software.. */.
0160: 0a 23 69 66 6e 64 65 66 20 52 45 45 4e 54 52 41 .#ifndef REENTRA
0170: 4e 54 0a 23 69 6e 63 6c 75 64 65 20 22 76 61 63 NT.#include "vac
0180: 61 6c 6c 2e 68 2e 69 6e 22 0a 23 65 6c 73 65 20 all.h.in".#else
0190: 2f 2a 20 52 45 45 4e 54 52 41 4e 54 20 2a 2f 0a /* REENTRANT */.
01a0: 23 69 6e 63 6c 75 64 65 20 22 76 61 63 61 6c 6c #include "vacall
01b0: 5f 72 2e 68 2e 69 6e 22 0a 23 65 6e 64 69 66 0a _r.h.in".#endif.
01c0: 0a 23 69 66 6e 64 65 66 20 52 45 45 4e 54 52 41 .#ifndef REENTRA
01d0: 4e 54 0a 74 79 70 65 64 65 66 20 76 6f 69 64 20 NT.typedef void
01e0: 28 2a 66 75 6e 63 5f 70 6f 69 6e 74 65 72 29 28 (*func_pointer)(
01f0: 76 61 5f 61 6c 69 73 74 29 3b 0a 23 65 6c 73 65 va_alist);.#else
0200: 20 2f 2a 20 52 45 45 4e 54 52 41 4e 54 20 2a 2f /* REENTRANT */
0210: 0a 23 64 65 66 69 6e 65 20 5f 5f 76 61 63 61 6c .#define __vacal
0220: 6c 20 5f 5f 76 61 63 61 6c 6c 5f 72 0a 74 79 70 l __vacall_r.typ
0230: 65 64 65 66 20 76 6f 69 64 20 28 2a 66 75 6e 63 edef void (*func
0240: 5f 70 6f 69 6e 74 65 72 29 28 76 6f 69 64 2a 2c _pointer)(void*,
0250: 76 61 5f 61 6c 69 73 74 29 3b 0a 72 65 67 69 73 va_alist);.regis
0260: 74 65 72 20 73 74 72 75 63 74 20 7b 20 66 75 6e ter struct { fun
0270: 63 5f 70 6f 69 6e 74 65 72 20 76 61 63 61 6c 6c c_pointer vacall
0280: 5f 66 75 6e 63 74 69 6f 6e 3b 20 76 6f 69 64 2a _function; void*
0290: 20 61 72 67 3b 20 7d 0a 20 20 20 20 20 20 20 20 arg; }.
02a0: 20 2a 09 65 6e 76 09 5f 5f 61 73 6d 5f 5f 28 22 *.env.__asm__("
02b0: 24 32 22 29 3b 0a 23 65 6e 64 69 66 0a 72 65 67 $2");.#endif.reg
02c0: 69 73 74 65 72 20 66 75 6e 63 5f 70 6f 69 6e 74 ister func_point
02d0: 65 72 20 74 39 20 5f 5f 61 73 6d 5f 5f 28 22 24 er t9 __asm__("$
02e0: 32 35 22 29 3b 0a 72 65 67 69 73 74 65 72 20 76 25");.register v
02f0: 6f 69 64 2a 09 73 70 09 5f 5f 61 73 6d 5f 5f 28 oid*.sp.__asm__(
0300: 22 24 73 70 22 29 3b 0a 72 65 67 69 73 74 65 72 "$sp");.register
0310: 20 6c 6f 6e 67 09 69 61 72 67 30 09 5f 5f 61 73 long.iarg0.__as
0320: 6d 5f 5f 28 22 24 34 22 29 3b 0a 72 65 67 69 73 m__("$4");.regis
0330: 74 65 72 20 6c 6f 6e 67 09 69 61 72 67 31 09 5f ter long.iarg1._
0340: 5f 61 73 6d 5f 5f 28 22 24 35 22 29 3b 0a 72 65 _asm__("$5");.re
0350: 67 69 73 74 65 72 20 6c 6f 6e 67 09 69 61 72 67 gister long.iarg
0360: 32 09 5f 5f 61 73 6d 5f 5f 28 22 24 36 22 29 3b 2.__asm__("$6");
0370: 0a 72 65 67 69 73 74 65 72 20 6c 6f 6e 67 09 69 .register long.i
0380: 61 72 67 33 09 5f 5f 61 73 6d 5f 5f 28 22 24 37 arg3.__asm__("$7
0390: 22 29 3b 0a 72 65 67 69 73 74 65 72 20 6c 6f 6e ");.register lon
03a0: 67 09 69 61 72 67 34 09 5f 5f 61 73 6d 5f 5f 28 g.iarg4.__asm__(
03b0: 22 24 38 22 29 3b 0a 72 65 67 69 73 74 65 72 20 "$8");.register
03c0: 6c 6f 6e 67 09 69 61 72 67 35 09 5f 5f 61 73 6d long.iarg5.__asm
03d0: 5f 5f 28 22 24 39 22 29 3b 0a 72 65 67 69 73 74 __("$9");.regist
03e0: 65 72 20 6c 6f 6e 67 09 69 61 72 67 36 09 5f 5f er long.iarg6.__
03f0: 61 73 6d 5f 5f 28 22 24 31 30 22 29 3b 0a 72 65 asm__("$10");.re
0400: 67 69 73 74 65 72 20 6c 6f 6e 67 09 69 61 72 67 gister long.iarg
0410: 37 09 5f 5f 61 73 6d 5f 5f 28 22 24 31 31 22 29 7.__asm__("$11")
0420: 3b 0a 72 65 67 69 73 74 65 72 20 66 6c 6f 61 74 ;.register float
0430: 09 66 61 72 67 30 09 5f 5f 61 73 6d 5f 5f 28 22 .farg0.__asm__("
0440: 24 66 31 32 22 29 3b 0a 72 65 67 69 73 74 65 72 $f12");.register
0450: 20 66 6c 6f 61 74 09 66 61 72 67 31 09 5f 5f 61 float.farg1.__a
0460: 73 6d 5f 5f 28 22 24 66 31 33 22 29 3b 0a 72 65 sm__("$f13");.re
0470: 67 69 73 74 65 72 20 66 6c 6f 61 74 09 66 61 72 gister float.far
0480: 67 32 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 31 34 g2.__asm__("$f14
0490: 22 29 3b 0a 72 65 67 69 73 74 65 72 20 66 6c 6f ");.register flo
04a0: 61 74 09 66 61 72 67 33 09 5f 5f 61 73 6d 5f 5f at.farg3.__asm__
04b0: 28 22 24 66 31 35 22 29 3b 0a 72 65 67 69 73 74 ("$f15");.regist
04c0: 65 72 20 66 6c 6f 61 74 09 66 61 72 67 34 09 5f er float.farg4._
04d0: 5f 61 73 6d 5f 5f 28 22 24 66 31 36 22 29 3b 0a _asm__("$f16");.
04e0: 72 65 67 69 73 74 65 72 20 66 6c 6f 61 74 09 66 register float.f
04f0: 61 72 67 35 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 arg5.__asm__("$f
0500: 31 37 22 29 3b 0a 72 65 67 69 73 74 65 72 20 66 17");.register f
0510: 6c 6f 61 74 09 66 61 72 67 36 09 5f 5f 61 73 6d loat.farg6.__asm
0520: 5f 5f 28 22 24 66 31 38 22 29 3b 0a 72 65 67 69 __("$f18");.regi
0530: 73 74 65 72 20 66 6c 6f 61 74 09 66 61 72 67 37 ster float.farg7
0540: 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 31 39 22 29 .__asm__("$f19")
0550: 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c ;.register doubl
0560: 65 09 64 61 72 67 30 09 5f 5f 61 73 6d 5f 5f 28 e.darg0.__asm__(
0570: 22 24 66 31 32 22 29 3b 0a 72 65 67 69 73 74 65 "$f12");.registe
0580: 72 20 64 6f 75 62 6c 65 09 64 61 72 67 31 09 5f r double.darg1._
0590: 5f 61 73 6d 5f 5f 28 22 24 66 31 33 22 29 3b 0a _asm__("$f13");.
05a0: 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 09 register double.
05b0: 64 61 72 67 32 09 5f 5f 61 73 6d 5f 5f 28 22 24 darg2.__asm__("$
05c0: 66 31 34 22 29 3b 0a 72 65 67 69 73 74 65 72 20 f14");.register
05d0: 64 6f 75 62 6c 65 09 64 61 72 67 33 09 5f 5f 61 double.darg3.__a
05e0: 73 6d 5f 5f 28 22 24 66 31 35 22 29 3b 0a 72 65 sm__("$f15");.re
05f0: 67 69 73 74 65 72 20 64 6f 75 62 6c 65 09 64 61 gister double.da
0600: 72 67 34 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 31 rg4.__asm__("$f1
0610: 36 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 6");.register do
0620: 75 62 6c 65 09 64 61 72 67 35 09 5f 5f 61 73 6d uble.darg5.__asm
0630: 5f 5f 28 22 24 66 31 37 22 29 3b 0a 72 65 67 69 __("$f17");.regi
0640: 73 74 65 72 20 64 6f 75 62 6c 65 09 64 61 72 67 ster double.darg
0650: 36 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 31 38 22 6.__asm__("$f18"
0660: 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 );.register doub
0670: 6c 65 09 64 61 72 67 37 09 5f 5f 61 73 6d 5f 5f le.darg7.__asm__
0680: 28 22 24 66 31 39 22 29 3b 0a 72 65 67 69 73 74 ("$f19");.regist
0690: 65 72 20 6c 6f 6e 67 09 69 72 65 74 09 5f 5f 61 er long.iret.__a
06a0: 73 6d 5f 5f 28 22 24 32 22 29 3b 0a 72 65 67 69 sm__("$2");.regi
06b0: 73 74 65 72 20 6c 6f 6e 67 09 69 72 65 74 32 09 ster long.iret2.
06c0: 5f 5f 61 73 6d 5f 5f 28 22 24 33 22 29 3b 0a 72 __asm__("$3");.r
06d0: 65 67 69 73 74 65 72 20 66 6c 6f 61 74 09 66 72 egister float.fr
06e0: 65 74 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 30 22 et.__asm__("$f0"
06f0: 29 3b 0a 72 65 67 69 73 74 65 72 20 66 6c 6f 61 );.register floa
0700: 74 09 66 72 65 74 32 09 5f 5f 61 73 6d 5f 5f 28 t.fret2.__asm__(
0710: 22 24 66 32 22 29 3b 0a 72 65 67 69 73 74 65 72 "$f2");.register
0720: 20 64 6f 75 62 6c 65 09 64 72 65 74 09 5f 5f 61 double.dret.__a
0730: 73 6d 5f 5f 28 22 24 66 30 22 29 3b 0a 72 65 67 sm__("$f0");.reg
0740: 69 73 74 65 72 20 64 6f 75 62 6c 65 09 64 72 65 ister double.dre
0750: 74 32 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 32 22 t2.__asm__("$f2"
0760: 29 3b 0a 0a 76 6f 69 64 20 2f 2a 20 74 68 65 20 );..void /* the
0770: 72 65 74 75 72 6e 20 74 79 70 65 20 69 73 20 76 return type is v
0780: 61 72 69 61 62 6c 65 2c 20 6e 6f 74 20 76 6f 69 ariable, not voi
0790: 64 21 20 2a 2f 0a 5f 5f 76 61 63 61 6c 6c 20 28 d! */.__vacall (
07a0: 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 31 2c 20 __vaword word1,
07b0: 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 32 2c 20 __vaword word2,
07c0: 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 33 2c 20 __vaword word3,
07d0: 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 34 2c 0a __vaword word4,.
07e0: 20 20 20 20 20 20 20 20 20 20 5f 5f 76 61 77 6f __vawo
07f0: 72 64 20 77 6f 72 64 35 2c 20 5f 5f 76 61 77 6f rd word5, __vawo
0800: 72 64 20 77 6f 72 64 36 2c 20 5f 5f 76 61 77 6f rd word6, __vawo
0810: 72 64 20 77 6f 72 64 37 2c 20 5f 5f 76 61 77 6f rd word7, __vawo
0820: 72 64 20 77 6f 72 64 38 2c 0a 20 20 20 20 20 20 rd word8,.
0830: 20 20 20 20 5f 5f 76 61 77 6f 72 64 20 66 69 72 __vaword fir
0840: 73 74 77 6f 72 64 29 0a 7b 0a 20 20 2f 2a 20 4d stword).{. /* M
0850: 6f 76 65 20 74 68 65 20 61 72 67 75 6d 65 6e 74 ove the argument
0860: 73 20 70 61 73 73 65 64 20 69 6e 20 72 65 67 69 s passed in regi
0870: 73 74 65 72 73 20 74 6f 20 74 68 65 69 72 20 73 sters to their s
0880: 74 61 63 6b 20 6c 6f 63 61 74 69 6f 6e 73 2e 20 tack locations.
0890: 2a 2f 0a 20 20 28 26 66 69 72 73 74 77 6f 72 64 */. (&firstword
08a0: 29 5b 2d 38 5d 20 3d 20 69 61 72 67 30 3b 20 2f )[-8] = iarg0; /
08b0: 2a 20 77 6f 72 64 31 20 2a 2f 0a 20 20 28 26 66 * word1 */. (&f
08c0: 69 72 73 74 77 6f 72 64 29 5b 2d 37 5d 20 3d 20 irstword)[-7] =
08d0: 69 61 72 67 31 3b 20 2f 2a 20 77 6f 72 64 32 20 iarg1; /* word2
08e0: 2a 2f 0a 20 20 28 26 66 69 72 73 74 77 6f 72 64 */. (&firstword
08f0: 29 5b 2d 36 5d 20 3d 20 69 61 72 67 32 3b 20 2f )[-6] = iarg2; /
0900: 2a 20 77 6f 72 64 33 20 2a 2f 0a 20 20 28 26 66 * word3 */. (&f
0910: 69 72 73 74 77 6f 72 64 29 5b 2d 35 5d 20 3d 20 irstword)[-5] =
0920: 69 61 72 67 33 3b 20 2f 2a 20 77 6f 72 64 34 20 iarg3; /* word4
0930: 2a 2f 0a 20 20 28 26 66 69 72 73 74 77 6f 72 64 */. (&firstword
0940: 29 5b 2d 34 5d 20 3d 20 69 61 72 67 34 3b 20 2f )[-4] = iarg4; /
0950: 2a 20 77 6f 72 64 35 20 2a 2f 0a 20 20 28 26 66 * word5 */. (&f
0960: 69 72 73 74 77 6f 72 64 29 5b 2d 33 5d 20 3d 20 irstword)[-3] =
0970: 69 61 72 67 35 3b 20 2f 2a 20 77 6f 72 64 36 20 iarg5; /* word6
0980: 2a 2f 0a 20 20 28 26 66 69 72 73 74 77 6f 72 64 */. (&firstword
0990: 29 5b 2d 32 5d 20 3d 20 69 61 72 67 36 3b 20 2f )[-2] = iarg6; /
09a0: 2a 20 77 6f 72 64 37 20 2a 2f 0a 20 20 28 26 66 * word7 */. (&f
09b0: 69 72 73 74 77 6f 72 64 29 5b 2d 31 5d 20 3d 20 irstword)[-1] =
09c0: 69 61 72 67 37 3b 20 2f 2a 20 77 6f 72 64 38 20 iarg7; /* word8
09d0: 2a 2f 0a 20 7b 5f 5f 76 61 5f 61 6c 69 73 74 20 */. {__va_alist
09e0: 6c 69 73 74 3b 0a 20 20 6c 69 73 74 2e 64 61 72 list;. list.dar
09f0: 67 5b 30 5d 20 3d 20 64 61 72 67 30 3b 0a 20 20 g[0] = darg0;.
0a00: 6c 69 73 74 2e 64 61 72 67 5b 31 5d 20 3d 20 64 list.darg[1] = d
0a10: 61 72 67 31 3b 0a 20 20 6c 69 73 74 2e 64 61 72 arg1;. list.dar
0a20: 67 5b 32 5d 20 3d 20 64 61 72 67 32 3b 0a 20 20 g[2] = darg2;.
0a30: 6c 69 73 74 2e 64 61 72 67 5b 33 5d 20 3d 20 64 list.darg[3] = d
0a40: 61 72 67 33 3b 0a 20 20 6c 69 73 74 2e 64 61 72 arg3;. list.dar
0a50: 67 5b 34 5d 20 3d 20 64 61 72 67 34 3b 0a 20 20 g[4] = darg4;.
0a60: 6c 69 73 74 2e 64 61 72 67 5b 35 5d 20 3d 20 64 list.darg[5] = d
0a70: 61 72 67 35 3b 0a 20 20 6c 69 73 74 2e 64 61 72 arg5;. list.dar
0a80: 67 5b 36 5d 20 3d 20 64 61 72 67 36 3b 0a 20 20 g[6] = darg6;.
0a90: 6c 69 73 74 2e 64 61 72 67 5b 37 5d 20 3d 20 64 list.darg[7] = d
0aa0: 61 72 67 37 3b 0a 20 20 6c 69 73 74 2e 66 61 72 arg7;. list.far
0ab0: 67 5b 30 5d 20 3d 20 66 61 72 67 30 3b 0a 20 20 g[0] = farg0;.
0ac0: 6c 69 73 74 2e 66 61 72 67 5b 31 5d 20 3d 20 66 list.farg[1] = f
0ad0: 61 72 67 31 3b 0a 20 20 6c 69 73 74 2e 66 61 72 arg1;. list.far
0ae0: 67 5b 32 5d 20 3d 20 66 61 72 67 32 3b 0a 20 20 g[2] = farg2;.
0af0: 6c 69 73 74 2e 66 61 72 67 5b 33 5d 20 3d 20 66 list.farg[3] = f
0b00: 61 72 67 33 3b 0a 20 20 6c 69 73 74 2e 66 61 72 arg3;. list.far
0b10: 67 5b 34 5d 20 3d 20 66 61 72 67 34 3b 0a 20 20 g[4] = farg4;.
0b20: 6c 69 73 74 2e 66 61 72 67 5b 35 5d 20 3d 20 66 list.farg[5] = f
0b30: 61 72 67 35 3b 0a 20 20 6c 69 73 74 2e 66 61 72 arg5;. list.far
0b40: 67 5b 36 5d 20 3d 20 66 61 72 67 36 3b 0a 20 20 g[6] = farg6;.
0b50: 6c 69 73 74 2e 66 61 72 67 5b 37 5d 20 3d 20 66 list.farg[7] = f
0b60: 61 72 67 37 3b 0a 20 20 2f 2a 20 50 72 65 70 61 arg7;. /* Prepa
0b70: 72 65 20 74 68 65 20 76 61 5f 61 6c 69 73 74 2e re the va_alist.
0b80: 20 2a 2f 0a 20 20 6c 69 73 74 2e 66 6c 61 67 73 */. list.flags
0b90: 20 3d 20 30 3b 0a 20 20 6c 69 73 74 2e 61 70 74 = 0;. list.apt
0ba0: 72 20 3d 20 28 6c 6f 6e 67 29 28 26 66 69 72 73 r = (long)(&firs
0bb0: 74 77 6f 72 64 20 2d 20 38 29 3b 0a 20 20 6c 69 tword - 8);. li
0bc0: 73 74 2e 72 61 64 64 72 20 3d 20 28 76 6f 69 64 st.raddr = (void
0bd0: 2a 29 30 3b 0a 20 20 6c 69 73 74 2e 72 74 79 70 *)0;. list.rtyp
0be0: 65 20 3d 20 5f 5f 56 41 76 6f 69 64 3b 0a 20 20 e = __VAvoid;.
0bf0: 6c 69 73 74 2e 6d 65 6d 61 72 67 70 74 72 20 3d list.memargptr =
0c00: 20 28 6c 6f 6e 67 29 26 66 69 72 73 74 77 6f 72 (long)&firstwor
0c10: 64 3b 0a 20 20 6c 69 73 74 2e 61 6e 75 6d 20 3d d;. list.anum =
0c20: 20 30 3b 0a 20 20 2f 2a 20 43 61 6c 6c 20 76 61 0;. /* Call va
0c30: 63 61 6c 6c 5f 66 75 6e 63 74 69 6f 6e 2e 20 54 call_function. T
0c40: 68 65 20 6d 61 63 72 6f 73 20 64 6f 20 61 6c 6c he macros do all
0c50: 20 74 68 65 20 72 65 73 74 2e 20 2a 2f 0a 23 69 the rest. */.#i
0c60: 66 6e 64 65 66 20 52 45 45 4e 54 52 41 4e 54 0a fndef REENTRANT.
0c70: 20 20 28 2a 28 74 39 20 3d 20 76 61 63 61 6c 6c (*(t9 = vacall
0c80: 5f 66 75 6e 63 74 69 6f 6e 29 29 20 28 26 6c 69 _function)) (&li
0c90: 73 74 29 3b 0a 23 65 6c 73 65 20 2f 2a 20 52 45 st);.#else /* RE
0ca0: 45 4e 54 52 41 4e 54 20 2a 2f 0a 20 20 28 2a 28 ENTRANT */. (*(
0cb0: 74 39 20 3d 20 65 6e 76 2d 3e 76 61 63 61 6c 6c t9 = env->vacall
0cc0: 5f 66 75 6e 63 74 69 6f 6e 29 29 20 28 65 6e 76 _function)) (env
0cd0: 2d 3e 61 72 67 2c 26 6c 69 73 74 29 3b 0a 23 65 ->arg,&list);.#e
0ce0: 6e 64 69 66 0a 20 20 2f 2a 20 50 75 74 20 72 65 ndif. /* Put re
0cf0: 74 75 72 6e 20 76 61 6c 75 65 20 69 6e 74 6f 20 turn value into
0d00: 70 72 6f 70 65 72 20 72 65 67 69 73 74 65 72 2e proper register.
0d10: 20 2a 2f 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 */. if (list.r
0d20: 74 79 70 65 20 3d 3d 20 5f 5f 56 41 76 6f 69 64 type == __VAvoid
0d30: 29 20 7b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 ) {. } else. i
0d40: 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d f (list.rtype ==
0d50: 20 5f 5f 56 41 63 68 61 72 29 20 7b 0a 20 20 20 __VAchar) {.
0d60: 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 iret = list.tmp
0d70: 2e 5f 63 68 61 72 3b 0a 20 20 7d 20 65 6c 73 65 ._char;. } else
0d80: 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 . if (list.rtyp
0d90: 65 20 3d 3d 20 5f 5f 56 41 73 63 68 61 72 29 20 e == __VAschar)
0da0: 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 73 {. iret = lis
0db0: 74 2e 74 6d 70 2e 5f 73 63 68 61 72 3b 0a 20 20 t.tmp._schar;.
0dc0: 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 } else. if (lis
0dd0: 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 75 t.rtype == __VAu
0de0: 63 68 61 72 29 20 7b 0a 20 20 20 20 69 72 65 74 char) {. iret
0df0: 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 75 63 68 = list.tmp._uch
0e00: 61 72 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 ar;. } else. i
0e10: 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d f (list.rtype ==
0e20: 20 5f 5f 56 41 73 68 6f 72 74 29 20 7b 0a 20 20 __VAshort) {.
0e30: 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d iret = list.tm
0e40: 70 2e 5f 73 68 6f 72 74 3b 0a 20 20 7d 20 65 6c p._short;. } el
0e50: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
0e60: 79 70 65 20 3d 3d 20 5f 5f 56 41 75 73 68 6f 72 ype == __VAushor
0e70: 74 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 t) {. iret =
0e80: 6c 69 73 74 2e 74 6d 70 2e 5f 75 73 68 6f 72 74 list.tmp._ushort
0e90: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
0ea0: 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f (list.rtype == _
0eb0: 5f 56 41 69 6e 74 29 20 7b 0a 20 20 20 20 69 72 _VAint) {. ir
0ec0: 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 69 et = list.tmp._i
0ed0: 6e 74 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 nt;. } else. i
0ee0: 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d f (list.rtype ==
0ef0: 20 5f 5f 56 41 75 69 6e 74 29 20 7b 0a 20 20 20 __VAuint) {.
0f00: 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 iret = list.tmp
0f10: 2e 5f 75 69 6e 74 3b 0a 20 20 7d 20 65 6c 73 65 ._uint;. } else
0f20: 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 . if (list.rtyp
0f30: 65 20 3d 3d 20 5f 5f 56 41 6c 6f 6e 67 29 20 7b e == __VAlong) {
0f40: 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 73 74 . iret = list
0f50: 2e 74 6d 70 2e 5f 6c 6f 6e 67 3b 0a 20 20 7d 20 .tmp._long;. }
0f60: 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e else. if (list.
0f70: 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 75 6c 6f rtype == __VAulo
0f80: 6e 67 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d ng) {. iret =
0f90: 20 6c 69 73 74 2e 74 6d 70 2e 5f 75 6c 6f 6e 67 list.tmp._ulong
0fa0: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
0fb0: 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f (list.rtype == _
0fc0: 5f 56 41 6c 6f 6e 67 6c 6f 6e 67 29 20 7b 0a 20 _VAlonglong) {.
0fd0: 20 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 iret = list.t
0fe0: 6d 70 2e 5f 6c 6f 6e 67 3b 0a 20 20 7d 20 65 6c mp._long;. } el
0ff0: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
1000: 79 70 65 20 3d 3d 20 5f 5f 56 41 75 6c 6f 6e 67 ype == __VAulong
1010: 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 69 72 65 74 long) {. iret
1020: 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 75 6c 6f = list.tmp._ulo
1030: 6e 67 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 ng;. } else. i
1040: 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d f (list.rtype ==
1050: 20 5f 5f 56 41 66 6c 6f 61 74 29 20 7b 0a 20 20 __VAfloat) {.
1060: 20 20 66 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d fret = list.tm
1070: 70 2e 5f 66 6c 6f 61 74 3b 0a 20 20 7d 20 65 6c p._float;. } el
1080: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
1090: 79 70 65 20 3d 3d 20 5f 5f 56 41 64 6f 75 62 6c ype == __VAdoubl
10a0: 65 29 20 7b 0a 20 20 20 20 64 72 65 74 20 3d 20 e) {. dret =
10b0: 6c 69 73 74 2e 74 6d 70 2e 5f 64 6f 75 62 6c 65 list.tmp._double
10c0: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
10d0: 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f (list.rtype == _
10e0: 5f 56 41 76 6f 69 64 70 29 20 7b 0a 20 20 20 20 _VAvoidp) {.
10f0: 69 72 65 74 20 3d 20 28 6c 6f 6e 67 29 6c 69 73 iret = (long)lis
1100: 74 2e 74 6d 70 2e 5f 70 74 72 3b 0a 20 20 7d 20 t.tmp._ptr;. }
1110: 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e else. if (list.
1120: 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 73 74 72 rtype == __VAstr
1130: 75 63 74 29 20 7b 0a 20 20 20 20 69 66 20 28 6c uct) {. if (l
1140: 69 73 74 2e 66 6c 61 67 73 20 26 20 5f 5f 56 41 ist.flags & __VA
1150: 5f 50 43 43 5f 53 54 52 55 43 54 5f 52 45 54 55 _PCC_STRUCT_RETU
1160: 52 4e 29 20 7b 0a 20 20 20 20 20 20 2f 2a 20 70 RN) {. /* p
1170: 63 63 20 73 74 72 75 63 74 20 72 65 74 75 72 6e cc struct return
1180: 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 2a 2f 0a 20 convention */.
1190: 20 20 20 20 20 69 72 65 74 20 3d 20 28 6c 6f 6e iret = (lon
11a0: 67 29 20 6c 69 73 74 2e 72 61 64 64 72 3b 0a 20 g) list.raddr;.
11b0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 } else {.
11c0: 20 20 2f 2a 20 6e 6f 72 6d 61 6c 20 73 74 72 75 /* normal stru
11d0: 63 74 20 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e ct return conven
11e0: 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 69 66 tion */. if
11f0: 20 28 6c 69 73 74 2e 66 6c 61 67 73 20 26 20 5f (list.flags & _
1200: 5f 56 41 5f 52 45 47 49 53 54 45 52 5f 53 54 52 _VA_REGISTER_STR
1210: 55 43 54 5f 52 45 54 55 52 4e 29 20 7b 0a 20 20 UCT_RETURN) {.
1220: 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 66 if (list.f
1230: 6c 61 67 73 20 26 20 5f 5f 56 41 5f 47 43 43 5f lags & __VA_GCC_
1240: 53 54 52 55 43 54 5f 52 45 54 55 52 4e 29 20 7b STRUCT_RETURN) {
1250: 0a 20 20 20 20 20 20 20 20 20 20 2f 2a 20 67 63 . /* gc
1260: 63 20 72 65 74 75 72 6e 73 20 73 74 72 75 63 74 c returns struct
1270: 73 20 6f 66 20 73 69 7a 65 20 31 2c 32 2c 34 2c s of size 1,2,4,
1280: 38 20 69 6e 20 72 65 67 69 73 74 65 72 73 2e 20 8 in registers.
1290: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 */. if
12a0: 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 73 (list.rsize == s
12b0: 69 7a 65 6f 66 28 63 68 61 72 29 29 20 7b 0a 20 izeof(char)) {.
12c0: 20 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 iret
12d0: 3d 20 2a 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = *(unsigned cha
12e0: 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 3b r *) list.raddr;
12f0: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 . } els
1300: 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 28 e. if (
1310: 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 73 69 list.rsize == si
1320: 7a 65 6f 66 28 73 68 6f 72 74 29 29 20 7b 0a 20 zeof(short)) {.
1330: 20 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 iret
1340: 3d 20 2a 28 75 6e 73 69 67 6e 65 64 20 73 68 6f = *(unsigned sho
1350: 72 74 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 rt *) list.raddr
1360: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c ;. } el
1370: 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 se. if
1380: 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 73 (list.rsize == s
1390: 69 7a 65 6f 66 28 69 6e 74 29 29 20 7b 0a 20 20 izeof(int)) {.
13a0: 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 3d iret =
13b0: 20 2a 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 20 *(unsigned int
13c0: 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 3b 0a 20 *) list.raddr;.
13d0: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a } else.
13e0: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 if (li
13f0: 73 74 2e 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 st.rsize == size
1400: 6f 66 28 6c 6f 6e 67 29 29 20 7b 0a 20 20 20 20 of(long)) {.
1410: 20 20 20 20 20 20 20 20 69 72 65 74 20 3d 20 2a iret = *
1420: 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 2a (unsigned long *
1430: 29 20 6c 69 73 74 2e 72 61 64 64 72 3b 0a 20 20 ) list.raddr;.
1440: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
1450: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 } else {.
1460: 20 20 20 20 20 2f 2a 20 63 63 20 72 65 74 75 72 /* cc retur
1470: 6e 73 20 73 74 72 75 63 74 73 20 6f 66 20 73 69 ns structs of si
1480: 7a 65 20 3c 3d 20 31 36 20 69 6e 20 72 65 67 69 ze <= 16 in regi
1490: 73 74 65 72 73 2e 20 2a 2f 0a 20 20 20 20 20 20 sters. */.
14a0: 20 20 20 20 2f 2a 20 4d 61 79 62 65 20 74 68 69 /* Maybe thi
14b0: 73 20 62 69 67 20 69 66 20 63 61 73 63 61 64 65 s big if cascade
14c0: 20 63 6f 75 6c 64 20 62 65 20 72 65 70 6c 61 63 could be replac
14d0: 65 64 20 77 69 74 68 0a 20 20 20 20 20 20 20 20 ed with.
14e0: 20 20 20 2a 20 69 66 20 28 6c 69 73 74 2e 72 73 * if (list.rs
14f0: 69 7a 65 20 3e 20 30 20 26 26 20 6c 69 73 74 2e ize > 0 && list.
1500: 72 73 69 7a 65 20 3c 3d 20 31 36 29 0a 20 20 20 rsize <= 16).
1510: 20 20 20 20 20 20 20 20 2a 20 20 20 5f 5f 61 73 * __as
1520: 6d 5f 5f 20 28 22 6c 64 6c 20 24 32 2c 25 30 20 m__ ("ldl $2,%0
1530: 3b 20 6c 64 72 20 24 32 2c 25 31 22 0a 20 20 20 ; ldr $2,%1".
1540: 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 *
1550: 20 20 20 20 20 3a 20 3a 20 22 6d 22 20 28 28 28 : : "m" (((
1560: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
1570: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d 29 list.raddr)[0])
1580: 2c 0a 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 ,. *
1590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 6d "m
15a0: 22 20 28 28 28 75 6e 73 69 67 6e 65 64 20 63 68 " (((unsigned ch
15b0: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
15c0: 29 5b 37 5d 29 29 3b 0a 20 20 20 20 20 20 20 20 )[7]));.
15d0: 20 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 */.
15e0: 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3e if (list.rsize >
15f0: 20 30 20 26 26 20 6c 69 73 74 2e 72 73 69 7a 65 0 && list.rsize
1600: 20 3c 3d 20 31 36 29 20 7b 0a 20 20 20 20 20 20 <= 16) {.
1610: 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 if (list.r
1620: 73 69 7a 65 20 3d 3d 20 31 29 20 7b 0a 20 20 20 size == 1) {.
1630: 20 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 iret
1640: 3d 20 20 20 28 5f 5f 76 61 77 6f 72 64 29 28 28 = (__vaword)((
1650: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
1660: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d 20 list.raddr)[0]
1670: 3c 3c 20 35 36 3b 0a 20 20 20 20 20 20 20 20 20 << 56;.
1680: 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 } else.
1690: 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 if (list.r
16a0: 73 69 7a 65 20 3d 3d 20 32 29 20 7b 0a 20 20 20 size == 2) {.
16b0: 20 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 iret
16c0: 3d 20 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 = ((__vaword)((
16d0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
16e0: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d 20 list.raddr)[0]
16f0: 3c 3c 20 35 36 29 0a 20 20 20 20 20 20 20 20 20 << 56).
1700: 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f | ((_
1710: 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e _vaword)((unsign
1720: 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e ed char *) list.
1730: 72 61 64 64 72 29 5b 31 5d 20 3c 3c 20 34 38 29 raddr)[1] << 48)
1740: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 ;. }
1750: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 else.
1760: 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 if (list.rsize
1770: 3d 3d 20 33 29 20 7b 0a 20 20 20 20 20 20 20 20 == 3) {.
1780: 20 20 20 20 20 20 69 72 65 74 20 3d 20 20 28 28 iret = ((
1790: 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 __vaword)((unsig
17a0: 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 ned char *) list
17b0: 2e 72 61 64 64 72 29 5b 30 5d 20 3c 3c 20 35 36 .raddr)[0] << 56
17c0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
17d0: 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f | ((__vawo
17e0: 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 rd)((unsigned ch
17f0: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
1800: 29 5b 31 5d 20 3c 3c 20 34 38 29 0a 20 20 20 20 )[1] << 48).
1810: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1820: 7c 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 | ((__vaword)((u
1830: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
1840: 6c 69 73 74 2e 72 61 64 64 72 29 5b 32 5d 20 3c list.raddr)[2] <
1850: 3c 20 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 < 40);.
1860: 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 } else.
1870: 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 if (list.r
1880: 73 69 7a 65 20 3d 3d 20 34 29 20 7b 0a 20 20 20 size == 4) {.
1890: 20 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 iret
18a0: 3d 20 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 = ((__vaword)((
18b0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
18c0: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d 20 list.raddr)[0]
18d0: 3c 3c 20 35 36 29 0a 20 20 20 20 20 20 20 20 20 << 56).
18e0: 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f | ((_
18f0: 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e _vaword)((unsign
1900: 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e ed char *) list.
1910: 72 61 64 64 72 29 5b 31 5d 20 3c 3c 20 34 38 29 raddr)[1] << 48)
1920: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
1930: 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f 72 | ((__vawor
1940: 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 d)((unsigned cha
1950: 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 r *) list.raddr)
1960: 5b 32 5d 20 3c 3c 20 34 30 29 0a 20 20 20 20 20 [2] << 40).
1970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c |
1980: 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e ((__vaword)((un
1990: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c signed char *) l
19a0: 69 73 74 2e 72 61 64 64 72 29 5b 33 5d 20 3c 3c ist.raddr)[3] <<
19b0: 20 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 32);.
19c0: 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 } else.
19d0: 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 if (list.rs
19e0: 69 7a 65 20 3d 3d 20 35 29 20 7b 0a 20 20 20 20 ize == 5) {.
19f0: 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 3d iret =
1a00: 20 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 ((__vaword)((u
1a10: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
1a20: 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d 20 3c list.raddr)[0] <
1a30: 3c 20 35 36 29 0a 20 20 20 20 20 20 20 20 20 20 < 56).
1a40: 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f | ((__
1a50: 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 vaword)((unsigne
1a60: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
1a70: 61 64 64 72 29 5b 31 5d 20 3c 3c 20 34 38 29 0a addr)[1] << 48).
1a80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1a90: 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 | ((__vaword
1aa0: 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 )((unsigned char
1ab0: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b *) list.raddr)[
1ac0: 32 5d 20 3c 3c 20 34 30 29 0a 20 20 20 20 20 20 2] << 40).
1ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 |
1ae0: 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 ((__vaword)((uns
1af0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 igned char *) li
1b00: 73 74 2e 72 61 64 64 72 29 5b 33 5d 20 3c 3c 20 st.raddr)[3] <<
1b10: 33 32 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 32).
1b20: 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 | ((__va
1b30: 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 word)((unsigned
1b40: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
1b50: 64 72 29 5b 34 5d 20 3c 3c 20 32 34 29 3b 0a 20 dr)[4] << 24);.
1b60: 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 } els
1b70: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 e. if
1b80: 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 (list.rsize ==
1b90: 36 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 6) {.
1ba0: 20 20 20 69 72 65 74 20 3d 20 20 28 28 5f 5f 76 iret = ((__v
1bb0: 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 aword)((unsigned
1bc0: 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 char *) list.ra
1bd0: 64 64 72 29 5b 30 5d 20 3c 3c 20 35 36 29 0a 20 ddr)[0] << 56).
1be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1bf0: 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 29 | ((__vaword)
1c00: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
1c10: 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 *) list.raddr)[1
1c20: 5d 20 3c 3c 20 34 38 29 0a 20 20 20 20 20 20 20 ] << 48).
1c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 | (
1c40: 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 (__vaword)((unsi
1c50: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
1c60: 74 2e 72 61 64 64 72 29 5b 32 5d 20 3c 3c 20 34 t.raddr)[2] << 4
1c70: 30 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 0).
1c80: 20 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 | ((__vaw
1c90: 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 ord)((unsigned c
1ca0: 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 har *) list.radd
1cb0: 72 29 5b 33 5d 20 3c 3c 20 33 32 29 0a 20 20 20 r)[3] << 32).
1cc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1cd0: 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 | ((__vaword)((
1ce0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
1cf0: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 34 5d 20 list.raddr)[4]
1d00: 3c 3c 20 32 34 29 0a 20 20 20 20 20 20 20 20 20 << 24).
1d10: 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f | ((_
1d20: 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e _vaword)((unsign
1d30: 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e ed char *) list.
1d40: 72 61 64 64 72 29 5b 35 5d 20 3c 3c 20 31 36 29 raddr)[5] << 16)
1d50: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 ;. }
1d60: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 else.
1d70: 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 if (list.rsize
1d80: 3d 3d 20 37 29 20 7b 0a 20 20 20 20 20 20 20 20 == 7) {.
1d90: 20 20 20 20 20 20 69 72 65 74 20 3d 20 20 28 28 iret = ((
1da0: 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 __vaword)((unsig
1db0: 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 ned char *) list
1dc0: 2e 72 61 64 64 72 29 5b 30 5d 20 3c 3c 20 35 36 .raddr)[0] << 56
1dd0: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
1de0: 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f | ((__vawo
1df0: 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 rd)((unsigned ch
1e00: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
1e10: 29 5b 31 5d 20 3c 3c 20 34 38 29 0a 20 20 20 20 )[1] << 48).
1e20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1e30: 7c 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 | ((__vaword)((u
1e40: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
1e50: 6c 69 73 74 2e 72 61 64 64 72 29 5b 32 5d 20 3c list.raddr)[2] <
1e60: 3c 20 34 30 29 0a 20 20 20 20 20 20 20 20 20 20 < 40).
1e70: 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f | ((__
1e80: 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 vaword)((unsigne
1e90: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
1ea0: 61 64 64 72 29 5b 33 5d 20 3c 3c 20 33 32 29 0a addr)[3] << 32).
1eb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1ec0: 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 | ((__vaword
1ed0: 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 )((unsigned char
1ee0: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b *) list.raddr)[
1ef0: 34 5d 20 3c 3c 20 32 34 29 0a 20 20 20 20 20 20 4] << 24).
1f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 |
1f10: 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 ((__vaword)((uns
1f20: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 igned char *) li
1f30: 73 74 2e 72 61 64 64 72 29 5b 35 5d 20 3c 3c 20 st.raddr)[5] <<
1f40: 31 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 16).
1f50: 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 | ((__va
1f60: 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 word)((unsigned
1f70: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
1f80: 64 72 29 5b 36 5d 20 3c 3c 20 38 29 3b 0a 20 20 dr)[6] << 8);.
1f90: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 } else
1fa0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
1fb0: 28 6c 69 73 74 2e 72 73 69 7a 65 20 3e 3d 20 38 (list.rsize >= 8
1fc0: 20 26 26 20 6c 69 73 74 2e 72 73 69 7a 65 20 3c && list.rsize <
1fd0: 3d 20 31 36 29 20 7b 0a 20 20 20 20 20 20 20 20 = 16) {.
1fe0: 20 20 20 20 20 20 69 72 65 74 20 3d 20 20 28 28 iret = ((
1ff0: 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 __vaword)((unsig
2000: 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 ned char *) list
2010: 2e 72 61 64 64 72 29 5b 30 5d 20 3c 3c 20 35 36 .raddr)[0] << 56
2020: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
2030: 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f | ((__vawo
2040: 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 rd)((unsigned ch
2050: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
2060: 29 5b 31 5d 20 3c 3c 20 34 38 29 0a 20 20 20 20 )[1] << 48).
2070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2080: 7c 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 | ((__vaword)((u
2090: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
20a0: 6c 69 73 74 2e 72 61 64 64 72 29 5b 32 5d 20 3c list.raddr)[2] <
20b0: 3c 20 34 30 29 0a 20 20 20 20 20 20 20 20 20 20 < 40).
20c0: 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f | ((__
20d0: 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 vaword)((unsigne
20e0: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
20f0: 61 64 64 72 29 5b 33 5d 20 3c 3c 20 33 32 29 0a addr)[3] << 32).
2100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2110: 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 | ((__vaword
2120: 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 )((unsigned char
2130: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b *) list.raddr)[
2140: 34 5d 20 3c 3c 20 32 34 29 0a 20 20 20 20 20 20 4] << 24).
2150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 |
2160: 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 ((__vaword)((uns
2170: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 igned char *) li
2180: 73 74 2e 72 61 64 64 72 29 5b 35 5d 20 3c 3c 20 st.raddr)[5] <<
2190: 31 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 16).
21a0: 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 | ((__va
21b0: 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 word)((unsigned
21c0: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
21d0: 64 72 29 5b 36 5d 20 3c 3c 20 38 29 0a 20 20 20 dr)[6] << 8).
21e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
21f0: 20 7c 20 20 28 5f 5f 76 61 77 6f 72 64 29 28 28 | (__vaword)((
2200: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
2210: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 37 5d 3b list.raddr)[7];
2220: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f . /
2230: 2a 20 4d 61 79 62 65 20 74 68 69 73 20 62 69 67 * Maybe this big
2240: 20 69 66 20 63 61 73 63 61 64 65 20 63 6f 75 6c if cascade coul
2250: 64 20 62 65 20 72 65 70 6c 61 63 65 64 20 77 69 d be replaced wi
2260: 74 68 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 th.
2270: 20 20 2a 20 69 66 20 28 6c 69 73 74 2e 72 73 69 * if (list.rsi
2280: 7a 65 20 3e 20 38 20 26 26 20 6c 69 73 74 2e 72 ze > 8 && list.r
2290: 73 69 7a 65 20 3c 3d 20 31 36 29 0a 20 20 20 20 size <= 16).
22a0: 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 5f * _
22b0: 5f 61 73 6d 5f 5f 20 28 22 6c 64 6c 20 24 33 2c _asm__ ("ldl $3,
22c0: 25 30 20 3b 20 6c 64 72 20 24 33 2c 25 31 22 0a %0 ; ldr $3,%1".
22d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a *
22e0: 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 3a 20 : :
22f0: 22 6d 22 20 28 28 28 75 6e 73 69 67 6e 65 64 20 "m" (((unsigned
2300: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
2310: 64 72 29 5b 38 5d 29 2c 0a 20 20 20 20 20 20 20 dr)[8]),.
2320: 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 *
2330: 20 20 20 20 20 20 20 20 20 22 6d 22 20 28 28 28 "m" (((
2340: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
2350: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 35 5d list.raddr)[15]
2360: 29 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ));.
2370: 20 20 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 */.
2380: 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 if (list.rsi
2390: 7a 65 20 3d 3d 20 38 29 20 7b 0a 20 20 20 20 20 ze == 8) {.
23a0: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a } else.
23b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 if
23c0: 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 (list.rsize ==
23d0: 39 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 9) {.
23e0: 20 20 20 20 20 69 72 65 74 32 20 3d 20 20 20 28 iret2 = (
23f0: 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 __vaword)((unsig
2400: 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 ned char *) list
2410: 2e 72 61 64 64 72 29 5b 38 5d 20 3c 3c 20 35 36 .raddr)[8] << 56
2420: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
2430: 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 } else.
2440: 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 if (list.rs
2450: 69 7a 65 20 3d 3d 20 31 30 29 20 7b 0a 20 20 20 ize == 10) {.
2460: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 72 65 ire
2470: 74 32 20 3d 20 20 28 28 5f 5f 76 61 77 6f 72 64 t2 = ((__vaword
2480: 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 )((unsigned char
2490: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b *) list.raddr)[
24a0: 38 5d 20 3c 3c 20 35 36 29 0a 20 20 20 20 20 20 8] << 56).
24b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
24c0: 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 | ((__vaword)((
24d0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
24e0: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 39 5d 20 list.raddr)[9]
24f0: 3c 3c 20 34 38 29 3b 0a 20 20 20 20 20 20 20 20 << 48);.
2500: 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 } else.
2510: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c if (l
2520: 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 31 31 29 ist.rsize == 11)
2530: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
2540: 20 20 20 69 72 65 74 32 20 3d 20 20 28 28 5f 5f iret2 = ((__
2550: 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 vaword)((unsigne
2560: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
2570: 61 64 64 72 29 5b 38 5d 20 3c 3c 20 35 36 29 0a addr)[8] << 56).
2580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2590: 20 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 | ((__vaw
25a0: 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 ord)((unsigned c
25b0: 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 har *) list.radd
25c0: 72 29 5b 39 5d 20 3c 3c 20 34 38 29 0a 20 20 20 r)[9] << 48).
25d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
25e0: 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 | ((__vaword
25f0: 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 )((unsigned char
2600: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b *) list.raddr)[
2610: 31 30 5d 20 3c 3c 20 34 30 29 3b 0a 20 20 20 20 10] << 40);.
2620: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 } else
2630: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 . i
2640: 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d f (list.rsize ==
2650: 20 31 32 29 20 7b 0a 20 20 20 20 20 20 20 20 20 12) {.
2660: 20 20 20 20 20 20 20 69 72 65 74 32 20 3d 20 20 iret2 =
2670: 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 ((__vaword)((uns
2680: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 igned char *) li
2690: 73 74 2e 72 61 64 64 72 29 5b 38 5d 20 3c 3c 20 st.raddr)[8] <<
26a0: 35 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 56).
26b0: 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f | ((_
26c0: 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e _vaword)((unsign
26d0: 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e ed char *) list.
26e0: 72 61 64 64 72 29 5b 39 5d 20 3c 3c 20 34 38 29 raddr)[9] << 48)
26f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
2700: 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 | ((__va
2710: 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 word)((unsigned
2720: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
2730: 64 72 29 5b 31 30 5d 20 3c 3c 20 34 30 29 0a 20 dr)[10] << 40).
2740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2750: 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f | ((__vawo
2760: 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 rd)((unsigned ch
2770: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
2780: 29 5b 31 31 5d 20 3c 3c 20 33 32 29 3b 0a 20 20 )[11] << 32);.
2790: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c } el
27a0: 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 se.
27b0: 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 if (list.rsize
27c0: 3d 3d 20 31 33 29 20 7b 0a 20 20 20 20 20 20 20 == 13) {.
27d0: 20 20 20 20 20 20 20 20 20 69 72 65 74 32 20 3d iret2 =
27e0: 20 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 ((__vaword)((u
27f0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
2800: 6c 69 73 74 2e 72 61 64 64 72 29 5b 38 5d 20 3c list.raddr)[8] <
2810: 3c 20 35 36 29 0a 20 20 20 20 20 20 20 20 20 20 < 56).
2820: 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 | (
2830: 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 (__vaword)((unsi
2840: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
2850: 74 2e 72 61 64 64 72 29 5b 39 5d 20 3c 3c 20 34 t.raddr)[9] << 4
2860: 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 8).
2870: 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f | ((__
2880: 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 vaword)((unsigne
2890: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
28a0: 61 64 64 72 29 5b 31 30 5d 20 3c 3c 20 34 30 29 addr)[10] << 40)
28b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
28c0: 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 | ((__va
28d0: 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 word)((unsigned
28e0: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
28f0: 64 72 29 5b 31 31 5d 20 3c 3c 20 33 32 29 0a 20 dr)[11] << 32).
2900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2910: 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f | ((__vawo
2920: 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 rd)((unsigned ch
2930: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
2940: 29 5b 31 32 5d 20 3c 3c 20 32 34 29 3b 0a 20 20 )[12] << 24);.
2950: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c } el
2960: 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 se.
2970: 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 if (list.rsize
2980: 3d 3d 20 31 34 29 20 7b 0a 20 20 20 20 20 20 20 == 14) {.
2990: 20 20 20 20 20 20 20 20 20 69 72 65 74 32 20 3d iret2 =
29a0: 20 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 ((__vaword)((u
29b0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
29c0: 6c 69 73 74 2e 72 61 64 64 72 29 5b 38 5d 20 3c list.raddr)[8] <
29d0: 3c 20 35 36 29 0a 20 20 20 20 20 20 20 20 20 20 < 56).
29e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 | (
29f0: 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 (__vaword)((unsi
2a00: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
2a10: 74 2e 72 61 64 64 72 29 5b 39 5d 20 3c 3c 20 34 t.raddr)[9] << 4
2a20: 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 8).
2a30: 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f | ((__
2a40: 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 vaword)((unsigne
2a50: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
2a60: 61 64 64 72 29 5b 31 30 5d 20 3c 3c 20 34 30 29 addr)[10] << 40)
2a70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
2a80: 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 | ((__va
2a90: 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 word)((unsigned
2aa0: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
2ab0: 64 72 29 5b 31 31 5d 20 3c 3c 20 33 32 29 0a 20 dr)[11] << 32).
2ac0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ad0: 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f | ((__vawo
2ae0: 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 rd)((unsigned ch
2af0: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
2b00: 29 5b 31 32 5d 20 3c 3c 20 32 34 29 0a 20 20 20 )[12] << 24).
2b10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2b20: 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 | ((__vaword
2b30: 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 )((unsigned char
2b40: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b *) list.raddr)[
2b50: 31 33 5d 20 3c 3c 20 31 36 29 3b 0a 20 20 20 20 13] << 16);.
2b60: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 } else
2b70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 . i
2b80: 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d f (list.rsize ==
2b90: 20 31 35 29 20 7b 0a 20 20 20 20 20 20 20 20 20 15) {.
2ba0: 20 20 20 20 20 20 20 69 72 65 74 32 20 3d 20 20 iret2 =
2bb0: 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 ((__vaword)((uns
2bc0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 igned char *) li
2bd0: 73 74 2e 72 61 64 64 72 29 5b 38 5d 20 3c 3c 20 st.raddr)[8] <<
2be0: 35 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 56).
2bf0: 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f | ((_
2c00: 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e _vaword)((unsign
2c10: 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e ed char *) list.
2c20: 72 61 64 64 72 29 5b 39 5d 20 3c 3c 20 34 38 29 raddr)[9] << 48)
2c30: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
2c40: 20 20 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 | ((__va
2c50: 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 word)((unsigned
2c60: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
2c70: 64 72 29 5b 31 30 5d 20 3c 3c 20 34 30 29 0a 20 dr)[10] << 40).
2c80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2c90: 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f | ((__vawo
2ca0: 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 rd)((unsigned ch
2cb0: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
2cc0: 29 5b 31 31 5d 20 3c 3c 20 33 32 29 0a 20 20 20 )[11] << 32).
2cd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ce0: 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 | ((__vaword
2cf0: 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 )((unsigned char
2d00: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b *) list.raddr)[
2d10: 31 32 5d 20 3c 3c 20 32 34 29 0a 20 20 20 20 20 12] << 24).
2d20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2d30: 20 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 | ((__vaword)(
2d40: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
2d50: 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 33 ) list.raddr)[13
2d60: 5d 20 3c 3c 20 31 36 29 0a 20 20 20 20 20 20 20 ] << 16).
2d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2d80: 7c 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 | ((__vaword)((u
2d90: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
2da0: 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 34 5d 20 list.raddr)[14]
2db0: 3c 3c 20 38 29 3b 0a 20 20 20 20 20 20 20 20 20 << 8);.
2dc0: 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 } else.
2dd0: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 if (li
2de0: 73 74 2e 72 73 69 7a 65 20 3d 3d 20 31 36 29 20 st.rsize == 16)
2df0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
2e00: 20 20 69 72 65 74 32 20 3d 20 20 28 28 5f 5f 76 iret2 = ((__v
2e10: 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 aword)((unsigned
2e20: 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 char *) list.ra
2e30: 64 64 72 29 5b 38 5d 20 3c 3c 20 35 36 29 0a 20 ddr)[8] << 56).
2e40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2e50: 20 20 20 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f | ((__vawo
2e60: 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 rd)((unsigned ch
2e70: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
2e80: 29 5b 39 5d 20 3c 3c 20 34 38 29 0a 20 20 20 20 )[9] << 48).
2e90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ea0: 20 20 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 29 | ((__vaword)
2eb0: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
2ec0: 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 *) list.raddr)[1
2ed0: 30 5d 20 3c 3c 20 34 30 29 0a 20 20 20 20 20 20 0] << 40).
2ee0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2ef0: 20 7c 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 | ((__vaword)((
2f00: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
2f10: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 31 5d list.raddr)[11]
2f20: 20 3c 3c 20 33 32 29 0a 20 20 20 20 20 20 20 20 << 32).
2f30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7c |
2f40: 20 28 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e ((__vaword)((un
2f50: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c signed char *) l
2f60: 69 73 74 2e 72 61 64 64 72 29 5b 31 32 5d 20 3c ist.raddr)[12] <
2f70: 3c 20 32 34 29 0a 20 20 20 20 20 20 20 20 20 20 < 24).
2f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 | (
2f90: 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 (__vaword)((unsi
2fa0: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
2fb0: 74 2e 72 61 64 64 72 29 5b 31 33 5d 20 3c 3c 20 t.raddr)[13] <<
2fc0: 31 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 16).
2fd0: 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 5f | ((_
2fe0: 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e _vaword)((unsign
2ff0: 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e ed char *) list.
3000: 72 61 64 64 72 29 5b 31 34 5d 20 3c 3c 20 38 29 raddr)[14] << 8)
3010: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3020: 20 20 20 20 20 20 20 20 7c 20 20 28 5f 5f 76 61 | (__va
3030: 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 word)((unsigned
3040: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
3050: 64 72 29 5b 31 35 5d 3b 0a 20 20 20 20 20 20 20 dr)[15];.
3060: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
3070: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 20 }.
3080: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 }. if
3090: 28 6c 69 73 74 2e 66 6c 61 67 73 20 26 20 5f 5f (list.flags & __
30a0: 56 41 5f 52 45 47 49 53 54 45 52 5f 46 4c 4f 41 VA_REGISTER_FLOA
30b0: 54 53 54 52 55 43 54 5f 52 45 54 55 52 4e 29 20 TSTRUCT_RETURN)
30c0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 {. if
30d0: 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 (list.rsize ==
30e0: 73 69 7a 65 6f 66 28 66 6c 6f 61 74 29 29 20 7b sizeof(float)) {
30f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 . f
3100: 72 65 74 20 3d 20 2a 28 66 6c 6f 61 74 2a 29 6c ret = *(float*)l
3110: 69 73 74 2e 72 61 64 64 72 3b 0a 20 20 20 20 20 ist.raddr;.
3120: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 } else.
3130: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 if (li
3140: 73 74 2e 72 73 69 7a 65 20 3d 3d 20 32 2a 73 69 st.rsize == 2*si
3150: 7a 65 6f 66 28 66 6c 6f 61 74 29 29 20 7b 0a 20 zeof(float)) {.
3160: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 72 65 fre
3170: 74 20 3d 20 2a 28 66 6c 6f 61 74 2a 29 6c 69 73 t = *(float*)lis
3180: 74 2e 72 61 64 64 72 3b 0a 20 20 20 20 20 20 20 t.raddr;.
3190: 20 20 20 20 20 20 20 66 72 65 74 32 20 3d 20 2a fret2 = *
31a0: 28 66 6c 6f 61 74 2a 29 28 28 63 68 61 72 2a 29 (float*)((char*)
31b0: 6c 69 73 74 2e 72 61 64 64 72 20 2b 20 34 29 3b list.raddr + 4);
31c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 . }.
31d0: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
31e0: 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 66 6c if (list.fl
31f0: 61 67 73 20 26 20 5f 5f 56 41 5f 52 45 47 49 53 ags & __VA_REGIS
3200: 54 45 52 5f 44 4f 55 42 4c 45 53 54 52 55 43 54 TER_DOUBLESTRUCT
3210: 5f 52 45 54 55 52 4e 29 20 7b 0a 20 20 20 20 20 _RETURN) {.
3220: 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e if (list.
3230: 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 rsize == sizeof(
3240: 64 6f 75 62 6c 65 29 29 20 7b 0a 20 20 20 20 20 double)) {.
3250: 20 20 20 20 20 20 20 20 20 64 72 65 74 20 3d 20 dret =
3260: 2a 28 64 6f 75 62 6c 65 2a 29 6c 69 73 74 2e 72 *(double*)list.r
3270: 61 64 64 72 3b 0a 20 20 20 20 20 20 20 20 20 20 addr;.
3280: 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 } else.
3290: 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 if (list.rs
32a0: 69 7a 65 20 3d 3d 20 32 2a 73 69 7a 65 6f 66 28 ize == 2*sizeof(
32b0: 64 6f 75 62 6c 65 29 29 20 7b 0a 20 20 20 20 20 double)) {.
32c0: 20 20 20 20 20 20 20 20 20 64 72 65 74 20 3d 20 dret =
32d0: 2a 28 64 6f 75 62 6c 65 2a 29 6c 69 73 74 2e 72 *(double*)list.r
32e0: 61 64 64 72 3b 0a 20 20 20 20 20 20 20 20 20 20 addr;.
32f0: 20 20 20 20 64 72 65 74 32 20 3d 20 2a 28 64 6f dret2 = *(do
3300: 75 62 6c 65 2a 29 28 28 63 68 61 72 2a 29 6c 69 uble*)((char*)li
3310: 73 74 2e 72 61 64 64 72 20 2b 20 38 29 3b 0a 20 st.raddr + 8);.
3320: 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 }.
3330: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 }.
3340: 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d }. }. }
3350: 0a 20 20 7d 0a 7d 7d 0a . }.}}.