Artifact
de0938c40eae72d20ff6685cf126aaa652edf87d:
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 68 70 70 61 20 43 50 55 20 on for hppa CPU
0020: 2a 2f 0a 0a 2f 2a 0a 20 2a 20 43 6f 70 79 72 69 */../*. * Copyri
0030: 67 68 74 20 31 39 39 35 2d 32 30 30 34 20 42 72 ght 1995-2004 Br
0040: 75 6e 6f 20 48 61 69 62 6c 65 2c 20 3c 62 72 75 uno Haible, <bru
0050: 6e 6f 40 63 6c 69 73 70 2e 6f 72 67 3e 0a 20 2a no@clisp.org>. *
0060: 0a 20 2a 20 54 68 69 73 20 69 73 20 66 72 65 65 . * This is free
0070: 20 73 6f 66 74 77 61 72 65 20 64 69 73 74 72 69 software distri
0080: 62 75 74 65 64 20 75 6e 64 65 72 20 74 68 65 20 buted under the
0090: 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 6c GNU General Publ
00a0: 69 63 20 4c 69 63 65 6e 63 65 0a 20 2a 20 64 65 ic Licence. * de
00b0: 73 63 72 69 62 65 64 20 69 6e 20 74 68 65 20 66 scribed in the f
00c0: 69 6c 65 20 43 4f 50 59 49 4e 47 2e 20 43 6f 6e ile COPYING. Con
00d0: 74 61 63 74 20 74 68 65 20 61 75 74 68 6f 72 20 tact the author
00e0: 69 66 20 79 6f 75 20 64 6f 6e 27 74 20 68 61 76 if you don't hav
00f0: 65 20 74 68 69 73 0a 20 2a 20 6f 72 20 63 61 6e e this. * or can
0100: 27 74 20 6c 69 76 65 20 77 69 74 68 20 69 74 2e 't live with it.
0110: 20 54 68 65 72 65 20 69 73 20 41 42 53 4f 4c 55 There is ABSOLU
0120: 54 45 4c 59 20 4e 4f 20 57 41 52 52 41 4e 54 59 TELY NO WARRANTY
0130: 2c 20 65 78 70 6c 69 63 69 74 20 6f 72 20 69 6d , explicit or im
0140: 70 6c 69 65 64 2c 0a 20 2a 20 6f 6e 20 74 68 69 plied,. * on thi
0150: 73 20 73 6f 66 74 77 61 72 65 2e 0a 20 2a 2f 0a s software.. */.
0160: 0a 2f 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ./*-------------
0170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0180: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0190: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 --------------.
01b0: 20 48 50 50 41 20 41 72 67 75 6d 65 6e 74 20 50 HPPA Argument P
01c0: 61 73 73 69 6e 67 20 43 6f 6e 76 65 6e 74 69 6f assing Conventio
01d0: 6e 73 3a 0a 0a 20 20 54 68 65 20 63 61 6c 6c 69 ns:.. The calli
01e0: 6e 67 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 20 66 ng conventions f
01f0: 6f 72 20 61 6e 6f 6e 79 6d 6f 75 73 20 66 75 6e or anonymous fun
0200: 63 74 69 6f 6e 73 20 61 6e 64 20 66 6f 72 20 65 ctions and for e
0210: 78 70 6c 69 63 69 74 6c 79 20 6e 61 6d 65 64 0a xplicitly named.
0220: 20 20 66 75 6e 63 74 69 6f 6e 73 20 61 72 65 20 functions are
0230: 64 69 66 66 65 72 65 6e 74 2e 20 4f 6e 6c 79 20 different. Only
0240: 74 68 65 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 66 the convention f
0250: 6f 72 20 65 78 70 6c 69 63 69 74 6c 79 20 6e 61 or explicitly na
0260: 6d 65 64 20 66 75 6e 63 74 69 6f 6e 73 0a 20 20 med functions.
0270: 6d 61 74 74 65 72 73 20 68 65 72 65 2e 0a 0a 20 matters here...
0280: 20 41 6c 6c 20 61 72 67 75 6d 65 6e 74 73 2c 20 All arguments,
0290: 65 78 63 65 70 74 20 74 68 65 20 66 69 72 73 74 except the first
02a0: 20 34 20 77 6f 72 64 73 2c 20 61 72 65 20 70 61 4 words, are pa
02b0: 73 73 65 64 20 6f 6e 20 74 68 65 20 73 74 61 63 ssed on the stac
02c0: 6b 0a 20 20 2d 20 67 72 6f 77 69 6e 67 20 64 6f k. - growing do
02d0: 77 6e 21 20 2d 20 77 69 74 68 20 77 6f 72 64 20 wn! - with word
02e0: 61 6c 69 67 6e 6d 65 6e 74 2e 20 44 6f 75 62 6c alignment. Doubl
02f0: 65 73 20 74 61 6b 65 20 74 77 6f 20 77 6f 72 64 es take two word
0300: 73 20 61 6e 64 20 66 6f 72 63 65 0a 20 20 64 6f s and force. do
0310: 75 62 6c 65 20 61 6c 69 67 6e 6d 65 6e 74 2e 20 uble alignment.
0320: 53 74 72 75 63 74 75 72 65 73 20 61 72 67 73 20 Structures args
0330: 61 72 65 20 70 61 73 73 65 64 20 61 73 20 74 72 are passed as tr
0340: 75 65 20 73 74 72 75 63 74 75 72 65 73 20 65 6d ue structures em
0350: 62 65 64 64 65 64 0a 20 20 69 6e 20 74 68 65 20 bedded. in the
0360: 61 72 67 75 6d 65 6e 74 20 73 74 61 63 6b 2e 20 argument stack.
0370: 54 68 65 79 20 66 6f 72 63 65 20 64 6f 75 62 6c They force doubl
0380: 65 20 61 6c 69 67 6e 6d 65 6e 74 20 61 6e 64 20 e alignment and
0390: 2d 20 69 66 20 74 68 65 79 20 64 6f 6e 27 74 0a - if they don't.
03a0: 20 20 66 69 74 20 65 6e 74 69 72 65 6c 79 20 69 fit entirely i
03b0: 6e 20 74 68 65 20 34 20 72 65 67 69 73 74 65 72 n the 4 register
03c0: 20 77 6f 72 64 73 20 2d 20 61 72 65 20 70 61 73 words - are pas
03d0: 73 65 64 20 69 6e 20 6d 65 6d 6f 72 79 2e 0a 20 sed in memory..
03e0: 20 54 68 65 20 66 69 72 73 74 20 32 20 77 6f 72 The first 2 wor
03f0: 64 73 20 61 72 65 20 70 61 73 73 65 64 20 6c 69 ds are passed li
0400: 6b 65 20 74 68 69 73 3a 0a 20 20 20 20 25 72 32 ke this:. %r2
0410: 36 20 3d 20 66 69 72 73 74 20 69 6e 74 65 67 65 6 = first intege
0420: 72 20 61 72 67 2c 20 25 72 32 35 20 3d 20 73 65 r arg, %r25 = se
0430: 63 6f 6e 64 20 69 6e 74 65 67 65 72 20 61 72 67 cond integer arg
0440: 2c 20 6f 72 0a 20 20 20 20 25 66 72 34 4c 20 3d , or. %fr4L =
0450: 20 66 69 72 73 74 20 66 6c 6f 61 74 20 61 72 67 first float arg
0460: 2c 20 25 66 72 35 4c 20 3d 20 73 65 63 6f 6e 64 , %fr5L = second
0470: 20 66 6c 6f 61 74 20 61 72 67 2c 20 6f 72 0a 20 float arg, or.
0480: 20 20 20 25 66 72 35 20 3d 20 64 6f 75 62 6c 65 %fr5 = double
0490: 20 61 72 67 2e 0a 20 20 53 69 6d 69 6c 61 72 6c arg.. Similarl
04a0: 79 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 32 y for the next 2
04b0: 20 77 6f 72 64 73 2c 20 70 61 73 73 65 64 20 69 words, passed i
04c0: 6e 20 25 72 32 34 20 61 6e 64 20 25 72 32 33 2c n %r24 and %r23,
04d0: 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 or.
04e0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
04f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0500: 25 66 72 36 4c 20 61 6e 64 20 25 66 72 37 4c 2c %fr6L and %fr7L,
0510: 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 or.
0520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0540: 25 66 72 37 2e 0a 0a 20 20 54 6f 20 72 65 74 75 %fr7... To retu
0550: 72 6e 20 61 20 73 74 72 75 63 74 75 72 65 2c 20 rn a structure,
0560: 74 68 65 20 63 61 6c 6c 65 64 20 66 75 6e 63 74 the called funct
0570: 69 6f 6e 20 63 6f 70 69 65 73 20 74 68 65 20 72 ion copies the r
0580: 65 74 75 72 6e 20 76 61 6c 75 65 20 74 6f 0a 20 eturn value to.
0590: 20 74 68 65 20 61 64 64 72 65 73 73 20 73 75 70 the address sup
05a0: 70 6c 69 65 64 20 69 6e 20 72 65 67 69 73 74 65 plied in registe
05b0: 72 20 22 25 72 32 38 22 2e 0a 2d 2d 2d 2d 2d 2d r "%r28"..------
05c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
05f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0600: 2d 2d 2d 2d 2d 2a 2f 0a 0a 23 69 66 6e 64 65 66 -----*/..#ifndef
0610: 20 52 45 45 4e 54 52 41 4e 54 0a 23 69 6e 63 6c REENTRANT.#incl
0620: 75 64 65 20 22 76 61 63 61 6c 6c 2e 68 2e 69 6e ude "vacall.h.in
0630: 22 0a 23 65 6c 73 65 20 2f 2a 20 52 45 45 4e 54 ".#else /* REENT
0640: 52 41 4e 54 20 2a 2f 0a 23 69 6e 63 6c 75 64 65 RANT */.#include
0650: 20 22 76 61 63 61 6c 6c 5f 72 2e 68 2e 69 6e 22 "vacall_r.h.in"
0660: 0a 23 65 6e 64 69 66 0a 0a 23 69 66 64 65 66 20 .#endif..#ifdef
0670: 52 45 45 4e 54 52 41 4e 54 0a 23 64 65 66 69 6e REENTRANT.#defin
0680: 65 20 5f 5f 76 61 63 61 6c 6c 20 5f 5f 76 61 63 e __vacall __vac
0690: 61 6c 6c 5f 72 0a 72 65 67 69 73 74 65 72 20 73 all_r.register s
06a0: 74 72 75 63 74 20 7b 20 76 6f 69 64 20 28 2a 76 truct { void (*v
06b0: 61 63 61 6c 6c 5f 66 75 6e 63 74 69 6f 6e 29 20 acall_function)
06c0: 28 76 6f 69 64 2a 2c 76 61 5f 61 6c 69 73 74 29 (void*,va_alist)
06d0: 3b 20 76 6f 69 64 2a 20 61 72 67 3b 20 7d 0a 20 ; void* arg; }.
06e0: 20 20 20 20 20 20 20 20 2a 09 65 6e 76 09 5f 5f *.env.__
06f0: 61 73 6d 5f 5f 28 22 25 72 32 39 22 29 3b 0a 23 asm__("%r29");.#
0700: 65 6e 64 69 66 0a 72 65 67 69 73 74 65 72 20 76 endif.register v
0710: 6f 69 64 2a 09 73 72 65 74 09 5f 5f 61 73 6d 5f oid*.sret.__asm_
0720: 5f 28 22 25 72 32 38 22 29 3b 0a 72 65 67 69 73 _("%r28");.regis
0730: 74 65 72 20 6c 6f 6e 67 20 20 20 61 72 67 31 09 ter long arg1.
0740: 5f 5f 61 73 6d 5f 5f 28 22 25 72 32 36 22 29 3b __asm__("%r26");
0750: 0a 72 65 67 69 73 74 65 72 20 6c 6f 6e 67 20 20 .register long
0760: 20 61 72 67 32 09 5f 5f 61 73 6d 5f 5f 28 22 25 arg2.__asm__("%
0770: 72 32 35 22 29 3b 0a 72 65 67 69 73 74 65 72 20 r25");.register
0780: 6c 6f 6e 67 20 20 20 61 72 67 33 09 5f 5f 61 73 long arg3.__as
0790: 6d 5f 5f 28 22 25 72 32 34 22 29 3b 0a 72 65 67 m__("%r24");.reg
07a0: 69 73 74 65 72 20 6c 6f 6e 67 20 20 20 61 72 67 ister long arg
07b0: 34 09 5f 5f 61 73 6d 5f 5f 28 22 25 72 32 33 22 4.__asm__("%r23"
07c0: 29 3b 0a 72 65 67 69 73 74 65 72 20 66 6c 6f 61 );.register floa
07d0: 74 20 20 66 61 72 67 31 09 5f 5f 61 73 6d 5f 5f t farg1.__asm__
07e0: 28 22 25 66 72 34 22 29 3b 20 2f 2a 20 66 72 34 ("%fr4"); /* fr4
07f0: 4c 20 2a 2f 0a 72 65 67 69 73 74 65 72 20 66 6c L */.register fl
0800: 6f 61 74 20 20 66 61 72 67 32 09 5f 5f 61 73 6d oat farg2.__asm
0810: 5f 5f 28 22 25 66 72 35 22 29 3b 20 2f 2a 20 66 __("%fr5"); /* f
0820: 72 35 4c 20 2a 2f 0a 72 65 67 69 73 74 65 72 20 r5L */.register
0830: 66 6c 6f 61 74 20 20 66 61 72 67 33 09 5f 5f 61 float farg3.__a
0840: 73 6d 5f 5f 28 22 25 66 72 36 22 29 3b 20 2f 2a sm__("%fr6"); /*
0850: 20 66 72 36 4c 20 2a 2f 0a 72 65 67 69 73 74 65 fr6L */.registe
0860: 72 20 66 6c 6f 61 74 20 20 66 61 72 67 34 09 5f r float farg4._
0870: 5f 61 73 6d 5f 5f 28 22 25 66 72 37 22 29 3b 20 _asm__("%fr7");
0880: 2f 2a 20 66 72 37 4c 20 2a 2f 0a 72 65 67 69 73 /* fr7L */.regis
0890: 74 65 72 20 64 6f 75 62 6c 65 20 64 61 72 67 31 ter double darg1
08a0: 09 5f 5f 61 73 6d 5f 5f 28 22 25 66 72 35 22 29 .__asm__("%fr5")
08b0: 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c ;.register doubl
08c0: 65 20 64 61 72 67 32 09 5f 5f 61 73 6d 5f 5f 28 e darg2.__asm__(
08d0: 22 25 66 72 37 22 29 3b 0a 72 65 67 69 73 74 65 "%fr7");.registe
08e0: 72 20 69 6e 74 09 69 72 65 74 09 5f 5f 61 73 6d r int.iret.__asm
08f0: 5f 5f 28 22 25 72 32 38 22 29 3b 0a 72 65 67 69 __("%r28");.regi
0900: 73 74 65 72 20 66 6c 6f 61 74 09 66 72 65 74 09 ster float.fret.
0910: 5f 5f 61 73 6d 5f 5f 28 22 25 66 72 34 22 29 3b __asm__("%fr4");
0920: 20 2f 2a 20 66 72 34 4c 20 2a 2f 0a 72 65 67 69 /* fr4L */.regi
0930: 73 74 65 72 20 64 6f 75 62 6c 65 09 64 72 65 74 ster double.dret
0940: 09 5f 5f 61 73 6d 5f 5f 28 22 25 66 72 34 22 29 .__asm__("%fr4")
0950: 3b 0a 72 65 67 69 73 74 65 72 20 5f 5f 76 61 77 ;.register __vaw
0960: 6f 72 64 20 69 72 65 74 31 09 5f 5f 61 73 6d 5f ord iret1.__asm_
0970: 5f 28 22 25 72 32 38 22 29 3b 0a 72 65 67 69 73 _("%r28");.regis
0980: 74 65 72 20 5f 5f 76 61 77 6f 72 64 20 69 72 65 ter __vaword ire
0990: 74 32 09 5f 5f 61 73 6d 5f 5f 28 22 25 72 32 39 t2.__asm__("%r29
09a0: 22 29 3b 0a 0a 76 6f 69 64 20 2f 2a 20 74 68 65 ");..void /* the
09b0: 20 72 65 74 75 72 6e 20 74 79 70 65 20 69 73 20 return type is
09c0: 76 61 72 69 61 62 6c 65 2c 20 6e 6f 74 20 76 6f variable, not vo
09d0: 69 64 21 20 2a 2f 0a 5f 5f 76 61 63 61 6c 6c 20 id! */.__vacall
09e0: 28 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 31 2c (__vaword word1,
09f0: 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 32 2c __vaword word2,
0a00: 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 33 2c __vaword word3,
0a10: 20 5f 5f 76 61 77 6f 72 64 20 77 6f 72 64 34 2c __vaword word4,
0a20: 0a 20 20 20 20 20 20 20 20 20 20 5f 5f 76 61 77 . __vaw
0a30: 6f 72 64 20 66 69 72 73 74 77 6f 72 64 29 0a 7b ord firstword).{
0a40: 0a 20 20 2f 2a 20 67 63 63 2d 32 2e 36 2e 33 20 . /* gcc-2.6.3
0a50: 73 6f 75 72 63 65 20 73 61 79 73 3a 20 57 68 65 source says: Whe
0a60: 6e 20 61 20 70 61 72 61 6d 65 74 65 72 20 69 73 n a parameter is
0a70: 20 70 61 73 73 65 64 20 69 6e 20 61 20 72 65 67 passed in a reg
0a80: 69 73 74 65 72 2c 0a 20 20 20 2a 20 73 74 61 63 ister,. * stac
0a90: 6b 20 73 70 61 63 65 20 69 73 20 73 74 69 6c 6c k space is still
0aa0: 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f 72 20 69 allocated for i
0ab0: 74 2e 0a 20 20 20 2a 2f 0a 20 20 2f 2a 20 4e 6f t.. */. /* No
0ac0: 74 65 20 61 62 6f 75 74 20 73 74 61 63 6b 20 6f te about stack o
0ad0: 66 66 73 65 74 73 20 28 73 65 65 20 76 61 63 61 ffsets (see vaca
0ae0: 6c 6c 2d 68 70 70 61 2e 73 29 3a 0a 20 20 20 2a ll-hppa.s):. *
0af0: 20 26 66 69 72 73 74 77 6f 72 64 20 3d 20 25 72 &firstword = %r
0b00: 33 30 20 2d 20 32 34 34 2c 20 26 77 6f 72 64 34 30 - 244, &word4
0b10: 20 3d 20 25 72 33 30 20 2d 20 32 34 30 2c 20 2e = %r30 - 240, .
0b20: 2e 2e 2c 20 26 77 6f 72 64 31 20 3d 20 25 72 33 .., &word1 = %r3
0b30: 30 20 2d 20 32 32 38 2c 0a 20 20 20 2a 2f 0a 20 0 - 228,. */.
0b40: 20 5f 5f 76 61 5f 61 6c 69 73 74 20 6c 69 73 74 __va_alist list
0b50: 3b 0a 20 20 2f 2a 20 4d 6f 76 65 20 74 68 65 20 ;. /* Move the
0b60: 61 72 67 75 6d 65 6e 74 73 20 70 61 73 73 65 64 arguments passed
0b70: 20 69 6e 20 72 65 67 69 73 74 65 72 73 20 74 6f in registers to
0b80: 20 74 68 65 69 72 20 73 74 61 63 6b 20 6c 6f 63 their stack loc
0b90: 61 74 69 6f 6e 73 2e 20 2a 2f 0a 20 20 26 77 6f ations. */. &wo
0ba0: 72 64 31 3b 20 2f 2a 20 28 26 66 69 72 73 74 77 rd1; /* (&firstw
0bb0: 6f 72 64 29 5b 34 5d 20 3d 20 77 6f 72 64 31 3b ord)[4] = word1;
0bc0: 20 2a 2f 0a 20 20 26 77 6f 72 64 32 3b 20 2f 2a */. &word2; /*
0bd0: 20 28 26 66 69 72 73 74 77 6f 72 64 29 5b 33 5d (&firstword)[3]
0be0: 20 3d 20 77 6f 72 64 32 3b 20 2a 2f 0a 20 20 26 = word2; */. &
0bf0: 77 6f 72 64 33 3b 20 2f 2a 20 28 26 66 69 72 73 word3; /* (&firs
0c00: 74 77 6f 72 64 29 5b 32 5d 20 3d 20 77 6f 72 64 tword)[2] = word
0c10: 33 3b 20 2a 2f 0a 20 20 26 77 6f 72 64 34 3b 20 3; */. &word4;
0c20: 2f 2a 20 28 26 66 69 72 73 74 77 6f 72 64 29 5b /* (&firstword)[
0c30: 31 5d 20 3d 20 77 6f 72 64 34 3b 20 2a 2f 0a 20 1] = word4; */.
0c40: 20 6c 69 73 74 2e 64 61 72 67 5b 31 5d 20 3d 20 list.darg[1] =
0c50: 64 61 72 67 31 3b 0a 20 20 6c 69 73 74 2e 64 61 darg1;. list.da
0c60: 72 67 5b 30 5d 20 3d 20 64 61 72 67 32 3b 0a 20 rg[0] = darg2;.
0c70: 20 6c 69 73 74 2e 66 61 72 67 5b 33 5d 20 3d 20 list.farg[3] =
0c80: 66 61 72 67 31 3b 0a 20 20 6c 69 73 74 2e 66 61 farg1;. list.fa
0c90: 72 67 5b 32 5d 20 3d 20 66 61 72 67 32 3b 0a 20 rg[2] = farg2;.
0ca0: 20 6c 69 73 74 2e 66 61 72 67 5b 31 5d 20 3d 20 list.farg[1] =
0cb0: 66 61 72 67 33 3b 0a 20 20 6c 69 73 74 2e 66 61 farg3;. list.fa
0cc0: 72 67 5b 30 5d 20 3d 20 66 61 72 67 34 3b 0a 20 rg[0] = farg4;.
0cd0: 20 2f 2a 20 50 72 65 70 61 72 65 20 74 68 65 20 /* Prepare the
0ce0: 76 61 5f 61 6c 69 73 74 2e 20 2a 2f 0a 20 20 6c va_alist. */. l
0cf0: 69 73 74 2e 66 6c 61 67 73 20 3d 20 30 3b 0a 20 ist.flags = 0;.
0d00: 20 6c 69 73 74 2e 61 70 74 72 20 3d 20 28 6c 6f list.aptr = (lo
0d10: 6e 67 29 28 26 66 69 72 73 74 77 6f 72 64 20 2b ng)(&firstword +
0d20: 20 35 29 3b 0a 20 20 6c 69 73 74 2e 72 61 64 64 5);. list.radd
0d30: 72 20 3d 20 28 76 6f 69 64 2a 29 30 3b 0a 20 20 r = (void*)0;.
0d40: 6c 69 73 74 2e 72 74 79 70 65 20 3d 20 5f 5f 56 list.rtype = __V
0d50: 41 76 6f 69 64 3b 0a 20 20 6c 69 73 74 2e 73 74 Avoid;. list.st
0d60: 72 75 63 74 72 61 64 64 72 20 3d 20 73 72 65 74 ructraddr = sret
0d70: 3b 0a 20 20 6c 69 73 74 2e 6d 65 6d 61 72 67 70 ;. list.memargp
0d80: 74 72 20 3d 20 28 6c 6f 6e 67 29 28 26 66 69 72 tr = (long)(&fir
0d90: 73 74 77 6f 72 64 20 2b 20 31 29 3b 0a 20 20 6c stword + 1);. l
0da0: 69 73 74 2e 66 61 72 67 5f 6f 66 66 73 65 74 20 ist.farg_offset
0db0: 3d 20 28 6c 6f 6e 67 29 26 6c 69 73 74 2e 66 61 = (long)&list.fa
0dc0: 72 67 5b 34 5d 20 2d 20 6c 69 73 74 2e 61 70 74 rg[4] - list.apt
0dd0: 72 3b 0a 20 20 6c 69 73 74 2e 64 61 72 67 5f 6f r;. list.darg_o
0de0: 66 66 73 65 74 20 3d 20 28 6c 6f 6e 67 29 26 6c ffset = (long)&l
0df0: 69 73 74 2e 64 61 72 67 5b 32 5d 20 2d 20 6c 69 ist.darg[2] - li
0e00: 73 74 2e 61 70 74 72 3b 0a 20 20 2f 2a 20 43 61 st.aptr;. /* Ca
0e10: 6c 6c 20 76 61 63 61 6c 6c 5f 66 75 6e 63 74 69 ll vacall_functi
0e20: 6f 6e 2e 20 54 68 65 20 6d 61 63 72 6f 73 20 64 on. The macros d
0e30: 6f 20 61 6c 6c 20 74 68 65 20 72 65 73 74 2e 20 o all the rest.
0e40: 2a 2f 0a 23 69 66 6e 64 65 66 20 52 45 45 4e 54 */.#ifndef REENT
0e50: 52 41 4e 54 0a 20 20 28 2a 76 61 63 61 6c 6c 5f RANT. (*vacall_
0e60: 66 75 6e 63 74 69 6f 6e 29 20 28 26 6c 69 73 74 function) (&list
0e70: 29 3b 0a 23 65 6c 73 65 20 2f 2a 20 52 45 45 4e );.#else /* REEN
0e80: 54 52 41 4e 54 20 2a 2f 0a 20 20 28 2a 65 6e 76 TRANT */. (*env
0e90: 2d 3e 76 61 63 61 6c 6c 5f 66 75 6e 63 74 69 6f ->vacall_functio
0ea0: 6e 29 20 28 65 6e 76 2d 3e 61 72 67 2c 26 6c 69 n) (env->arg,&li
0eb0: 73 74 29 3b 0a 23 65 6e 64 69 66 0a 20 20 2f 2a st);.#endif. /*
0ec0: 20 50 75 74 20 72 65 74 75 72 6e 20 76 61 6c 75 Put return valu
0ed0: 65 20 69 6e 74 6f 20 70 72 6f 70 65 72 20 72 65 e into proper re
0ee0: 67 69 73 74 65 72 2e 20 2a 2f 0a 20 20 69 66 20 gister. */. if
0ef0: 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f (list.rtype == _
0f00: 5f 56 41 76 6f 69 64 29 20 7b 0a 20 20 7d 20 65 _VAvoid) {. } e
0f10: 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 lse. if (list.r
0f20: 74 79 70 65 20 3d 3d 20 5f 5f 56 41 63 68 61 72 type == __VAchar
0f30: 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c ) {. iret = l
0f40: 69 73 74 2e 74 6d 70 2e 5f 63 68 61 72 3b 0a 20 ist.tmp._char;.
0f50: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 } else. if (li
0f60: 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 st.rtype == __VA
0f70: 73 63 68 61 72 29 20 7b 0a 20 20 20 20 69 72 65 schar) {. ire
0f80: 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 73 63 t = list.tmp._sc
0f90: 68 61 72 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 har;. } 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 63 68 61 72 29 20 7b 0a 20 = __VAuchar) {.
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 63 68 61 72 3b 0a 20 20 7d 20 65 mp._uchar;. } 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 73 68 6f 72 type == __VAshor
1000: 74 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 t) {. iret =
1010: 6c 69 73 74 2e 74 6d 70 2e 5f 73 68 6f 72 74 3b list.tmp._short;
1020: 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 . } else. if (
1030: 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f list.rtype == __
1040: 56 41 75 73 68 6f 72 74 29 20 7b 0a 20 20 20 20 VAushort) {.
1050: 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 2e iret = list.tmp.
1060: 5f 75 73 68 6f 72 74 3b 0a 20 20 7d 20 65 6c 73 _ushort;. } els
1070: 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 e. if (list.rty
1080: 70 65 20 3d 3d 20 5f 5f 56 41 69 6e 74 29 20 7b pe == __VAint) {
1090: 0a 20 20 20 20 69 72 65 74 20 3d 20 6c 69 73 74 . iret = list
10a0: 2e 74 6d 70 2e 5f 69 6e 74 3b 0a 20 20 7d 20 65 .tmp._int;. } e
10b0: 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 lse. if (list.r
10c0: 74 79 70 65 20 3d 3d 20 5f 5f 56 41 75 69 6e 74 type == __VAuint
10d0: 29 20 7b 0a 20 20 20 20 69 72 65 74 20 3d 20 6c ) {. iret = l
10e0: 69 73 74 2e 74 6d 70 2e 5f 75 69 6e 74 3b 0a 20 ist.tmp._uint;.
10f0: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 69 } else. if (li
1100: 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 41 st.rtype == __VA
1110: 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 69 72 65 74 long) {. iret
1120: 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 6c 6f 6e = list.tmp._lon
1130: 67 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 g;. } else. if
1140: 20 28 6c 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 (list.rtype ==
1150: 5f 5f 56 41 75 6c 6f 6e 67 29 20 7b 0a 20 20 20 __VAulong) {.
1160: 20 69 72 65 74 20 3d 20 6c 69 73 74 2e 74 6d 70 iret = list.tmp
1170: 2e 5f 75 6c 6f 6e 67 3b 0a 20 20 7d 20 65 6c 73 ._ulong;. } els
1180: 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 e. if (list.rty
1190: 70 65 20 3d 3d 20 5f 5f 56 41 6c 6f 6e 67 6c 6f pe == __VAlonglo
11a0: 6e 67 20 7c 7c 20 6c 69 73 74 2e 72 74 79 70 65 ng || list.rtype
11b0: 20 3d 3d 20 5f 5f 56 41 75 6c 6f 6e 67 6c 6f 6e == __VAulonglon
11c0: 67 29 20 7b 0a 20 20 20 20 69 72 65 74 31 20 3d g) {. iret1 =
11d0: 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a 29 20 26 ((__vaword *) &
11e0: 6c 69 73 74 2e 74 6d 70 2e 5f 6c 6f 6e 67 6c 6f list.tmp._longlo
11f0: 6e 67 29 5b 30 5d 3b 0a 20 20 20 20 69 72 65 74 ng)[0];. iret
1200: 32 20 3d 20 28 28 5f 5f 76 61 77 6f 72 64 20 2a 2 = ((__vaword *
1210: 29 20 26 6c 69 73 74 2e 74 6d 70 2e 5f 6c 6f 6e ) &list.tmp._lon
1220: 67 6c 6f 6e 67 29 5b 31 5d 3b 0a 20 20 7d 20 65 glong)[1];. } e
1230: 6c 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 lse. if (list.r
1240: 74 79 70 65 20 3d 3d 20 5f 5f 56 41 66 6c 6f 61 type == __VAfloa
1250: 74 29 20 7b 0a 20 20 20 20 66 72 65 74 20 3d 20 t) {. fret =
1260: 6c 69 73 74 2e 74 6d 70 2e 5f 66 6c 6f 61 74 3b list.tmp._float;
1270: 0a 20 20 20 20 69 72 65 74 31 20 3d 20 6c 69 73 . iret1 = lis
1280: 74 2e 74 6d 70 2e 5f 77 6f 72 64 73 5b 30 5d 3b t.tmp._words[0];
1290: 20 2f 2a 20 48 50 20 63 63 20 67 65 6e 65 72 61 /* HP cc genera
12a0: 74 65 73 20 61 20 52 54 4e 56 41 4c 3d 47 52 20 tes a RTNVAL=GR
12b0: 63 61 6c 6c 20 2a 2f 0a 20 20 7d 20 65 6c 73 65 call */. } else
12c0: 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 79 70 . if (list.rtyp
12d0: 65 20 3d 3d 20 5f 5f 56 41 64 6f 75 62 6c 65 29 e == __VAdouble)
12e0: 20 7b 0a 20 20 20 20 64 72 65 74 20 3d 20 6c 69 {. dret = li
12f0: 73 74 2e 74 6d 70 2e 5f 64 6f 75 62 6c 65 3b 0a st.tmp._double;.
1300: 20 20 20 20 69 72 65 74 31 20 3d 20 6c 69 73 74 iret1 = list
1310: 2e 74 6d 70 2e 5f 77 6f 72 64 73 5b 30 5d 3b 20 .tmp._words[0];
1320: 2f 2a 20 48 50 20 63 63 20 67 65 6e 65 72 61 74 /* HP cc generat
1330: 65 73 20 61 20 52 54 4e 56 41 4c 3d 47 52 20 63 es a RTNVAL=GR c
1340: 61 6c 6c 20 2a 2f 0a 20 20 20 20 69 72 65 74 32 all */. iret2
1350: 20 3d 20 6c 69 73 74 2e 74 6d 70 2e 5f 77 6f 72 = list.tmp._wor
1360: 64 73 5b 31 5d 3b 20 2f 2a 20 69 2e 65 2e 20 72 ds[1]; /* i.e. r
1370: 65 73 75 6c 74 20 69 73 20 65 78 70 65 63 74 65 esult is expecte
1380: 64 20 69 6e 20 72 32 38 2c 72 32 39 20 2a 2f 0a d in r28,r29 */.
1390: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
13a0: 69 73 74 2e 72 74 79 70 65 20 3d 3d 20 5f 5f 56 ist.rtype == __V
13b0: 41 76 6f 69 64 70 29 20 7b 0a 20 20 20 20 69 72 Avoidp) {. ir
13c0: 65 74 20 3d 20 28 6c 6f 6e 67 29 6c 69 73 74 2e et = (long)list.
13d0: 74 6d 70 2e 5f 70 74 72 3b 0a 20 20 7d 20 65 6c tmp._ptr;. } el
13e0: 73 65 0a 20 20 69 66 20 28 6c 69 73 74 2e 72 74 se. if (list.rt
13f0: 79 70 65 20 3d 3d 20 5f 5f 56 41 73 74 72 75 63 ype == __VAstruc
1400: 74 29 20 7b 0a 20 20 20 20 69 66 20 28 6c 69 73 t) {. if (lis
1410: 74 2e 66 6c 61 67 73 20 26 20 5f 5f 56 41 5f 50 t.flags & __VA_P
1420: 43 43 5f 53 54 52 55 43 54 5f 52 45 54 55 52 4e CC_STRUCT_RETURN
1430: 29 20 7b 0a 20 20 20 20 20 20 2f 2a 20 70 63 63 ) {. /* pcc
1440: 20 73 74 72 75 63 74 20 72 65 74 75 72 6e 20 63 struct return c
1450: 6f 6e 76 65 6e 74 69 6f 6e 20 2a 2f 0a 20 20 20 onvention */.
1460: 20 20 20 69 72 65 74 20 3d 20 28 6c 6f 6e 67 29 iret = (long)
1470: 20 6c 69 73 74 2e 72 61 64 64 72 3b 0a 20 20 20 list.raddr;.
1480: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 } else {.
1490: 2f 2a 20 6e 6f 72 6d 61 6c 20 73 74 72 75 63 74 /* normal struct
14a0: 20 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 69 return conventi
14b0: 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 69 66 20 28 on */. if (
14c0: 6c 69 73 74 2e 66 6c 61 67 73 20 26 20 5f 5f 56 list.flags & __V
14d0: 41 5f 53 4d 41 4c 4c 5f 53 54 52 55 43 54 5f 52 A_SMALL_STRUCT_R
14e0: 45 54 55 52 4e 29 20 7b 0a 20 20 20 20 20 20 20 ETURN) {.
14f0: 20 69 66 20 28 6c 69 73 74 2e 66 6c 61 67 73 20 if (list.flags
1500: 26 20 5f 5f 56 41 5f 4f 4c 44 47 43 43 5f 53 54 & __VA_OLDGCC_ST
1510: 52 55 43 54 5f 52 45 54 55 52 4e 29 20 7b 0a 20 RUCT_RETURN) {.
1520: 20 20 20 20 20 20 20 20 20 2f 2a 20 67 63 63 20 /* gcc
1530: 3c 3d 20 32 2e 36 2e 33 20 72 65 74 75 72 6e 73 <= 2.6.3 returns
1540: 20 73 74 72 75 63 74 73 20 6f 66 20 73 69 7a 65 structs of size
1550: 20 31 2c 32 2c 34 20 69 6e 20 72 65 67 69 73 74 1,2,4 in regist
1560: 65 72 73 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 ers. */.
1570: 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 if (list.rsize
1580: 20 3d 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 29 == sizeof(char)
1590: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ) {.
15a0: 69 72 65 74 20 3d 20 2a 28 75 6e 73 69 67 6e 65 iret = *(unsigne
15b0: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
15c0: 61 64 64 72 3b 0a 20 20 20 20 20 20 20 20 20 20 addr;.
15d0: 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 } else.
15e0: 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 if (list.rsize
15f0: 3d 3d 20 73 69 7a 65 6f 66 28 73 68 6f 72 74 29 == sizeof(short)
1600: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ) {.
1610: 69 72 65 74 20 3d 20 2a 28 75 6e 73 69 67 6e 65 iret = *(unsigne
1620: 64 20 73 68 6f 72 74 20 2a 29 20 6c 69 73 74 2e d short *) list.
1630: 72 61 64 64 72 3b 0a 20 20 20 20 20 20 20 20 20 raddr;.
1640: 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 } else.
1650: 20 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 if (list.rsize
1660: 20 3d 3d 20 73 69 7a 65 6f 66 28 69 6e 74 29 29 == sizeof(int))
1670: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 {. i
1680: 72 65 74 20 3d 20 2a 28 75 6e 73 69 67 6e 65 64 ret = *(unsigned
1690: 20 69 6e 74 20 2a 29 20 6c 69 73 74 2e 72 61 64 int *) list.rad
16a0: 64 72 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a dr;. }.
16b0: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b } else {
16c0: 0a 20 20 20 20 20 20 20 20 20 20 2f 2a 20 63 63 . /* cc
16d0: 2c 20 63 38 39 20 61 6e 64 20 67 63 63 20 3e 3d , c89 and gcc >=
16e0: 20 32 2e 37 20 72 65 74 75 72 6e 20 73 74 72 75 2.7 return stru
16f0: 63 74 73 20 6f 66 20 73 69 7a 65 20 3c 3d 20 38 cts of size <= 8
1700: 20 69 6e 20 72 65 67 69 73 74 65 72 73 2e 20 2a in registers. *
1710: 2f 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 28 /. if (
1720: 6c 69 73 74 2e 72 73 69 7a 65 20 3e 20 30 20 26 list.rsize > 0 &
1730: 26 20 6c 69 73 74 2e 72 73 69 7a 65 20 3c 3d 20 & list.rsize <=
1740: 38 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 8) {.
1750: 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 if (list.rsize
1760: 3d 3d 20 31 29 20 7b 0a 20 20 20 20 20 20 20 20 == 1) {.
1770: 20 20 20 20 20 20 69 72 65 74 20 3d 20 20 20 28 iret = (
1780: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
1790: 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d ) list.raddr)[0]
17a0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 ;. }
17b0: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 else.
17c0: 20 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 if (list.rsize
17d0: 3d 3d 20 32 29 20 7b 0a 20 20 20 20 20 20 20 20 == 2) {.
17e0: 20 20 20 20 20 20 69 72 65 74 20 3d 20 20 28 28 iret = ((
17f0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
1800: 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d ) list.raddr)[0]
1810: 20 3c 3c 20 38 29 0a 20 20 20 20 20 20 20 20 20 << 8).
1820: 20 20 20 20 20 20 20 20 20 20 20 7c 20 20 28 28 | ((
1830: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
1840: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 5d 3b list.raddr)[1];
1850: 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 . } e
1860: 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 lse.
1870: 69 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d if (list.rsize =
1880: 3d 20 33 29 20 7b 0a 20 20 20 20 20 20 20 20 20 = 3) {.
1890: 20 20 20 20 20 69 72 65 74 20 3d 20 20 28 28 28 iret = (((
18a0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
18b0: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d 20 list.raddr)[0]
18c0: 3c 3c 20 31 36 29 0a 20 20 20 20 20 20 20 20 20 << 16).
18d0: 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 28 | (((
18e0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
18f0: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 5d 20 list.raddr)[1]
1900: 3c 3c 20 38 29 0a 20 20 20 20 20 20 20 20 20 20 << 8).
1910: 20 20 20 20 20 20 20 20 20 20 7c 20 20 28 28 75 | ((u
1920: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
1930: 6c 69 73 74 2e 72 61 64 64 72 29 5b 32 5d 3b 0a list.raddr)[2];.
1940: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c } el
1950: 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 se. i
1960: 66 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d f (list.rsize ==
1970: 20 34 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 4) {.
1980: 20 20 20 20 69 72 65 74 20 3d 20 20 28 28 28 75 iret = (((u
1990: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
19a0: 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d 20 3c list.raddr)[0] <
19b0: 3c 20 32 34 29 0a 20 20 20 20 20 20 20 20 20 20 < 24).
19c0: 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 28 75 | (((u
19d0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
19e0: 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 5d 20 3c list.raddr)[1] <
19f0: 3c 20 31 36 29 0a 20 20 20 20 20 20 20 20 20 20 < 16).
1a00: 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 28 75 | (((u
1a10: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
1a20: 6c 69 73 74 2e 72 61 64 64 72 29 5b 32 5d 20 3c list.raddr)[2] <
1a30: 3c 20 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 < 8).
1a40: 20 20 20 20 20 20 20 20 20 7c 20 20 28 28 75 6e | ((un
1a50: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c signed char *) l
1a60: 69 73 74 2e 72 61 64 64 72 29 5b 33 5d 3b 0a 20 ist.raddr)[3];.
1a70: 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 } els
1a80: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 e. if
1a90: 20 28 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 (list.rsize ==
1aa0: 35 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 5) {.
1ab0: 20 20 20 69 72 65 74 31 20 3d 20 20 28 28 28 75 iret1 = (((u
1ac0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
1ad0: 6c 69 73 74 2e 72 61 64 64 72 29 5b 30 5d 20 3c list.raddr)[0] <
1ae0: 3c 20 32 34 29 0a 20 20 20 20 20 20 20 20 20 20 < 24).
1af0: 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 28 | (((
1b00: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
1b10: 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 31 5d 20 list.raddr)[1]
1b20: 3c 3c 20 31 36 29 0a 20 20 20 20 20 20 20 20 20 << 16).
1b30: 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 | ((
1b40: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
1b50: 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 32 5d ) list.raddr)[2]
1b60: 20 3c 3c 20 38 29 0a 20 20 20 20 20 20 20 20 20 << 8).
1b70: 20 20 20 20 20 20 20 20 20 20 20 20 7c 20 20 28 | (
1b80: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
1b90: 29 20 6c 69 73 74 2e 72 61 64 64 72 29 5b 33 5d ) list.raddr)[3]
1ba0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
1bb0: 69 72 65 74 32 20 3d 20 20 20 28 28 75 6e 73 69 iret2 = ((unsi
1bc0: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
1bd0: 74 2e 72 61 64 64 72 29 5b 34 5d 3b 0a 20 20 20 t.raddr)[4];.
1be0: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a } else.
1bf0: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 if (
1c00: 6c 69 73 74 2e 72 73 69 7a 65 20 3d 3d 20 36 29 list.rsize == 6)
1c10: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
1c20: 20 69 72 65 74 31 20 3d 20 20 28 28 28 75 6e 73 iret1 = (((uns
1c30: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 igned char *) li
1c40: 73 74 2e 72 61 64 64 72 29 5b 30 5d 20 3c 3c 20 st.raddr)[0] <<
1c50: 32 34 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 24).
1c60: 20 20 20 20 20 20 20 20 20 7c 20 28 28 28 75 6e | (((un
1c70: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c signed char *) l
1c80: 69 73 74 2e 72 61 64 64 72 29 5b 31 5d 20 3c 3c ist.raddr)[1] <<
1c90: 20 31 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 16).
1ca0: 20 20 20 20 20 20 20 20 20 20 7c 20 28 28 28 75 | (((u
1cb0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
1cc0: 6c 69 73 74 2e 72 61 64 64 72 29 5b 32 5d 20 3c list.raddr)[2] <
1cd0: 3c 20 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 < 8).
1ce0: 20 20 20 20 20 20 20 20 20 20 7c 20 20 28 28 75 | ((u
1cf0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 nsigned char *)
1d00: 6c 69 73 74 2e 72 61 64 64 72 29 5b 33 5d 3b 0a list.raddr)[3];.
1d10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 72 ir
1d20: 65 74 32 20 3d 20 20 28 28 28 75 6e 73 69 67 6e et2 = (((unsign
1d30: 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e ed char *) list.
1d40: 72 61 64 64 72 29 5b 34 5d 20 3c 3c 20 38 29 0a raddr)[4] << 8).
1d50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1d60: 20 20 20 20 20 7c 20 20 28 28 75 6e 73 69 67 6e | ((unsign
1d70: 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e ed char *) list.
1d80: 72 61 64 64 72 29 5b 35 5d 3b 0a 20 20 20 20 20 raddr)[5];.
1d90: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 } else.
1da0: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 if (li
1db0: 73 74 2e 72 73 69 7a 65 20 3d 3d 20 37 29 20 7b st.rsize == 7) {
1dc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 . i
1dd0: 72 65 74 31 20 3d 20 20 28 28 28 75 6e 73 69 67 ret1 = (((unsig
1de0: 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 ned char *) list
1df0: 2e 72 61 64 64 72 29 5b 30 5d 20 3c 3c 20 32 34 .raddr)[0] << 24
1e00: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
1e10: 20 20 20 20 20 20 20 7c 20 28 28 28 75 6e 73 69 | (((unsi
1e20: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
1e30: 74 2e 72 61 64 64 72 29 5b 31 5d 20 3c 3c 20 31 t.raddr)[1] << 1
1e40: 36 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 6).
1e50: 20 20 20 20 20 20 20 20 7c 20 28 28 28 75 6e 73 | (((uns
1e60: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 igned char *) li
1e70: 73 74 2e 72 61 64 64 72 29 5b 32 5d 20 3c 3c 20 st.raddr)[2] <<
1e80: 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 8).
1e90: 20 20 20 20 20 20 20 20 7c 20 20 28 28 75 6e 73 | ((uns
1ea0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 igned char *) li
1eb0: 73 74 2e 72 61 64 64 72 29 5b 33 5d 3b 0a 20 20 st.raddr)[3];.
1ec0: 20 20 20 20 20 20 20 20 20 20 20 20 69 72 65 74 iret
1ed0: 32 20 3d 20 20 28 28 28 75 6e 73 69 67 6e 65 64 2 = (((unsigned
1ee0: 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 char *) list.ra
1ef0: 64 64 72 29 5b 34 5d 20 3c 3c 20 31 36 29 0a 20 ddr)[4] << 16).
1f00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f10: 20 20 20 20 7c 20 28 28 28 75 6e 73 69 67 6e 65 | (((unsigne
1f20: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
1f30: 61 64 64 72 29 5b 35 5d 20 3c 3c 20 38 29 0a 20 addr)[5] << 8).
1f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
1f50: 20 20 20 20 7c 20 20 28 28 75 6e 73 69 67 6e 65 | ((unsigne
1f60: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
1f70: 61 64 64 72 29 5b 36 5d 3b 0a 20 20 20 20 20 20 addr)[6];.
1f80: 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 } else.
1f90: 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 69 73 if (lis
1fa0: 74 2e 72 73 69 7a 65 20 3d 3d 20 38 29 20 7b 0a t.rsize == 8) {.
1fb0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 72 ir
1fc0: 65 74 31 20 3d 20 20 28 28 28 75 6e 73 69 67 6e et1 = (((unsign
1fd0: 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e ed char *) list.
1fe0: 72 61 64 64 72 29 5b 30 5d 20 3c 3c 20 32 34 29 raddr)[0] << 24)
1ff0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
2000: 20 20 20 20 20 20 7c 20 28 28 28 75 6e 73 69 67 | (((unsig
2010: 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 ned char *) list
2020: 2e 72 61 64 64 72 29 5b 31 5d 20 3c 3c 20 31 36 .raddr)[1] << 16
2030: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
2040: 20 20 20 20 20 20 20 7c 20 28 28 28 75 6e 73 69 | (((unsi
2050: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
2060: 74 2e 72 61 64 64 72 29 5b 32 5d 20 3c 3c 20 38 t.raddr)[2] << 8
2070: 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ).
2080: 20 20 20 20 20 20 20 7c 20 20 28 28 75 6e 73 69 | ((unsi
2090: 67 6e 65 64 20 63 68 61 72 20 2a 29 20 6c 69 73 gned char *) lis
20a0: 74 2e 72 61 64 64 72 29 5b 33 5d 3b 0a 20 20 20 t.raddr)[3];.
20b0: 20 20 20 20 20 20 20 20 20 20 20 69 72 65 74 32 iret2
20c0: 20 3d 20 20 28 28 28 75 6e 73 69 67 6e 65 64 20 = (((unsigned
20d0: 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 64 char *) list.rad
20e0: 64 72 29 5b 34 5d 20 3c 3c 20 32 34 29 0a 20 20 dr)[4] << 24).
20f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2100: 20 20 20 7c 20 28 28 28 75 6e 73 69 67 6e 65 64 | (((unsigned
2110: 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 61 char *) list.ra
2120: 64 64 72 29 5b 35 5d 20 3c 3c 20 31 36 29 0a 20 ddr)[5] << 16).
2130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2140: 20 20 20 20 7c 20 28 28 28 75 6e 73 69 67 6e 65 | (((unsigne
2150: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
2160: 61 64 64 72 29 5b 36 5d 20 3c 3c 20 38 29 0a 20 addr)[6] << 8).
2170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2180: 20 20 20 20 7c 20 20 28 28 75 6e 73 69 67 6e 65 | ((unsigne
2190: 64 20 63 68 61 72 20 2a 29 20 6c 69 73 74 2e 72 d char *) list.r
21a0: 61 64 64 72 29 5b 37 5d 3b 0a 20 20 20 20 20 20 addr)[7];.
21b0: 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 }.
21c0: 20 20 7d 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 }. }.
21d0: 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a }. }. }.
21e0: 7d 0a }.