0000: 23 69 66 6e 64 65 66 20 5f 61 76 63 61 6c 6c 5f #ifndef _avcall_
0010: 73 70 61 72 63 36 34 5f 63 09 09 09 09 2f 2a 2d sparc64_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 73 70 61 72 63 ne _avcall_sparc
0040: 36 34 5f 63 0a 2f 2a 2a 0a 20 20 43 6f 70 79 72 64_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 20 interface for a
0250: 53 70 61 72 63 20 76 39 20 69 6e 20 36 34 2d 62 Sparc v9 in 64-b
0260: 69 74 20 6d 6f 64 65 20 77 69 74 68 20 67 63 63 it mode with gcc
0270: 2e 0a 0a 20 20 54 68 69 73 20 63 61 6c 6c 73 20 ... This calls
0280: 61 20 43 20 66 75 6e 63 74 69 6f 6e 20 77 69 74 a C function wit
0290: 68 20 61 6e 20 61 72 67 75 6d 65 6e 74 20 6c 69 h an argument li
02a0: 73 74 20 62 75 69 6c 74 20 75 70 20 75 73 69 6e st built up usin
02b0: 67 20 6d 61 63 72 6f 73 0a 20 20 64 65 66 69 6e g macros. defin
02c0: 65 64 20 69 6e 20 61 76 5f 63 61 6c 6c 2e 68 2e ed in av_call.h.
02d0: 0a 0a 20 20 53 70 61 72 63 20 36 34 2d 62 69 74 .. Sparc 64-bit
02e0: 20 41 72 67 75 6d 65 6e 74 20 50 61 73 73 69 6e Argument Passin
02f0: 67 20 43 6f 6e 76 65 6e 74 69 6f 6e 73 0a 0a 20 g Conventions..
0300: 20 54 68 65 20 61 72 67 75 6d 65 6e 74 20 72 65 The argument re
0310: 67 69 73 74 65 72 73 20 61 72 65 20 6c 61 69 64 gisters are laid
0320: 20 6f 75 74 20 61 73 20 61 6e 20 61 72 72 61 79 out as an array
0330: 20 6f 66 20 31 36 20 65 6c 65 6d 65 6e 74 73 0a of 16 elements.
0340: 20 20 61 6e 64 20 61 72 67 75 6d 65 6e 74 73 20 and arguments
0350: 61 72 65 20 61 64 64 65 64 20 73 65 71 75 65 6e are added sequen
0360: 74 69 61 6c 6c 79 2e 20 20 54 68 65 20 66 69 72 tially. The fir
0370: 73 74 20 36 20 69 6e 74 20 61 72 67 73 20 61 6e st 6 int args an
0380: 64 20 75 70 20 74 6f 20 74 68 65 0a 20 20 66 69 d up to the. fi
0390: 72 73 74 20 31 36 20 66 70 20 61 72 67 73 20 28 rst 16 fp args (
03a0: 64 65 70 65 6e 64 69 6e 67 20 6f 6e 20 73 69 7a depending on siz
03b0: 65 29 20 61 72 65 20 70 61 73 73 65 64 20 69 6e e) are passed in
03c0: 20 72 65 67 73 2e 0a 0a 20 20 53 6c 6f 74 20 20 regs... Slot
03d0: 20 20 53 74 61 63 6b 20 20 20 49 6e 74 65 67 72 Stack Integr
03e0: 61 6c 20 20 20 46 6c 6f 61 74 20 20 20 46 6c 6f al Float Flo
03f0: 61 74 20 69 6e 20 73 74 72 75 63 74 75 72 65 20 at in structure
0400: 20 20 44 6f 75 62 6c 65 20 20 20 4c 6f 6e 67 20 Double Long
0410: 44 6f 75 62 6c 65 0a 20 20 2d 2d 2d 2d 20 20 20 Double. ----
0420: 20 2d 2d 2d 2d 2d 20 20 20 2d 2d 2d 2d 2d 2d 2d ----- -------
0430: 2d 20 20 20 2d 2d 2d 2d 2d 20 20 20 2d 2d 2d 2d - ----- ----
0440: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 20 --------------
0450: 20 2d 2d 2d 2d 2d 2d 20 20 20 2d 2d 2d 2d 2d 2d ------ ------
0460: 2d 2d 2d 2d 2d 0a 20 20 20 31 35 20 20 20 5b 53 -----. 15 [S
0470: 50 2b 32 34 38 5d 20 20 20 20 20 20 20 20 20 20 P+248]
0480: 20 20 20 20 25 66 33 31 20 20 20 20 20 20 20 25 %f31 %
0490: 66 33 30 2c 25 66 33 31 20 20 20 20 20 20 20 20 f30,%f31
04a0: 20 25 64 33 30 0a 20 20 20 31 34 20 20 20 5b 53 %d30. 14 [S
04b0: 50 2b 32 34 30 5d 20 20 20 20 20 20 20 20 20 20 P+240]
04c0: 20 20 20 20 25 66 32 39 20 20 20 20 20 20 20 25 %f29 %
04d0: 66 32 38 2c 25 66 32 39 20 20 20 20 20 20 20 20 f28,%f29
04e0: 20 25 64 32 38 20 20 20 20 20 20 20 25 71 32 38 %d28 %q28
04f0: 0a 20 20 20 31 33 20 20 20 5b 53 50 2b 32 33 32 . 13 [SP+232
0500: 5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 25 ] %
0510: 66 32 37 20 20 20 20 20 20 20 25 66 32 36 2c 25 f27 %f26,%
0520: 66 32 37 20 20 20 20 20 20 20 20 20 25 64 32 36 f27 %d26
0530: 0a 20 20 20 31 32 20 20 20 5b 53 50 2b 32 32 34 . 12 [SP+224
0540: 5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 25 ] %
0550: 66 32 35 20 20 20 20 20 20 20 25 66 32 34 2c 25 f25 %f24,%
0560: 66 32 35 20 20 20 20 20 20 20 20 20 25 64 32 34 f25 %d24
0570: 20 20 20 20 20 20 20 25 71 32 34 0a 20 20 20 31 %q24. 1
0580: 31 20 20 20 5b 53 50 2b 32 31 36 5d 20 20 20 20 1 [SP+216]
0590: 20 20 20 20 20 20 20 20 20 20 25 66 32 33 20 20 %f23
05a0: 20 20 20 20 20 25 66 32 32 2c 25 66 32 33 20 20 %f22,%f23
05b0: 20 20 20 20 20 20 20 25 64 32 32 0a 20 20 20 31 %d22. 1
05c0: 30 20 20 20 5b 53 50 2b 32 30 38 5d 20 20 20 20 0 [SP+208]
05d0: 20 20 20 20 20 20 20 20 20 20 25 66 32 31 20 20 %f21
05e0: 20 20 20 20 20 25 66 32 30 2c 25 66 32 31 20 20 %f20,%f21
05f0: 20 20 20 20 20 20 20 25 64 32 30 20 20 20 20 20 %d20
0600: 20 20 25 71 32 30 0a 20 20 20 20 39 20 20 20 5b %q20. 9 [
0610: 53 50 2b 32 30 30 5d 20 20 20 20 20 20 20 20 20 SP+200]
0620: 20 20 20 20 20 25 66 31 39 20 20 20 20 20 20 20 %f19
0630: 25 66 31 38 2c 25 66 31 39 20 20 20 20 20 20 20 %f18,%f19
0640: 20 20 25 64 31 38 0a 20 20 20 20 38 20 20 20 5b %d18. 8 [
0650: 53 50 2b 31 39 32 5d 20 20 20 20 20 20 20 20 20 SP+192]
0660: 20 20 20 20 20 25 66 31 37 20 20 20 20 20 20 20 %f17
0670: 25 66 31 36 2c 25 66 31 37 20 20 20 20 20 20 20 %f16,%f17
0680: 20 20 25 64 31 36 20 20 20 20 20 20 20 25 71 31 %d16 %q1
0690: 36 0a 20 20 20 20 37 20 20 20 5b 53 50 2b 31 38 6. 7 [SP+18
06a0: 34 5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4]
06b0: 25 66 31 35 20 20 20 20 20 20 20 25 66 31 34 2c %f15 %f14,
06c0: 25 66 31 35 20 20 20 20 20 20 20 20 20 25 64 31 %f15 %d1
06d0: 34 0a 20 20 20 20 36 20 20 20 5b 53 50 2b 31 37 4. 6 [SP+17
06e0: 36 5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6]
06f0: 25 66 31 33 20 20 20 20 20 20 20 25 66 31 32 2c %f13 %f12,
0700: 25 66 31 33 20 20 20 20 20 20 20 20 20 25 64 31 %f13 %d1
0710: 32 20 20 20 20 20 20 20 25 71 31 32 0a 20 20 20 2 %q12.
0720: 20 35 20 20 20 5b 53 50 2b 31 36 38 5d 20 20 20 5 [SP+168]
0730: 20 20 25 6f 35 20 20 20 20 20 20 25 66 31 31 20 %o5 %f11
0740: 20 20 20 20 20 20 25 66 31 30 2c 25 66 31 31 20 %f10,%f11
0750: 20 20 20 20 20 20 20 20 25 64 31 30 0a 20 20 20 %d10.
0760: 20 34 20 20 20 5b 53 50 2b 31 36 30 5d 20 20 20 4 [SP+160]
0770: 20 20 25 6f 34 20 20 20 20 20 20 20 25 66 39 20 %o4 %f9
0780: 20 20 20 20 20 20 20 25 66 38 2c 25 66 39 20 20 %f8,%f9
0790: 20 20 20 20 20 20 20 20 20 25 64 38 20 20 20 20 %d8
07a0: 20 20 20 20 25 71 38 0a 20 20 20 20 33 20 20 20 %q8. 3
07b0: 5b 53 50 2b 31 35 32 5d 20 20 20 20 20 25 6f 33 [SP+152] %o3
07c0: 20 20 20 20 20 20 20 25 66 37 20 20 20 20 20 20 %f7
07d0: 20 20 25 66 36 2c 25 66 37 20 20 20 20 20 20 20 %f6,%f7
07e0: 20 20 20 20 25 64 36 0a 20 20 20 20 32 20 20 20 %d6. 2
07f0: 5b 53 50 2b 31 34 34 5d 20 20 20 20 20 25 6f 32 [SP+144] %o2
0800: 20 20 20 20 20 20 20 25 66 35 20 20 20 20 20 20 %f5
0810: 20 20 25 66 34 2c 25 66 35 20 20 20 20 20 20 20 %f4,%f5
0820: 20 20 20 20 25 64 34 20 20 20 20 20 20 20 20 25 %d4 %
0830: 71 34 0a 20 20 20 20 31 20 20 20 5b 53 50 2b 31 q4. 1 [SP+1
0840: 33 36 5d 20 20 20 20 20 25 6f 31 20 20 20 20 20 36] %o1
0850: 20 20 25 66 33 20 20 20 20 20 20 20 20 25 66 32 %f3 %f2
0860: 2c 25 66 33 20 20 20 20 20 20 20 20 20 20 20 25 ,%f3 %
0870: 64 32 0a 20 20 20 20 30 20 20 20 5b 53 50 2b 31 d2. 0 [SP+1
0880: 32 38 5d 20 20 20 20 20 25 6f 30 20 20 20 20 20 28] %o0
0890: 20 20 25 66 31 20 20 20 20 20 20 20 20 25 66 30 %f1 %f0
08a0: 2c 25 66 31 20 20 20 20 20 20 20 20 20 20 20 25 ,%f1 %
08b0: 64 30 20 20 20 20 20 20 20 20 25 71 30 0a 0a 20 d0 %q0..
08c0: 20 48 65 72 65 20 53 50 20 3d 20 25 73 70 20 69 Here SP = %sp i
08d0: 66 20 2d 6d 6e 6f 2d 73 74 61 63 6b 2d 62 69 61 f -mno-stack-bia
08e0: 73 20 6f 72 20 25 73 70 2b 73 74 61 63 6b 5f 62 s or %sp+stack_b
08f0: 69 61 73 20 6f 74 68 65 72 77 69 73 65 2e 0a 0a ias otherwise...
0900: 20 20 49 6e 74 65 67 72 61 6c 20 61 72 67 75 6d Integral argum
0910: 65 6e 74 73 20 61 72 65 20 61 6c 77 61 79 73 20 ents are always
0920: 70 61 73 73 65 64 20 61 73 20 36 34 20 62 69 74 passed as 64 bit
0930: 20 71 75 61 6e 74 69 74 69 65 73 20 61 70 70 72 quantities appr
0940: 6f 70 72 69 61 74 65 6c 79 0a 20 20 65 78 74 65 opriately. exte
0950: 6e 64 65 64 2e 0a 0a 20 20 50 61 73 73 69 6e 67 nded... Passing
0960: 20 6f 66 20 66 6c 6f 61 74 69 6e 67 20 70 6f 69 of floating poi
0970: 6e 74 20 76 61 6c 75 65 73 20 69 73 20 68 61 6e nt values is han
0980: 64 6c 65 64 20 61 73 20 66 6f 6c 6c 6f 77 73 2e dled as follows.
0990: 0a 20 20 49 66 20 61 20 70 72 6f 74 6f 74 79 70 . If a prototyp
09a0: 65 20 69 73 20 69 6e 20 73 63 6f 70 65 3a 0a 20 e is in scope:.
09b0: 20 20 20 49 66 20 74 68 65 20 76 61 6c 75 65 20 If the value
09c0: 69 73 20 69 6e 20 61 20 6e 61 6d 65 64 20 61 72 is in a named ar
09d0: 67 75 6d 65 6e 74 20 28 69 2e 65 2e 20 6e 6f 74 gument (i.e. not
09e0: 20 61 20 73 74 64 61 72 67 20 66 75 6e 63 74 69 a stdarg functi
09f0: 6f 6e 20 6f 72 20 61 0a 20 20 20 20 76 61 6c 75 on or a. valu
0a00: 65 20 6e 6f 74 20 70 61 72 74 20 6f 66 20 74 68 e not part of th
0a10: 65 20 60 2e 2e 2e 27 29 20 74 68 65 6e 20 74 68 e `...') then th
0a20: 65 20 76 61 6c 75 65 20 69 73 20 70 61 73 73 65 e value is passe
0a30: 64 20 69 6e 20 74 68 65 20 61 70 70 72 6f 70 72 d in the appropr
0a40: 69 61 74 65 0a 20 20 20 20 66 70 20 72 65 67 2e iate. fp reg.
0a50: 0a 20 20 20 20 49 66 20 74 68 65 20 76 61 6c 75 . If the valu
0a60: 65 20 69 73 20 70 61 72 74 20 6f 66 20 74 68 65 e is part of the
0a70: 20 60 2e 2e 2e 27 20 61 6e 64 20 69 73 20 70 61 `...' and is pa
0a80: 73 73 65 64 20 69 6e 20 6f 6e 65 20 6f 66 20 74 ssed in one of t
0a90: 68 65 20 66 69 72 73 74 20 36 0a 20 20 20 20 73 he first 6. s
0aa0: 6c 6f 74 73 20 74 68 65 6e 20 74 68 65 20 76 61 lots then the va
0ab0: 6c 75 65 20 69 73 20 70 61 73 73 65 64 20 69 6e lue is passed in
0ac0: 20 74 68 65 20 61 70 70 72 6f 70 72 69 61 74 65 the appropriate
0ad0: 20 69 6e 74 20 72 65 67 2e 0a 20 20 20 20 49 66 int reg.. If
0ae0: 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 70 61 the value is pa
0af0: 72 74 20 6f 66 20 74 68 65 20 60 2e 2e 2e 27 20 rt of the `...'
0b00: 61 6e 64 20 69 73 20 6e 6f 74 20 70 61 73 73 65 and is not passe
0b10: 64 20 69 6e 20 6f 6e 65 20 6f 66 20 74 68 65 20 d in one of the
0b20: 66 69 72 73 74 20 36 0a 20 20 20 20 73 6c 6f 74 first 6. slot
0b30: 73 20 74 68 65 6e 20 74 68 65 20 76 61 6c 75 65 s then the value
0b40: 20 69 73 20 70 61 73 73 65 64 20 69 6e 20 6d 65 is passed in me
0b50: 6d 6f 72 79 2e 0a 20 20 49 66 20 61 20 70 72 6f mory.. If a pro
0b60: 74 6f 74 79 70 65 20 69 73 20 6e 6f 74 20 69 6e totype is not in
0b70: 20 73 63 6f 70 65 3a 0a 20 20 20 20 49 66 20 74 scope:. If t
0b80: 68 65 20 76 61 6c 75 65 20 69 73 20 6f 6e 65 20 he value is one
0b90: 6f 66 20 74 68 65 20 66 69 72 73 74 20 36 20 61 of the first 6 a
0ba0: 72 67 75 6d 65 6e 74 73 20 74 68 65 20 76 61 6c rguments the val
0bb0: 75 65 20 69 73 20 70 61 73 73 65 64 20 69 6e 20 ue is passed in
0bc0: 74 68 65 0a 20 20 20 20 61 70 70 72 6f 70 72 69 the. appropri
0bd0: 61 74 65 20 69 6e 74 65 67 65 72 20 72 65 67 20 ate integer reg
0be0: 61 6e 64 20 74 68 65 20 61 70 70 72 6f 70 72 69 and the appropri
0bf0: 61 74 65 20 66 70 20 72 65 67 2e 0a 20 20 20 20 ate fp reg..
0c00: 49 66 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 If the value is
0c10: 6e 6f 74 20 6f 6e 65 20 6f 66 20 74 68 65 20 66 not one of the f
0c20: 69 72 73 74 20 36 20 61 72 67 75 6d 65 6e 74 73 irst 6 arguments
0c30: 20 74 68 65 20 76 61 6c 75 65 20 69 73 20 70 61 the value is pa
0c40: 73 73 65 64 20 69 6e 0a 20 20 20 20 74 68 65 20 ssed in. the
0c50: 61 70 70 72 6f 70 72 69 61 74 65 20 66 70 20 72 appropriate fp r
0c60: 65 67 20 61 6e 64 20 69 6e 20 6d 65 6d 6f 72 79 eg and in memory
0c70: 2e 0a 0a 20 20 52 65 6d 61 69 6e 69 6e 67 20 61 ... Remaining a
0c80: 72 67 75 6d 65 6e 74 73 20 61 72 65 20 70 75 73 rguments are pus
0c90: 68 65 64 20 6f 6e 74 6f 20 74 68 65 20 73 74 61 hed onto the sta
0ca0: 63 6b 20 73 74 61 72 74 69 6e 67 20 61 74 20 61 ck starting at a
0cb0: 20 66 69 78 65 64 20 6f 66 66 73 65 74 0a 20 20 fixed offset.
0cc0: 53 70 61 63 65 20 69 73 20 6c 65 66 74 20 6f 6e Space is left on
0cd0: 20 74 68 65 20 73 74 61 63 6b 20 66 72 61 6d 65 the stack frame
0ce0: 20 66 6f 72 20 74 65 6d 70 6f 72 61 72 79 20 73 for temporary s
0cf0: 74 6f 72 61 67 65 20 6f 66 20 74 68 65 20 72 65 torage of the re
0d00: 67 69 73 74 65 72 0a 20 20 61 72 67 75 6d 65 6e gister. argumen
0d10: 74 73 20 61 73 20 77 65 6c 6c 2e 0a 0a 20 20 49 ts as well... I
0d20: 6e 74 65 67 65 72 73 20 73 68 6f 72 74 65 72 20 ntegers shorter
0d30: 74 68 61 6e 20 60 6c 6f 6e 67 27 20 61 72 65 20 than `long' are
0d40: 61 6c 77 61 79 73 20 70 72 6f 6d 6f 74 65 64 20 always promoted
0d50: 74 6f 20 77 6f 72 64 2d 6c 65 6e 67 74 68 0a 20 to word-length.
0d60: 20 28 7a 65 72 6f 2d 65 78 74 65 6e 64 65 64 20 (zero-extended
0d70: 6f 72 20 73 69 67 6e 2d 65 78 74 65 6e 64 65 64 or sign-extended
0d80: 2c 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 , according to t
0d90: 68 65 69 72 20 74 79 70 65 29 2e 20 53 74 72 75 heir type). Stru
0da0: 63 74 75 72 65 73 0a 20 20 3c 3d 20 31 36 20 62 ctures. <= 16 b
0db0: 79 74 65 73 20 61 72 65 20 70 61 73 73 65 64 20 ytes are passed
0dc0: 65 6d 62 65 64 64 65 64 20 69 6e 20 74 68 65 20 embedded in the
0dd0: 61 72 67 75 6d 65 6e 74 20 73 65 71 75 65 6e 63 argument sequenc
0de0: 65 3b 20 62 69 67 67 65 72 20 73 74 72 75 63 74 e; bigger struct
0df0: 75 72 65 73 0a 20 20 61 72 65 20 70 61 73 73 65 ures. are passe
0e00: 64 20 62 79 20 72 65 66 65 72 65 6e 63 65 2e 0a d by reference..
0e10: 0a 20 20 49 6e 74 65 67 65 72 73 20 61 6e 64 20 . Integers and
0e20: 70 6f 69 6e 74 65 72 73 20 61 72 65 20 72 65 74 pointers are ret
0e30: 75 72 6e 65 64 20 69 6e 20 6f 30 2c 20 66 6c 6f urned in o0, flo
0e40: 61 74 73 20 69 6e 20 66 30 2c 20 64 6f 75 62 6c ats in f0, doubl
0e50: 65 73 20 69 6e 0a 20 20 66 30 2f 66 31 2e 20 20 es in. f0/f1.
0e60: 49 66 20 74 68 65 20 66 75 6e 63 74 69 6f 6e 20 If the function
0e70: 72 65 74 75 72 6e 73 20 61 20 73 74 72 75 63 74 returns a struct
0e80: 75 72 65 20 61 20 70 6f 69 6e 74 65 72 20 74 6f ure a pointer to
0e90: 20 73 70 61 63 65 0a 20 20 61 6c 6c 6f 63 61 74 space. allocat
0ea0: 65 64 20 62 79 20 74 68 65 20 63 61 6c 6c 65 72 ed by the caller
0eb0: 20 69 73 20 70 75 73 68 65 64 20 6f 6e 74 6f 20 is pushed onto
0ec0: 74 68 65 20 73 74 61 63 6b 20 69 6d 6d 65 64 69 the stack immedi
0ed0: 61 74 65 6c 79 0a 20 20 62 65 66 6f 72 65 20 74 ately. before t
0ee0: 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 72 67 75 he function argu
0ef0: 6d 65 6e 74 73 2e 20 53 74 72 75 63 74 75 72 65 ments. Structure
0f00: 73 20 3c 3d 20 33 32 20 62 79 74 65 73 20 61 72 s <= 32 bytes ar
0f10: 65 20 72 65 74 75 72 6e 65 64 20 69 6e 0a 20 20 e returned in.
0f20: 72 65 67 69 73 74 65 72 73 20 28 69 6e 74 65 67 registers (integ
0f30: 65 72 2f 66 6c 6f 61 74 2f 64 6f 75 62 6c 65 20 er/float/double
0f40: 72 65 67 69 73 74 65 72 73 2c 20 61 73 20 61 70 registers, as ap
0f50: 70 72 6f 70 72 69 61 74 65 29 2e 0a 0a 20 20 4c propriate)... L
0f60: 6f 6e 67 20 64 6f 75 62 6c 65 73 20 61 72 65 20 ong doubles are
0f70: 31 36 2d 62 79 74 65 20 61 6c 69 67 6e 65 64 2c 16-byte aligned,
0f80: 20 62 75 74 20 77 65 20 64 6f 6e 27 74 20 64 65 but we don't de
0f90: 61 6c 20 77 69 74 68 20 74 68 69 73 20 68 65 72 al with this her
0fa0: 65 2c 20 73 6f 0a 20 20 77 65 20 61 73 73 75 6d e, so. we assum
0fb0: 65 20 38 2d 62 79 74 65 20 61 6c 69 67 6e 6d 65 e 8-byte alignme
0fc0: 6e 74 20 66 6f 72 20 65 76 65 72 79 74 68 69 6e nt for everythin
0fd0: 67 2e 0a 0a 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d g... ----------
0fe0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0ff0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1000: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1010: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 2f 0a 23 ------------*/.#
1020: 69 6e 63 6c 75 64 65 20 22 61 76 63 61 6c 6c 2e include "avcall.
1030: 68 2e 69 6e 22 0a 0a 23 64 65 66 69 6e 65 20 52 h.in"..#define R
1040: 45 54 55 52 4e 28 54 59 50 45 2c 56 41 4c 29 09 ETURN(TYPE,VAL).
1050: 28 2a 28 54 59 50 45 2a 29 6c 2d 3e 72 61 64 64 (*(TYPE*)l->radd
1060: 72 20 3d 20 28 54 59 50 45 29 28 56 41 4c 29 29 r = (TYPE)(VAL))
1070: 0a 23 64 65 66 69 6e 65 20 4f 46 46 53 45 54 4f .#define OFFSETO
1080: 46 28 73 74 72 75 63 74 2c 6d 65 6d 62 65 72 29 F(struct,member)
1090: 20 28 28 69 6e 74 29 26 28 28 28 73 74 72 75 63 ((int)&(((struc
10a0: 74 2a 29 30 29 2d 3e 6d 65 6d 62 65 72 29 29 0a t*)0)->member)).
10b0: 0a 72 65 67 69 73 74 65 72 20 5f 5f 61 76 77 6f .register __avwo
10c0: 72 64 20 6f 30 09 5f 5f 61 73 6d 5f 5f 28 22 25 rd o0.__asm__("%
10d0: 6f 30 22 29 3b 0a 72 65 67 69 73 74 65 72 20 5f o0");.register _
10e0: 5f 61 76 77 6f 72 64 20 6f 31 09 5f 5f 61 73 6d _avword o1.__asm
10f0: 5f 5f 28 22 25 6f 31 22 29 3b 0a 72 65 67 69 73 __("%o1");.regis
1100: 74 65 72 20 5f 5f 61 76 77 6f 72 64 20 6f 32 09 ter __avword o2.
1110: 5f 5f 61 73 6d 5f 5f 28 22 25 6f 32 22 29 3b 0a __asm__("%o2");.
1120: 72 65 67 69 73 74 65 72 20 5f 5f 61 76 77 6f 72 register __avwor
1130: 64 20 6f 33 09 5f 5f 61 73 6d 5f 5f 28 22 25 6f d o3.__asm__("%o
1140: 33 22 29 3b 0a 72 65 67 69 73 74 65 72 20 5f 5f 3");.register __
1150: 61 76 77 6f 72 64 20 6f 34 09 5f 5f 61 73 6d 5f avword o4.__asm_
1160: 5f 28 22 25 6f 34 22 29 3b 0a 72 65 67 69 73 74 _("%o4");.regist
1170: 65 72 20 5f 5f 61 76 77 6f 72 64 20 6f 35 09 5f er __avword o5._
1180: 5f 61 73 6d 5f 5f 28 22 25 6f 35 22 29 3b 0a 0a _asm__("%o5");..
1190: 69 6e 74 0a 5f 5f 62 75 69 6c 74 69 6e 5f 61 76 int.__builtin_av
11a0: 63 61 6c 6c 28 61 76 5f 61 6c 69 73 74 2a 20 6c call(av_alist* l
11b0: 29 0a 7b 0a 20 20 72 65 67 69 73 74 65 72 20 5f ).{. register _
11c0: 5f 61 76 77 6f 72 64 2a 20 73 70 09 5f 5f 61 73 _avword* sp.__as
11d0: 6d 5f 5f 28 22 25 73 70 22 29 3b 20 20 2f 2a 20 m__("%sp"); /*
11e0: 43 20 6e 61 6d 65 73 20 66 6f 72 20 72 65 67 69 C names for regi
11f0: 73 74 65 72 73 20 2a 2f 0a 20 20 72 65 67 69 73 sters */. regis
1200: 74 65 72 20 66 6c 6f 61 74 20 66 72 65 74 09 5f ter float fret._
1210: 5f 61 73 6d 5f 5f 28 22 25 66 30 22 29 3b 20 20 _asm__("%f0");
1220: 2f 2a 20 25 66 30 20 2a 2f 0a 20 20 72 65 67 69 /* %f0 */. regi
1230: 73 74 65 72 20 64 6f 75 62 6c 65 20 64 72 65 74 ster double dret
1240: 09 5f 5f 61 73 6d 5f 5f 28 22 25 66 30 22 29 3b .__asm__("%f0");
1250: 20 20 2f 2a 20 25 66 30 2c 25 66 31 20 2a 2f 0a /* %f0,%f1 */.
1260: 0a 20 20 5f 5f 61 76 77 6f 72 64 20 74 72 61 6d . __avword tram
1270: 70 6f 6c 69 6e 65 5b 36 5d 3b 09 09 2f 2a 20 72 poline[6];../* r
1280: 6f 6f 6d 20 66 6f 72 20 61 20 74 72 61 6d 70 6f oom for a trampo
1290: 6c 69 6e 65 20 2a 2f 0a 20 20 69 6e 74 20 61 72 line */. int ar
12a0: 67 6c 65 6e 20 3d 20 6c 2d 3e 61 70 74 72 20 2d glen = l->aptr -
12b0: 20 6c 2d 3e 61 72 67 73 3b 0a 20 20 5f 5f 61 76 l->args;. __av
12c0: 77 6f 72 64 20 69 3b 0a 0a 20 20 69 66 20 28 6c word i;.. if (l
12d0: 2d 3e 64 61 72 67 5f 6d 61 73 6b 29 20 7b 0a 20 ->darg_mask) {.
12e0: 20 20 20 2f 2a 20 70 75 73 68 20 6c 65 61 64 69 /* push leadi
12f0: 6e 67 20 66 6c 6f 61 74 2f 64 6f 75 62 6c 65 20 ng float/double
1300: 61 72 67 73 20 2a 2f 0a 20 20 20 20 69 66 20 28 args */. if (
1310: 6c 2d 3e 64 61 72 67 5f 6d 61 73 6b 20 26 20 28 l->darg_mask & (
1320: 31 3c 3c 30 29 29 0a 20 20 20 20 20 20 5f 5f 61 1<<0)). __a
1330: 73 6d 5f 5f 28 22 6c 64 64 20 5b 25 30 2b 25 31 sm__("ldd [%0+%1
1340: 5d 2c 25 25 66 30 22 20 3a 20 3a 20 22 70 22 20 ],%%f0" : : "p"
1350: 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 45 54 4f (l), "i" OFFSETO
1360: 46 28 61 76 5f 61 6c 69 73 74 2c 61 72 67 73 5b F(av_alist,args[
1370: 30 5d 29 29 3b 0a 20 20 20 20 69 66 20 28 6c 2d 0]));. if (l-
1380: 3e 64 61 72 67 5f 6d 61 73 6b 20 26 20 28 31 3c >darg_mask & (1<
1390: 3c 31 29 29 0a 20 20 20 20 20 20 5f 5f 61 73 6d <1)). __asm
13a0: 5f 5f 28 22 6c 64 64 20 5b 25 30 2b 25 31 5d 2c __("ldd [%0+%1],
13b0: 25 25 66 32 22 20 3a 20 3a 20 22 70 22 20 28 6c %%f2" : : "p" (l
13c0: 29 2c 20 22 69 22 20 4f 46 46 53 45 54 4f 46 28 ), "i" OFFSETOF(
13d0: 61 76 5f 61 6c 69 73 74 2c 61 72 67 73 5b 31 5d av_alist,args[1]
13e0: 29 29 3b 0a 20 20 20 20 69 66 20 28 6c 2d 3e 64 ));. if (l->d
13f0: 61 72 67 5f 6d 61 73 6b 20 26 20 28 31 3c 3c 32 arg_mask & (1<<2
1400: 29 29 0a 20 20 20 20 20 20 5f 5f 61 73 6d 5f 5f )). __asm__
1410: 28 22 6c 64 64 20 5b 25 30 2b 25 31 5d 2c 25 25 ("ldd [%0+%1],%%
1420: 66 34 22 20 3a 20 3a 20 22 70 22 20 28 6c 29 2c f4" : : "p" (l),
1430: 20 22 69 22 20 4f 46 46 53 45 54 4f 46 28 61 76 "i" OFFSETOF(av
1440: 5f 61 6c 69 73 74 2c 61 72 67 73 5b 32 5d 29 29 _alist,args[2]))
1450: 3b 0a 20 20 20 20 69 66 20 28 6c 2d 3e 64 61 72 ;. if (l->dar
1460: 67 5f 6d 61 73 6b 20 26 20 28 31 3c 3c 33 29 29 g_mask & (1<<3))
1470: 0a 20 20 20 20 20 20 5f 5f 61 73 6d 5f 5f 28 22 . __asm__("
1480: 6c 64 64 20 5b 25 30 2b 25 31 5d 2c 25 25 66 36 ldd [%0+%1],%%f6
1490: 22 20 3a 20 3a 20 22 70 22 20 28 6c 29 2c 20 22 " : : "p" (l), "
14a0: 69 22 20 4f 46 46 53 45 54 4f 46 28 61 76 5f 61 i" OFFSETOF(av_a
14b0: 6c 69 73 74 2c 61 72 67 73 5b 33 5d 29 29 3b 0a list,args[3]));.
14c0: 20 20 20 20 69 66 20 28 6c 2d 3e 64 61 72 67 5f if (l->darg_
14d0: 6d 61 73 6b 20 26 20 28 31 3c 3c 34 29 29 0a 20 mask & (1<<4)).
14e0: 20 20 20 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c 64 __asm__("ld
14f0: 64 20 5b 25 30 2b 25 31 5d 2c 25 25 66 38 22 20 d [%0+%1],%%f8"
1500: 3a 20 3a 20 22 70 22 20 28 6c 29 2c 20 22 69 22 : : "p" (l), "i"
1510: 20 4f 46 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 OFFSETOF(av_ali
1520: 73 74 2c 61 72 67 73 5b 34 5d 29 29 3b 0a 20 20 st,args[4]));.
1530: 20 20 69 66 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 if (l->darg_ma
1540: 73 6b 20 26 20 28 31 3c 3c 35 29 29 0a 20 20 20 sk & (1<<5)).
1550: 20 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c 64 64 20 __asm__("ldd
1560: 5b 25 30 2b 25 31 5d 2c 25 25 66 31 30 22 20 3a [%0+%1],%%f10" :
1570: 20 3a 20 22 70 22 20 28 6c 29 2c 20 22 69 22 20 : "p" (l), "i"
1580: 4f 46 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 OFFSETOF(av_alis
1590: 74 2c 61 72 67 73 5b 35 5d 29 29 3b 0a 20 20 20 t,args[5]));.
15a0: 20 69 66 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 if (l->darg_mas
15b0: 6b 20 26 20 28 31 3c 3c 36 29 29 0a 20 20 20 20 k & (1<<6)).
15c0: 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c 64 64 20 5b __asm__("ldd [
15d0: 25 30 2b 25 31 5d 2c 25 25 66 31 32 22 20 3a 20 %0+%1],%%f12" :
15e0: 3a 20 22 70 22 20 28 6c 29 2c 20 22 69 22 20 4f : "p" (l), "i" O
15f0: 46 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 FFSETOF(av_alist
1600: 2c 61 72 67 73 5b 36 5d 29 29 3b 0a 20 20 20 20 ,args[6]));.
1610: 69 66 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 6b if (l->darg_mask
1620: 20 26 20 28 31 3c 3c 37 29 29 0a 20 20 20 20 20 & (1<<7)).
1630: 20 5f 5f 61 73 6d 5f 5f 28 22 6c 64 64 20 5b 25 __asm__("ldd [%
1640: 30 2b 25 31 5d 2c 25 25 66 31 34 22 20 3a 20 3a 0+%1],%%f14" : :
1650: 20 22 70 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 "p" (l), "i" OF
1660: 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c FSETOF(av_alist,
1670: 61 72 67 73 5b 37 5d 29 29 3b 0a 20 20 20 20 69 args[7]));. i
1680: 66 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 6b 20 f (l->darg_mask
1690: 26 20 28 31 3c 3c 38 29 29 0a 20 20 20 20 20 20 & (1<<8)).
16a0: 5f 5f 61 73 6d 5f 5f 28 22 6c 64 64 20 5b 25 30 __asm__("ldd [%0
16b0: 2b 25 31 5d 2c 25 25 66 31 36 22 20 3a 20 3a 20 +%1],%%f16" : :
16c0: 22 70 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 46 "p" (l), "i" OFF
16d0: 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c 61 SETOF(av_alist,a
16e0: 72 67 73 5b 38 5d 29 29 3b 0a 20 20 20 20 69 66 rgs[8]));. if
16f0: 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 6b 20 26 (l->darg_mask &
1700: 20 28 31 3c 3c 39 29 29 0a 20 20 20 20 20 20 5f (1<<9)). _
1710: 5f 61 73 6d 5f 5f 28 22 6c 64 64 20 5b 25 30 2b _asm__("ldd [%0+
1720: 25 31 5d 2c 25 25 66 31 38 22 20 3a 20 3a 20 22 %1],%%f18" : : "
1730: 70 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 p" (l), "i" OFFS
1740: 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c 61 72 ETOF(av_alist,ar
1750: 67 73 5b 39 5d 29 29 3b 0a 20 20 20 20 69 66 20 gs[9]));. if
1760: 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 6b 20 26 20 (l->darg_mask &
1770: 28 31 3c 3c 31 30 29 29 0a 20 20 20 20 20 20 5f (1<<10)). _
1780: 5f 61 73 6d 5f 5f 28 22 6c 64 64 20 5b 25 30 2b _asm__("ldd [%0+
1790: 25 31 5d 2c 25 25 66 32 30 22 20 3a 20 3a 20 22 %1],%%f20" : : "
17a0: 70 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 46 53 p" (l), "i" OFFS
17b0: 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c 61 72 ETOF(av_alist,ar
17c0: 67 73 5b 31 30 5d 29 29 3b 0a 20 20 20 20 69 66 gs[10]));. if
17d0: 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 6b 20 26 (l->darg_mask &
17e0: 20 28 31 3c 3c 31 31 29 29 0a 20 20 20 20 20 20 (1<<11)).
17f0: 5f 5f 61 73 6d 5f 5f 28 22 6c 64 64 20 5b 25 30 __asm__("ldd [%0
1800: 2b 25 31 5d 2c 25 25 66 32 32 22 20 3a 20 3a 20 +%1],%%f22" : :
1810: 22 70 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 46 "p" (l), "i" OFF
1820: 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c 61 SETOF(av_alist,a
1830: 72 67 73 5b 31 31 5d 29 29 3b 0a 20 20 20 20 69 rgs[11]));. i
1840: 66 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 6b 20 f (l->darg_mask
1850: 26 20 28 31 3c 3c 31 32 29 29 0a 20 20 20 20 20 & (1<<12)).
1860: 20 5f 5f 61 73 6d 5f 5f 28 22 6c 64 64 20 5b 25 __asm__("ldd [%
1870: 30 2b 25 31 5d 2c 25 25 66 32 34 22 20 3a 20 3a 0+%1],%%f24" : :
1880: 20 22 70 22 20 28 6c 29 2c 20 22 69 22 20 4f 46 "p" (l), "i" OF
1890: 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 2c FSETOF(av_alist,
18a0: 61 72 67 73 5b 31 32 5d 29 29 3b 0a 20 20 20 20 args[12]));.
18b0: 69 66 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 6b if (l->darg_mask
18c0: 20 26 20 28 31 3c 3c 31 33 29 29 0a 20 20 20 20 & (1<<13)).
18d0: 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c 64 64 20 5b __asm__("ldd [
18e0: 25 30 2b 25 31 5d 2c 25 25 66 32 36 22 20 3a 20 %0+%1],%%f26" :
18f0: 3a 20 22 70 22 20 28 6c 29 2c 20 22 69 22 20 4f : "p" (l), "i" O
1900: 46 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 74 FFSETOF(av_alist
1910: 2c 61 72 67 73 5b 31 33 5d 29 29 3b 0a 20 20 20 ,args[13]));.
1920: 20 69 66 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 73 if (l->darg_mas
1930: 6b 20 26 20 28 31 3c 3c 31 34 29 29 0a 20 20 20 k & (1<<14)).
1940: 20 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c 64 64 20 __asm__("ldd
1950: 5b 25 30 2b 25 31 5d 2c 25 25 66 32 38 22 20 3a [%0+%1],%%f28" :
1960: 20 3a 20 22 70 22 20 28 6c 29 2c 20 22 69 22 20 : "p" (l), "i"
1970: 4f 46 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 73 OFFSETOF(av_alis
1980: 74 2c 61 72 67 73 5b 31 34 5d 29 29 3b 0a 20 20 t,args[14]));.
1990: 20 20 69 66 20 28 6c 2d 3e 64 61 72 67 5f 6d 61 if (l->darg_ma
19a0: 73 6b 20 26 20 28 31 3c 3c 31 35 29 29 0a 20 20 sk & (1<<15)).
19b0: 20 20 20 20 5f 5f 61 73 6d 5f 5f 28 22 6c 64 64 __asm__("ldd
19c0: 20 5b 25 30 2b 25 31 5d 2c 25 25 66 33 30 22 20 [%0+%1],%%f30"
19d0: 3a 20 3a 20 22 70 22 20 28 6c 29 2c 20 22 69 22 : : "p" (l), "i"
19e0: 20 4f 46 46 53 45 54 4f 46 28 61 76 5f 61 6c 69 OFFSETOF(av_ali
19f0: 73 74 2c 61 72 67 73 5b 31 35 5d 29 29 3b 0a 20 st,args[15]));.
1a00: 20 7d 0a 0a 20 20 69 66 20 28 61 72 67 6c 65 6e }.. if (arglen
1a10: 20 3e 20 36 29 20 7b 0a 20 20 20 20 2f 2a 20 61 > 6) {. /* a
1a20: 6c 6c 6f 63 61 20 73 70 61 63 65 20 69 73 20 73 lloca space is s
1a30: 65 70 61 72 61 74 65 64 20 66 72 6f 6d 20 74 68 eparated from th
1a40: 65 20 65 78 74 72 61 20 6f 75 74 67 6f 69 6e 67 e extra outgoing
1a50: 20 61 72 67 73 20 61 72 65 61 20 62 79 0a 20 20 args area by.
1a60: 20 20 20 2a 20 74 68 65 20 61 72 65 61 20 66 6f * the area fo
1a70: 72 20 63 6f 6d 70 69 6c 65 72 20 74 65 6d 70 73 r compiler temps
1a80: 20 28 61 64 64 72 65 73 73 61 62 6c 65 20 77 69 (addressable wi
1a90: 74 68 20 70 6f 73 74 69 76 65 20 6f 66 66 73 65 th postive offse
1aa0: 74 73 20 66 72 6f 6d 20 73 70 29 0a 20 20 20 20 ts from sp).
1ab0: 20 2a 20 62 75 74 20 74 68 65 79 20 73 68 6f 75 * but they shou
1ac0: 6c 64 6e 27 74 20 62 65 20 6e 65 65 64 65 64 20 ldn't be needed
1ad0: 66 6f 72 20 74 68 69 73 20 66 75 6e 63 74 69 6f for this functio
1ae0: 6e 2c 20 73 6f 2c 20 65 66 66 65 63 74 69 76 65 n, so, effective
1af0: 6c 79 2c 0a 20 20 20 20 20 2a 20 73 70 61 63 65 ly,. * space
1b00: 20 72 65 74 75 72 6e 65 64 20 62 79 20 61 6c 6c returned by all
1b10: 6f 63 61 20 69 73 20 73 61 66 65 20 74 6f 20 75 oca is safe to u
1b20: 73 65 20 61 73 20 74 68 65 20 61 72 65 61 20 66 se as the area f
1b30: 6f 72 20 65 78 74 72 61 20 61 72 67 73 2e 0a 20 or extra args..
1b40: 20 20 20 20 2a 2f 0a 20 20 20 20 76 6f 69 64 20 */. void
1b50: 2a 65 78 74 72 61 5f 61 72 67 73 5f 61 72 65 61 *extra_args_area
1b60: 20 3d 20 5f 5f 62 75 69 6c 74 69 6e 5f 61 6c 6c = __builtin_all
1b70: 6f 63 61 28 73 69 7a 65 6f 66 28 5f 5f 61 76 77 oca(sizeof(__avw
1b80: 6f 72 64 29 20 2a 20 28 61 72 67 6c 65 6e 20 2d ord) * (arglen -
1b90: 20 36 29 29 3b 0a 20 20 20 20 5f 5f 61 76 77 6f 6));. __avwo
1ba0: 72 64 20 2a 61 72 67 66 72 61 6d 65 20 3d 20 28 rd *argframe = (
1bb0: 5f 5f 61 76 77 6f 72 64 20 2a 29 65 78 74 72 61 __avword *)extra
1bc0: 5f 61 72 67 73 5f 61 72 65 61 20 2d 20 36 3b 0a _args_area - 6;.
1bd0: 23 69 66 20 30 0a 20 20 20 20 2f 2a 20 22 62 79 #if 0. /* "by
1be0: 20 63 6f 6e 73 74 72 75 63 74 69 6f 6e 22 20 2a construction" *
1bf0: 2f 0a 20 20 20 20 61 73 73 65 72 74 28 61 72 67 /. assert(arg
1c00: 66 72 61 6d 65 20 3d 3d 20 28 76 6f 69 64 20 2a frame == (void *
1c10: 29 28 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e 67 )((unsigned long
1c20: 29 28 73 70 20 2b 20 31 36 29 2b 32 30 34 37 29 )(sp + 16)+2047)
1c30: 29 3b 0a 23 65 6e 64 69 66 0a 0a 20 20 20 20 69 );.#endif.. i
1c40: 6e 74 20 69 3b 0a 20 20 20 20 66 6f 72 20 28 69 nt i;. for (i
1c50: 20 3d 20 36 3b 20 69 20 3c 20 61 72 67 6c 65 6e = 6; i < arglen
1c60: 3b 20 69 2b 2b 29 09 2f 2a 20 70 75 73 68 20 65 ; i++)./* push e
1c70: 78 63 65 73 73 20 66 75 6e 63 74 69 6f 6e 20 61 xcess function a
1c80: 72 67 73 20 2a 2f 0a 20 20 20 20 20 20 61 72 67 rgs */. arg
1c90: 66 72 61 6d 65 5b 69 5d 20 3d 20 6c 2d 3e 61 72 frame[i] = l->ar
1ca0: 67 73 5b 69 5d 3b 0a 20 20 7d 0a 0a 09 09 09 09 gs[i];. }......
1cb0: 09 2f 2a 20 63 61 6c 6c 20 66 75 6e 63 74 69 6f ./* call functio
1cc0: 6e 20 77 69 74 68 20 31 73 74 20 36 20 61 72 67 n with 1st 6 arg
1cd0: 73 20 2a 2f 0a 20 20 69 20 3d 20 28 7b 20 72 65 s */. i = ({ re
1ce0: 67 69 73 74 65 72 20 5f 5f 61 76 77 6f 72 64 20 gister __avword
1cf0: 69 72 65 74 20 5f 5f 61 73 6d 5f 5f 20 28 22 25 iret __asm__ ("%
1d00: 6f 30 22 29 3b 0a 20 20 20 20 20 20 20 20 20 69 o0");. i
1d10: 72 65 74 20 3d 20 28 2a 6c 2d 3e 66 75 6e 63 29 ret = (*l->func)
1d20: 28 6c 2d 3e 61 72 67 73 5b 30 5d 2c 20 6c 2d 3e (l->args[0], l->
1d30: 61 72 67 73 5b 31 5d 2c 20 6c 2d 3e 61 72 67 73 args[1], l->args
1d40: 5b 32 5d 2c 0a 09 09 09 20 20 20 6c 2d 3e 61 72 [2],.... l->ar
1d50: 67 73 5b 33 5d 2c 20 6c 2d 3e 61 72 67 73 5b 34 gs[3], l->args[4
1d60: 5d 2c 20 6c 2d 3e 61 72 67 73 5b 35 5d 29 3b 0a ], l->args[5]);.
1d70: 20 20 20 20 20 20 20 20 20 61 73 6d 20 5f 5f 76 asm __v
1d80: 6f 6c 61 74 69 6c 65 5f 5f 28 22 6e 6f 70 22 29 olatile__("nop")
1d90: 3b 09 2f 2a 20 73 74 72 75 63 74 20 72 65 74 75 ;./* struct retu
1da0: 72 6e 69 6e 67 20 66 75 6e 63 74 69 6f 6e 73 20 rning functions
1db0: 73 6b 69 70 20 74 68 69 73 20 69 6e 73 74 72 75 skip this instru
1dc0: 63 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 20 20 ction */.
1dd0: 20 20 69 72 65 74 3b 0a 20 20 20 20 20 20 20 7d iret;. }
1de0: 29 3b 0a 0a 20 20 2f 2a 20 73 61 76 65 20 72 65 );.. /* save re
1df0: 74 75 72 6e 20 76 61 6c 75 65 20 2a 2f 0a 20 20 turn value */.
1e00: 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 if (l->rtype ==
1e10: 5f 5f 41 56 76 6f 69 64 29 20 7b 0a 20 20 7d 20 __AVvoid) {. }
1e20: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
1e30: 79 70 65 20 3d 3d 20 5f 5f 41 56 77 6f 72 64 29 ype == __AVword)
1e40: 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 5f 5f {. RETURN(__
1e50: 61 76 77 6f 72 64 2c 20 69 29 3b 0a 20 20 7d 20 avword, i);. }
1e60: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
1e70: 79 70 65 20 3d 3d 20 5f 5f 41 56 63 68 61 72 29 ype == __AVchar)
1e80: 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 63 68 {. RETURN(ch
1e90: 61 72 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 ar, i);. } else
1ea0: 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 . if (l->rtype
1eb0: 3d 3d 20 5f 5f 41 56 73 63 68 61 72 29 20 7b 0a == __AVschar) {.
1ec0: 20 20 20 20 52 45 54 55 52 4e 28 73 69 67 6e 65 RETURN(signe
1ed0: 64 20 63 68 61 72 2c 20 69 29 3b 0a 20 20 7d 20 d char, i);. }
1ee0: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
1ef0: 79 70 65 20 3d 3d 20 5f 5f 41 56 75 63 68 61 72 ype == __AVuchar
1f00: 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 75 ) {. RETURN(u
1f10: 6e 73 69 67 6e 65 64 20 63 68 61 72 2c 20 69 29 nsigned char, i)
1f20: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
1f30: 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 (l->rtype == __A
1f40: 56 73 68 6f 72 74 29 20 7b 0a 20 20 20 20 52 45 Vshort) {. RE
1f50: 54 55 52 4e 28 73 68 6f 72 74 2c 20 69 29 3b 0a TURN(short, i);.
1f60: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
1f70: 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 75 ->rtype == __AVu
1f80: 73 68 6f 72 74 29 20 7b 0a 20 20 20 20 52 45 54 short) {. RET
1f90: 55 52 4e 28 75 6e 73 69 67 6e 65 64 20 73 68 6f URN(unsigned sho
1fa0: 72 74 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 rt, i);. } else
1fb0: 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 . if (l->rtype
1fc0: 3d 3d 20 5f 5f 41 56 69 6e 74 29 20 7b 0a 20 20 == __AVint) {.
1fd0: 20 20 52 45 54 55 52 4e 28 69 6e 74 2c 20 69 29 RETURN(int, i)
1fe0: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
1ff0: 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 (l->rtype == __A
2000: 56 75 69 6e 74 29 20 7b 0a 20 20 20 20 52 45 54 Vuint) {. RET
2010: 55 52 4e 28 75 6e 73 69 67 6e 65 64 20 69 6e 74 URN(unsigned int
2020: 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 , i);. } else.
2030: 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 3d 3d if (l->rtype ==
2040: 20 5f 5f 41 56 6c 6f 6e 67 29 20 7b 0a 20 20 20 __AVlong) {.
2050: 20 52 45 54 55 52 4e 28 6c 6f 6e 67 2c 20 69 29 RETURN(long, i)
2060: 3b 0a 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 ;. } else. if
2070: 28 6c 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 (l->rtype == __A
2080: 56 75 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 52 45 Vulong) {. RE
2090: 54 55 52 4e 28 75 6e 73 69 67 6e 65 64 20 6c 6f TURN(unsigned lo
20a0: 6e 67 2c 20 69 29 3b 0a 20 20 7d 20 65 6c 73 65 ng, i);. } else
20b0: 0a 20 20 69 66 20 28 6c 2d 3e 72 74 79 70 65 20 . if (l->rtype
20c0: 3d 3d 20 5f 5f 41 56 6c 6f 6e 67 6c 6f 6e 67 29 == __AVlonglong)
20d0: 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 6c 6f {. RETURN(lo
20e0: 6e 67 20 6c 6f 6e 67 2c 20 69 29 3b 0a 20 20 7d ng long, i);. }
20f0: 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 else. if (l->r
2100: 74 79 70 65 20 3d 3d 20 5f 5f 41 56 75 6c 6f 6e type == __AVulon
2110: 67 6c 6f 6e 67 29 20 7b 0a 20 20 20 20 52 45 54 glong) {. RET
2120: 55 52 4e 28 75 6e 73 69 67 6e 65 64 20 6c 6f 6e URN(unsigned lon
2130: 67 20 6c 6f 6e 67 2c 20 69 29 3b 0a 20 20 7d 20 g long, i);. }
2140: 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 74 else. if (l->rt
2150: 79 70 65 20 3d 3d 20 5f 5f 41 56 66 6c 6f 61 74 ype == __AVfloat
2160: 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e 28 66 ) {. RETURN(f
2170: 6c 6f 61 74 2c 20 66 72 65 74 29 3b 0a 20 20 7d loat, fret);. }
2180: 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e 72 else. if (l->r
2190: 74 79 70 65 20 3d 3d 20 5f 5f 41 56 64 6f 75 62 type == __AVdoub
21a0: 6c 65 29 20 7b 0a 20 20 20 20 52 45 54 55 52 4e le) {. RETURN
21b0: 28 64 6f 75 62 6c 65 2c 20 64 72 65 74 29 3b 0a (double, dret);.
21c0: 20 20 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c } else. if (l
21d0: 2d 3e 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 76 ->rtype == __AVv
21e0: 6f 69 64 70 29 20 7b 0a 20 20 20 20 52 45 54 55 oidp) {. RETU
21f0: 52 4e 28 76 6f 69 64 2a 2c 20 69 29 3b 0a 20 20 RN(void*, i);.
2200: 7d 20 65 6c 73 65 0a 20 20 69 66 20 28 6c 2d 3e } else. if (l->
2210: 72 74 79 70 65 20 3d 3d 20 5f 5f 41 56 73 74 72 rtype == __AVstr
2220: 75 63 74 29 20 7b 0a 20 20 20 20 69 66 20 28 6c uct) {. if (l
2230: 2d 3e 66 6c 61 67 73 20 26 20 5f 5f 41 56 5f 50 ->flags & __AV_P
2240: 43 43 5f 53 54 52 55 43 54 5f 52 45 54 55 52 4e CC_STRUCT_RETURN
2250: 29 20 7b 0a 20 20 20 20 20 20 2f 2a 20 70 63 63 ) {. /* pcc
2260: 20 73 74 72 75 63 74 20 72 65 74 75 72 6e 20 63 struct return c
2270: 6f 6e 76 65 6e 74 69 6f 6e 3a 20 6e 65 65 64 20 onvention: need
2280: 61 20 20 2a 28 54 59 50 45 2a 29 6c 2d 3e 72 61 a *(TYPE*)l->ra
2290: 64 64 72 20 3d 20 2a 28 54 59 50 45 2a 29 69 3b ddr = *(TYPE*)i;
22a0: 20 20 2a 2f 0a 20 20 20 20 20 20 69 66 20 28 6c */. if (l
22b0: 2d 3e 72 73 69 7a 65 20 3d 3d 20 73 69 7a 65 6f ->rsize == sizeo
22c0: 66 28 63 68 61 72 29 29 20 7b 0a 20 20 20 20 20 f(char)) {.
22d0: 20 20 20 52 45 54 55 52 4e 28 63 68 61 72 2c 20 RETURN(char,
22e0: 2a 28 63 68 61 72 2a 29 69 29 3b 0a 20 20 20 20 *(char*)i);.
22f0: 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 69 } else. i
2300: 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 73 f (l->rsize == s
2310: 69 7a 65 6f 66 28 73 68 6f 72 74 29 29 20 7b 0a izeof(short)) {.
2320: 20 20 20 20 20 20 20 20 52 45 54 55 52 4e 28 73 RETURN(s
2330: 68 6f 72 74 2c 20 2a 28 73 68 6f 72 74 2a 29 69 hort, *(short*)i
2340: 29 3b 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 0a );. } else.
2350: 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 if (l->rsi
2360: 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 69 6e 74 ze == sizeof(int
2370: 29 29 20 7b 0a 20 20 20 20 20 20 20 20 52 45 54 )) {. RET
2380: 55 52 4e 28 69 6e 74 2c 20 2a 28 69 6e 74 2a 29 URN(int, *(int*)
2390: 69 29 3b 0a 20 20 20 20 20 20 7d 20 65 6c 73 65 i);. } else
23a0: 0a 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 . if (l->rs
23b0: 69 7a 65 20 3d 3d 20 73 69 7a 65 6f 66 28 6c 6f ize == sizeof(lo
23c0: 6e 67 29 29 20 7b 0a 20 20 20 20 20 20 20 20 52 ng)) {. R
23d0: 45 54 55 52 4e 28 6c 6f 6e 67 2c 20 2a 28 6c 6f ETURN(long, *(lo
23e0: 6e 67 2a 29 69 29 3b 0a 20 20 20 20 20 20 7d 20 ng*)i);. }
23f0: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 69 else {. i
2400: 6e 74 20 6e 20 3d 20 28 6c 2d 3e 72 73 69 7a 65 nt n = (l->rsize
2410: 20 2b 20 73 69 7a 65 6f 66 28 5f 5f 61 76 77 6f + sizeof(__avwo
2420: 72 64 29 2d 31 29 2f 73 69 7a 65 6f 66 28 5f 5f rd)-1)/sizeof(__
2430: 61 76 77 6f 72 64 29 3b 0a 20 20 20 20 20 20 20 avword);.
2440: 20 77 68 69 6c 65 20 28 2d 2d 6e 20 3e 3d 20 30 while (--n >= 0
2450: 29 0a 20 20 20 20 20 20 20 20 20 20 28 28 5f 5f ). ((__
2460: 61 76 77 6f 72 64 2a 29 6c 2d 3e 72 61 64 64 72 avword*)l->raddr
2470: 29 5b 6e 5d 20 3d 20 28 28 5f 5f 61 76 77 6f 72 )[n] = ((__avwor
2480: 64 2a 29 69 29 5b 6e 5d 3b 0a 20 20 20 20 20 20 d*)i)[n];.
2490: 7d 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 }. } else {.
24a0: 20 20 20 20 20 2f 2a 20 6e 6f 72 6d 61 6c 20 73 /* normal s
24b0: 74 72 75 63 74 20 72 65 74 75 72 6e 20 63 6f 6e truct return con
24c0: 76 65 6e 74 69 6f 6e 20 2a 2f 0a 20 20 20 20 20 vention */.
24d0: 20 69 66 20 28 6c 2d 3e 66 6c 61 67 73 20 26 20 if (l->flags &
24e0: 5f 5f 41 56 5f 52 45 47 49 53 54 45 52 5f 53 54 __AV_REGISTER_ST
24f0: 52 55 43 54 5f 52 45 54 55 52 4e 29 20 7b 0a 20 RUCT_RETURN) {.
2500: 20 20 20 20 20 20 20 2f 2a 20 52 65 74 75 72 6e /* Return
2510: 20 73 74 72 75 63 74 73 20 6f 66 20 73 69 7a 65 structs of size
2520: 20 3c 3d 20 33 32 20 69 6e 20 72 65 67 69 73 74 <= 32 in regist
2530: 65 72 73 2e 20 2a 2f 0a 20 20 20 20 20 20 20 20 ers. */.
2540: 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3e 20 30 if (l->rsize > 0
2550: 20 26 26 20 6c 2d 3e 72 73 69 7a 65 20 3c 3d 20 && l->rsize <=
2560: 33 32 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 32) {.
2570: 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 if (l->rsize ==
2580: 31 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 1) {.
2590: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
25a0: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 *)l->raddr)[0]
25b0: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
25c0: 29 28 69 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 )(i>>56);.
25d0: 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 } else.
25e0: 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a if (l->rsiz
25f0: 65 20 3d 3d 20 32 29 20 7b 0a 20 20 20 20 20 20 e == 2) {.
2600: 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 ((unsigned
2610: 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 char *)l->raddr
2620: 29 5b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 )[0] = (unsigned
2630: 20 63 68 61 72 29 28 69 3e 3e 35 36 29 3b 0a 20 char)(i>>56);.
2640: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
2650: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
2660: 72 61 64 64 72 29 5b 31 5d 20 3d 20 28 75 6e 73 raddr)[1] = (uns
2670: 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 34 igned char)(i>>4
2680: 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 20 8);. }
2690: 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 else. i
26a0: 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 33 f (l->rsize == 3
26b0: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ) {.
26c0: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
26d0: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d *)l->raddr)[0] =
26e0: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
26f0: 28 69 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 (i>>56);.
2700: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
2710: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
2720: 5b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 [1] = (unsigned
2730: 63 68 61 72 29 28 69 3e 3e 34 38 29 3b 0a 20 20 char)(i>>48);.
2740: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
2750: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
2760: 61 64 64 72 29 5b 32 5d 20 3d 20 28 75 6e 73 69 addr)[2] = (unsi
2770: 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 34 30 gned char)(i>>40
2780: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 7d 20 65 );. } e
2790: 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 69 66 lse. if
27a0: 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 34 29 (l->rsize == 4)
27b0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 {. (
27c0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
27d0: 29 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d 20 )l->raddr)[0] =
27e0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
27f0: 69 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 20 i>>56);.
2800: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
2810: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
2820: 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 1] = (unsigned c
2830: 68 61 72 29 28 69 3e 3e 34 38 29 3b 0a 20 20 20 har)(i>>48);.
2840: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
2850: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
2860: 64 64 72 29 5b 32 5d 20 3d 20 28 75 6e 73 69 67 ddr)[2] = (unsig
2870: 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 34 30 29 ned char)(i>>40)
2880: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ;. ((
2890: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
28a0: 6c 2d 3e 72 61 64 64 72 29 5b 33 5d 20 3d 20 28 l->raddr)[3] = (
28b0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
28c0: 3e 3e 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 >>32);.
28d0: 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 } else.
28e0: 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d if (l->rsize =
28f0: 3d 20 35 29 20 7b 0a 20 20 20 20 20 20 20 20 20 = 5) {.
2900: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
2910: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 30 ar *)l->raddr)[0
2920: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
2930: 61 72 29 28 69 3e 3e 35 36 29 3b 0a 20 20 20 20 ar)(i>>56);.
2940: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
2950: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
2960: 64 72 29 5b 31 5d 20 3d 20 28 75 6e 73 69 67 6e dr)[1] = (unsign
2970: 65 64 20 63 68 61 72 29 28 69 3e 3e 34 38 29 3b ed char)(i>>48);
2980: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 . ((u
2990: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
29a0: 2d 3e 72 61 64 64 72 29 5b 32 5d 20 3d 20 28 75 ->raddr)[2] = (u
29b0: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e nsigned char)(i>
29c0: 3e 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >40);.
29d0: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
29e0: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 33 5d r *)l->raddr)[3]
29f0: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
2a00: 72 29 28 69 3e 3e 33 32 29 3b 0a 20 20 20 20 20 r)(i>>32);.
2a10: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
2a20: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
2a30: 72 29 5b 34 5d 20 3d 20 28 75 6e 73 69 67 6e 65 r)[4] = (unsigne
2a40: 64 20 63 68 61 72 29 28 69 3e 3e 32 34 29 3b 0a d char)(i>>24);.
2a50: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 } else
2a60: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c . if (l
2a70: 2d 3e 72 73 69 7a 65 20 3d 3d 20 36 29 20 7b 0a ->rsize == 6) {.
2a80: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
2a90: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
2aa0: 3e 72 61 64 64 72 29 5b 30 5d 20 3d 20 28 75 6e >raddr)[0] = (un
2ab0: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e signed char)(i>>
2ac0: 35 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 56);.
2ad0: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
2ae0: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 5d 20 *)l->raddr)[1]
2af0: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
2b00: 29 28 69 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 )(i>>48);.
2b10: 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 ((unsigned
2b20: 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 char *)l->raddr
2b30: 29 5b 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 )[2] = (unsigned
2b40: 20 63 68 61 72 29 28 69 3e 3e 34 30 29 3b 0a 20 char)(i>>40);.
2b50: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
2b60: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
2b70: 72 61 64 64 72 29 5b 33 5d 20 3d 20 28 75 6e 73 raddr)[3] = (uns
2b80: 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 33 igned char)(i>>3
2b90: 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 2);.
2ba0: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
2bb0: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 34 5d 20 3d *)l->raddr)[4] =
2bc0: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
2bd0: 28 69 3e 3e 32 34 29 3b 0a 20 20 20 20 20 20 20 (i>>24);.
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 35 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 [5] = (unsigned
2c10: 63 68 61 72 29 28 69 3e 3e 31 36 29 3b 0a 20 20 char)(i>>16);.
2c20: 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 } else.
2c30: 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e if (l->
2c40: 72 73 69 7a 65 20 3d 3d 20 37 29 20 7b 0a 20 20 rsize == 7) {.
2c50: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
2c60: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
2c70: 61 64 64 72 29 5b 30 5d 20 3d 20 28 75 6e 73 69 addr)[0] = (unsi
2c80: 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 35 36 gned char)(i>>56
2c90: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 );. (
2ca0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
2cb0: 29 6c 2d 3e 72 61 64 64 72 29 5b 31 5d 20 3d 20 )l->raddr)[1] =
2cc0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
2cd0: 69 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 20 i>>48);.
2ce0: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
2cf0: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
2d00: 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 2] = (unsigned c
2d10: 68 61 72 29 28 69 3e 3e 34 30 29 3b 0a 20 20 20 har)(i>>40);.
2d20: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
2d30: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
2d40: 64 64 72 29 5b 33 5d 20 3d 20 28 75 6e 73 69 67 ddr)[3] = (unsig
2d50: 6e 65 64 20 63 68 61 72 29 28 69 3e 3e 33 32 29 ned char)(i>>32)
2d60: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ;. ((
2d70: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
2d80: 6c 2d 3e 72 61 64 64 72 29 5b 34 5d 20 3d 20 28 l->raddr)[4] = (
2d90: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
2da0: 3e 3e 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 >>24);.
2db0: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
2dc0: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 35 ar *)l->raddr)[5
2dd0: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
2de0: 61 72 29 28 69 3e 3e 31 36 29 3b 0a 20 20 20 20 ar)(i>>16);.
2df0: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
2e00: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
2e10: 64 72 29 5b 36 5d 20 3d 20 28 75 6e 73 69 67 6e dr)[6] = (unsign
2e20: 65 64 20 63 68 61 72 29 28 69 3e 3e 38 29 3b 0a ed char)(i>>8);.
2e30: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 } else
2e40: 0a 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c . if (l
2e50: 2d 3e 72 73 69 7a 65 20 3e 3d 20 38 20 26 26 20 ->rsize >= 8 &&
2e60: 6c 2d 3e 72 73 69 7a 65 20 3c 3d 20 33 32 29 20 l->rsize <= 32)
2e70: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 {. ((
2e80: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
2e90: 6c 2d 3e 72 61 64 64 72 29 5b 30 5d 20 3d 20 28 l->raddr)[0] = (
2ea0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 unsigned char)(i
2eb0: 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 20 20 >>56);.
2ec0: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
2ed0: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 ar *)l->raddr)[1
2ee0: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
2ef0: 61 72 29 28 69 3e 3e 34 38 29 3b 0a 20 20 20 20 ar)(i>>48);.
2f00: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
2f10: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
2f20: 64 72 29 5b 32 5d 20 3d 20 28 75 6e 73 69 67 6e dr)[2] = (unsign
2f30: 65 64 20 63 68 61 72 29 28 69 3e 3e 34 30 29 3b ed char)(i>>40);
2f40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 . ((u
2f50: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
2f60: 2d 3e 72 61 64 64 72 29 5b 33 5d 20 3d 20 28 75 ->raddr)[3] = (u
2f70: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e nsigned char)(i>
2f80: 3e 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >32);.
2f90: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
2fa0: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 34 5d r *)l->raddr)[4]
2fb0: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
2fc0: 72 29 28 69 3e 3e 32 34 29 3b 0a 20 20 20 20 20 r)(i>>24);.
2fd0: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
2fe0: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
2ff0: 72 29 5b 35 5d 20 3d 20 28 75 6e 73 69 67 6e 65 r)[5] = (unsigne
3000: 64 20 63 68 61 72 29 28 69 3e 3e 31 36 29 3b 0a d char)(i>>16);.
3010: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
3020: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
3030: 3e 72 61 64 64 72 29 5b 36 5d 20 3d 20 28 75 6e >raddr)[6] = (un
3040: 73 69 67 6e 65 64 20 63 68 61 72 29 28 69 3e 3e signed char)(i>>
3050: 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 8);.
3060: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
3070: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 37 5d 20 3d *)l->raddr)[7] =
3080: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
3090: 28 69 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 (i);.
30a0: 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d if (l->rsize ==
30b0: 20 38 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 8) {.
30c0: 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 } else.
30d0: 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a if (l->rsiz
30e0: 65 20 3d 3d 20 39 29 20 7b 0a 20 20 20 20 20 20 e == 9) {.
30f0: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
3100: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
3110: 64 72 29 5b 38 2b 30 5d 20 3d 20 28 75 6e 73 69 dr)[8+0] = (unsi
3120: 67 6e 65 64 20 63 68 61 72 29 28 6f 31 3e 3e 35 gned char)(o1>>5
3130: 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6);.
3140: 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 } else.
3150: 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 if (l->rsize
3160: 3d 3d 20 31 30 29 20 7b 0a 20 20 20 20 20 20 20 == 10) {.
3170: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
3180: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
3190: 72 29 5b 38 2b 30 5d 20 3d 20 28 75 6e 73 69 67 r)[8+0] = (unsig
31a0: 6e 65 64 20 63 68 61 72 29 28 6f 31 3e 3e 35 36 ned char)(o1>>56
31b0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 );.
31c0: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
31d0: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 31 *)l->raddr)[8+1
31e0: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
31f0: 61 72 29 28 6f 31 3e 3e 34 38 29 3b 0a 20 20 20 ar)(o1>>48);.
3200: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a } else.
3210: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 if (
3220: 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 31 31 29 20 l->rsize == 11)
3230: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
3240: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
3250: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 30 5d *)l->raddr)[8+0]
3260: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
3270: 72 29 28 6f 31 3e 3e 35 36 29 3b 0a 20 20 20 20 r)(o1>>56);.
3280: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
3290: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
32a0: 61 64 64 72 29 5b 38 2b 31 5d 20 3d 20 28 75 6e addr)[8+1] = (un
32b0: 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 31 3e signed char)(o1>
32c0: 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >48);.
32d0: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
32e0: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
32f0: 38 2b 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 8+2] = (unsigned
3300: 20 63 68 61 72 29 28 6f 31 3e 3e 34 30 29 3b 0a char)(o1>>40);.
3310: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c } el
3320: 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 se. i
3330: 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 31 f (l->rsize == 1
3340: 32 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 2) {.
3350: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
3360: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 ar *)l->raddr)[8
3370: 2b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 +0] = (unsigned
3380: 63 68 61 72 29 28 6f 31 3e 3e 35 36 29 3b 0a 20 char)(o1>>56);.
3390: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 ((u
33a0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
33b0: 2d 3e 72 61 64 64 72 29 5b 38 2b 31 5d 20 3d 20 ->raddr)[8+1] =
33c0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
33d0: 6f 31 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 o1>>48);.
33e0: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
33f0: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
3400: 72 29 5b 38 2b 32 5d 20 3d 20 28 75 6e 73 69 67 r)[8+2] = (unsig
3410: 6e 65 64 20 63 68 61 72 29 28 6f 31 3e 3e 34 30 ned char)(o1>>40
3420: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 );.
3430: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
3440: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 33 *)l->raddr)[8+3
3450: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
3460: 61 72 29 28 6f 31 3e 3e 33 32 29 3b 0a 20 20 20 ar)(o1>>32);.
3470: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a } else.
3480: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 if (
3490: 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 31 33 29 20 l->rsize == 13)
34a0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
34b0: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
34c0: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 30 5d *)l->raddr)[8+0]
34d0: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
34e0: 72 29 28 6f 31 3e 3e 35 36 29 3b 0a 20 20 20 20 r)(o1>>56);.
34f0: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
3500: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
3510: 61 64 64 72 29 5b 38 2b 31 5d 20 3d 20 28 75 6e addr)[8+1] = (un
3520: 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 31 3e signed char)(o1>
3530: 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >48);.
3540: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
3550: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
3560: 38 2b 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 8+2] = (unsigned
3570: 20 63 68 61 72 29 28 6f 31 3e 3e 34 30 29 3b 0a char)(o1>>40);.
3580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
3590: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
35a0: 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 33 5d 20 3d l->raddr)[8+3] =
35b0: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
35c0: 28 6f 31 3e 3e 33 32 29 3b 0a 20 20 20 20 20 20 (o1>>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 6f 31 3e 3e 32 gned char)(o1>>2
3610: 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 4);.
3620: 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 } else.
3630: 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 if (l->rsize
3640: 3d 3d 20 31 34 29 20 7b 0a 20 20 20 20 20 20 20 == 14) {.
3650: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
3660: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
3670: 72 29 5b 38 2b 30 5d 20 3d 20 28 75 6e 73 69 67 r)[8+0] = (unsig
3680: 6e 65 64 20 63 68 61 72 29 28 6f 31 3e 3e 35 36 ned char)(o1>>56
3690: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 );.
36a0: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
36b0: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 31 *)l->raddr)[8+1
36c0: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
36d0: 61 72 29 28 6f 31 3e 3e 34 38 29 3b 0a 20 20 20 ar)(o1>>48);.
36e0: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
36f0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
3700: 72 61 64 64 72 29 5b 38 2b 32 5d 20 3d 20 28 75 raddr)[8+2] = (u
3710: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 31 nsigned char)(o1
3720: 3e 3e 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 >>40);.
3730: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
3740: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
3750: 5b 38 2b 33 5d 20 3d 20 28 75 6e 73 69 67 6e 65 [8+3] = (unsigne
3760: 64 20 63 68 61 72 29 28 6f 31 3e 3e 33 32 29 3b d char)(o1>>32);
3770: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 . (
3780: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
3790: 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 34 5d 20 )l->raddr)[8+4]
37a0: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
37b0: 29 28 6f 31 3e 3e 32 34 29 3b 0a 20 20 20 20 20 )(o1>>24);.
37c0: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
37d0: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
37e0: 64 64 72 29 5b 38 2b 35 5d 20 3d 20 28 75 6e 73 ddr)[8+5] = (uns
37f0: 69 67 6e 65 64 20 63 68 61 72 29 28 6f 31 3e 3e igned char)(o1>>
3800: 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 16);.
3810: 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 } else.
3820: 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 if (l->rsize
3830: 20 3d 3d 20 31 35 29 20 7b 0a 20 20 20 20 20 20 == 15) {.
3840: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
3850: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
3860: 64 72 29 5b 38 2b 30 5d 20 3d 20 28 75 6e 73 69 dr)[8+0] = (unsi
3870: 67 6e 65 64 20 63 68 61 72 29 28 6f 31 3e 3e 35 gned char)(o1>>5
3880: 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6);.
3890: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
38a0: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b r *)l->raddr)[8+
38b0: 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 1] = (unsigned c
38c0: 68 61 72 29 28 6f 31 3e 3e 34 38 29 3b 0a 20 20 har)(o1>>48);.
38d0: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
38e0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
38f0: 3e 72 61 64 64 72 29 5b 38 2b 32 5d 20 3d 20 28 >raddr)[8+2] = (
3900: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f unsigned char)(o
3910: 31 3e 3e 34 30 29 3b 0a 20 20 20 20 20 20 20 20 1>>40);.
3920: 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 ((unsigned
3930: 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 char *)l->raddr
3940: 29 5b 38 2b 33 5d 20 3d 20 28 75 6e 73 69 67 6e )[8+3] = (unsign
3950: 65 64 20 63 68 61 72 29 28 6f 31 3e 3e 33 32 29 ed char)(o1>>32)
3960: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
3970: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
3980: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 34 5d *)l->raddr)[8+4]
3990: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
39a0: 72 29 28 6f 31 3e 3e 32 34 29 3b 0a 20 20 20 20 r)(o1>>24);.
39b0: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
39c0: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
39d0: 61 64 64 72 29 5b 38 2b 35 5d 20 3d 20 28 75 6e addr)[8+5] = (un
39e0: 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 31 3e signed char)(o1>
39f0: 3e 31 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >16);.
3a00: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
3a10: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
3a20: 38 2b 36 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 8+6] = (unsigned
3a30: 20 63 68 61 72 29 28 6f 31 3e 3e 38 29 3b 0a 20 char)(o1>>8);.
3a40: 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 } els
3a50: 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 69 66 e. if
3a60: 20 28 6c 2d 3e 72 73 69 7a 65 20 3e 3d 20 31 36 (l->rsize >= 16
3a70: 20 26 26 20 6c 2d 3e 72 73 69 7a 65 20 3c 3d 20 && l->rsize <=
3a80: 33 32 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 32) {.
3a90: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
3aa0: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
3ab0: 38 2b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 8+0] = (unsigned
3ac0: 20 63 68 61 72 29 28 6f 31 3e 3e 35 36 29 3b 0a char)(o1>>56);.
3ad0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
3ae0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
3af0: 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 31 5d 20 3d l->raddr)[8+1] =
3b00: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
3b10: 28 6f 31 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 (o1>>48);.
3b20: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
3b30: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
3b40: 64 72 29 5b 38 2b 32 5d 20 3d 20 28 75 6e 73 69 dr)[8+2] = (unsi
3b50: 67 6e 65 64 20 63 68 61 72 29 28 6f 31 3e 3e 34 gned char)(o1>>4
3b60: 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 0);.
3b70: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
3b80: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b r *)l->raddr)[8+
3b90: 33 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 3] = (unsigned c
3ba0: 68 61 72 29 28 6f 31 3e 3e 33 32 29 3b 0a 20 20 har)(o1>>32);.
3bb0: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
3bc0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
3bd0: 3e 72 61 64 64 72 29 5b 38 2b 34 5d 20 3d 20 28 >raddr)[8+4] = (
3be0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f unsigned char)(o
3bf0: 31 3e 3e 32 34 29 3b 0a 20 20 20 20 20 20 20 20 1>>24);.
3c00: 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 ((unsigned
3c10: 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 char *)l->raddr
3c20: 29 5b 38 2b 35 5d 20 3d 20 28 75 6e 73 69 67 6e )[8+5] = (unsign
3c30: 65 64 20 63 68 61 72 29 28 6f 31 3e 3e 31 36 29 ed char)(o1>>16)
3c40: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
3c50: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
3c60: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 38 2b 36 5d *)l->raddr)[8+6]
3c70: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
3c80: 72 29 28 6f 31 3e 3e 38 29 3b 0a 20 20 20 20 20 r)(o1>>8);.
3c90: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
3ca0: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
3cb0: 64 64 72 29 5b 38 2b 37 5d 20 3d 20 28 75 6e 73 ddr)[8+7] = (uns
3cc0: 69 67 6e 65 64 20 63 68 61 72 29 28 6f 31 29 3b igned char)(o1);
3cd0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 . i
3ce0: 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 31 f (l->rsize == 1
3cf0: 36 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 6) {.
3d00: 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 } else.
3d10: 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 if (l->r
3d20: 73 69 7a 65 20 3d 3d 20 31 37 29 20 7b 0a 20 20 size == 17) {.
3d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
3d40: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
3d50: 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b 30 5d 20 l->raddr)[16+0]
3d60: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
3d70: 29 28 6f 32 3e 3e 35 36 29 3b 0a 20 20 20 20 20 )(o2>>56);.
3d80: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a } else.
3d90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 if
3da0: 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 31 38 (l->rsize == 18
3db0: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ) {.
3dc0: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
3dd0: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
3de0: 31 36 2b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 16+0] = (unsigne
3df0: 64 20 63 68 61 72 29 28 6f 32 3e 3e 35 36 29 3b d char)(o2>>56);
3e00: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3e10: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
3e20: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b *)l->raddr)[16+
3e30: 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 1] = (unsigned c
3e40: 68 61 72 29 28 6f 32 3e 3e 34 38 29 3b 0a 20 20 har)(o2>>48);.
3e50: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c } el
3e60: 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 se.
3e70: 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d if (l->rsize ==
3e80: 20 31 39 29 20 7b 0a 20 20 20 20 20 20 20 20 20 19) {.
3e90: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
3ea0: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
3eb0: 72 29 5b 31 36 2b 30 5d 20 3d 20 28 75 6e 73 69 r)[16+0] = (unsi
3ec0: 67 6e 65 64 20 63 68 61 72 29 28 6f 32 3e 3e 35 gned char)(o2>>5
3ed0: 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6);.
3ee0: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
3ef0: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
3f00: 31 36 2b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 16+1] = (unsigne
3f10: 64 20 63 68 61 72 29 28 6f 32 3e 3e 34 38 29 3b d char)(o2>>48);
3f20: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
3f30: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
3f40: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b *)l->raddr)[16+
3f50: 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 2] = (unsigned c
3f60: 68 61 72 29 28 6f 32 3e 3e 34 30 29 3b 0a 20 20 har)(o2>>40);.
3f70: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c } el
3f80: 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 se.
3f90: 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d if (l->rsize ==
3fa0: 20 32 30 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20) {.
3fb0: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
3fc0: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
3fd0: 72 29 5b 31 36 2b 30 5d 20 3d 20 28 75 6e 73 69 r)[16+0] = (unsi
3fe0: 67 6e 65 64 20 63 68 61 72 29 28 6f 32 3e 3e 35 gned char)(o2>>5
3ff0: 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 6);.
4000: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
4010: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
4020: 31 36 2b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 16+1] = (unsigne
4030: 64 20 63 68 61 72 29 28 6f 32 3e 3e 34 38 29 3b d char)(o2>>48);
4040: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
4050: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
4060: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b *)l->raddr)[16+
4070: 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 2] = (unsigned c
4080: 68 61 72 29 28 6f 32 3e 3e 34 30 29 3b 0a 20 20 har)(o2>>40);.
4090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
40a0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
40b0: 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b 33 5d 20 l->raddr)[16+3]
40c0: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
40d0: 29 28 6f 32 3e 3e 33 32 29 3b 0a 20 20 20 20 20 )(o2>>32);.
40e0: 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 0a } else.
40f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 if
4100: 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 32 31 (l->rsize == 21
4110: 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 ) {.
4120: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
4130: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
4140: 31 36 2b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 16+0] = (unsigne
4150: 64 20 63 68 61 72 29 28 6f 32 3e 3e 35 36 29 3b d char)(o2>>56);
4160: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
4170: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
4180: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b *)l->raddr)[16+
4190: 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 1] = (unsigned c
41a0: 68 61 72 29 28 6f 32 3e 3e 34 38 29 3b 0a 20 20 har)(o2>>48);.
41b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
41c0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
41d0: 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b 32 5d 20 l->raddr)[16+2]
41e0: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
41f0: 29 28 6f 32 3e 3e 34 30 29 3b 0a 20 20 20 20 20 )(o2>>40);.
4200: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
4210: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
4220: 72 61 64 64 72 29 5b 31 36 2b 33 5d 20 3d 20 28 raddr)[16+3] = (
4230: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f unsigned char)(o
4240: 32 3e 3e 33 32 29 3b 0a 20 20 20 20 20 20 20 20 2>>32);.
4250: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
4260: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
4270: 64 72 29 5b 31 36 2b 34 5d 20 3d 20 28 75 6e 73 dr)[16+4] = (uns
4280: 69 67 6e 65 64 20 63 68 61 72 29 28 6f 32 3e 3e igned char)(o2>>
4290: 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 24);.
42a0: 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 } else.
42b0: 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 if (l->r
42c0: 73 69 7a 65 20 3d 3d 20 32 32 29 20 7b 0a 20 20 size == 22) {.
42d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
42e0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
42f0: 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b 30 5d 20 l->raddr)[16+0]
4300: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
4310: 29 28 6f 32 3e 3e 35 36 29 3b 0a 20 20 20 20 20 )(o2>>56);.
4320: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
4330: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
4340: 72 61 64 64 72 29 5b 31 36 2b 31 5d 20 3d 20 28 raddr)[16+1] = (
4350: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f unsigned char)(o
4360: 32 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 20 2>>48);.
4370: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
4380: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
4390: 64 72 29 5b 31 36 2b 32 5d 20 3d 20 28 75 6e 73 dr)[16+2] = (uns
43a0: 69 67 6e 65 64 20 63 68 61 72 29 28 6f 32 3e 3e igned char)(o2>>
43b0: 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 40);.
43c0: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
43d0: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
43e0: 5b 31 36 2b 33 5d 20 3d 20 28 75 6e 73 69 67 6e [16+3] = (unsign
43f0: 65 64 20 63 68 61 72 29 28 6f 32 3e 3e 33 32 29 ed char)(o2>>32)
4400: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
4410: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
4420: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 36 r *)l->raddr)[16
4430: 2b 34 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 +4] = (unsigned
4440: 63 68 61 72 29 28 6f 32 3e 3e 32 34 29 3b 0a 20 char)(o2>>24);.
4450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
4460: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
4470: 29 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b 35 5d )l->raddr)[16+5]
4480: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
4490: 72 29 28 6f 32 3e 3e 31 36 29 3b 0a 20 20 20 20 r)(o2>>16);.
44a0: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 } else
44b0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 . i
44c0: 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 32 f (l->rsize == 2
44d0: 33 29 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 3) {.
44e0: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
44f0: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
4500: 5b 31 36 2b 30 5d 20 3d 20 28 75 6e 73 69 67 6e [16+0] = (unsign
4510: 65 64 20 63 68 61 72 29 28 6f 32 3e 3e 35 36 29 ed char)(o2>>56)
4520: 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ;.
4530: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
4540: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 36 r *)l->raddr)[16
4550: 2b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 +1] = (unsigned
4560: 63 68 61 72 29 28 6f 32 3e 3e 34 38 29 3b 0a 20 char)(o2>>48);.
4570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
4580: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
4590: 29 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b 32 5d )l->raddr)[16+2]
45a0: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
45b0: 72 29 28 6f 32 3e 3e 34 30 29 3b 0a 20 20 20 20 r)(o2>>40);.
45c0: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
45d0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
45e0: 3e 72 61 64 64 72 29 5b 31 36 2b 33 5d 20 3d 20 >raddr)[16+3] =
45f0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
4600: 6f 32 3e 3e 33 32 29 3b 0a 20 20 20 20 20 20 20 o2>>32);.
4610: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
4620: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
4630: 64 64 72 29 5b 31 36 2b 34 5d 20 3d 20 28 75 6e ddr)[16+4] = (un
4640: 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 32 3e signed char)(o2>
4650: 3e 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >24);.
4660: 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 ((unsigned
4670: 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 char *)l->raddr
4680: 29 5b 31 36 2b 35 5d 20 3d 20 28 75 6e 73 69 67 )[16+5] = (unsig
4690: 6e 65 64 20 63 68 61 72 29 28 6f 32 3e 3e 31 36 ned char)(o2>>16
46a0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 );.
46b0: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
46c0: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 ar *)l->raddr)[1
46d0: 36 2b 36 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 6+6] = (unsigned
46e0: 20 63 68 61 72 29 28 6f 32 3e 3e 38 29 3b 0a 20 char)(o2>>8);.
46f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 } e
4700: 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 lse.
4710: 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3e if (l->rsize >
4720: 3d 20 32 34 20 26 26 20 6c 2d 3e 72 73 69 7a 65 = 24 && l->rsize
4730: 20 3c 3d 20 33 32 29 20 7b 0a 20 20 20 20 20 20 <= 32) {.
4740: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
4750: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
4760: 61 64 64 72 29 5b 31 36 2b 30 5d 20 3d 20 28 75 addr)[16+0] = (u
4770: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 32 nsigned char)(o2
4780: 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 20 20 >>56);.
4790: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
47a0: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
47b0: 72 29 5b 31 36 2b 31 5d 20 3d 20 28 75 6e 73 69 r)[16+1] = (unsi
47c0: 67 6e 65 64 20 63 68 61 72 29 28 6f 32 3e 3e 34 gned char)(o2>>4
47d0: 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 8);.
47e0: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
47f0: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
4800: 31 36 2b 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 16+2] = (unsigne
4810: 64 20 63 68 61 72 29 28 6f 32 3e 3e 34 30 29 3b d char)(o2>>40);
4820: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
4830: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
4840: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b *)l->raddr)[16+
4850: 33 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 3] = (unsigned c
4860: 68 61 72 29 28 6f 32 3e 3e 33 32 29 3b 0a 20 20 har)(o2>>32);.
4870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
4880: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
4890: 6c 2d 3e 72 61 64 64 72 29 5b 31 36 2b 34 5d 20 l->raddr)[16+4]
48a0: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
48b0: 29 28 6f 32 3e 3e 32 34 29 3b 0a 20 20 20 20 20 )(o2>>24);.
48c0: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
48d0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
48e0: 72 61 64 64 72 29 5b 31 36 2b 35 5d 20 3d 20 28 raddr)[16+5] = (
48f0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f unsigned char)(o
4900: 32 3e 3e 31 36 29 3b 0a 20 20 20 20 20 20 20 20 2>>16);.
4910: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
4920: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
4930: 64 72 29 5b 31 36 2b 36 5d 20 3d 20 28 75 6e 73 dr)[16+6] = (uns
4940: 69 67 6e 65 64 20 63 68 61 72 29 28 6f 32 3e 3e igned char)(o2>>
4950: 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 8);.
4960: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
4970: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
4980: 31 36 2b 37 5d 20 3d 20 28 75 6e 73 69 67 6e 65 16+7] = (unsigne
4990: 64 20 63 68 61 72 29 28 6f 32 29 3b 0a 20 20 20 d char)(o2);.
49a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 if
49b0: 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 32 34 29 (l->rsize == 24)
49c0: 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
49d0: 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 } else.
49e0: 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d if (l-
49f0: 3e 72 73 69 7a 65 20 3d 3d 20 32 35 29 20 7b 0a >rsize == 25) {.
4a00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4a10: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
4a20: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 34 r *)l->raddr)[24
4a30: 2b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 +0] = (unsigned
4a40: 63 68 61 72 29 28 6f 33 3e 3e 35 36 29 3b 0a 20 char)(o3>>56);.
4a50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d }
4a60: 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 else.
4a70: 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 if (l->rsi
4a80: 7a 65 20 3d 3d 20 32 36 29 20 7b 0a 20 20 20 20 ze == 26) {.
4a90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
4aa0: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
4ab0: 6c 2d 3e 72 61 64 64 72 29 5b 32 34 2b 30 5d 20 l->raddr)[24+0]
4ac0: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
4ad0: 29 28 6f 33 3e 3e 35 36 29 3b 0a 20 20 20 20 20 )(o3>>56);.
4ae0: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 ((u
4af0: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
4b00: 2d 3e 72 61 64 64 72 29 5b 32 34 2b 31 5d 20 3d ->raddr)[24+1] =
4b10: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
4b20: 28 6f 33 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 (o3>>48);.
4b30: 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c 73 65 } else
4b40: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
4b50: 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 3d 3d if (l->rsize ==
4b60: 20 32 37 29 20 7b 0a 20 20 20 20 20 20 20 20 20 27) {.
4b70: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
4b80: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
4b90: 64 64 72 29 5b 32 34 2b 30 5d 20 3d 20 28 75 6e ddr)[24+0] = (un
4ba0: 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 33 3e signed char)(o3>
4bb0: 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >56);.
4bc0: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
4bd0: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
4be0: 64 72 29 5b 32 34 2b 31 5d 20 3d 20 28 75 6e 73 dr)[24+1] = (uns
4bf0: 69 67 6e 65 64 20 63 68 61 72 29 28 6f 33 3e 3e igned char)(o3>>
4c00: 34 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 48);.
4c10: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
4c20: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
4c30: 72 29 5b 32 34 2b 32 5d 20 3d 20 28 75 6e 73 69 r)[24+2] = (unsi
4c40: 67 6e 65 64 20 63 68 61 72 29 28 6f 33 3e 3e 34 gned char)(o3>>4
4c50: 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 0);.
4c60: 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 } else.
4c70: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 6c if (l
4c80: 2d 3e 72 73 69 7a 65 20 3d 3d 20 32 38 29 20 7b ->rsize == 28) {
4c90: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
4ca0: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
4cb0: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 ar *)l->raddr)[2
4cc0: 34 2b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 4+0] = (unsigned
4cd0: 20 63 68 61 72 29 28 6f 33 3e 3e 35 36 29 3b 0a char)(o3>>56);.
4ce0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4cf0: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
4d00: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 34 r *)l->raddr)[24
4d10: 2b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 +1] = (unsigned
4d20: 63 68 61 72 29 28 6f 33 3e 3e 34 38 29 3b 0a 20 char)(o3>>48);.
4d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4d40: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
4d50: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 34 2b *)l->raddr)[24+
4d60: 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 2] = (unsigned c
4d70: 68 61 72 29 28 6f 33 3e 3e 34 30 29 3b 0a 20 20 har)(o3>>40);.
4d80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
4d90: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
4da0: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 34 2b 33 *)l->raddr)[24+3
4db0: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
4dc0: 61 72 29 28 6f 33 3e 3e 33 32 29 3b 0a 20 20 20 ar)(o3>>32);.
4dd0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 } e
4de0: 6c 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 lse.
4df0: 20 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 if (l->rsize
4e00: 20 3d 3d 20 32 39 29 20 7b 0a 20 20 20 20 20 20 == 29) {.
4e10: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
4e20: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
4e30: 3e 72 61 64 64 72 29 5b 32 34 2b 30 5d 20 3d 20 >raddr)[24+0] =
4e40: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
4e50: 6f 33 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 o3>>56);.
4e60: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
4e70: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
4e80: 72 61 64 64 72 29 5b 32 34 2b 31 5d 20 3d 20 28 raddr)[24+1] = (
4e90: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f unsigned char)(o
4ea0: 33 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 20 3>>48);.
4eb0: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
4ec0: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
4ed0: 61 64 64 72 29 5b 32 34 2b 32 5d 20 3d 20 28 75 addr)[24+2] = (u
4ee0: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 33 nsigned char)(o3
4ef0: 3e 3e 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 >>40);.
4f00: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
4f10: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
4f20: 64 64 72 29 5b 32 34 2b 33 5d 20 3d 20 28 75 6e ddr)[24+3] = (un
4f30: 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 33 3e signed char)(o3>
4f40: 3e 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >32);.
4f50: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
4f60: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
4f70: 64 72 29 5b 32 34 2b 34 5d 20 3d 20 28 75 6e 73 dr)[24+4] = (uns
4f80: 69 67 6e 65 64 20 63 68 61 72 29 28 6f 33 3e 3e igned char)(o3>>
4f90: 32 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 24);.
4fa0: 20 20 20 20 20 7d 20 65 6c 73 65 0a 20 20 20 20 } else.
4fb0: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 if (
4fc0: 6c 2d 3e 72 73 69 7a 65 20 3d 3d 20 33 30 29 20 l->rsize == 30)
4fd0: 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 {.
4fe0: 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 ((unsigned c
4ff0: 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b har *)l->raddr)[
5000: 32 34 2b 30 5d 20 3d 20 28 75 6e 73 69 67 6e 65 24+0] = (unsigne
5010: 64 20 63 68 61 72 29 28 6f 33 3e 3e 35 36 29 3b d char)(o3>>56);
5020: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
5030: 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 ((unsigned ch
5040: 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 ar *)l->raddr)[2
5050: 34 2b 31 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 4+1] = (unsigned
5060: 20 63 68 61 72 29 28 6f 33 3e 3e 34 38 29 3b 0a char)(o3>>48);.
5070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5080: 20 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 ((unsigned cha
5090: 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 34 r *)l->raddr)[24
50a0: 2b 32 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 +2] = (unsigned
50b0: 63 68 61 72 29 28 6f 33 3e 3e 34 30 29 3b 0a 20 char)(o3>>40);.
50c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
50d0: 20 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 ((unsigned char
50e0: 20 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 34 2b *)l->raddr)[24+
50f0: 33 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 3] = (unsigned c
5100: 68 61 72 29 28 6f 33 3e 3e 33 32 29 3b 0a 20 20 har)(o3>>32);.
5110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5120: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
5130: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 34 2b 34 *)l->raddr)[24+4
5140: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
5150: 61 72 29 28 6f 33 3e 3e 32 34 29 3b 0a 20 20 20 ar)(o3>>24);.
5160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
5170: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
5180: 29 6c 2d 3e 72 61 64 64 72 29 5b 32 34 2b 35 5d )l->raddr)[24+5]
5190: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
51a0: 72 29 28 6f 33 3e 3e 31 36 29 3b 0a 20 20 20 20 r)(o3>>16);.
51b0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 20 65 6c } el
51c0: 73 65 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 se.
51d0: 20 20 20 69 66 20 28 6c 2d 3e 72 73 69 7a 65 20 if (l->rsize
51e0: 3d 3d 20 33 31 29 20 7b 0a 20 20 20 20 20 20 20 == 31) {.
51f0: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
5200: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
5210: 72 61 64 64 72 29 5b 32 34 2b 30 5d 20 3d 20 28 raddr)[24+0] = (
5220: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f unsigned char)(o
5230: 33 3e 3e 35 36 29 3b 0a 20 20 20 20 20 20 20 20 3>>56);.
5240: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
5250: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
5260: 61 64 64 72 29 5b 32 34 2b 31 5d 20 3d 20 28 75 addr)[24+1] = (u
5270: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 33 nsigned char)(o3
5280: 3e 3e 34 38 29 3b 0a 20 20 20 20 20 20 20 20 20 >>48);.
5290: 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 ((unsig
52a0: 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 ned char *)l->ra
52b0: 64 64 72 29 5b 32 34 2b 32 5d 20 3d 20 28 75 6e ddr)[24+2] = (un
52c0: 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 33 3e signed char)(o3>
52d0: 3e 34 30 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >40);.
52e0: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
52f0: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
5300: 64 72 29 5b 32 34 2b 33 5d 20 3d 20 28 75 6e 73 dr)[24+3] = (uns
5310: 69 67 6e 65 64 20 63 68 61 72 29 28 6f 33 3e 3e igned char)(o3>>
5320: 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 32);.
5330: 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 ((unsigne
5340: 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 d char *)l->radd
5350: 72 29 5b 32 34 2b 34 5d 20 3d 20 28 75 6e 73 69 r)[24+4] = (unsi
5360: 67 6e 65 64 20 63 68 61 72 29 28 6f 33 3e 3e 32 gned char)(o3>>2
5370: 34 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 4);.
5380: 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 ((unsigned
5390: 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 char *)l->raddr
53a0: 29 5b 32 34 2b 35 5d 20 3d 20 28 75 6e 73 69 67 )[24+5] = (unsig
53b0: 6e 65 64 20 63 68 61 72 29 28 6f 33 3e 3e 31 36 ned char)(o3>>16
53c0: 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 );.
53d0: 20 20 20 20 20 28 28 75 6e 73 69 67 6e 65 64 20 ((unsigned
53e0: 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 64 72 29 char *)l->raddr)
53f0: 5b 32 34 2b 36 5d 20 3d 20 28 75 6e 73 69 67 6e [24+6] = (unsign
5400: 65 64 20 63 68 61 72 29 28 6f 33 3e 3e 38 29 3b ed char)(o3>>8);
5410: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
5420: 20 7d 20 65 6c 73 65 0a 20 20 20 20 20 20 20 20 } else.
5430: 20 20 20 20 20 20 20 20 69 66 20 28 6c 2d 3e 72 if (l->r
5440: 73 69 7a 65 20 3d 3d 20 33 32 29 20 7b 0a 20 20 size == 32) {.
5450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
5460: 28 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 ((unsigned char
5470: 2a 29 6c 2d 3e 72 61 64 64 72 29 5b 32 34 2b 30 *)l->raddr)[24+0
5480: 5d 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 ] = (unsigned ch
5490: 61 72 29 28 6f 33 3e 3e 35 36 29 3b 0a 20 20 20 ar)(o3>>56);.
54a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 (
54b0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a (unsigned char *
54c0: 29 6c 2d 3e 72 61 64 64 72 29 5b 32 34 2b 31 5d )l->raddr)[24+1]
54d0: 20 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 = (unsigned cha
54e0: 72 29 28 6f 33 3e 3e 34 38 29 3b 0a 20 20 20 20 r)(o3>>48);.
54f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 ((
5500: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 unsigned char *)
5510: 6c 2d 3e 72 61 64 64 72 29 5b 32 34 2b 32 5d 20 l->raddr)[24+2]
5520: 3d 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 = (unsigned char
5530: 29 28 6f 33 3e 3e 34 30 29 3b 0a 20 20 20 20 20 )(o3>>40);.
5540: 20 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 ((u
5550: 6e 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c nsigned char *)l
5560: 2d 3e 72 61 64 64 72 29 5b 32 34 2b 33 5d 20 3d ->raddr)[24+3] =
5570: 20 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 (unsigned char)
5580: 28 6f 33 3e 3e 33 32 29 3b 0a 20 20 20 20 20 20 (o3>>32);.
5590: 20 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e ((un
55a0: 73 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d signed char *)l-
55b0: 3e 72 61 64 64 72 29 5b 32 34 2b 34 5d 20 3d 20 >raddr)[24+4] =
55c0: 28 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 (unsigned char)(
55d0: 6f 33 3e 3e 32 34 29 3b 0a 20 20 20 20 20 20 20 o3>>24);.
55e0: 20 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 ((uns
55f0: 69 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e igned char *)l->
5600: 72 61 64 64 72 29 5b 32 34 2b 35 5d 20 3d 20 28 raddr)[24+5] = (
5610: 75 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f unsigned char)(o
5620: 33 3e 3e 31 36 29 3b 0a 20 20 20 20 20 20 20 20 3>>16);.
5630: 20 20 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 ((unsi
5640: 67 6e 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 gned char *)l->r
5650: 61 64 64 72 29 5b 32 34 2b 36 5d 20 3d 20 28 75 addr)[24+6] = (u
5660: 6e 73 69 67 6e 65 64 20 63 68 61 72 29 28 6f 33 nsigned char)(o3
5670: 3e 3e 38 29 3b 0a 20 20 20 20 20 20 20 20 20 20 >>8);.
5680: 20 20 20 20 20 20 20 20 28 28 75 6e 73 69 67 6e ((unsign
5690: 65 64 20 63 68 61 72 20 2a 29 6c 2d 3e 72 61 64 ed char *)l->rad
56a0: 64 72 29 5b 32 34 2b 37 5d 20 3d 20 28 75 6e 73 dr)[24+7] = (uns
56b0: 69 67 6e 65 64 20 63 68 61 72 29 28 6f 33 29 3b igned char)(o3);
56c0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
56d0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 }.
56e0: 20 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 7d }. }
56f0: 0a 20 20 20 20 20 20 20 20 20 20 7d 0a 20 20 20 . }.
5700: 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 }. }.
5710: 20 20 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 }. }. retur
5720: 6e 20 30 3b 0a 7d 0a 0a 23 65 6e 64 69 66 20 2f n 0;.}..#endif /
5730: 2a 5f 61 76 63 61 6c 6c 5f 73 70 61 72 63 36 34 *_avcall_sparc64
5740: 5f 63 20 2a 2f 0a _c */.