Artifact
ba82e5832636677d2298c16f057ba10d3561da47:
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 23 69 66 64 oid* arg; }.#ifd
02a0: 65 66 20 5f 5f 4e 65 74 42 53 44 5f 5f 0a 20 20 ef __NetBSD__.
02b0: 20 20 20 20 20 20 20 2a 09 09 65 6e 76 09 5f 5f *..env.__
02c0: 61 73 6d 5f 5f 28 22 72 31 33 22 29 3b 0a 23 65 asm__("r13");.#e
02d0: 6c 73 65 0a 20 20 20 20 20 20 20 20 20 2a 09 09 lse. *..
02e0: 65 6e 76 09 5f 5f 61 73 6d 5f 5f 28 22 72 31 31 env.__asm__("r11
02f0: 22 29 3b 0a 23 65 6e 64 69 66 0a 23 65 6e 64 69 ");.#endif.#endi
0300: 66 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c f.register doubl
0310: 65 09 09 66 61 72 67 31 09 5f 5f 61 73 6d 5f 5f e..farg1.__asm__
0320: 28 22 66 72 31 22 29 3b 0a 72 65 67 69 73 74 65 ("fr1");.registe
0330: 72 20 64 6f 75 62 6c 65 09 09 66 61 72 67 32 09 r double..farg2.
0340: 5f 5f 61 73 6d 5f 5f 28 22 66 72 32 22 29 3b 0a __asm__("fr2");.
0350: 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 09 register double.
0360: 09 66 61 72 67 33 09 5f 5f 61 73 6d 5f 5f 28 22 .farg3.__asm__("
0370: 66 72 33 22 29 3b 0a 72 65 67 69 73 74 65 72 20 fr3");.register
0380: 64 6f 75 62 6c 65 09 09 66 61 72 67 34 09 5f 5f double..farg4.__
0390: 61 73 6d 5f 5f 28 22 66 72 34 22 29 3b 0a 72 65 asm__("fr4");.re
03a0: 67 69 73 74 65 72 20 64 6f 75 62 6c 65 09 09 66 gister double..f
03b0: 61 72 67 35 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 arg5.__asm__("fr
03c0: 35 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 5");.register do
03d0: 75 62 6c 65 09 09 66 61 72 67 36 09 5f 5f 61 73 uble..farg6.__as
03e0: 6d 5f 5f 28 22 66 72 36 22 29 3b 0a 72 65 67 69 m__("fr6");.regi
03f0: 73 74 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 ster double..far
0400: 67 37 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 37 22 g7.__asm__("fr7"
0410: 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 );.register doub
0420: 6c 65 09 09 66 61 72 67 38 09 5f 5f 61 73 6d 5f le..farg8.__asm_
0430: 5f 28 22 66 72 38 22 29 3b 0a 72 65 67 69 73 74 _("fr8");.regist
0440: 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 67 39 er double..farg9
0450: 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 39 22 29 3b .__asm__("fr9");
0460: 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 .register double
0470: 09 09 66 61 72 67 31 30 09 5f 5f 61 73 6d 5f 5f ..farg10.__asm__
0480: 28 22 66 72 31 30 22 29 3b 0a 72 65 67 69 73 74 ("fr10");.regist
0490: 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 67 31 er double..farg1
04a0: 31 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 31 31 22 1.__asm__("fr11"
04b0: 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 );.register doub
04c0: 6c 65 09 09 66 61 72 67 31 32 09 5f 5f 61 73 6d le..farg12.__asm
04d0: 5f 5f 28 22 66 72 31 32 22 29 3b 0a 72 65 67 69 __("fr12");.regi
04e0: 73 74 65 72 20 64 6f 75 62 6c 65 09 09 66 61 72 ster double..far
04f0: 67 31 33 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 31 g13.__asm__("fr1
0500: 33 22 29 3b 0a 72 65 67 69 73 74 65 72 20 5f 5f 3");.register __
0510: 76 61 77 6f 72 64 09 69 72 65 74 09 5f 5f 61 73 vaword.iret.__as
0520: 6d 5f 5f 28 22 72 33 22 29 3b 0a 72 65 67 69 73 m__("r3");.regis
0530: 74 65 72 20 5f 5f 76 61 77 6f 72 64 09 69 72 65 ter __vaword.ire
0540: 74 32 09 5f 5f 61 73 6d 5f 5f 28 22 72 34 22 29 t2.__asm__("r4")
0550: 3b 0a 72 65 67 69 73 74 65 72 20 66 6c 6f 61 74 ;.register float
0560: 09 09 66 72 65 74 09 5f 5f 61 73 6d 5f 5f 28 22 ..fret.__asm__("
0570: 66 72 31 22 29 3b 0a 72 65 67 69 73 74 65 72 20 fr1");.register
0580: 64 6f 75 62 6c 65 09 09 64 72 65 74 09 5f 5f 61 double..dret.__a
0590: 73 6d 5f 5f 28 22 66 72 31 22 29 3b 0a 0a 76 6f sm__("fr1");..vo
05a0: 69 64 20 2f 2a 20 74 68 65 20 72 65 74 75 72 6e id /* the return
05b0: 20 74 79 70 65 20 69 73 20 76 61 72 69 61 62 6c type is variabl
05c0: 65 2c 20 6e 6f 74 20 76 6f 69 64 21 20 2a 2f 0a e, not void! */.
05d0: 5f 5f 76 61 63 61 6c 6c 20 28 5f 5f 76 61 77 6f __vacall (__vawo
05e0: 72 64 20 77 6f 72 64 31 2c 20 5f 5f 76 61 77 6f rd word1, __vawo
05f0: 72 64 20 77 6f 72 64 32 2c 20 5f 5f 76 61 77 6f rd word2, __vawo
0600: 72 64 20 77 6f 72 64 33 2c 20 5f 5f 76 61 77 6f rd word3, __vawo
0610: 72 64 20 77 6f 72 64 34 2c 0a 20 20 20 20 20 20 rd word4,.
0620: 20 20 20 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 __vaword wor
0630: 64 35 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 d5, __vaword wor
0640: 64 36 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 d6, __vaword wor
0650: 64 37 2c 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 d7, __vaword wor
0660: 64 38 2c 0a 20 20 20 20 20 20 20 20 20 20 5f 5f d8,. __
0670: 76 61 77 6f 72 64 20 66 69 72 73 74 77 6f 72 64 vaword firstword
0680: 29 0a 7b 0a 20 20 5f 5f 76 61 5f 61 6c 69 73 74 ).{. __va_alist
0690: 20 6c 69 73 74 3b 0a 23 69 66 20 64 65 66 69 6e list;.#if defin
06a0: 65 64 28 5f 41 49 58 29 20 7c 7c 20 28 64 65 66 ed(_AIX) || (def
06b0: 69 6e 65 64 28 5f 5f 4d 41 43 48 5f 5f 29 20 26 ined(__MACH__) &
06c0: 26 20 64 65 66 69 6e 65 64 28 5f 5f 41 50 50 4c & defined(__APPL
06d0: 45 5f 5f 29 29 0a 20 20 2f 2a 20 67 63 63 2d 32 E__)). /* gcc-2
06e0: 2e 36 2e 33 20 73 6f 75 72 63 65 20 73 61 79 73 .6.3 source says
06f0: 3a 20 57 68 65 6e 20 61 20 70 61 72 61 6d 65 74 : When a paramet
0700: 65 72 20 69 73 20 70 61 73 73 65 64 20 69 6e 20 er is passed in
0710: 61 20 72 65 67 69 73 74 65 72 2c 0a 20 20 20 2a a register,. *
0720: 20 73 74 61 63 6b 20 73 70 61 63 65 20 69 73 20 stack space is
0730: 73 74 69 6c 6c 20 61 6c 6c 6f 63 61 74 65 64 20 still allocated
0740: 66 6f 72 20 69 74 2e 0a 20 20 20 2a 2f 0a 20 20 for it.. */.
0750: 2f 2a 20 4d 6f 76 65 20 74 68 65 20 61 72 67 75 /* Move the argu
0760: 6d 65 6e 74 73 20 70 61 73 73 65 64 20 69 6e 20 ments passed in
0770: 72 65 67 69 73 74 65 72 73 20 74 6f 20 74 68 65 registers to the
0780: 69 72 20 73 74 61 63 6b 20 6c 6f 63 61 74 69 6f ir stack locatio
0790: 6e 73 2e 20 2a 2f 0a 20 20 28 26 66 69 72 73 74 ns. */. (&first
07a0: 77 6f 72 64 29 5b 2d 38 5d 20 3d 20 77 6f 72 64 word)[-8] = word
07b0: 31 3b 0a 20 20 28 26 66 69 72 73 74 77 6f 72 64 1;. (&firstword
07c0: 29 5b 2d 37 5d 20 3d 20 77 6f 72 64 32 3b 0a 20 )[-7] = word2;.
07d0: 20 28 26 66 69 72 73 74 77 6f 72 64 29 5b 2d 36 (&firstword)[-6
07e0: 5d 20 3d 20 77 6f 72 64 33 3b 0a 20 20 28 26 66 ] = word3;. (&f
07f0: 69 72 73 74 77 6f 72 64 29 5b 2d 35 5d 20 3d 20 irstword)[-5] =
0800: 77 6f 72 64 34 3b 0a 20 20 28 26 66 69 72 73 74 word4;. (&first
0810: 77 6f 72 64 29 5b 2d 34 5d 20 3d 20 77 6f 72 64 word)[-4] = word
0820: 35 3b 0a 20 20 28 26 66 69 72 73 74 77 6f 72 64 5;. (&firstword
0830: 29 5b 2d 33 5d 20 3d 20 77 6f 72 64 36 3b 0a 20 )[-3] = word6;.
0840: 20 28 26 66 69 72 73 74 77 6f 72 64 29 5b 2d 32 (&firstword)[-2
0850: 5d 20 3d 20 77 6f 72 64 37 3b 0a 20 20 28 26 66 ] = word7;. (&f
0860: 69 72 73 74 77 6f 72 64 29 5b 2d 31 5d 20 3d 20 irstword)[-1] =
0870: 77 6f 72 64 38 3b 0a 23 65 6c 73 65 0a 20 20 2f word8;.#else. /
0880: 2a 20 4d 6f 76 65 20 74 68 65 20 61 72 67 75 6d * Move the argum
0890: 65 6e 74 73 20 70 61 73 73 65 64 20 69 6e 20 72 ents passed in r
08a0: 65 67 69 73 74 65 72 73 20 74 6f 20 74 65 6d 70 egisters to temp
08b0: 20 73 74 6f 72 61 67 65 2c 20 73 69 6e 63 65 0a storage, since.
08c0: 20 20 20 20 20 6d 6f 76 69 6e 67 20 74 68 65 6d moving them
08d0: 20 74 6f 20 74 68 65 20 73 74 61 63 6b 20 77 6f to the stack wo
08e0: 75 6c 64 20 6d 65 73 73 20 75 70 20 74 68 65 20 uld mess up the
08f0: 73 74 61 63 6b 20 2a 2f 0a 20 20 6c 69 73 74 2e stack */. list.
0900: 72 65 67 61 72 67 5b 30 5d 20 3d 20 77 6f 72 64 regarg[0] = word
0910: 31 3b 0a 20 20 6c 69 73 74 2e 72 65 67 61 72 67 1;. list.regarg
0920: 5b 31 5d 20 3d 20 77 6f 72 64 32 3b 0a 20 20 6c [1] = word2;. l
0930: 69 73 74 2e 72 65 67 61 72 67 5b 32 5d 20 3d 20 ist.regarg[2] =
0940: 77 6f 72 64 33 3b 0a 20 20 6c 69 73 74 2e 72 65 word3;. list.re
0950: 67 61 72 67 5b 33 5d 20 3d 20 77 6f 72 64 34 3b garg[3] = word4;
0960: 0a 20 20 6c 69 73 74 2e 72 65 67 61 72 67 5b 34 . list.regarg[4
0970: 5d 20 3d 20 77 6f 72 64 35 3b 0a 20 20 6c 69 73 ] = word5;. lis
0980: 74 2e 72 65 67 61 72 67 5b 35 5d 20 3d 20 77 6f t.regarg[5] = wo
0990: 72 64 36 3b 0a 20 20 6c 69 73 74 2e 72 65 67 61 rd6;. list.rega
09a0: 72 67 5b 36 5d 20 3d 20 77 6f 72 64 37 3b 0a 20 rg[6] = word7;.
09b0: 20 6c 69 73 74 2e 72 65 67 61 72 67 5b 37 5d 20 list.regarg[7]
09c0: 3d 20 77 6f 72 64 38 3b 0a 23 65 6e 64 69 66 0a = word8;.#endif.
09d0: 20 20 6c 69 73 74 2e 66 61 72 67 5b 30 5d 20 3d list.farg[0] =
09e0: 20 66 61 72 67 31 3b 0a 20 20 6c 69 73 74 2e 66 farg1;. list.f
09f0: 61 72 67 5b 31 5d 20 3d 20 66 61 72 67 32 3b 0a arg[1] = farg2;.
0a00: 20 20 6c 69 73 74 2e 66 61 72 67 5b 32 5d 20 3d list.farg[2] =
0a10: 20 66 61 72 67 33 3b 0a 20 20 6c 69 73 74 2e 66 farg3;. list.f
0a20: 61 72 67 5b 33 5d 20 3d 20 66 61 72 67 34 3b 0a arg[3] = farg4;.
0a30: 20 20 6c 69 73 74 2e 66 61 72 67 5b 34 5d 20 3d list.farg[4] =
0a40: 20 66 61 72 67 35 3b 0a 20 20 6c 69 73 74 2e 66 farg5;. list.f
0a50: 61 72 67 5b 35 5d 20 3d 20 66 61 72 67 36 3b 0a arg[5] = farg6;.
0a60: 20 20 6c 69 73 74 2e 66 61 72 67 5b 36 5d 20 3d list.farg[6] =
0a70: 20 66 61 72 67 37 3b 0a 20 20 6c 69 73 74 2e 66 farg7;. list.f
0a80: 61 72 67 5b 37 5d 20 3d 20 66 61 72 67 38 3b 0a arg[7] = farg8;.
0a90: 23 69 66 20 64 65 66 69 6e 65 64 28 5f 41 49 58 #if defined(_AIX
0aa0: 29 20 7c 7c 20 28 64 65 66 69 6e 65 64 28 5f 5f ) || (defined(__
0ab0: 4d 41 43 48 5f 5f 29 20 26 26 20 64 65 66 69 6e MACH__) && defin
0ac0: 65 64 28 5f 5f 41 50 50 4c 45 5f 5f 29 29 0a 20 ed(__APPLE__)).
0ad0: 20 6c 69 73 74 2e 66 61 72 67 5b 38 5d 20 3d 20 list.farg[8] =
0ae0: 66 61 72 67 39 3b 0a 20 20 6c 69 73 74 2e 66 61 farg9;. list.fa
0af0: 72 67 5b 39 5d 20 3d 20 66 61 72 67 31 30 3b 0a rg[9] = farg10;.
0b00: 20 20 6c 69 73 74 2e 66 61 72 67 5b 31 30 5d 20 list.farg[10]
0b10: 3d 20 66 61 72 67 31 31 3b 0a 20 20 6c 69 73 74 = farg11;. list
0b20: 2e 66 61 72 67 5b 31 31 5d 20 3d 20 66 61 72 67 .farg[11] = farg
0b30: 31 32 3b 0a 20 20 6c 69 73 74 2e 66 61 72 67 5b 12;. list.farg[
0b40: 31 32 5d 20 3d 20 66 61 72 67 31 33 3b 0a 23 65 12] = farg13;.#e
0b50: 6e 64 69 66 0a 20 20 2f 2a 20 50 72 65 70 61 72 ndif. /* Prepar
0b60: 65 20 74 68 65 20 76 61 5f 61 6c 69 73 74 2e 20 e the va_alist.
0b70: 2a 2f 0a 20 20 6c 69 73 74 2e 66 6c 61 67 73 20 */. list.flags
0b80: 3d 20 30 3b 0a 23 69 66 20 64 65 66 69 6e 65 64 = 0;.#if defined
0b90: 28 5f 41 49 58 29 20 7c 7c 20 28 64 65 66 69 6e (_AIX) || (defin
0ba0: 65 64 28 5f 5f 4d 41 43 48 5f 5f 29 20 26 26 20 ed(__MACH__) &&
0bb0: 64 65 66 69 6e 65 64 28 5f 5f 41 50 50 4c 45 5f defined(__APPLE_
0bc0: 5f 29 29 0a 20 20 6c 69 73 74 2e 61 70 74 72 20 _)). list.aptr
0bd0: 3d 20 28 6c 6f 6e 67 29 28 26 66 69 72 73 74 77 = (long)(&firstw
0be0: 6f 72 64 20 2d 20 38 29 3b 0a 23 65 6c 73 65 0a ord - 8);.#else.
0bf0: 20 20 6c 69 73 74 2e 61 70 74 72 20 3d 20 28 6c list.aptr = (l
0c00: 6f 6e 67 29 28 26 6c 69 73 74 2e 72 65 67 61 72 ong)(&list.regar
0c10: 67 5b 30 5d 29 3b 0a 20 20 6c 69 73 74 2e 73 61 g[0]);. list.sa
0c20: 70 74 72 20 3d 20 28 6c 6f 6e 67 29 28 26 66 69 ptr = (long)(&fi
0c30: 72 73 74 77 6f 72 64 29 3b 0a 20 20 6c 69 73 74 rstword);. list
0c40: 2e 6f 6e 73 74 61 63 6b 20 3d 20 30 3b 0a 23 65 .onstack = 0;.#e
0c50: 6e 64 69 66 0a 20 20 6c 69 73 74 2e 72 61 64 64 ndif. list.radd
0c60: 72 20 3d 20 28 76 6f 69 64 2a 29 30 3b 0a 20 20 r = (void*)0;.
0c70: 6c 69 73 74 2e 72 74 79 70 65 20 3d 20 5f 5f 56 list.rtype = __V
0c80: 41 76 6f 69 64 3b 0a 20 20 6c 69 73 74 2e 6d 65 Avoid;. list.me
0c90: 6d 66 61 72 67 70 74 72 20 3d 20 26 6c 69 73 74 mfargptr = &list
0ca0: 2e 66 61 72 67 5b 30 5d 3b 0a 20 20 2f 2a 20 43 .farg[0];. /* C
0cb0: 61 6c 6c 20 76 61 63 61 6c 6c 5f 66 75 6e 63 74 all vacall_funct
0cc0: 69 6f 6e 2e 20 54 68 65 20 6d 61 63 72 6f 73 20 ion. The macros
0cd0: 64 6f 20 61 6c 6c 20 74 68 65 20 72 65 73 74 2e do all the rest.
0ce0: 20 2a 2f 0a 23 69 66 6e 64 65 66 20 52 45 45 4e */.#ifndef REEN
0cf0: 54 52 41 4e 54 0a 20 20 28 2a 76 61 63 61 6c 6c TRANT. (*vacall
0d00: 5f 66 75 6e 63 74 69 6f 6e 29 20 28 26 6c 69 73 _function) (&lis
0d10: 74 29 3b 0a 23 65 6c 73 65 20 2f 2a 20 52 45 45 t);.#else /* REE
0d20: 4e 54 52 41 4e 54 20 2a 2f 0a 20 20 28 2a 65 6e NTRANT */. (*en
0d30: 76 2d 3e 76 61 63 61 6c 6c 5f 66 75 6e 63 74 69 v->vacall_functi
0d40: 6f 6e 29 20 28 65 6e 76 2d 3e 61 72 67 2c 26 6c on) (env->arg,&l
0d50: 69 73 74 29 3b 0a 23 65 6e 64 69 66 0a 20 20 2f ist);.#endif. /
0d60: 2a 20 50 75 74 20 72 65 74 75 72 6e 20 76 61 6c * Put return val
0d70: 75 65 20 69 6e 74 6f 20 70 72 6f 70 65 72 20 72 ue into proper r
0d80: 65 67 69 73 74 65 72 2e 20 2a 2f 0a 20 20 69 66 egister. */. if
0d90: 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 (list.rtype ==
0da0: 5f 5f 56 41 76 6f 69 64 29 20 7b 0a 20 20 7d 20 __VAvoid) {. }
0db0: 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e else. if (list.
0dc0: 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 63 68 61 rtype == __VAcha
0dd0: 72 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 r) {. iret =
0de0: 6c 69 73 74 2e 74 6d 70 2e 5f 63 68 61 72 3b 0a list.tmp._char;.
0df0: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
0e00: 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 ist.rtype == __V
0e10: 41 73 63 68 61 72 29 20 7b 0a 20 20 20 20 69 72 Aschar) {. ir
0e20: 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 73 et = list.tmp._s
0e30: 63 68 61 72 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 char;. } else.
0e40: 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 if (list.rtype
0e50: 3d 3d 20 5f 5f 56 41 75 63 68 61 72 29 20 7b 0a == __VAuchar) {.
0e60: 20 20 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e iret = list.
0e70: 74 6d 70 2e 5f 75 63 68 61 72 3b 0a 20 20 7d 20 tmp._uchar;. }
0e80: 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e else. if (list.
0e90: 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 73 68 6f rtype == __VAsho
0ea0: 72 74 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d rt) {. iret =
0eb0: 20 6c 69 73 74 2e 74 6d 70 2e 5f 73 68 6f 72 74 list.tmp._short
0ec0: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
0ed0: 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f (list.rtype == _
0ee0: 5f 56 41 75 73 68 6f 72 74 29 20 7b 0a 20 20 20 _VAushort) {.
0ef0: 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 iret = list.tmp
0f00: 2e 5f 75 73 68 6f 72 74 3b 0a 20 20 7d 20 65 6c ._ushort;. } el
0f10: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
0f20: 79 70 65 20 3d 3d 20 5f 5f 56 41 69 6e 74 29 20 ype == __VAint)
0f30: 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 73 {. iret = lis
0f40: 74 2e 74 6d 70 2e 5f 69 6e 74 3b 0a 20 20 7d 20 t.tmp._int;. }
0f50: 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e else. if (list.
0f60: 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 75 69 6e rtype == __VAuin
0f70: 74 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 t) {. iret =
0f80: 6c 69 73 74 2e 74 6d 70 2e 5f 75 69 6e 74 3b 0a list.tmp._uint;.
0f90: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
0fa0: 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 ist.rtype == __V
0fb0: 41 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 69 72 65 Along) {. ire
0fc0: 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 6c 6f t = list.tmp._lo
0fd0: 6e 67 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 ng;. } else. i
0fe0: 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d f (list.rtype ==
0ff0: 20 5f 5f 56 41 75 6c 6f 6e 67 29 20 7b 0a 20 20 __VAulong) {.
1000: 20 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d iret = list.tm
1010: 70 2e 5f 75 6c 6f 6e 67 3b 0a 20 20 7d 20 65 6c p._ulong;. } el
1020: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
1030: 79 70 65 20 3d 3d 20 5f 5f 56 41 6c 6f 6e 67 6c ype == __VAlongl
1040: 6f 6e 67 20 7c 7c 20 6c 69 73 74 2e 72 74 79 70 ong || list.rtyp
1050: 65 20 3d 3d 20 5f 5f 56 41 75 6c 6f 6e 67 6c 6f e == __VAulonglo
1060: 6e 67 29 20 7b 0a 20 20 20 20 69 72 65 74 20 20 ng) {. iret
1070: 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a 29 20 = ((__vaword *)
1080: 26 6c 69 73 74 2e 74 6d 70 2e 5f 6c 6f 6e 67 6c &list.tmp._longl
1090: 6f 6e 67 29 5b 30 5d 3b 0a 20 20 20 20 69 72 65 ong)[0];. ire
10a0: 74 32 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 t2 = ((__vaword
10b0: 2a 29 20 26 6c 69 73 74 2e 74 6d 70 2e 5f 6c 6f *) &list.tmp._lo
10c0: 6e 67 6c 6f 6e 67 29 5b 31 5d 3b 0a 20 20 7d 20 nglong)[1];. }
10d0: 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e else. if (list.
10e0: 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 66 6c 6f rtype == __VAflo
10f0: 61 74 29 20 7b 0a 20 20 20 20 66 72 65 74 20 3d at) {. fret =
1100: 20 6c 69 73 74 2e 74 6d 70 2e 5f 66 6c 6f 61 74 list.tmp._float
1110: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
1120: 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f (list.rtype == _
1130: 5f 56 41 64 6f 75 62 6c 65 29 20 7b 0a 20 20 20 _VAdouble) {.
1140: 20 64 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 dret = list.tmp
1150: 2e 5f 64 6f 75 62 6c 65 3b 0a 20 20 7d 20 65 6c ._double;. } el
1160: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
1170: 79 70 65 20 3d 3d 20 5f 5f 56 41 76 6f 69 64 70 ype == __VAvoidp
1180: 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 28 ) {. iret = (
1190: 6c 6f 6e 67 29 6c 69 73 74 2e 74 6d 70 2e 5f 70 long)list.tmp._p
11a0: 74 72 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 tr;. } else. i
11b0: 66 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d f (list.rtype ==
11c0: 20 5f 5f 56 41 73 74 72 75 63 74 29 20 7b 0a 20 __VAstruct) {.
11d0: 20 20 20 69 66 20 28 6c 69 73 74 2e 66 6c 61 67 if (list.flag
11e0: 73 20 26 20 5f 5f 56 41 5f 50 43 43 5f 53 54 52 s & __VA_PCC_STR
11f0: 55 43 54 5f 52 45 54 55 52 4e 29 20 7b 0a 20 20 UCT_RETURN) {.
1200: 20 20 20 20 2f 2a 20 70 63 63 20 73 74 72 75 63 /* pcc struc
1210: 74 20 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 t return convent
1220: 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 69 72 65 ion */. ire
1230: 74 20 3d 20 28 6c 6f 6e 67 29 20 6c 69 73 74 2e t = (long) list.
1240: 72 61 64 64 72 3b 0a 20 20 20 20 7d 20 65 6c 73 raddr;. } els
1250: 65 20 7b 0a 20 20 20 20 20 20 2f 2a 20 6e 6f 72 e {. /* nor
1260: 6d 61 6c 20 73 74 72 75 63 74 20 72 65 74 75 72 mal struct retur
1270: 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 2a 2f 0a n convention */.
1280: 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e 66 if (list.f
1290: 6c 61 67 73 20 26 20 5f 5f 56 41 5f 52 45 47 49 lags & __VA_REGI
12a0: 53 54 45 52 5f 53 54 52 55 43 54 5f 52 45 54 55 STER_STRUCT_RETU
12b0: 52 4e 29 20 7b 0a 20 20 20 20 20 20 20 20 69 66 RN) {. if
12c0: 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 (list.rsize ==
12d0: 73 69 7a 65 6f 66 28 63 68 61 72 29 29 20 7b 0a sizeof(char)) {.
12e0: 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 3d iret =
12f0: 20 2a 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 *(unsigned char
1300: 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 3b 0a *) list.raddr;.
1310: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 } else.
1320: 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 74 2e if (list.
1330: 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 rsize == sizeof(
1340: 73 68 6f 72 74 29 29 20 7b 0a 20 20 20 20 20 20 short)) {.
1350: 20 20 20 20 69 72 65 74 20 3d 20 2a 28 75 6e 73 iret = *(uns
1360: 69 67 6e 65 64 20 73 68 6f 72 74 20 2a 29 20 6c igned short *) l
1370: 69 73 74 2e 72 61 64 64 72 3b 0a 20 20 20 20 20 ist.raddr;.
1380: 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 } else.
1390: 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 if (list.rsize
13a0: 20 3d 3d 20 73 69 7a 65 6f 66 28 69 6e 74 29 29 == sizeof(int))
13b0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 69 72 65 {. ire
13c0: 74 20 3d 20 2a 28 75 6e 73 69 67 6e 65 64 20 69 t = *(unsigned i
13d0: 6e 74 20 2a 29 20 6c 69 73 74 2e 72 61 64 64 72 nt *) list.raddr
13e0: 3b 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 ;. } else
13f0: 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 . if (lis
1400: 74 2e 72 73 69 7a 65 20 3d 3d 20 32 2a 73 69 7a t.rsize == 2*siz
1410: 65 6f 66 28 5f 5f 76 61 77 6f 72 64 29 29 20 7b eof(__vaword)) {
1420: 0a 20 20 20 20 20 20 20 20 20 20 69 72 65 74 20 . iret
1430: 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a 29 = ((__vaword *)
1440: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d 3b list.raddr)[0];
1450: 0a 20 20 20 20 20 20 20 20 20 20 69 72 65 74 32 . iret2
1460: 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a 29 = ((__vaword *)
1470: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 5d 3b list.raddr)[1];
1480: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 . }.
1490: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 7d 0a }. }. }.}.