Artifact
9223f4b9720cc9c25065e82106e45fba913b901f:
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 61 6c 70 68 61 20 43 50 55 on for alpha CPU
0020: 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 43 6f 70 79 72 */../*. * Copyr
0030: 69 67 68 74 20 31 39 39 35 2d 32 30 30 34 20 42 ight 1995-2004 B
0040: 72 75 6e 6f 20 48 61 69 62 6c 65 2c 20 3c 62 72 runo Haible, <br
0050: 75 6e 6f 40 63 6c 69 73 70 2e 6f 72 67 3e 0a 20 uno@clisp.org>.
0060: 2a 0a 20 2a 20 54 68 69 73 20 69 73 20 66 72 65 *. * This is fre
0070: 65 20 73 6f 66 74 77 61 72 65 20 64 69 73 74 72 e software distr
0080: 69 62 75 74 65 64 20 75 6e 64 65 72 20 74 68 65 ibuted under the
0090: 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 GNU General Pub
00a0: 6c 69 63 20 4c 69 63 65 6e 63 65 0a 20 2a 20 64 lic Licence. * d
00b0: 65 73 63 72 69 62 65 64 20 69 6e 20 74 68 65 20 escribed in the
00c0: 66 69 6c 65 20 43 4f 50 59 49 4e 47 2e 20 43 6f file COPYING. Co
00d0: 6e 74 61 63 74 20 74 68 65 20 61 75 74 68 6f 72 ntact the author
00e0: 20 69 66 20 79 6f 75 20 64 6f 6e 27 74 20 68 61 if you don't ha
00f0: 76 65 20 74 68 69 73 0a 20 2a 20 6f 72 20 63 61 ve this. * or ca
0100: 6e 27 74 20 6c 69 76 65 20 77 69 74 68 20 69 74 n't live with it
0110: 2e 20 54 68 65 72 65 20 69 73 20 41 42 53 4f 4c . There is ABSOL
0120: 55 54 45 4c 59 20 4e 4f 20 57 41 52 52 41 4e 54 UTELY NO WARRANT
0130: 59 2c 20 65 78 70 6c 69 63 69 74 20 6f 72 20 69 Y, explicit or i
0140: 6d 70 6c 69 65 64 2c 0a 20 2a 20 6f 6e 20 74 68 mplied,. * on th
0150: 69 73 20 73 6f 66 74 77 61 72 65 2e 0a 20 2a 2f is software.. */
0160: 0a 0a 23 69 66 6e 64 65 66 20 52 45 45 4e 54 52 ..#ifndef REENTR
0170: 41 4e 54 0a 23 69 6e 63 6c 75 64 65 20 22 76 61 ANT.#include "va
0180: 63 61 6c 6c 2e 68 2e 69 6e 22 0a 23 65 6c 73 65 call.h.in".#else
0190: 20 2f 2a 20 52 45 45 4e 54 52 41 4e 54 20 2a 2f /* REENTRANT */
01a0: 0a 23 69 6e 63 6c 75 64 65 20 22 76 61 63 61 6c .#include "vacal
01b0: 6c 5f 72 2e 68 2e 69 6e 22 0a 23 65 6e 64 69 66 l_r.h.in".#endif
01c0: 0a 0a 23 69 66 64 65 66 20 52 45 45 4e 54 52 41 ..#ifdef REENTRA
01d0: 4e 54 0a 23 64 65 66 69 6e 65 20 5f 5f 76 61 63 NT.#define __vac
01e0: 61 6c 6c 20 5f 5f 76 61 63 61 6c 6c 5f 72 0a 72 all __vacall_r.r
01f0: 65 67 69 73 74 65 72 20 73 74 72 75 63 74 20 7b egister struct {
0200: 20 76 6f 69 64 20 28 2a 76 61 63 61 6c 6c 5f 66 void (*vacall_f
0210: 75 6e 63 74 69 6f 6e 29 20 28 76 6f 69 64 2a 2c unction) (void*,
0220: 76 61 5f 61 6c 69 73 74 29 3b 20 76 6f 69 64 2a va_alist); void*
0230: 20 61 72 67 3b 20 7d 0a 20 20 20 20 20 20 20 20 arg; }.
0240: 20 2a 09 09 65 6e 76 09 5f 5f 61 73 6d 5f 5f 28 *..env.__asm__(
0250: 22 24 31 22 29 3b 0a 23 65 6e 64 69 66 0a 72 65 "$1");.#endif.re
0260: 67 69 73 74 65 72 20 6c 6f 6e 67 09 09 61 72 67 gister long..arg
0270: 31 09 5f 5f 61 73 6d 5f 5f 28 22 24 31 36 22 29 1.__asm__("$16")
0280: 3b 0a 72 65 67 69 73 74 65 72 20 6c 6f 6e 67 09 ;.register long.
0290: 09 61 72 67 32 09 5f 5f 61 73 6d 5f 5f 28 22 24 .arg2.__asm__("$
02a0: 31 37 22 29 3b 0a 72 65 67 69 73 74 65 72 20 6c 17");.register l
02b0: 6f 6e 67 09 09 61 72 67 33 09 5f 5f 61 73 6d 5f ong..arg3.__asm_
02c0: 5f 28 22 24 31 38 22 29 3b 0a 72 65 67 69 73 74 _("$18");.regist
02d0: 65 72 20 6c 6f 6e 67 09 09 61 72 67 34 09 5f 5f er long..arg4.__
02e0: 61 73 6d 5f 5f 28 22 24 31 39 22 29 3b 0a 72 65 asm__("$19");.re
02f0: 67 69 73 74 65 72 20 6c 6f 6e 67 09 09 61 72 67 gister long..arg
0300: 35 09 5f 5f 61 73 6d 5f 5f 28 22 24 32 30 22 29 5.__asm__("$20")
0310: 3b 0a 72 65 67 69 73 74 65 72 20 6c 6f 6e 67 09 ;.register long.
0320: 09 61 72 67 36 09 5f 5f 61 73 6d 5f 5f 28 22 24 .arg6.__asm__("$
0330: 32 31 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 21");.register d
0340: 6f 75 62 6c 65 09 09 66 61 72 67 31 09 5f 5f 61 ouble..farg1.__a
0350: 73 6d 5f 5f 28 22 24 66 31 36 22 29 3b 0a 72 65 sm__("$f16");.re
0360: 67 69 73 74 65 72 20 64 6f 75 62 6c 65 09 09 66 gister double..f
0370: 61 72 67 32 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 arg2.__asm__("$f
0380: 31 37 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 17");.register d
0390: 6f 75 62 6c 65 09 09 66 61 72 67 33 09 5f 5f 61 ouble..farg3.__a
03a0: 73 6d 5f 5f 28 22 24 66 31 38 22 29 3b 0a 72 65 sm__("$f18");.re
03b0: 67 69 73 74 65 72 20 64 6f 75 62 6c 65 09 09 66 gister double..f
03c0: 61 72 67 34 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 arg4.__asm__("$f
03d0: 31 39 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 19");.register d
03e0: 6f 75 62 6c 65 09 09 66 61 72 67 35 09 5f 5f 61 ouble..farg5.__a
03f0: 73 6d 5f 5f 28 22 24 66 32 30 22 29 3b 0a 72 65 sm__("$f20");.re
0400: 67 69 73 74 65 72 20 64 6f 75 62 6c 65 09 09 66 gister double..f
0410: 61 72 67 36 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 arg6.__asm__("$f
0420: 32 31 22 29 3b 0a 72 65 67 69 73 74 65 72 20 5f 21");.register _
0430: 5f 76 61 77 6f 72 64 09 69 72 65 74 09 5f 5f 61 _vaword.iret.__a
0440: 73 6d 5f 5f 28 22 24 30 22 29 3b 0a 72 65 67 69 sm__("$0");.regi
0450: 73 74 65 72 20 5f 5f 76 61 77 6f 72 64 09 69 72 ster __vaword.ir
0460: 65 74 32 09 5f 5f 61 73 6d 5f 5f 28 22 24 31 22 et2.__asm__("$1"
0470: 29 3b 0a 72 65 67 69 73 74 65 72 20 66 6c 6f 61 );.register floa
0480: 74 09 09 66 72 65 74 09 5f 5f 61 73 6d 5f 5f 28 t..fret.__asm__(
0490: 22 24 66 30 22 29 3b 0a 72 65 67 69 73 74 65 72 "$f0");.register
04a0: 20 64 6f 75 62 6c 65 09 09 64 72 65 74 09 5f 5f double..dret.__
04b0: 61 73 6d 5f 5f 28 22 24 66 30 22 29 3b 0a 0a 76 asm__("$f0");..v
04c0: 6f 69 64 20 2f 2a 20 74 68 65 20 72 65 74 75 72 oid /* the retur
04d0: 6e 20 74 79 70 65 20 69 73 20 76 61 72 69 61 62 n type is variab
04e0: 6c 65 2c 20 6e 6f 74 20 76 6f 69 64 21 20 2a 2f le, not void! */
04f0: 0a 5f 5f 76 61 63 61 6c 6c 20 28 5f 5f 76 61 77 .__vacall (__vaw
0500: 6f 72 64 20 77 6f 72 64 31 2c 20 5f 5f 76 61 77 ord word1, __vaw
0510: 6f 72 64 20 77 6f 72 64 32 2c 20 5f 5f 76 61 77 ord word2, __vaw
0520: 6f 72 64 20 77 6f 72 64 33 2c 20 5f 5f 76 61 77 ord word3, __vaw
0530: 6f 72 64 20 77 6f 72 64 34 2c 0a 20 20 20 20 20 ord word4,.
0540: 20 20 20 20 20 5f 5f 76 61 77 6f 72 64 20 77 6f __vaword wo
0550: 72 64 35 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f rd5, __vaword wo
0560: 72 64 36 2c 0a 20 20 20 20 20 20 20 20 20 20 5f rd6,. _
0570: 5f 76 61 77 6f 72 64 20 66 69 72 73 74 77 6f 72 _vaword firstwor
0580: 64 29 0a 7b 0a 20 20 5f 5f 76 61 5f 61 6c 69 73 d).{. __va_alis
0590: 74 20 6c 69 73 74 3b 0a 20 20 73 74 72 75 63 74 t list;. struct
05a0: 20 7b 20 64 6f 75 62 6c 65 20 66 61 72 67 31 2c { double farg1,
05b0: 20 66 61 72 67 32 2c 20 66 61 72 67 33 2c 20 66 farg2, farg3, f
05c0: 61 72 67 34 2c 20 66 61 72 67 35 2c 20 66 61 72 arg4, farg5, far
05d0: 67 36 3b 0a 20 20 20 20 20 20 20 20 20 20 20 6c g6;. l
05e0: 6f 6e 67 20 61 72 67 31 2c 20 61 72 67 32 2c 20 ong arg1, arg2,
05f0: 61 72 67 33 2c 20 61 72 67 34 2c 20 61 72 67 35 arg3, arg4, arg5
0600: 2c 20 61 72 67 36 3b 0a 20 20 20 20 20 20 20 20 , arg6;.
0610: 20 7d 0a 20 20 20 20 61 72 67 73 3b 0a 20 20 2f }. args;. /
0620: 2a 20 4d 41 47 49 43 20 41 4c 45 52 54 21 20 54 * MAGIC ALERT! T
0630: 68 69 73 20 69 73 20 74 68 65 20 6c 61 73 74 20 his is the last
0640: 73 74 72 75 63 74 20 6f 6e 20 74 68 65 20 73 74 struct on the st
0650: 61 63 6b 2c 20 73 6f 20 74 68 61 74 0a 20 20 20 ack, so that.
0660: 2a 20 26 61 72 67 73 20 2b 20 31 20 3d 3d 20 26 * &args + 1 == &
0670: 66 69 72 73 74 77 6f 72 64 2e 20 4c 6f 6f 6b 20 firstword. Look
0680: 61 74 20 74 68 65 20 61 73 73 65 6d 62 6c 79 20 at the assembly
0690: 63 6f 64 65 20 74 6f 20 63 6f 6e 76 69 6e 63 65 code to convince
06a0: 20 79 6f 75 72 73 65 6c 66 2e 0a 20 20 20 2a 2f yourself.. */
06b0: 0a 20 20 2f 2a 20 4d 6f 76 65 20 74 68 65 20 61 . /* Move the a
06c0: 72 67 75 6d 65 6e 74 73 20 70 61 73 73 65 64 20 rguments passed
06d0: 69 6e 20 72 65 67 69 73 74 65 72 73 20 74 6f 20 in registers to
06e0: 74 68 65 69 72 20 73 74 61 63 6b 20 6c 6f 63 61 their stack loca
06f0: 74 69 6f 6e 73 2e 20 2a 2f 0a 20 20 2f 2a 20 61 tions. */. /* a
0700: 72 67 73 2e 61 72 67 31 20 3d 20 2a 2f 20 28 26 rgs.arg1 = */ (&
0710: 66 69 72 73 74 77 6f 72 64 29 5b 2d 36 5d 20 3d firstword)[-6] =
0720: 20 77 6f 72 64 31 3b 0a 20 20 2f 2a 20 61 72 67 word1;. /* arg
0730: 73 2e 61 72 67 32 20 3d 20 2a 2f 20 28 26 66 69 s.arg2 = */ (&fi
0740: 72 73 74 77 6f 72 64 29 5b 2d 35 5d 20 3d 20 77 rstword)[-5] = w
0750: 6f 72 64 32 3b 0a 20 20 2f 2a 20 61 72 67 73 2e ord2;. /* args.
0760: 61 72 67 33 20 3d 20 2a 2f 20 28 26 66 69 72 73 arg3 = */ (&firs
0770: 74 77 6f 72 64 29 5b 2d 34 5d 20 3d 20 77 6f 72 tword)[-4] = wor
0780: 64 33 3b 0a 20 20 2f 2a 20 61 72 67 73 2e 61 72 d3;. /* args.ar
0790: 67 34 20 3d 20 2a 2f 20 28 26 66 69 72 73 74 77 g4 = */ (&firstw
07a0: 6f 72 64 29 5b 2d 33 5d 20 3d 20 77 6f 72 64 34 ord)[-3] = word4
07b0: 3b 0a 20 20 2f 2a 20 61 72 67 73 2e 61 72 67 35 ;. /* args.arg5
07c0: 20 3d 20 2a 2f 20 28 26 66 69 72 73 74 77 6f 72 = */ (&firstwor
07d0: 64 29 5b 2d 32 5d 20 3d 20 77 6f 72 64 35 3b 0a d)[-2] = word5;.
07e0: 20 20 2f 2a 20 61 72 67 73 2e 61 72 67 36 20 3d /* args.arg6 =
07f0: 20 2a 2f 20 28 26 66 69 72 73 74 77 6f 72 64 29 */ (&firstword)
0800: 5b 2d 31 5d 20 3d 20 77 6f 72 64 36 3b 0a 20 20 [-1] = word6;.
0810: 61 72 67 73 2e 66 61 72 67 31 20 3d 20 66 61 72 args.farg1 = far
0820: 67 31 3b 0a 20 20 61 72 67 73 2e 66 61 72 67 32 g1;. args.farg2
0830: 20 3d 20 66 61 72 67 32 3b 0a 20 20 61 72 67 73 = farg2;. args
0840: 2e 66 61 72 67 33 20 3d 20 66 61 72 67 33 3b 0a .farg3 = farg3;.
0850: 20 20 61 72 67 73 2e 66 61 72 67 34 20 3d 20 66 args.farg4 = f
0860: 61 72 67 34 3b 0a 20 20 61 72 67 73 2e 66 61 72 arg4;. args.far
0870: 67 35 20 3d 20 66 61 72 67 35 3b 0a 20 20 61 72 g5 = farg5;. ar
0880: 67 73 2e 66 61 72 67 36 20 3d 20 66 61 72 67 36 gs.farg6 = farg6
0890: 3b 0a 20 20 2f 2a 20 50 72 65 70 61 72 65 20 74 ;. /* Prepare t
08a0: 68 65 20 76 61 5f 61 6c 69 73 74 2e 20 2a 2f 0a he va_alist. */.
08b0: 20 20 6c 69 73 74 2e 66 6c 61 67 73 20 3d 20 30 list.flags = 0
08c0: 3b 0a 20 20 6c 69 73 74 2e 61 70 74 72 20 3d 20 ;. list.aptr =
08d0: 28 6c 6f 6e 67 29 28 26 66 69 72 73 74 77 6f 72 (long)(&firstwor
08e0: 64 20 2d 20 36 29 3b 0a 20 20 6c 69 73 74 2e 72 d - 6);. list.r
08f0: 61 64 64 72 20 3d 20 28 76 6f 69 64 2a 29 30 3b addr = (void*)0;
0900: 0a 20 20 6c 69 73 74 2e 72 74 79 70 65 20 3d 20 . list.rtype =
0910: 5f 5f 56 41 76 6f 69 64 3b 0a 20 20 6c 69 73 74 __VAvoid;. list
0920: 2e 6d 65 6d 61 72 67 70 74 72 20 3d 20 28 6c 6f .memargptr = (lo
0930: 6e 67 29 26 66 69 72 73 74 77 6f 72 64 3b 0a 20 ng)&firstword;.
0940: 20 2f 2a 20 43 61 6c 6c 20 76 61 63 61 6c 6c 5f /* Call vacall_
0950: 66 75 6e 63 74 69 6f 6e 2e 20 54 68 65 20 6d 61 function. The ma
0960: 63 72 6f 73 20 64 6f 20 61 6c 6c 20 74 68 65 20 cros do all the
0970: 72 65 73 74 2e 20 2a 2f 0a 23 69 66 6e 64 65 66 rest. */.#ifndef
0980: 20 52 45 45 4e 54 52 41 4e 54 0a 20 20 28 2a 76 REENTRANT. (*v
0990: 61 63 61 6c 6c 5f 66 75 6e 63 74 69 6f 6e 29 20 acall_function)
09a0: 28 26 6c 69 73 74 29 3b 0a 23 65 6c 73 65 20 2f (&list);.#else /
09b0: 2a 20 52 45 45 4e 54 52 41 4e 54 20 2a 2f 0a 20 * REENTRANT */.
09c0: 20 28 2a 65 6e 76 2d 3e 76 61 63 61 6c 6c 5f 66 (*env->vacall_f
09d0: 75 6e 63 74 69 6f 6e 29 20 28 65 6e 76 2d 3e 61 unction) (env->a
09e0: 72 67 2c 26 6c 69 73 74 29 3b 0a 23 65 6e 64 69 rg,&list);.#endi
09f0: 66 0a 20 20 2f 2a 20 50 75 74 20 72 65 74 75 72 f. /* Put retur
0a00: 6e 20 76 61 6c 75 65 20 69 6e 74 6f 20 70 72 6f n value into pro
0a10: 70 65 72 20 72 65 67 69 73 74 65 72 2e 20 2a 2f per register. */
0a20: 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 . if (list.rtyp
0a30: 65 20 3d 3d 20 5f 5f 56 41 76 6f 69 64 29 20 7b e == __VAvoid) {
0a40: 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 . } else. if (
0a50: 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f list.rtype == __
0a60: 56 41 63 68 61 72 29 20 7b 0a 20 20 20 20 69 72 VAchar) {. ir
0a70: 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 63 et = list.tmp._c
0a80: 68 61 72 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 har;. } else.
0a90: 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d if (list.rtype =
0aa0: 3d 20 5f 5f 56 41 73 63 68 61 72 29 20 7b 0a 20 = __VAschar) {.
0ab0: 20 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 iret = list.t
0ac0: 6d 70 2e 5f 73 63 68 61 72 3b 0a 20 20 7d 20 65 mp._schar;. } e
0ad0: 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 lse. if (list.r
0ae0: 74 79 70 65 20 3d 3d 20 5f 5f 56 41 75 63 68 61 type == __VAucha
0af0: 72 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 r) {. iret =
0b00: 6c 69 73 74 2e 74 6d 70 2e 5f 75 63 68 61 72 3b list.tmp._uchar;
0b10: 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 . } else. if (
0b20: 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f list.rtype == __
0b30: 56 41 73 68 6f 72 74 29 20 7b 0a 20 20 20 20 69 VAshort) {. i
0b40: 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f ret = list.tmp._
0b50: 73 68 6f 72 74 3b 0a 20 20 7d 20 65 6c 73 65 0a short;. } else.
0b60: 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 if (list.rtype
0b70: 20 3d 3d 20 5f 5f 56 41 75 73 68 6f 72 74 29 20 == __VAushort)
0b80: 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 73 {. iret = lis
0b90: 74 2e 74 6d 70 2e 5f 75 73 68 6f 72 74 3b 0a 20 t.tmp._ushort;.
0ba0: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 } else. if (li
0bb0: 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 st.rtype == __VA
0bc0: 69 6e 74 29 20 7b 0a 20 20 20 20 69 72 65 74 20 int) {. iret
0bd0: 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 69 6e 74 3b = list.tmp._int;
0be0: 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 . } else. if (
0bf0: 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f list.rtype == __
0c00: 56 41 75 69 6e 74 29 20 7b 0a 20 20 20 20 69 72 VAuint) {. ir
0c10: 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 75 et = list.tmp._u
0c20: 69 6e 74 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 int;. } else.
0c30: 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d if (list.rtype =
0c40: 3d 20 5f 5f 56 41 6c 6f 6e 67 29 20 7b 0a 20 20 = __VAlong) {.
0c50: 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d iret = list.tm
0c60: 70 2e 5f 6c 6f 6e 67 3b 0a 20 20 7d 20 65 6c 73 p._long;. } els
0c70: 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 e. if (list.rty
0c80: 70 65 20 3d 3d 20 5f 5f 56 41 75 6c 6f 6e 67 29 pe == __VAulong)
0c90: 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 {. iret = li
0ca0: 73 74 2e 74 6d 70 2e 5f 75 6c 6f 6e 67 3b 0a 20 st.tmp._ulong;.
0cb0: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 } else. if (li
0cc0: 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 st.rtype == __VA
0cd0: 6c 6f 6e 67 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 longlong) {.
0ce0: 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e iret = list.tmp.
0cf0: 5f 6c 6f 6e 67 3b 0a 20 20 7d 20 65 6c 73 65 0a _long;. } else.
0d00: 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 if (list.rtype
0d10: 20 3d 3d 20 5f 5f 56 41 75 6c 6f 6e 67 6c 6f 6e == __VAulonglon
0d20: 67 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 g) {. iret =
0d30: 6c 69 73 74 2e 74 6d 70 2e 5f 75 6c 6f 6e 67 3b list.tmp._ulong;
0d40: 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 . } else. if (
0d50: 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f list.rtype == __
0d60: 56 41 66 6c 6f 61 74 29 20 7b 0a 20 20 20 20 66 VAfloat) {. f
0d70: 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f ret = list.tmp._
0d80: 66 6c 6f 61 74 3b 0a 20 20 7d 20 65 6c 73 65 0a float;. } else.
0d90: 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 if (list.rtype
0da0: 20 3d 3d 20 5f 5f 56 41 64 6f 75 62 6c 65 29 20 == __VAdouble)
0db0: 7b 0a 20 20 20 20 64 72 65 74 20 3d 20 6c 69 73 {. dret = lis
0dc0: 74 2e 74 6d 70 2e 5f 64 6f 75 62 6c 65 3b 0a 20 t.tmp._double;.
0dd0: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 } else. if (li
0de0: 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 st.rtype == __VA
0df0: 76 6f 69 64 70 29 20 7b 0a 20 20 20 20 69 72 65 voidp) {. ire
0e00: 74 20 3d 20 28 6c 6f 6e 67 29 6c 69 73 74 2e 74 t = (long)list.t
0e10: 6d 70 2e 5f 70 74 72 3b 0a 20 20 7d 20 65 6c 73 mp._ptr;. } els
0e20: 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 e. if (list.rty
0e30: 70 65 20 3d 3d 20 5f 5f 56 41 73 74 72 75 63 74 pe == __VAstruct
0e40: 29 20 7b 0a 20 20 20 20 69 66 20 28 6c 69 73 74 ) {. if (list
0e50: 2e 66 6c 61 67 73 20 26 20 5f 5f 56 41 5f 50 43 .flags & __VA_PC
0e60: 43 5f 53 54 52 55 43 54 5f 52 45 54 55 52 4e 29 C_STRUCT_RETURN)
0e70: 20 7b 0a 20 20 20 20 20 20 2f 2a 20 70 63 63 20 {. /* pcc
0e80: 73 74 72 75 63 74 20 72 65 74 75 72 6e 20 63 6f struct return co
0e90: 6e 76 65 6e 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 nvention */.
0ea0: 20 20 69 72 65 74 20 3d 20 28 6c 6f 6e 67 29 20 iret = (long)
0eb0: 6c 69 73 74 2e 72 61 64 64 72 3b 0a 20 20 20 20 list.raddr;.
0ec0: 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 2f } else {. /
0ed0: 2a 20 6e 6f 72 6d 61 6c 20 73 74 72 75 63 74 20 * normal struct
0ee0: 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 69 6f return conventio
0ef0: 6e 20 2a 2f 0a 20 20 20 20 20 20 69 66 20 28 6c n */. if (l
0f00: 69 73 74 2e 66 6c 61 67 73 20 26 20 5f 5f 56 41 ist.flags & __VA
0f10: 5f 52 45 47 49 53 54 45 52 5f 53 54 52 55 43 54 _REGISTER_STRUCT
0f20: 5f 52 45 54 55 52 4e 29 20 7b 0a 20 20 20 20 20 _RETURN) {.
0f30: 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a if (list.rsiz
0f40: 65 20 3d 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 e == sizeof(char
0f50: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 69 )) {. i
0f60: 72 65 74 20 3d 20 2a 28 75 6e 73 69 67 6e 65 64 ret = *(unsigned
0f70: 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 char *) list.ra
0f80: 64 64 72 3b 0a 20 20 20 20 20 20 20 20 7d 20 65 ddr;. } e
0f90: 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 28 lse. if (
0fa0: 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 73 69 list.rsize == si
0fb0: 7a 65 6f 66 28 73 68 6f 72 74 29 29 20 7b 0a 20 zeof(short)) {.
0fc0: 20 20 20 20 20 20 20 20 20 69 72 65 74 20 3d 20 iret =
0fd0: 2a 28 75 6e 73 69 67 6e 65 64 20 73 68 6f 72 74 *(unsigned short
0fe0: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 3b 0a *) list.raddr;.
0ff0: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 } else.
1000: 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e if (list.
1010: 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 rsize == sizeof(
1020: 69 6e 74 29 29 20 7b 0a 20 20 20 20 20 20 20 20 int)) {.
1030: 20 20 69 72 65 74 20 3d 20 2a 28 75 6e 73 69 67 iret = *(unsig
1040: 6e 65 64 20 69 6e 74 20 2a 29 20 6c 69 73 74 2e ned int *) list.
1050: 72 61 64 64 72 3b 0a 20 20 20 20 20 20 20 20 7d raddr;. }
1060: 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 69 66 else. if
1070: 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 (list.rsize ==
1080: 73 69 7a 65 6f 66 28 6c 6f 6e 67 29 29 20 7b 0a sizeof(long)) {.
1090: 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 3d iret =
10a0: 20 2a 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 *(unsigned long
10b0: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 3b 0a *) list.raddr;.
10c0: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 } else.
10d0: 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e if (list.
10e0: 72 73 69 7a 65 20 3d 3d 20 32 2a 73 69 7a 65 6f rsize == 2*sizeo
10f0: 66 28 5f 5f 76 61 77 6f 72 64 29 29 20 7b 0a 20 f(__vaword)) {.
1100: 20 20 20 20 20 20 20 20 20 69 72 65 74 20 20 3d iret =
1110: 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a 29 20 6c ((__vaword *) l
1120: 69 73 74 2e 72 61 64 64 72 29 5b 30 5d 3b 0a 20 ist.raddr)[0];.
1130: 20 20 20 20 20 20 20 20 20 69 72 65 74 32 20 3d iret2 =
1140: 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a 29 20 6c ((__vaword *) l
1150: 69 73 74 2e 72 61 64 64 72 29 5b 31 5d 3b 0a 20 ist.raddr)[1];.
1160: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d }. }
1170: 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a . }. }.}.