Artifact
8f88df0b3d3941f96b97184d5c12b6e36fe945ae:
0000: 23 69 66 6e 64 65 66 20 5f 61 76 63 61 6c 6c 5f #ifndef _avcall_
0010: 70 6f 77 65 72 70 63 5f 63 09 09 09 09 2f 2a 2d powerpc_c..../*-
0020: 2a 2d 20 43 20 2d 2a 2d 2a 2f 0a 23 64 65 66 69 *- C -*-*/.#defi
0030: 6e 65 20 5f 61 76 63 61 6c 6c 5f 70 6f 77 65 72 ne _avcall_power
0040: 70 63 5f 63 0a 2f 2a 2a 0a 20 20 43 6f 70 79 72 pc_c./**. Copyr
0050: 69 67 68 74 20 31 39 39 33 20 42 69 6c 6c 20 54 ight 1993 Bill T
0060: 72 69 67 67 73 2c 20 3c 42 69 6c 6c 2e 54 72 69 riggs, <Bill.Tri
0070: 67 67 73 40 69 6e 72 69 61 6c 70 65 73 2e 66 72 ggs@inrialpes.fr
0080: 3e 0a 20 20 43 6f 70 79 72 69 67 68 74 20 31 39 >. Copyright 19
0090: 39 35 2d 32 30 30 36 20 42 72 75 6e 6f 20 48 61 95-2006 Bruno Ha
00a0: 69 62 6c 65 2c 20 3c 62 72 75 6e 6f 40 63 6c 69 ible, <bruno@cli
00b0: 73 70 2e 6f 72 67 3e 0a 20 20 43 6f 70 79 72 69 sp.org>. Copyri
00c0: 67 68 74 20 32 30 30 30 20 41 64 61 6d 20 46 65 ght 2000 Adam Fe
00d0: 64 6f 72 2c 20 3c 66 65 64 6f 72 40 67 6e 75 2e dor, <fedor@gnu.
00e0: 6f 72 67 3e 0a 20 20 43 6f 70 79 72 69 67 68 74 org>. Copyright
00f0: 20 32 30 30 34 20 50 61 75 6c 20 47 75 79 6f 74 2004 Paul Guyot
0100: 2c 20 3c 70 67 75 79 6f 74 40 6b 61 6c 6c 69 73 , <pguyot@kallis
0110: 79 73 2e 6e 65 74 3e 0a 0a 20 20 54 68 69 73 20 ys.net>.. This
0120: 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 is free software
0130: 20 64 69 73 74 72 69 62 75 74 65 64 20 75 6e 64 distributed und
0140: 65 72 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 er the GNU Gener
0150: 61 6c 20 50 75 62 6c 69 63 0a 20 20 4c 69 63 65 al Public. Lice
0160: 6e 63 65 20 64 65 73 63 72 69 62 65 64 20 69 6e nce described in
0170: 20 74 68 65 20 66 69 6c 65 20 43 4f 50 59 49 4e the file COPYIN
0180: 47 2e 20 43 6f 6e 74 61 63 74 20 74 68 65 20 61 G. Contact the a
0190: 75 74 68 6f 72 20 69 66 0a 20 20 79 6f 75 20 64 uthor if. you d
01a0: 6f 6e 27 74 20 68 61 76 65 20 74 68 69 73 20 6f on't have this o
01b0: 72 20 63 61 6e 27 74 20 6c 69 76 65 20 77 69 74 r can't live wit
01c0: 68 20 69 74 2e 20 54 68 65 72 65 20 69 73 20 41 h it. There is A
01d0: 42 53 4f 4c 55 54 45 4c 59 0a 20 20 4e 4f 20 57 BSOLUTELY. NO W
01e0: 41 52 52 41 4e 54 59 2c 20 65 78 70 6c 69 63 69 ARRANTY, explici
01f0: 74 20 6f 72 20 69 6d 70 6c 69 65 64 2c 20 6f 6e t or implied, on
0200: 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 2e 0a this software..
0210: 2a 2a 2f 0a 2f 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d **/./*----------
0220: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0230: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0240: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0250: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 21 ------------. !
0260: 21 21 20 54 48 49 53 20 52 4f 55 54 49 4e 45 20 !! THIS ROUTINE
0270: 4d 55 53 54 20 42 45 20 43 4f 4d 50 49 4c 45 44 MUST BE COMPILED
0280: 20 67 63 63 20 2d 4f 20 21 21 21 0a 0a 20 20 46 gcc -O !!!.. F
0290: 6f 72 65 69 67 6e 20 66 75 6e 63 74 69 6f 6e 20 oreign function
02a0: 69 6e 74 65 72 66 61 63 65 20 66 6f 72 20 61 6e interface for an
02b0: 20 49 42 4d 20 52 53 2f 36 30 30 30 20 77 69 74 IBM RS/6000 wit
02c0: 68 20 67 63 63 0a 0a 20 20 54 68 69 73 20 63 61 h gcc.. This ca
02d0: 6c 6c 73 20 61 20 43 20 66 75 6e 63 74 69 6f 6e lls a C function
02e0: 20 77 69 74 68 20 61 6e 20 61 72 67 75 6d 65 6e with an argumen
02f0: 74 20 6c 69 73 74 20 62 75 69 6c 74 20 75 70 20 t list built up
0300: 75 73 69 6e 67 20 6d 61 63 72 6f 73 0a 20 20 64 using macros. d
0310: 65 66 69 6e 65 64 20 69 6e 20 61 76 5f 63 61 6c efined in av_cal
0320: 6c 2e 68 2e 0a 0a 20 20 52 53 36 30 30 30 20 41 l.h... RS6000 A
0330: 72 67 75 6d 65 6e 74 20 50 61 73 73 69 6e 67 20 rgument Passing
0340: 43 6f 6e 76 65 6e 74 69 6f 6e 73 3a 0a 0a 20 20 Conventions:..
0350: 41 6c 6c 20 61 72 67 75 6d 65 6e 74 73 2c 20 65 All arguments, e
0360: 78 63 65 70 74 20 74 68 65 20 66 69 72 73 74 20 xcept the first
0370: 38 20 77 6f 72 64 73 2c 20 61 72 65 20 70 61 73 8 words, are pas
0380: 73 65 64 20 6f 6e 20 74 68 65 20 73 74 61 63 6b sed on the stack
0390: 20 77 69 74 68 0a 20 20 77 6f 72 64 20 61 6c 69 with. word ali
03a0: 67 6e 6d 65 6e 74 2e 20 44 6f 75 62 6c 65 73 20 gnment. Doubles
03b0: 74 61 6b 65 20 74 77 6f 20 77 6f 72 64 73 2e 20 take two words.
03c0: 54 68 65 20 66 69 72 73 74 20 31 33 20 64 6f 75 The first 13 dou
03d0: 62 6c 65 73 20 61 6e 64 20 66 6c 6f 61 74 73 0a bles and floats.
03e0: 20 20 61 72 65 20 61 6c 73 6f 20 70 61 73 73 65 are also passe
03f0: 64 20 69 6e 20 66 6c 6f 61 74 69 6e 67 2d 70 6f d in floating-po
0400: 69 6e 74 2d 72 65 67 69 73 74 65 72 73 2e 0a 20 int-registers..
0410: 20 54 6f 20 72 65 74 75 72 6e 20 61 20 73 74 72 To return a str
0420: 75 63 74 75 72 65 2c 20 74 68 65 20 63 61 6c 6c ucture, the call
0430: 65 64 20 66 75 6e 63 74 69 6f 6e 20 63 6f 70 69 ed function copi
0440: 65 73 20 74 68 65 20 76 61 6c 75 65 20 74 6f 20 es the value to
0450: 73 70 61 63 65 0a 20 20 70 6f 69 6e 74 65 64 20 space. pointed
0460: 74 6f 20 62 79 20 69 74 73 20 66 69 72 73 74 20 to by its first
0470: 61 72 67 75 6d 65 6e 74 2c 20 61 6e 64 20 61 6c argument, and al
0480: 6c 20 6f 74 68 65 72 20 61 72 67 75 6d 65 6e 74 l other argument
0490: 73 20 61 72 65 20 73 68 69 66 74 65 64 0a 20 20 s are shifted.
04a0: 64 6f 77 6e 20 62 79 20 6f 6e 65 2e 0a 0a 20 20 down by one...
04b0: 44 69 66 66 65 72 65 6e 63 65 73 20 62 65 74 77 Differences betw
04c0: 65 65 6e 20 41 49 58 20 61 6e 64 20 53 79 73 56 een AIX and SysV
04d0: 2e 34 20 61 72 67 75 6d 65 6e 74 20 70 61 73 73 .4 argument pass
04e0: 69 6e 67 20 63 6f 6e 76 65 6e 74 69 6f 6e 73 3a ing conventions:
04f0: 0a 20 20 2d 20 41 49 58 3a 20 74 68 65 20 66 69 . - AIX: the fi
0500: 72 73 74 20 31 33 20 64 6f 75 62 6c 65 73 20 61 rst 13 doubles a
0510: 6e 64 20 66 6c 6f 61 74 73 20 61 72 65 20 70 61 nd floats are pa
0520: 73 73 65 64 20 69 6e 20 46 50 20 72 65 67 69 73 ssed in FP regis
0530: 74 65 72 73 2c 0a 20 20 20 20 20 20 20 20 20 61 ters,. a
0540: 6e 64 20 77 68 65 6e 20 74 68 65 79 20 64 6f 2c nd when they do,
0550: 20 74 68 65 72 65 20 69 73 20 73 74 69 6c 6c 20 there is still
0560: 72 6f 6f 6d 20 61 6c 6c 6f 63 61 74 65 64 20 66 room allocated f
0570: 6f 72 20 74 68 65 6d 20 69 6e 20 74 68 65 0a 20 or them in the.
0580: 20 20 20 20 20 20 20 20 61 72 67 75 6d 65 6e 74 argument
0590: 20 73 65 71 75 65 6e 63 65 20 28 69 6e 74 65 67 sequence (integ
05a0: 65 72 20 72 65 67 73 20 6f 72 20 73 74 61 63 6b er regs or stack
05b0: 29 2e 0a 20 20 20 20 53 79 73 56 2e 34 3a 20 74 ).. SysV.4: t
05c0: 68 65 20 66 69 72 73 74 20 38 20 64 6f 75 62 6c he first 8 doubl
05d0: 65 73 20 61 6e 64 20 66 6c 6f 61 74 73 20 61 72 es and floats ar
05e0: 65 20 70 61 73 73 65 64 20 69 6e 20 46 50 20 72 e passed in FP r
05f0: 65 67 69 73 74 65 72 73 2c 0a 20 20 20 20 20 20 egisters,.
0600: 20 20 20 61 6e 64 20 6e 6f 20 72 6f 6f 6d 20 69 and no room i
0610: 73 20 61 6c 6c 6f 63 61 74 65 64 20 66 6f 72 20 s allocated for
0620: 74 68 65 6d 20 69 6e 20 74 68 65 20 61 72 67 75 them in the argu
0630: 6d 65 6e 74 20 73 65 71 75 65 6e 63 65 2e 0a 20 ment sequence..
0640: 20 2d 20 41 49 58 3a 20 53 74 72 75 63 74 75 72 - AIX: Structur
0650: 65 73 20 61 72 65 20 70 61 73 73 65 64 20 69 6e es are passed in
0660: 20 74 68 65 20 61 72 67 75 6d 65 6e 74 20 73 65 the argument se
0670: 71 75 65 6e 63 65 2e 0a 20 20 20 20 53 79 73 56 quence.. SysV
0680: 2e 34 3a 20 53 74 72 75 63 74 75 72 65 73 20 61 .4: Structures a
0690: 72 65 20 70 61 73 73 65 64 20 62 79 20 72 65 66 re passed by ref
06a0: 65 72 65 6e 63 65 3a 20 6f 6e 6c 79 20 61 20 70 erence: only a p
06b0: 6f 69 6e 74 65 72 20 61 70 70 65 61 72 73 20 69 ointer appears i
06c0: 6e 0a 20 20 20 20 20 20 20 20 20 74 68 65 20 61 n. the a
06d0: 72 67 75 6d 65 6e 74 20 73 65 71 75 65 6e 63 65 rgument sequence
06e0: 2e 0a 20 20 2d 20 41 49 58 3a 20 4c 6f 6e 67 20 .. - AIX: Long
06f0: 6c 6f 6e 67 73 20 61 72 65 20 6f 6e 6c 79 20 77 longs are only w
0700: 6f 72 64 20 61 6c 69 67 6e 65 64 2e 0a 20 20 20 ord aligned..
0710: 20 53 79 73 56 2e 34 3a 20 4c 6f 6e 67 20 6c 6f SysV.4: Long lo
0720: 6e 67 73 20 61 72 65 20 74 77 6f 2d 77 6f 72 64 ngs are two-word
0730: 20 61 6c 69 67 6e 65 64 2c 20 62 6f 74 68 20 77 aligned, both w
0740: 68 65 6e 20 70 61 73 73 65 64 20 69 6e 20 72 65 hen passed in re
0750: 67 69 73 74 65 72 73 0a 20 20 20 20 20 20 20 20 gisters.
0760: 20 28 70 61 69 72 73 3a 20 33 2f 34 2c 20 35 2f (pairs: 3/4, 5/
0770: 36 2c 20 37 2f 38 2c 20 39 2f 31 30 29 20 61 6e 6, 7/8, 9/10) an
0780: 64 20 77 68 65 6e 20 70 61 73 73 65 64 20 6f 6e d when passed on
0790: 20 74 68 65 20 73 74 61 63 6b 2e 20 28 52 65 63 the stack. (Rec
07a0: 61 6c 6c 0a 20 20 20 20 20 20 20 20 20 74 68 61 all. tha
07b0: 74 20 74 68 65 20 73 74 61 63 6b 20 69 73 20 61 t the stack is a
07c0: 6c 77 61 79 73 20 38 2d 62 79 74 65 20 61 6c 69 lways 8-byte ali
07d0: 67 6e 65 64 29 2e 0a 0a 20 20 43 6f 6d 70 69 6c gned)... Compil
07e0: 65 20 74 68 69 73 20 72 6f 75 74 69 6e 65 20 77 e this routine w
07f0: 69 74 68 20 67 63 63 20 2d 4f 20 28 6f 72 20 2d ith gcc -O (or -
0800: 4f 32 20 2d 66 6e 6f 2d 6f 6d 69 74 2d 66 72 61 O2 -fno-omit-fra
0810: 6d 65 2d 70 6f 69 6e 74 65 72 20 6f 72 20 2d 67 me-pointer or -g
0820: 20 2d 4f 29 0a 20 20 74 6f 20 67 65 74 20 74 68 -O). to get th
0830: 65 20 72 69 67 68 74 20 72 65 67 69 73 74 65 72 e right register
0840: 20 76 61 72 69 61 62 6c 65 73 2e 20 46 6f 72 20 variables. For
0850: 6f 74 68 65 72 20 63 6f 6d 70 69 6c 65 72 73 20 other compilers
0860: 75 73 65 20 74 68 65 0a 20 20 70 72 65 2d 63 6f use the. pre-co
0870: 6d 70 69 6c 65 64 20 61 73 73 65 6d 62 6c 65 72 mpiled assembler
0880: 20 76 65 72 73 69 6f 6e 2e 0a 20 20 2d 2d 2d 2d version.. ----
0890: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
08d0: 2d 2d 2a 2f 0a 23 69 6e 63 6c 75 64 65 20 22 61 --*/.#include "a
08e0: 76 63 61 6c 6c 2e 68 2e 69 6e 22 0a 0a 23 69 66 vcall.h.in"..#if
08f0: 64 65 66 20 5f 5f 6c 69 6e 75 78 5f 5f 0a 23 64 def __linux__.#d
0900: 65 66 69 6e 65 20 53 54 41 43 4b 5f 4f 46 46 53 efine STACK_OFFS
0910: 45 54 20 32 0a 23 65 6c 73 65 0a 23 64 65 66 69 ET 2.#else.#defi
0920: 6e 65 20 53 54 41 43 4b 5f 4f 46 46 53 45 54 20 ne STACK_OFFSET
0930: 31 34 0a 23 65 6e 64 69 66 0a 0a 23 64 65 66 69 14.#endif..#defi
0940: 6e 65 20 52 45 54 55 52 4e 28 54 59 50 45 2c 56 ne RETURN(TYPE,V
0950: 41 4c 29 09 28 2a 28 54 59 50 45 2a 29 6c 2d 3e AL).(*(TYPE*)l->
0960: 72 61 64 64 72 20 3d 20 28 54 59 50 45 29 28 56 raddr = (TYPE)(V
0970: 41 4c 29 29 0a 0a 72 65 67 69 73 74 65 72 20 64 AL))..register d
0980: 6f 75 62 6c 65 20 66 61 72 67 31 09 5f 5f 61 73 ouble farg1.__as
0990: 6d 5f 5f 28 22 66 72 31 22 29 3b 0a 72 65 67 69 m__("fr1");.regi
09a0: 73 74 65 72 20 64 6f 75 62 6c 65 20 66 61 72 67 ster double farg
09b0: 32 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 32 22 29 2.__asm__("fr2")
09c0: 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c ;.register doubl
09d0: 65 20 66 61 72 67 33 09 5f 5f 61 73 6d 5f 5f 28 e farg3.__asm__(
09e0: 22 66 72 33 22 29 3b 0a 72 65 67 69 73 74 65 72 "fr3");.register
09f0: 20 64 6f 75 62 6c 65 20 66 61 72 67 34 09 5f 5f double farg4.__
0a00: 61 73 6d 5f 5f 28 22 66 72 34 22 29 3b 0a 72 65 asm__("fr4");.re
0a10: 67 69 73 74 65 72 20 64 6f 75 62 6c 65 20 66 61 gister double fa
0a20: 72 67 35 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 35 rg5.__asm__("fr5
0a30: 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 ");.register dou
0a40: 62 6c 65 20 66 61 72 67 36 09 5f 5f 61 73 6d 5f ble farg6.__asm_
0a50: 5f 28 22 66 72 36 22 29 3b 0a 72 65 67 69 73 74 _("fr6");.regist
0a60: 65 72 20 64 6f 75 62 6c 65 20 66 61 72 67 37 09 er double farg7.
0a70: 5f 5f 61 73 6d 5f 5f 28 22 66 72 37 22 29 3b 0a __asm__("fr7");.
0a80: 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 20 register double
0a90: 66 61 72 67 38 09 5f 5f 61 73 6d 5f 5f 28 22 66 farg8.__asm__("f
0aa0: 72 38 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 r8");.register d
0ab0: 6f 75 62 6c 65 20 66 61 72 67 39 09 5f 5f 61 73 ouble farg9.__as
0ac0: 6d 5f 5f 28 22 66 72 39 22 29 3b 0a 72 65 67 69 m__("fr9");.regi
0ad0: 73 74 65 72 20 64 6f 75 62 6c 65 20 66 61 72 67 ster double farg
0ae0: 31 30 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 31 30 10.__asm__("fr10
0af0: 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 ");.register dou
0b00: 62 6c 65 20 66 61 72 67 31 31 09 5f 5f 61 73 6d ble farg11.__asm
0b10: 5f 5f 28 22 66 72 31 31 22 29 3b 0a 72 65 67 69 __("fr11");.regi
0b20: 73 74 65 72 20 64 6f 75 62 6c 65 20 66 61 72 67 ster double farg
0b30: 31 32 09 5f 5f 61 73 6d 5f 5f 28 22 66 72 31 32 12.__asm__("fr12
0b40: 22 29 3b 0a 72 65 67 69 73 74 65 72 20 64 6f 75 ");.register dou
0b50: 62 6c 65 20 66 61 72 67 31 33 09 5f 5f 61 73 6d ble farg13.__asm
0b60: 5f 5f 28 22 66 72 31 33 22 29 3b 0a 0a 69 6e 74 __("fr13");..int
0b70: 0a 5f 5f 62 75 69 6c 74 69 6e 5f 61 76 63 61 6c .__builtin_avcal
0b80: 6c 28 61 76 5f 61 6c 69 73 74 2a 20 6c 29 0a 7b l(av_alist* l).{
0b90: 0a 20 20 72 65 67 69 73 74 65 72 20 5f 5f 61 76 . register __av
0ba0: 77 6f 72 64 2a 09 73 70 09 5f 5f 61 73 6d 5f 5f word*.sp.__asm__
0bb0: 28 22 72 31 22 29 3b 20 20 2f 2a 20 43 20 6e 61 ("r1"); /* C na
0bc0: 6d 65 73 20 66 6f 72 20 72 65 67 69 73 74 65 72 mes for register
0bd0: 73 20 2a 2f 0a 2f 2a 72 65 67 69 73 74 65 72 20 s */./*register
0be0: 5f 5f 61 76 77 6f 72 64 09 69 72 65 74 09 5f 5f __avword.iret.__
0bf0: 61 73 6d 5f 5f 28 22 72 33 22 29 3b 20 2a 2f 0a asm__("r3"); */.
0c00: 20 20 72 65 67 69 73 74 65 72 20 5f 5f 61 76 77 register __avw
0c10: 6f 72 64 09 69 72 65 74 32 09 5f 5f 61 73 6d 5f ord.iret2.__asm_
0c20: 5f 28 22 72 34 22 29 3b 0a 20 20 72 65 67 69 73 _("r4");. regis
0c30: 74 65 72 20 66 6c 6f 61 74 09 66 72 65 74 09 5f ter float.fret._
0c40: 5f 61 73 6d 5f 5f 28 22 66 72 31 22 29 3b 0a 20 _asm__("fr1");.
0c50: 20 72 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 register double
0c60: 09 64 72 65 74 09 5f 5f 61 73 6d 5f 5f 28 22 66 .dret.__asm__("f
0c70: 72 31 22 29 3b 0a 0a 20 20 5f 5f 61 76 77 6f 72 r1");.. __avwor
0c80: 64 20 73 70 61 63 65 5b 5f 5f 41 56 5f 41 4c 49 d space[__AV_ALI
0c90: 53 54 5f 57 4f 52 44 53 5d 3b 09 2f 2a 20 73 70 ST_WORDS];./* sp
0ca0: 61 63 65 20 66 6f 72 20 63 61 6c 6c 65 65 27 73 ace for callee's
0cb0: 20 73 74 61 63 6b 20 66 72 61 6d 65 20 2a 2f 0a stack frame */.
0cc0: 20 20 5f 5f 61 76 77 6f 72 64 2a 20 61 72 67 66 __avword* argf
0cd0: 72 61 6d 65 20 3d 20 73 70 20 2b 20 53 54 41 43 rame = sp + STAC
0ce0: 4b 5f 4f 46 46 53 45 54 3b 2f 2a 20 73 74 61 63 K_OFFSET;/* stac
0cf0: 6b 20 6f 66 66 73 65 74 20 66 6f 72 20 61 72 67 k offset for arg
0d00: 75 6d 65 6e 74 20 6c 69 73 74 20 2a 2f 0a 20 20 ument list */.
0d10: 69 6e 74 20 61 72 67 6c 65 6e 20 3d 20 6c 2d 3e int arglen = l->
0d20: 61 70 74 72 20 2d 20 6c 2d 3e 61 72 67 73 3b 0a aptr - l->args;.
0d30: 23 69 66 20 64 65 66 69 6e 65 64 28 5f 41 49 58 #if defined(_AIX
0d40: 29 20 7c 7c 20 28 64 65 66 69 6e 65 64 28 5f 5f ) || (defined(__
0d50: 4d 41 43 48 5f 5f 29 20 26 26 20 64 65 66 69 6e MACH__) && defin
0d60: 65 64 28 5f 5f 41 50 50 4c 45 5f 5f 29 29 0a 20 ed(__APPLE__)).
0d70: 20 69 6e 74 20 66 61 72 67 6c 65 6e 20 3d 20 30 int farglen = 0
0d80: 3b 0a 23 65 6c 73 65 0a 20 20 69 6e 74 20 66 61 ;.#else. int fa
0d90: 72 67 6c 65 6e 20 3d 20 6c 2d 3e 66 61 70 74 72 rglen = l->faptr
0da0: 20 2d 20 6c 2d 3e 66 61 72 67 73 3b 0a 23 65 6e - l->fargs;.#en
0db0: 64 69 66 0a 20 20 5f 5f 61 76 77 6f 72 64 20 69 dif. __avword i
0dc0: 3b 0a 0a 20 20 66 6f 72 20 28 69 20 3d 20 28 38 ;.. for (i = (8
0dd0: 2d 66 61 72 67 6c 65 6e 29 3b 20 69 20 3c 20 61 -farglen); i < a
0de0: 72 67 6c 65 6e 3b 20 69 2b 2b 29 20 2f 2a 20 70 rglen; i++) /* p
0df0: 75 73 68 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 ush function arg
0e00: 73 20 6f 6e 74 6f 20 73 74 61 63 6b 20 2a 2f 0a s onto stack */.
0e10: 20 20 20 20 61 72 67 66 72 61 6d 65 5b 69 2d 38 argframe[i-8
0e20: 2b 66 61 72 67 6c 65 6e 5d 20 3d 20 6c 2d 3e 61 +farglen] = l->a
0e30: 72 67 73 5b 69 5d 3b 0a 0a 20 20 2f 2a 20 70 61 rgs[i];.. /* pa
0e40: 73 73 20 66 69 72 73 74 20 31 33 20 66 6c 6f 61 ss first 13 floa
0e50: 74 69 6e 67 2d 70 6f 69 6e 74 20 61 72 67 73 20 ting-point args
0e60: 69 6e 20 72 65 67 69 73 74 65 72 73 20 2a 2f 0a in registers */.
0e70: 20 20 61 72 67 6c 65 6e 20 3d 20 6c 2d 3e 66 61 arglen = l->fa
0e80: 70 74 72 20 2d 20 6c 2d 3e 66 61 72 67 73 3b 0a ptr - l->fargs;.
0e90: 20 20 69 66 20 28 61 72 67 6c 65 6e 20 3d 3d 20 if (arglen ==
0ea0: 30 29 20 67 6f 74 6f 20 66 61 72 67 73 30 3b 0a 0) goto fargs0;.
0eb0: 20 20 65 6c 73 65 20 69 66 20 28 61 72 67 6c 65 else if (argle
0ec0: 6e 20 3d 3d 20 31 29 20 67 6f 74 6f 20 66 61 72 n == 1) goto far
0ed0: 67 73 31 3b 0a 20 20 65 6c 73 65 20 69 66 20 28 gs1;. else if (
0ee0: 61 72 67 6c 65 6e 20 3d 3d 20 32 29 20 67 6f 74 arglen == 2) got
0ef0: 6f 20 66 61 72 67 73 32 3b 0a 20 20 65 6c 73 65 o fargs2;. else
0f00: 20 69 66 20 28 61 72 67 6c 65 6e 20 3d 3d 20 33 if (arglen == 3
0f10: 29 20 67 6f 74 6f 20 66 61 72 67 73 33 3b 0a 20 ) goto fargs3;.
0f20: 20 65 6c 73 65 20 69 66 20 28 61 72 67 6c 65 6e else if (arglen
0f30: 20 3d 3d 20 34 29 20 67 6f 74 6f 20 66 61 72 67 == 4) goto farg
0f40: 73 34 3b 0a 20 20 65 6c 73 65 20 69 66 20 28 61 s4;. else if (a
0f50: 72 67 6c 65 6e 20 3d 3d 20 35 29 20 67 6f 74 6f rglen == 5) goto
0f60: 20 66 61 72 67 73 35 3b 0a 20 20 65 6c 73 65 20 fargs5;. else
0f70: 69 66 20 28 61 72 67 6c 65 6e 20 3d 3d 20 36 29 if (arglen == 6)
0f80: 20 67 6f 74 6f 20 66 61 72 67 73 36 3b 0a 20 20 goto fargs6;.
0f90: 65 6c 73 65 20 69 66 20 28 61 72 67 6c 65 6e 20 else if (arglen
0fa0: 3d 3d 20 37 29 20 67 6f 74 6f 20 66 61 72 67 73 == 7) goto fargs
0fb0: 37 3b 0a 20 20 65 6c 73 65 20 69 66 20 28 61 72 7;. else if (ar
0fc0: 67 6c 65 6e 20 3d 3d 20 38 29 20 67 6f 74 6f 20 glen == 8) goto
0fd0: 66 61 72 67 73 38 3b 0a 20 20 65 6c 73 65 20 69 fargs8;. else i
0fe0: 66 20 28 61 72 67 6c 65 6e 20 3d 3d 20 39 29 20 f (arglen == 9)
0ff0: 67 6f 74 6f 20 66 61 72 67 73 39 3b 0a 20 20 65 goto fargs9;. e
1000: 6c 73 65 20 69 66 20 28 61 72 67 6c 65 6e 20 3d lse if (arglen =
1010: 3d 20 31 30 29 20 67 6f 74 6f 20 66 61 72 67 73 = 10) goto fargs
1020: 31 30 3b 0a 20 20 65 6c 73 65 20 69 66 20 28 61 10;. else if (a
1030: 72 67 6c 65 6e 20 3d 3d 20 31 31 29 20 67 6f 74 rglen == 11) got
1040: 6f 20 66 61 72 67 73 31 31 3b 0a 20 20 65 6c 73 o fargs11;. els
1050: 65 20 69 66 20 28 61 72 67 6c 65 6e 20 3d 3d 20 e if (arglen ==
1060: 31 32 29 20 67 6f 74 6f 20 66 61 72 67 73 31 32 12) goto fargs12
1070: 3b 0a 20 20 65 6c 73 65 20 69 66 20 28 61 72 67 ;. else if (arg
1080: 6c 65 6e 20 3d 3d 20 31 33 29 20 67 6f 74 6f 20 len == 13) goto
1090: 66 61 72 67 73 31 33 3b 0a 20 20 66 61 72 67 73 fargs13;. fargs
10a0: 31 33 3a 20 66 61 72 67 31 33 20 3d 20 6c 2d 3e 13: farg13 = l->
10b0: 66 61 72 67 73 5b 31 32 5d 3b 0a 20 20 66 61 72 fargs[12];. far
10c0: 67 73 31 32 3a 20 66 61 72 67 31 32 20 3d 20 6c gs12: farg12 = l
10d0: 2d 3e 66 61 72 67 73 5b 31 31 5d 3b 0a 20 20 66 ->fargs[11];. f
10e0: 61 72 67 73 31 31 3a 20 66 61 72 67 31 31 20 3d args11: farg11 =
10f0: 20 6c 2d 3e 66 61 72 67 73 5b 31 30 5d 3b 0a 20 l->fargs[10];.
1100: 20 66 61 72 67 73 31 30 3a 20 66 61 72 67 31 30 fargs10: farg10
1110: 20 3d 20 6c 2d 3e 66 61 72 67 73 5b 39 5d 3b 0a = l->fargs[9];.
1120: 20 20 66 61 72 67 73 39 3a 20 66 61 72 67 39 20 fargs9: farg9
1130: 3d 20 6c 2d 3e 66 61 72 67 73 5b 38 5d 3b 0a 20 = l->fargs[8];.
1140: 20 66 61 72 67 73 38 3a 20 66 61 72 67 38 20 3d fargs8: farg8 =
1150: 20 6c 2d 3e 66 61 72 67 73 5b 37 5d 3b 0a 20 20 l->fargs[7];.
1160: 66 61 72 67 73 37 3a 20 66 61 72 67 37 20 3d 20 fargs7: farg7 =
1170: 6c 2d 3e 66 61 72 67 73 5b 36 5d 3b 0a 20 20 66 l->fargs[6];. f
1180: 61 72 67 73 36 3a 20 66 61 72 67 36 20 3d 20 6c args6: farg6 = l
1190: 2d 3e 66 61 72 67 73 5b 35 5d 3b 0a 20 20 66 61 ->fargs[5];. fa
11a0: 72 67 73 35 3a 20 66 61 72 67 35 20 3d 20 6c 2d rgs5: farg5 = l-
11b0: 3e 66 61 72 67 73 5b 34 5d 3b 0a 20 20 66 61 72 >fargs[4];. far
11c0: 67 73 34 3a 20 66 61 72 67 34 20 3d 20 6c 2d 3e gs4: farg4 = l->
11d0: 66 61 72 67 73 5b 33 5d 3b 0a 20 20 66 61 72 67 fargs[3];. farg
11e0: 73 33 3a 20 66 61 72 67 33 20 3d 20 6c 2d 3e 66 s3: farg3 = l->f
11f0: 61 72 67 73 5b 32 5d 3b 0a 20 20 66 61 72 67 73 args[2];. fargs
1200: 32 3a 20 66 61 72 67 32 20 3d 20 6c 2d 3e 66 61 2: farg2 = l->fa
1210: 72 67 73 5b 31 5d 3b 0a 20 20 66 61 72 67 73 31 rgs[1];. fargs1
1220: 3a 20 66 61 72 67 31 20 3d 20 6c 2d 3e 66 61 72 : farg1 = l->far
1230: 67 73 5b 30 5d 3b 0a 20 20 66 61 72 67 73 30 3a gs[0];. fargs0:
1240: 20 3b 0a 09 09 09 09 2f 2a 20 63 61 6c 6c 20 66 ;...../* call f
1250: 75 6e 63 74 69 6f 6e 2c 20 70 61 73 73 20 38 20 unction, pass 8
1260: 61 72 67 73 20 69 6e 20 72 65 67 69 73 74 65 72 args in register
1270: 73 20 2a 2f 0a 20 20 69 20 3d 20 28 2a 6c 2d 3e s */. i = (*l->
1280: 66 75 6e 63 29 28 6c 2d 3e 61 72 67 73 5b 30 5d func)(l->args[0]
1290: 2c 20 6c 2d 3e 61 72 67 73 5b 31 5d 2c 20 6c 2d , l->args[1], l-
12a0: 3e 61 72 67 73 5b 32 5d 2c 20 6c 2d 3e 61 72 67 >args[2], l->arg
12b0: 73 5b 33 5d 2c 0a 09 09 20 6c 2d 3e 61 72 67 73 s[3],... l->args
12c0: 5b 34 5d 2c 20 6c 2d 3e 61 72 67 73 5b 35 5d 2c [4], l->args[5],
12d0: 20 6c 2d 3e 61 72 67 73 5b 36 5d 2c 20 6c 2d 3e l->args[6], l->
12e0: 61 72 67 73 5b 37 5d 29 3b 0a 0a 20 20 2f 2a 20 args[7]);.. /*
12f0: 73 61 76 65 20 72 65 74 75 72 6e 20 76 61 6c 75 save return valu
1300: 65 20 2a 2f 0a 20 20 69 66 20 28 6c 2d 3e 72 74 e */. if (l->rt
1310: 79 70 65 20 3d 3d 20 5f 5f 41 56 76 6f 69 64 29 ype == __AVvoid)
1320: 20 7b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 {. } else. if
1330: 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f (l->rtype == __
1340: 41 56 77 6f 72 64 29 20 7b 0a 20 20 20 20 52 45 AVword) {. RE
1350: 54 55 52 4e 28 5f 5f 61 76 77 6f 72 64 2c 20 69 TURN(__avword, i
1360: 29 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 );. } else. if
1370: 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f (l->rtype == __
1380: 41 56 63 68 61 72 29 20 7b 0a 20 20 20 20 52 45 AVchar) {. RE
1390: 54 55 52 4e 28 63 68 61 72 2c 20 69 29 3b 0a 20 TURN(char, i);.
13a0: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d } else. if (l-
13b0: 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 73 63 >rtype == __AVsc
13c0: 68 61 72 29 20 7b 0a 20 20 20 20 52 45 54 55 52 har) {. RETUR
13d0: 4e 28 73 69 67 6e 65 64 20 63 68 61 72 2c 20 69 N(signed char, i
13e0: 29 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 );. } else. if
13f0: 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f (l->rtype == __
1400: 41 56 75 63 68 61 72 29 20 7b 0a 20 20 20 20 52 AVuchar) {. R
1410: 45 54 55 52 4e 28 75 6e 73 69 67 6e 65 64 20 63 ETURN(unsigned c
1420: 68 61 72 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 har, i);. } els
1430: 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 e. if (l->rtype
1440: 20 3d 3d 20 5f 5f 41 56 73 68 6f 72 74 29 20 7b == __AVshort) {
1450: 0a 20 20 20 20 52 45 54 55 52 4e 28 73 68 6f 72 . RETURN(shor
1460: 74 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 0a t, i);. } else.
1470: 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d if (l->rtype =
1480: 3d 20 5f 5f 41 56 75 73 68 6f 72 74 29 20 7b 0a = __AVushort) {.
1490: 20 20 20 20 52 45 54 55 52 4e 28 75 6e 73 69 67 RETURN(unsig
14a0: 6e 65 64 20 73 68 6f 72 74 2c 20 69 29 3b 0a 20 ned short, i);.
14b0: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d } else. if (l-
14c0: 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 69 6e >rtype == __AVin
14d0: 74 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 t) {. RETURN(
14e0: 69 6e 74 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 int, i);. } els
14f0: 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 e. if (l->rtype
1500: 20 3d 3d 20 5f 5f 41 56 75 69 6e 74 29 20 7b 0a == __AVuint) {.
1510: 20 20 20 20 52 45 54 55 52 4e 28 75 6e 73 69 67 RETURN(unsig
1520: 6e 65 64 20 69 6e 74 2c 20 69 29 3b 0a 20 20 7d ned int, i);. }
1530: 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 else. if (l->r
1540: 74 79 70 65 20 3d 3d 20 5f 5f 41 56 6c 6f 6e 67 type == __AVlong
1550: 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 6c ) {. RETURN(l
1560: 6f 6e 67 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 ong, i);. } els
1570: 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 e. if (l->rtype
1580: 20 3d 3d 20 5f 5f 41 56 75 6c 6f 6e 67 29 20 7b == __AVulong) {
1590: 0a 20 20 20 20 52 45 54 55 52 4e 28 75 6e 73 69 . RETURN(unsi
15a0: 67 6e 65 64 20 6c 6f 6e 67 2c 20 69 29 3b 0a 20 gned long, i);.
15b0: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d } else. if (l-
15c0: 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 6c 6f >rtype == __AVlo
15d0: 6e 67 6c 6f 6e 67 20 7c 7c 20 6c 2d 3e 72 74 79 nglong || l->rty
15e0: 70 65 20 3d 3d 20 5f 5f 41 56 75 6c 6f 6e 67 6c pe == __AVulongl
15f0: 6f 6e 67 29 20 7b 0a 20 20 20 20 28 28 5f 5f 61 ong) {. ((__a
1600: 76 77 6f 72 64 2a 29 6c 2d 3e 72 61 64 64 72 29 vword*)l->raddr)
1610: 5b 30 5d 20 3d 20 69 3b 0a 20 20 20 20 28 28 5f [0] = i;. ((_
1620: 5f 61 76 77 6f 72 64 2a 29 6c 2d 3e 72 61 64 64 _avword*)l->radd
1630: 72 29 5b 31 5d 20 3d 20 69 72 65 74 32 3b 0a 20 r)[1] = iret2;.
1640: 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d } else. if (l-
1650: 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 66 6c >rtype == __AVfl
1660: 6f 61 74 29 20 7b 0a 20 20 20 20 52 45 54 55 52 oat) {. RETUR
1670: 4e 28 66 6c 6f 61 74 2c 20 66 72 65 74 29 3b 0a N(float, fret);.
1680: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
1690: 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 64 ->rtype == __AVd
16a0: 6f 75 62 6c 65 29 20 7b 0a 20 20 20 20 52 45 54 ouble) {. RET
16b0: 55 52 4e 28 64 6f 75 62 6c 65 2c 20 64 72 65 74 URN(double, dret
16c0: 29 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 );. } else. if
16d0: 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f (l->rtype == __
16e0: 41 56 76 6f 69 64 70 29 20 7b 0a 20 20 20 20 52 AVvoidp) {. R
16f0: 45 54 55 52 4e 28 76 6f 69 64 2a 2c 20 69 29 3b ETURN(void*, i);
1700: 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 . } else. if (
1710: 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 l->rtype == __AV
1720: 73 74 72 75 63 74 29 20 7b 0a 20 20 20 20 69 66 struct) {. if
1730: 20 28 6c 2d 3e 66 6c 61 67 73 20 26 20 5f 5f 41 (l->flags & __A
1740: 56 5f 50 43 43 5f 53 54 52 55 43 54 5f 52 45 54 V_PCC_STRUCT_RET
1750: 55 52 4e 29 20 7b 0a 20 20 20 20 20 20 2f 2a 20 URN) {. /*
1760: 70 63 63 20 73 74 72 75 63 74 20 72 65 74 75 72 pcc struct retur
1770: 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 3a 20 6e 65 n convention: ne
1780: 65 64 20 61 20 20 2a 28 54 59 50 45 2a 29 6c 2d ed a *(TYPE*)l-
1790: 3e 72 61 64 64 72 20 3d 20 2a 28 54 59 50 45 2a >raddr = *(TYPE*
17a0: 29 69 3b 20 20 2a 2f 0a 20 20 20 20 20 20 69 66 )i; */. if
17b0: 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 73 69 (l->rsize == si
17c0: 7a 65 6f 66 28 63 68 61 72 29 29 20 7b 0a 20 20 zeof(char)) {.
17d0: 20 20 20 20 20 20 52 45 54 55 52 4e 28 63 68 61 RETURN(cha
17e0: 72 2c 20 2a 28 63 68 61 72 2a 29 69 29 3b 0a 20 r, *(char*)i);.
17f0: 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 } else.
1800: 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d if (l->rsize =
1810: 3d 20 73 69 7a 65 6f 66 28 73 68 6f 72 74 29 29 = sizeof(short))
1820: 20 7b 0a 20 20 20 20 20 20 20 20 52 45 54 55 52 {. RETUR
1830: 4e 28 73 68 6f 72 74 2c 20 2a 28 73 68 6f 72 74 N(short, *(short
1840: 2a 29 69 29 3b 0a 20 20 20 20 20 20 7d 20 65 6c *)i);. } el
1850: 73 65 0a 20 20 20 20 20 20 69 66 20 28 6c 2d 3e se. if (l->
1860: 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 rsize == sizeof(
1870: 69 6e 74 29 29 20 7b 0a 20 20 20 20 20 20 20 20 int)) {.
1880: 52 45 54 55 52 4e 28 69 6e 74 2c 20 2a 28 69 6e RETURN(int, *(in
1890: 74 2a 29 69 29 3b 0a 20 20 20 20 20 20 7d 20 65 t*)i);. } e
18a0: 6c 73 65 0a 20 20 20 20 20 20 69 66 20 28 6c 2d lse. if (l-
18b0: 3e 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 >rsize == sizeof
18c0: 28 64 6f 75 62 6c 65 29 29 20 7b 0a 20 20 20 20 (double)) {.
18d0: 20 20 20 20 28 28 69 6e 74 2a 29 6c 2d 3e 72 61 ((int*)l->ra
18e0: 64 64 72 29 5b 30 5d 20 3d 20 28 28 69 6e 74 2a ddr)[0] = ((int*
18f0: 29 69 29 5b 30 5d 3b 0a 20 20 20 20 20 20 20 20 )i)[0];.
1900: 28 28 69 6e 74 2a 29 6c 2d 3e 72 61 64 64 72 29 ((int*)l->raddr)
1910: 5b 31 5d 20 3d 20 28 28 69 6e 74 2a 29 69 29 5b [1] = ((int*)i)[
1920: 31 5d 3b 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 1];. } else
1930: 20 7b 0a 20 20 20 20 20 20 20 20 69 6e 74 20 6e {. int n
1940: 20 3d 20 28 6c 2d 3e 72 73 69 7a 65 20 2b 20 73 = (l->rsize + s
1950: 69 7a 65 6f 66 28 5f 5f 61 76 77 6f 72 64 29 2d izeof(__avword)-
1960: 31 29 2f 73 69 7a 65 6f 66 28 5f 5f 61 76 77 6f 1)/sizeof(__avwo
1970: 72 64 29 3b 0a 20 20 20 20 20 20 20 20 77 68 69 rd);. whi
1980: 6c 65 20 28 2d 2d 6e 20 3e 3d 20 30 29 0a 20 20 le (--n >= 0).
1990: 20 20 20 20 20 20 20 20 28 28 5f 5f 61 76 77 6f ((__avwo
19a0: 72 64 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 6e 5d rd*)l->raddr)[n]
19b0: 20 3d 20 28 28 5f 5f 61 76 77 6f 72 64 2a 29 69 = ((__avword*)i
19c0: 29 5b 6e 5d 3b 0a 20 20 20 20 20 20 7d 0a 20 20 )[n];. }.
19d0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 } else {.
19e0: 20 2f 2a 20 6e 6f 72 6d 61 6c 20 73 74 72 75 63 /* normal struc
19f0: 74 20 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 t return convent
1a00: 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 69 66 20 ion */. if
1a10: 28 6c 2d 3e 66 6c 61 67 73 20 26 20 5f 5f 41 56 (l->flags & __AV
1a20: 5f 52 45 47 49 53 54 45 52 5f 53 54 52 55 43 54 _REGISTER_STRUCT
1a30: 5f 52 45 54 55 52 4e 29 20 7b 0a 20 20 20 20 20 _RETURN) {.
1a40: 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 if (l->rsize
1a50: 3d 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 29 29 == sizeof(char))
1a60: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 52 45 54 {. RET
1a70: 55 52 4e 28 63 68 61 72 2c 20 69 29 3b 0a 20 20 URN(char, i);.
1a80: 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 } else.
1a90: 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a if (l->rsiz
1aa0: 65 20 3d 3d 20 73 69 7a 65 6f 66 28 73 68 6f 72 e == sizeof(shor
1ab0: 74 29 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 t)) {.
1ac0: 52 45 54 55 52 4e 28 73 68 6f 72 74 2c 20 69 29 RETURN(short, i)
1ad0: 3b 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 ;. } else
1ae0: 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e . if (l->
1af0: 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 rsize == sizeof(
1b00: 69 6e 74 29 29 20 7b 0a 20 20 20 20 20 20 20 20 int)) {.
1b10: 20 20 52 45 54 55 52 4e 28 69 6e 74 2c 20 69 29 RETURN(int, i)
1b20: 3b 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 ;. } else
1b30: 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e . if (l->
1b40: 72 73 69 7a 65 20 3d 3d 20 32 2a 73 69 7a 65 6f rsize == 2*sizeo
1b50: 66 28 5f 5f 61 76 77 6f 72 64 29 29 20 7b 0a 20 f(__avword)) {.
1b60: 20 20 20 20 20 20 20 20 20 28 28 5f 5f 61 76 77 ((__avw
1b70: 6f 72 64 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 30 ord*)l->raddr)[0
1b80: 5d 20 3d 20 69 3b 0a 20 20 20 20 20 20 20 20 20 ] = i;.
1b90: 20 28 28 5f 5f 61 76 77 6f 72 64 2a 29 6c 2d 3e ((__avword*)l->
1ba0: 72 61 64 64 72 29 5b 31 5d 20 3d 20 69 72 65 74 raddr)[1] = iret
1bb0: 32 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 2;. }.
1bc0: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 }. }. }.
1bd0: 20 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 23 65 return 0;.}..#e
1be0: 6e 64 69 66 20 2f 2a 5f 61 76 63 61 6c 6c 5f 70 ndif /*_avcall_p
1bf0: 6f 77 65 72 70 63 5f 63 20 2a 2f 0a owerpc_c */.