Artifact
2074c34f8cdbc660f1db62295a1074ba19fee74d:
0000: 23 69 66 6e 64 65 66 20 5f 61 76 63 61 6c 6c 5f #ifndef _avcall_
0010: 68 70 70 61 5f 63 09 09 09 09 2f 2a 2d 2a 2d 20 hppa_c..../*-*-
0020: 43 20 2d 2a 2d 2a 2f 0a 23 64 65 66 69 6e 65 20 C -*-*/.#define
0030: 5f 61 76 63 61 6c 6c 5f 68 70 70 61 5f 63 0a 2f _avcall_hppa_c./
0040: 2a 2a 0a 20 20 43 6f 70 79 72 69 67 68 74 20 31 **. Copyright 1
0050: 39 39 33 20 42 69 6c 6c 20 54 72 69 67 67 73 2c 993 Bill Triggs,
0060: 20 3c 42 69 6c 6c 2e 54 72 69 67 67 73 40 69 6e <Bill.Triggs@in
0070: 72 69 61 6c 70 65 73 2e 66 72 3e 0a 20 20 43 6f rialpes.fr>. Co
0080: 70 79 72 69 67 68 74 20 31 39 39 35 2d 31 39 39 pyright 1995-199
0090: 39 20 42 72 75 6e 6f 20 48 61 69 62 6c 65 2c 20 9 Bruno Haible,
00a0: 3c 62 72 75 6e 6f 40 63 6c 69 73 70 2e 6f 72 67 <bruno@clisp.org
00b0: 3e 0a 0a 20 20 54 68 69 73 20 69 73 20 66 72 65 >.. This is fre
00c0: 65 20 73 6f 66 74 77 61 72 65 20 64 69 73 74 72 e software distr
00d0: 69 62 75 74 65 64 20 75 6e 64 65 72 20 74 68 65 ibuted under the
00e0: 20 47 4e 55 20 47 65 6e 65 72 61 6c 20 50 75 62 GNU General Pub
00f0: 6c 69 63 0a 20 20 4c 69 63 65 6e 63 65 20 64 65 lic. Licence de
0100: 73 63 72 69 62 65 64 20 69 6e 20 74 68 65 20 66 scribed in the f
0110: 69 6c 65 20 43 4f 50 59 49 4e 47 2e 20 43 6f 6e ile COPYING. Con
0120: 74 61 63 74 20 74 68 65 20 61 75 74 68 6f 72 20 tact the author
0130: 69 66 0a 20 20 79 6f 75 20 64 6f 6e 27 74 20 68 if. you don't h
0140: 61 76 65 20 74 68 69 73 20 6f 72 20 63 61 6e 27 ave this or can'
0150: 74 20 6c 69 76 65 20 77 69 74 68 20 69 74 2e 20 t live with it.
0160: 54 68 65 72 65 20 69 73 20 41 42 53 4f 4c 55 54 There is ABSOLUT
0170: 45 4c 59 0a 20 20 4e 4f 20 57 41 52 52 41 4e 54 ELY. NO WARRANT
0180: 59 2c 20 65 78 70 6c 69 63 69 74 20 6f 72 20 69 Y, explicit or i
0190: 6d 70 6c 69 65 64 2c 20 6f 6e 20 74 68 69 73 20 mplied, on this
01a0: 73 6f 66 74 77 61 72 65 2e 0a 2a 2a 2f 0a 2f 2a software..**/./*
01b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
01f0: 2d 2d 2d 2d 2d 2d 0a 20 20 21 21 21 20 54 48 49 ------. !!! THI
0200: 53 20 52 4f 55 54 49 4e 45 20 4d 55 53 54 20 42 S ROUTINE MUST B
0210: 45 20 43 4f 4d 50 49 4c 45 44 20 67 63 63 20 2d E COMPILED gcc -
0220: 4f 20 21 21 21 0a 0a 20 20 46 6f 72 65 69 67 6e O !!!.. Foreign
0230: 20 66 75 6e 63 74 69 6f 6e 20 69 6e 74 65 72 66 function interf
0240: 61 63 65 20 66 6f 72 20 61 20 48 50 20 50 72 65 ace for a HP Pre
0250: 63 69 73 69 6f 6e 20 41 72 63 68 69 74 65 63 74 cision Architect
0260: 75 72 65 20 31 2e 30 20 77 69 74 68 20 67 63 63 ure 1.0 with gcc
0270: 0a 0a 20 20 54 68 69 73 20 63 61 6c 6c 73 20 61 .. This calls a
0280: 20 43 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 68 C function with
0290: 20 61 6e 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 an argument lis
02a0: 74 20 62 75 69 6c 74 20 75 70 20 75 73 69 6e 67 t built up using
02b0: 20 6d 61 63 72 6f 73 0a 20 20 64 65 66 69 6e 65 macros. define
02c0: 64 20 69 6e 20 61 76 5f 63 61 6c 6c 2e 68 2e 0a d in av_call.h..
02d0: 0a 20 20 48 50 50 41 20 41 72 67 75 6d 65 6e 74 . HPPA Argument
02e0: 20 50 61 73 73 69 6e 67 20 43 6f 6e 76 65 6e 74 Passing Convent
02f0: 69 6f 6e 73 3a 0a 0a 20 20 41 6c 6c 20 61 72 67 ions:.. All arg
0300: 75 6d 65 6e 74 73 2c 20 65 78 63 65 70 74 20 74 uments, except t
0310: 68 65 20 66 69 72 73 74 20 34 20 77 6f 72 64 73 he first 4 words
0320: 2c 20 61 72 65 20 70 61 73 73 65 64 20 6f 6e 20 , are passed on
0330: 74 68 65 20 73 74 61 63 6b 0a 20 20 2d 20 67 72 the stack. - gr
0340: 6f 77 69 6e 67 20 64 6f 77 6e 21 20 2d 20 77 69 owing down! - wi
0350: 74 68 20 77 6f 72 64 20 61 6c 69 67 6e 6d 65 6e th word alignmen
0360: 74 2e 20 44 6f 75 62 6c 65 73 20 74 61 6b 65 20 t. Doubles take
0370: 74 77 6f 20 77 6f 72 64 73 20 61 6e 64 20 66 6f two words and fo
0380: 72 63 65 0a 20 20 64 6f 75 62 6c 65 20 61 6c 69 rce. double ali
0390: 67 6e 6d 65 6e 74 2e 20 53 6d 61 6c 6c 20 73 74 gnment. Small st
03a0: 72 75 63 74 75 72 65 73 20 61 72 67 73 20 61 72 ructures args ar
03b0: 65 20 70 61 73 73 65 64 20 61 73 20 74 72 75 65 e passed as true
03c0: 20 73 74 72 75 63 74 75 72 65 73 0a 20 20 65 6d structures. em
03d0: 62 65 64 64 65 64 20 69 6e 20 74 68 65 20 61 72 bedded in the ar
03e0: 67 75 6d 65 6e 74 20 73 74 61 63 6b 2e 20 54 68 gument stack. Th
03f0: 65 79 20 66 6f 72 63 65 20 64 6f 75 62 6c 65 20 ey force double
0400: 61 6c 69 67 6e 6d 65 6e 74 20 61 6e 64 20 2d 20 alignment and -
0410: 69 66 20 74 68 65 79 0a 20 20 64 6f 6e 27 74 20 if they. don't
0420: 66 69 74 20 65 6e 74 69 72 65 6c 79 20 69 6e 20 fit entirely in
0430: 74 68 65 20 34 20 72 65 67 69 73 74 65 72 20 77 the 4 register w
0440: 6f 72 64 73 20 2d 20 61 72 65 20 70 61 73 73 65 ords - are passe
0450: 64 20 69 6e 20 6d 65 6d 6f 72 79 2e 0a 20 20 54 d in memory.. T
0460: 68 65 20 66 69 72 73 74 20 32 20 77 6f 72 64 73 he first 2 words
0470: 20 61 72 65 20 70 61 73 73 65 64 20 6c 69 6b 65 are passed like
0480: 20 74 68 69 73 3a 0a 20 20 20 20 25 72 32 36 20 this:. %r26
0490: 3d 20 66 69 72 73 74 20 69 6e 74 65 67 65 72 20 = first integer
04a0: 61 72 67 2c 20 25 72 32 35 20 3d 20 73 65 63 6f arg, %r25 = seco
04b0: 6e 64 20 69 6e 74 65 67 65 72 20 61 72 67 2c 20 nd integer arg,
04c0: 6f 72 0a 20 20 20 20 25 72 32 36 20 3d 20 68 69 or. %r26 = hi
04d0: 67 68 20 77 6f 72 64 20 6f 66 20 64 6f 75 62 6c gh word of doubl
04e0: 65 20 61 72 67 2c 20 25 72 32 35 20 3d 20 6c 6f e arg, %r25 = lo
04f0: 77 20 77 6f 72 64 20 6f 66 20 64 6f 75 62 6c 65 w word of double
0500: 20 61 72 67 2e 0a 20 20 53 69 6d 69 6c 61 72 6c arg.. Similarl
0510: 79 20 66 6f 72 20 74 68 65 20 6e 65 78 74 20 32 y for the next 2
0520: 20 77 6f 72 64 73 2c 20 70 61 73 73 65 64 20 69 words, passed i
0530: 6e 20 25 72 32 34 20 61 6e 64 20 25 72 32 33 2e n %r24 and %r23.
0540: 0a 20 20 4e 6f 74 65 20 74 68 61 74 20 6f 74 68 . Note that oth
0550: 65 72 20 63 61 6c 6c 69 6e 67 20 63 6f 6e 76 65 er calling conve
0560: 6e 74 69 6f 6e 73 20 77 6f 75 6c 64 20 62 65 20 ntions would be
0570: 69 6e 20 65 66 66 65 63 74 20 69 66 20 77 65 20 in effect if we
0580: 77 6f 75 6c 64 20 63 61 6c 6c 0a 20 20 61 6e 20 would call. an
0590: 65 78 70 6c 69 63 69 74 6c 79 20 6e 61 6d 65 64 explicitly named
05a0: 20 66 75 6e 63 74 69 6f 6e 21 0a 0a 20 20 54 6f function!.. To
05b0: 20 72 65 74 75 72 6e 20 61 20 73 74 72 75 63 74 return a struct
05c0: 75 72 65 2c 20 74 68 65 20 63 61 6c 6c 65 64 20 ure, the called
05d0: 66 75 6e 63 74 69 6f 6e 20 63 6f 70 69 65 73 20 function copies
05e0: 74 68 65 20 72 65 74 75 72 6e 20 76 61 6c 75 65 the return value
05f0: 20 74 6f 0a 20 20 74 68 65 20 61 64 64 72 65 73 to. the addres
0600: 73 20 73 75 70 70 6c 69 65 64 20 69 6e 20 72 65 s supplied in re
0610: 67 69 73 74 65 72 20 22 25 72 32 38 22 2e 0a 0a gister "%r28"...
0620: 20 20 49 74 20 69 73 20 66 6f 72 62 69 64 64 65 It is forbidde
0630: 6e 20 74 6f 20 6d 6f 64 69 66 79 20 74 68 65 20 n to modify the
0640: 73 74 61 63 6b 20 70 6f 69 6e 74 65 72 2e 0a 0a stack pointer...
0650: 20 20 43 6f 6d 70 69 6c 65 20 74 68 69 73 20 72 Compile this r
0660: 6f 75 74 69 6e 65 20 77 69 74 68 20 67 63 63 20 outine with gcc
0670: 2d 4f 32 20 2d 66 6f 6d 69 74 2d 66 72 61 6d 65 -O2 -fomit-frame
0680: 2d 70 6f 69 6e 74 65 72 20 74 6f 20 67 65 74 20 -pointer to get
0690: 74 68 65 20 72 69 67 68 74 0a 20 20 72 65 67 69 the right. regi
06a0: 73 74 65 72 20 76 61 72 69 61 62 6c 65 73 2c 20 ster variables,
06b0: 74 68 65 6e 20 72 65 70 6c 61 63 65 20 74 68 65 then replace the
06c0: 20 2d 31 32 30 20 69 6e 20 74 68 65 20 73 65 63 -120 in the sec
06d0: 6f 6e 64 20 73 61 76 65 20 73 74 61 74 65 6d 65 ond save stateme
06e0: 6e 74 0a 20 20 22 73 74 77 20 25 72 33 2c 2d 31 nt. "stw %r3,-1
06f0: 32 30 28 30 2c 25 72 33 30 29 22 20 62 79 20 2d 20(0,%r30)" by -
0700: 31 30 36 30 2c 20 6f 72 20 75 73 65 20 74 68 65 1060, or use the
0710: 20 61 73 73 65 6d 62 6c 65 72 20 76 65 72 73 69 assembler versi
0720: 6f 6e 2e 0a 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d on.. ----------
0730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 2f 0a 23 ------------*/.#
0770: 69 6e 63 6c 75 64 65 20 22 61 76 63 61 6c 6c 2e include "avcall.
0780: 68 2e 69 6e 22 0a 0a 23 64 65 66 69 6e 65 20 52 h.in"..#define R
0790: 45 54 55 52 4e 28 54 59 50 45 2c 56 41 4c 29 09 ETURN(TYPE,VAL).
07a0: 28 2a 28 54 59 50 45 2a 29 6c 2d 3e 72 61 64 64 (*(TYPE*)l->radd
07b0: 72 20 3d 20 28 54 59 50 45 29 28 56 41 4c 29 29 r = (TYPE)(VAL))
07c0: 0a 0a 2f 2a 20 54 68 69 73 20 64 65 63 6c 61 72 ../* This declar
07d0: 61 74 69 6f 6e 20 74 65 6c 6c 73 20 67 63 63 20 ation tells gcc
07e0: 6e 6f 74 20 74 6f 20 6d 6f 64 69 66 79 20 25 72 not to modify %r
07f0: 32 38 2e 20 2a 2f 0a 72 65 67 69 73 74 65 72 20 28. */.register
0800: 5f 5f 61 76 77 6f 72 64 2a 09 73 72 65 74 09 5f __avword*.sret._
0810: 5f 61 73 6d 5f 5f 28 22 25 72 32 38 22 29 3b 20 _asm__("%r28");
0820: 20 2f 2a 20 73 74 72 75 63 74 75 72 65 20 72 65 /* structure re
0830: 74 75 72 6e 20 70 6f 69 6e 74 65 72 20 2a 2f 0a turn pointer */.
0840: 0a 69 6e 74 0a 5f 5f 62 75 69 6c 74 69 6e 5f 61 .int.__builtin_a
0850: 76 63 61 6c 6c 28 61 76 5f 61 6c 69 73 74 2a 20 vcall(av_alist*
0860: 6c 29 0a 7b 0a 20 20 72 65 67 69 73 74 65 72 20 l).{. register
0870: 5f 5f 61 76 77 6f 72 64 2a 09 73 70 09 5f 5f 61 __avword*.sp.__a
0880: 73 6d 5f 5f 28 22 25 72 33 30 22 29 3b 20 20 2f sm__("%r30"); /
0890: 2a 20 43 20 6e 61 6d 65 73 20 66 6f 72 20 72 65 * C names for re
08a0: 67 69 73 74 65 72 73 20 2a 2f 0a 20 20 72 65 67 gisters */. reg
08b0: 69 73 74 65 72 20 66 6c 6f 61 74 09 66 72 65 74 ister float.fret
08c0: 09 5f 5f 61 73 6d 5f 5f 28 22 25 66 72 34 22 29 .__asm__("%fr4")
08d0: 3b 0a 20 20 72 65 67 69 73 74 65 72 20 64 6f 75 ;. register dou
08e0: 62 6c 65 09 64 72 65 74 09 5f 5f 61 73 6d 5f 5f ble.dret.__asm__
08f0: 28 22 25 66 72 34 22 29 3b 0a 2f 2a 72 65 67 69 ("%fr4");./*regi
0900: 73 74 65 72 20 5f 5f 61 76 77 6f 72 64 09 69 72 ster __avword.ir
0910: 65 74 31 09 5f 5f 61 73 6d 5f 5f 28 22 25 72 32 et1.__asm__("%r2
0920: 38 22 29 3b 20 2a 2f 0a 20 20 72 65 67 69 73 74 8"); */. regist
0930: 65 72 20 5f 5f 61 76 77 6f 72 64 09 69 72 65 74 er __avword.iret
0940: 32 09 5f 5f 61 73 6d 5f 5f 28 22 25 72 32 39 22 2.__asm__("%r29"
0950: 29 3b 0a 0a 20 20 5f 5f 61 76 77 6f 72 64 20 73 );.. __avword s
0960: 70 61 63 65 5b 5f 5f 41 56 5f 41 4c 49 53 54 5f pace[__AV_ALIST_
0970: 57 4f 52 44 53 5d 3b 09 2f 2a 20 73 70 61 63 65 WORDS];./* space
0980: 20 66 6f 72 20 63 61 6c 6c 65 65 27 73 20 73 74 for callee's st
0990: 61 63 6b 20 66 72 61 6d 65 20 2a 2f 0a 20 20 5f ack frame */. _
09a0: 5f 61 76 77 6f 72 64 2a 20 61 72 67 66 72 61 6d _avword* argfram
09b0: 65 20 3d 20 73 70 20 2d 20 38 3b 09 09 2f 2a 20 e = sp - 8;../*
09c0: 73 74 61 63 6b 20 6f 66 66 73 65 74 20 66 6f 72 stack offset for
09d0: 20 61 72 67 75 6d 65 6e 74 20 6c 69 73 74 20 2a argument list *
09e0: 2f 0a 20 20 69 6e 74 20 61 72 67 6c 65 6e 20 3d /. int arglen =
09f0: 20 26 6c 2d 3e 61 72 67 73 5b 5f 5f 41 56 5f 41 &l->args[__AV_A
0a00: 4c 49 53 54 5f 57 4f 52 44 53 5d 20 2d 20 6c 2d LIST_WORDS] - l-
0a10: 3e 61 70 74 72 3b 0a 20 20 5f 5f 61 76 77 6f 72 >aptr;. __avwor
0a20: 64 20 69 3b 0a 0a 20 20 7b 0a 20 20 20 20 69 6e d i;.. {. in
0a30: 74 20 69 3b 0a 20 20 20 20 66 6f 72 20 28 69 20 t i;. for (i
0a40: 3d 20 2d 61 72 67 6c 65 6e 3b 20 69 20 3c 20 2d = -arglen; i < -
0a50: 34 3b 20 69 2b 2b 29 09 2f 2a 20 70 75 73 68 20 4; i++)./* push
0a60: 66 75 6e 63 74 69 6f 6e 20 61 72 67 73 20 6f 6e function args on
0a70: 74 6f 20 73 74 61 63 6b 20 2a 2f 0a 20 20 20 20 to stack */.
0a80: 20 20 61 72 67 66 72 61 6d 65 5b 69 5d 20 3d 20 argframe[i] =
0a90: 6c 2d 3e 61 72 67 73 5b 5f 5f 41 56 5f 41 4c 49 l->args[__AV_ALI
0aa0: 53 54 5f 57 4f 52 44 53 2b 69 5d 3b 0a 20 20 7d ST_WORDS+i];. }
0ab0: 0a 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 .. if (l->rtype
0ac0: 20 3d 3d 20 5f 5f 41 56 73 74 72 75 63 74 29 09 == __AVstruct).
0ad0: 09 2f 2a 20 70 75 73 68 20 73 74 72 75 63 74 20 ./* push struct
0ae0: 72 65 74 75 72 6e 20 61 64 64 72 65 73 73 20 2a return address *
0af0: 2f 0a 20 20 20 20 73 72 65 74 20 3d 20 6c 2d 3e /. sret = l->
0b00: 72 61 64 64 72 3b 0a 0a 09 09 09 09 2f 2a 20 63 raddr;....../* c
0b10: 61 6c 6c 20 66 75 6e 63 74 69 6f 6e 2c 20 70 61 all function, pa
0b20: 73 73 20 34 20 61 72 67 73 20 69 6e 20 72 65 67 ss 4 args in reg
0b30: 69 73 74 65 72 73 20 2a 2f 0a 20 20 69 20 3d 20 isters */. i =
0b40: 28 2a 6c 2d 3e 66 75 6e 63 29 28 6c 2d 3e 61 72 (*l->func)(l->ar
0b50: 67 73 5b 5f 5f 41 56 5f 41 4c 49 53 54 5f 57 4f gs[__AV_ALIST_WO
0b60: 52 44 53 2d 31 5d 2c 20 6c 2d 3e 61 72 67 73 5b RDS-1], l->args[
0b70: 5f 5f 41 56 5f 41 4c 49 53 54 5f 57 4f 52 44 53 __AV_ALIST_WORDS
0b80: 2d 32 5d 2c 0a 09 09 20 6c 2d 3e 61 72 67 73 5b -2],... l->args[
0b90: 5f 5f 41 56 5f 41 4c 49 53 54 5f 57 4f 52 44 53 __AV_ALIST_WORDS
0ba0: 2d 33 5d 2c 20 6c 2d 3e 61 72 67 73 5b 5f 5f 41 -3], l->args[__A
0bb0: 56 5f 41 4c 49 53 54 5f 57 4f 52 44 53 2d 34 5d V_ALIST_WORDS-4]
0bc0: 29 3b 0a 0a 20 20 2f 2a 20 73 61 76 65 20 72 65 );.. /* save re
0bd0: 74 75 72 6e 20 76 61 6c 75 65 20 2a 2f 0a 20 20 turn value */.
0be0: 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 if (l->rtype ==
0bf0: 5f 5f 41 56 76 6f 69 64 29 20 7b 0a 20 20 7d 20 __AVvoid) {. }
0c00: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
0c10: 79 70 65 20 3d 3d 20 5f 5f 41 56 77 6f 72 64 29 ype == __AVword)
0c20: 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 5f 5f {. RETURN(__
0c30: 61 76 77 6f 72 64 2c 20 69 29 3b 0a 20 20 7d 20 avword, i);. }
0c40: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
0c50: 79 70 65 20 3d 3d 20 5f 5f 41 56 63 68 61 72 29 ype == __AVchar)
0c60: 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 63 68 {. RETURN(ch
0c70: 61 72 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 ar, i);. } else
0c80: 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 . if (l->rtype
0c90: 3d 3d 20 5f 5f 41 56 73 63 68 61 72 29 20 7b 0a == __AVschar) {.
0ca0: 20 20 20 20 52 45 54 55 52 4e 28 73 69 67 6e 65 RETURN(signe
0cb0: 64 20 63 68 61 72 2c 20 69 29 3b 0a 20 20 7d 20 d char, i);. }
0cc0: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
0cd0: 79 70 65 20 3d 3d 20 5f 5f 41 56 75 63 68 61 72 ype == __AVuchar
0ce0: 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 75 ) {. RETURN(u
0cf0: 6e 73 69 67 6e 65 64 20 63 68 61 72 2c 20 69 29 nsigned char, i)
0d00: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
0d10: 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 (l->rtype == __A
0d20: 56 73 68 6f 72 74 29 20 7b 0a 20 20 20 20 52 45 Vshort) {. RE
0d30: 54 55 52 4e 28 73 68 6f 72 74 2c 20 69 29 3b 0a TURN(short, i);.
0d40: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
0d50: 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 75 ->rtype == __AVu
0d60: 73 68 6f 72 74 29 20 7b 0a 20 20 20 20 52 45 54 short) {. RET
0d70: 55 52 4e 28 75 6e 73 69 67 6e 65 64 20 73 68 6f URN(unsigned sho
0d80: 72 74 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 rt, i);. } else
0d90: 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 . if (l->rtype
0da0: 3d 3d 20 5f 5f 41 56 69 6e 74 29 20 7b 0a 20 20 == __AVint) {.
0db0: 20 20 52 45 54 55 52 4e 28 69 6e 74 2c 20 69 29 RETURN(int, i)
0dc0: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
0dd0: 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 (l->rtype == __A
0de0: 56 75 69 6e 74 29 20 7b 0a 20 20 20 20 52 45 54 Vuint) {. RET
0df0: 55 52 4e 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 URN(unsigned int
0e00: 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 , i);. } else.
0e10: 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d if (l->rtype ==
0e20: 20 5f 5f 41 56 6c 6f 6e 67 29 20 7b 0a 20 20 20 __AVlong) {.
0e30: 20 52 45 54 55 52 4e 28 6c 6f 6e 67 2c 20 69 29 RETURN(long, i)
0e40: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
0e50: 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 (l->rtype == __A
0e60: 56 75 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 52 45 Vulong) {. RE
0e70: 54 55 52 4e 28 75 6e 73 69 67 6e 65 64 20 6c 6f TURN(unsigned lo
0e80: 6e 67 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 ng, i);. } else
0e90: 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 . if (l->rtype
0ea0: 3d 3d 20 5f 5f 41 56 6c 6f 6e 67 6c 6f 6e 67 20 == __AVlonglong
0eb0: 7c 7c 20 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f || l->rtype == _
0ec0: 5f 41 56 75 6c 6f 6e 67 6c 6f 6e 67 29 20 7b 0a _AVulonglong) {.
0ed0: 20 20 20 20 28 28 5f 5f 61 76 77 6f 72 64 2a 29 ((__avword*)
0ee0: 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d 20 69 l->raddr)[0] = i
0ef0: 3b 0a 20 20 20 20 28 28 5f 5f 61 76 77 6f 72 64 ;. ((__avword
0f00: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 5d 20 3d *)l->raddr)[1] =
0f10: 20 69 72 65 74 32 3b 0a 20 20 7d 20 65 6c 73 65 iret2;. } else
0f20: 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 . if (l->rtype
0f30: 3d 3d 20 5f 5f 41 56 66 6c 6f 61 74 29 20 7b 0a == __AVfloat) {.
0f40: 20 20 20 20 52 45 54 55 52 4e 28 66 6c 6f 61 74 RETURN(float
0f50: 2c 20 66 72 65 74 29 3b 0a 20 20 7d 20 65 6c 73 , fret);. } els
0f60: 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 e. if (l->rtype
0f70: 20 3d 3d 20 5f 5f 41 56 64 6f 75 62 6c 65 29 20 == __AVdouble)
0f80: 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 64 6f 75 {. RETURN(dou
0f90: 62 6c 65 2c 20 64 72 65 74 29 3b 0a 20 20 7d 20 ble, dret);. }
0fa0: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
0fb0: 79 70 65 20 3d 3d 20 5f 5f 41 56 76 6f 69 64 70 ype == __AVvoidp
0fc0: 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 76 ) {. RETURN(v
0fd0: 6f 69 64 2a 2c 20 69 29 3b 0a 20 20 7d 20 65 6c oid*, i);. } el
0fe0: 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 se. if (l->rtyp
0ff0: 65 20 3d 3d 20 5f 5f 41 56 73 74 72 75 63 74 29 e == __AVstruct)
1000: 20 7b 0a 20 20 20 20 69 66 20 28 6c 2d 3e 66 6c {. if (l->fl
1010: 61 67 73 20 26 20 5f 5f 41 56 5f 50 43 43 5f 53 ags & __AV_PCC_S
1020: 54 52 55 43 54 5f 52 45 54 55 52 4e 29 20 7b 0a TRUCT_RETURN) {.
1030: 20 20 20 20 20 20 2f 2a 20 70 63 63 20 73 74 72 /* pcc str
1040: 75 63 74 20 72 65 74 75 72 6e 20 63 6f 6e 76 65 uct return conve
1050: 6e 74 69 6f 6e 3a 20 6e 65 65 64 20 61 20 20 2a ntion: need a *
1060: 28 54 59 50 45 2a 29 6c 2d 3e 72 61 64 64 72 20 (TYPE*)l->raddr
1070: 3d 20 2a 28 54 59 50 45 2a 29 69 3b 20 20 2a 2f = *(TYPE*)i; */
1080: 0a 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 . if (l->rs
1090: 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 63 68 ize == sizeof(ch
10a0: 61 72 29 29 20 7b 0a 20 20 20 20 20 20 20 20 52 ar)) {. R
10b0: 45 54 55 52 4e 28 63 68 61 72 2c 20 2a 28 63 68 ETURN(char, *(ch
10c0: 61 72 2a 29 69 29 3b 0a 20 20 20 20 20 20 7d 20 ar*)i);. }
10d0: 65 6c 73 65 0a 20 20 20 20 20 20 69 66 20 28 6c else. if (l
10e0: 2d 3e 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f ->rsize == sizeo
10f0: 66 28 73 68 6f 72 74 29 29 20 7b 0a 20 20 20 20 f(short)) {.
1100: 20 20 20 20 52 45 54 55 52 4e 28 73 68 6f 72 74 RETURN(short
1110: 2c 20 2a 28 73 68 6f 72 74 2a 29 69 29 3b 0a 20 , *(short*)i);.
1120: 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 } else.
1130: 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d if (l->rsize =
1140: 3d 20 73 69 7a 65 6f 66 28 69 6e 74 29 29 20 7b = sizeof(int)) {
1150: 0a 20 20 20 20 20 20 20 20 52 45 54 55 52 4e 28 . RETURN(
1160: 69 6e 74 2c 20 2a 28 69 6e 74 2a 29 69 29 3b 0a int, *(int*)i);.
1170: 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 } else.
1180: 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 if (l->rsize
1190: 3d 3d 20 73 69 7a 65 6f 66 28 64 6f 75 62 6c 65 == sizeof(double
11a0: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 28 28 69 )) {. ((i
11b0: 6e 74 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 30 5d nt*)l->raddr)[0]
11c0: 20 3d 20 28 28 69 6e 74 2a 29 69 29 5b 30 5d 3b = ((int*)i)[0];
11d0: 0a 20 20 20 20 20 20 20 20 28 28 69 6e 74 2a 29 . ((int*)
11e0: 6c 2d 3e 72 61 64 64 72 29 5b 31 5d 20 3d 20 28 l->raddr)[1] = (
11f0: 28 69 6e 74 2a 29 69 29 5b 31 5d 3b 0a 20 20 20 (int*)i)[1];.
1200: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 } else {.
1210: 20 20 20 20 69 6e 74 20 6e 20 3d 20 28 6c 2d 3e int n = (l->
1220: 72 73 69 7a 65 20 2b 20 73 69 7a 65 6f 66 28 5f rsize + sizeof(_
1230: 5f 61 76 77 6f 72 64 29 2d 31 29 2f 73 69 7a 65 _avword)-1)/size
1240: 6f 66 28 5f 5f 61 76 77 6f 72 64 29 3b 0a 20 20 of(__avword);.
1250: 20 20 20 20 20 20 77 68 69 6c 65 20 28 2d 2d 6e while (--n
1260: 20 3e 3d 20 30 29 0a 20 20 20 20 20 20 20 20 20 >= 0).
1270: 20 28 28 5f 5f 61 76 77 6f 72 64 2a 29 6c 2d 3e ((__avword*)l->
1280: 72 61 64 64 72 29 5b 6e 5d 20 3d 20 28 28 5f 5f raddr)[n] = ((__
1290: 61 76 77 6f 72 64 2a 29 69 29 5b 6e 5d 3b 0a 20 avword*)i)[n];.
12a0: 20 20 20 20 20 7d 0a 20 20 20 20 7d 20 65 6c 73 }. } els
12b0: 65 20 7b 0a 20 20 20 20 20 20 2f 2a 20 6e 6f 72 e {. /* nor
12c0: 6d 61 6c 20 73 74 72 75 63 74 20 72 65 74 75 72 mal struct retur
12d0: 6e 20 63 6f 6e 76 65 6e 74 69 6f 6e 20 2a 2f 0a n convention */.
12e0: 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 66 6c 61 if (l->fla
12f0: 67 73 20 26 20 5f 5f 41 56 5f 53 4d 41 4c 4c 5f gs & __AV_SMALL_
1300: 53 54 52 55 43 54 5f 52 45 54 55 52 4e 29 20 7b STRUCT_RETURN) {
1310: 0a 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e . if (l->
1320: 66 6c 61 67 73 20 26 20 5f 5f 41 56 5f 4f 4c 44 flags & __AV_OLD
1330: 47 43 43 5f 53 54 52 55 43 54 5f 52 45 54 55 52 GCC_STRUCT_RETUR
1340: 4e 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 2f N) {. /
1350: 2a 20 67 63 63 20 3c 3d 20 32 2e 36 2e 33 20 72 * gcc <= 2.6.3 r
1360: 65 74 75 72 6e 73 20 73 74 72 75 63 74 73 20 6f eturns structs o
1370: 66 20 73 69 7a 65 20 31 2c 32 2c 34 20 69 6e 20 f size 1,2,4 in
1380: 72 65 67 69 73 74 65 72 73 2e 20 2a 2f 0a 20 20 registers. */.
1390: 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 if (l->r
13a0: 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 63 size == sizeof(c
13b0: 68 61 72 29 29 20 7b 0a 20 20 20 20 20 20 20 20 har)) {.
13c0: 20 20 20 20 52 45 54 55 52 4e 28 63 68 61 72 2c RETURN(char,
13d0: 20 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d i);. }
13e0: 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 else.
13f0: 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 if (l->rsize ==
1400: 73 69 7a 65 6f 66 28 73 68 6f 72 74 29 29 20 7b sizeof(short)) {
1410: 0a 20 20 20 20 20 20 20 20 20 20 20 20 52 45 54 . RET
1420: 55 52 4e 28 73 68 6f 72 74 2c 20 69 29 3b 0a 20 URN(short, i);.
1430: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a } else.
1440: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d if (l-
1450: 3e 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 >rsize == sizeof
1460: 28 69 6e 74 29 29 20 7b 0a 20 20 20 20 20 20 20 (int)) {.
1470: 20 20 20 20 20 52 45 54 55 52 4e 28 69 6e 74 2c RETURN(int,
1480: 20 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d i);. }
1490: 0a 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 . } else
14a0: 7b 0a 20 20 20 20 20 20 20 20 20 20 2f 2a 20 63 {. /* c
14b0: 63 2c 20 63 38 39 20 61 6e 64 20 67 63 63 20 3e c, c89 and gcc >
14c0: 3d 20 32 2e 37 20 72 65 74 75 72 6e 20 73 74 72 = 2.7 return str
14d0: 75 63 74 73 20 6f 66 20 73 69 7a 65 20 3c 3d 20 ucts of size <=
14e0: 38 20 69 6e 20 72 65 67 69 73 74 65 72 73 2e 20 8 in registers.
14f0: 2a 2f 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 */. if
1500: 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 31 29 20 (l->rsize == 1)
1510: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 {. ((
1520: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
1530: 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d 20 28 l->raddr)[0] = (
1540: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
1550: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 );. } e
1560: 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 lse. if
1570: 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 32 29 (l->rsize == 2)
1580: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 {. (
1590: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
15a0: 29 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d 20 )l->raddr)[0] =
15b0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
15c0: 69 3e 3e 38 29 3b 0a 20 20 20 20 20 20 20 20 20 i>>8);.
15d0: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
15e0: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 ar *)l->raddr)[1
15f0: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
1600: 61 72 29 28 69 29 3b 0a 20 20 20 20 20 20 20 20 ar)(i);.
1610: 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 } else.
1620: 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 if (l->rsize
1630: 3d 3d 20 33 29 20 7b 0a 20 20 20 20 20 20 20 20 == 3) {.
1640: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
1650: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
1660: 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 0] = (unsigned c
1670: 68 61 72 29 28 69 3e 3e 31 36 29 3b 0a 20 20 20 har)(i>>16);.
1680: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
1690: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
16a0: 64 64 72 29 5b 31 5d 20 3d 20 28 75 6e 73 69 67 ddr)[1] = (unsig
16b0: 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 38 29 3b ned char)(i>>8);
16c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 . ((u
16d0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
16e0: 2d 3e 72 61 64 64 72 29 5b 32 5d 20 3d 20 28 75 ->raddr)[2] = (u
16f0: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 29 nsigned char)(i)
1700: 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c ;. } el
1710: 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 se. if
1720: 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 34 29 20 (l->rsize == 4)
1730: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 {. ((
1740: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
1750: 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d 20 28 l->raddr)[0] = (
1760: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
1770: 3e 3e 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 >>24);.
1780: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
1790: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 ar *)l->raddr)[1
17a0: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
17b0: 61 72 29 28 69 3e 3e 31 36 29 3b 0a 20 20 20 20 ar)(i>>16);.
17c0: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
17d0: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
17e0: 64 72 29 5b 32 5d 20 3d 20 28 75 6e 73 69 67 6e dr)[2] = (unsign
17f0: 65 64 20 63 68 61 72 29 28 69 3e 3e 38 29 3b 0a ed char)(i>>8);.
1800: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
1810: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
1820: 3e 72 61 64 64 72 29 5b 33 5d 20 3d 20 28 75 6e >raddr)[3] = (un
1830: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 29 3b signed char)(i);
1840: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 . } els
1850: 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 28 e. if (
1860: 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 35 29 20 7b l->rsize == 5) {
1870: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 . ((u
1880: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
1890: 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d 20 28 75 ->raddr)[0] = (u
18a0: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e nsigned char)(i>
18b0: 3e 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >24);.
18c0: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
18d0: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 5d r *)l->raddr)[1]
18e0: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
18f0: 72 29 28 69 3e 3e 31 36 29 3b 0a 20 20 20 20 20 r)(i>>16);.
1900: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
1910: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
1920: 72 29 5b 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 r)[2] = (unsigne
1930: 64 20 63 68 61 72 29 28 69 3e 3e 38 29 3b 0a 20 d char)(i>>8);.
1940: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
1950: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
1960: 72 61 64 64 72 29 5b 33 5d 20 3d 20 28 75 6e 73 raddr)[3] = (uns
1970: 69 67 6e 65 64 20 63 68 61 72 29 28 69 29 3b 0a igned char)(i);.
1980: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
1990: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
19a0: 3e 72 61 64 64 72 29 5b 34 5d 20 3d 20 28 75 6e >raddr)[4] = (un
19b0: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 signed char)(ire
19c0: 74 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d t2);. }
19d0: 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 else.
19e0: 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 if (l->rsize ==
19f0: 36 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 6) {.
1a00: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
1a10: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 *)l->raddr)[0]
1a20: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
1a30: 29 28 69 3e 3e 32 34 29 3b 0a 20 20 20 20 20 20 )(i>>24);.
1a40: 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 ((unsigned
1a50: 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 char *)l->raddr
1a60: 29 5b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 )[1] = (unsigned
1a70: 20 63 68 61 72 29 28 69 3e 3e 31 36 29 3b 0a 20 char)(i>>16);.
1a80: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
1a90: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
1aa0: 72 61 64 64 72 29 5b 32 5d 20 3d 20 28 75 6e 73 raddr)[2] = (uns
1ab0: 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 38 igned char)(i>>8
1ac0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 );. (
1ad0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
1ae0: 29 6c 2d 3e 72 61 64 64 72 29 5b 33 5d 20 3d 20 )l->raddr)[3] =
1af0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
1b00: 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 i);.
1b10: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
1b20: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 34 5d 20 3d *)l->raddr)[4] =
1b30: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
1b40: 28 69 72 65 74 32 3e 3e 38 29 3b 0a 20 20 20 20 (iret2>>8);.
1b50: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
1b60: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
1b70: 64 72 29 5b 35 5d 20 3d 20 28 75 6e 73 69 67 6e dr)[5] = (unsign
1b80: 65 64 20 63 68 61 72 29 28 69 72 65 74 32 29 3b ed char)(iret2);
1b90: 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 . } els
1ba0: 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 28 e. if (
1bb0: 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 37 29 20 7b l->rsize == 7) {
1bc0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 . ((u
1bd0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
1be0: 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d 20 28 75 ->raddr)[0] = (u
1bf0: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e nsigned char)(i>
1c00: 3e 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >24);.
1c10: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
1c20: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 5d r *)l->raddr)[1]
1c30: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
1c40: 72 29 28 69 3e 3e 31 36 29 3b 0a 20 20 20 20 20 r)(i>>16);.
1c50: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
1c60: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
1c70: 72 29 5b 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 r)[2] = (unsigne
1c80: 64 20 63 68 61 72 29 28 69 3e 3e 38 29 3b 0a 20 d char)(i>>8);.
1c90: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
1ca0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
1cb0: 72 61 64 64 72 29 5b 33 5d 20 3d 20 28 75 6e 73 raddr)[3] = (uns
1cc0: 69 67 6e 65 64 20 63 68 61 72 29 28 69 29 3b 0a igned char)(i);.
1cd0: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
1ce0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
1cf0: 3e 72 61 64 64 72 29 5b 34 5d 20 3d 20 28 75 6e >raddr)[4] = (un
1d00: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 signed char)(ire
1d10: 74 32 3e 3e 31 36 29 3b 0a 20 20 20 20 20 20 20 t2>>16);.
1d20: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
1d30: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
1d40: 5b 35 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 [5] = (unsigned
1d50: 63 68 61 72 29 28 69 72 65 74 32 3e 3e 38 29 3b char)(iret2>>8);
1d60: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 . ((u
1d70: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
1d80: 2d 3e 72 61 64 64 72 29 5b 36 5d 20 3d 20 28 75 ->raddr)[6] = (u
1d90: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 nsigned char)(ir
1da0: 65 74 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 et2);.
1db0: 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 } else.
1dc0: 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d if (l->rsize ==
1dd0: 20 38 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 8) {.
1de0: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
1df0: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 30 5d r *)l->raddr)[0]
1e00: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
1e10: 72 29 28 69 3e 3e 32 34 29 3b 0a 20 20 20 20 20 r)(i>>24);.
1e20: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
1e30: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
1e40: 72 29 5b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 r)[1] = (unsigne
1e50: 64 20 63 68 61 72 29 28 69 3e 3e 31 36 29 3b 0a d char)(i>>16);.
1e60: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
1e70: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
1e80: 3e 72 61 64 64 72 29 5b 32 5d 20 3d 20 28 75 6e >raddr)[2] = (un
1e90: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e signed char)(i>>
1ea0: 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 8);.
1eb0: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
1ec0: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 33 5d 20 3d *)l->raddr)[3] =
1ed0: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
1ee0: 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 (i);.
1ef0: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
1f00: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 34 5d 20 *)l->raddr)[4]
1f10: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
1f20: 29 28 69 72 65 74 32 3e 3e 32 34 29 3b 0a 20 20 )(iret2>>24);.
1f30: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
1f40: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
1f50: 61 64 64 72 29 5b 35 5d 20 3d 20 28 75 6e 73 69 addr)[5] = (unsi
1f60: 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 32 gned char)(iret2
1f70: 3e 3e 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 >>16);.
1f80: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
1f90: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 36 ar *)l->raddr)[6
1fa0: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
1fb0: 61 72 29 28 69 72 65 74 32 3e 3e 38 29 3b 0a 20 ar)(iret2>>8);.
1fc0: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
1fd0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
1fe0: 72 61 64 64 72 29 5b 37 5d 20 3d 20 28 75 6e 73 raddr)[7] = (uns
1ff0: 69 67 6e 65 64 20 63 68 61 72 29 28 69 72 65 74 igned char)(iret
2000: 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 2);. }.
2010: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 }.
2020: 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 }. }. }. re
2030: 74 75 72 6e 20 30 3b 0a 7d 0a 0a 23 65 6e 64 69 turn 0;.}..#endi
2040: 66 20 2f 2a 5f 61 76 63 61 6c 6c 5f 68 70 70 61 f /*_avcall_hppa
2050: 5f 63 20 2a 2f 0a _c */.