Artifact
005d476e09b200783eb2a11474fe5336b99fc2e2:
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 70 6f 77 65 72 70 63 20 43 on for powerpc C
0020: 50 55 20 2a 2f 0a 0a 2f 2a 0a 20 2a 20 43 6f 70 PU */../*. * Cop
0030: 79 72 69 67 68 74 20 31 39 39 35 2d 32 30 30 36 yright 1995-2006
0040: 20 42 72 75 6e 6f 20 48 61 69 62 6c 65 2c 20 3c Bruno Haible, <
0050: 62 72 75 6e 6f 40 63 6c 69 73 70 2e 6f 72 67 3e bruno@clisp.org>
0060: 0a 20 2a 20 43 6f 70 79 72 69 67 68 74 20 32 30 . * Copyright 20
0070: 30 30 20 41 64 61 6d 20 46 65 64 6f 72 2c 20 3c 00 Adam Fedor, <
0080: 66 65 64 6f 72 40 67 6e 75 2e 6f 72 67 3e 0a 20 fedor@gnu.org>.
0090: 2a 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 34 * Copyright 2004
00a0: 20 50 61 75 6c 20 47 75 79 6f 74 2c 20 3c 70 67 Paul Guyot, <pg
00b0: 75 79 6f 74 40 6b 61 6c 6c 69 73 79 73 2e 6e 65 uyot@kallisys.ne
00c0: 74 3e 0a 20 2a 0a 20 2a 20 54 68 69 73 20 69 73 t>. *. * This is
00d0: 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 20 64 free software d
00e0: 69 73 74 72 69 62 75 74 65 64 20 75 6e 64 65 72 istributed under
00f0: 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c the GNU General
0100: 20 50 75 62 6c 69 63 20 4c 69 63 65 6e 63 65 0a Public Licence.
0110: 20 2a 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 * described in
0120: 74 68 65 20 66 69 6c 65 20 43 4f 50 59 49 4e 47 the file COPYING
0130: 2e 20 43 6f 6e 74 61 63 74 20 74 68 65 20 61 75 . Contact the au
0140: 74 68 6f 72 20 69 66 20 79 6f 75 20 64 6f 6e 27 thor if you don'
0150: 74 20 68 61 76 65 20 74 68 69 73 0a 20 2a 20 6f t have this. * o
0160: 72 20 63 61 6e 27 74 20 6c 69 76 65 20 77 69 74 r can't live wit
0170: 68 20 69 74 2e 20 54 68 65 72 65 20 69 73 20 41 h it. There is A
0180: 42 53 4f 4c 55 54 45 4c 59 20 4e 4f 20 57 41 52 BSOLUTELY NO WAR
0190: 52 41 4e 54 59 2c 20 65 78 70 6c 69 63 69 74 20 RANTY, explicit
01a0: 6f 72 20 69 6d 70 6c 69 65 64 2c 0a 20 2a 20 6f or implied,. * o
01b0: 6e 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 2e n this software.
01c0: 0a 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 20 52 45 . */..#ifndef RE
01d0: 45 4e 54 52 41 4e 54 0a 23 69 6e 63 6c 75 64 65 ENTRANT.#include
01e0: 20 22 76 61 63 61 6c 6c 2e 68 2e 69 6e 22 0a 23 "vacall.h.in".#
01f0: 65 6c 73 65 20 2f 2a 20 52 45 45 4e 54 52 41 4e else /* REENTRAN
0200: 54 20 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 76 T */.#include "v
0210: 61 63 61 6c 6c 5f 72 2e 68 2e 69 6e 22 0a 23 65 acall_r.h.in".#e
0220: 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 52 45 45 ndif..#ifdef REE
0230: 4e 54 52 41 4e 54 0a 23 64 65 66 69 6e 65 20 5f NTRANT.#define _
0240: 5f 76 61 63 61 6c 6c 20 5f 5f 76 61 63 61 6c 6c _vacall __vacall
0250: 5f 72 0a 72 65 67 69 73 74 65 72 20 73 74 72 75 _r.register stru
0260: 63 74 20 7b 20 76 6f 69 64 20 28 2a 76 61 63 61 ct { void (*vaca
0270: 6c 6c 5f 66 75 6e 63 74 69 6f 6e 29 20 28 76 6f ll_function) (vo
0280: 69 64 2a 2c 76 61 5f 61 6c 69 73 74 29 3b 20 76 id*,va_alist); v
0290: 6f 69 64 2a 20 61 72 67 3b 20 7d 0a 20 20 20 20 oid* arg; }.
02a0: 20 20 20 20 20 2a 09 09 65 6e 76 09 5f 5f 61 73 *..env.__as
02b0: 6d 5f 5f 28 22 72 31 31 22 29 3b 0a 23 65 6e 64 m__("r11");.#end
02c0: 69 66 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 if.register doub
02d0: 6c 65 09 09 66 61 72 67 31 09 5f 5f 61 73 6d 5f le..farg1.__asm_
02e0: 5f 28 22 66 72 31 22 29 3b 0a 72 65 67 69 73 74 _("fr1");.regist
02f0: 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 67 32 er double..farg2
0300: 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 32 22 29 3b .__asm__("fr2");
0310: 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 .register double
0320: 09 09 66 61 72 67 33 09 5f 5f 61 73 6d 5f 5f 28 ..farg3.__asm__(
0330: 22 66 72 33 22 29 3b 0a 72 65 67 69 73 74 65 72 "fr3");.register
0340: 20 64 6f 75 62 6c 65 09 09 66 61 72 67 34 09 5f double..farg4._
0350: 5f 61 73 6d 5f 5f 28 22 66 72 34 22 29 3b 0a 72 _asm__("fr4");.r
0360: 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 09 09 egister double..
0370: 66 61 72 67 35 09 5f 5f 61 73 6d 5f 5f 28 22 66 farg5.__asm__("f
0380: 72 35 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 r5");.register d
0390: 6f 75 62 6c 65 09 09 66 61 72 67 36 09 5f 5f 61 ouble..farg6.__a
03a0: 73 6d 5f 5f 28 22 66 72 36 22 29 3b 0a 72 65 67 sm__("fr6");.reg
03b0: 69 73 74 65 72 20 64 6f 75 62 6c 65 09 09 66 61 ister double..fa
03c0: 72 67 37 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 37 rg7.__asm__("fr7
03d0: 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 ");.register dou
03e0: 62 6c 65 09 09 66 61 72 67 38 09 5f 5f 61 73 6d ble..farg8.__asm
03f0: 5f 5f 28 22 66 72 38 22 29 3b 0a 72 65 67 69 73 __("fr8");.regis
0400: 74 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 67 ter double..farg
0410: 39 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 39 22 29 9.__asm__("fr9")
0420: 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c ;.register doubl
0430: 65 09 09 66 61 72 67 31 30 09 5f 5f 61 73 6d 5f e..farg10.__asm_
0440: 5f 28 22 66 72 31 30 22 29 3b 0a 72 65 67 69 73 _("fr10");.regis
0450: 74 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 67 ter double..farg
0460: 31 31 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 31 31 11.__asm__("fr11
0470: 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 ");.register dou
0480: 62 6c 65 09 09 66 61 72 67 31 32 09 5f 5f 61 73 ble..farg12.__as
0490: 6d 5f 5f 28 22 66 72 31 32 22 29 3b 0a 72 65 67 m__("fr12");.reg
04a0: 69 73 74 65 72 20 64 6f 75 62 6c 65 09 09 66 61 ister double..fa
04b0: 72 67 31 33 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 rg13.__asm__("fr
04c0: 31 33 22 29 3b 0a 72 65 67 69 73 74 65 72 20 5f 13");.register _
04d0: 5f 76 61 77 6f 72 64 09 69 72 65 74 09 5f 5f 61 _vaword.iret.__a
04e0: 73 6d 5f 5f 28 22 72 33 22 29 3b 0a 72 65 67 69 sm__("r3");.regi
04f0: 73 74 65 72 20 5f 5f 76 61 77 6f 72 64 09 69 72 ster __vaword.ir
0500: 65 74 32 09 5f 5f 61 73 6d 5f 5f 28 22 72 34 22 et2.__asm__("r4"
0510: 29 3b 0a 72 65 67 69 73 74 65 72 20 66 6c 6f 61 );.register floa
0520: 74 09 09 66 72 65 74 09 5f 5f 61 73 6d 5f 5f 28 t..fret.__asm__(
0530: 22 66 72 31 22 29 3b 0a 72 65 67 69 73 74 65 72 "fr1");.register
0540: 20 64 6f 75 62 6c 65 09 09 64 72 65 74 09 5f 5f double..dret.__
0550: 61 73 6d 5f 5f 28 22 66 72 31 22 29 3b 0a 0a 76 asm__("fr1");..v
0560: 6f 69 64 20 2f 2a 20 74 68 65 20 72 65 74 75 72 oid /* the retur
0570: 6e 20 74 79 70 65 20 69 73 20 76 61 72 69 61 62 n type is variab
0580: 6c 65 2c 20 6e 6f 74 20 76 6f 69 64 21 20 2a 2f le, not void! */
0590: 0a 5f 5f 76 61 63 61 6c 6c 20 28 5f 5f 76 61 77 .__vacall (__vaw
05a0: 6f 72 64 20 77 6f 72 64 31 2c 20 5f 5f 76 61 77 ord word1, __vaw
05b0: 6f 72 64 20 77 6f 72 64 32 2c 20 5f 5f 76 61 77 ord word2, __vaw
05c0: 6f 72 64 20 77 6f 72 64 33 2c 20 5f 5f 76 61 77 ord word3, __vaw
05d0: 6f 72 64 20 77 6f 72 64 34 2c 0a 20 20 20 20 20 ord word4,.
05e0: 20 20 20 20 20 5f 5f 76 61 77 6f 72 64 20 77 6f __vaword wo
05f0: 72 64 35 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f rd5, __vaword wo
0600: 72 64 36 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f rd6, __vaword wo
0610: 72 64 37 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f rd7, __vaword wo
0620: 72 64 38 2c 0a 20 20 20 20 20 20 20 20 20 20 5f rd8,. _
0630: 5f 76 61 77 6f 72 64 20 66 69 72 73 74 77 6f 72 _vaword firstwor
0640: 64 29 0a 7b 0a 20 20 5f 5f 76 61 5f 61 6c 69 73 d).{. __va_alis
0650: 74 20 6c 69 73 74 3b 0a 23 69 66 20 64 65 66 69 t list;.#if defi
0660: 6e 65 64 28 5f 41 49 58 29 20 7c 7c 20 28 64 65 ned(_AIX) || (de
0670: 66 69 6e 65 64 28 5f 5f 4d 41 43 48 5f 5f 29 20 fined(__MACH__)
0680: 26 26 20 64 65 66 69 6e 65 64 28 5f 5f 41 50 50 && defined(__APP
0690: 4c 45 5f 5f 29 29 0a 20 20 2f 2a 20 67 63 63 2d LE__)). /* gcc-
06a0: 32 2e 36 2e 33 20 73 6f 75 72 63 65 20 73 61 79 2.6.3 source say
06b0: 73 3a 20 57 68 65 6e 20 61 20 70 61 72 61 6d 65 s: When a parame
06c0: 74 65 72 20 69 73 20 70 61 73 73 65 64 20 69 6e ter is passed in
06d0: 20 61 20 72 65 67 69 73 74 65 72 2c 0a 20 20 20 a register,.
06e0: 2a 20 73 74 61 63 6b 20 73 70 61 63 65 20 69 73 * stack space is
06f0: 20 73 74 69 6c 6c 20 61 6c 6c 6f 63 61 74 65 64 still allocated
0700: 20 66 6f 72 20 69 74 2e 0a 20 20 20 2a 2f 0a 20 for it.. */.
0710: 20 2f 2a 20 4d 6f 76 65 20 74 68 65 20 61 72 67 /* Move the arg
0720: 75 6d 65 6e 74 73 20 70 61 73 73 65 64 20 69 6e uments passed in
0730: 20 72 65 67 69 73 74 65 72 73 20 74 6f 20 74 68 registers to th
0740: 65 69 72 20 73 74 61 63 6b 20 6c 6f 63 61 74 69 eir stack locati
0750: 6f 6e 73 2e 20 2a 2f 0a 20 20 28 26 66 69 72 73 ons. */. (&firs
0760: 74 77 6f 72 64 29 5b 2d 38 5d 20 3d 20 77 6f 72 tword)[-8] = wor
0770: 64 31 3b 0a 20 20 28 26 66 69 72 73 74 77 6f 72 d1;. (&firstwor
0780: 64 29 5b 2d 37 5d 20 3d 20 77 6f 72 64 32 3b 0a d)[-7] = word2;.
0790: 20 20 28 26 66 69 72 73 74 77 6f 72 64 29 5b 2d (&firstword)[-
07a0: 36 5d 20 3d 20 77 6f 72 64 33 3b 0a 20 20 28 26 6] = word3;. (&
07b0: 66 69 72 73 74 77 6f 72 64 29 5b 2d 35 5d 20 3d firstword)[-5] =
07c0: 20 77 6f 72 64 34 3b 0a 20 20 28 26 66 69 72 73 word4;. (&firs
07d0: 74 77 6f 72 64 29 5b 2d 34 5d 20 3d 20 77 6f 72 tword)[-4] = wor
07e0: 64 35 3b 0a 20 20 28 26 66 69 72 73 74 77 6f 72 d5;. (&firstwor
07f0: 64 29 5b 2d 33 5d 20 3d 20 77 6f 72 64 36 3b 0a d)[-3] = word6;.
0800: 20 20 28 26 66 69 72 73 74 77 6f 72 64 29 5b 2d (&firstword)[-
0810: 32 5d 20 3d 20 77 6f 72 64 37 3b 0a 20 20 28 26 2] = word7;. (&
0820: 66 69 72 73 74 77 6f 72 64 29 5b 2d 31 5d 20 3d firstword)[-1] =
0830: 20 77 6f 72 64 38 3b 0a 23 65 6c 73 65 0a 20 20 word8;.#else.
0840: 2f 2a 20 4d 6f 76 65 20 74 68 65 20 61 72 67 75 /* Move the argu
0850: 6d 65 6e 74 73 20 70 61 73 73 65 64 20 69 6e 20 ments passed in
0860: 72 65 67 69 73 74 65 72 73 20 74 6f 20 74 65 6d registers to tem
0870: 70 20 73 74 6f 72 61 67 65 2c 20 73 69 6e 63 65 p storage, since
0880: 20 0a 20 20 20 20 20 6d 6f 76 69 6e 67 20 74 68 . moving th
0890: 65 6d 20 74 6f 20 74 68 65 20 73 74 61 63 6b 20 em to the stack
08a0: 77 6f 75 6c 64 20 6d 65 73 73 20 75 70 20 74 68 would mess up th
08b0: 65 20 73 74 61 63 6b 20 2a 2f 0a 20 20 6c 69 73 e stack */. lis
08c0: 74 2e 72 65 67 61 72 67 5b 30 5d 20 3d 20 77 6f t.regarg[0] = wo
08d0: 72 64 31 3b 0a 20 20 6c 69 73 74 2e 72 65 67 61 rd1;. list.rega
08e0: 72 67 5b 31 5d 20 3d 20 77 6f 72 64 32 3b 0a 20 rg[1] = word2;.
08f0: 20 6c 69 73 74 2e 72 65 67 61 72 67 5b 32 5d 20 list.regarg[2]
0900: 3d 20 77 6f 72 64 33 3b 0a 20 20 6c 69 73 74 2e = word3;. list.
0910: 72 65 67 61 72 67 5b 33 5d 20 3d 20 77 6f 72 64 regarg[3] = word
0920: 34 3b 0a 20 20 6c 69 73 74 2e 72 65 67 61 72 67 4;. list.regarg
0930: 5b 34 5d 20 3d 20 77 6f 72 64 35 3b 0a 20 20 6c [4] = word5;. l
0940: 69 73 74 2e 72 65 67 61 72 67 5b 35 5d 20 3d 20 ist.regarg[5] =
0950: 77 6f 72 64 36 3b 0a 20 20 6c 69 73 74 2e 72 65 word6;. list.re
0960: 67 61 72 67 5b 36 5d 20 3d 20 77 6f 72 64 37 3b garg[6] = word7;
0970: 0a 20 20 6c 69 73 74 2e 72 65 67 61 72 67 5b 37 . list.regarg[7
0980: 5d 20 3d 20 77 6f 72 64 38 3b 0a 23 65 6e 64 69 ] = word8;.#endi
0990: 66 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 30 5d f. list.farg[0]
09a0: 20 3d 20 66 61 72 67 31 3b 0a 20 20 6c 69 73 74 = farg1;. list
09b0: 2e 66 61 72 67 5b 31 5d 20 3d 20 66 61 72 67 32 .farg[1] = farg2
09c0: 3b 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 32 5d ;. list.farg[2]
09d0: 20 3d 20 66 61 72 67 33 3b 0a 20 20 6c 69 73 74 = farg3;. list
09e0: 2e 66 61 72 67 5b 33 5d 20 3d 20 66 61 72 67 34 .farg[3] = farg4
09f0: 3b 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 34 5d ;. list.farg[4]
0a00: 20 3d 20 66 61 72 67 35 3b 0a 20 20 6c 69 73 74 = farg5;. list
0a10: 2e 66 61 72 67 5b 35 5d 20 3d 20 66 61 72 67 36 .farg[5] = farg6
0a20: 3b 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 36 5d ;. list.farg[6]
0a30: 20 3d 20 66 61 72 67 37 3b 0a 20 20 6c 69 73 74 = farg7;. list
0a40: 2e 66 61 72 67 5b 37 5d 20 3d 20 66 61 72 67 38 .farg[7] = farg8
0a50: 3b 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f 41 ;.#if defined(_A
0a60: 49 58 29 20 7c 7c 20 28 64 65 66 69 6e 65 64 28 IX) || (defined(
0a70: 5f 5f 4d 41 43 48 5f 5f 29 20 26 26 20 64 65 66 __MACH__) && def
0a80: 69 6e 65 64 28 5f 5f 41 50 50 4c 45 5f 5f 29 29 ined(__APPLE__))
0a90: 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 38 5d 20 . list.farg[8]
0aa0: 3d 20 66 61 72 67 39 3b 0a 20 20 6c 69 73 74 2e = farg9;. list.
0ab0: 66 61 72 67 5b 39 5d 20 3d 20 66 61 72 67 31 30 farg[9] = farg10
0ac0: 3b 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 31 30 ;. list.farg[10
0ad0: 5d 20 3d 20 66 61 72 67 31 31 3b 0a 20 20 6c 69 ] = farg11;. li
0ae0: 73 74 2e 66 61 72 67 5b 31 31 5d 20 3d 20 66 61 st.farg[11] = fa
0af0: 72 67 31 32 3b 0a 20 20 6c 69 73 74 2e 66 61 72 rg12;. list.far
0b00: 67 5b 31 32 5d 20 3d 20 66 61 72 67 31 33 3b 0a g[12] = farg13;.
0b10: 23 65 6e 64 69 66 0a 20 20 2f 2a 20 50 72 65 70 #endif. /* Prep
0b20: 61 72 65 20 74 68 65 20 76 61 5f 61 6c 69 73 74 are the va_alist
0b30: 2e 20 2a 2f 0a 20 20 6c 69 73 74 2e 66 6c 61 67 . */. list.flag
0b40: 73 20 3d 20 30 3b 0a 23 69 66 20 64 65 66 69 6e s = 0;.#if defin
0b50: 65 64 28 5f 41 49 58 29 20 7c 7c 20 28 64 65 66 ed(_AIX) || (def
0b60: 69 6e 65 64 28 5f 5f 4d 41 43 48 5f 5f 29 20 26 ined(__MACH__) &
0b70: 26 20 64 65 66 69 6e 65 64 28 5f 5f 41 50 50 4c & defined(__APPL
0b80: 45 5f 5f 29 29 0a 20 20 6c 69 73 74 2e 61 70 74 E__)). list.apt
0b90: 72 20 3d 20 28 6c 6f 6e 67 29 28 26 66 69 72 73 r = (long)(&firs
0ba0: 74 77 6f 72 64 20 2d 20 38 29 3b 0a 23 65 6c 73 tword - 8);.#els
0bb0: 65 0a 20 20 6c 69 73 74 2e 61 70 74 72 20 3d 20 e. list.aptr =
0bc0: 28 6c 6f 6e 67 29 28 26 6c 69 73 74 2e 72 65 67 (long)(&list.reg
0bd0: 61 72 67 5b 30 5d 29 3b 0a 20 20 6c 69 73 74 2e arg[0]);. list.
0be0: 73 61 70 74 72 20 3d 20 28 6c 6f 6e 67 29 28 26 saptr = (long)(&
0bf0: 66 69 72 73 74 77 6f 72 64 29 3b 0a 20 20 6c 69 firstword);. li
0c00: 73 74 2e 6f 6e 73 74 61 63 6b 20 3d 20 30 3b 0a st.onstack = 0;.
0c10: 23 65 6e 64 69 66 0a 20 20 6c 69 73 74 2e 72 61 #endif. list.ra
0c20: 64 64 72 20 3d 20 28 76 6f 69 64 2a 29 30 3b 0a ddr = (void*)0;.
0c30: 20 20 6c 69 73 74 2e 72 74 79 70 65 20 3d 20 5f list.rtype = _
0c40: 5f 56 41 76 6f 69 64 3b 0a 20 20 6c 69 73 74 2e _VAvoid;. list.
0c50: 6d 65 6d 66 61 72 67 70 74 72 20 3d 20 26 6c 69 memfargptr = &li
0c60: 73 74 2e 66 61 72 67 5b 30 5d 3b 0a 20 20 2f 2a st.farg[0];. /*
0c70: 20 43 61 6c 6c 20 76 61 63 61 6c 6c 5f 66 75 6e Call vacall_fun
0c80: 63 74 69 6f 6e 2e 20 54 68 65 20 6d 61 63 72 6f ction. The macro
0c90: 73 20 64 6f 20 61 6c 6c 20 74 68 65 20 72 65 73 s do all the res
0ca0: 74 2e 20 2a 2f 0a 23 69 66 6e 64 65 66 20 52 45 t. */.#ifndef RE
0cb0: 45 4e 54 52 41 4e 54 0a 20 20 28 2a 76 61 63 61 ENTRANT. (*vaca
0cc0: 6c 6c 5f 66 75 6e 63 74 69 6f 6e 29 20 28 26 6c ll_function) (&l
0cd0: 69 73 74 29 3b 0a 23 65 6c 73 65 20 2f 2a 20 52 ist);.#else /* R
0ce0: 45 45 4e 54 52 41 4e 54 20 2a 2f 0a 20 20 28 2a EENTRANT */. (*
0cf0: 65 6e 76 2d 3e 76 61 63 61 6c 6c 5f 66 75 6e 63 env->vacall_func
0d00: 74 69 6f 6e 29 20 28 65 6e 76 2d 3e 61 72 67 2c tion) (env->arg,
0d10: 26 6c 69 73 74 29 3b 0a 23 65 6e 64 69 66 0a 20 &list);.#endif.
0d20: 20 2f 2a 20 50 75 74 20 72 65 74 75 72 6e 20 76 /* Put return v
0d30: 61 6c 75 65 20 69 6e 74 6f 20 70 72 6f 70 65 72 alue into proper
0d40: 20 72 65 67 69 73 74 65 72 2e 20 2a 2f 0a 20 20 register. */.
0d50: 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d if (list.rtype =
0d60: 3d 20 5f 5f 56 41 76 6f 69 64 29 20 7b 0a 20 20 = __VAvoid) {.
0d70: 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 } else. if (lis
0d80: 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 63 t.rtype == __VAc
0d90: 68 61 72 29 20 7b 0a 20 20 20 20 69 72 65 74 20 har) {. iret
0da0: 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 63 68 61 72 = list.tmp._char
0db0: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
0dc0: 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f (list.rtype == _
0dd0: 5f 56 41 73 63 68 61 72 29 20 7b 0a 20 20 20 20 _VAschar) {.
0de0: 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e iret = list.tmp.
0df0: 5f 73 63 68 61 72 3b 0a 20 20 7d 20 65 6c 73 65 _schar;. } else
0e00: 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 . if (list.rtyp
0e10: 65 20 3d 3d 20 5f 5f 56 41 75 63 68 61 72 29 20 e == __VAuchar)
0e20: 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 73 {. iret = lis
0e30: 74 2e 74 6d 70 2e 5f 75 63 68 61 72 3b 0a 20 20 t.tmp._uchar;.
0e40: 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 } else. if (lis
0e50: 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 73 t.rtype == __VAs
0e60: 68 6f 72 74 29 20 7b 0a 20 20 20 20 69 72 65 74 hort) {. iret
0e70: 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 73 68 6f = list.tmp._sho
0e80: 72 74 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 rt;. } else. i
0e90: 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d f (list.rtype ==
0ea0: 20 5f 5f 56 41 75 73 68 6f 72 74 29 20 7b 0a 20 __VAushort) {.
0eb0: 20 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 iret = list.t
0ec0: 6d 70 2e 5f 75 73 68 6f 72 74 3b 0a 20 20 7d 20 mp._ushort;. }
0ed0: 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e else. if (list.
0ee0: 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 69 6e 74 rtype == __VAint
0ef0: 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c ) {. iret = l
0f00: 69 73 74 2e 74 6d 70 2e 5f 69 6e 74 3b 0a 20 20 ist.tmp._int;.
0f10: 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 } else. if (lis
0f20: 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 75 t.rtype == __VAu
0f30: 69 6e 74 29 20 7b 0a 20 20 20 20 69 72 65 74 20 int) {. iret
0f40: 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 75 69 6e 74 = list.tmp._uint
0f50: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
0f60: 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f (list.rtype == _
0f70: 5f 56 41 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 69 _VAlong) {. i
0f80: 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f ret = list.tmp._
0f90: 6c 6f 6e 67 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 long;. } else.
0fa0: 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 if (list.rtype
0fb0: 3d 3d 20 5f 5f 56 41 75 6c 6f 6e 67 29 20 7b 0a == __VAulong) {.
0fc0: 20 20 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e iret = list.
0fd0: 74 6d 70 2e 5f 75 6c 6f 6e 67 3b 0a 20 20 7d 20 tmp._ulong;. }
0fe0: 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e else. if (list.
0ff0: 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 6c 6f 6e rtype == __VAlon
1000: 67 6c 6f 6e 67 20 7c 7c 20 6c 69 73 74 2e 72 74 glong || list.rt
1010: 79 70 65 20 3d 3d 20 5f 5f 56 41 75 6c 6f 6e 67 ype == __VAulong
1020: 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 69 72 65 74 long) {. iret
1030: 20 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a = ((__vaword *
1040: 29 20 26 6c 69 73 74 2e 74 6d 70 2e 5f 6c 6f 6e ) &list.tmp._lon
1050: 67 6c 6f 6e 67 29 5b 30 5d 3b 0a 20 20 20 20 69 glong)[0];. i
1060: 72 65 74 32 20 3d 20 28 28 5f 5f 76 61 77 6f 72 ret2 = ((__vawor
1070: 64 20 2a 29 20 26 6c 69 73 74 2e 74 6d 70 2e 5f d *) &list.tmp._
1080: 6c 6f 6e 67 6c 6f 6e 67 29 5b 31 5d 3b 0a 20 20 longlong)[1];.
1090: 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 } else. if (lis
10a0: 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 66 t.rtype == __VAf
10b0: 6c 6f 61 74 29 20 7b 0a 20 20 20 20 66 72 65 74 loat) {. fret
10c0: 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 66 6c 6f = list.tmp._flo
10d0: 61 74 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 at;. } else. i
10e0: 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d f (list.rtype ==
10f0: 20 5f 5f 56 41 64 6f 75 62 6c 65 29 20 7b 0a 20 __VAdouble) {.
1100: 20 20 20 64 72 65 74 20 3d 20 6c 69 73 74 2e 74 dret = list.t
1110: 6d 70 2e 5f 64 6f 75 62 6c 65 3b 0a 20 20 7d 20 mp._double;. }
1120: 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e else. if (list.
1130: 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 76 6f 69 rtype == __VAvoi
1140: 64 70 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d dp) {. iret =
1150: 20 28 6c 6f 6e 67 29 6c 69 73 74 2e 74 6d 70 2e (long)list.tmp.
1160: 5f 70 74 72 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 _ptr;. } else.
1170: 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 if (list.rtype
1180: 3d 3d 20 5f 5f 56 41 73 74 72 75 63 74 29 20 7b == __VAstruct) {
1190: 0a 20 20 20 20 69 66 20 28 6c 69 73 74 2e 66 6c . if (list.fl
11a0: 61 67 73 20 26 20 5f 5f 56 41 5f 50 43 43 5f 53 ags & __VA_PCC_S
11b0: 54 52 55 43 54 5f 52 45 54 55 52 4e 29 20 7b 0a TRUCT_RETURN) {.
11c0: 20 20 20 20 20 20 2f 2a 20 70 63 63 20 73 74 72 /* pcc str
11d0: 75 63 74 20 72 65 74 75 72 6e 20 63 6f 6e 76 65 uct return conve
11e0: 6e 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 69 ntion */. i
11f0: 72 65 74 20 3d 20 28 6c 6f 6e 67 29 20 6c 69 73 ret = (long) lis
1200: 74 2e 72 61 64 64 72 3b 0a 20 20 20 20 7d 20 65 t.raddr;. } e
1210: 6c 73 65 20 7b 0a 20 20 20 20 20 20 2f 2a 20 6e lse {. /* n
1220: 6f 72 6d 61 6c 20 73 74 72 75 63 74 20 72 65 74 ormal struct ret
1230: 75 72 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 2a urn convention *
1240: 2f 0a 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 /. if (list
1250: 2e 66 6c 61 67 73 20 26 20 5f 5f 56 41 5f 52 45 .flags & __VA_RE
1260: 47 49 53 54 45 52 5f 53 54 52 55 43 54 5f 52 45 GISTER_STRUCT_RE
1270: 54 55 52 4e 29 20 7b 0a 20 20 20 20 20 20 20 20 TURN) {.
1280: 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d if (list.rsize =
1290: 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 29 29 20 = sizeof(char))
12a0: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 72 65 74 {. iret
12b0: 20 3d 20 2a 28 75 6e 73 69 67 6e 65 64 20 63 68 = *(unsigned ch
12c0: 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 ar *) list.raddr
12d0: 3b 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 ;. } else
12e0: 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 . if (lis
12f0: 74 2e 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f t.rsize == sizeo
1300: 66 28 73 68 6f 72 74 29 29 20 7b 0a 20 20 20 20 f(short)) {.
1310: 20 20 20 20 20 20 69 72 65 74 20 3d 20 2a 28 75 iret = *(u
1320: 6e 73 69 67 6e 65 64 20 73 68 6f 72 74 20 2a 29 nsigned short *)
1330: 20 6c 69 73 74 2e 72 61 64 64 72 3b 0a 20 20 20 list.raddr;.
1340: 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 } else.
1350: 20 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 if (list.rsi
1360: 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 69 6e 74 ze == sizeof(int
1370: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 69 )) {. i
1380: 72 65 74 20 3d 20 2a 28 75 6e 73 69 67 6e 65 64 ret = *(unsigned
1390: 20 69 6e 74 20 2a 29 20 6c 69 73 74 2e 72 61 64 int *) list.rad
13a0: 64 72 3b 0a 20 20 20 20 20 20 20 20 7d 20 65 6c dr;. } el
13b0: 73 65 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c se. if (l
13c0: 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 32 2a 73 ist.rsize == 2*s
13d0: 69 7a 65 6f 66 28 5f 5f 76 61 77 6f 72 64 29 29 izeof(__vaword))
13e0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 69 72 65 {. ire
13f0: 74 20 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 t = ((__vaword
1400: 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 *) list.raddr)[0
1410: 5d 3b 0a 20 20 20 20 20 20 20 20 20 20 69 72 65 ];. ire
1420: 74 32 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 t2 = ((__vaword
1430: 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 *) list.raddr)[1
1440: 5d 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 ];. }.
1450: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d }. }. }.}
1460: 0a .