Artifact
13650fab28436b436d42b0827712c5bc3057d736:
0000: 23 69 66 6e 64 65 66 20 5f 61 76 63 61 6c 6c 5f #ifndef _avcall_
0010: 63 6f 6e 76 65 78 5f 63 09 09 09 09 2f 2a 2d 2a convex_c..../*-*
0020: 2d 20 43 20 2d 2a 2d 2a 2f 0a 23 64 65 66 69 6e - C -*-*/.#defin
0030: 65 20 5f 61 76 63 61 6c 6c 5f 63 6f 6e 76 65 78 e _avcall_convex
0040: 5f 63 0a 2f 2a 2a 0a 20 20 43 6f 70 79 72 69 67 _c./**. Copyrig
0050: 68 74 20 31 39 39 33 20 42 69 6c 6c 20 54 72 69 ht 1993 Bill Tri
0060: 67 67 73 2c 20 3c 42 69 6c 6c 2e 54 72 69 67 67 ggs, <Bill.Trigg
0070: 73 40 69 6e 72 69 61 6c 70 65 73 2e 66 72 3e 0a s@inrialpes.fr>.
0080: 20 20 43 6f 70 79 72 69 67 68 74 20 31 39 39 35 Copyright 1995
0090: 2d 31 39 39 39 20 42 72 75 6e 6f 20 48 61 69 62 -1999 Bruno Haib
00a0: 6c 65 2c 20 3c 62 72 75 6e 6f 40 63 6c 69 73 70 le, <bruno@clisp
00b0: 2e 6f 72 67 3e 0a 0a 20 20 54 68 69 73 20 69 73 .org>.. This is
00c0: 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 20 64 free software d
00d0: 69 73 74 72 69 62 75 74 65 64 20 75 6e 64 65 72 istributed under
00e0: 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 61 6c the GNU General
00f0: 20 50 75 62 6c 69 63 0a 20 20 4c 69 63 65 6e 63 Public. Licenc
0100: 65 20 64 65 73 63 72 69 62 65 64 20 69 6e 20 74 e described in t
0110: 68 65 20 66 69 6c 65 20 43 4f 50 59 49 4e 47 2e he file COPYING.
0120: 20 43 6f 6e 74 61 63 74 20 74 68 65 20 61 75 74 Contact the aut
0130: 68 6f 72 20 69 66 0a 20 20 79 6f 75 20 64 6f 6e hor if. you don
0140: 27 74 20 68 61 76 65 20 74 68 69 73 20 6f 72 20 't have this or
0150: 63 61 6e 27 74 20 6c 69 76 65 20 77 69 74 68 20 can't live with
0160: 69 74 2e 20 54 68 65 72 65 20 69 73 20 41 42 53 it. There is ABS
0170: 4f 4c 55 54 45 4c 59 0a 20 20 4e 4f 20 57 41 52 OLUTELY. NO WAR
0180: 52 41 4e 54 59 2c 20 65 78 70 6c 69 63 69 74 20 RANTY, explicit
0190: 6f 72 20 69 6d 70 6c 69 65 64 2c 20 6f 6e 20 74 or implied, on t
01a0: 68 69 73 20 73 6f 66 74 77 61 72 65 2e 0a 2a 2a his software..**
01b0: 2f 0a 2f 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d /./*------------
01c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01e0: 2d 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 0a 20 20 21 21 21 ----------. !!!
0200: 20 54 48 49 53 20 52 4f 55 54 49 4e 45 20 4d 55 THIS ROUTINE MU
0210: 53 54 20 42 45 20 43 4f 4d 50 49 4c 45 44 20 67 ST BE COMPILED g
0220: 63 63 20 2d 4f 20 21 21 21 0a 0a 20 20 46 6f 72 cc -O !!!.. For
0230: 65 69 67 6e 20 66 75 6e 63 74 69 6f 6e 20 69 6e eign function in
0240: 74 65 72 66 61 63 65 20 66 6f 72 20 61 20 43 6f terface for a Co
0250: 6e 76 65 78 20 43 32 20 77 69 74 68 20 67 63 63 nvex C2 with gcc
0260: 2e 0a 0a 20 20 54 68 69 73 20 63 61 6c 6c 73 20 ... This calls
0270: 61 20 43 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 a C function wit
0280: 68 20 61 6e 20 61 72 67 75 6d 65 6e 74 20 6c 69 h an argument li
0290: 73 74 20 62 75 69 6c 74 20 75 70 20 75 73 69 6e st built up usin
02a0: 67 20 6d 61 63 72 6f 73 0a 20 20 64 65 66 69 6e g macros. defin
02b0: 65 64 20 69 6e 20 61 76 5f 63 61 6c 6c 2e 68 2e ed in av_call.h.
02c0: 0a 0a 20 20 43 6f 6e 76 65 78 20 41 72 67 75 6d .. Convex Argum
02d0: 65 6e 74 20 50 61 73 73 69 6e 67 20 43 6f 6e 76 ent Passing Conv
02e0: 65 6e 74 69 6f 6e 73 3a 0a 0a 20 20 41 6c 6c 20 entions:.. All
02f0: 61 72 67 75 6d 65 6e 74 73 20 61 72 65 20 70 61 arguments are pa
0300: 73 73 65 64 20 6f 6e 20 74 68 65 20 73 74 61 63 ssed on the stac
0310: 6b 20 77 69 74 68 20 77 6f 72 64 20 61 6c 69 67 k with word alig
0320: 6e 6d 65 6e 74 2e 20 44 6f 75 62 6c 65 73 20 74 nment. Doubles t
0330: 61 6b 65 0a 20 20 74 77 6f 20 77 6f 72 64 73 2e ake. two words.
0340: 20 53 74 72 75 63 74 75 72 65 20 61 72 67 73 20 Structure args
0350: 61 72 65 20 70 61 73 73 65 64 20 61 73 20 74 72 are passed as tr
0360: 75 65 20 73 74 72 75 63 74 75 72 65 73 20 65 6d ue structures em
0370: 62 65 64 64 65 64 20 69 6e 20 74 68 65 0a 20 20 bedded in the.
0380: 61 72 67 75 6d 65 6e 74 20 73 74 61 63 6b 2e 20 argument stack.
0390: 54 6f 20 72 65 74 75 72 6e 20 61 20 73 74 72 75 To return a stru
03a0: 63 74 75 72 65 2c 20 74 68 65 20 2d 66 70 63 63 cture, the -fpcc
03b0: 2d 73 74 72 75 63 74 2d 72 65 74 75 72 6e 20 63 -struct-return c
03c0: 6f 6e 76 65 6e 74 69 6f 6e 0a 20 20 69 73 20 75 onvention. is u
03d0: 73 65 64 2e 0a 0a 20 20 43 6f 6d 70 69 6c 65 20 sed... Compile
03e0: 74 68 69 73 20 72 6f 75 74 69 6e 65 20 77 69 74 this routine wit
03f0: 68 20 67 63 63 20 2d 4f 20 28 6f 72 20 2d 4f 32 h gcc -O (or -O2
0400: 20 6f 72 20 2d 67 20 2d 4f 29 20 74 6f 20 67 65 or -g -O) to ge
0410: 74 20 74 68 65 20 72 69 67 68 74 0a 20 20 72 65 t the right. re
0420: 67 69 73 74 65 72 20 76 61 72 69 61 62 6c 65 73 gister variables
0430: 2c 20 6f 72 20 75 73 65 20 74 68 65 20 61 73 73 , or use the ass
0440: 65 6d 62 6c 65 72 20 76 65 72 73 69 6f 6e 2e 0a embler version..
0450: 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d --------------
0460: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0470: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0480: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0490: 2d 2d 2d 2d 2d 2d 2d 2d 2a 2f 0a 23 69 6e 63 6c --------*/.#incl
04a0: 75 64 65 20 22 61 76 63 61 6c 6c 2e 68 2e 69 6e ude "avcall.h.in
04b0: 22 0a 0a 23 64 65 66 69 6e 65 20 52 45 54 55 52 "..#define RETUR
04c0: 4e 28 54 59 50 45 2c 56 41 4c 29 09 28 2a 28 54 N(TYPE,VAL).(*(T
04d0: 59 50 45 2a 29 6c 2d 3e 72 61 64 64 72 20 3d 20 YPE*)l->raddr =
04e0: 28 54 59 50 45 29 28 56 41 4c 29 29 0a 0a 69 6e (TYPE)(VAL))..in
04f0: 74 0a 5f 5f 62 75 69 6c 74 69 6e 5f 61 76 63 61 t.__builtin_avca
0500: 6c 6c 28 61 76 5f 61 6c 69 73 74 2a 20 6c 29 0a ll(av_alist* l).
0510: 7b 0a 20 20 72 65 67 69 73 74 65 72 20 5f 5f 61 {. register __a
0520: 76 77 6f 72 64 2a 09 73 70 09 5f 5f 61 73 6d 5f vword*.sp.__asm_
0530: 5f 28 22 73 70 22 29 3b 20 20 2f 2a 20 43 20 6e _("sp"); /* C n
0540: 61 6d 65 73 20 66 6f 72 20 72 65 67 69 73 74 65 ames for registe
0550: 72 73 20 2a 2f 0a 20 20 72 65 67 69 73 74 65 72 rs */. register
0560: 20 6c 6f 6e 67 20 6c 6f 6e 67 09 6c 6c 72 65 74 long long.llret
0570: 09 5f 5f 61 73 6d 5f 5f 28 22 73 30 22 29 3b 0a .__asm__("s0");.
0580: 20 20 72 65 67 69 73 74 65 72 20 66 6c 6f 61 74 register float
0590: 09 66 72 65 74 09 5f 5f 61 73 6d 5f 5f 28 22 73 .fret.__asm__("s
05a0: 30 22 29 3b 0a 20 20 72 65 67 69 73 74 65 72 20 0");. register
05b0: 64 6f 75 62 6c 65 09 64 72 65 74 09 5f 5f 61 73 double.dret.__as
05c0: 6d 5f 5f 28 22 73 30 22 29 3b 0a 0a 20 20 5f 5f m__("s0");.. __
05d0: 61 76 77 6f 72 64 20 73 70 61 63 65 5b 5f 5f 41 avword space[__A
05e0: 56 5f 41 4c 49 53 54 5f 57 4f 52 44 53 5d 3b 09 V_ALIST_WORDS];.
05f0: 2f 2a 20 73 70 61 63 65 20 66 6f 72 20 63 61 6c /* space for cal
0600: 6c 65 65 27 73 20 73 74 61 63 6b 20 66 72 61 6d lee's stack fram
0610: 65 20 2a 2f 0a 20 20 5f 5f 61 76 77 6f 72 64 2a e */. __avword*
0620: 20 61 72 67 66 72 61 6d 65 20 3d 20 73 70 3b 09 argframe = sp;.
0630: 09 2f 2a 20 73 74 61 63 6b 20 6f 66 66 73 65 74 ./* stack offset
0640: 20 66 6f 72 20 61 72 67 75 6d 65 6e 74 20 6c 69 for argument li
0650: 73 74 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 6c st */. int argl
0660: 65 6e 20 3d 20 6c 2d 3e 61 70 74 72 20 2d 20 6c en = l->aptr - l
0670: 2d 3e 61 72 67 73 3b 0a 20 20 5f 5f 61 76 77 6f ->args;. __avwo
0680: 72 64 20 69 3b 0a 0a 20 20 7b 0a 20 20 20 20 69 rd i;.. {. i
0690: 6e 74 20 69 3b 0a 20 20 20 20 66 6f 72 20 28 69 nt i;. for (i
06a0: 20 3d 20 30 3b 20 69 20 3c 20 61 72 67 6c 65 6e = 0; i < arglen
06b0: 3b 20 69 2b 2b 29 09 2f 2a 20 70 75 73 68 20 66 ; i++)./* push f
06c0: 75 6e 63 74 69 6f 6e 20 61 72 67 73 20 6f 6e 74 unction args ont
06d0: 6f 20 73 74 61 63 6b 20 2a 2f 0a 20 20 20 20 20 o stack */.
06e0: 20 61 72 67 66 72 61 6d 65 5b 69 5d 20 3d 20 6c argframe[i] = l
06f0: 2d 3e 61 72 67 73 5b 69 5d 3b 0a 20 20 7d 0a 0a ->args[i];. }..
0700: 20 20 69 20 3d 20 28 2a 6c 2d 3e 66 75 6e 63 29 i = (*l->func)
0710: 28 29 3b 09 09 09 2f 2a 20 63 61 6c 6c 20 66 75 ();.../* call fu
0720: 6e 63 74 69 6f 6e 20 2a 2f 0a 0a 20 20 2f 2a 20 nction */.. /*
0730: 73 61 76 65 20 72 65 74 75 72 6e 20 76 61 6c 75 save return valu
0740: 65 20 2a 2f 0a 20 20 69 66 20 28 6c 2d 3e 72 74 e */. if (l->rt
0750: 79 70 65 20 3d 3d 20 5f 5f 41 56 76 6f 69 64 29 ype == __AVvoid)
0760: 20 7b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 {. } else. if
0770: 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f (l->rtype == __
0780: 41 56 77 6f 72 64 29 20 7b 0a 20 20 20 20 52 45 AVword) {. RE
0790: 54 55 52 4e 28 5f 5f 61 76 77 6f 72 64 2c 20 69 TURN(__avword, i
07a0: 29 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 );. } else. if
07b0: 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f (l->rtype == __
07c0: 41 56 63 68 61 72 29 20 7b 0a 20 20 20 20 52 45 AVchar) {. RE
07d0: 54 55 52 4e 28 63 68 61 72 2c 20 69 29 3b 0a 20 TURN(char, i);.
07e0: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d } else. if (l-
07f0: 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 73 63 >rtype == __AVsc
0800: 68 61 72 29 20 7b 0a 20 20 20 20 52 45 54 55 52 har) {. RETUR
0810: 4e 28 73 69 67 6e 65 64 20 63 68 61 72 2c 20 69 N(signed char, i
0820: 29 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 );. } else. if
0830: 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f (l->rtype == __
0840: 41 56 75 63 68 61 72 29 20 7b 0a 20 20 20 20 52 AVuchar) {. R
0850: 45 54 55 52 4e 28 75 6e 73 69 67 6e 65 64 20 63 ETURN(unsigned c
0860: 68 61 72 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 har, i);. } els
0870: 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 e. if (l->rtype
0880: 20 3d 3d 20 5f 5f 41 56 73 68 6f 72 74 29 20 7b == __AVshort) {
0890: 0a 20 20 20 20 52 45 54 55 52 4e 28 73 68 6f 72 . RETURN(shor
08a0: 74 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 0a t, i);. } else.
08b0: 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d if (l->rtype =
08c0: 3d 20 5f 5f 41 56 75 73 68 6f 72 74 29 20 7b 0a = __AVushort) {.
08d0: 20 20 20 20 52 45 54 55 52 4e 28 75 6e 73 69 67 RETURN(unsig
08e0: 6e 65 64 20 73 68 6f 72 74 2c 20 69 29 3b 0a 20 ned short, i);.
08f0: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d } else. if (l-
0900: 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 69 6e >rtype == __AVin
0910: 74 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 t) {. RETURN(
0920: 69 6e 74 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 int, i);. } els
0930: 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 e. if (l->rtype
0940: 20 3d 3d 20 5f 5f 41 56 75 69 6e 74 29 20 7b 0a == __AVuint) {.
0950: 20 20 20 20 52 45 54 55 52 4e 28 75 6e 73 69 67 RETURN(unsig
0960: 6e 65 64 20 69 6e 74 2c 20 69 29 3b 0a 20 20 7d ned int, i);. }
0970: 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 else. if (l->r
0980: 74 79 70 65 20 3d 3d 20 5f 5f 41 56 6c 6f 6e 67 type == __AVlong
0990: 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 6c ) {. RETURN(l
09a0: 6f 6e 67 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 ong, i);. } els
09b0: 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 e. if (l->rtype
09c0: 20 3d 3d 20 5f 5f 41 56 75 6c 6f 6e 67 29 20 7b == __AVulong) {
09d0: 0a 20 20 20 20 52 45 54 55 52 4e 28 75 6e 73 69 . RETURN(unsi
09e0: 67 6e 65 64 20 6c 6f 6e 67 2c 20 69 29 3b 0a 20 gned long, i);.
09f0: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d } else. if (l-
0a00: 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 6c 6f >rtype == __AVlo
0a10: 6e 67 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 52 45 nglong) {. RE
0a20: 54 55 52 4e 28 6c 6f 6e 67 20 6c 6f 6e 67 2c 20 TURN(long long,
0a30: 6c 6c 72 65 74 29 3b 0a 20 20 7d 20 65 6c 73 65 llret);. } else
0a40: 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 . if (l->rtype
0a50: 3d 3d 20 5f 5f 41 56 75 6c 6f 6e 67 6c 6f 6e 67 == __AVulonglong
0a60: 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 75 ) {. RETURN(u
0a70: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e nsigned long lon
0a80: 67 2c 20 6c 6c 72 65 74 29 3b 0a 20 20 7d 20 65 g, llret);. } e
0a90: 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 lse. if (l->rty
0aa0: 70 65 20 3d 3d 20 5f 5f 41 56 66 6c 6f 61 74 29 pe == __AVfloat)
0ab0: 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 66 6c {. RETURN(fl
0ac0: 6f 61 74 2c 20 66 72 65 74 29 3b 0a 20 20 7d 20 oat, fret);. }
0ad0: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
0ae0: 79 70 65 20 3d 3d 20 5f 5f 41 56 64 6f 75 62 6c ype == __AVdoubl
0af0: 65 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 e) {. RETURN(
0b00: 64 6f 75 62 6c 65 2c 20 64 72 65 74 29 3b 0a 20 double, dret);.
0b10: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d } else. if (l-
0b20: 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 76 6f >rtype == __AVvo
0b30: 69 64 70 29 20 7b 0a 20 20 20 20 52 45 54 55 52 idp) {. RETUR
0b40: 4e 28 76 6f 69 64 2a 2c 20 69 29 3b 0a 20 20 7d N(void*, i);. }
0b50: 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 else. if (l->r
0b60: 74 79 70 65 20 3d 3d 20 5f 5f 41 56 73 74 72 75 type == __AVstru
0b70: 63 74 29 20 7b 0a 20 20 20 20 69 66 20 28 6c 2d ct) {. if (l-
0b80: 3e 66 6c 61 67 73 20 26 20 5f 5f 41 56 5f 50 43 >flags & __AV_PC
0b90: 43 5f 53 54 52 55 43 54 5f 52 45 54 55 52 4e 29 C_STRUCT_RETURN)
0ba0: 20 7b 0a 20 20 20 20 20 20 2f 2a 20 70 63 63 20 {. /* pcc
0bb0: 73 74 72 75 63 74 20 72 65 74 75 72 6e 20 63 6f struct return co
0bc0: 6e 76 65 6e 74 69 6f 6e 3a 20 6e 65 65 64 20 61 nvention: need a
0bd0: 20 20 2a 28 54 59 50 45 2a 29 6c 2d 3e 72 61 64 *(TYPE*)l->rad
0be0: 64 72 20 3d 20 2a 28 54 59 50 45 2a 29 69 3b 20 dr = *(TYPE*)i;
0bf0: 20 2a 2f 0a 20 20 20 20 20 20 69 66 20 28 6c 2d */. if (l-
0c00: 3e 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 >rsize == sizeof
0c10: 28 63 68 61 72 29 29 20 7b 0a 20 20 20 20 20 20 (char)) {.
0c20: 20 20 52 45 54 55 52 4e 28 63 68 61 72 2c 20 2a RETURN(char, *
0c30: 28 63 68 61 72 2a 29 69 29 3b 0a 20 20 20 20 20 (char*)i);.
0c40: 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 69 66 } else. if
0c50: 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 73 69 (l->rsize == si
0c60: 7a 65 6f 66 28 73 68 6f 72 74 29 29 20 7b 0a 20 zeof(short)) {.
0c70: 20 20 20 20 20 20 20 52 45 54 55 52 4e 28 73 68 RETURN(sh
0c80: 6f 72 74 2c 20 2a 28 73 68 6f 72 74 2a 29 69 29 ort, *(short*)i)
0c90: 3b 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 ;. } else.
0ca0: 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a if (l->rsiz
0cb0: 65 20 3d 3d 20 73 69 7a 65 6f 66 28 69 6e 74 29 e == sizeof(int)
0cc0: 29 20 7b 0a 20 20 20 20 20 20 20 20 52 45 54 55 ) {. RETU
0cd0: 52 4e 28 69 6e 74 2c 20 2a 28 69 6e 74 2a 29 69 RN(int, *(int*)i
0ce0: 29 3b 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 0a );. } else.
0cf0: 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 if (l->rsi
0d00: 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 64 6f 75 ze == sizeof(dou
0d10: 62 6c 65 29 29 20 7b 0a 20 20 20 20 20 20 20 20 ble)) {.
0d20: 28 28 69 6e 74 2a 29 6c 2d 3e 72 61 64 64 72 29 ((int*)l->raddr)
0d30: 5b 30 5d 20 3d 20 28 28 69 6e 74 2a 29 69 29 5b [0] = ((int*)i)[
0d40: 30 5d 3b 0a 20 20 20 20 20 20 20 20 28 28 69 6e 0];. ((in
0d50: 74 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 5d 20 t*)l->raddr)[1]
0d60: 3d 20 28 28 69 6e 74 2a 29 69 29 5b 31 5d 3b 0a = ((int*)i)[1];.
0d70: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 } else {.
0d80: 20 20 20 20 20 20 20 69 6e 74 20 6e 20 3d 20 28 int n = (
0d90: 6c 2d 3e 72 73 69 7a 65 20 2b 20 73 69 7a 65 6f l->rsize + sizeo
0da0: 66 28 5f 5f 61 76 77 6f 72 64 29 2d 31 29 2f 73 f(__avword)-1)/s
0db0: 69 7a 65 6f 66 28 5f 5f 61 76 77 6f 72 64 29 3b izeof(__avword);
0dc0: 0a 20 20 20 20 20 20 20 20 77 68 69 6c 65 20 28 . while (
0dd0: 2d 2d 6e 20 3e 3d 20 30 29 0a 20 20 20 20 20 20 --n >= 0).
0de0: 20 20 20 20 28 28 5f 5f 61 76 77 6f 72 64 2a 29 ((__avword*)
0df0: 6c 2d 3e 72 61 64 64 72 29 5b 6e 5d 20 3d 20 28 l->raddr)[n] = (
0e00: 28 5f 5f 61 76 77 6f 72 64 2a 29 69 29 5b 6e 5d (__avword*)i)[n]
0e10: 3b 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 20 ;. }. }
0e20: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 2f 2a 20 else {. /*
0e30: 6e 6f 72 6d 61 6c 20 73 74 72 75 63 74 20 72 65 normal struct re
0e40: 74 75 72 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 turn convention
0e50: 2a 2f 0a 20 20 20 20 20 20 69 66 20 28 6c 2d 3e */. if (l->
0e60: 66 6c 61 67 73 20 26 20 5f 5f 41 56 5f 52 45 47 flags & __AV_REG
0e70: 49 53 54 45 52 5f 53 54 52 55 43 54 5f 52 45 54 ISTER_STRUCT_RET
0e80: 55 52 4e 29 20 7b 0a 20 20 20 20 20 20 20 20 69 URN) {. i
0e90: 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 73 f (l->rsize == s
0ea0: 69 7a 65 6f 66 28 63 68 61 72 29 29 20 7b 0a 20 izeof(char)) {.
0eb0: 20 20 20 20 20 20 20 20 20 52 45 54 55 52 4e 28 RETURN(
0ec0: 63 68 61 72 2c 20 69 29 3b 0a 20 20 20 20 20 20 char, i);.
0ed0: 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 } else.
0ee0: 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d if (l->rsize ==
0ef0: 20 73 69 7a 65 6f 66 28 73 68 6f 72 74 29 29 20 sizeof(short))
0f00: 7b 0a 20 20 20 20 20 20 20 20 20 20 52 45 54 55 {. RETU
0f10: 52 4e 28 73 68 6f 72 74 2c 20 69 29 3b 0a 20 20 RN(short, i);.
0f20: 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 } else.
0f30: 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a if (l->rsiz
0f40: 65 20 3d 3d 20 73 69 7a 65 6f 66 28 69 6e 74 29 e == sizeof(int)
0f50: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 52 45 ) {. RE
0f60: 54 55 52 4e 28 69 6e 74 2c 20 69 29 3b 0a 20 20 TURN(int, i);.
0f70: 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 } else.
0f80: 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a if (l->rsiz
0f90: 65 20 3d 3d 20 32 2a 73 69 7a 65 6f 66 28 5f 5f e == 2*sizeof(__
0fa0: 61 76 77 6f 72 64 29 29 20 7b 0a 20 20 20 20 20 avword)) {.
0fb0: 20 20 20 20 20 52 45 54 55 52 4e 28 6c 6f 6e 67 RETURN(long
0fc0: 20 6c 6f 6e 67 2c 20 6c 6c 72 65 74 29 3b 0a 20 long, llret);.
0fd0: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d }. }
0fe0: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 . }. }. ret
0ff0: 75 72 6e 20 30 3b 0a 7d 0a 0a 23 65 6e 64 69 66 urn 0;.}..#endif
1000: 20 2f 2a 5f 61 76 63 61 6c 6c 5f 63 6f 6e 76 65 /*_avcall_conve
1010: 78 5f 63 20 2a 2f 0a x_c */.