Artifact
f1a54526dda1830e72e385bc42f998756d81783a:
0000: 23 69 66 6e 64 65 66 20 5f 61 76 63 61 6c 6c 5f #ifndef _avcall_
0010: 6d 69 70 73 5f 63 09 09 09 09 2f 2a 2d 2a 2d 20 mips_c..../*-*-
0020: 43 20 2d 2a 2d 2a 2f 0a 23 64 65 66 69 6e 65 20 C -*-*/.#define
0030: 5f 61 76 63 61 6c 6c 5f 6d 69 70 73 5f 63 0a 2f _avcall_mips_c./
0040: 2a 2a 0a 20 20 43 6f 70 79 72 69 67 68 74 20 31 **. Copyright 1
0050: 39 39 33 20 42 69 6c 6c 20 54 72 69 67 67 73 2c 993 Bill Triggs,
0060: 20 3c 42 69 6c 6c 2e 54 72 69 67 67 73 40 69 6e <Bill.Triggs@in
0070: 72 69 61 6c 70 65 73 2e 66 72 3e 0a 20 20 43 6f rialpes.fr>. Co
0080: 70 79 72 69 67 68 74 20 31 39 39 35 2d 31 39 39 pyright 1995-199
0090: 39 20 42 72 75 6e 6f 20 48 61 69 62 6c 65 2c 20 9 Bruno Haible,
00a0: 3c 62 72 75 6e 6f 40 63 6c 69 73 70 2e 6f 72 67 <bruno@clisp.org
00b0: 3e 0a 20 20 43 6f 70 79 72 69 67 68 74 20 32 30 >. Copyright 20
00c0: 30 35 20 54 68 69 65 6d 6f 20 53 65 75 66 65 72 05 Thiemo Seufer
00d0: 20 20 3c 74 68 73 40 64 65 62 69 61 6e 2e 6f 72 <ths@debian.or
00e0: 67 3e 0a 0a 20 20 54 68 69 73 20 69 73 20 66 72 g>.. This is fr
00f0: 65 65 20 73 6f 66 74 77 61 72 65 20 64 69 73 74 ee software dist
0100: 72 69 62 75 74 65 64 20 75 6e 64 65 72 20 74 68 ributed under th
0110: 65 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 e GNU General Pu
0120: 62 6c 69 63 0a 20 20 4c 69 63 65 6e 63 65 20 64 blic. Licence d
0130: 65 73 63 72 69 62 65 64 20 69 6e 20 74 68 65 20 escribed in the
0140: 66 69 6c 65 20 43 4f 50 59 49 4e 47 2e 20 43 6f file COPYING. Co
0150: 6e 74 61 63 74 20 74 68 65 20 61 75 74 68 6f 72 ntact the author
0160: 20 69 66 0a 20 20 79 6f 75 20 64 6f 6e 27 74 20 if. you don't
0170: 68 61 76 65 20 74 68 69 73 20 6f 72 20 63 61 6e have this or can
0180: 27 74 20 6c 69 76 65 20 77 69 74 68 20 69 74 2e 't live with it.
0190: 20 54 68 65 72 65 20 69 73 20 41 42 53 4f 4c 55 There is ABSOLU
01a0: 54 45 4c 59 0a 20 20 4e 4f 20 57 41 52 52 41 4e TELY. NO WARRAN
01b0: 54 59 2c 20 65 78 70 6c 69 63 69 74 20 6f 72 20 TY, explicit or
01c0: 69 6d 70 6c 69 65 64 2c 20 6f 6e 20 74 68 69 73 implied, on this
01d0: 20 73 6f 66 74 77 61 72 65 2e 0a 2a 2a 2f 0a 2f software..**/./
01e0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
01f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0200: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0210: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0220: 2d 2d 2d 2d 2d 2d 2d 0a 20 20 21 21 21 20 54 48 -------. !!! TH
0230: 49 53 20 52 4f 55 54 49 4e 45 20 4d 55 53 54 20 IS ROUTINE MUST
0240: 42 45 20 43 4f 4d 50 49 4c 45 44 20 67 63 63 20 BE COMPILED gcc
0250: 2d 4f 20 21 21 21 0a 0a 20 20 46 6f 72 65 69 67 -O !!!.. Foreig
0260: 6e 20 66 75 6e 63 74 69 6f 6e 20 69 6e 74 65 72 n function inter
0270: 66 61 63 65 20 66 6f 72 20 61 6e 20 53 47 49 20 face for an SGI
0280: 4d 49 50 53 20 77 69 74 68 20 67 63 63 2f 73 67 MIPS with gcc/sg
0290: 69 2d 63 63 2e 0a 0a 20 20 54 68 69 73 20 63 61 i-cc... This ca
02a0: 6c 6c 73 20 61 20 43 20 66 75 6e 63 74 69 6f 6e lls a C function
02b0: 20 77 69 74 68 20 61 6e 20 61 72 67 75 6d 65 6e with an argumen
02c0: 74 20 6c 69 73 74 20 62 75 69 6c 74 20 75 70 20 t list built up
02d0: 75 73 69 6e 67 20 6d 61 63 72 6f 73 0a 20 20 64 using macros. d
02e0: 65 66 69 6e 65 64 20 69 6e 20 61 76 5f 63 61 6c efined in av_cal
02f0: 6c 2e 68 2e 0a 0a 20 20 53 47 49 20 4d 49 50 53 l.h... SGI MIPS
0300: 20 41 72 67 75 6d 65 6e 74 20 50 61 73 73 69 6e Argument Passin
0310: 67 20 43 6f 6e 76 65 6e 74 69 6f 6e 73 0a 0a 20 g Conventions..
0320: 20 2d 20 54 68 65 20 65 6e 74 69 72 65 20 61 72 - The entire ar
0330: 67 75 6d 65 6e 74 20 6c 69 73 74 20 66 6f 72 6d gument list form
0340: 73 20 61 20 73 74 72 75 63 74 75 72 65 20 77 69 s a structure wi
0350: 74 68 20 61 6c 6c 20 74 68 65 20 61 70 70 72 6f th all the appro
0360: 70 72 69 61 74 65 0a 20 20 20 20 68 6f 6c 65 73 priate. holes
0370: 20 26 20 61 6c 69 67 6e 6d 65 6e 74 73 2c 20 61 & alignments, a
0380: 6e 64 20 73 70 61 63 65 20 66 6f 72 20 74 68 69 nd space for thi
0390: 73 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 69 s is allocated i
03a0: 6e 20 74 68 65 20 73 74 61 63 6b 20 66 72 61 6d n the stack fram
03b0: 65 2e 0a 20 20 2d 20 53 68 6f 72 74 65 72 20 69 e.. - Shorter i
03c0: 6e 74 65 67 65 72 73 20 61 72 65 20 70 72 6f 6d ntegers are prom
03d0: 6f 74 65 64 20 74 6f 20 77 6f 72 64 20 6c 65 6e oted to word len
03e0: 67 74 68 20 28 73 69 7a 65 6f 66 28 69 6e 74 29 gth (sizeof(int)
03f0: 3d 73 69 7a 65 6f 66 28 6c 6f 6e 67 29 3d 34 29 =sizeof(long)=4)
0400: 2e 0a 20 20 2d 20 44 6f 75 62 6c 65 73 20 61 72 .. - Doubles ar
0410: 65 20 32 20 77 6f 72 64 73 20 61 6c 69 67 6e 65 e 2 words aligne
0420: 64 20 6f 6e 20 65 76 65 6e 20 62 6f 75 6e 64 61 d on even bounda
0430: 72 69 65 73 2e 0a 20 20 2d 20 54 68 65 20 66 69 ries.. - The fi
0440: 72 73 74 20 34 20 77 6f 72 64 73 20 6f 66 20 74 rst 4 words of t
0450: 68 65 20 73 74 72 75 63 74 75 72 65 20 61 72 65 he structure are
0460: 20 70 61 73 73 65 64 20 69 6e 20 72 65 67 69 73 passed in regis
0470: 74 65 72 73 20 24 34 2e 2e 2e 24 37 2c 20 73 74 ters $4...$7, st
0480: 61 63 6b 0a 20 20 20 20 73 70 61 63 65 20 66 6f ack. space fo
0490: 72 20 74 68 65 73 65 20 69 73 20 61 6c 77 61 79 r these is alway
04a0: 73 20 61 6c 6c 6f 63 61 74 65 64 2e 20 52 65 6d s allocated. Rem
04b0: 61 69 6e 69 6e 67 20 77 6f 72 64 73 20 61 72 65 aining words are
04c0: 20 70 61 73 73 65 64 20 6f 6e 20 74 68 65 0a 20 passed on the.
04d0: 20 20 20 73 74 61 63 6b 2e 0a 20 20 2d 20 49 66 stack.. - If
04e0: 20 74 68 65 20 66 69 72 73 74 20 74 77 6f 20 61 the first two a
04f0: 72 67 73 20 61 72 65 20 66 6c 6f 61 74 73 20 6f rgs are floats o
0500: 72 20 64 6f 75 62 6c 65 73 2c 20 74 68 65 79 20 r doubles, they
0510: 61 72 65 20 61 6c 73 6f 20 70 61 73 73 65 64 20 are also passed
0520: 69 6e 20 24 66 31 32 0a 20 20 20 20 61 6e 64 20 in $f12. and
0530: 24 66 31 34 2e 20 42 75 74 20 76 61 72 61 72 67 $f14. But vararg
0540: 73 20 66 75 6e 63 74 69 6f 6e 73 20 77 69 6c 6c s functions will
0550: 20 65 78 70 65 63 74 20 74 68 65 6d 20 69 6e 20 expect them in
0560: 74 68 65 20 69 6e 74 65 67 65 72 20 72 65 67 69 the integer regi
0570: 73 74 65 72 73 0a 20 20 20 20 61 6e 64 20 77 65 sters. and we
0580: 20 63 61 6e 27 74 20 74 65 6c 6c 20 77 68 65 74 can't tell whet
0590: 68 65 72 20 74 68 65 20 66 75 6e 63 74 69 6f 6e her the function
05a0: 20 69 73 20 76 61 72 61 72 67 73 20 73 6f 20 77 is varargs so w
05b0: 65 20 70 61 73 73 20 74 68 65 6d 20 62 6f 74 68 e pass them both
05c0: 20 77 61 79 73 2e 0a 20 20 2d 20 53 74 72 75 63 ways.. - Struc
05d0: 74 75 72 65 20 61 72 67 75 6d 65 6e 74 73 20 61 ture arguments a
05e0: 72 65 20 63 6f 70 69 65 73 20 65 6d 62 65 64 64 re copies embedd
05f0: 65 64 20 69 6e 20 74 68 65 20 61 72 67 6c 69 73 ed in the arglis
0600: 74 20 73 74 72 75 63 74 75 72 65 2e 0a 20 20 2d t structure.. -
0610: 20 53 74 72 75 63 74 75 72 65 20 72 65 74 75 72 Structure retur
0620: 6e 73 20 61 72 65 20 70 6f 69 6e 74 65 72 73 20 ns are pointers
0630: 74 6f 20 63 61 6c 6c 65 72 2d 61 6c 6c 6f 63 61 to caller-alloca
0640: 74 65 64 20 73 70 61 63 65 20 70 61 73 73 65 64 ted space passed
0650: 20 69 6e 20 61 73 20 74 68 65 0a 20 20 20 20 66 in as the. f
0660: 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 6f 66 irst argument of
0670: 20 74 68 65 20 6c 69 73 74 2e 20 54 68 65 20 66 the list. The f
0680: 75 6e 63 74 69 6f 6e 20 61 6c 73 6f 20 72 65 74 unction also ret
0690: 75 72 6e 73 20 74 68 65 20 70 6f 69 6e 74 65 72 urns the pointer
06a0: 2e 0a 20 20 2d 20 49 6e 74 65 67 65 72 2f 70 6f .. - Integer/po
06b0: 69 6e 74 65 72 20 72 65 74 75 72 6e 73 20 61 72 inter returns ar
06c0: 65 20 69 6e 20 24 32 2c 20 66 6c 6f 61 74 2f 64 e in $2, float/d
06d0: 6f 75 62 6c 65 20 72 65 74 75 72 6e 73 20 69 6e ouble returns in
06e0: 20 24 66 30 2e 0a 20 20 2d 20 55 6e 64 65 72 20 $f0.. - Under
06f0: 49 52 49 58 20 35 2c 20 74 68 65 20 63 61 6c 6c IRIX 5, the call
0700: 65 64 20 66 75 6e 63 74 69 6f 6e 20 65 78 70 65 ed function expe
0710: 63 74 73 20 74 6f 20 73 65 65 20 69 74 73 20 6f cts to see its o
0720: 77 6e 20 61 64 64 72 65 73 73 20 69 6e 20 24 32 wn address in $2
0730: 35 2e 0a 0a 20 20 54 68 69 73 20 66 69 6c 65 20 5... This file
0740: 6e 65 65 64 73 20 74 6f 20 62 65 20 63 6f 6d 70 needs to be comp
0750: 69 6c 65 64 20 77 69 74 68 20 67 63 63 20 66 6f iled with gcc fo
0760: 72 20 74 68 65 20 61 73 6d 20 65 78 74 65 6e 73 r the asm extens
0770: 69 6f 6e 73 2c 20 62 75 74 20 74 68 65 0a 20 20 ions, but the.
0780: 61 73 73 65 6d 62 6c 79 20 76 65 72 73 69 6f 6e assembly version
0790: 20 6f 66 20 69 74 20 61 6e 64 20 74 68 65 20 68 of it and the h
07a0: 65 61 64 65 72 20 66 69 6c 65 20 73 65 65 6d 20 eader file seem
07b0: 74 6f 20 77 6f 72 6b 20 77 69 74 68 20 53 47 49 to work with SGI
07c0: 20 63 63 2e 0a 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d cc.. ---------
07d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
07f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0800: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 2f 0a -------------*/.
0810: 23 69 6e 63 6c 75 64 65 20 22 61 76 63 61 6c 6c #include "avcall
0820: 2e 68 2e 69 6e 22 0a 0a 23 64 65 66 69 6e 65 20 .h.in"..#define
0830: 52 45 54 55 52 4e 28 54 59 50 45 2c 56 41 4c 29 RETURN(TYPE,VAL)
0840: 09 28 2a 28 54 59 50 45 2a 29 6c 2d 3e 72 61 64 .(*(TYPE*)l->rad
0850: 64 72 20 3d 20 28 54 59 50 45 29 28 56 41 4c 29 dr = (TYPE)(VAL)
0860: 29 0a 23 64 65 66 69 6e 65 20 4f 46 46 53 45 54 ).#define OFFSET
0870: 4f 46 28 73 74 72 75 63 74 2c 6d 65 6d 62 65 72 OF(struct,member
0880: 29 20 28 28 69 6e 74 29 26 28 28 28 73 74 72 75 ) ((int)&(((stru
0890: 63 74 2a 29 30 29 2d 3e 6d 65 6d 62 65 72 29 29 ct*)0)->member))
08a0: 0a 0a 74 79 70 65 64 65 66 20 5f 5f 61 76 77 6f ..typedef __avwo
08b0: 72 64 20 28 2a 66 75 6e 63 5f 70 6f 69 6e 74 65 rd (*func_pointe
08c0: 72 29 28 29 3b 0a 72 65 67 69 73 74 65 72 20 66 r)();.register f
08d0: 75 6e 63 5f 70 6f 69 6e 74 65 72 09 74 39 09 5f unc_pointer.t9._
08e0: 5f 61 73 6d 5f 5f 28 22 24 32 35 22 29 3b 0a 0a _asm__("$25");..
08f0: 69 6e 74 0a 5f 5f 62 75 69 6c 74 69 6e 5f 61 76 int.__builtin_av
0900: 63 61 6c 6c 28 61 76 5f 61 6c 69 73 74 2a 20 6c call(av_alist* l
0910: 29 0a 7b 0a 20 20 72 65 67 69 73 74 65 72 20 5f ).{. register _
0920: 5f 61 76 77 6f 72 64 2a 09 73 70 20 5f 5f 61 73 _avword*.sp __as
0930: 6d 5f 5f 28 22 24 73 70 22 29 3b 20 20 2f 2a 20 m__("$sp"); /*
0940: 43 20 6e 61 6d 65 73 20 66 6f 72 20 72 65 67 69 C names for regi
0950: 73 74 65 72 73 20 2a 2f 0a 20 20 72 65 67 69 73 sters */. regis
0960: 74 65 72 20 5f 5f 61 76 77 6f 72 64 09 69 72 65 ter __avword.ire
0970: 74 32 5f 74 6d 70 20 5f 5f 61 73 6d 5f 5f 28 22 t2_tmp __asm__("
0980: 24 33 22 29 3b 0a 20 20 72 65 67 69 73 74 65 72 $3");. register
0990: 20 66 6c 6f 61 74 09 66 72 65 74 5f 74 6d 70 20 float.fret_tmp
09a0: 5f 5f 61 73 6d 5f 5f 28 22 24 66 30 22 29 3b 0a __asm__("$f0");.
09b0: 20 20 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c register doubl
09c0: 65 09 64 72 65 74 5f 74 6d 70 20 5f 5f 61 73 6d e.dret_tmp __asm
09d0: 5f 5f 28 22 24 66 30 22 29 3b 0a 20 20 5f 5f 61 __("$f0");. __a
09e0: 76 77 6f 72 64 20 2a 73 70 61 63 65 20 3d 20 5f vword *space = _
09f0: 5f 62 75 69 6c 74 69 6e 5f 61 6c 6c 6f 63 61 28 _builtin_alloca(
0a00: 5f 5f 41 56 5f 41 4c 49 53 54 5f 57 4f 52 44 53 __AV_ALIST_WORDS
0a10: 20 2a 20 73 69 7a 65 6f 66 28 5f 5f 61 76 77 6f * sizeof(__avwo
0a20: 72 64 29 29 3b 09 2f 2a 20 62 69 67 20 73 70 61 rd));./* big spa
0a30: 63 65 20 66 6f 72 20 63 68 69 6c 64 27 73 20 73 ce for child's s
0a40: 74 61 63 6b 20 66 72 61 6d 65 20 2a 2f 0a 20 20 tack frame */.
0a50: 5f 5f 61 76 77 6f 72 64 20 2a 61 72 67 66 72 61 __avword *argfra
0a60: 6d 65 20 3d 20 28 5f 5f 61 76 77 6f 72 64 2a 29 me = (__avword*)
0a70: 73 70 3b 09 2f 2a 20 73 74 61 63 6b 20 6f 66 66 sp;./* stack off
0a80: 73 65 74 20 66 6f 72 20 61 72 67 75 6d 65 6e 74 set for argument
0a90: 20 6c 69 73 74 20 69 73 20 30 20 2a 2f 0a 20 20 list is 0 */.
0aa0: 69 6e 74 20 61 72 67 6c 65 6e 20 3d 20 6c 2d 3e int arglen = l->
0ab0: 61 70 74 72 20 2d 20 6c 2d 3e 61 72 67 73 3b 0a aptr - l->args;.
0ac0: 20 20 69 6e 74 20 69 3b 0a 20 20 5f 5f 61 76 77 int i;. __avw
0ad0: 6f 72 64 20 69 72 65 74 3b 0a 20 20 6c 6f 6e 67 ord iret;. long
0ae0: 20 6c 6f 6e 67 20 69 72 65 74 32 3b 0a 20 20 66 long iret2;. f
0af0: 6c 6f 61 74 20 66 72 65 74 3b 0a 20 20 64 6f 75 loat fret;. dou
0b00: 62 6c 65 20 64 72 65 74 3b 0a 0a 20 20 2f 2a 20 ble dret;.. /*
0b10: 6c 6f 61 64 20 6c 65 61 64 69 6e 67 20 66 6c 6f load leading flo
0b20: 61 74 20 61 72 67 73 20 2a 2f 0a 20 20 69 66 20 at args */. if
0b30: 28 6c 2d 3e 66 6c 61 67 73 20 26 20 5f 5f 41 56 (l->flags & __AV
0b40: 5f 46 4c 4f 41 54 5f 31 29 0a 20 20 20 20 5f 5f _FLOAT_1). __
0b50: 61 73 6d 5f 5f 28 22 6c 2e 73 20 24 66 31 32 2c asm__("l.s $f12,
0b60: 25 31 28 25 30 29 22 20 3a 20 3a 20 22 70 22 20 %1(%0)" : : "p"
0b70: 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 45 54 4f (l), "i" OFFSETO
0b80: 46 28 61 76 5f 61 6c 69 73 74 2c 66 6c 6f 61 74 F(av_alist,float
0b90: 61 72 67 5b 30 5d 29 29 3b 0a 20 20 69 66 20 28 arg[0]));. if (
0ba0: 6c 2d 3e 66 6c 61 67 73 20 26 20 5f 5f 41 56 5f l->flags & __AV_
0bb0: 44 4f 55 42 4c 45 5f 31 29 0a 20 20 20 20 5f 5f DOUBLE_1). __
0bc0: 61 73 6d 5f 5f 28 22 6c 2e 64 20 24 66 31 32 2c asm__("l.d $f12,
0bd0: 25 31 28 25 30 29 22 20 3a 20 3a 20 22 70 22 20 %1(%0)" : : "p"
0be0: 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 45 54 4f (l), "i" OFFSETO
0bf0: 46 28 61 76 5f 61 6c 69 73 74 2c 64 6f 75 62 6c F(av_alist,doubl
0c00: 65 61 72 67 5b 30 5d 29 29 3b 0a 20 20 69 66 20 earg[0]));. if
0c10: 28 28 6c 2d 3e 66 6c 61 67 73 20 26 20 5f 5f 41 ((l->flags & __A
0c20: 56 5f 46 4c 4f 41 54 5f 32 29 20 26 26 20 28 6c V_FLOAT_2) && (l
0c30: 2d 3e 66 6c 61 67 73 20 26 20 28 5f 5f 41 56 5f ->flags & (__AV_
0c40: 46 4c 4f 41 54 5f 31 20 7c 20 5f 5f 41 56 5f 44 FLOAT_1 | __AV_D
0c50: 4f 55 42 4c 45 5f 31 29 29 29 0a 20 20 20 20 5f OUBLE_1))). _
0c60: 5f 61 73 6d 5f 5f 28 22 6c 2e 73 20 24 66 31 34 _asm__("l.s $f14
0c70: 2c 25 31 28 25 30 29 22 20 3a 20 3a 20 22 70 22 ,%1(%0)" : : "p"
0c80: 20 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 45 54 (l), "i" OFFSET
0c90: 4f 46 28 61 76 5f 61 6c 69 73 74 2c 66 6c 6f 61 OF(av_alist,floa
0ca0: 74 61 72 67 5b 31 5d 29 29 3b 0a 20 20 69 66 20 targ[1]));. if
0cb0: 28 28 6c 2d 3e 66 6c 61 67 73 20 26 20 5f 5f 41 ((l->flags & __A
0cc0: 56 5f 44 4f 55 42 4c 45 5f 32 29 20 26 26 20 28 V_DOUBLE_2) && (
0cd0: 6c 2d 3e 66 6c 61 67 73 20 26 20 28 5f 5f 41 56 l->flags & (__AV
0ce0: 5f 46 4c 4f 41 54 5f 31 20 7c 20 5f 5f 41 56 5f _FLOAT_1 | __AV_
0cf0: 44 4f 55 42 4c 45 5f 31 29 29 29 0a 20 20 20 20 DOUBLE_1))).
0d00: 5f 5f 61 73 6d 5f 5f 28 22 6c 2e 64 20 24 66 31 __asm__("l.d $f1
0d10: 34 2c 25 31 28 25 30 29 22 20 3a 20 3a 20 22 70 4,%1(%0)" : : "p
0d20: 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 45 " (l), "i" OFFSE
0d30: 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c 64 6f 75 TOF(av_alist,dou
0d40: 62 6c 65 61 72 67 5b 31 5d 29 29 3b 0a 0a 20 20 blearg[1]));..
0d50: 66 6f 72 20 28 69 20 3d 20 34 3b 20 69 20 3c 20 for (i = 4; i <
0d60: 61 72 67 6c 65 6e 3b 20 69 2b 2b 29 09 09 2f 2a arglen; i++)../*
0d70: 20 70 75 73 68 20 65 78 63 65 73 73 20 66 75 6e push excess fun
0d80: 63 74 69 6f 6e 20 61 72 67 73 20 2a 2f 0a 20 20 ction args */.
0d90: 20 20 61 72 67 66 72 61 6d 65 5b 69 5d 20 3d 20 argframe[i] =
0da0: 6c 2d 3e 61 72 67 73 5b 69 5d 3b 0a 0a 20 20 69 l->args[i];.. i
0db0: 72 65 74 20 3d 20 28 2a 28 74 39 20 3d 20 6c 2d ret = (*(t9 = l-
0dc0: 3e 66 75 6e 63 29 29 28 6c 2d 3e 61 72 67 73 5b >func))(l->args[
0dd0: 30 5d 2c 20 6c 2d 3e 61 72 67 73 5b 31 5d 2c 20 0], l->args[1],
0de0: 20 2f 2a 20 63 61 6c 6c 20 66 75 6e 63 74 69 6f /* call functio
0df0: 6e 20 77 69 74 68 20 31 73 74 20 34 20 61 72 67 n with 1st 4 arg
0e00: 73 20 2a 2f 0a 09 09 09 20 20 20 6c 2d 3e 61 72 s */.... l->ar
0e10: 67 73 5b 32 5d 2c 20 6c 2d 3e 61 72 67 73 5b 33 gs[2], l->args[3
0e20: 5d 29 3b 0a 20 20 69 72 65 74 32 20 3d 20 69 72 ]);. iret2 = ir
0e30: 65 74 32 5f 74 6d 70 3b 0a 20 20 66 72 65 74 20 et2_tmp;. fret
0e40: 3d 20 66 72 65 74 5f 74 6d 70 3b 0a 20 20 64 72 = fret_tmp;. dr
0e50: 65 74 20 3d 20 64 72 65 74 5f 74 6d 70 3b 0a 0a et = dret_tmp;..
0e60: 20 20 2f 2a 20 73 61 76 65 20 72 65 74 75 72 6e /* save return
0e70: 20 76 61 6c 75 65 20 2a 2f 0a 20 20 73 77 69 74 value */. swit
0e80: 63 68 20 28 6c 2d 3e 72 74 79 70 65 29 20 7b 0a ch (l->rtype) {.
0e90: 20 20 64 65 66 61 75 6c 74 3a 0a 20 20 63 61 73 default:. cas
0ea0: 65 20 5f 5f 41 56 76 6f 69 64 3a 0a 20 20 20 20 e __AVvoid:.
0eb0: 62 72 65 61 6b 3b 0a 20 20 63 61 73 65 20 5f 5f break;. case __
0ec0: 41 56 77 6f 72 64 3a 0a 20 20 20 20 52 45 54 55 AVword:. RETU
0ed0: 52 4e 28 5f 5f 61 76 77 6f 72 64 2c 20 69 72 65 RN(__avword, ire
0ee0: 74 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 t);. break;.
0ef0: 20 63 61 73 65 20 5f 5f 41 56 63 68 61 72 3a 0a case __AVchar:.
0f00: 20 20 20 20 52 45 54 55 52 4e 28 63 68 61 72 2c RETURN(char,
0f10: 20 69 72 65 74 29 3b 0a 20 20 20 20 62 72 65 61 iret);. brea
0f20: 6b 3b 0a 20 20 63 61 73 65 20 5f 5f 41 56 73 63 k;. case __AVsc
0f30: 68 61 72 3a 0a 20 20 20 20 52 45 54 55 52 4e 28 har:. RETURN(
0f40: 73 69 67 6e 65 64 20 63 68 61 72 2c 20 69 72 65 signed char, ire
0f50: 74 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 t);. break;.
0f60: 20 63 61 73 65 20 5f 5f 41 56 75 63 68 61 72 3a case __AVuchar:
0f70: 0a 20 20 20 20 52 45 54 55 52 4e 28 75 6e 73 69 . RETURN(unsi
0f80: 67 6e 65 64 20 63 68 61 72 2c 20 69 72 65 74 29 gned char, iret)
0f90: 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 63 ;. break;. c
0fa0: 61 73 65 20 5f 5f 41 56 73 68 6f 72 74 3a 0a 20 ase __AVshort:.
0fb0: 20 20 20 52 45 54 55 52 4e 28 73 68 6f 72 74 2c RETURN(short,
0fc0: 20 69 72 65 74 29 3b 0a 20 20 20 20 62 72 65 61 iret);. brea
0fd0: 6b 3b 0a 20 20 63 61 73 65 20 5f 5f 41 56 75 73 k;. case __AVus
0fe0: 68 6f 72 74 3a 0a 20 20 20 20 52 45 54 55 52 4e hort:. RETURN
0ff0: 28 75 6e 73 69 67 6e 65 64 20 73 68 6f 72 74 2c (unsigned short,
1000: 20 69 72 65 74 29 3b 0a 20 20 20 20 62 72 65 61 iret);. brea
1010: 6b 3b 0a 20 20 63 61 73 65 20 5f 5f 41 56 69 6e k;. case __AVin
1020: 74 3a 0a 20 20 20 20 52 45 54 55 52 4e 28 69 6e t:. RETURN(in
1030: 74 2c 20 69 72 65 74 29 3b 0a 20 20 20 20 62 72 t, iret);. br
1040: 65 61 6b 3b 0a 20 20 63 61 73 65 20 5f 5f 41 56 eak;. case __AV
1050: 75 69 6e 74 3a 0a 20 20 20 20 52 45 54 55 52 4e uint:. RETURN
1060: 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 2c 20 69 (unsigned int, i
1070: 72 65 74 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b ret);. break;
1080: 0a 20 20 63 61 73 65 20 5f 5f 41 56 6c 6f 6e 67 . case __AVlong
1090: 3a 0a 20 20 20 20 52 45 54 55 52 4e 28 6c 6f 6e :. RETURN(lon
10a0: 67 2c 20 69 72 65 74 29 3b 0a 20 20 20 20 62 72 g, iret);. br
10b0: 65 61 6b 3b 0a 20 20 63 61 73 65 20 5f 5f 41 56 eak;. case __AV
10c0: 75 6c 6f 6e 67 3a 0a 20 20 20 20 52 45 54 55 52 ulong:. RETUR
10d0: 4e 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 2c N(unsigned long,
10e0: 20 69 72 65 74 29 3b 0a 20 20 20 20 62 72 65 61 iret);. brea
10f0: 6b 3b 0a 20 20 63 61 73 65 20 5f 5f 41 56 6c 6f k;. case __AVlo
1100: 6e 67 6c 6f 6e 67 3a 0a 20 20 63 61 73 65 20 5f nglong:. case _
1110: 5f 41 56 75 6c 6f 6e 67 6c 6f 6e 67 3a 0a 20 20 _AVulonglong:.
1120: 20 20 28 28 5f 5f 61 76 77 6f 72 64 2a 29 6c 2d ((__avword*)l-
1130: 3e 72 61 64 64 72 29 5b 30 5d 20 3d 20 28 5f 5f >raddr)[0] = (__
1140: 61 76 77 6f 72 64 29 28 69 72 65 74 29 3b 0a 20 avword)(iret);.
1150: 20 20 20 28 28 5f 5f 61 76 77 6f 72 64 2a 29 6c ((__avword*)l
1160: 2d 3e 72 61 64 64 72 29 5b 31 5d 20 3d 20 69 72 ->raddr)[1] = ir
1170: 65 74 32 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a et2;. break;.
1180: 20 20 63 61 73 65 20 5f 5f 41 56 66 6c 6f 61 74 case __AVfloat
1190: 3a 0a 20 20 20 20 52 45 54 55 52 4e 28 66 6c 6f :. RETURN(flo
11a0: 61 74 2c 20 66 72 65 74 29 3b 0a 20 20 20 20 62 at, fret);. b
11b0: 72 65 61 6b 3b 0a 20 20 63 61 73 65 20 5f 5f 41 reak;. case __A
11c0: 56 64 6f 75 62 6c 65 3a 0a 20 20 20 20 52 45 54 Vdouble:. RET
11d0: 55 52 4e 28 64 6f 75 62 6c 65 2c 20 64 72 65 74 URN(double, dret
11e0: 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 );. break;.
11f0: 63 61 73 65 20 5f 5f 41 56 76 6f 69 64 70 3a 0a case __AVvoidp:.
1200: 20 20 20 20 52 45 54 55 52 4e 28 76 6f 69 64 2a RETURN(void*
1210: 2c 20 28 5f 5f 61 76 77 6f 72 64 29 69 72 65 74 , (__avword)iret
1220: 29 3b 0a 20 20 20 20 62 72 65 61 6b 3b 0a 20 20 );. break;.
1230: 63 61 73 65 20 5f 5f 41 56 73 74 72 75 63 74 3a case __AVstruct:
1240: 0a 20 20 20 20 69 66 20 28 6c 2d 3e 66 6c 61 67 . if (l->flag
1250: 73 20 26 20 5f 5f 41 56 5f 50 43 43 5f 53 54 52 s & __AV_PCC_STR
1260: 55 43 54 5f 52 45 54 55 52 4e 29 20 7b 0a 20 20 UCT_RETURN) {.
1270: 20 20 20 20 2f 2a 20 70 63 63 20 73 74 72 75 63 /* pcc struc
1280: 74 20 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 t return convent
1290: 69 6f 6e 3a 20 6e 65 65 64 20 61 20 20 2a 28 54 ion: need a *(T
12a0: 59 50 45 2a 29 6c 2d 3e 72 61 64 64 72 20 3d 20 YPE*)l->raddr =
12b0: 2a 28 54 59 50 45 2a 29 69 3b 20 20 2a 2f 0a 20 *(TYPE*)i; */.
12c0: 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a if (l->rsiz
12d0: 65 20 3d 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 e == sizeof(char
12e0: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 52 45 54 )) {. RET
12f0: 55 52 4e 28 63 68 61 72 2c 20 2a 28 63 68 61 72 URN(char, *(char
1300: 2a 29 28 5f 5f 61 76 77 6f 72 64 29 69 72 65 74 *)(__avword)iret
1310: 29 3b 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 0a );. } else.
1320: 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 if (l->rsi
1330: 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 73 68 6f ze == sizeof(sho
1340: 72 74 29 29 20 7b 0a 20 20 20 20 20 20 20 20 52 rt)) {. R
1350: 45 54 55 52 4e 28 73 68 6f 72 74 2c 20 2a 28 73 ETURN(short, *(s
1360: 68 6f 72 74 2a 29 28 5f 5f 61 76 77 6f 72 64 29 hort*)(__avword)
1370: 69 72 65 74 29 3b 0a 20 20 20 20 20 20 7d 20 65 iret);. } e
1380: 6c 73 65 0a 20 20 20 20 20 20 69 66 20 28 6c 2d lse. if (l-
1390: 3e 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 >rsize == sizeof
13a0: 28 69 6e 74 29 29 20 7b 0a 20 20 20 20 20 20 20 (int)) {.
13b0: 20 52 45 54 55 52 4e 28 69 6e 74 2c 20 2a 28 69 RETURN(int, *(i
13c0: 6e 74 2a 29 28 5f 5f 61 76 77 6f 72 64 29 69 72 nt*)(__avword)ir
13d0: 65 74 29 3b 0a 20 20 20 20 20 20 7d 20 65 6c 73 et);. } els
13e0: 65 0a 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 e. if (l->r
13f0: 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 64 size == sizeof(d
1400: 6f 75 62 6c 65 29 29 20 7b 0a 20 20 20 20 20 20 ouble)) {.
1410: 20 20 28 28 69 6e 74 2a 29 6c 2d 3e 72 61 64 64 ((int*)l->radd
1420: 72 29 5b 30 5d 20 3d 20 28 28 69 6e 74 2a 29 28 r)[0] = ((int*)(
1430: 5f 5f 61 76 77 6f 72 64 29 69 72 65 74 29 5b 30 __avword)iret)[0
1440: 5d 3b 0a 20 20 20 20 20 20 20 20 28 28 69 6e 74 ];. ((int
1450: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 5d 20 3d *)l->raddr)[1] =
1460: 20 28 28 69 6e 74 2a 29 28 5f 5f 61 76 77 6f 72 ((int*)(__avwor
1470: 64 29 69 72 65 74 29 5b 31 5d 3b 0a 20 20 20 20 d)iret)[1];.
1480: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 } else {.
1490: 20 20 20 69 6e 74 20 6e 20 3d 20 28 6c 2d 3e 72 int n = (l->r
14a0: 73 69 7a 65 20 2b 20 73 69 7a 65 6f 66 28 5f 5f size + sizeof(__
14b0: 61 76 77 6f 72 64 29 2d 31 29 2f 73 69 7a 65 6f avword)-1)/sizeo
14c0: 66 28 5f 5f 61 76 77 6f 72 64 29 3b 0a 20 20 20 f(__avword);.
14d0: 20 20 20 20 20 77 68 69 6c 65 20 28 2d 2d 6e 20 while (--n
14e0: 3e 3d 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 >= 0).
14f0: 28 28 5f 5f 61 76 77 6f 72 64 2a 29 6c 2d 3e 72 ((__avword*)l->r
1500: 61 64 64 72 29 5b 6e 5d 20 3d 20 28 28 5f 5f 61 addr)[n] = ((__a
1510: 76 77 6f 72 64 2a 29 28 5f 5f 61 76 77 6f 72 64 vword*)(__avword
1520: 29 69 72 65 74 29 5b 6e 5d 3b 0a 20 20 20 20 20 )iret)[n];.
1530: 20 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a }. } else {.
1540: 20 20 20 20 20 20 2f 2a 20 6e 6f 72 6d 61 6c 20 /* normal
1550: 73 74 72 75 63 74 20 72 65 74 75 72 6e 20 63 6f struct return co
1560: 6e 76 65 6e 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 nvention */.
1570: 20 20 69 66 20 28 6c 2d 3e 66 6c 61 67 73 20 26 if (l->flags &
1580: 20 5f 5f 41 56 5f 53 4d 41 4c 4c 5f 53 54 52 55 __AV_SMALL_STRU
1590: 43 54 5f 52 45 54 55 52 4e 29 20 7b 0a 20 20 20 CT_RETURN) {.
15a0: 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a if (l->rsiz
15b0: 65 20 3d 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 e == sizeof(char
15c0: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 52 )) {. R
15d0: 45 54 55 52 4e 28 63 68 61 72 2c 20 69 72 65 74 ETURN(char, iret
15e0: 29 3b 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 );. } els
15f0: 65 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d e. if (l-
1600: 3e 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 >rsize == sizeof
1610: 28 73 68 6f 72 74 29 29 20 7b 0a 20 20 20 20 20 (short)) {.
1620: 20 20 20 20 20 52 45 54 55 52 4e 28 73 68 6f 72 RETURN(shor
1630: 74 2c 20 69 72 65 74 29 3b 0a 20 20 20 20 20 20 t, iret);.
1640: 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 } else.
1650: 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d if (l->rsize ==
1660: 20 73 69 7a 65 6f 66 28 69 6e 74 29 29 20 7b 0a sizeof(int)) {.
1670: 20 20 20 20 20 20 20 20 20 20 52 45 54 55 52 4e RETURN
1680: 28 69 6e 74 2c 20 69 72 65 74 29 3b 0a 20 20 20 (int, iret);.
1690: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 }. }.
16a0: 20 20 20 7d 0a 20 20 20 20 62 72 65 61 6b 3b 0a }. break;.
16b0: 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 3b 0a }. return 0;.
16c0: 7d 0a 0a 23 65 6e 64 69 66 20 2f 2a 5f 61 76 63 }..#endif /*_avc
16d0: 61 6c 6c 5f 6d 69 70 73 5f 63 20 2a 2f 0a all_mips_c */.