moddi3.S revision 1.2.20.2
1 1.2.20.2 rpaulo .file "__moddi3.s" 2 1.2.20.2 rpaulo 3 1.2.20.2 rpaulo // $NetBSD: moddi3.S,v 1.2.20.2 2006/09/09 02:57:52 rpaulo Exp $ 4 1.2.20.2 rpaulo 5 1.2.20.2 rpaulo //- 6 1.2.20.2 rpaulo // Copyright (c) 2000, Intel Corporation 7 1.2.20.2 rpaulo // All rights reserved. 8 1.2.20.2 rpaulo // 9 1.2.20.2 rpaulo // Contributed 2/15/2000 by Marius Cornea, John Harrison, Cristina Iordache, 10 1.2.20.2 rpaulo // Ted Kubaska, Bob Norin, and Shane Story of the Computational Software Lab, 11 1.2.20.2 rpaulo // Intel Corporation. 12 1.2.20.2 rpaulo // 13 1.2.20.2 rpaulo // WARRANTY DISCLAIMER 14 1.2.20.2 rpaulo // 15 1.2.20.2 rpaulo // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 16 1.2.20.2 rpaulo // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 17 1.2.20.2 rpaulo // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 18 1.2.20.2 rpaulo // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL INTEL OR ITS 19 1.2.20.2 rpaulo // CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 20 1.2.20.2 rpaulo // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 21 1.2.20.2 rpaulo // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 22 1.2.20.2 rpaulo // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY 23 1.2.20.2 rpaulo // OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY OR TORT (INCLUDING 24 1.2.20.2 rpaulo // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 25 1.2.20.2 rpaulo // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 26 1.2.20.2 rpaulo // 27 1.2.20.2 rpaulo // Intel Corporation is the author of this code, and requests that all 28 1.2.20.2 rpaulo // problem reports or change requests be submitted to it directly at 29 1.2.20.2 rpaulo // http://developer.intel.com/opensource. 30 1.2.20.2 rpaulo // 31 1.2.20.2 rpaulo 32 1.2.20.2 rpaulo .section .text 33 1.2.20.2 rpaulo 34 1.2.20.2 rpaulo // 64-bit signed integer remainder 35 1.2.20.2 rpaulo 36 1.2.20.2 rpaulo .proc __moddi3# 37 1.2.20.2 rpaulo .align 32 38 1.2.20.2 rpaulo .global __moddi3# 39 1.2.20.2 rpaulo .align 32 40 1.2.20.2 rpaulo 41 1.2.20.2 rpaulo __moddi3: 42 1.2.20.2 rpaulo 43 1.2.20.2 rpaulo { .mii 44 1.2.20.2 rpaulo alloc r31=ar.pfs,3,0,0,0 45 1.2.20.2 rpaulo nop.i 0 46 1.2.20.2 rpaulo nop.i 0 47 1.2.20.2 rpaulo } { .mmb 48 1.2.20.2 rpaulo 49 1.2.20.2 rpaulo // 64-BIT SIGNED INTEGER REMAINDER BEGINS HERE 50 1.2.20.2 rpaulo 51 1.2.20.2 rpaulo // general register used: 52 1.2.20.2 rpaulo // r32 - 64-bit signed integer dividend, called a below 53 1.2.20.2 rpaulo // r33 - 64-bit signed integer divisor, called b below 54 1.2.20.2 rpaulo // r8 - 64-bit signed integer result 55 1.2.20.2 rpaulo // r2 - scratch register 56 1.2.20.2 rpaulo // floating-point registers used: f6, f7, f8, f9, f10, f11, f12 57 1.2.20.2 rpaulo // predicate registers used: p6 58 1.2.20.2 rpaulo 59 1.2.20.2 rpaulo setf.sig f12=r32 // holds a in integer form 60 1.2.20.2 rpaulo setf.sig f7=r33 61 1.2.20.2 rpaulo nop.b 0 62 1.2.20.2 rpaulo } { .mlx 63 1.2.20.2 rpaulo nop.m 0 64 1.2.20.2 rpaulo //movl r2=0x8000000000000000;; 65 1.2.20.2 rpaulo movl r2=0xffffffffffffffff;; 66 1.2.20.2 rpaulo } { .mfi 67 1.2.20.2 rpaulo // get the 2's complement of b 68 1.2.20.2 rpaulo sub r33=r0,r33 69 1.2.20.2 rpaulo fcvt.xf f6=f12 70 1.2.20.2 rpaulo nop.i 0 71 1.2.20.2 rpaulo } { .mfi 72 1.2.20.2 rpaulo nop.m 0 73 1.2.20.2 rpaulo fcvt.xf f7=f7 74 1.2.20.2 rpaulo nop.i 0;; 75 1.2.20.2 rpaulo } { .mfi 76 1.2.20.2 rpaulo nop.m 0 77 1.2.20.2 rpaulo // Step (1) 78 1.2.20.2 rpaulo // y0 = 1 / b in f8 79 1.2.20.2 rpaulo frcpa.s1 f8,p6=f6,f7 80 1.2.20.2 rpaulo nop.i 0;; 81 1.2.20.2 rpaulo } { .mfi 82 1.2.20.2 rpaulo nop.m 0 83 1.2.20.2 rpaulo // Step (2) 84 1.2.20.2 rpaulo // q0 = a * y0 in f10 85 1.2.20.2 rpaulo (p6) fma.s1 f10=f6,f8,f0 86 1.2.20.2 rpaulo nop.i 0 87 1.2.20.2 rpaulo } { .mfi 88 1.2.20.2 rpaulo nop.m 0 89 1.2.20.2 rpaulo // Step (3) 90 1.2.20.2 rpaulo // e0 = 1 - b * y0 in f9 91 1.2.20.2 rpaulo (p6) fnma.s1 f9=f7,f8,f1 92 1.2.20.2 rpaulo nop.i 0;; 93 1.2.20.2 rpaulo } { .mfi 94 1.2.20.2 rpaulo nop.m 0 95 1.2.20.2 rpaulo // Step (4) 96 1.2.20.2 rpaulo // q1 = q0 + e0 * q0 in f10 97 1.2.20.2 rpaulo (p6) fma.s1 f10=f9,f10,f10 98 1.2.20.2 rpaulo nop.i 0 99 1.2.20.2 rpaulo } { .mfi 100 1.2.20.2 rpaulo nop.m 0 101 1.2.20.2 rpaulo // Step (5) 102 1.2.20.2 rpaulo // e1 = e0 * e0 in f11 103 1.2.20.2 rpaulo (p6) fma.s1 f11=f9,f9,f0 104 1.2.20.2 rpaulo nop.i 0;; 105 1.2.20.2 rpaulo } { .mfi 106 1.2.20.2 rpaulo nop.m 0 107 1.2.20.2 rpaulo // Step (6) 108 1.2.20.2 rpaulo // y1 = y0 + e0 * y0 in f8 109 1.2.20.2 rpaulo (p6) fma.s1 f8=f9,f8,f8 110 1.2.20.2 rpaulo nop.i 0;; 111 1.2.20.2 rpaulo } { .mfi 112 1.2.20.2 rpaulo nop.m 0 113 1.2.20.2 rpaulo // Step (7) 114 1.2.20.2 rpaulo // q2 = q1 + e1 * q1 in f9 115 1.2.20.2 rpaulo (p6) fma.s1 f9=f11,f10,f10 116 1.2.20.2 rpaulo nop.i 0;; 117 1.2.20.2 rpaulo } { .mfi 118 1.2.20.2 rpaulo nop.m 0 119 1.2.20.2 rpaulo // Step (8) 120 1.2.20.2 rpaulo // y2 = y1 + e1 * y1 in f8 121 1.2.20.2 rpaulo (p6) fma.s1 f8=f11,f8,f8 122 1.2.20.2 rpaulo nop.i 0;; 123 1.2.20.2 rpaulo } { .mfi 124 1.2.20.2 rpaulo nop.m 0 125 1.2.20.2 rpaulo // Step (9) 126 1.2.20.2 rpaulo // r2 = a - b * q2 in f10 127 1.2.20.2 rpaulo (p6) fnma.s1 f10=f7,f9,f6 128 1.2.20.2 rpaulo nop.i 0;; 129 1.2.20.2 rpaulo } { .mfi 130 1.2.20.2 rpaulo setf.sig f7=r33 131 1.2.20.2 rpaulo // Step (10) 132 1.2.20.2 rpaulo // q3 = q2 + r2 * y2 in f8 133 1.2.20.2 rpaulo (p6) fma.s1 f8=f10,f8,f9 134 1.2.20.2 rpaulo nop.i 0;; 135 1.2.20.2 rpaulo } { .mfi 136 1.2.20.2 rpaulo nop.m 0 137 1.2.20.2 rpaulo // (11) q = trunc(q3) 138 1.2.20.2 rpaulo fcvt.fx.trunc.s1 f8=f8 139 1.2.20.2 rpaulo nop.i 0;; 140 1.2.20.2 rpaulo } { .mfi 141 1.2.20.2 rpaulo nop.m 0 142 1.2.20.2 rpaulo // (12) r = a + (-b) * q 143 1.2.20.2 rpaulo xma.l f8=f8,f7,f12 144 1.2.20.2 rpaulo nop.i 0;; 145 1.2.20.2 rpaulo } { .mib 146 1.2.20.2 rpaulo getf.sig r8=f8 147 1.2.20.2 rpaulo nop.i 0 148 1.2.20.2 rpaulo nop.b 0 149 1.2.20.2 rpaulo } 150 1.2.20.2 rpaulo 151 1.2.20.2 rpaulo // 64-BIT SIGNED INTEGER REMAINDER ENDS HERE 152 1.2.20.2 rpaulo 153 1.2.20.2 rpaulo { .mib 154 1.2.20.2 rpaulo nop.m 0 155 1.2.20.2 rpaulo nop.i 0 156 1.2.20.2 rpaulo br.ret.sptk b0;; 157 1.2.20.2 rpaulo } 158 1.2.20.2 rpaulo 159 1.2.20.2 rpaulo .endp __moddi3 160
Indexes created Mon Sep 29 21:09:56 GMT 2025