Artifact
73d200adf382dae1342dc6c24dcd836011567f48:
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 72 73 36 30 30 30 20 43 50 on for rs6000 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 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 * Copyright 200
0070: 30 20 41 64 61 6d 20 46 65 64 6f 72 2c 20 3c 66 0 Adam Fedor, <f
0080: 65 64 6f 72 40 67 6e 75 2e 6f 72 67 3e 0a 20 2a edor@gnu.org>. *
0090: 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 34 20 Copyright 2004
00a0: 50 61 75 6c 20 47 75 79 6f 74 2c 20 3c 70 67 75 Paul Guyot, <pgu
00b0: 79 6f 74 40 6b 61 6c 6c 69 73 79 73 2e 6e 65 74 yot@kallisys.net
00c0: 3e 0a 20 2a 0a 20 2a 20 54 68 69 73 20 69 73 20 >. *. * This is
00d0: 66 72 65 65 20 73 6f 66 74 77 61 72 65 20 64 69 free software di
00e0: 73 74 72 69 62 75 74 65 64 20 75 6e 64 65 72 20 stributed under
00f0: 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 the GNU General
0100: 50 75 62 6c 69 63 20 4c 69 63 65 6e 63 65 0a 20 Public Licence.
0110: 2a 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 74 * described in t
0120: 68 65 20 66 69 6c 65 20 43 4f 50 59 49 4e 47 2e he file COPYING.
0130: 20 43 6f 6e 74 61 63 74 20 74 68 65 20 61 75 74 Contact the aut
0140: 68 6f 72 20 69 66 20 79 6f 75 20 64 6f 6e 27 74 hor if you don't
0150: 20 68 61 76 65 20 74 68 69 73 0a 20 2a 20 6f 72 have this. * or
0160: 20 63 61 6e 27 74 20 6c 69 76 65 20 77 69 74 68 can't live with
0170: 20 69 74 2e 20 54 68 65 72 65 20 69 73 20 41 42 it. There is AB
0180: 53 4f 4c 55 54 45 4c 59 20 4e 4f 20 57 41 52 52 SOLUTELY NO WARR
0190: 41 4e 54 59 2c 20 65 78 70 6c 69 63 69 74 20 6f ANTY, explicit o
01a0: 72 20 69 6d 70 6c 69 65 64 2c 0a 20 2a 20 6f 6e r implied,. * on
01b0: 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 2e 0a this software..
01c0: 20 2a 2f 0a 0a 23 69 66 6e 64 65 66 20 52 45 45 */..#ifndef REE
01d0: 4e 54 52 41 4e 54 0a 23 69 6e 63 6c 75 64 65 20 NTRANT.#include
01e0: 22 76 61 63 61 6c 6c 2e 68 2e 69 6e 22 0a 23 65 "vacall.h.in".#e
01f0: 6c 73 65 20 2f 2a 20 52 45 45 4e 54 52 41 4e 54 lse /* REENTRANT
0200: 20 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 76 61 */.#include "va
0210: 63 61 6c 6c 5f 72 2e 68 2e 69 6e 22 0a 23 65 6e call_r.h.in".#en
0220: 64 69 66 0a 0a 23 69 66 64 65 66 20 52 45 45 4e dif..#ifdef REEN
0230: 54 52 41 4e 54 0a 23 64 65 66 69 6e 65 20 5f 5f TRANT.#define __
0240: 76 61 63 61 6c 6c 20 5f 5f 76 61 63 61 6c 6c 5f vacall __vacall_
0250: 72 0a 72 65 67 69 73 74 65 72 20 73 74 72 75 63 r.register struc
0260: 74 20 7b 20 76 6f 69 64 20 28 2a 76 61 63 61 6c t { void (*vacal
0270: 6c 5f 66 75 6e 63 74 69 6f 6e 29 20 28 76 6f 69 l_function) (voi
0280: 64 2a 2c 76 61 5f 61 6c 69 73 74 29 3b 20 76 6f d*,va_alist); vo
0290: 69 64 2a 20 61 72 67 3b 20 7d 0a 20 20 20 20 20 id* arg; }.
02a0: 20 20 20 20 2a 09 09 65 6e 76 09 5f 5f 61 73 6d *..env.__asm
02b0: 5f 5f 28 22 72 31 31 22 29 3b 0a 23 65 6e 64 69 __("r11");.#endi
02c0: 66 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c f.register doubl
02d0: 65 09 09 66 61 72 67 31 09 5f 5f 61 73 6d 5f 5f e..farg1.__asm__
02e0: 28 22 66 72 31 22 29 3b 0a 72 65 67 69 73 74 65 ("fr1");.registe
02f0: 72 20 64 6f 75 62 6c 65 09 09 66 61 72 67 32 09 r double..farg2.
0300: 5f 5f 61 73 6d 5f 5f 28 22 66 72 32 22 29 3b 0a __asm__("fr2");.
0310: 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 09 register double.
0320: 09 66 61 72 67 33 09 5f 5f 61 73 6d 5f 5f 28 22 .farg3.__asm__("
0330: 66 72 33 22 29 3b 0a 72 65 67 69 73 74 65 72 20 fr3");.register
0340: 64 6f 75 62 6c 65 09 09 66 61 72 67 34 09 5f 5f double..farg4.__
0350: 61 73 6d 5f 5f 28 22 66 72 34 22 29 3b 0a 72 65 asm__("fr4");.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 35 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 arg5.__asm__("fr
0380: 35 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 5");.register do
0390: 75 62 6c 65 09 09 66 61 72 67 36 09 5f 5f 61 73 uble..farg6.__as
03a0: 6d 5f 5f 28 22 66 72 36 22 29 3b 0a 72 65 67 69 m__("fr6");.regi
03b0: 73 74 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 ster double..far
03c0: 67 37 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 37 22 g7.__asm__("fr7"
03d0: 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 );.register doub
03e0: 6c 65 09 09 66 61 72 67 38 09 5f 5f 61 73 6d 5f le..farg8.__asm_
03f0: 5f 28 22 66 72 38 22 29 3b 0a 72 65 67 69 73 74 _("fr8");.regist
0400: 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 67 39 er double..farg9
0410: 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 39 22 29 3b .__asm__("fr9");
0420: 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 .register double
0430: 09 09 66 61 72 67 31 30 09 5f 5f 61 73 6d 5f 5f ..farg10.__asm__
0440: 28 22 66 72 31 30 22 29 3b 0a 72 65 67 69 73 74 ("fr10");.regist
0450: 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 67 31 er double..farg1
0460: 31 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 31 31 22 1.__asm__("fr11"
0470: 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 );.register doub
0480: 6c 65 09 09 66 61 72 67 31 32 09 5f 5f 61 73 6d le..farg12.__asm
0490: 5f 5f 28 22 66 72 31 32 22 29 3b 0a 72 65 67 69 __("fr12");.regi
04a0: 73 74 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 ster double..far
04b0: 67 31 33 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 31 g13.__asm__("fr1
04c0: 33 22 29 3b 0a 72 65 67 69 73 74 65 72 20 5f 5f 3");.register __
04d0: 76 61 77 6f 72 64 09 69 72 65 74 09 5f 5f 61 73 vaword.iret.__as
04e0: 6d 5f 5f 28 22 72 33 22 29 3b 0a 72 65 67 69 73 m__("r3");.regis
04f0: 74 65 72 20 5f 5f 76 61 77 6f 72 64 09 69 72 65 ter __vaword.ire
0500: 74 32 09 5f 5f 61 73 6d 5f 5f 28 22 72 34 22 29 t2.__asm__("r4")
0510: 3b 0a 72 65 67 69 73 74 65 72 20 66 6c 6f 61 74 ;.register float
0520: 09 09 66 72 65 74 09 5f 5f 61 73 6d 5f 5f 28 22 ..fret.__asm__("
0530: 66 72 31 22 29 3b 0a 72 65 67 69 73 74 65 72 20 fr1");.register
0540: 64 6f 75 62 6c 65 09 09 64 72 65 74 09 5f 5f 61 double..dret.__a
0550: 73 6d 5f 5f 28 22 66 72 31 22 29 3b 0a 0a 76 6f sm__("fr1");..vo
0560: 69 64 20 2f 2a 20 74 68 65 20 72 65 74 75 72 6e id /* the return
0570: 20 74 79 70 65 20 69 73 20 76 61 72 69 61 62 6c type is variabl
0580: 65 2c 20 6e 6f 74 20 76 6f 69 64 21 20 2a 2f 0a e, not void! */.
0590: 5f 5f 76 61 63 61 6c 6c 20 28 5f 5f 76 61 77 6f __vacall (__vawo
05a0: 72 64 20 77 6f 72 64 31 2c 20 5f 5f 76 61 77 6f rd word1, __vawo
05b0: 72 64 20 77 6f 72 64 32 2c 20 5f 5f 76 61 77 6f rd word2, __vawo
05c0: 72 64 20 77 6f 72 64 33 2c 20 5f 5f 76 61 77 6f rd word3, __vawo
05d0: 72 64 20 77 6f 72 64 34 2c 0a 20 20 20 20 20 20 rd word4,.
05e0: 20 20 20 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 __vaword wor
05f0: 64 35 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 d5, __vaword wor
0600: 64 36 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 d6, __vaword wor
0610: 64 37 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 d7, __vaword wor
0620: 64 38 2c 0a 20 20 20 20 20 20 20 20 20 20 5f 5f d8,. __
0630: 76 61 77 6f 72 64 20 66 69 72 73 74 77 6f 72 64 vaword firstword
0640: 29 0a 7b 0a 20 20 5f 5f 76 61 5f 61 6c 69 73 74 ).{. __va_alist
0650: 20 6c 69 73 74 3b 0a 23 69 66 20 64 65 66 69 6e list;.#if defin
0660: 65 64 28 5f 41 49 58 29 20 7c 7c 20 28 64 65 66 ed(_AIX) || (def
0670: 69 6e 65 64 28 5f 5f 4d 41 43 48 5f 5f 29 20 26 ined(__MACH__) &
0680: 26 20 64 65 66 69 6e 65 64 28 5f 5f 41 50 50 4c & defined(__APPL
0690: 45 5f 5f 29 29 0a 20 20 2f 2a 20 67 63 63 2d 32 E__)). /* gcc-2
06a0: 2e 36 2e 33 20 73 6f 75 72 63 65 20 73 61 79 73 .6.3 source says
06b0: 3a 20 57 68 65 6e 20 61 20 70 61 72 61 6d 65 74 : When a paramet
06c0: 65 72 20 69 73 20 70 61 73 73 65 64 20 69 6e 20 er is passed in
06d0: 61 20 72 65 67 69 73 74 65 72 2c 0a 20 20 20 2a a register,. *
06e0: 20 73 74 61 63 6b 20 73 70 61 63 65 20 69 73 20 stack space is
06f0: 73 74 69 6c 6c 20 61 6c 6c 6f 63 61 74 65 64 20 still allocated
0700: 66 6f 72 20 69 74 2e 0a 20 20 20 2a 2f 0a 20 20 for it.. */.
0710: 2f 2a 20 4d 6f 76 65 20 74 68 65 20 61 72 67 75 /* Move the argu
0720: 6d 65 6e 74 73 20 70 61 73 73 65 64 20 69 6e 20 ments passed in
0730: 72 65 67 69 73 74 65 72 73 20 74 6f 20 74 68 65 registers to the
0740: 69 72 20 73 74 61 63 6b 20 6c 6f 63 61 74 69 6f ir stack locatio
0750: 6e 73 2e 20 2a 2f 0a 20 20 28 26 66 69 72 73 74 ns. */. (&first
0760: 77 6f 72 64 29 5b 2d 38 5d 20 3d 20 77 6f 72 64 word)[-8] = word
0770: 31 3b 0a 20 20 28 26 66 69 72 73 74 77 6f 72 64 1;. (&firstword
0780: 29 5b 2d 37 5d 20 3d 20 77 6f 72 64 32 3b 0a 20 )[-7] = word2;.
0790: 20 28 26 66 69 72 73 74 77 6f 72 64 29 5b 2d 36 (&firstword)[-6
07a0: 5d 20 3d 20 77 6f 72 64 33 3b 0a 20 20 28 26 66 ] = word3;. (&f
07b0: 69 72 73 74 77 6f 72 64 29 5b 2d 35 5d 20 3d 20 irstword)[-5] =
07c0: 77 6f 72 64 34 3b 0a 20 20 28 26 66 69 72 73 74 word4;. (&first
07d0: 77 6f 72 64 29 5b 2d 34 5d 20 3d 20 77 6f 72 64 word)[-4] = word
07e0: 35 3b 0a 20 20 28 26 66 69 72 73 74 77 6f 72 64 5;. (&firstword
07f0: 29 5b 2d 33 5d 20 3d 20 77 6f 72 64 36 3b 0a 20 )[-3] = word6;.
0800: 20 28 26 66 69 72 73 74 77 6f 72 64 29 5b 2d 32 (&firstword)[-2
0810: 5d 20 3d 20 77 6f 72 64 37 3b 0a 20 20 28 26 66 ] = word7;. (&f
0820: 69 72 73 74 77 6f 72 64 29 5b 2d 31 5d 20 3d 20 irstword)[-1] =
0830: 77 6f 72 64 38 3b 0a 23 65 6c 73 65 0a 20 20 2f word8;.#else. /
0840: 2a 20 4d 6f 76 65 20 74 68 65 20 61 72 67 75 6d * Move the argum
0850: 65 6e 74 73 20 70 61 73 73 65 64 20 69 6e 20 72 ents passed in r
0860: 65 67 69 73 74 65 72 73 20 74 6f 20 74 65 6d 70 egisters to temp
0870: 20 73 74 6f 72 61 67 65 2c 20 73 69 6e 63 65 20 storage, since
0880: 0a 20 20 20 20 20 6d 6f 76 69 6e 67 20 74 68 65 . moving the
0890: 6d 20 74 6f 20 74 68 65 20 73 74 61 63 6b 20 77 m to the stack w
08a0: 6f 75 6c 64 20 6d 65 73 73 20 75 70 20 74 68 65 ould mess up the
08b0: 20 73 74 61 63 6b 20 2a 2f 0a 20 20 6c 69 73 74 stack */. list
08c0: 2e 72 65 67 61 72 67 5b 30 5d 20 3d 20 77 6f 72 .regarg[0] = wor
08d0: 64 31 3b 0a 20 20 6c 69 73 74 2e 72 65 67 61 72 d1;. list.regar
08e0: 67 5b 31 5d 20 3d 20 77 6f 72 64 32 3b 0a 20 20 g[1] = word2;.
08f0: 6c 69 73 74 2e 72 65 67 61 72 67 5b 32 5d 20 3d list.regarg[2] =
0900: 20 77 6f 72 64 33 3b 0a 20 20 6c 69 73 74 2e 72 word3;. list.r
0910: 65 67 61 72 67 5b 33 5d 20 3d 20 77 6f 72 64 34 egarg[3] = word4
0920: 3b 0a 20 20 6c 69 73 74 2e 72 65 67 61 72 67 5b ;. list.regarg[
0930: 34 5d 20 3d 20 77 6f 72 64 35 3b 0a 20 20 6c 69 4] = word5;. li
0940: 73 74 2e 72 65 67 61 72 67 5b 35 5d 20 3d 20 77 st.regarg[5] = w
0950: 6f 72 64 36 3b 0a 20 20 6c 69 73 74 2e 72 65 67 ord6;. list.reg
0960: 61 72 67 5b 36 5d 20 3d 20 77 6f 72 64 37 3b 0a arg[6] = word7;.
0970: 20 20 6c 69 73 74 2e 72 65 67 61 72 67 5b 37 5d list.regarg[7]
0980: 20 3d 20 77 6f 72 64 38 3b 0a 23 65 6e 64 69 66 = word8;.#endif
0990: 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 30 5d 20 . list.farg[0]
09a0: 3d 20 66 61 72 67 31 3b 0a 20 20 6c 69 73 74 2e = farg1;. list.
09b0: 66 61 72 67 5b 31 5d 20 3d 20 66 61 72 67 32 3b farg[1] = farg2;
09c0: 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 32 5d 20 . list.farg[2]
09d0: 3d 20 66 61 72 67 33 3b 0a 20 20 6c 69 73 74 2e = farg3;. list.
09e0: 66 61 72 67 5b 33 5d 20 3d 20 66 61 72 67 34 3b farg[3] = farg4;
09f0: 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 34 5d 20 . list.farg[4]
0a00: 3d 20 66 61 72 67 35 3b 0a 20 20 6c 69 73 74 2e = farg5;. list.
0a10: 66 61 72 67 5b 35 5d 20 3d 20 66 61 72 67 36 3b farg[5] = farg6;
0a20: 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 36 5d 20 . list.farg[6]
0a30: 3d 20 66 61 72 67 37 3b 0a 20 20 6c 69 73 74 2e = farg7;. list.
0a40: 66 61 72 67 5b 37 5d 20 3d 20 66 61 72 67 38 3b farg[7] = farg8;
0a50: 0a 23 69 66 20 64 65 66 69 6e 65 64 28 5f 41 49 .#if defined(_AI
0a60: 58 29 20 7c 7c 20 28 64 65 66 69 6e 65 64 28 5f X) || (defined(_
0a70: 5f 4d 41 43 48 5f 5f 29 20 26 26 20 64 65 66 69 _MACH__) && defi
0a80: 6e 65 64 28 5f 5f 41 50 50 4c 45 5f 5f 29 29 0a ned(__APPLE__)).
0a90: 20 20 6c 69 73 74 2e 66 61 72 67 5b 38 5d 20 3d list.farg[8] =
0aa0: 20 66 61 72 67 39 3b 0a 20 20 6c 69 73 74 2e 66 farg9;. list.f
0ab0: 61 72 67 5b 39 5d 20 3d 20 66 61 72 67 31 30 3b arg[9] = farg10;
0ac0: 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 31 30 5d . list.farg[10]
0ad0: 20 3d 20 66 61 72 67 31 31 3b 0a 20 20 6c 69 73 = farg11;. lis
0ae0: 74 2e 66 61 72 67 5b 31 31 5d 20 3d 20 66 61 72 t.farg[11] = far
0af0: 67 31 32 3b 0a 20 20 6c 69 73 74 2e 66 61 72 67 g12;. list.farg
0b00: 5b 31 32 5d 20 3d 20 66 61 72 67 31 33 3b 0a 23 [12] = farg13;.#
0b10: 65 6e 64 69 66 0a 20 20 2f 2a 20 50 72 65 70 61 endif. /* Prepa
0b20: 72 65 20 74 68 65 20 76 61 5f 61 6c 69 73 74 2e re the va_alist.
0b30: 20 2a 2f 0a 20 20 6c 69 73 74 2e 66 6c 61 67 73 */. list.flags
0b40: 20 3d 20 30 3b 0a 23 69 66 20 64 65 66 69 6e 65 = 0;.#if define
0b50: 64 28 5f 41 49 58 29 20 7c 7c 20 28 64 65 66 69 d(_AIX) || (defi
0b60: 6e 65 64 28 5f 5f 4d 41 43 48 5f 5f 29 20 26 26 ned(__MACH__) &&
0b70: 20 64 65 66 69 6e 65 64 28 5f 5f 41 50 50 4c 45 defined(__APPLE
0b80: 5f 5f 29 29 0a 20 20 6c 69 73 74 2e 61 70 74 72 __)). list.aptr
0b90: 20 3d 20 28 6c 6f 6e 67 29 28 26 66 69 72 73 74 = (long)(&first
0ba0: 77 6f 72 64 20 2d 20 38 29 3b 0a 23 65 6c 73 65 word - 8);.#else
0bb0: 0a 20 20 6c 69 73 74 2e 61 70 74 72 20 3d 20 28 . list.aptr = (
0bc0: 6c 6f 6e 67 29 28 26 6c 69 73 74 2e 72 65 67 61 long)(&list.rega
0bd0: 72 67 5b 30 5d 29 3b 0a 20 20 6c 69 73 74 2e 73 rg[0]);. list.s
0be0: 61 70 74 72 20 3d 20 28 6c 6f 6e 67 29 28 26 66 aptr = (long)(&f
0bf0: 69 72 73 74 77 6f 72 64 29 3b 0a 20 20 6c 69 73 irstword);. lis
0c00: 74 2e 6f 6e 73 74 61 63 6b 20 3d 20 30 3b 0a 23 t.onstack = 0;.#
0c10: 65 6e 64 69 66 0a 20 20 6c 69 73 74 2e 72 61 64 endif. list.rad
0c20: 64 72 20 3d 20 28 76 6f 69 64 2a 29 30 3b 0a 20 dr = (void*)0;.
0c30: 20 6c 69 73 74 2e 72 74 79 70 65 20 3d 20 5f 5f list.rtype = __
0c40: 56 41 76 6f 69 64 3b 0a 20 20 6c 69 73 74 2e 6d VAvoid;. list.m
0c50: 65 6d 66 61 72 67 70 74 72 20 3d 20 26 6c 69 73 emfargptr = &lis
0c60: 74 2e 66 61 72 67 5b 30 5d 3b 0a 20 20 2f 2a 20 t.farg[0];. /*
0c70: 43 61 6c 6c 20 76 61 63 61 6c 6c 5f 66 75 6e 63 Call vacall_func
0c80: 74 69 6f 6e 2e 20 54 68 65 20 6d 61 63 72 6f 73 tion. The macros
0c90: 20 64 6f 20 61 6c 6c 20 74 68 65 20 72 65 73 74 do all the rest
0ca0: 2e 20 2a 2f 0a 23 69 66 6e 64 65 66 20 52 45 45 . */.#ifndef REE
0cb0: 4e 54 52 41 4e 54 0a 20 20 28 2a 76 61 63 61 6c NTRANT. (*vacal
0cc0: 6c 5f 66 75 6e 63 74 69 6f 6e 29 20 28 26 6c 69 l_function) (&li
0cd0: 73 74 29 3b 0a 23 65 6c 73 65 20 2f 2a 20 52 45 st);.#else /* RE
0ce0: 45 4e 54 52 41 4e 54 20 2a 2f 0a 20 20 28 2a 65 ENTRANT */. (*e
0cf0: 6e 76 2d 3e 76 61 63 61 6c 6c 5f 66 75 6e 63 74 nv->vacall_funct
0d00: 69 6f 6e 29 20 28 65 6e 76 2d 3e 61 72 67 2c 26 ion) (env->arg,&
0d10: 6c 69 73 74 29 3b 0a 23 65 6e 64 69 66 0a 20 20 list);.#endif.
0d20: 2f 2a 20 50 75 74 20 72 65 74 75 72 6e 20 76 61 /* Put return va
0d30: 6c 75 65 20 69 6e 74 6f 20 70 72 6f 70 65 72 20 lue into proper
0d40: 72 65 67 69 73 74 65 72 2e 20 2a 2f 0a 20 20 69 register. */. i
0d50: 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d f (list.rtype ==
0d60: 20 5f 5f 56 41 76 6f 69 64 29 20 7b 0a 20 20 7d __VAvoid) {. }
0d70: 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 else. if (list
0d80: 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 63 68 .rtype == __VAch
0d90: 61 72 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d ar) {. iret =
0da0: 20 6c 69 73 74 2e 74 6d 70 2e 5f 63 68 61 72 3b list.tmp._char;
0db0: 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 . } else. if (
0dc0: 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f list.rtype == __
0dd0: 56 41 73 63 68 61 72 29 20 7b 0a 20 20 20 20 69 VAschar) {. i
0de0: 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f ret = list.tmp._
0df0: 73 63 68 61 72 3b 0a 20 20 7d 20 65 6c 73 65 0a schar;. } else.
0e00: 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 if (list.rtype
0e10: 20 3d 3d 20 5f 5f 56 41 75 63 68 61 72 29 20 7b == __VAuchar) {
0e20: 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 73 74 . iret = list
0e30: 2e 74 6d 70 2e 5f 75 63 68 61 72 3b 0a 20 20 7d .tmp._uchar;. }
0e40: 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 else. if (list
0e50: 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 73 68 .rtype == __VAsh
0e60: 6f 72 74 29 20 7b 0a 20 20 20 20 69 72 65 74 20 ort) {. iret
0e70: 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 73 68 6f 72 = list.tmp._shor
0e80: 74 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 t;. } else. if
0e90: 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 (list.rtype ==
0ea0: 5f 5f 56 41 75 73 68 6f 72 74 29 20 7b 0a 20 20 __VAushort) {.
0eb0: 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d iret = list.tm
0ec0: 70 2e 5f 75 73 68 6f 72 74 3b 0a 20 20 7d 20 65 p._ushort;. } e
0ed0: 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 lse. if (list.r
0ee0: 74 79 70 65 20 3d 3d 20 5f 5f 56 41 69 6e 74 29 type == __VAint)
0ef0: 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 {. iret = li
0f00: 73 74 2e 74 6d 70 2e 5f 69 6e 74 3b 0a 20 20 7d st.tmp._int;. }
0f10: 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 else. if (list
0f20: 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 75 69 .rtype == __VAui
0f30: 6e 74 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d nt) {. iret =
0f40: 20 6c 69 73 74 2e 74 6d 70 2e 5f 75 69 6e 74 3b list.tmp._uint;
0f50: 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 . } else. if (
0f60: 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f list.rtype == __
0f70: 56 41 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 69 72 VAlong) {. ir
0f80: 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 6c et = list.tmp._l
0f90: 6f 6e 67 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 ong;. } else.
0fa0: 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d if (list.rtype =
0fb0: 3d 20 5f 5f 56 41 75 6c 6f 6e 67 29 20 7b 0a 20 = __VAulong) {.
0fc0: 20 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 iret = list.t
0fd0: 6d 70 2e 5f 75 6c 6f 6e 67 3b 0a 20 20 7d 20 65 mp._ulong;. } e
0fe0: 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 lse. if (list.r
0ff0: 74 79 70 65 20 3d 3d 20 5f 5f 56 41 6c 6f 6e 67 type == __VAlong
1000: 6c 6f 6e 67 20 7c 7c 20 6c 69 73 74 2e 72 74 79 long || list.rty
1010: 70 65 20 3d 3d 20 5f 5f 56 41 75 6c 6f 6e 67 6c pe == __VAulongl
1020: 6f 6e 67 29 20 7b 0a 20 20 20 20 69 72 65 74 20 ong) {. iret
1030: 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a 29 = ((__vaword *)
1040: 20 26 6c 69 73 74 2e 74 6d 70 2e 5f 6c 6f 6e 67 &list.tmp._long
1050: 6c 6f 6e 67 29 5b 30 5d 3b 0a 20 20 20 20 69 72 long)[0];. ir
1060: 65 74 32 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 et2 = ((__vaword
1070: 20 2a 29 20 26 6c 69 73 74 2e 74 6d 70 2e 5f 6c *) &list.tmp._l
1080: 6f 6e 67 6c 6f 6e 67 29 5b 31 5d 3b 0a 20 20 7d onglong)[1];. }
1090: 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 else. if (list
10a0: 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 66 6c .rtype == __VAfl
10b0: 6f 61 74 29 20 7b 0a 20 20 20 20 66 72 65 74 20 oat) {. fret
10c0: 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 66 6c 6f 61 = list.tmp._floa
10d0: 74 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 t;. } else. if
10e0: 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 (list.rtype ==
10f0: 5f 5f 56 41 64 6f 75 62 6c 65 29 20 7b 0a 20 20 __VAdouble) {.
1100: 20 20 64 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d dret = list.tm
1110: 70 2e 5f 64 6f 75 62 6c 65 3b 0a 20 20 7d 20 65 p._double;. } e
1120: 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 lse. if (list.r
1130: 74 79 70 65 20 3d 3d 20 5f 5f 56 41 76 6f 69 64 type == __VAvoid
1140: 70 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 p) {. iret =
1150: 28 6c 6f 6e 67 29 6c 69 73 74 2e 74 6d 70 2e 5f (long)list.tmp._
1160: 70 74 72 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 ptr;. } else.
1170: 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d if (list.rtype =
1180: 3d 20 5f 5f 56 41 73 74 72 75 63 74 29 20 7b 0a = __VAstruct) {.
1190: 20 20 20 20 69 66 20 28 6c 69 73 74 2e 66 6c 61 if (list.fla
11a0: 67 73 20 26 20 5f 5f 56 41 5f 50 43 43 5f 53 54 gs & __VA_PCC_ST
11b0: 52 55 43 54 5f 52 45 54 55 52 4e 29 20 7b 0a 20 RUCT_RETURN) {.
11c0: 20 20 20 20 20 2f 2a 20 70 63 63 20 73 74 72 75 /* pcc 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 72 tion */. ir
11f0: 65 74 20 3d 20 28 6c 6f 6e 67 29 20 6c 69 73 74 et = (long) list
1200: 2e 72 61 64 64 72 3b 0a 20 20 20 20 7d 20 65 6c .raddr;. } el
1210: 73 65 20 7b 0a 20 20 20 20 20 20 2f 2a 20 6e 6f se {. /* no
1220: 72 6d 61 6c 20 73 74 72 75 63 74 20 72 65 74 75 rmal struct retu
1230: 72 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 2a 2f rn convention */
1240: 0a 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e . if (list.
1250: 66 6c 61 67 73 20 26 20 5f 5f 56 41 5f 52 45 47 flags & __VA_REG
1260: 49 53 54 45 52 5f 53 54 52 55 43 54 5f 52 45 54 ISTER_STRUCT_RET
1270: 55 52 4e 29 20 7b 0a 20 20 20 20 20 20 20 20 69 URN) {. i
1280: 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d f (list.rsize ==
1290: 20 73 69 7a 65 6f 66 28 63 68 61 72 29 29 20 7b sizeof(char)) {
12a0: 0a 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 . iret
12b0: 3d 20 2a 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = *(unsigned cha
12c0: 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 3b r *) list.raddr;
12d0: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a . } else.
12e0: 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 if (list
12f0: 2e 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 .rsize == sizeof
1300: 28 73 68 6f 72 74 29 29 20 7b 0a 20 20 20 20 20 (short)) {.
1310: 20 20 20 20 20 69 72 65 74 20 3d 20 2a 28 75 6e iret = *(un
1320: 73 69 67 6e 65 64 20 73 68 6f 72 74 20 2a 29 20 signed short *)
1330: 6c 69 73 74 2e 72 61 64 64 72 3b 0a 20 20 20 20 list.raddr;.
1340: 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 } else.
1350: 20 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a if (list.rsiz
1360: 65 20 3d 3d 20 73 69 7a 65 6f 66 28 69 6e 74 29 e == sizeof(int)
1370: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 69 72 ) {. ir
1380: 65 74 20 3d 20 2a 28 75 6e 73 69 67 6e 65 64 20 et = *(unsigned
1390: 69 6e 74 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 int *) list.radd
13a0: 72 3b 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 r;. } els
13b0: 65 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 e. if (li
13c0: 73 74 2e 72 73 69 7a 65 20 3d 3d 20 32 2a 73 69 st.rsize == 2*si
13d0: 7a 65 6f 66 28 5f 5f 76 61 77 6f 72 64 29 29 20 zeof(__vaword))
13e0: 7b 0a 20 20 20 20 20 20 20 20 20 20 69 72 65 74 {. iret
13f0: 20 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a = ((__vaword *
1400: 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d ) list.raddr)[0]
1410: 3b 0a 20 20 20 20 20 20 20 20 20 20 69 72 65 74 ;. iret
1420: 32 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a 2 = ((__vaword *
1430: 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 5d ) list.raddr)[1]
1440: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
1450: 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a }. }. }.}.