| |
| # |
| # (C) 2008-2009 Advanced Micro Devices, Inc. All Rights Reserved. |
| # |
| # This file is part of libacml_mv. |
| # |
| # libacml_mv is free software; you can redistribute it and/or |
| # modify it under the terms of the GNU Lesser General Public |
| # License as published by the Free Software Foundation; either |
| # version 2.1 of the License, or (at your option) any later version. |
| # |
| # libacml_mv is distributed in the hope that it will be useful, |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| # Lesser General Public License for more details. |
| # |
| # You should have received a copy of the GNU Lesser General Public |
| # License along with libacml_mv. If not, see |
| # <http://www.gnu.org/licenses/>. |
| # |
| # |
| |
| |
| # |
| # logf.S |
| # |
| # An implementation of the logf libm function. |
| # |
| # Prototype: |
| # |
| # float logf(float x); |
| # |
| |
| # |
| # Algorithm: |
| # Similar to one presnted in log.S |
| # |
| |
| #include "fn_macros.h" |
| #define fname FN_PROTOTYPE(logf) |
| #define fname_special _logf_special@PLT |
| |
| |
| # local variable storage offsets |
| .equ p_temp, 0x0 |
| .equ stack_size, 0x18 |
| |
| |
| #ifdef __ELF__ |
| .section .note.GNU-stack,"",@progbits |
| #endif |
| |
| .text |
| .align 16 |
| .p2align 4,,15 |
| .globl fname |
| .type fname,@function |
| fname: |
| |
| sub $stack_size, %rsp |
| |
| # compute exponent part |
| xor %eax, %eax |
| movdqa %xmm0, %xmm3 |
| movss %xmm0, %xmm4 |
| psrld $23, %xmm3 |
| movd %xmm0, %eax |
| psubd .L__mask_127(%rip), %xmm3 |
| movdqa %xmm0, %xmm2 |
| cvtdq2ps %xmm3, %xmm5 # xexp |
| |
| # NaN or inf |
| movdqa %xmm0, %xmm1 |
| andps .L__real_inf(%rip), %xmm1 |
| comiss .L__real_inf(%rip), %xmm1 |
| je .L__x_is_inf_or_nan |
| |
| # check for negative numbers or zero |
| xorps %xmm1, %xmm1 |
| comiss %xmm1, %xmm0 |
| jbe .L__x_is_zero_or_neg |
| |
| pand .L__real_mant(%rip), %xmm2 |
| subss .L__real_one(%rip), %xmm4 |
| |
| comiss .L__real_neg127(%rip), %xmm5 |
| je .L__denormal_adjust |
| |
| .L__continue_common: |
| |
| # compute the index into the log tables |
| mov %eax, %r9d |
| and .L__mask_mant_all7(%rip), %eax |
| and .L__mask_mant8(%rip), %r9d |
| shl $1, %r9d |
| add %r9d, %eax |
| mov %eax, p_temp(%rsp) |
| |
| # check e as a special case |
| comiss .L__real_ef(%rip), %xmm0 |
| je .L__logf_e |
| |
| # near one codepath |
| andps .L__real_notsign(%rip), %xmm4 |
| comiss .L__real_threshold(%rip), %xmm4 |
| jb .L__near_one |
| |
| # F, Y |
| movss p_temp(%rsp), %xmm1 |
| shr $16, %eax |
| por .L__real_half(%rip), %xmm2 |
| por .L__real_half(%rip), %xmm1 |
| lea .L__log_F_inv(%rip), %r9 |
| |
| # f = F - Y, r = f * inv |
| subss %xmm2, %xmm1 |
| mulss (%r9,%rax,4), %xmm1 |
| |
| movss %xmm1, %xmm2 |
| movss %xmm1, %xmm0 |
| |
| # poly |
| mulss .L__real_1_over_3(%rip), %xmm2 |
| mulss %xmm1, %xmm0 |
| addss .L__real_1_over_2(%rip), %xmm2 |
| movss .L__real_log2_tail(%rip), %xmm3 |
| |
| lea .L__log_128_tail(%rip), %r9 |
| lea .L__log_128_lead(%rip), %r10 |
| |
| mulss %xmm0, %xmm2 |
| mulss %xmm5, %xmm3 |
| addss %xmm2, %xmm1 |
| |
| # m*log(2) + log(G) - poly |
| movss .L__real_log2_lead(%rip), %xmm0 |
| subss %xmm1, %xmm3 # z2 |
| mulss %xmm5, %xmm0 |
| addss (%r9,%rax,4), %xmm3 # z2 |
| addss (%r10,%rax,4), %xmm0 # z1 |
| |
| addss %xmm3, %xmm0 |
| |
| add $stack_size, %rsp |
| ret |
| |
| .p2align 4,,15 |
| .L__logf_e: |
| movss .L__real_one(%rip), %xmm0 |
| add $stack_size, %rsp |
| ret |
| |
| .p2align 4,,15 |
| .L__near_one: |
| # r = x - 1.0# |
| movss .L__real_two(%rip), %xmm2 |
| subss .L__real_one(%rip), %xmm0 |
| |
| # u = r / (2.0 + r) |
| addss %xmm0, %xmm2 |
| movss %xmm0, %xmm1 |
| divss %xmm2, %xmm1 # u |
| |
| # correction = r * u |
| movss %xmm0, %xmm4 |
| mulss %xmm1, %xmm4 |
| |
| # u = u + u# |
| addss %xmm1, %xmm1 |
| movss %xmm1, %xmm2 |
| mulss %xmm2, %xmm2 # v = u^2 |
| |
| # r2 = (u * v * (ca_1 + v * ca_2) - correction) |
| movss %xmm1, %xmm3 |
| mulss %xmm2, %xmm3 # u^3 |
| mulss .L__real_ca2(%rip), %xmm2 # Bu^2 |
| addss .L__real_ca1(%rip), %xmm2 # +A |
| mulss %xmm3, %xmm2 |
| subss %xmm4, %xmm2 # -correction |
| |
| # r + r2 |
| addss %xmm2, %xmm0 |
| add $stack_size, %rsp |
| ret |
| |
| .p2align 4,,15 |
| .L__denormal_adjust: |
| por .L__real_one(%rip), %xmm2 |
| subss .L__real_one(%rip), %xmm2 |
| movdqa %xmm2, %xmm5 |
| pand .L__real_mant(%rip), %xmm2 |
| movd %xmm2, %eax |
| psrld $23, %xmm5 |
| psubd .L__mask_253(%rip), %xmm5 |
| cvtdq2ps %xmm5, %xmm5 |
| jmp .L__continue_common |
| |
| .p2align 4,,15 |
| .L__x_is_zero_or_neg: |
| jne .L__x_is_neg |
| |
| movss .L__real_ninf(%rip), %xmm1 |
| mov .L__flag_x_zero(%rip), %edi |
| call fname_special |
| jmp .L__finish |
| |
| .p2align 4,,15 |
| .L__x_is_neg: |
| |
| movss .L__real_nan(%rip), %xmm1 |
| mov .L__flag_x_neg(%rip), %edi |
| call fname_special |
| jmp .L__finish |
| |
| .p2align 4,,15 |
| .L__x_is_inf_or_nan: |
| |
| cmp .L__real_inf(%rip), %eax |
| je .L__finish |
| |
| cmp .L__real_ninf(%rip), %eax |
| je .L__x_is_neg |
| |
| mov .L__real_qnanbit(%rip), %r9d |
| and %eax, %r9d |
| jnz .L__finish |
| |
| or .L__real_qnanbit(%rip), %eax |
| movd %eax, %xmm1 |
| mov .L__flag_x_nan(%rip), %edi |
| call fname_special |
| jmp .L__finish |
| |
| .p2align 4,,15 |
| .L__finish: |
| add $stack_size, %rsp |
| ret |
| |
| |
| .data |
| |
| .align 16 |
| |
| # these codes and the ones in the corresponding .c file have to match |
| .L__flag_x_zero: .long 00000001 |
| .L__flag_x_neg: .long 00000002 |
| .L__flag_x_nan: .long 00000003 |
| |
| .align 16 |
| |
| .L__real_one: .quad 0x03f8000003f800000 # 1.0 |
| .quad 0x03f8000003f800000 |
| .L__real_two: .quad 0x04000000040000000 # 1.0 |
| .quad 0x04000000040000000 |
| .L__real_ninf: .quad 0x0ff800000ff800000 # -inf |
| .quad 0x0ff800000ff800000 |
| .L__real_inf: .quad 0x07f8000007f800000 # +inf |
| .quad 0x07f8000007f800000 |
| .L__real_nan: .quad 0x07fc000007fc00000 # NaN |
| .quad 0x07fc000007fc00000 |
| .L__real_ef: .quad 0x0402DF854402DF854 # float e |
| .quad 0x0402DF854402DF854 |
| .L__real_neg_qnan: .quad 0x0ffc00000ffc00000 |
| .quad 0x0ffc00000ffc00000 |
| |
| .L__real_sign: .quad 0x08000000080000000 # sign bit |
| .quad 0x08000000080000000 |
| .L__real_notsign: .quad 0x07ffFFFFF7ffFFFFF # ^sign bit |
| .quad 0x07ffFFFFF7ffFFFFF |
| .L__real_qnanbit: .quad 0x00040000000400000 # quiet nan bit |
| .quad 0x00040000000400000 |
| .L__real_mant: .quad 0x0007FFFFF007FFFFF # mantissa bits |
| .quad 0x0007FFFFF007FFFFF |
| .L__mask_127: .quad 0x00000007f0000007f # |
| .quad 0x00000007f0000007f |
| |
| .L__mask_mant_all7: .quad 0x00000000007f0000 |
| .quad 0x00000000007f0000 |
| .L__mask_mant8: .quad 0x0000000000008000 |
| .quad 0x0000000000008000 |
| |
| .L__real_ca1: .quad 0x03DAAAAAB3DAAAAAB # 8.33333333333317923934e-02 |
| .quad 0x03DAAAAAB3DAAAAAB |
| .L__real_ca2: .quad 0x03C4CCCCD3C4CCCCD # 1.25000000037717509602e-02 |
| .quad 0x03C4CCCCD3C4CCCCD |
| |
| .L__real_log2_lead: .quad 0x03F3170003F317000 # 0.693115234375 |
| .quad 0x03F3170003F317000 |
| .L__real_log2_tail: .quad 0x03805FDF43805FDF4 # 0.000031946183 |
| .quad 0x03805FDF43805FDF4 |
| .L__real_half: .quad 0x03f0000003f000000 # 1/2 |
| .quad 0x03f0000003f000000 |
| |
| |
| .align 16 |
| |
| .L__real_neg127: .long 0x0c2fe0000 |
| .long 0 |
| .quad 0 |
| |
| .L__mask_253: .long 0x000000fd |
| .long 0 |
| .quad 0 |
| |
| .L__real_threshold: .long 0x3d800000 |
| .long 0 |
| .quad 0 |
| |
| .L__mask_01: .long 0x00000001 |
| .long 0 |
| .quad 0 |
| |
| .L__mask_80: .long 0x00000080 |
| .long 0 |
| .quad 0 |
| |
| .L__real_3b800000: .long 0x3b800000 |
| .long 0 |
| .quad 0 |
| |
| .L__real_1_over_3: .long 0x3eaaaaab |
| .long 0 |
| .quad 0 |
| |
| .L__real_1_over_2: .long 0x3f000000 |
| .long 0 |
| .quad 0 |
| |
| .align 16 |
| .L__log_128_lead: |
| .long 0x00000000 |
| .long 0x3bff0000 |
| .long 0x3c7e0000 |
| .long 0x3cbdc000 |
| .long 0x3cfc1000 |
| .long 0x3d1cf000 |
| .long 0x3d3ba000 |
| .long 0x3d5a1000 |
| .long 0x3d785000 |
| .long 0x3d8b2000 |
| .long 0x3d9a0000 |
| .long 0x3da8d000 |
| .long 0x3db78000 |
| .long 0x3dc61000 |
| .long 0x3dd49000 |
| .long 0x3de2f000 |
| .long 0x3df13000 |
| .long 0x3dff6000 |
| .long 0x3e06b000 |
| .long 0x3e0db000 |
| .long 0x3e14a000 |
| .long 0x3e1b8000 |
| .long 0x3e226000 |
| .long 0x3e293000 |
| .long 0x3e2ff000 |
| .long 0x3e36b000 |
| .long 0x3e3d5000 |
| .long 0x3e43f000 |
| .long 0x3e4a9000 |
| .long 0x3e511000 |
| .long 0x3e579000 |
| .long 0x3e5e1000 |
| .long 0x3e647000 |
| .long 0x3e6ae000 |
| .long 0x3e713000 |
| .long 0x3e778000 |
| .long 0x3e7dc000 |
| .long 0x3e820000 |
| .long 0x3e851000 |
| .long 0x3e882000 |
| .long 0x3e8b3000 |
| .long 0x3e8e4000 |
| .long 0x3e914000 |
| .long 0x3e944000 |
| .long 0x3e974000 |
| .long 0x3e9a3000 |
| .long 0x3e9d3000 |
| .long 0x3ea02000 |
| .long 0x3ea30000 |
| .long 0x3ea5f000 |
| .long 0x3ea8d000 |
| .long 0x3eabb000 |
| .long 0x3eae8000 |
| .long 0x3eb16000 |
| .long 0x3eb43000 |
| .long 0x3eb70000 |
| .long 0x3eb9c000 |
| .long 0x3ebc9000 |
| .long 0x3ebf5000 |
| .long 0x3ec21000 |
| .long 0x3ec4d000 |
| .long 0x3ec78000 |
| .long 0x3eca3000 |
| .long 0x3ecce000 |
| .long 0x3ecf9000 |
| .long 0x3ed24000 |
| .long 0x3ed4e000 |
| .long 0x3ed78000 |
| .long 0x3eda2000 |
| .long 0x3edcc000 |
| .long 0x3edf5000 |
| .long 0x3ee1e000 |
| .long 0x3ee47000 |
| .long 0x3ee70000 |
| .long 0x3ee99000 |
| .long 0x3eec1000 |
| .long 0x3eeea000 |
| .long 0x3ef12000 |
| .long 0x3ef3a000 |
| .long 0x3ef61000 |
| .long 0x3ef89000 |
| .long 0x3efb0000 |
| .long 0x3efd7000 |
| .long 0x3effe000 |
| .long 0x3f012000 |
| .long 0x3f025000 |
| .long 0x3f039000 |
| .long 0x3f04c000 |
| .long 0x3f05f000 |
| .long 0x3f072000 |
| .long 0x3f084000 |
| .long 0x3f097000 |
| .long 0x3f0aa000 |
| .long 0x3f0bc000 |
| .long 0x3f0cf000 |
| .long 0x3f0e1000 |
| .long 0x3f0f4000 |
| .long 0x3f106000 |
| .long 0x3f118000 |
| .long 0x3f12a000 |
| .long 0x3f13c000 |
| .long 0x3f14e000 |
| .long 0x3f160000 |
| .long 0x3f172000 |
| .long 0x3f183000 |
| .long 0x3f195000 |
| .long 0x3f1a7000 |
| .long 0x3f1b8000 |
| .long 0x3f1c9000 |
| .long 0x3f1db000 |
| .long 0x3f1ec000 |
| .long 0x3f1fd000 |
| .long 0x3f20e000 |
| .long 0x3f21f000 |
| .long 0x3f230000 |
| .long 0x3f241000 |
| .long 0x3f252000 |
| .long 0x3f263000 |
| .long 0x3f273000 |
| .long 0x3f284000 |
| .long 0x3f295000 |
| .long 0x3f2a5000 |
| .long 0x3f2b5000 |
| .long 0x3f2c6000 |
| .long 0x3f2d6000 |
| .long 0x3f2e6000 |
| .long 0x3f2f7000 |
| .long 0x3f307000 |
| .long 0x3f317000 |
| |
| .align 16 |
| .L__log_128_tail: |
| .long 0x00000000 |
| .long 0x3429ac41 |
| .long 0x35a8b0fc |
| .long 0x368d83ea |
| .long 0x361b0e78 |
| .long 0x3687b9fe |
| .long 0x3631ec65 |
| .long 0x36dd7119 |
| .long 0x35c30045 |
| .long 0x379b7751 |
| .long 0x37ebcb0d |
| .long 0x37839f83 |
| .long 0x37528ae5 |
| .long 0x37a2eb18 |
| .long 0x36da7495 |
| .long 0x36a91eb7 |
| .long 0x3783b715 |
| .long 0x371131db |
| .long 0x383f3e68 |
| .long 0x38156a97 |
| .long 0x38297c0f |
| .long 0x387e100f |
| .long 0x3815b665 |
| .long 0x37e5e3a1 |
| .long 0x38183853 |
| .long 0x35fe719d |
| .long 0x38448108 |
| .long 0x38503290 |
| .long 0x373539e8 |
| .long 0x385e0ff1 |
| .long 0x3864a740 |
| .long 0x3786742d |
| .long 0x387be3cd |
| .long 0x3685ad3e |
| .long 0x3803b715 |
| .long 0x37adcbdc |
| .long 0x380c36af |
| .long 0x371652d3 |
| .long 0x38927139 |
| .long 0x38c5fcd7 |
| .long 0x38ae55d5 |
| .long 0x3818c169 |
| .long 0x38a0fde7 |
| .long 0x38ad09ef |
| .long 0x3862bae1 |
| .long 0x38eecd4c |
| .long 0x3798aad2 |
| .long 0x37421a1a |
| .long 0x38c5e10e |
| .long 0x37bf2aee |
| .long 0x382d872d |
| .long 0x37ee2e8a |
| .long 0x38dedfac |
| .long 0x3802f2b9 |
| .long 0x38481e9b |
| .long 0x380eaa2b |
| .long 0x38ebfb5d |
| .long 0x38255fdd |
| .long 0x38783b82 |
| .long 0x3851da1e |
| .long 0x374e1b05 |
| .long 0x388f439b |
| .long 0x38ca0e10 |
| .long 0x38cac08b |
| .long 0x3891f65f |
| .long 0x378121cb |
| .long 0x386c9a9a |
| .long 0x38949923 |
| .long 0x38777bcc |
| .long 0x37b12d26 |
| .long 0x38a6ced3 |
| .long 0x38ebd3e6 |
| .long 0x38fbe3cd |
| .long 0x38d785c2 |
| .long 0x387e7e00 |
| .long 0x38f392c5 |
| .long 0x37d40983 |
| .long 0x38081a7c |
| .long 0x3784c3ad |
| .long 0x38cce923 |
| .long 0x380f5faf |
| .long 0x3891fd38 |
| .long 0x38ac47bc |
| .long 0x3897042b |
| .long 0x392952d2 |
| .long 0x396fced4 |
| .long 0x37f97073 |
| .long 0x385e9eae |
| .long 0x3865c84a |
| .long 0x38130ba3 |
| .long 0x3979cf16 |
| .long 0x3938cac9 |
| .long 0x38c3d2f4 |
| .long 0x39755dec |
| .long 0x38e6b467 |
| .long 0x395c0fb8 |
| .long 0x383ebce0 |
| .long 0x38dcd192 |
| .long 0x39186bdf |
| .long 0x392de74c |
| .long 0x392f0944 |
| .long 0x391bff61 |
| .long 0x38e9ed44 |
| .long 0x38686dc8 |
| .long 0x396b99a7 |
| .long 0x39099c89 |
| .long 0x37a27673 |
| .long 0x390bdaa3 |
| .long 0x397069ab |
| .long 0x388449ff |
| .long 0x39013538 |
| .long 0x392dc268 |
| .long 0x3947f423 |
| .long 0x394ff17c |
| .long 0x3945e10e |
| .long 0x3929e8f5 |
| .long 0x38f85db0 |
| .long 0x38735f99 |
| .long 0x396c08db |
| .long 0x3909e600 |
| .long 0x37b4996f |
| .long 0x391233cc |
| .long 0x397cead9 |
| .long 0x38adb5cd |
| .long 0x3920261a |
| .long 0x3958ee36 |
| .long 0x35aa4905 |
| .long 0x37cbd11e |
| .long 0x3805fdf4 |
| |
| .align 16 |
| .L__log_F_inv: |
| .long 0x40000000 |
| .long 0x3ffe03f8 |
| .long 0x3ffc0fc1 |
| .long 0x3ffa232d |
| .long 0x3ff83e10 |
| .long 0x3ff6603e |
| .long 0x3ff4898d |
| .long 0x3ff2b9d6 |
| .long 0x3ff0f0f1 |
| .long 0x3fef2eb7 |
| .long 0x3fed7304 |
| .long 0x3febbdb3 |
| .long 0x3fea0ea1 |
| .long 0x3fe865ac |
| .long 0x3fe6c2b4 |
| .long 0x3fe52598 |
| .long 0x3fe38e39 |
| .long 0x3fe1fc78 |
| .long 0x3fe07038 |
| .long 0x3fdee95c |
| .long 0x3fdd67c9 |
| .long 0x3fdbeb62 |
| .long 0x3fda740e |
| .long 0x3fd901b2 |
| .long 0x3fd79436 |
| .long 0x3fd62b81 |
| .long 0x3fd4c77b |
| .long 0x3fd3680d |
| .long 0x3fd20d21 |
| .long 0x3fd0b6a0 |
| .long 0x3fcf6475 |
| .long 0x3fce168a |
| .long 0x3fcccccd |
| .long 0x3fcb8728 |
| .long 0x3fca4588 |
| .long 0x3fc907da |
| .long 0x3fc7ce0c |
| .long 0x3fc6980c |
| .long 0x3fc565c8 |
| .long 0x3fc43730 |
| .long 0x3fc30c31 |
| .long 0x3fc1e4bc |
| .long 0x3fc0c0c1 |
| .long 0x3fbfa030 |
| .long 0x3fbe82fa |
| .long 0x3fbd6910 |
| .long 0x3fbc5264 |
| .long 0x3fbb3ee7 |
| .long 0x3fba2e8c |
| .long 0x3fb92144 |
| .long 0x3fb81703 |
| .long 0x3fb70fbb |
| .long 0x3fb60b61 |
| .long 0x3fb509e7 |
| .long 0x3fb40b41 |
| .long 0x3fb30f63 |
| .long 0x3fb21643 |
| .long 0x3fb11fd4 |
| .long 0x3fb02c0b |
| .long 0x3faf3ade |
| .long 0x3fae4c41 |
| .long 0x3fad602b |
| .long 0x3fac7692 |
| .long 0x3fab8f6a |
| .long 0x3faaaaab |
| .long 0x3fa9c84a |
| .long 0x3fa8e83f |
| .long 0x3fa80a81 |
| .long 0x3fa72f05 |
| .long 0x3fa655c4 |
| .long 0x3fa57eb5 |
| .long 0x3fa4a9cf |
| .long 0x3fa3d70a |
| .long 0x3fa3065e |
| .long 0x3fa237c3 |
| .long 0x3fa16b31 |
| .long 0x3fa0a0a1 |
| .long 0x3f9fd80a |
| .long 0x3f9f1166 |
| .long 0x3f9e4cad |
| .long 0x3f9d89d9 |
| .long 0x3f9cc8e1 |
| .long 0x3f9c09c1 |
| .long 0x3f9b4c70 |
| .long 0x3f9a90e8 |
| .long 0x3f99d723 |
| .long 0x3f991f1a |
| .long 0x3f9868c8 |
| .long 0x3f97b426 |
| .long 0x3f97012e |
| .long 0x3f964fda |
| .long 0x3f95a025 |
| .long 0x3f94f209 |
| .long 0x3f944581 |
| .long 0x3f939a86 |
| .long 0x3f92f114 |
| .long 0x3f924925 |
| .long 0x3f91a2b4 |
| .long 0x3f90fdbc |
| .long 0x3f905a38 |
| .long 0x3f8fb824 |
| .long 0x3f8f177a |
| .long 0x3f8e7835 |
| .long 0x3f8dda52 |
| .long 0x3f8d3dcb |
| .long 0x3f8ca29c |
| .long 0x3f8c08c1 |
| .long 0x3f8b7034 |
| .long 0x3f8ad8f3 |
| .long 0x3f8a42f8 |
| .long 0x3f89ae41 |
| .long 0x3f891ac7 |
| .long 0x3f888889 |
| .long 0x3f87f781 |
| .long 0x3f8767ab |
| .long 0x3f86d905 |
| .long 0x3f864b8a |
| .long 0x3f85bf37 |
| .long 0x3f853408 |
| .long 0x3f84a9fa |
| .long 0x3f842108 |
| .long 0x3f839930 |
| .long 0x3f83126f |
| .long 0x3f828cc0 |
| .long 0x3f820821 |
| .long 0x3f81848e |
| .long 0x3f810204 |
| .long 0x3f808081 |
| .long 0x3f800000 |
| |
| |
