0000: 23 69 66 6e 64 65 66 20 5f 61 76 63 61 6c 6c 5f #ifndef _avcall_
0010: 6d 69 70 73 6e 33 32 5f 63 09 09 09 09 2f 2a 2d mipsn32_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 6d 69 70 73 6e ne _avcall_mipsn
0040: 33 32 5f 63 0a 2f 2a 2a 0a 20 20 43 6f 70 79 72 32_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 31 39 39 39 20 42 72 75 6e 6f 20 48 61 95-1999 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 0a 20 20 54 68 69 73 20 sp.org>.. This
00c0: 69 73 20 66 72 65 65 20 73 6f 66 74 77 61 72 65 is free software
00d0: 20 64 69 73 74 72 69 62 75 74 65 64 20 75 6e 64 distributed und
00e0: 65 72 20 74 68 65 20 47 4e 55 20 47 65 6e 65 72 er the GNU Gener
00f0: 61 6c 20 50 75 62 6c 69 63 0a 20 20 4c 69 63 65 al Public. Lice
0100: 6e 63 65 20 64 65 73 63 72 69 62 65 64 20 69 6e nce described in
0110: 20 74 68 65 20 66 69 6c 65 20 43 4f 50 59 49 4e the file COPYIN
0120: 47 2e 20 43 6f 6e 74 61 63 74 20 74 68 65 20 61 G. Contact the a
0130: 75 74 68 6f 72 20 69 66 0a 20 20 79 6f 75 20 64 uthor if. you d
0140: 6f 6e 27 74 20 68 61 76 65 20 74 68 69 73 20 6f on't have this o
0150: 72 20 63 61 6e 27 74 20 6c 69 76 65 20 77 69 74 r can't live wit
0160: 68 20 69 74 2e 20 54 68 65 72 65 20 69 73 20 41 h it. There is A
0170: 42 53 4f 4c 55 54 45 4c 59 0a 20 20 4e 4f 20 57 BSOLUTELY. NO W
0180: 41 52 52 41 4e 54 59 2c 20 65 78 70 6c 69 63 69 ARRANTY, explici
0190: 74 20 6f 72 20 69 6d 70 6c 69 65 64 2c 20 6f 6e t or implied, on
01a0: 20 74 68 69 73 20 73 6f 66 74 77 61 72 65 2e 0a this software..
01b0: 2a 2a 2f 0a 2f 2a 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 2d 2d 0a 20 20 21 ------------. !
0200: 21 21 20 54 48 49 53 20 52 4f 55 54 49 4e 45 20 !! THIS ROUTINE
0210: 4d 55 53 54 20 42 45 20 43 4f 4d 50 49 4c 45 44 MUST BE COMPILED
0220: 20 67 63 63 20 2d 4f 20 21 21 21 0a 0a 20 20 46 gcc -O !!!.. F
0230: 6f 72 65 69 67 6e 20 66 75 6e 63 74 69 6f 6e 20 oreign function
0240: 69 6e 74 65 72 66 61 63 65 20 66 6f 72 20 61 6e interface for an
0250: 20 53 47 49 20 33 32 2d 62 69 74 20 4d 49 50 53 SGI 32-bit MIPS
0260: 20 49 49 49 20 77 69 74 68 20 22 63 63 20 2d 6e III with "cc -n
0270: 33 32 22 2c 0a 20 20 6f 72 20 67 63 63 20 63 6f 32",. or gcc co
0280: 6e 66 69 67 75 72 65 64 20 61 73 20 6d 69 70 73 nfigured as mips
0290: 2d 73 67 69 2d 69 72 69 78 36 2e 0a 0a 20 20 54 -sgi-irix6... T
02a0: 68 69 73 20 63 61 6c 6c 73 20 61 20 43 20 66 75 his calls a C fu
02b0: 6e 63 74 69 6f 6e 20 77 69 74 68 20 61 6e 20 61 nction with an a
02c0: 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 62 75 69 rgument list bui
02d0: 6c 74 20 75 70 20 75 73 69 6e 67 20 6d 61 63 72 lt up using macr
02e0: 6f 73 0a 20 20 64 65 66 69 6e 65 64 20 69 6e 20 os. defined in
02f0: 61 76 5f 63 61 6c 6c 2e 68 2e 0a 0a 20 20 53 47 av_call.h... SG
0300: 49 20 4d 49 50 53 20 6e 65 77 20 33 32 2d 62 69 I MIPS new 32-bi
0310: 74 20 41 72 67 75 6d 65 6e 74 20 50 61 73 73 69 t Argument Passi
0320: 6e 67 20 43 6f 6e 76 65 6e 74 69 6f 6e 73 0a 0a ng Conventions..
0330: 20 20 2d 20 54 68 65 20 65 6e 74 69 72 65 20 61 - The entire a
0340: 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 66 6f 72 rgument list for
0350: 6d 73 20 61 20 73 74 72 75 63 74 75 72 65 20 77 ms a structure w
0360: 69 74 68 20 61 6c 6c 20 74 68 65 20 61 70 70 72 ith all the appr
0370: 6f 70 72 69 61 74 65 0a 20 20 20 20 68 6f 6c 65 opriate. hole
0380: 73 20 26 20 61 6c 69 67 6e 6d 65 6e 74 73 2c 20 s & alignments,
0390: 61 6e 64 20 73 70 61 63 65 20 66 6f 72 20 74 68 and space for th
03a0: 69 73 20 69 73 20 61 6c 6c 6f 63 61 74 65 64 20 is is allocated
03b0: 69 6e 20 74 68 65 20 73 74 61 63 6b 20 66 72 61 in the stack fra
03c0: 6d 65 2e 0a 20 20 2d 20 53 68 6f 72 74 65 72 20 me.. - Shorter
03d0: 69 6e 74 65 67 65 72 73 20 61 72 65 20 70 72 6f integers are pro
03e0: 6d 6f 74 65 64 20 74 6f 20 6c 6f 6e 67 20 6c 6f moted to long lo
03f0: 6e 67 20 6c 65 6e 67 74 68 20 28 73 69 7a 65 6f ng length (sizeo
0400: 66 28 6c 6f 6e 67 20 6c 6f 6e 67 29 3d 38 29 2e f(long long)=8).
0410: 0a 20 20 2d 20 44 6f 75 62 6c 65 73 20 61 72 65 . - Doubles are
0420: 20 31 20 6c 6f 6e 67 77 6f 72 64 2e 0a 20 20 2d 1 longword.. -
0430: 20 53 74 72 75 63 74 75 72 65 20 61 72 67 75 6d Structure argum
0440: 65 6e 74 73 20 61 72 65 20 63 6f 70 69 65 73 20 ents are copies
0450: 65 6d 62 65 64 64 65 64 20 69 6e 20 74 68 65 20 embedded in the
0460: 61 72 67 6c 69 73 74 20 73 74 72 75 63 74 75 72 arglist structur
0470: 65 2e 0a 20 20 2d 20 54 68 65 20 66 69 72 73 74 e.. - The first
0480: 20 38 20 6c 6f 6e 67 77 6f 72 64 73 20 6f 66 20 8 longwords of
0490: 74 68 65 20 73 74 72 75 63 74 75 72 65 20 61 72 the structure ar
04a0: 65 20 70 61 73 73 65 64 20 69 6e 20 72 65 67 69 e passed in regi
04b0: 73 74 65 72 73 20 24 34 2e 2e 2e 24 31 31 2c 0a sters $4...$11,.
04c0: 20 20 20 20 65 78 63 65 70 74 20 74 68 61 74 20 except that
04d0: 66 6c 6f 61 74 20 61 72 67 75 6d 65 6e 74 73 20 float arguments
04e0: 61 72 65 20 70 61 73 73 65 64 20 69 6e 20 72 65 are passed in re
04f0: 67 69 73 74 65 72 73 20 24 66 31 32 2e 2e 2e 24 gisters $f12...$
0500: 66 31 39 2c 20 61 6e 64 0a 20 20 20 20 74 68 61 f19, and. tha
0510: 74 20 64 6f 75 62 6c 65 20 61 72 67 75 6d 65 6e t double argumen
0520: 74 73 20 61 6e 64 20 73 74 72 75 63 74 75 72 65 ts and structure
0530: 20 65 6c 65 6d 65 6e 74 73 20 6f 66 20 74 79 70 elements of typ
0540: 65 20 64 6f 75 62 6c 65 20 61 72 65 20 70 61 73 e double are pas
0550: 73 65 64 0a 20 20 20 20 69 6e 20 72 65 67 69 73 sed. in regis
0560: 74 65 72 73 20 24 66 31 32 2e 2e 2e 24 66 31 39 ters $f12...$f19
0570: 2e 20 28 42 75 74 20 76 61 72 61 72 67 73 20 66 . (But varargs f
0580: 75 6e 63 74 69 6f 6e 73 20 6d 61 79 20 65 78 70 unctions may exp
0590: 65 63 74 20 74 68 65 6d 20 69 6e 20 74 68 65 0a ect them in the.
05a0: 20 20 20 20 69 6e 74 65 67 65 72 20 72 65 67 69 integer regi
05b0: 73 74 65 72 73 20 61 6e 64 20 77 65 20 63 61 6e sters and we can
05c0: 27 74 20 74 65 6c 6c 20 77 68 65 74 68 65 72 20 't tell whether
05d0: 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 the function is
05e0: 76 61 72 61 72 67 73 20 73 6f 0a 20 20 20 20 77 varargs so. w
05f0: 65 20 70 61 73 73 20 74 68 65 6d 20 62 6f 74 68 e pass them both
0600: 20 77 61 79 73 2e 29 0a 20 20 20 20 52 65 6d 61 ways.). Rema
0610: 69 6e 69 6e 67 20 6c 6f 6e 67 77 6f 72 64 73 20 ining longwords
0620: 61 72 65 20 70 61 73 73 65 64 20 6f 6e 20 74 68 are passed on th
0630: 65 20 73 74 61 63 6b 2e 20 4e 6f 20 73 74 61 63 e stack. No stac
0640: 6b 20 73 70 61 63 65 20 69 73 20 61 6c 6c 6f 63 k space is alloc
0650: 61 74 65 64 0a 20 20 20 20 66 6f 72 20 74 68 65 ated. for the
0660: 20 66 69 72 73 74 20 38 20 6c 6f 6e 67 77 6f 72 first 8 longwor
0670: 64 73 20 6f 66 20 74 68 65 20 73 74 72 75 63 74 ds of the struct
0680: 75 72 65 2e 0a 20 20 2d 20 53 74 72 75 63 74 75 ure.. - Structu
0690: 72 65 20 72 65 74 75 72 6e 73 20 6f 66 20 73 74 re returns of st
06a0: 72 75 63 74 75 72 65 73 20 3e 20 31 36 20 62 79 ructures > 16 by
06b0: 74 65 73 3a 20 70 6f 69 6e 74 65 72 73 20 74 6f tes: pointers to
06c0: 20 63 61 6c 6c 65 72 2d 61 6c 6c 6f 63 61 74 65 caller-allocate
06d0: 64 0a 20 20 20 20 73 70 61 63 65 20 61 72 65 20 d. space are
06e0: 70 61 73 73 65 64 20 69 6e 20 61 73 20 74 68 65 passed in as the
06f0: 20 66 69 72 73 74 20 61 72 67 75 6d 65 6e 74 20 first argument
0700: 6f 66 20 74 68 65 20 6c 69 73 74 2e 0a 20 20 2d of the list.. -
0710: 20 53 74 72 75 63 74 75 72 65 20 72 65 74 75 72 Structure retur
0720: 6e 73 20 6f 66 20 73 74 72 75 63 74 75 72 65 73 ns of structures
0730: 20 3c 3d 20 31 36 20 62 79 74 65 73 3a 20 69 6e <= 16 bytes: in
0740: 20 74 68 65 20 72 65 67 69 73 74 65 72 73 20 24 the registers $
0750: 32 20 28 66 6f 72 20 74 68 65 0a 20 20 20 20 66 2 (for the. f
0760: 69 72 73 74 20 38 20 62 79 74 65 73 29 20 61 6e irst 8 bytes) an
0770: 64 20 24 33 20 28 66 6f 72 20 74 68 65 20 6e 65 d $3 (for the ne
0780: 78 74 20 38 20 62 79 74 65 73 29 2e 0a 20 20 20 xt 8 bytes)..
0790: 20 41 20 73 74 72 75 63 74 75 72 65 20 6f 66 20 A structure of
07a0: 31 20 6f 72 20 32 20 66 6c 6f 61 74 73 20 6f 72 1 or 2 floats or
07b0: 20 64 6f 75 62 6c 65 73 20 69 73 20 72 65 74 75 doubles is retu
07c0: 72 6e 65 64 20 69 6e 20 24 66 30 20 61 6e 64 20 rned in $f0 and
07d0: 24 66 32 3a 0a 20 20 20 20 74 68 65 20 66 69 72 $f2:. the fir
07e0: 73 74 20 66 6c 6f 61 74 20 6f 72 20 64 6f 75 62 st float or doub
07f0: 6c 65 20 69 6e 20 24 66 30 2c 20 74 68 65 20 73 le in $f0, the s
0800: 65 63 6f 6e 64 20 66 6c 6f 61 74 20 6f 72 20 64 econd float or d
0810: 6f 75 62 6c 65 20 69 6e 20 24 66 32 2e 0a 20 20 ouble in $f2..
0820: 2d 20 49 6e 74 65 67 65 72 2f 70 6f 69 6e 74 65 - Integer/pointe
0830: 72 20 72 65 74 75 72 6e 73 20 61 72 65 20 69 6e r returns are in
0840: 20 24 32 2c 20 66 6c 6f 61 74 2f 64 6f 75 62 6c $2, float/doubl
0850: 65 20 72 65 74 75 72 6e 73 20 69 6e 20 24 66 30 e returns in $f0
0860: 2e 0a 20 20 2d 20 54 68 65 20 63 61 6c 6c 65 64 .. - The called
0870: 20 66 75 6e 63 74 69 6f 6e 20 65 78 70 65 63 74 function expect
0880: 73 20 74 6f 20 73 65 65 20 69 74 73 20 6f 77 6e s to see its own
0890: 20 61 64 64 72 65 73 73 20 69 6e 20 24 32 35 2e address in $25.
08a0: 0a 0a 20 20 54 68 69 73 20 66 69 6c 65 20 6e 65 .. This file ne
08b0: 65 64 73 20 74 6f 20 62 65 20 63 6f 6d 70 69 6c eds to be compil
08c0: 65 64 20 77 69 74 68 20 67 63 63 20 66 6f 72 20 ed with gcc for
08d0: 74 68 65 20 61 73 6d 20 65 78 74 65 6e 73 69 6f the asm extensio
08e0: 6e 73 2c 20 62 75 74 20 74 68 65 0a 20 20 61 73 ns, but the. as
08f0: 73 65 6d 62 6c 79 20 76 65 72 73 69 6f 6e 20 6f sembly version o
0900: 66 20 69 74 20 61 6e 64 20 74 68 65 20 68 65 61 f it and the hea
0910: 64 65 72 20 66 69 6c 65 20 73 65 65 6d 20 74 6f der file seem to
0920: 20 77 6f 72 6b 20 77 69 74 68 20 53 47 49 20 63 work with SGI c
0930: 63 2e 0a 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d c.. -----------
0940: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0950: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0960: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0970: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 2f 0a 23 69 -----------*/.#i
0980: 6e 63 6c 75 64 65 20 22 61 76 63 61 6c 6c 2e 68 nclude "avcall.h
0990: 2e 69 6e 22 0a 0a 23 64 65 66 69 6e 65 20 52 45 .in"..#define RE
09a0: 54 55 52 4e 28 54 59 50 45 2c 56 41 4c 29 09 28 TURN(TYPE,VAL).(
09b0: 2a 28 54 59 50 45 2a 29 6c 2d 3e 72 61 64 64 72 *(TYPE*)l->raddr
09c0: 20 3d 20 28 54 59 50 45 29 28 56 41 4c 29 29 0a = (TYPE)(VAL)).
09d0: 23 64 65 66 69 6e 65 20 4f 46 46 53 45 54 4f 46 #define OFFSETOF
09e0: 28 73 74 72 75 63 74 2c 6d 65 6d 62 65 72 29 20 (struct,member)
09f0: 28 28 69 6e 74 29 26 28 28 28 73 74 72 75 63 74 ((int)&(((struct
0a00: 2a 29 30 29 2d 3e 6d 65 6d 62 65 72 29 29 0a 0a *)0)->member))..
0a10: 74 79 70 65 64 65 66 20 5f 5f 61 76 77 6f 72 64 typedef __avword
0a20: 20 28 2a 66 75 6e 63 5f 70 6f 69 6e 74 65 72 29 (*func_pointer)
0a30: 28 29 3b 0a 72 65 67 69 73 74 65 72 20 66 75 6e ();.register fun
0a40: 63 5f 70 6f 69 6e 74 65 72 09 74 39 09 5f 5f 61 c_pointer.t9.__a
0a50: 73 6d 5f 5f 28 22 24 32 35 22 29 3b 0a 0a 69 6e sm__("$25");..in
0a60: 74 0a 5f 5f 62 75 69 6c 74 69 6e 5f 61 76 63 61 t.__builtin_avca
0a70: 6c 6c 28 61 76 5f 61 6c 69 73 74 2a 20 6c 29 0a ll(av_alist* l).
0a80: 7b 0a 20 20 72 65 67 69 73 74 65 72 20 5f 5f 61 {. register __a
0a90: 76 77 6f 72 64 2a 09 73 70 09 5f 5f 61 73 6d 5f vword*.sp.__asm_
0aa0: 5f 28 22 24 73 70 22 29 3b 20 20 2f 2a 20 43 20 _("$sp"); /* C
0ab0: 6e 61 6d 65 73 20 66 6f 72 20 72 65 67 69 73 74 names for regist
0ac0: 65 72 73 20 2a 2f 0a 20 20 72 65 67 69 73 74 65 ers */. registe
0ad0: 72 20 66 6c 6f 61 74 09 66 72 65 74 09 5f 5f 61 r float.fret.__a
0ae0: 73 6d 5f 5f 28 22 24 66 30 22 29 3b 0a 20 20 72 sm__("$f0");. r
0af0: 65 67 69 73 74 65 72 20 64 6f 75 62 6c 65 09 64 egister double.d
0b00: 72 65 74 09 5f 5f 61 73 6d 5f 5f 28 22 24 66 30 ret.__asm__("$f0
0b10: 22 29 3b 0a 2f 2a 72 65 67 69 73 74 65 72 20 5f ");./*register _
0b20: 5f 61 76 77 6f 72 64 09 69 72 65 74 31 09 5f 5f _avword.iret1.__
0b30: 61 73 6d 5f 5f 28 22 24 32 22 29 3b 20 2a 2f 0a asm__("$2"); */.
0b40: 20 20 72 65 67 69 73 74 65 72 20 5f 5f 61 76 77 register __avw
0b50: 6f 72 64 09 69 72 65 74 32 09 5f 5f 61 73 6d 5f ord.iret2.__asm_
0b60: 5f 28 22 24 33 22 29 3b 0a 20 20 5f 5f 61 76 77 _("$3");. __avw
0b70: 6f 72 64 20 73 70 61 63 65 5b 5f 5f 41 56 5f 41 ord space[__AV_A
0b80: 4c 49 53 54 5f 57 4f 52 44 53 5d 3b 09 2f 2a 20 LIST_WORDS];./*
0b90: 62 69 67 20 73 70 61 63 65 20 66 6f 72 20 63 68 big space for ch
0ba0: 69 6c 64 27 73 20 73 74 61 63 6b 20 66 72 61 6d ild's stack fram
0bb0: 65 20 2a 2f 0a 20 20 5f 5f 61 76 77 6f 72 64 20 e */. __avword
0bc0: 2a 61 72 67 66 72 61 6d 65 20 3d 20 28 5f 5f 61 *argframe = (__a
0bd0: 76 77 6f 72 64 2a 29 73 70 3b 09 2f 2a 20 73 74 vword*)sp;./* st
0be0: 61 63 6b 20 6f 66 66 73 65 74 20 66 6f 72 20 61 ack offset for a
0bf0: 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 69 73 20 rgument list is
0c00: 30 20 2a 2f 0a 20 20 69 6e 74 20 61 72 67 6c 65 0 */. int argle
0c10: 6e 20 3d 20 6c 2d 3e 61 70 74 72 20 2d 20 6c 2d n = l->aptr - l-
0c20: 3e 61 72 67 73 3b 0a 20 20 5f 5f 61 76 77 6f 72 >args;. __avwor
0c30: 64 20 69 3b 0a 0a 20 20 69 66 20 28 6c 2d 3e 66 d i;.. if (l->f
0c40: 61 72 67 5f 6d 61 73 6b 29 0a 20 20 20 20 7b 20 arg_mask). {
0c50: 2f 2a 20 70 75 73 68 20 6c 65 61 64 69 6e 67 20 /* push leading
0c60: 66 6c 6f 61 74 20 61 72 67 73 20 2a 2f 0a 20 20 float args */.
0c70: 20 20 20 20 69 66 20 28 6c 2d 3e 66 61 72 67 5f if (l->farg_
0c80: 6d 61 73 6b 20 26 20 28 31 3c 3c 30 29 29 0a 20 mask & (1<<0)).
0c90: 20 20 20 20 20 20 20 5f 5f 61 73 6d 5f 5f 28 22 __asm__("
0ca0: 6c 77 63 31 20 24 66 31 32 2c 25 31 28 25 30 29 lwc1 $f12,%1(%0)
0cb0: 22 20 3a 20 3a 20 22 70 22 20 28 6c 29 2c 20 22 " : : "p" (l), "
0cc0: 69 22 20 4f 46 46 53 45 54 4f 46 28 61 76 5f 61 i" OFFSETOF(av_a
0cd0: 6c 69 73 74 2c 66 61 72 67 5b 30 5d 29 29 3b 0a list,farg[0]));.
0ce0: 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 66 61 72 if (l->far
0cf0: 67 5f 6d 61 73 6b 20 26 20 28 31 3c 3c 31 29 29 g_mask & (1<<1))
0d00: 0a 20 20 20 20 20 20 20 20 5f 5f 61 73 6d 5f 5f . __asm__
0d10: 28 22 6c 77 63 31 20 24 66 31 33 2c 25 31 28 25 ("lwc1 $f13,%1(%
0d20: 30 29 22 20 3a 20 3a 20 22 70 22 20 28 6c 29 2c 0)" : : "p" (l),
0d30: 20 22 69 22 20 4f 46 46 53 45 54 4f 46 28 61 76 "i" OFFSETOF(av
0d40: 5f 61 6c 69 73 74 2c 66 61 72 67 5b 31 5d 29 29 _alist,farg[1]))
0d50: 3b 0a 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 66 ;. if (l->f
0d60: 61 72 67 5f 6d 61 73 6b 20 26 20 28 31 3c 3c 32 arg_mask & (1<<2
0d70: 29 29 0a 20 20 20 20 20 20 20 20 5f 5f 61 73 6d )). __asm
0d80: 5f 5f 28 22 6c 77 63 31 20 24 66 31 34 2c 25 31 __("lwc1 $f14,%1
0d90: 28 25 30 29 22 20 3a 20 3a 20 22 70 22 20 28 6c (%0)" : : "p" (l
0da0: 29 2c 20 22 69 22 20 4f 46 46 53 45 54 4f 46 28 ), "i" OFFSETOF(
0db0: 61 76 5f 61 6c 69 73 74 2c 66 61 72 67 5b 32 5d av_alist,farg[2]
0dc0: 29 29 3b 0a 20 20 20 20 20 20 69 66 20 28 6c 2d ));. if (l-
0dd0: 3e 66 61 72 67 5f 6d 61 73 6b 20 26 20 28 31 3c >farg_mask & (1<
0de0: 3c 33 29 29 0a 20 20 20 20 20 20 20 20 5f 5f 61 <3)). __a
0df0: 73 6d 5f 5f 28 22 6c 77 63 31 20 24 66 31 35 2c sm__("lwc1 $f15,
0e00: 25 31 28 25 30 29 22 20 3a 20 3a 20 22 70 22 20 %1(%0)" : : "p"
0e10: 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 45 54 4f (l), "i" OFFSETO
0e20: 46 28 61 76 5f 61 6c 69 73 74 2c 66 61 72 67 5b F(av_alist,farg[
0e30: 33 5d 29 29 3b 0a 20 20 20 20 20 20 69 66 20 28 3]));. if (
0e40: 6c 2d 3e 66 61 72 67 5f 6d 61 73 6b 20 26 20 28 l->farg_mask & (
0e50: 31 3c 3c 34 29 29 0a 20 20 20 20 20 20 20 20 5f 1<<4)). _
0e60: 5f 61 73 6d 5f 5f 28 22 6c 77 63 31 20 24 66 31 _asm__("lwc1 $f1
0e70: 36 2c 25 31 28 25 30 29 22 20 3a 20 3a 20 22 70 6,%1(%0)" : : "p
0e80: 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 45 " (l), "i" OFFSE
0e90: 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c 66 61 72 TOF(av_alist,far
0ea0: 67 5b 34 5d 29 29 3b 0a 20 20 20 20 20 20 69 66 g[4]));. if
0eb0: 20 28 6c 2d 3e 66 61 72 67 5f 6d 61 73 6b 20 26 (l->farg_mask &
0ec0: 20 28 31 3c 3c 35 29 29 0a 20 20 20 20 20 20 20 (1<<5)).
0ed0: 20 5f 5f 61 73 6d 5f 5f 28 22 6c 77 63 31 20 24 __asm__("lwc1 $
0ee0: 66 31 37 2c 25 31 28 25 30 29 22 20 3a 20 3a 20 f17,%1(%0)" : :
0ef0: 22 70 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 46 "p" (l), "i" OFF
0f00: 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c 66 SETOF(av_alist,f
0f10: 61 72 67 5b 35 5d 29 29 3b 0a 20 20 20 20 20 20 arg[5]));.
0f20: 69 66 20 28 6c 2d 3e 66 61 72 67 5f 6d 61 73 6b if (l->farg_mask
0f30: 20 26 20 28 31 3c 3c 36 29 29 0a 20 20 20 20 20 & (1<<6)).
0f40: 20 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c 77 63 31 __asm__("lwc1
0f50: 20 24 66 31 38 2c 25 31 28 25 30 29 22 20 3a 20 $f18,%1(%0)" :
0f60: 3a 20 22 70 22 20 28 6c 29 2c 20 22 69 22 20 4f : "p" (l), "i" O
0f70: 46 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 FFSETOF(av_alist
0f80: 2c 66 61 72 67 5b 36 5d 29 29 3b 0a 20 20 20 20 ,farg[6]));.
0f90: 20 20 69 66 20 28 6c 2d 3e 66 61 72 67 5f 6d 61 if (l->farg_ma
0fa0: 73 6b 20 26 20 28 31 3c 3c 37 29 29 0a 20 20 20 sk & (1<<7)).
0fb0: 20 20 20 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c 77 __asm__("lw
0fc0: 63 31 20 24 66 31 39 2c 25 31 28 25 30 29 22 20 c1 $f19,%1(%0)"
0fd0: 3a 20 3a 20 22 70 22 20 28 6c 29 2c 20 22 69 22 : : "p" (l), "i"
0fe0: 20 4f 46 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 OFFSETOF(av_ali
0ff0: 73 74 2c 66 61 72 67 5b 37 5d 29 29 3b 0a 20 20 st,farg[7]));.
1000: 20 20 7d 0a 20 20 69 66 20 28 6c 2d 3e 64 61 72 }. if (l->dar
1010: 67 5f 6d 61 73 6b 29 0a 20 20 20 20 7b 20 2f 2a g_mask). { /*
1020: 20 70 75 73 68 20 6c 65 61 64 69 6e 67 20 64 6f push leading do
1030: 75 62 6c 65 20 61 72 67 73 20 2a 2f 0a 20 20 20 uble args */.
1040: 20 20 20 69 66 20 28 6c 2d 3e 64 61 72 67 5f 6d if (l->darg_m
1050: 61 73 6b 20 26 20 28 31 3c 3c 30 29 29 0a 20 20 ask & (1<<0)).
1060: 20 20 20 20 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c __asm__("l
1070: 64 63 31 20 24 66 31 32 2c 25 31 28 25 30 29 22 dc1 $f12,%1(%0)"
1080: 20 3a 20 3a 20 22 70 22 20 28 6c 29 2c 20 22 69 : : "p" (l), "i
1090: 22 20 4f 46 46 53 45 54 4f 46 28 61 76 5f 61 6c " OFFSETOF(av_al
10a0: 69 73 74 2c 61 72 67 73 5b 30 5d 29 29 3b 0a 20 ist,args[0]));.
10b0: 20 20 20 20 20 69 66 20 28 6c 2d 3e 64 61 72 67 if (l->darg
10c0: 5f 6d 61 73 6b 20 26 20 28 31 3c 3c 31 29 29 0a _mask & (1<<1)).
10d0: 20 20 20 20 20 20 20 20 5f 5f 61 73 6d 5f 5f 28 __asm__(
10e0: 22 6c 64 63 31 20 24 66 31 33 2c 25 31 28 25 30 "ldc1 $f13,%1(%0
10f0: 29 22 20 3a 20 3a 20 22 70 22 20 28 6c 29 2c 20 )" : : "p" (l),
1100: 22 69 22 20 4f 46 46 53 45 54 4f 46 28 61 76 5f "i" OFFSETOF(av_
1110: 61 6c 69 73 74 2c 61 72 67 73 5b 31 5d 29 29 3b alist,args[1]));
1120: 0a 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 64 61 . if (l->da
1130: 72 67 5f 6d 61 73 6b 20 26 20 28 31 3c 3c 32 29 rg_mask & (1<<2)
1140: 29 0a 20 20 20 20 20 20 20 20 5f 5f 61 73 6d 5f ). __asm_
1150: 5f 28 22 6c 64 63 31 20 24 66 31 34 2c 25 31 28 _("ldc1 $f14,%1(
1160: 25 30 29 22 20 3a 20 3a 20 22 70 22 20 28 6c 29 %0)" : : "p" (l)
1170: 2c 20 22 69 22 20 4f 46 46 53 45 54 4f 46 28 61 , "i" OFFSETOF(a
1180: 76 5f 61 6c 69 73 74 2c 61 72 67 73 5b 32 5d 29 v_alist,args[2])
1190: 29 3b 0a 20 20 20 20 20 20 69 66 20 28 6c 2d 3e );. if (l->
11a0: 64 61 72 67 5f 6d 61 73 6b 20 26 20 28 31 3c 3c darg_mask & (1<<
11b0: 33 29 29 0a 20 20 20 20 20 20 20 20 5f 5f 61 73 3)). __as
11c0: 6d 5f 5f 28 22 6c 64 63 31 20 24 66 31 35 2c 25 m__("ldc1 $f15,%
11d0: 31 28 25 30 29 22 20 3a 20 3a 20 22 70 22 20 28 1(%0)" : : "p" (
11e0: 6c 29 2c 20 22 69 22 20 4f 46 46 53 45 54 4f 46 l), "i" OFFSETOF
11f0: 28 61 76 5f 61 6c 69 73 74 2c 61 72 67 73 5b 33 (av_alist,args[3
1200: 5d 29 29 3b 0a 20 20 20 20 20 20 69 66 20 28 6c ]));. if (l
1210: 2d 3e 64 61 72 67 5f 6d 61 73 6b 20 26 20 28 31 ->darg_mask & (1
1220: 3c 3c 34 29 29 0a 20 20 20 20 20 20 20 20 5f 5f <<4)). __
1230: 61 73 6d 5f 5f 28 22 6c 64 63 31 20 24 66 31 36 asm__("ldc1 $f16
1240: 2c 25 31 28 25 30 29 22 20 3a 20 3a 20 22 70 22 ,%1(%0)" : : "p"
1250: 20 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 45 54 (l), "i" OFFSET
1260: 4f 46 28 61 76 5f 61 6c 69 73 74 2c 61 72 67 73 OF(av_alist,args
1270: 5b 34 5d 29 29 3b 0a 20 20 20 20 20 20 69 66 20 [4]));. if
1280: 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 6b 20 26 20 (l->darg_mask &
1290: 28 31 3c 3c 35 29 29 0a 20 20 20 20 20 20 20 20 (1<<5)).
12a0: 5f 5f 61 73 6d 5f 5f 28 22 6c 64 63 31 20 24 66 __asm__("ldc1 $f
12b0: 31 37 2c 25 31 28 25 30 29 22 20 3a 20 3a 20 22 17,%1(%0)" : : "
12c0: 70 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 p" (l), "i" OFFS
12d0: 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c 61 72 ETOF(av_alist,ar
12e0: 67 73 5b 35 5d 29 29 3b 0a 20 20 20 20 20 20 69 gs[5]));. i
12f0: 66 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 6b 20 f (l->darg_mask
1300: 26 20 28 31 3c 3c 36 29 29 0a 20 20 20 20 20 20 & (1<<6)).
1310: 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c 64 63 31 20 __asm__("ldc1
1320: 24 66 31 38 2c 25 31 28 25 30 29 22 20 3a 20 3a $f18,%1(%0)" : :
1330: 20 22 70 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 "p" (l), "i" OF
1340: 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c FSETOF(av_alist,
1350: 61 72 67 73 5b 36 5d 29 29 3b 0a 20 20 20 20 20 args[6]));.
1360: 20 69 66 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 if (l->darg_mas
1370: 6b 20 26 20 28 31 3c 3c 37 29 29 0a 20 20 20 20 k & (1<<7)).
1380: 20 20 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c 64 63 __asm__("ldc
1390: 31 20 24 66 31 39 2c 25 31 28 25 30 29 22 20 3a 1 $f19,%1(%0)" :
13a0: 20 3a 20 22 70 22 20 28 6c 29 2c 20 22 69 22 20 : "p" (l), "i"
13b0: 4f 46 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 OFFSETOF(av_alis
13c0: 74 2c 61 72 67 73 5b 37 5d 29 29 3b 0a 20 20 20 t,args[7]));.
13d0: 20 7d 0a 0a 20 20 66 6f 72 20 28 69 20 3d 20 38 }.. for (i = 8
13e0: 3b 20 69 20 3c 20 61 72 67 6c 65 6e 3b 20 69 2b ; i < arglen; i+
13f0: 2b 29 09 09 2f 2a 20 70 75 73 68 20 65 78 63 65 +)../* push exce
1400: 73 73 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 73 ss function args
1410: 20 2a 2f 0a 20 20 20 20 61 72 67 66 72 61 6d 65 */. argframe
1420: 5b 69 2d 38 5d 20 3d 20 6c 2d 3e 61 72 67 73 5b [i-8] = l->args[
1430: 69 5d 3b 0a 0a 09 09 09 09 09 2f 2a 20 63 61 6c i];......./* cal
1440: 6c 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 20 l function with
1450: 31 73 74 20 38 20 61 72 67 73 20 2a 2f 0a 20 20 1st 8 args */.
1460: 5f 5f 61 73 6d 5f 5f 20 5f 5f 76 6f 6c 61 74 69 __asm__ __volati
1470: 6c 65 5f 5f 20 28 22 6c 64 20 24 34 2c 25 30 22 le__ ("ld $4,%0"
1480: 20 3a 20 3a 20 22 6d 22 20 28 6c 2d 3e 61 72 67 : : "m" (l->arg
1490: 73 5b 30 5d 29 20 3a 20 22 24 34 22 29 3b 20 2f s[0]) : "$4"); /
14a0: 2a 20 61 72 67 31 20 3d 20 6c 2d 3e 61 72 67 73 * arg1 = l->args
14b0: 5b 30 5d 3b 20 2a 2f 0a 20 20 5f 5f 61 73 6d 5f [0]; */. __asm_
14c0: 5f 20 5f 5f 76 6f 6c 61 74 69 6c 65 5f 5f 20 28 _ __volatile__ (
14d0: 22 6c 64 20 24 35 2c 25 30 22 20 3a 20 3a 20 22 "ld $5,%0" : : "
14e0: 6d 22 20 28 6c 2d 3e 61 72 67 73 5b 31 5d 29 20 m" (l->args[1])
14f0: 3a 20 22 24 35 22 29 3b 20 2f 2a 20 61 72 67 31 : "$5"); /* arg1
1500: 20 3d 20 6c 2d 3e 61 72 67 73 5b 31 5d 3b 20 2a = l->args[1]; *
1510: 2f 0a 20 20 5f 5f 61 73 6d 5f 5f 20 5f 5f 76 6f /. __asm__ __vo
1520: 6c 61 74 69 6c 65 5f 5f 20 28 22 6c 64 20 24 36 latile__ ("ld $6
1530: 2c 25 30 22 20 3a 20 3a 20 22 6d 22 20 28 6c 2d ,%0" : : "m" (l-
1540: 3e 61 72 67 73 5b 32 5d 29 20 3a 20 22 24 36 22 >args[2]) : "$6"
1550: 29 3b 20 2f 2a 20 61 72 67 31 20 3d 20 6c 2d 3e ); /* arg1 = l->
1560: 61 72 67 73 5b 32 5d 3b 20 2a 2f 0a 20 20 5f 5f args[2]; */. __
1570: 61 73 6d 5f 5f 20 5f 5f 76 6f 6c 61 74 69 6c 65 asm__ __volatile
1580: 5f 5f 20 28 22 6c 64 20 24 37 2c 25 30 22 20 3a __ ("ld $7,%0" :
1590: 20 3a 20 22 6d 22 20 28 6c 2d 3e 61 72 67 73 5b : "m" (l->args[
15a0: 33 5d 29 20 3a 20 22 24 37 22 29 3b 20 2f 2a 20 3]) : "$7"); /*
15b0: 61 72 67 31 20 3d 20 6c 2d 3e 61 72 67 73 5b 33 arg1 = l->args[3
15c0: 5d 3b 20 2a 2f 0a 20 20 5f 5f 61 73 6d 5f 5f 20 ]; */. __asm__
15d0: 5f 5f 76 6f 6c 61 74 69 6c 65 5f 5f 20 28 22 6c __volatile__ ("l
15e0: 64 20 24 38 2c 25 30 22 20 3a 20 3a 20 22 6d 22 d $8,%0" : : "m"
15f0: 20 28 6c 2d 3e 61 72 67 73 5b 34 5d 29 20 3a 20 (l->args[4]) :
1600: 22 24 38 22 29 3b 20 2f 2a 20 61 72 67 31 20 3d "$8"); /* arg1 =
1610: 20 6c 2d 3e 61 72 67 73 5b 34 5d 3b 20 2a 2f 0a l->args[4]; */.
1620: 20 20 5f 5f 61 73 6d 5f 5f 20 5f 5f 76 6f 6c 61 __asm__ __vola
1630: 74 69 6c 65 5f 5f 20 28 22 6c 64 20 24 39 2c 25 tile__ ("ld $9,%
1640: 30 22 20 3a 20 3a 20 22 6d 22 20 28 6c 2d 3e 61 0" : : "m" (l->a
1650: 72 67 73 5b 35 5d 29 20 3a 20 22 24 39 22 29 3b rgs[5]) : "$9");
1660: 20 2f 2a 20 61 72 67 31 20 3d 20 6c 2d 3e 61 72 /* arg1 = l->ar
1670: 67 73 5b 35 5d 3b 20 2a 2f 0a 20 20 5f 5f 61 73 gs[5]; */. __as
1680: 6d 5f 5f 20 5f 5f 76 6f 6c 61 74 69 6c 65 5f 5f m__ __volatile__
1690: 20 28 22 6c 64 20 24 31 30 2c 25 30 22 20 3a 20 ("ld $10,%0" :
16a0: 3a 20 22 6d 22 20 28 6c 2d 3e 61 72 67 73 5b 36 : "m" (l->args[6
16b0: 5d 29 20 3a 20 22 24 31 30 22 29 3b 20 2f 2a 20 ]) : "$10"); /*
16c0: 61 72 67 31 20 3d 20 6c 2d 3e 61 72 67 73 5b 36 arg1 = l->args[6
16d0: 5d 3b 20 2a 2f 0a 20 20 5f 5f 61 73 6d 5f 5f 20 ]; */. __asm__
16e0: 5f 5f 76 6f 6c 61 74 69 6c 65 5f 5f 20 28 22 6c __volatile__ ("l
16f0: 64 20 24 31 31 2c 25 30 22 20 3a 20 3a 20 22 6d d $11,%0" : : "m
1700: 22 20 28 6c 2d 3e 61 72 67 73 5b 37 5d 29 20 3a " (l->args[7]) :
1710: 20 22 24 31 31 22 29 3b 20 2f 2a 20 61 72 67 31 "$11"); /* arg1
1720: 20 3d 20 6c 2d 3e 61 72 67 73 5b 37 5d 3b 20 2a = l->args[7]; *
1730: 2f 0a 20 20 69 20 3d 20 28 2a 28 74 39 20 3d 20 /. i = (*(t9 =
1740: 6c 2d 3e 66 75 6e 63 29 29 28 29 3b 0a 0a 20 20 l->func))();..
1750: 2f 2a 20 73 61 76 65 20 72 65 74 75 72 6e 20 76 /* save return v
1760: 61 6c 75 65 20 2a 2f 0a 20 20 69 66 20 28 6c 2d alue */. if (l-
1770: 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 76 6f >rtype == __AVvo
1780: 69 64 29 20 7b 0a 20 20 7d 20 65 6c 73 65 0a 20 id) {. } else.
1790: 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d if (l->rtype ==
17a0: 20 5f 5f 41 56 77 6f 72 64 29 20 7b 0a 20 20 20 __AVword) {.
17b0: 20 52 45 54 55 52 4e 28 5f 5f 61 76 77 6f 72 64 RETURN(__avword
17c0: 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 , i);. } else.
17d0: 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d if (l->rtype ==
17e0: 20 5f 5f 41 56 63 68 61 72 29 20 7b 0a 20 20 20 __AVchar) {.
17f0: 20 52 45 54 55 52 4e 28 63 68 61 72 2c 20 69 29 RETURN(char, i)
1800: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
1810: 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 (l->rtype == __A
1820: 56 73 63 68 61 72 29 20 7b 0a 20 20 20 20 52 45 Vschar) {. RE
1830: 54 55 52 4e 28 73 69 67 6e 65 64 20 63 68 61 72 TURN(signed char
1840: 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 , i);. } else.
1850: 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d if (l->rtype ==
1860: 20 5f 5f 41 56 75 63 68 61 72 29 20 7b 0a 20 20 __AVuchar) {.
1870: 20 20 52 45 54 55 52 4e 28 75 6e 73 69 67 6e 65 RETURN(unsigne
1880: 64 20 63 68 61 72 2c 20 69 29 3b 0a 20 20 7d 20 d char, i);. }
1890: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
18a0: 79 70 65 20 3d 3d 20 5f 5f 41 56 73 68 6f 72 74 ype == __AVshort
18b0: 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 73 ) {. RETURN(s
18c0: 68 6f 72 74 2c 20 69 29 3b 0a 20 20 7d 20 65 6c hort, i);. } el
18d0: 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 se. if (l->rtyp
18e0: 65 20 3d 3d 20 5f 5f 41 56 75 73 68 6f 72 74 29 e == __AVushort)
18f0: 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 75 6e {. RETURN(un
1900: 73 69 67 6e 65 64 20 73 68 6f 72 74 2c 20 69 29 signed short, i)
1910: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
1920: 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 (l->rtype == __A
1930: 56 69 6e 74 29 20 7b 0a 20 20 20 20 52 45 54 55 Vint) {. RETU
1940: 52 4e 28 69 6e 74 2c 20 69 29 3b 0a 20 20 7d 20 RN(int, i);. }
1950: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
1960: 79 70 65 20 3d 3d 20 5f 5f 41 56 75 69 6e 74 29 ype == __AVuint)
1970: 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 75 6e {. RETURN(un
1980: 73 69 67 6e 65 64 20 69 6e 74 2c 20 69 29 3b 0a signed int, i);.
1990: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
19a0: 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 6c ->rtype == __AVl
19b0: 6f 6e 67 29 20 7b 0a 20 20 20 20 52 45 54 55 52 ong) {. RETUR
19c0: 4e 28 6c 6f 6e 67 2c 20 69 29 3b 0a 20 20 7d 20 N(long, i);. }
19d0: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
19e0: 79 70 65 20 3d 3d 20 5f 5f 41 56 75 6c 6f 6e 67 ype == __AVulong
19f0: 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 75 ) {. RETURN(u
1a00: 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 2c 20 69 29 nsigned long, i)
1a10: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
1a20: 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 (l->rtype == __A
1a30: 56 6c 6f 6e 67 6c 6f 6e 67 29 20 7b 0a 20 20 20 Vlonglong) {.
1a40: 20 52 45 54 55 52 4e 28 6c 6f 6e 67 20 6c 6f 6e RETURN(long lon
1a50: 67 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 0a g, i);. } else.
1a60: 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d if (l->rtype =
1a70: 3d 20 5f 5f 41 56 75 6c 6f 6e 67 6c 6f 6e 67 29 = __AVulonglong)
1a80: 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 75 6e {. RETURN(un
1a90: 73 69 67 6e 65 64 20 6c 6f 6e 67 20 6c 6f 6e 67 signed long long
1aa0: 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 , i);. } else.
1ab0: 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d if (l->rtype ==
1ac0: 20 5f 5f 41 56 66 6c 6f 61 74 29 20 7b 0a 20 20 __AVfloat) {.
1ad0: 20 20 52 45 54 55 52 4e 28 66 6c 6f 61 74 2c 20 RETURN(float,
1ae0: 66 72 65 74 29 3b 0a 20 20 7d 20 65 6c 73 65 0a fret);. } else.
1af0: 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d if (l->rtype =
1b00: 3d 20 5f 5f 41 56 64 6f 75 62 6c 65 29 20 7b 0a = __AVdouble) {.
1b10: 20 20 20 20 52 45 54 55 52 4e 28 64 6f 75 62 6c RETURN(doubl
1b20: 65 2c 20 64 72 65 74 29 3b 0a 20 20 7d 20 65 6c e, dret);. } el
1b30: 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 se. if (l->rtyp
1b40: 65 20 3d 3d 20 5f 5f 41 56 76 6f 69 64 70 29 20 e == __AVvoidp)
1b50: 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 76 6f 69 {. RETURN(voi
1b60: 64 2a 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 d*, i);. } else
1b70: 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 . if (l->rtype
1b80: 3d 3d 20 5f 5f 41 56 73 74 72 75 63 74 29 20 7b == __AVstruct) {
1b90: 0a 20 20 20 20 69 66 20 28 6c 2d 3e 66 6c 61 67 . if (l->flag
1ba0: 73 20 26 20 5f 5f 41 56 5f 50 43 43 5f 53 54 52 s & __AV_PCC_STR
1bb0: 55 43 54 5f 52 45 54 55 52 4e 29 20 7b 0a 20 20 UCT_RETURN) {.
1bc0: 20 20 20 20 2f 2a 20 70 63 63 20 73 74 72 75 63 /* pcc struc
1bd0: 74 20 72 65 74 75 72 6e 20 63 6f 6e 76 65 6e 74 t return convent
1be0: 69 6f 6e 3a 20 6e 65 65 64 20 61 20 20 2a 28 54 ion: need a *(T
1bf0: 59 50 45 2a 29 6c 2d 3e 72 61 64 64 72 20 3d 20 YPE*)l->raddr =
1c00: 2a 28 54 59 50 45 2a 29 69 3b 20 20 2a 2f 0a 20 *(TYPE*)i; */.
1c10: 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a if (l->rsiz
1c20: 65 20 3d 3d 20 73 69 7a 65 6f 66 28 63 68 61 72 e == sizeof(char
1c30: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 52 45 54 )) {. RET
1c40: 55 52 4e 28 63 68 61 72 2c 20 2a 28 63 68 61 72 URN(char, *(char
1c50: 2a 29 69 29 3b 0a 20 20 20 20 20 20 7d 20 65 6c *)i);. } el
1c60: 73 65 0a 20 20 20 20 20 20 69 66 20 28 6c 2d 3e se. if (l->
1c70: 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 rsize == sizeof(
1c80: 73 68 6f 72 74 29 29 20 7b 0a 20 20 20 20 20 20 short)) {.
1c90: 20 20 52 45 54 55 52 4e 28 73 68 6f 72 74 2c 20 RETURN(short,
1ca0: 2a 28 73 68 6f 72 74 2a 29 69 29 3b 0a 20 20 20 *(short*)i);.
1cb0: 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 } else.
1cc0: 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 if (l->rsize ==
1cd0: 73 69 7a 65 6f 66 28 69 6e 74 29 29 20 7b 0a 20 sizeof(int)) {.
1ce0: 20 20 20 20 20 20 20 52 45 54 55 52 4e 28 69 6e RETURN(in
1cf0: 74 2c 20 2a 28 69 6e 74 2a 29 69 29 3b 0a 20 20 t, *(int*)i);.
1d00: 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 } else.
1d10: 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d if (l->rsize ==
1d20: 20 73 69 7a 65 6f 66 28 6c 6f 6e 67 20 6c 6f 6e sizeof(long lon
1d30: 67 29 29 20 7b 0a 20 20 20 20 20 20 20 20 52 45 g)) {. RE
1d40: 54 55 52 4e 28 6c 6f 6e 67 2c 20 2a 28 6c 6f 6e TURN(long, *(lon
1d50: 67 20 6c 6f 6e 67 2a 29 69 29 3b 0a 20 20 20 20 g long*)i);.
1d60: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 } else {.
1d70: 20 20 20 69 6e 74 20 6e 20 3d 20 28 6c 2d 3e 72 int n = (l->r
1d80: 73 69 7a 65 20 2b 20 73 69 7a 65 6f 66 28 5f 5f size + sizeof(__
1d90: 61 76 77 6f 72 64 29 2d 31 29 2f 73 69 7a 65 6f avword)-1)/sizeo
1da0: 66 28 5f 5f 61 76 77 6f 72 64 29 3b 0a 20 20 20 f(__avword);.
1db0: 20 20 20 20 20 77 68 69 6c 65 20 28 2d 2d 6e 20 while (--n
1dc0: 3e 3d 20 30 29 0a 20 20 20 20 20 20 20 20 20 20 >= 0).
1dd0: 28 28 5f 5f 61 76 77 6f 72 64 2a 29 6c 2d 3e 72 ((__avword*)l->r
1de0: 61 64 64 72 29 5b 6e 5d 20 3d 20 28 28 5f 5f 61 addr)[n] = ((__a
1df0: 76 77 6f 72 64 2a 29 69 29 5b 6e 5d 3b 0a 20 20 vword*)i)[n];.
1e00: 20 20 20 20 7d 0a 20 20 20 20 7d 20 65 6c 73 65 }. } else
1e10: 20 7b 0a 20 20 20 20 20 20 2f 2a 20 6e 6f 72 6d {. /* norm
1e20: 61 6c 20 73 74 72 75 63 74 20 72 65 74 75 72 6e al struct return
1e30: 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 2a 2f 0a 20 convention */.
1e40: 20 20 20 20 20 69 66 20 28 6c 2d 3e 66 6c 61 67 if (l->flag
1e50: 73 20 26 20 5f 5f 41 56 5f 52 45 47 49 53 54 45 s & __AV_REGISTE
1e60: 52 5f 53 54 52 55 43 54 5f 52 45 54 55 52 4e 29 R_STRUCT_RETURN)
1e70: 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c {. if (l
1e80: 2d 3e 66 6c 61 67 73 20 26 20 5f 5f 41 56 5f 47 ->flags & __AV_G
1e90: 43 43 5f 53 54 52 55 43 54 5f 52 45 54 55 52 4e CC_STRUCT_RETURN
1ea0: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 2f 2a ) {. /*
1eb0: 20 67 63 63 20 72 65 74 75 72 6e 73 20 73 74 72 gcc returns str
1ec0: 75 63 74 73 20 6f 66 20 73 69 7a 65 20 31 2c 32 ucts of size 1,2
1ed0: 2c 34 2c 38 20 69 6e 20 72 65 67 69 73 74 65 72 ,4,8 in register
1ee0: 73 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 s. */.
1ef0: 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 if (l->rsize ==
1f00: 73 69 7a 65 6f 66 28 63 68 61 72 29 29 20 7b 0a sizeof(char)) {.
1f10: 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 55 RETU
1f20: 52 4e 28 63 68 61 72 2c 20 69 29 3b 0a 20 20 20 RN(char, i);.
1f30: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 } else.
1f40: 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 if (l->r
1f50: 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 73 size == sizeof(s
1f60: 68 6f 72 74 29 29 20 7b 0a 20 20 20 20 20 20 20 hort)) {.
1f70: 20 20 20 20 20 52 45 54 55 52 4e 28 73 68 6f 72 RETURN(shor
1f80: 74 2c 20 69 29 3b 0a 20 20 20 20 20 20 20 20 20 t, i);.
1f90: 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 } else.
1fa0: 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d if (l->rsize =
1fb0: 3d 20 73 69 7a 65 6f 66 28 69 6e 74 29 29 20 7b = sizeof(int)) {
1fc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 . RET
1fd0: 55 52 4e 28 69 6e 74 2c 20 69 29 3b 0a 20 20 20 URN(int, i);.
1fe0: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 } else.
1ff0: 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 if (l->r
2000: 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 6c size == sizeof(l
2010: 6f 6e 67 20 6c 6f 6e 67 29 29 20 7b 0a 20 20 20 ong long)) {.
2020: 20 20 20 20 20 20 20 20 20 52 45 54 55 52 4e 28 RETURN(
2030: 6c 6f 6e 67 20 6c 6f 6e 67 2c 20 69 29 3b 0a 20 long long, i);.
2040: 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 }.
2050: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 } else {.
2060: 20 20 20 20 20 20 2f 2a 20 63 63 20 72 65 74 75 /* cc retu
2070: 72 6e 73 20 73 74 72 75 63 74 73 20 6f 66 20 73 rns structs of s
2080: 69 7a 65 20 3c 3d 20 31 36 20 69 6e 20 72 65 67 ize <= 16 in reg
2090: 69 73 74 65 72 73 2e 20 2a 2f 0a 20 20 20 20 20 isters. */.
20a0: 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a if (l->rsiz
20b0: 65 20 3e 20 30 20 26 26 20 6c 2d 3e 72 73 69 7a e > 0 && l->rsiz
20c0: 65 20 3c 3d 20 31 36 29 20 7b 0a 20 20 20 20 20 e <= 16) {.
20d0: 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 if (l->rs
20e0: 69 7a 65 20 3d 3d 20 31 29 20 7b 0a 20 20 20 20 ize == 1) {.
20f0: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
2100: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
2110: 61 64 64 72 29 5b 30 5d 20 3d 20 28 75 6e 73 69 addr)[0] = (unsi
2120: 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 35 36 gned char)(i>>56
2130: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d );. }
2140: 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 else.
2150: 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d if (l->rsize =
2160: 3d 20 32 29 20 7b 0a 20 20 20 20 20 20 20 20 20 = 2) {.
2170: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
2180: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
2190: 5b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 [0] = (unsigned
21a0: 63 68 61 72 29 28 69 3e 3e 35 36 29 3b 0a 20 20 char)(i>>56);.
21b0: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
21c0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
21d0: 3e 72 61 64 64 72 29 5b 31 5d 20 3d 20 28 75 6e >raddr)[1] = (un
21e0: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e signed char)(i>>
21f0: 34 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 48);.
2200: 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 } else.
2210: 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 if (l->rsize
2220: 20 3d 3d 20 33 29 20 7b 0a 20 20 20 20 20 20 20 == 3) {.
2230: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
2240: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
2250: 72 29 5b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 r)[0] = (unsigne
2260: 64 20 63 68 61 72 29 28 69 3e 3e 35 36 29 3b 0a d char)(i>>56);.
2270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
2280: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
2290: 6c 2d 3e 72 61 64 64 72 29 5b 31 5d 20 3d 20 28 l->raddr)[1] = (
22a0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
22b0: 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 20 20 >>48);.
22c0: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
22d0: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
22e0: 5b 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 [2] = (unsigned
22f0: 63 68 61 72 29 28 69 3e 3e 34 30 29 3b 0a 20 20 char)(i>>40);.
2300: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 } else
2310: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
2320: 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 34 29 20 (l->rsize == 4)
2330: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
2340: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
2350: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d *)l->raddr)[0] =
2360: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
2370: 28 69 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 (i>>56);.
2380: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
2390: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
23a0: 72 29 5b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 r)[1] = (unsigne
23b0: 64 20 63 68 61 72 29 28 69 3e 3e 34 38 29 3b 0a d char)(i>>48);.
23c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
23d0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
23e0: 6c 2d 3e 72 61 64 64 72 29 5b 32 5d 20 3d 20 28 l->raddr)[2] = (
23f0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
2400: 3e 3e 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 >>40);.
2410: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
2420: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
2430: 5b 33 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 [3] = (unsigned
2440: 63 68 61 72 29 28 69 3e 3e 33 32 29 3b 0a 20 20 char)(i>>32);.
2450: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 } else
2460: 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 . if
2470: 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 35 29 20 (l->rsize == 5)
2480: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
2490: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
24a0: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d *)l->raddr)[0] =
24b0: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
24c0: 28 69 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 (i>>56);.
24d0: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
24e0: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
24f0: 72 29 5b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 r)[1] = (unsigne
2500: 64 20 63 68 61 72 29 28 69 3e 3e 34 38 29 3b 0a d char)(i>>48);.
2510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
2520: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
2530: 6c 2d 3e 72 61 64 64 72 29 5b 32 5d 20 3d 20 28 l->raddr)[2] = (
2540: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
2550: 3e 3e 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 >>40);.
2560: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
2570: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
2580: 5b 33 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 [3] = (unsigned
2590: 63 68 61 72 29 28 69 3e 3e 33 32 29 3b 0a 20 20 char)(i>>32);.
25a0: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
25b0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
25c0: 3e 72 61 64 64 72 29 5b 34 5d 20 3d 20 28 75 6e >raddr)[4] = (un
25d0: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e signed char)(i>>
25e0: 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 24);.
25f0: 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 } else.
2600: 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 if (l->rsize
2610: 20 3d 3d 20 36 29 20 7b 0a 20 20 20 20 20 20 20 == 6) {.
2620: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
2630: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
2640: 72 29 5b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 r)[0] = (unsigne
2650: 64 20 63 68 61 72 29 28 69 3e 3e 35 36 29 3b 0a d char)(i>>56);.
2660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
2670: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
2680: 6c 2d 3e 72 61 64 64 72 29 5b 31 5d 20 3d 20 28 l->raddr)[1] = (
2690: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
26a0: 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 20 20 >>48);.
26b0: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
26c0: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
26d0: 5b 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 [2] = (unsigned
26e0: 63 68 61 72 29 28 69 3e 3e 34 30 29 3b 0a 20 20 char)(i>>40);.
26f0: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
2700: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
2710: 3e 72 61 64 64 72 29 5b 33 5d 20 3d 20 28 75 6e >raddr)[3] = (un
2720: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e signed char)(i>>
2730: 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 32);.
2740: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
2750: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 34 ar *)l->raddr)[4
2760: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
2770: 61 72 29 28 69 3e 3e 32 34 29 3b 0a 20 20 20 20 ar)(i>>24);.
2780: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
2790: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
27a0: 61 64 64 72 29 5b 35 5d 20 3d 20 28 75 6e 73 69 addr)[5] = (unsi
27b0: 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 31 36 gned char)(i>>16
27c0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d );. }
27d0: 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 else.
27e0: 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d if (l->rsize =
27f0: 3d 20 37 29 20 7b 0a 20 20 20 20 20 20 20 20 20 = 7) {.
2800: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
2810: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
2820: 5b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 [0] = (unsigned
2830: 63 68 61 72 29 28 69 3e 3e 35 36 29 3b 0a 20 20 char)(i>>56);.
2840: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
2850: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
2860: 3e 72 61 64 64 72 29 5b 31 5d 20 3d 20 28 75 6e >raddr)[1] = (un
2870: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e signed char)(i>>
2880: 34 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 48);.
2890: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
28a0: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 ar *)l->raddr)[2
28b0: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
28c0: 61 72 29 28 69 3e 3e 34 30 29 3b 0a 20 20 20 20 ar)(i>>40);.
28d0: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
28e0: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
28f0: 61 64 64 72 29 5b 33 5d 20 3d 20 28 75 6e 73 69 addr)[3] = (unsi
2900: 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 33 32 gned char)(i>>32
2910: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 );.
2920: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
2930: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 34 5d 20 *)l->raddr)[4]
2940: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
2950: 29 28 69 3e 3e 32 34 29 3b 0a 20 20 20 20 20 20 )(i>>24);.
2960: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
2970: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
2980: 64 72 29 5b 35 5d 20 3d 20 28 75 6e 73 69 67 6e dr)[5] = (unsign
2990: 65 64 20 63 68 61 72 29 28 69 3e 3e 31 36 29 3b ed char)(i>>16);
29a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 . (
29b0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
29c0: 29 6c 2d 3e 72 61 64 64 72 29 5b 36 5d 20 3d 20 )l->raddr)[6] =
29d0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
29e0: 69 3e 3e 38 29 3b 0a 20 20 20 20 20 20 20 20 20 i>>8);.
29f0: 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 } else.
2a00: 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 if (l->rsi
2a10: 7a 65 20 3e 3d 20 38 20 26 26 20 6c 2d 3e 72 73 ze >= 8 && l->rs
2a20: 69 7a 65 20 3c 3d 20 31 36 29 20 7b 0a 20 20 20 ize <= 16) {.
2a30: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
2a40: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
2a50: 72 61 64 64 72 29 5b 30 5d 20 3d 20 28 75 6e 73 raddr)[0] = (uns
2a60: 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 35 igned char)(i>>5
2a70: 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6);.
2a80: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
2a90: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 5d r *)l->raddr)[1]
2aa0: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
2ab0: 72 29 28 69 3e 3e 34 38 29 3b 0a 20 20 20 20 20 r)(i>>48);.
2ac0: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
2ad0: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
2ae0: 64 64 72 29 5b 32 5d 20 3d 20 28 75 6e 73 69 67 ddr)[2] = (unsig
2af0: 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 34 30 29 ned char)(i>>40)
2b00: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
2b10: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
2b20: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 33 5d 20 3d *)l->raddr)[3] =
2b30: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
2b40: 28 69 3e 3e 33 32 29 3b 0a 20 20 20 20 20 20 20 (i>>32);.
2b50: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
2b60: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
2b70: 72 29 5b 34 5d 20 3d 20 28 75 6e 73 69 67 6e 65 r)[4] = (unsigne
2b80: 64 20 63 68 61 72 29 28 69 3e 3e 32 34 29 3b 0a d char)(i>>24);.
2b90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
2ba0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
2bb0: 6c 2d 3e 72 61 64 64 72 29 5b 35 5d 20 3d 20 28 l->raddr)[5] = (
2bc0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
2bd0: 3e 3e 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 >>16);.
2be0: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
2bf0: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
2c00: 5b 36 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 [6] = (unsigned
2c10: 63 68 61 72 29 28 69 3e 3e 38 29 3b 0a 20 20 20 char)(i>>8);.
2c20: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
2c30: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
2c40: 72 61 64 64 72 29 5b 37 5d 20 3d 20 28 75 6e 73 raddr)[7] = (uns
2c50: 69 67 6e 65 64 20 63 68 61 72 29 28 69 29 3b 0a igned char)(i);.
2c60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 if
2c70: 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 38 29 (l->rsize == 8)
2c80: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
2c90: 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 } else.
2ca0: 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 if (l->rsi
2cb0: 7a 65 20 3d 3d 20 39 29 20 7b 0a 20 20 20 20 20 ze == 9) {.
2cc0: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
2cd0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
2ce0: 72 61 64 64 72 29 5b 38 2b 30 5d 20 3d 20 28 75 raddr)[8+0] = (u
2cf0: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 nsigned char)(ir
2d00: 65 74 32 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 et2>>56);.
2d10: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 } else.
2d20: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 if
2d30: 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 31 30 29 (l->rsize == 10)
2d40: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
2d50: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
2d60: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 ar *)l->raddr)[8
2d70: 2b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 +0] = (unsigned
2d80: 63 68 61 72 29 28 69 72 65 74 32 3e 3e 35 36 29 char)(iret2>>56)
2d90: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
2da0: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
2db0: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b r *)l->raddr)[8+
2dc0: 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 1] = (unsigned c
2dd0: 68 61 72 29 28 69 72 65 74 32 3e 3e 34 38 29 3b har)(iret2>>48);
2de0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d . }
2df0: 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 else.
2e00: 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 if (l->rsize
2e10: 20 3d 3d 20 31 31 29 20 7b 0a 20 20 20 20 20 20 == 11) {.
2e20: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
2e30: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
2e40: 61 64 64 72 29 5b 38 2b 30 5d 20 3d 20 28 75 6e addr)[8+0] = (un
2e50: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 signed char)(ire
2e60: 74 32 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 t2>>56);.
2e70: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
2e80: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
2e90: 64 64 72 29 5b 38 2b 31 5d 20 3d 20 28 75 6e 73 ddr)[8+1] = (uns
2ea0: 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 igned char)(iret
2eb0: 32 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 20 2>>48);.
2ec0: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
2ed0: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
2ee0: 64 72 29 5b 38 2b 32 5d 20 3d 20 28 75 6e 73 69 dr)[8+2] = (unsi
2ef0: 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 32 gned char)(iret2
2f00: 3e 3e 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 >>40);.
2f10: 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 } else.
2f20: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d if (l-
2f30: 3e 72 73 69 7a 65 20 3d 3d 20 31 32 29 20 7b 0a >rsize == 12) {.
2f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
2f50: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
2f60: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 30 5d *)l->raddr)[8+0]
2f70: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
2f80: 72 29 28 69 72 65 74 32 3e 3e 35 36 29 3b 0a 20 r)(iret2>>56);.
2f90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
2fa0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
2fb0: 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 31 5d 20 )l->raddr)[8+1]
2fc0: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
2fd0: 29 28 69 72 65 74 32 3e 3e 34 38 29 3b 0a 20 20 )(iret2>>48);.
2fe0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
2ff0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
3000: 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 32 5d 20 3d l->raddr)[8+2] =
3010: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
3020: 28 69 72 65 74 32 3e 3e 34 30 29 3b 0a 20 20 20 (iret2>>40);.
3030: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 ((u
3040: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
3050: 2d 3e 72 61 64 64 72 29 5b 38 2b 33 5d 20 3d 20 ->raddr)[8+3] =
3060: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
3070: 69 72 65 74 32 3e 3e 33 32 29 3b 0a 20 20 20 20 iret2>>32);.
3080: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 } else
3090: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 . i
30a0: 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 31 f (l->rsize == 1
30b0: 33 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 3) {.
30c0: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
30d0: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
30e0: 5b 38 2b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 [8+0] = (unsigne
30f0: 64 20 63 68 61 72 29 28 69 72 65 74 32 3e 3e 35 d char)(iret2>>5
3100: 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6);.
3110: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
3120: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
3130: 38 2b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 8+1] = (unsigned
3140: 20 63 68 61 72 29 28 69 72 65 74 32 3e 3e 34 38 char)(iret2>>48
3150: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 );.
3160: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
3170: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 ar *)l->raddr)[8
3180: 2b 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 +2] = (unsigned
3190: 63 68 61 72 29 28 69 72 65 74 32 3e 3e 34 30 29 char)(iret2>>40)
31a0: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
31b0: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
31c0: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b r *)l->raddr)[8+
31d0: 33 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 3] = (unsigned c
31e0: 68 61 72 29 28 69 72 65 74 32 3e 3e 33 32 29 3b har)(iret2>>32);
31f0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3200: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
3210: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 34 *)l->raddr)[8+4
3220: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
3230: 61 72 29 28 69 72 65 74 32 3e 3e 32 34 29 3b 0a ar)(iret2>>24);.
3240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 }
3250: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 else.
3260: 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 if (l->rsize
3270: 3d 3d 20 31 34 29 20 7b 0a 20 20 20 20 20 20 20 == 14) {.
3280: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
3290: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
32a0: 64 64 72 29 5b 38 2b 30 5d 20 3d 20 28 75 6e 73 ddr)[8+0] = (uns
32b0: 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 igned char)(iret
32c0: 32 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 20 2>>56);.
32d0: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
32e0: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
32f0: 64 72 29 5b 38 2b 31 5d 20 3d 20 28 75 6e 73 69 dr)[8+1] = (unsi
3300: 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 32 gned char)(iret2
3310: 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 20 20 >>48);.
3320: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
3330: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
3340: 72 29 5b 38 2b 32 5d 20 3d 20 28 75 6e 73 69 67 r)[8+2] = (unsig
3350: 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 32 3e ned char)(iret2>
3360: 3e 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >40);.
3370: 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 ((unsigned
3380: 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 char *)l->raddr
3390: 29 5b 38 2b 33 5d 20 3d 20 28 75 6e 73 69 67 6e )[8+3] = (unsign
33a0: 65 64 20 63 68 61 72 29 28 69 72 65 74 32 3e 3e ed char)(iret2>>
33b0: 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 32);.
33c0: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
33d0: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
33e0: 5b 38 2b 34 5d 20 3d 20 28 75 6e 73 69 67 6e 65 [8+4] = (unsigne
33f0: 64 20 63 68 61 72 29 28 69 72 65 74 32 3e 3e 32 d char)(iret2>>2
3400: 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 4);.
3410: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
3420: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
3430: 38 2b 35 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 8+5] = (unsigned
3440: 20 63 68 61 72 29 28 69 72 65 74 32 3e 3e 31 36 char)(iret2>>16
3450: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 );.
3460: 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 } else.
3470: 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 if (l->rsi
3480: 7a 65 20 3d 3d 20 31 35 29 20 7b 0a 20 20 20 20 ze == 15) {.
3490: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
34a0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
34b0: 3e 72 61 64 64 72 29 5b 38 2b 30 5d 20 3d 20 28 >raddr)[8+0] = (
34c0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
34d0: 72 65 74 32 3e 3e 35 36 29 3b 0a 20 20 20 20 20 ret2>>56);.
34e0: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
34f0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
3500: 72 61 64 64 72 29 5b 38 2b 31 5d 20 3d 20 28 75 raddr)[8+1] = (u
3510: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 nsigned char)(ir
3520: 65 74 32 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 et2>>48);.
3530: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
3540: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
3550: 61 64 64 72 29 5b 38 2b 32 5d 20 3d 20 28 75 6e addr)[8+2] = (un
3560: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 signed char)(ire
3570: 74 32 3e 3e 34 30 29 3b 0a 20 20 20 20 20 20 20 t2>>40);.
3580: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
3590: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
35a0: 64 64 72 29 5b 38 2b 33 5d 20 3d 20 28 75 6e 73 ddr)[8+3] = (uns
35b0: 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 igned char)(iret
35c0: 32 3e 3e 33 32 29 3b 0a 20 20 20 20 20 20 20 20 2>>32);.
35d0: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
35e0: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
35f0: 64 72 29 5b 38 2b 34 5d 20 3d 20 28 75 6e 73 69 dr)[8+4] = (unsi
3600: 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 32 gned char)(iret2
3610: 3e 3e 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 >>24);.
3620: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
3630: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
3640: 72 29 5b 38 2b 35 5d 20 3d 20 28 75 6e 73 69 67 r)[8+5] = (unsig
3650: 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 32 3e ned char)(iret2>
3660: 3e 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >16);.
3670: 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 ((unsigned
3680: 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 char *)l->raddr
3690: 29 5b 38 2b 36 5d 20 3d 20 28 75 6e 73 69 67 6e )[8+6] = (unsign
36a0: 65 64 20 63 68 61 72 29 28 69 72 65 74 32 3e 3e ed char)(iret2>>
36b0: 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 8);.
36c0: 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 } else.
36d0: 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 if (l->rs
36e0: 69 7a 65 20 3d 3d 20 31 36 29 20 7b 0a 20 20 20 ize == 16) {.
36f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 ((u
3700: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
3710: 2d 3e 72 61 64 64 72 29 5b 38 2b 30 5d 20 3d 20 ->raddr)[8+0] =
3720: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
3730: 69 72 65 74 32 3e 3e 35 36 29 3b 0a 20 20 20 20 iret2>>56);.
3740: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
3750: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
3760: 3e 72 61 64 64 72 29 5b 38 2b 31 5d 20 3d 20 28 >raddr)[8+1] = (
3770: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
3780: 72 65 74 32 3e 3e 34 38 29 3b 0a 20 20 20 20 20 ret2>>48);.
3790: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
37a0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
37b0: 72 61 64 64 72 29 5b 38 2b 32 5d 20 3d 20 28 75 raddr)[8+2] = (u
37c0: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 nsigned char)(ir
37d0: 65 74 32 3e 3e 34 30 29 3b 0a 20 20 20 20 20 20 et2>>40);.
37e0: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
37f0: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
3800: 61 64 64 72 29 5b 38 2b 33 5d 20 3d 20 28 75 6e addr)[8+3] = (un
3810: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 signed char)(ire
3820: 74 32 3e 3e 33 32 29 3b 0a 20 20 20 20 20 20 20 t2>>32);.
3830: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
3840: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
3850: 64 64 72 29 5b 38 2b 34 5d 20 3d 20 28 75 6e 73 ddr)[8+4] = (uns
3860: 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 igned char)(iret
3870: 32 3e 3e 32 34 29 3b 0a 20 20 20 20 20 20 20 20 2>>24);.
3880: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
3890: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
38a0: 64 72 29 5b 38 2b 35 5d 20 3d 20 28 75 6e 73 69 dr)[8+5] = (unsi
38b0: 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 32 gned char)(iret2
38c0: 3e 3e 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 >>16);.
38d0: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
38e0: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
38f0: 72 29 5b 38 2b 36 5d 20 3d 20 28 75 6e 73 69 67 r)[8+6] = (unsig
3900: 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 32 3e ned char)(iret2>
3910: 3e 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 >8);.
3920: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
3930: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
3940: 5b 38 2b 37 5d 20 3d 20 28 75 6e 73 69 67 6e 65 [8+7] = (unsigne
3950: 64 20 63 68 61 72 29 28 69 72 65 74 32 29 3b 0a d char)(iret2);.
3960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a }.
3970: 20 20 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 }.
3980: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
3990: 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 }. }.
39a0: 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 20 30 }. }. return 0
39b0: 3b 0a 7d 0a 0a 23 65 6e 64 69 66 20 2f 2a 5f 61 ;.}..#endif /*_a
39c0: 76 63 61 6c 6c 5f 6d 69 70 73 6e 33 32 5f 63 20 vcall_mipsn32_c
39d0: 2a 2f 0a */.