![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to lb1spl.asm CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [GCC 2.x] / gcc / config / sparc|
Return to lb1spl.asm CVS log | Up to [GCC 2.x] / gcc / config / sparc |
1.1 ! root 1: /* This is an assembly language implementation of libgcc1.c for the sparclite ! 2: processor. ! 3: ! 4: These routines are all from the Sparclite User's Guide, slightly edited ! 5: to match the desired calling convention, and also to optimize them. */ ! 6: ! 7: #ifdef L_udivsi3 ! 8: .text ! 9: .align 4 ! 10: .global .udiv ! 11: .proc 04 ! 12: .udiv: ! 13: wr %g0,%g0,%y ! Not a delayed write for sparclite ! 14: tst %g0 ! 15: divscc %o0,%o1,%g1 ! 16: divscc %g1,%o1,%g1 ! 17: divscc %g1,%o1,%g1 ! 18: divscc %g1,%o1,%g1 ! 19: divscc %g1,%o1,%g1 ! 20: divscc %g1,%o1,%g1 ! 21: divscc %g1,%o1,%g1 ! 22: divscc %g1,%o1,%g1 ! 23: divscc %g1,%o1,%g1 ! 24: divscc %g1,%o1,%g1 ! 25: divscc %g1,%o1,%g1 ! 26: divscc %g1,%o1,%g1 ! 27: divscc %g1,%o1,%g1 ! 28: divscc %g1,%o1,%g1 ! 29: divscc %g1,%o1,%g1 ! 30: divscc %g1,%o1,%g1 ! 31: divscc %g1,%o1,%g1 ! 32: divscc %g1,%o1,%g1 ! 33: divscc %g1,%o1,%g1 ! 34: divscc %g1,%o1,%g1 ! 35: divscc %g1,%o1,%g1 ! 36: divscc %g1,%o1,%g1 ! 37: divscc %g1,%o1,%g1 ! 38: divscc %g1,%o1,%g1 ! 39: divscc %g1,%o1,%g1 ! 40: divscc %g1,%o1,%g1 ! 41: divscc %g1,%o1,%g1 ! 42: divscc %g1,%o1,%g1 ! 43: divscc %g1,%o1,%g1 ! 44: divscc %g1,%o1,%g1 ! 45: divscc %g1,%o1,%g1 ! 46: retl ! 47: divscc %g1,%o1,%o0 ! 48: #endif ! 49: ! 50: #ifdef L_umodsi3 ! 51: .text ! 52: .align 4 ! 53: .global .urem ! 54: .proc 04 ! 55: .urem: ! 56: wr %g0,%g0,%y ! Not a delayed write for sparclite ! 57: tst %g0 ! 58: divscc %o0,%o1,%g1 ! 59: divscc %g1,%o1,%g1 ! 60: divscc %g1,%o1,%g1 ! 61: divscc %g1,%o1,%g1 ! 62: divscc %g1,%o1,%g1 ! 63: divscc %g1,%o1,%g1 ! 64: divscc %g1,%o1,%g1 ! 65: divscc %g1,%o1,%g1 ! 66: divscc %g1,%o1,%g1 ! 67: divscc %g1,%o1,%g1 ! 68: divscc %g1,%o1,%g1 ! 69: divscc %g1,%o1,%g1 ! 70: divscc %g1,%o1,%g1 ! 71: divscc %g1,%o1,%g1 ! 72: divscc %g1,%o1,%g1 ! 73: divscc %g1,%o1,%g1 ! 74: divscc %g1,%o1,%g1 ! 75: divscc %g1,%o1,%g1 ! 76: divscc %g1,%o1,%g1 ! 77: divscc %g1,%o1,%g1 ! 78: divscc %g1,%o1,%g1 ! 79: divscc %g1,%o1,%g1 ! 80: divscc %g1,%o1,%g1 ! 81: divscc %g1,%o1,%g1 ! 82: divscc %g1,%o1,%g1 ! 83: divscc %g1,%o1,%g1 ! 84: divscc %g1,%o1,%g1 ! 85: divscc %g1,%o1,%g1 ! 86: divscc %g1,%o1,%g1 ! 87: divscc %g1,%o1,%g1 ! 88: divscc %g1,%o1,%g1 ! 89: divscc %g1,%o1,%g1 ! 90: bl 1f ! 91: rd %y,%o0 ! 92: retl ! 93: nop ! 94: 1: retl ! 95: add %o0,%o1,%o0 ! 96: #endif ! 97: ! 98: #ifdef L_divsi3 ! 99: .text ! 100: .align 4 ! 101: .global .div ! 102: .proc 04 ! 103: ! ??? This routine could be made faster if was optimized, and if it was ! 104: ! rewritten to only calculate the quotient. ! 105: .div: ! 106: wr %g0,%g0,%y ! Not a delayed write for sparclite ! 107: mov %o1,%o4 ! 108: tst %o1 ! 109: bl,a 1f ! 110: sub %g0,%o4,%o4 ! 111: 1: tst %o0 ! 112: bl,a 2f ! 113: mov -1,%y ! 114: 2: divscc %o0,%o4,%g1 ! 115: divscc %g1,%o4,%g1 ! 116: divscc %g1,%o4,%g1 ! 117: divscc %g1,%o4,%g1 ! 118: divscc %g1,%o4,%g1 ! 119: divscc %g1,%o4,%g1 ! 120: divscc %g1,%o4,%g1 ! 121: divscc %g1,%o4,%g1 ! 122: divscc %g1,%o4,%g1 ! 123: divscc %g1,%o4,%g1 ! 124: divscc %g1,%o4,%g1 ! 125: divscc %g1,%o4,%g1 ! 126: divscc %g1,%o4,%g1 ! 127: divscc %g1,%o4,%g1 ! 128: divscc %g1,%o4,%g1 ! 129: divscc %g1,%o4,%g1 ! 130: divscc %g1,%o4,%g1 ! 131: divscc %g1,%o4,%g1 ! 132: divscc %g1,%o4,%g1 ! 133: divscc %g1,%o4,%g1 ! 134: divscc %g1,%o4,%g1 ! 135: divscc %g1,%o4,%g1 ! 136: divscc %g1,%o4,%g1 ! 137: divscc %g1,%o4,%g1 ! 138: divscc %g1,%o4,%g1 ! 139: divscc %g1,%o4,%g1 ! 140: divscc %g1,%o4,%g1 ! 141: divscc %g1,%o4,%g1 ! 142: divscc %g1,%o4,%g1 ! 143: divscc %g1,%o4,%g1 ! 144: divscc %g1,%o4,%g1 ! 145: divscc %g1,%o4,%g1 ! 146: be 6f ! 147: mov %y,%o3 ! 148: bg 4f ! 149: addcc %o3,%o4,%g0 ! 150: be,a 6f ! 151: mov %g0,%o3 ! 152: tst %o0 ! 153: bl 5f ! 154: tst %g1 ! 155: ba 5f ! 156: add %o3,%o4,%o3 ! 157: 4: subcc %o3,%o4,%g0 ! 158: be,a 6f ! 159: mov %g0,%o3 ! 160: tst %o0 ! 161: bge 5f ! 162: tst %g1 ! 163: sub %o3,%o4,%o3 ! 164: 5: bl,a 6f ! 165: add %g1,1,%g1 ! 166: 6: tst %o1 ! 167: bl,a 7f ! 168: sub %g0,%g1,%g1 ! 169: 7: retl ! 170: mov %g1,%o0 ! Quotient is in %g1. ! 171: #endif ! 172: ! 173: #ifdef L_modsi3 ! 174: .text ! 175: .align 4 ! 176: .global .rem ! 177: .proc 04 ! 178: ! ??? This routine could be made faster if was optimized, and if it was ! 179: ! rewritten to only calculate the remainder. ! 180: .rem: ! 181: wr %g0,%g0,%y ! Not a delayed write for sparclite ! 182: mov %o1,%o4 ! 183: tst %o1 ! 184: bl,a 1f ! 185: sub %g0,%o4,%o4 ! 186: 1: tst %o0 ! 187: bl,a 2f ! 188: mov -1,%y ! 189: 2: divscc %o0,%o4,%g1 ! 190: divscc %g1,%o4,%g1 ! 191: divscc %g1,%o4,%g1 ! 192: divscc %g1,%o4,%g1 ! 193: divscc %g1,%o4,%g1 ! 194: divscc %g1,%o4,%g1 ! 195: divscc %g1,%o4,%g1 ! 196: divscc %g1,%o4,%g1 ! 197: divscc %g1,%o4,%g1 ! 198: divscc %g1,%o4,%g1 ! 199: divscc %g1,%o4,%g1 ! 200: divscc %g1,%o4,%g1 ! 201: divscc %g1,%o4,%g1 ! 202: divscc %g1,%o4,%g1 ! 203: divscc %g1,%o4,%g1 ! 204: divscc %g1,%o4,%g1 ! 205: divscc %g1,%o4,%g1 ! 206: divscc %g1,%o4,%g1 ! 207: divscc %g1,%o4,%g1 ! 208: divscc %g1,%o4,%g1 ! 209: divscc %g1,%o4,%g1 ! 210: divscc %g1,%o4,%g1 ! 211: divscc %g1,%o4,%g1 ! 212: divscc %g1,%o4,%g1 ! 213: divscc %g1,%o4,%g1 ! 214: divscc %g1,%o4,%g1 ! 215: divscc %g1,%o4,%g1 ! 216: divscc %g1,%o4,%g1 ! 217: divscc %g1,%o4,%g1 ! 218: divscc %g1,%o4,%g1 ! 219: divscc %g1,%o4,%g1 ! 220: divscc %g1,%o4,%g1 ! 221: be 6f ! 222: mov %y,%o3 ! 223: bg 4f ! 224: addcc %o3,%o4,%g0 ! 225: be,a 6f ! 226: mov %g0,%o3 ! 227: tst %o0 ! 228: bl 5f ! 229: tst %g1 ! 230: ba 5f ! 231: add %o3,%o4,%o3 ! 232: 4: subcc %o3,%o4,%g0 ! 233: be,a 6f ! 234: mov %g0,%o3 ! 235: tst %o0 ! 236: bge 5f ! 237: tst %g1 ! 238: sub %o3,%o4,%o3 ! 239: 5: bl,a 6f ! 240: add %g1,1,%g1 ! 241: 6: tst %o1 ! 242: bl,a 7f ! 243: sub %g0,%g1,%g1 ! 244: 7: retl ! 245: mov %o3,%o0 ! Remainder is in %o3. ! 246: #endif
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.