Artifact
2eb564fccd4675af07b33ab6a5d011f9cdf21a4d:
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 78 38 36 5f 36 34 20 43 50 on for x86_64 CP
0020: 55 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 43 6f 70 79 U */../*. * Copy
0030: 72 69 67 68 74 20 31 39 39 35 2d 32 30 30 34 20 right 1995-2004
0040: 42 72 75 6e 6f 20 48 61 69 62 6c 65 2c 20 3c 62 Bruno Haible, <b
0050: 72 75 6e 6f 40 63 6c 69 73 70 2e 6f 72 67 3e 0a runo@clisp.org>.
0060: 20 2a 0a 20 2a 20 54 68 69 73 20 69 73 20 66 72 *. * This is fr
0070: 65 65 20 73 6f 66 74 77 61 72 65 20 64 69 73 74 ee software dist
0080: 72 69 62 75 74 65 64 20 75 6e 64 65 72 20 74 68 ributed under th
0090: 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 e GNU General Pu
00a0: 62 6c 69 63 20 4c 69 63 65 6e 63 65 0a 20 2a 20 blic Licence. *
00b0: 64 65 73 63 72 69 62 65 64 20 69 6e 20 74 68 65 described in the
00c0: 20 66 69 6c 65 20 43 4f 50 59 49 4e 47 2e 20 43 file COPYING. C
00d0: 6f 6e 74 61 63 74 20 74 68 65 20 61 75 74 68 6f ontact the autho
00e0: 72 20 69 66 20 79 6f 75 20 64 6f 6e 27 74 20 68 r if you don't h
00f0: 61 76 65 20 74 68 69 73 0a 20 2a 20 6f 72 20 63 ave this. * or c
0100: 61 6e 27 74 20 6c 69 76 65 20 77 69 74 68 20 69 an't live with i
0110: 74 2e 20 54 68 65 72 65 20 69 73 20 41 42 53 4f t. There is ABSO
0120: 4c 55 54 45 4c 59 20 4e 4f 20 57 41 52 52 41 4e LUTELY NO WARRAN
0130: 54 59 2c 20 65 78 70 6c 69 63 69 74 20 6f 72 20 TY, explicit or
0140: 69 6d 70 6c 69 65 64 2c 0a 20 2a 20 6f 6e 20 74 implied,. * on t
0150: 68 69 73 20 73 6f 66 74 77 61 72 65 2e 0a 20 2a his software.. *
0160: 2f 0a 0a 23 69 66 6e 64 65 66 20 52 45 45 4e 54 /..#ifndef REENT
0170: 52 41 4e 54 0a 23 69 6e 63 6c 75 64 65 20 22 76 RANT.#include "v
0180: 61 63 61 6c 6c 2e 68 2e 69 6e 22 0a 23 65 6c 73 acall.h.in".#els
0190: 65 20 2f 2a 20 52 45 45 4e 54 52 41 4e 54 20 2a e /* REENTRANT *
01a0: 2f 0a 23 69 6e 63 6c 75 64 65 20 22 76 61 63 61 /.#include "vaca
01b0: 6c 6c 5f 72 2e 68 2e 69 6e 22 0a 23 65 6e 64 69 ll_r.h.in".#endi
01c0: 66 0a 0a 23 69 66 64 65 66 20 52 45 45 4e 54 52 f..#ifdef REENTR
01d0: 41 4e 54 0a 23 64 65 66 69 6e 65 20 5f 5f 76 61 ANT.#define __va
01e0: 63 61 6c 6c 20 5f 5f 76 61 63 61 6c 6c 5f 72 0a call __vacall_r.
01f0: 72 65 67 69 73 74 65 72 20 73 74 72 75 63 74 20 register struct
0200: 7b 20 76 6f 69 64 20 28 2a 76 61 63 61 6c 6c 5f { void (*vacall_
0210: 66 75 6e 63 74 69 6f 6e 29 20 28 76 6f 69 64 2a function) (void*
0220: 2c 76 61 5f 61 6c 69 73 74 29 3b 20 76 6f 69 64 ,va_alist); void
0230: 2a 20 61 72 67 3b 20 7d 0a 20 20 20 20 20 20 20 * arg; }.
0240: 20 20 2a 09 09 65 6e 76 09 5f 5f 61 73 6d 5f 5f *..env.__asm__
0250: 28 22 72 31 30 22 29 3b 0a 23 65 6e 64 69 66 0a ("r10");.#endif.
0260: 0a 72 65 67 69 73 74 65 72 20 5f 5f 76 61 77 6f .register __vawo
0270: 72 64 20 69 61 72 67 31 20 5f 5f 61 73 6d 5f 5f rd iarg1 __asm__
0280: 28 22 72 64 69 22 29 3b 0a 72 65 67 69 73 74 65 ("rdi");.registe
0290: 72 20 5f 5f 76 61 77 6f 72 64 20 69 61 72 67 32 r __vaword iarg2
02a0: 20 5f 5f 61 73 6d 5f 5f 28 22 72 73 69 22 29 3b __asm__("rsi");
02b0: 0a 72 65 67 69 73 74 65 72 20 5f 5f 76 61 77 6f .register __vawo
02c0: 72 64 20 69 61 72 67 33 20 5f 5f 61 73 6d 5f 5f rd iarg3 __asm__
02d0: 28 22 72 64 78 22 29 3b 0a 72 65 67 69 73 74 65 ("rdx");.registe
02e0: 72 20 5f 5f 76 61 77 6f 72 64 20 69 61 72 67 34 r __vaword iarg4
02f0: 20 5f 5f 61 73 6d 5f 5f 28 22 72 63 78 22 29 3b __asm__("rcx");
0300: 0a 72 65 67 69 73 74 65 72 20 5f 5f 76 61 77 6f .register __vawo
0310: 72 64 20 69 61 72 67 35 20 5f 5f 61 73 6d 5f 5f rd iarg5 __asm__
0320: 28 22 72 38 22 29 3b 0a 72 65 67 69 73 74 65 72 ("r8");.register
0330: 20 5f 5f 76 61 77 6f 72 64 20 69 61 72 67 36 20 __vaword iarg6
0340: 5f 5f 61 73 6d 5f 5f 28 22 72 39 22 29 3b 0a 0a __asm__("r9");..
0350: 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 20 register double
0360: 66 61 72 67 31 20 5f 5f 61 73 6d 5f 5f 28 22 78 farg1 __asm__("x
0370: 6d 6d 30 22 29 3b 0a 72 65 67 69 73 74 65 72 20 mm0");.register
0380: 64 6f 75 62 6c 65 20 66 61 72 67 32 20 5f 5f 61 double farg2 __a
0390: 73 6d 5f 5f 28 22 78 6d 6d 31 22 29 3b 0a 72 65 sm__("xmm1");.re
03a0: 67 69 73 74 65 72 20 64 6f 75 62 6c 65 20 66 61 gister double fa
03b0: 72 67 33 20 5f 5f 61 73 6d 5f 5f 28 22 78 6d 6d rg3 __asm__("xmm
03c0: 32 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 2");.register do
03d0: 75 62 6c 65 20 66 61 72 67 34 20 5f 5f 61 73 6d uble farg4 __asm
03e0: 5f 5f 28 22 78 6d 6d 33 22 29 3b 0a 72 65 67 69 __("xmm3");.regi
03f0: 73 74 65 72 20 64 6f 75 62 6c 65 20 66 61 72 67 ster double farg
0400: 35 20 5f 5f 61 73 6d 5f 5f 28 22 78 6d 6d 34 22 5 __asm__("xmm4"
0410: 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 );.register doub
0420: 6c 65 20 66 61 72 67 36 20 5f 5f 61 73 6d 5f 5f le farg6 __asm__
0430: 28 22 78 6d 6d 35 22 29 3b 0a 72 65 67 69 73 74 ("xmm5");.regist
0440: 65 72 20 64 6f 75 62 6c 65 20 66 61 72 67 37 20 er double farg7
0450: 5f 5f 61 73 6d 5f 5f 28 22 78 6d 6d 36 22 29 3b __asm__("xmm6");
0460: 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 .register double
0470: 20 66 61 72 67 38 20 5f 5f 61 73 6d 5f 5f 28 22 farg8 __asm__("
0480: 78 6d 6d 37 22 29 3b 0a 0a 72 65 67 69 73 74 65 xmm7");..registe
0490: 72 20 5f 5f 76 61 77 6f 72 64 20 69 72 65 74 20 r __vaword iret
04a0: 20 5f 5f 61 73 6d 5f 5f 28 22 72 61 78 22 29 3b __asm__("rax");
04b0: 0a 72 65 67 69 73 74 65 72 20 5f 5f 76 61 77 6f .register __vawo
04c0: 72 64 20 69 72 65 74 32 20 5f 5f 61 73 6d 5f 5f rd iret2 __asm__
04d0: 28 22 72 64 78 22 29 3b 0a 72 65 67 69 73 74 65 ("rdx");.registe
04e0: 72 20 66 6c 6f 61 74 20 20 66 72 65 74 20 5f 5f r float fret __
04f0: 61 73 6d 5f 5f 28 22 78 6d 6d 30 22 29 3b 0a 72 asm__("xmm0");.r
0500: 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 20 64 egister double d
0510: 72 65 74 20 5f 5f 61 73 6d 5f 5f 28 22 78 6d 6d ret __asm__("xmm
0520: 30 22 29 3b 0a 0a 2f 2a 0a 20 2a 20 54 65 6c 6c 0");../*. * Tell
0530: 20 67 63 63 20 74 6f 20 6e 6f 74 20 75 73 65 20 gcc to not use
0540: 74 68 65 20 63 61 6c 6c 2d 73 61 76 65 64 20 72 the call-saved r
0550: 65 67 69 73 74 65 72 73 20 25 72 62 78 2c 20 25 egisters %rbx, %
0560: 72 62 70 2e 0a 20 2a 20 54 68 69 73 20 65 6e 73 rbp.. * This ens
0570: 75 72 65 73 20 74 68 61 74 20 74 68 65 20 72 65 ures that the re
0580: 74 75 72 6e 20 73 65 71 75 65 6e 63 65 20 64 6f turn sequence do
0590: 65 73 20 6e 6f 74 20 6e 65 65 64 20 74 6f 20 72 es not need to r
05a0: 65 73 74 6f 72 65 20 72 65 67 69 73 74 65 72 73 estore registers
05b0: 0a 20 2a 20 66 72 6f 6d 20 74 68 65 20 73 74 61 . * from the sta
05c0: 63 6b 2e 0a 20 2a 2f 0a 72 65 67 69 73 74 65 72 ck.. */.register
05d0: 20 76 6f 69 64 2a 09 64 75 6d 6d 79 31 09 5f 5f void*.dummy1.__
05e0: 61 73 6d 5f 5f 28 22 25 72 62 78 22 29 3b 0a 72 asm__("%rbx");.r
05f0: 65 67 69 73 74 65 72 20 76 6f 69 64 2a 09 64 75 egister void*.du
0600: 6d 6d 79 32 09 5f 5f 61 73 6d 5f 5f 28 22 25 72 mmy2.__asm__("%r
0610: 62 70 22 29 3b 0a 0a 76 6f 69 64 20 2f 2a 20 74 bp");..void /* t
0620: 68 65 20 72 65 74 75 72 6e 20 74 79 70 65 20 69 he return type i
0630: 73 20 76 61 72 69 61 62 6c 65 2c 20 6e 6f 74 20 s variable, not
0640: 76 6f 69 64 21 20 2a 2f 0a 5f 5f 76 61 63 61 6c void! */.__vacal
0650: 6c 20 28 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 l (__vaword word
0660: 31 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 1, __vaword word
0670: 32 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 2, __vaword word
0680: 33 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 3, __vaword word
0690: 34 2c 0a 20 20 20 20 20 20 20 20 20 20 5f 5f 76 4,. __v
06a0: 61 77 6f 72 64 20 77 6f 72 64 35 2c 20 5f 5f 76 aword word5, __v
06b0: 61 77 6f 72 64 20 77 6f 72 64 36 2c 0a 20 20 20 aword word6,.
06c0: 20 20 20 20 20 20 20 5f 5f 76 61 77 6f 72 64 20 __vaword
06d0: 66 69 72 73 74 77 6f 72 64 29 0a 7b 0a 20 20 5f firstword).{. _
06e0: 5f 76 61 5f 61 6c 69 73 74 20 6c 69 73 74 3b 0a _va_alist list;.
06f0: 20 20 2f 2a 20 4d 6f 76 65 20 74 68 65 20 61 72 /* Move the ar
0700: 67 75 6d 65 6e 74 73 20 70 61 73 73 65 64 20 69 guments passed i
0710: 6e 20 72 65 67 69 73 74 65 72 73 20 74 6f 20 74 n registers to t
0720: 65 6d 70 20 73 74 6f 72 61 67 65 2e 20 2a 2f 0a emp storage. */.
0730: 20 20 6c 69 73 74 2e 69 61 72 67 5b 30 5d 20 3d list.iarg[0] =
0740: 20 69 61 72 67 31 3b 0a 20 20 6c 69 73 74 2e 69 iarg1;. list.i
0750: 61 72 67 5b 31 5d 20 3d 20 69 61 72 67 32 3b 0a arg[1] = iarg2;.
0760: 20 20 6c 69 73 74 2e 69 61 72 67 5b 32 5d 20 3d list.iarg[2] =
0770: 20 69 61 72 67 33 3b 0a 20 20 6c 69 73 74 2e 69 iarg3;. list.i
0780: 61 72 67 5b 33 5d 20 3d 20 69 61 72 67 34 3b 0a arg[3] = iarg4;.
0790: 20 20 6c 69 73 74 2e 69 61 72 67 5b 34 5d 20 3d list.iarg[4] =
07a0: 20 69 61 72 67 35 3b 0a 20 20 6c 69 73 74 2e 69 iarg5;. list.i
07b0: 61 72 67 5b 35 5d 20 3d 20 69 61 72 67 36 3b 0a arg[5] = iarg6;.
07c0: 20 20 6c 69 73 74 2e 66 61 72 67 5b 30 5d 20 3d list.farg[0] =
07d0: 20 66 61 72 67 31 3b 0a 20 20 6c 69 73 74 2e 66 farg1;. list.f
07e0: 61 72 67 5b 31 5d 20 3d 20 66 61 72 67 32 3b 0a arg[1] = farg2;.
07f0: 20 20 6c 69 73 74 2e 66 61 72 67 5b 32 5d 20 3d list.farg[2] =
0800: 20 66 61 72 67 33 3b 0a 20 20 6c 69 73 74 2e 66 farg3;. list.f
0810: 61 72 67 5b 33 5d 20 3d 20 66 61 72 67 34 3b 0a arg[3] = farg4;.
0820: 20 20 6c 69 73 74 2e 66 61 72 67 5b 34 5d 20 3d list.farg[4] =
0830: 20 66 61 72 67 35 3b 0a 20 20 6c 69 73 74 2e 66 farg5;. list.f
0840: 61 72 67 5b 35 5d 20 3d 20 66 61 72 67 36 3b 0a arg[5] = farg6;.
0850: 20 20 6c 69 73 74 2e 66 61 72 67 5b 36 5d 20 3d list.farg[6] =
0860: 20 66 61 72 67 37 3b 0a 20 20 6c 69 73 74 2e 66 farg7;. list.f
0870: 61 72 67 5b 37 5d 20 3d 20 66 61 72 67 38 3b 0a arg[7] = farg8;.
0880: 20 20 2f 2a 20 50 72 65 70 61 72 65 20 74 68 65 /* Prepare the
0890: 20 76 61 5f 61 6c 69 73 74 2e 20 2a 2f 0a 20 20 va_alist. */.
08a0: 6c 69 73 74 2e 66 6c 61 67 73 20 3d 20 30 3b 0a list.flags = 0;.
08b0: 20 20 6c 69 73 74 2e 61 70 74 72 20 3d 20 28 6c list.aptr = (l
08c0: 6f 6e 67 29 26 66 69 72 73 74 77 6f 72 64 3b 0a ong)&firstword;.
08d0: 20 20 6c 69 73 74 2e 72 61 64 64 72 20 3d 20 28 list.raddr = (
08e0: 76 6f 69 64 2a 29 30 3b 0a 20 20 6c 69 73 74 2e void*)0;. list.
08f0: 72 74 79 70 65 20 3d 20 5f 5f 56 41 76 6f 69 64 rtype = __VAvoid
0900: 3b 0a 20 20 6c 69 73 74 2e 6d 65 6d 69 61 72 67 ;. list.memiarg
0910: 70 74 72 20 3d 20 26 6c 69 73 74 2e 69 61 72 67 ptr = &list.iarg
0920: 5b 30 5d 3b 0a 20 20 6c 69 73 74 2e 6d 65 6d 66 [0];. list.memf
0930: 61 72 67 70 74 72 20 3d 20 26 6c 69 73 74 2e 66 argptr = &list.f
0940: 61 72 67 5b 30 5d 3b 0a 20 20 2f 2a 20 43 61 6c arg[0];. /* Cal
0950: 6c 20 76 61 63 61 6c 6c 5f 66 75 6e 63 74 69 6f l vacall_functio
0960: 6e 2e 20 54 68 65 20 6d 61 63 72 6f 73 20 64 6f n. The macros do
0970: 20 61 6c 6c 20 74 68 65 20 72 65 73 74 2e 20 2a all the rest. *
0980: 2f 0a 23 69 66 6e 64 65 66 20 52 45 45 4e 54 52 /.#ifndef REENTR
0990: 41 4e 54 0a 20 20 28 2a 76 61 63 61 6c 6c 5f 66 ANT. (*vacall_f
09a0: 75 6e 63 74 69 6f 6e 29 20 28 26 6c 69 73 74 29 unction) (&list)
09b0: 3b 0a 23 65 6c 73 65 20 2f 2a 20 52 45 45 4e 54 ;.#else /* REENT
09c0: 52 41 4e 54 20 2a 2f 0a 20 20 28 2a 65 6e 76 2d RANT */. (*env-
09d0: 3e 76 61 63 61 6c 6c 5f 66 75 6e 63 74 69 6f 6e >vacall_function
09e0: 29 20 28 65 6e 76 2d 3e 61 72 67 2c 26 6c 69 73 ) (env->arg,&lis
09f0: 74 29 3b 0a 23 65 6e 64 69 66 0a 20 20 2f 2a 20 t);.#endif. /*
0a00: 50 75 74 20 72 65 74 75 72 6e 20 76 61 6c 75 65 Put return value
0a10: 20 69 6e 74 6f 20 70 72 6f 70 65 72 20 72 65 67 into proper reg
0a20: 69 73 74 65 72 2e 20 2a 2f 0a 20 20 69 66 20 28 ister. */. if (
0a30: 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f list.rtype == __
0a40: 56 41 76 6f 69 64 29 20 7b 0a 20 20 7d 20 65 6c VAvoid) {. } el
0a50: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
0a60: 79 70 65 20 3d 3d 20 5f 5f 56 41 63 68 61 72 29 ype == __VAchar)
0a70: 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 {. iret = li
0a80: 73 74 2e 74 6d 70 2e 5f 63 68 61 72 3b 0a 20 20 st.tmp._char;.
0a90: 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 } else. if (lis
0aa0: 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 73 t.rtype == __VAs
0ab0: 63 68 61 72 29 20 7b 0a 20 20 20 20 69 72 65 74 char) {. iret
0ac0: 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 73 63 68 = list.tmp._sch
0ad0: 61 72 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 ar;. } else. i
0ae0: 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d f (list.rtype ==
0af0: 20 5f 5f 56 41 75 63 68 61 72 29 20 7b 0a 20 20 __VAuchar) {.
0b00: 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d iret = list.tm
0b10: 70 2e 5f 75 63 68 61 72 3b 0a 20 20 7d 20 65 6c p._uchar;. } el
0b20: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
0b30: 79 70 65 20 3d 3d 20 5f 5f 56 41 73 68 6f 72 74 ype == __VAshort
0b40: 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c ) {. iret = l
0b50: 69 73 74 2e 74 6d 70 2e 5f 73 68 6f 72 74 3b 0a ist.tmp._short;.
0b60: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
0b70: 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 ist.rtype == __V
0b80: 41 75 73 68 6f 72 74 29 20 7b 0a 20 20 20 20 69 Aushort) {. i
0b90: 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f ret = list.tmp._
0ba0: 75 73 68 6f 72 74 3b 0a 20 20 7d 20 65 6c 73 65 ushort;. } else
0bb0: 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 . if (list.rtyp
0bc0: 65 20 3d 3d 20 5f 5f 56 41 69 6e 74 29 20 7b 0a e == __VAint) {.
0bd0: 20 20 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e iret = list.
0be0: 74 6d 70 2e 5f 69 6e 74 3b 0a 20 20 7d 20 65 6c tmp._int;. } el
0bf0: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
0c00: 79 70 65 20 3d 3d 20 5f 5f 56 41 75 69 6e 74 29 ype == __VAuint)
0c10: 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 {. iret = li
0c20: 73 74 2e 74 6d 70 2e 5f 75 69 6e 74 3b 0a 20 20 st.tmp._uint;.
0c30: 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 } else. if (lis
0c40: 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 6c t.rtype == __VAl
0c50: 6f 6e 67 29 20 7b 0a 20 20 20 20 69 72 65 74 20 ong) {. iret
0c60: 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 6c 6f 6e 67 = list.tmp._long
0c70: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
0c80: 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f (list.rtype == _
0c90: 5f 56 41 75 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 _VAulong) {.
0ca0: 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e iret = list.tmp.
0cb0: 5f 75 6c 6f 6e 67 3b 0a 20 20 7d 20 65 6c 73 65 _ulong;. } else
0cc0: 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 . if (list.rtyp
0cd0: 65 20 3d 3d 20 5f 5f 56 41 6c 6f 6e 67 6c 6f 6e e == __VAlonglon
0ce0: 67 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 g) {. iret =
0cf0: 6c 69 73 74 2e 74 6d 70 2e 5f 6c 6f 6e 67 3b 0a list.tmp._long;.
0d00: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
0d10: 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 ist.rtype == __V
0d20: 41 75 6c 6f 6e 67 6c 6f 6e 67 29 20 7b 0a 20 20 Aulonglong) {.
0d30: 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d iret = list.tm
0d40: 70 2e 5f 75 6c 6f 6e 67 3b 0a 20 20 7d 20 65 6c p._ulong;. } el
0d50: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
0d60: 79 70 65 20 3d 3d 20 5f 5f 56 41 66 6c 6f 61 74 ype == __VAfloat
0d70: 29 20 7b 0a 20 20 20 20 66 72 65 74 20 3d 20 6c ) {. fret = l
0d80: 69 73 74 2e 74 6d 70 2e 5f 66 6c 6f 61 74 3b 0a ist.tmp._float;.
0d90: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
0da0: 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 ist.rtype == __V
0db0: 41 64 6f 75 62 6c 65 29 20 7b 0a 20 20 20 20 64 Adouble) {. d
0dc0: 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f ret = list.tmp._
0dd0: 64 6f 75 62 6c 65 3b 0a 20 20 7d 20 65 6c 73 65 double;. } else
0de0: 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 . if (list.rtyp
0df0: 65 20 3d 3d 20 5f 5f 56 41 76 6f 69 64 70 29 20 e == __VAvoidp)
0e00: 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 28 6c 6f {. iret = (lo
0e10: 6e 67 29 6c 69 73 74 2e 74 6d 70 2e 5f 70 74 72 ng)list.tmp._ptr
0e20: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
0e30: 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f (list.rtype == _
0e40: 5f 56 41 73 74 72 75 63 74 29 20 7b 0a 20 20 20 _VAstruct) {.
0e50: 20 69 66 20 28 6c 69 73 74 2e 66 6c 61 67 73 20 if (list.flags
0e60: 26 20 5f 5f 56 41 5f 50 43 43 5f 53 54 52 55 43 & __VA_PCC_STRUC
0e70: 54 5f 52 45 54 55 52 4e 29 20 7b 0a 20 20 20 20 T_RETURN) {.
0e80: 20 20 2f 2a 20 70 63 63 20 73 74 72 75 63 74 20 /* pcc struct
0e90: 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 69 6f return conventio
0ea0: 6e 20 2a 2f 0a 20 20 20 20 20 20 69 72 65 74 20 n */. iret
0eb0: 3d 20 28 6c 6f 6e 67 29 20 6c 69 73 74 2e 72 61 = (long) list.ra
0ec0: 64 64 72 3b 0a 20 20 20 20 7d 20 65 6c 73 65 20 ddr;. } else
0ed0: 7b 0a 20 20 20 20 20 20 2f 2a 20 6e 6f 72 6d 61 {. /* norma
0ee0: 6c 20 73 74 72 75 63 74 20 72 65 74 75 72 6e 20 l struct return
0ef0: 63 6f 6e 76 65 6e 74 69 6f 6e 20 2a 2f 0a 20 20 convention */.
0f00: 20 20 20 20 69 66 20 28 6c 69 73 74 2e 66 6c 61 if (list.fla
0f10: 67 73 20 26 20 5f 5f 56 41 5f 52 45 47 49 53 54 gs & __VA_REGIST
0f20: 45 52 5f 53 54 52 55 43 54 5f 52 45 54 55 52 4e ER_STRUCT_RETURN
0f30: 29 20 7b 0a 20 20 20 20 20 20 20 20 2f 2a 20 52 ) {. /* R
0f40: 65 74 75 72 6e 20 73 74 72 75 63 74 73 20 6f 66 eturn structs of
0f50: 20 73 69 7a 65 20 3c 3d 20 31 36 20 69 6e 20 72 size <= 16 in r
0f60: 65 67 69 73 74 65 72 73 2e 20 2a 2f 0a 20 20 20 egisters. */.
0f70: 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 if (list.rs
0f80: 69 7a 65 20 3e 20 30 20 26 26 20 6c 69 73 74 2e ize > 0 && list.
0f90: 72 73 69 7a 65 20 3c 3d 20 31 36 29 20 7b 0a 20 rsize <= 16) {.
0fa0: 20 20 20 20 20 20 20 20 20 69 72 65 74 20 3d 20 iret =
0fb0: 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 (__vaword)((unsi
0fc0: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
0fd0: 74 2e 72 61 64 64 72 29 5b 30 5d 3b 0a 20 20 20 t.raddr)[0];.
0fe0: 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e if (list.
0ff0: 72 73 69 7a 65 20 3e 3d 20 32 29 0a 20 20 20 20 rsize >= 2).
1000: 20 20 20 20 20 20 20 20 69 72 65 74 20 7c 3d 20 iret |=
1010: 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 (__vaword)((unsi
1020: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
1030: 74 2e 72 61 64 64 72 29 5b 31 5d 20 3c 3c 20 38 t.raddr)[1] << 8
1040: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 28 ;. if (
1050: 6c 69 73 74 2e 72 73 69 7a 65 20 3e 3d 20 33 29 list.rsize >= 3)
1060: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 72 65 . ire
1070: 74 20 7c 3d 20 28 5f 5f 76 61 77 6f 72 64 29 28 t |= (__vaword)(
1080: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
1090: 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 32 5d ) list.raddr)[2]
10a0: 20 3c 3c 20 31 36 3b 0a 20 20 20 20 20 20 20 20 << 16;.
10b0: 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 if (list.rsize
10c0: 20 3e 3d 20 34 29 0a 20 20 20 20 20 20 20 20 20 >= 4).
10d0: 20 20 20 69 72 65 74 20 7c 3d 20 28 5f 5f 76 61 iret |= (__va
10e0: 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 word)((unsigned
10f0: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
1100: 64 72 29 5b 33 5d 20 3c 3c 20 32 34 3b 0a 20 20 dr)[3] << 24;.
1110: 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 if (list
1120: 2e 72 73 69 7a 65 20 3e 3d 20 35 29 0a 20 20 20 .rsize >= 5).
1130: 20 20 20 20 20 20 20 20 20 69 72 65 74 20 7c 3d iret |=
1140: 20 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 (__vaword)((uns
1150: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 igned char *) li
1160: 73 74 2e 72 61 64 64 72 29 5b 34 5d 20 3c 3c 20 st.raddr)[4] <<
1170: 33 32 3b 0a 20 20 20 20 20 20 20 20 20 20 69 66 32;. if
1180: 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3e 3d 20 (list.rsize >=
1190: 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 6). i
11a0: 72 65 74 20 7c 3d 20 28 5f 5f 76 61 77 6f 72 64 ret |= (__vaword
11b0: 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 )((unsigned char
11c0: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b *) list.raddr)[
11d0: 35 5d 20 3c 3c 20 34 30 3b 0a 20 20 20 20 20 20 5] << 40;.
11e0: 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 if (list.rsi
11f0: 7a 65 20 3e 3d 20 37 29 0a 20 20 20 20 20 20 20 ze >= 7).
1200: 20 20 20 20 20 69 72 65 74 20 7c 3d 20 28 5f 5f iret |= (__
1210: 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 vaword)((unsigne
1220: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
1230: 61 64 64 72 29 5b 36 5d 20 3c 3c 20 34 38 3b 0a addr)[6] << 48;.
1240: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 if (li
1250: 73 74 2e 72 73 69 7a 65 20 3e 3d 20 38 29 0a 20 st.rsize >= 8).
1260: 20 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 iret
1270: 7c 3d 20 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 |= (__vaword)((u
1280: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
1290: 6c 69 73 74 2e 72 61 64 64 72 29 5b 37 5d 20 3c list.raddr)[7] <
12a0: 3c 20 35 36 3b 0a 20 20 20 20 20 20 20 20 20 20 < 56;.
12b0: 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3e if (list.rsize >
12c0: 3d 20 39 29 20 7b 0a 20 20 20 20 20 20 20 20 20 = 9) {.
12d0: 20 20 20 69 72 65 74 32 20 3d 20 28 5f 5f 76 61 iret2 = (__va
12e0: 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 word)((unsigned
12f0: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
1300: 64 72 29 5b 38 5d 3b 0a 20 20 20 20 20 20 20 20 dr)[8];.
1310: 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 if (list.rsi
1320: 7a 65 20 3e 3d 20 31 30 29 0a 20 20 20 20 20 20 ze >= 10).
1330: 20 20 20 20 20 20 20 20 69 72 65 74 32 20 7c 3d iret2 |=
1340: 20 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 (__vaword)((uns
1350: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 igned char *) li
1360: 73 74 2e 72 61 64 64 72 29 5b 39 5d 20 3c 3c 20 st.raddr)[9] <<
1370: 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 8;. i
1380: 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3e 3d f (list.rsize >=
1390: 20 31 31 29 0a 20 20 20 20 20 20 20 20 20 20 20 11).
13a0: 20 20 20 69 72 65 74 32 20 7c 3d 20 28 5f 5f 76 iret2 |= (__v
13b0: 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 64 aword)((unsigned
13c0: 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 char *) list.ra
13d0: 64 64 72 29 5b 31 30 5d 20 3c 3c 20 31 36 3b 0a ddr)[10] << 16;.
13e0: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 if (
13f0: 6c 69 73 74 2e 72 73 69 7a 65 20 3e 3d 20 31 32 list.rsize >= 12
1400: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
1410: 69 72 65 74 32 20 7c 3d 20 28 5f 5f 76 61 77 6f iret2 |= (__vawo
1420: 72 64 29 28 28 75 6e 73 69 67 6e 65 64 20 63 68 rd)((unsigned ch
1430: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
1440: 29 5b 31 31 5d 20 3c 3c 20 32 34 3b 0a 20 20 20 )[11] << 24;.
1450: 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 if (lis
1460: 74 2e 72 73 69 7a 65 20 3e 3d 20 31 33 29 0a 20 t.rsize >= 13).
1470: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 72 65 ire
1480: 74 32 20 7c 3d 20 28 5f 5f 76 61 77 6f 72 64 29 t2 |= (__vaword)
1490: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
14a0: 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 *) list.raddr)[1
14b0: 32 5d 20 3c 3c 20 33 32 3b 0a 20 20 20 20 20 20 2] << 32;.
14c0: 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 if (list.r
14d0: 73 69 7a 65 20 3e 3d 20 31 34 29 0a 20 20 20 20 size >= 14).
14e0: 20 20 20 20 20 20 20 20 20 20 69 72 65 74 32 20 iret2
14f0: 7c 3d 20 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 |= (__vaword)((u
1500: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
1510: 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 33 5d 20 list.raddr)[13]
1520: 3c 3c 20 34 30 3b 0a 20 20 20 20 20 20 20 20 20 << 40;.
1530: 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a if (list.rsiz
1540: 65 20 3e 3d 20 31 35 29 0a 20 20 20 20 20 20 20 e >= 15).
1550: 20 20 20 20 20 20 20 69 72 65 74 32 20 7c 3d 20 iret2 |=
1560: 28 5f 5f 76 61 77 6f 72 64 29 28 28 75 6e 73 69 (__vaword)((unsi
1570: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
1580: 74 2e 72 61 64 64 72 29 5b 31 34 5d 20 3c 3c 20 t.raddr)[14] <<
1590: 34 38 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 48;.
15a0: 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3e if (list.rsize >
15b0: 3d 20 31 36 29 0a 20 20 20 20 20 20 20 20 20 20 = 16).
15c0: 20 20 20 20 69 72 65 74 32 20 7c 3d 20 28 5f 5f iret2 |= (__
15d0: 76 61 77 6f 72 64 29 28 28 75 6e 73 69 67 6e 65 vaword)((unsigne
15e0: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
15f0: 61 64 64 72 29 5b 31 35 5d 20 3c 3c 20 35 36 3b addr)[15] << 56;
1600: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 . }.
1610: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 }. }.
1620: 20 20 20 7d 0a 20 20 7d 0a 7d 0a }. }.}.